Sample Reporting Facility Programs › Dynamic System Tables Sample

Dynamic System Tables Sample

CA                                        16:28:10  24 JUN 2011
CA DATACOM/DB REPORTING FACILITY
OS  VERSION nn.n                                 PAGE      1
USER 'CA DYNAMIC SYSTEM TABLES'
NOTE SAMPLE REPORT OF TABLES AND INDEXES LOADED.
DRT1000: INPUT DATACOM RECORD=625 NAME=DRT

                :  DEFINE  DB-COMMAND             1-5  X
                   DEFINE  DB-KEY-NAME           6-10  X
                   DEFINE  DB-KEY-VALUE         11-23  X
                   DEFINE  KEYDIR_NAME          11-18  X
                   DEFINE  KEYDBID              19-20  B
                   DEFINE  KEYAREA_NAME         21-23  X
                   DEFINE  DB-ELEMENT-LIST     191-201 X
                   COPYDD DIR_TABLE ELEMENT
                   DEFINE RDDRT(1)='Y'
                   GOTO REDNDRT (RDDRT NE 'Y')
                   MOVE 'REDKG'   TO DRT1000.DB-COMMAND
                   MOVE 'N' TP RDDRT
                   MOVE LOW-VALUE TO DRT1000.DB-KEY-VALUE
                   GOTO REDDRT
                REDNDRT:CONT
                   MOVE 'REDNX'   TO DRT1000.DB-COMMAND
                REDDRT:CONT
                   MOVE '-#DRT' TO DRT1000.DB-KEY-NAME
                   MOVE '-#DRT' TO DRT1000.DB-ELEMENT-LIST
                   GET  DRT1000