Compartir a través de

Problemas para definir un conjunto de registros para aplicaciones basadas en web

  • Artículo

En TI, un conjunto de registros consta de datos tabulares definidos en el código fuente de COBOL en el sistema central. Los datos tabulares se definen mediante un elemento de grupo que contiene una cláusula OCCURS en el área de datos COBOL. Al importar un área de datos de COBOL en TI Designer, se realizan las siguientes conversiones de COBOL a Automation:

  • El área de datos COBOL define los parámetros del método recién creado y los miembros de los conjuntos de registros.

  • El elemento de grupo que define la tabla (contiene la cláusula OCCURS) se representa como la definición de tipo del conjunto de registros del método y un parámetro de método.

  • Otros elementos de grupo se representan como parámetros de método.

  • Los elementos de datos elementales (definiciones de los campos de tabla) se representan como miembros del conjunto de registros.

    En el siguiente área de datos de COBOL se describe la biblioteca de tipos de una aplicación basada en Web que usa un entorno remoto cicS LINK. La aplicación devuelve información sobre hasta seis cuentas para cada nombre de cliente y el PIN coincidente especificados como entrada.

01         DFHCOMMAREA.  
*                    ACCTINFO IS (INPUT, OUTPUT)  
           O5        ACCTINFO OCCURS 6 TIMES.  
                     10 ACCOUNTNUMBER                       PIC X(6).  
                     10 ACCOUNTTYPE                         PIC X(20).  
                     10 CURRENTBALANCE                      PIC S9(13)V9(2) COMP-3.  
  
                     10 INTERESTBEARING                     PIC S9(4) COMP.  
                     10 INTERESTRATE                        COMP-1.  
                     10 MONTHLYSVCCHG                       PIC S9(13)V9(2) COMP-3.  
  
*                    NAME IS (INPUT, OUTPUT)  
                     05                                     NAMEPIC X(30).  
*                    PIN IS (INPUT, OUTPUT)  
                     05                                     PIN PIC X(10).

Cuando se importa en ti Designer, los elementos de grupo del área de datos se tratan como los parámetros del método recién creado. Sin embargo, debido a los requisitos del Servicio de datos remotos (RDS) para las aplicaciones basadas en Web, el elemento de grupo que define la tabla debe definirse como el valor devuelto del método, no como parámetro de método. Para definir el método correctamente, debe redefinir manualmente este elemento de grupo (ACCTINFO en el ejemplo anterior) como un valor devuelto.

Antes de importar el área de datos COBOL, anote el número de filas especificadas en la cláusula OCCURS. Después de haber importado el área de datos COBOL, use el procedimiento siguiente para definir un conjunto de registros para aplicaciones basadas en Web.

Para definir un conjunto de registros para una aplicación basada en web

  1. Inicie ti Designer.

  2. En el árbol de consola, haga doble clic en la carpeta Recordsets para comprobar que TI Designer creó la definición de tipo del conjunto de registros. El nombre de la definición de tipo se toma del elemento de grupo que definió la tabla en el código fuente de COBOL.

  3. Haga doble clic en la carpeta Métodos y haga clic en el nombre del método. Compruebe que el parámetro recordset se muestra en el panel de detalles. El nombre del parámetro debe coincidir con el nombre de la definición de tipo del conjunto de registros.

  4. En el menú Editar , haga clic en Desbloquear para desbloquear el método.

  5. En el panel de detalles, elimine el parámetro recordset.

  6. Haga clic con el botón derecho en el método , haga clic en Propiedadesy, a continuación, haga clic en la pestaña Definición de automatización .

  7. Haga clic en el nombre de la definición de tipo del conjunto de registros en el cuadro Tipo de valor devuelto .

  8. Haga clic en la pestaña Conjuntos de registros .

  9. En el cuadro Group-Item Maximum (Número máximo de elementos de grupo), escriba el número de filas especificadas en el código fuente de COBOL y, a continuación, haga clic en Aceptar.

    Para obtener información detallada sobre los conjuntos de registros, consulte la documentación de ActiveX Data Objects (ADO) y Remote Data Service (RDS) incluida al instalar Microsoft Data Access Components (MDAC).