Programa de ejemplo de CA Datacom READRXX (o RXXREAD) para leer archivos RXX (Recuperación).
search cancel

Programa de ejemplo de CA Datacom READRXX (o RXXREAD) para leer archivos RXX (Recuperación).

book

Article ID: 185625

calendar_today

Updated On:

Products

Datacom Datacom/AD Datacom/DB

Issue/Introduction

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

 

 

Environment

Component: CA Datacom/DB
Component: CA Datacom/AD

Resolution

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          

 

Additional Information

Tenga en cuenta que estos son miembros de muestra destinados a la modificación del cliente y su uso para leer y informar sobre el contenido de RXX.

Estos programas de muestra de CA Datacom se proporcionan de forma gratuita y sin soporte. Estos Programas de muestra son para uso exclusivo de un licenciatario autorizado de los productos de CA Datacom aplicables ('Programas con licencia', para copiar y modificar dichos programas de muestra únicamente en conjunto con la implementación interna y el uso los programas con licencia licencia. Estos programas de muestra se proporcionan 'tal cual' sin garantía de ningún tipo. En la medida en que lo permita la ley aplicable, CA Technologies rechaza toda responsabilidad derivada o relacionada con el uso de estos programas de muestra.

Como siempre, comuníquese con el soporte de CA Technologies para CA Datacom si tiene más preguntas.

Attachments

1607373549854__READRXX Tersed.trs get_app