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:

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