This article is in Spanish. For the English-language version, please see Knowledge Base article 30473.
Este artículo está en español. Para la versión en inglés, consulte el artículo 30473 de Knowledge Base.
El soporte de CA Datacom anteriormente proporcionó una fuente de programa de muestra llamada DBSXCPR3 en la parte Recommended Reading/Samples del sitio web del producto. Este documento proporciona una versión actualizada para el compilador de IBM Enterprise COBOL versión 3.4 y otros versions mas alto, y con más opciones de selección. A partir de marzo de 2020, esto se ha probado con la versión del compilador 3.4 a 6.3 utilizando el JCL tal como se entrega.
Este programa lee el archivo de recuperación de CA Datacom (RXX) y produce un reporte de los registros en él. El reporte se puede filtrar por muchos criterios de selección. Este programa de muestra no va manipular los registros RXX, que solo va resumirá los registros basado en su selecion de filtrar. Este sirve como un ejemplo en que su puede construir su propio programa de consultas RXX si lo desea.
Hay un archivo (en ingles) adjunto con este artículo que contiene los componentes necesarios para compilar el programa para leer el archivo RXX de CA Datacom. Estos componentes se pueden encontrar en el PDS creado a partir el archivo adjunto, que ha sido compromido. Debes subir el archivo desde su PC a la unidad central como un archivo BINary, FB, LRECL=1024, BLKSIZE=27648, y luego usar JCL como el siguiente para recrear el PDS del archivo compromido que se subio. Tenga en cuenta que todos los miembros se han configurado con la versión 2.0 de ISPF (a partir del 4 de marzo de 2020).
//*
// SET TERSFL=<<Su archivo compromido descargado (adjunto a continuación)
// SET OUTPDS=<<Un nuevo nombre de archivo PDS para las utilidades
//*
//DELETE EXEC PGM=IEFBR14
//X01 DD DSN=&OUTPDS,
// DISP=(MOD,DELETE,DELETE),UNIT=3390,SPACE=(TRK,1)
//* - - - - - -C- - - - - - - - - - - - - - - - - - - - - - - - - - -7-
//UNTERSE EXEC PGM=AMATERSE,PARM=UNPACK
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&TERSFL
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&OUTPDS,
// UNIT=3390,STORCLAS=TSO,DSORG=PO,SPACE=(CYL,(1,1,5),RLSE)
//*
Aquí están los miembros en el PDS que se construirán a partir del archivo comprimido:
$$$NOTES | Detalles sobre el PDS, información de versión e instrucciones de uso para este proceso |
CPBEGIN | Copiar miembro utilizado al comienzo de la Procedure Division COBOL |
CPEND | Copiar miembro utilizado al final de una división de procedimientos COBOL |
CPWRITE | Copiar miembro utilizado para escribir líneas de informe de programa de muestra |
CWCOMMON | Copiar miembro con muestras comunes de datos de Working Storage |
CWRXXWK | Copiar miembro para los campos de Working Storage necesarios para el procesamiento READRXX |
DBBARXXU | Fuente del programa para la URT necesaria para READRXX |
DBBCRXX1 | Fuente del programa COBOL para el programa de informes RXX |
DBBJRXX1 | Fuente JCL para ejecutar la compilación e ir del programa DBBCRXX1 |
DBBJRXX2 | JCL para compilar y enlazar en un usuario loadlib |
DBBJRXX3 | JCL para ejecutar el programa DBBCRXX1 desde un usuario loadlib |
DISCASM | Descargo de responsabilidad del programa de ejemplo de CA Technologies para programas ensambladores |
DISCCOB | Descargo de responsabilidad del programa de muestra de CA Technologies para programas COBOL |
DISCJCL | Descargo de responsabilidad del programa de muestra de CA Technologies para miembros de JCL |
Tenga en cuenta que las opciones del compilador están en la fuente de COBOL, y las opciones y comandos especiales de unir están en la fuente JCL.
Este programa lee el archivo de recuperación de CA Datacom (RXX) y produce un reporte los registros. Depende de lo que ingrese, el reporte se puede filtrar con varios criterios de selección en SYSIN.
Hay varios filtros que se pueden seleccionar en SYSIN y una selección de tipo de informe. Solo se deben ingresar los filtros que se desean; El resto usará el predeterminado. Si se ingresan funciones duplicadas, la última ingresada tendrá prioridad sobre los demás. Además, en los filtros, el filtro 'X ...' tendrá prioridad sobre el filtro de selección de origen. Por ejemplo, si especifica estos:
USER1 USUARMIO
USER2 USUARMAS
USER3 UNOMAS
XUSER1 USUARMAS
Solo USUARMIO y UNOMAS están seleccionados, USUARMAS fue excluido primero por la función XUSER#.
Estas son las funciones que están permitidas (los comandos están en las columnas 1-7, los datos comienzan en la columna 9). Tenga en cuenta que en cualquier comando, las columnas 30-80 no se procesan y se pueden usar para comentarios en una entrada específica.
....5...10...15...20...25...30...>>
COMMENT - Se puede ingresar cualquier texto en esta línea
También se puede usar * en la columna 1
RPTTYPE xxx - Genere un informe con uno de estos:
DET - Informe de línea de detalle
SC - Suma por comando de CA Datacom
SD, DT, DTC - Suma por DBID (+Tabla) (+Comando)
SJ - Suma por nombre de trabajo
SJD, SJDT, SJDTC - Suma por trabajo +DBID (+Tabla) (+Comando)
SU - Suma por ID de usuario
SUD, SUDT, SUDTC - Suma por usuario +DBID (+Tabla) (+Comando)
DISPLAY - Mostrar "before-rec" y workarea
LIMIT ####### - 7 dígitos, número máximo de registros para leer
ORDER OOOOO - 5 caracteres para ordenar por COUNT o sum KEY
TIMEBEG CCYYMMDDHHMMSS - 14 dígitos - Valores de fecha / hora
TIMEEND CCYYMMDDHHMMSS - 14 dígitos son inclusivos
---------------------------------------------------------
Los siguientes comandos pueden crear cuatro filtros cada uno, utilizando sufijos
de 1, 2, 3 o 4, excepto el USER# que puede ser del 1 al 8.
---------------------------------------------------------
COMND1 CCCCC - 5 caracteres - comando de CA Datacom
DBID1 #### - 4 dígitos - ID de base de datos
JOBNM1 JJJJJJJJ - 8 caracteres - nombre de trabajo
RUNIT1 ##### - 5 dígitos - Run Unit
TABLE1 TTT - 3 caracteres - nombre de tabla
TSN1 ##### - 5 dígitos - TSN
URI1 XXXXXXXX - 8 dígitos hex. - numero de URI
USER1 UUUUUUUU - 8 caracteres - ID de usuario
XCOMND1 CCCCC - 5 caracteres - Omitir este comando
XDBID1 #### - 4 dígitos - Omitir este DBID
XJOBNM1 JJJJJJJJ - 8 caracteres - Omitir este nombre de trabajo
XRUNIT1 ##### - 5 dígitos - Omitir esta Run Unit
XTABLE1 TTT - 3 caracteres - Omitir esta tabla
XTSN1 ##### - 5 dígitos - Omitir este TSN
XURI1 XXXXXXXX - 8 dígitos hex. - Omitir este URI
XUSER1 UUUUUUUU - 8 caracteres - Omitir este usuario