This appendix provides the description of the EXTRACT record. CA IDMS Log Analyzer uses the EXTRACT record to generate reports.
*---------------------------------------------------------------------------*
* *
* EXTRACT RECORD *
* *
* FOLLOWING IS A COBOL RECORD DESCRIPTION OF THE EXTRACT RECORD *
* *
* NOTE: THIS COPY BOOK IS USED BY MANY CA IDMS/LOG ANALYZER MODULES. *
* DISCRETION MUST BE USED IN CHANGING IT. *
* *
*---------------------------------------------------------------------------*
02 EXTRACT-RECORD-INIT PIC X(516)
VALUE LOW-VALUES
02 EXTRACT-RECORD REDEFINES
EXTRACT-RECORD-INIT SYNC.
05 FILLER.
10 EXT-LENGTH PIC S9(4) COMP.
10 FILLER PIC S9(4) COMP.
05 EXT-SORT-KEY.
10 EXT-REQUEST-NUMBER PIC S9(2) COMP.
10 EXT-REPORT-TYPE PIC X(02).
88 EXT-BILLING VALUE '25'.
88 EXT-PROG VALUE '31'.
88 EXT-HISUM VALUE '95'.
88 EXT-HIBPU VALUE '96'.
88 EXT-RANK VALUE '97'.
***
*** THESE DATES ARE IN JULIAN FORMAT (00YYDDD)
*** THESES TIMES ARE IN UNITS OF 1 MINUTE
***
10 EXT-INTERVAL-START-DATE-TIME.
15 EXT-INTERVAL-START-DATE PIC S9(7) COMP-3.
15 EXT-INTERVAL-START-TIME PIC S9(9) COMP.
10 EXT-INTERVAL-STOP-DATE-TIME.
15 EXT-INTERVAL-STOP-DATE PIC S9(7) COMP-3.
15 EXT-INTERVAL-STOP-TIME PIC S9(9) COMP.
10 EXT-VAR-SORT-INFO PIC X(36).
10 EXT-BILL-SORT REDEFINES
EXT-VAR-SORT-INFO.
15 EXT-BILL-SORT-NAME PIC X(16).
15 EXT-BILL-SORT-LEVEL-ID PIC X(01).
88 EXT-BILL-LEVEL-DETAIL VALUE '1'.
88 EXT-BILL-LEVEL-SYSTEM VALUE '0'.
15 FILLER PIC X(01).
15 EXT-BILL-SORT-DATE-TIME.
20 EXT-BILL-SORT-DATE PIC S9(7) COMP-3.
20 EXT-BILL-SORT-TIME PIC X(13).
15 EXT-BILL-SORT-ONL-BTC PIC X(01).
88 EXT-BILL-ONL VALUE '1'.
88 EXT-BILL-BTC VALUE '2'.
10 EXT-PROG-SORT REDEFINES
EXT-VAR-SORT-INFO.
15 EXT-PROG-SORT-PGMNAME PIC X(08).
15 FILLER PIC X(08).
15 EXT-PROG-SORT-LEVEL-ID PIC X(01).
88 EXT-PROG-LEVEL-DETAIL VALUE '1'.
88 EXT-PROG-LEVEL-SYSTEM VALUE '0'.
15 FILLER PIC X(01).
15 EXT-PROG-SORT-DATE-TIME.
20 EXT-PROG-SORT-DATE PIC S9(7) COMP-3.
20 EXT-PROG-SORT-TIME PIC X(13).
15 EXT-PROG-SORT-ONL-BTC PIC X(01).
88 EXT-PROG-ONL VALUE '1'.
88 EXT-PROG-BTC VALUE '2'.
10 EXT-HISUM-SORT REDEFINES
EXT-VAR-SORT-INFO.
15 EXT-HISUM-SORT-PGMNAME PIC X(08).
15 FILLER PIC X(07).
15 EXT-HISUM-SORT-ONL-BTC PIC X(01).
88 EXT-HISUM-ONL VALUE '1'.
88 EXT-HISUM-BTC VALUE '2'.
15 EXT-HISUM-SORT-LEVEL-ID PIC X(01).
88 EXT-LEVEL-DETAIL VALUE '1'.
88 EXT-LEVEL-MEDIAN VALUE '0'.
15 FILLER PIC X(01).
15 EXT-HISUM-SORT-COUNT-ID PIC S9(4) COMP.
15 EXT-HISUM-SORT-COUNT PIC S9(9) COMP.
15 EXT-HISUM-SORT-RATIO REDEFINES
EXT-HISUM-SORT-COUNT PIC S9(7)V99 COMP.
15 FILLER PIC X(12).
10 EXT-HIBPU-SORT REDEFINES
EXT-VAR-SORT-INFO.
15 EXT-HIBPU-SORT-DATE-HOUR.
20 EXT-HIBPU-SORT-DATE PIC S9(7) COMP-3.
20 EXT-HIBPU-SORT-HOUR PIC S9(9) COMP.
15 FILLER PIC X(08).
15 EXT-HIBPU-SORT-LEVEL-ID PIC X(01).
88 EXT-LEVEL-DETAIL VALUE '1'.
88 EXT-LEVEL-MEDIAN VALUE '0'.
15 FILLER PIC X(03).
15 EXT-HIBPU-SORT-RATIO PIC S9(7)V99 COMP.
15 FILLER PIC X(12).
10 EXT-RANK-SORT REDEFINES
EXT-VAR-RANK-INFO.
15 EXT-RANK-SORT-PGMNAME PIC X(08).
15 FILLER PIC X(08).
15 EXT-RANK-SORT-LEVEL-ID PIC X(01).
88 EXT-LEVEL-DETAIL VALUE '1'.
88 EXT-LEVEL-MEDIAN VALUE '0'.
15 EXT-RANK-SORT-ZERO-POSITION PIC X(03).
88 EXT-RANK-ZERO-FIRST VALUE LOW-VALUES.
88 EXT-RANK-ZERO-LAST VALUE HIGH-VALUES.
15 EXT-RANK-SORT-VALUE PIC S9(9) COMP.
15 EXT-RANK-SORT-RATIO REDEFINES
EXT-RANK-SORT-VALUE PIC S9(7)V99 COMP.
15 FILLER PIC X(12).
05 EXT-PARM-ENTRY.
10 EXT-MATCHED-REPORT-TYPE PIC X(02).
10 FILLER PIC X(02).
***
*** THE FOLLOWING DATES ARE IN JULIAN FORMAT (CCYYDDD)
*** THE TIMES ARE IN 24 HOUR DISPLAY FORMAT (HH.MM.SS.TTTT)
***
10 EXT-START-DATE-TIME.
15 EXT-START-DATE PIC S9(7) COMP-3.
15 EXT-START-TIME.
20 HH PIC 99.
20 FILLER PIC X(01).
20 MM PIC 99.
20 FILLER PIC X(01).
20 SS PIC 99.
20 FILLER PIC X(01).
20 TTTT PIC 9(04).
10 EXT-STOP-DATE-TIME.
15 EXT-STOP-DATE PIC S9(7) COMP-3.
15 EXT-STOP-TIME.
20 HH PIC 99.
20 FILLER PIC X(01).
20 MM PIC 99.
20 FILLER PIC X(01).
20 SS PIC 99.
20 FILLER PIC X(01).
20 TTTT PIC 9(04).
10 EXT-INTERVAL-LENGTH PIC S9(5) COMP-3.
10 FILLER PIC X(01).
10 EXT-REPORT-CONTROL PIC X(36).
10 EXT-BILLING-TYPE REDEFINES
EXT-REPORT-CONTROL.
15 EXT-BILLING-LEVEL PIC X(01).
88 EXT-BILL-DETAIL VALUE '1'.
88 EXT-BILL-SUMMARY VALUE '3'.
88 EXT-BILL-SYSTEM VALUE '5'.
88 EXT-PRINT-BILL-DETAIL VALUE '1'.
88 EXT-PRINT-BILL-SUMMARY VALUE '1' '3'.
88 EXT-PRINT-BILL-SYSTEM VALUE '1' '3' '5'.
15 EXT-BILLING-LOW-HIGH.
20 EXT-BILL-NAME-LOW PIC X(16).
20 EXT-BILL-NAME-HIGH PIC X(16).
15 EXT-BILL-FILE PIC X(01).
88 EXT-BILL-YES VALUE 'Y'.
88 EXT-BILL-NO VALUE 'N'.
88 EXT-BILL-ONLY VALUE 'O'.
15 EXT-BILL-TYPEPROG PIC X(01).
88 EXT-BILL-ALL VALUE '0'.
88 EXT-BILL-ONLINE VALUE '1'.
88 EXT-BILL-BATCH VALUE '2'.
15 EXT-BILL-TYPENAME PIC X(01).
88 EXT-BILL-TRAN-ID VALUE '1'.
88 EXT-BILL-TERM-ID VALUE '2'.
88 EXT-BILL-OPER-ID VALUE '3'.
10 EXT-PROGRAM-TYPE REDEFINES
EXT-REPORT-CONTROL.
15 EXT-PROG-LEVEL PIC X(01).
88 EXT-PROG-DETAIL VALUE '1'.
88 EXT-PROG-SUMMARY VALUE '3'.
88 EXT-PROG-SYSTEM VALUE '5'.
88 EXT-PRINT-PROG-DETAIL VALUE '1'.
88 EXT-PRINT-PROG-SUMMARY VALUE '1' '3'.
88 EXT-PRINT-PROG-SYSTEM VALUE '1' '3' '5'.
15 EXT-PROGRAM-LOW-HIGH.
20 EXT-PROG-NAME-LOW PIC X(08).
20 EXT-PROG-NAME-HIGH PIC X(08).
10 EXT-HISUM-TYPE REDEFINES
EXT-REPORT-CONTROL.
15 EXT-HISUM-LEVEL PIC X(01).
88 EXT-HISUM-PROGRAM VALUE '2'.
88 EXT-HISUM-SYSTEM VALUE '5'.
88 EXT-HISUM-GRAND VALUE '6'.
10 EXT-RANKING-TYPE REDEFINES
EXT-REPORT-CONTROL.
15 EXT-RANK-NUMBER PIC S9(2) COMP-3.
15 EXT-RANK-PROG PIC X(01).
88 EXT-RANK-ALL VALUE '0'.
88 EXT-RANK-ONLINE VALUE '1'.
88 EXT-RANK-BATCH VALUE '2'.
15 EXT-RANK-ITEM PIC X(01).
88 EXT-RANK-RUN-UNITS VALUE '1'.
88 EXT-RANK-PAGE-READ VALUE '2'.
88 EXT-RANK-PAGE-WRITTEN VALUE '3'.
88 EXT-RANK-PAGE-IO VALUE '4'.
88 EXT-RANK-PAGE-RATIO VALUE '5'.
88 EXT-RANK-CALC-RATIO VALUE '6'.
88 EXT-RANK-VIA-RATIO VALUE '7'.
88 EXT-RANK-CPU-TIME VALUE '8'.
88 EXT-RANK-RATIO VALUE '5' THRU '7'.
15 EXT-RANK-HOW PIC X(02).
88 EXT-RANK-HIGHEST VALUE '01'.
88 EXT-RANK-LOWEST VALUE '02'.
88 EXT-RANK-LT VALUE '11'.
88 EXT-RANK-LE VALUE '12'.
88 EXT-RANK-GT VALUE '13'.
88 EXT-RANK-GE VALUE '14'.
88 EXT-RANK-LT-OR-GT VALUE '21'.
88 EXT-RANK-LE-OR-GE VALUE '22'.
88 EXT-RANK-GT-AND-LT VALUE '23'.
88 EXT-RANK-GE-AND-LE VALUE '24'.
88 EXT-RANK-OR VALUE '21' '22'.
88 EXT-RANK-AND VALUE '23' '24'.
88 EXT-RANK-NO-VALUES VALUE '01' '02'.
88 EXT-RANK-ONE-VALUE VALUE '11'
THRU '14'.
88 EXT-RANK-TWO-VALUES VALUE '21'
THRU '24'.
88 EXT-RANK-ASC-SORT VALUE '02' '13' '14'.
15 EXT-RANK-VALUE1 PIC S9(9) COMP-3.
15 EXT-RANK-VALUE2 PIC S9(9) COMP-3.
15 EXT-RANK-VALUE-TYPE PIC X(01).
88 EXT-RANK-ABSOLUTE VALUE '1'.
88 EXT-RANK-MEAN VALUE '2'.
88 EXT-RANK-MEDIAN VALUE '3'.
10 FILLER PIC X(02).
05 EXT-LOG-RECORD.
10 EXT-LOG-HEADER.
15 EXT-LOG-LENGTH PIC S9(4) COMP.
15 FILLER PIC X(02).
*** THE FOLLOWING 10 LEVEL IS FROM #LGRDS
10 FILLER.
*
*** THE FOLLOWING DATE IS IN SQL INTERNAL FORMAT
*** BITS 00-26 = NBR OF DAYS SINCE JANUARY 1, 0001
*** BITS 27-43 = NBR OF SECONDS SINCE MIDNIGHT OF THIS DAY
*** BITS 44-63 = NBR OF MICROSECONDS WITHIN THIS SECOND
*
15 EXT-LOG-SQL-DATE PIC S9(18) COMP.
15 EXT-LOG-DATE-TIME REDEFINES
EXT-LOG-SQL-DATE PIC X(08).
15 EXT-LOG-ID PIC X(08).
15 EXT-LOG-REC-TYPE PIC X(01).
88 EXT-VALID-LOG-REC VALUE '0' THRU '6'.
88 EXT-VALID-LOG-STAT-REC VALUE '6'.
*** THE FOLLOWING VALUE CLAUSE
*** CONTAINS X'76'
*** TYPE X'76' LOG RECORDS ARE CONTINUED IN THE NEXT
*** TYPE 6 RECORD ON THE LOG FILE.
88 EXT-STAT-HEX-76-LOG-REC VALUE ' '.
15 EXT-LOG-REC-TYPE-9 REDEFINES
EXT-LOG-REC-TYPE PIC 9(01).
15 EXT-LOG-REC-STATUS PIC X(01).
15 EXT-LOG-REC-TEXT-LEN PIC S9(4) COMP.
*** THE FOLLOWING 10 LEVEL IS FROM #STLDS. IT
*** INDICATES THE TYPE OF STATISTICS RECORD
*** WHEN EXT-LOG-REC-TYPE = C'6' OR X'76'
10 EXT-LOG-REC-STATS-PORTION.
15 EXT-LOG-STL-TYPE PIC X(01).
*** THE FOLLOWING VALUE CLAUSE
*** CONTAINS X'00' AND X'0A'
88 EXT-LOG-STL-VALID-TYPE VALUE ' ' THRU ' '.
*** THE FOLLOWING VALUE CLAUSES
*** CONTAIN X'00' THROUGH X'0A' RESPECTIVELY
88 EXT-LOG-STL-STARTUP VALUE ' '.
88 EXT-LOG-STL-SYSTEM VALUE ' '.
88 EXT-LOG-STL-TST VALUE ' '.
88 EXT-LOG-STL-TSB VALUE ' '.
88 EXT-LOG-STL-TDE VALUE ' '.
88 EXT-LOG-STL-PDE VALUE ' '.
88 EXT-LOG-STL-QDE VALUE ' '.
88 EXT-LOG-STL-PLE VALUE ' '.
88 EXT-LOG-STL-PTE VALUE ' '.
88 EXT-LOG-STL-ADS VALUE ' '.
88 EXT-LOG-STL-OTP VALUE ' '.
15 EXT-LOG-STL-ID PIC X(16).
15 EXT-LOG-STL-PDE-NAME REDEFINES
EXT-LOG-STL-ID PIC X(08).
15 EXT-LOG-STL-PTE-NAME REDEFINES
EXT-LOG-STL-ID PIC X(08).
15 EXT-LOG-STL-PLE-NAME REDEFINES
EXT-LOG-STL-ID PIC X(08).
15 EXT-LOG-STL-TDE-NAME REDEFINES
EXT-LOG-STL-ID PIC X(08).
15 EXT-LOG-STL-QDE-NAME REDEFINES
EXT-LOG-STL-ID PIC X(16).
15 FILLER PIC X(03).
*** THE FOLLOWING 10 LEVEL IS FROM #STRDS. IT
*** DESCRIBES THE FIELDS IN EACH STATISTICS BLOCK.
*** THE TYPE AND ORDER OF BLOCKS DEPENDS ON THE TYPE
*** OF STATISTICS RECORD (LOG-REC-TYPE)
***
*** CA IDMS/LOG ANALYZER IS ONLY CONCERNED WITH THE NON-HISTOGRAM
*** RECORDS FOR TASK-ID AND TRANSACTION (LOG-STL-TYPE 02 AND 03)
*** THESE CONTAIN THE DC-STATISTICS BLOCK FOLLOWED BY
*** THE DB-STATISTICS BLOCK FOLLOWED BY
*** THE HEADER BLOCK
10 EXT-LOG-STR-BLOCK.
15 EXT-LOG-STR-TYPE PIC X(01).
*** THE FOLLOWING VALUE CLAUSES
*** CONTAIN X'00' THROUGH X'0C' RESPECTIVELY
88 EXT-LOG-STR-HEADER VALUE ' '.
88 EXT-LOG-STR-SYSTEM VALUE ' '.
88 EXT-LOG-STR-DB VALUE ' '.
88 EXT-LOG-STR-DC VALUE ' '.
88 EXT-LOG-STR-SQL VALUE ' '.
88 EXT-LOG-STR-TDE VALUE ' '.
88 EXT-LOG-STR-PDE VALUE ' '.
88 EXT-LOG-STR-QDE VALUE ' '.
88 EXT-LOG-STR-PLE VALUE ' '.
88 EXT-LOG-STR-PTE VALUE ' '.
88 EXT-LOG-STR-ASB VALUE ' '.
88 EXT-LOG-STR-HIS VALUE ' '.
88 EXT-LOG-STR-DDS VALUE ' '.
15 FILLER PIC X(01).
15 EXT-LOG-STR-VARIANT-LEN PIC S9(4) COMP.
15 EXT-LOG-STR-ID PIC X(04).
88 EXT-LOG-STR-R102 VALUE 'R102'.
88 EXT-LOG-STR-R120 VALUE 'R120'.
10 EXT-LOG-STATISTICS-VARIANT PIC X(324).
*** THE FOLLOWING 10 LEVEL IS A CONTINUATION OF #STRDS. IT
*** DESCRIBES THE COUNTS IN EACH STATISTICS BLOCK.
10 EXT-LOG-COUNTS REDEFINES
EXT-LOG-DC-STATISTICS-VARIANT.
15 EXT-LOG-DC-STATISTICS COMP.
20 EXT-TST-PGM-CALLED PIC S9(9).
20 EXT-TST-PGM-LOADED PIC S9(9).
20 EXT-TST-TRM-READS PIC S9(9).
20 EXT-TST-TRM-WRITES PIC S9(9).
20 EXT-TST-TRM-ERRORS PIC S9(9).
20 EXT-TST-STG-GETS PIC S9(9).
20 EXT-TST-SCR-GETS PIC S9(9).
20 EXT-TST-SCR-PUTS PIC S9(9).
20 EXT-TST-SCR-DELETES PIC S9(9).
20 EXT-TST-QUE-GETS PIC S9(9).
20 EXT-TST-QUE-PUTS PIC S9(9).
20 EXT-TST-QUE-DELETES PIC S9(9).
20 EXT-TST-GET-TIME PIC S9(9).
20 EXT-TST-SET-TIME PIC S9(9).
20 EXT-TST-DB-REQUESTS PIC S9(9).
20 EXT-TST-STK-HI-WATER-MARK PIC S9(9).
20 EXT-TST-USER-TIME PIC S9(9).
20 EXT-TST-SYSTEM-TIME PIC S9(9).
20 EXT-TST-WAIT-TIME PIC S9(9).
20 EXT-TST-MAX-RCE PIC S9(9).
20 EXT-TST-MAX-RLE PIC S9(9).
20 EXT-TST-MAX-DPE PIC S9(9).
20 EXT-TST-STG-HI-WATER-MARK PIC S9(9).
20 EXT-TST-STGF-REQUESTS PIC S9(9).
20 EXT-TST-DC-REQUESTS PIC S9(9).
15 FILLER PIC X(08).
15 EXT-LOG-DB-STATISTICS COMP.
20 EXT-TST-PAGES-READ PIC S9(9).
20 EXT-TST-PAGES-WRITTEN PIC S9(9).
20 EXT-TST-PAGES-REQUESTED PIC S9(9).
20 EXT-TST-CALC-ON-HOME PIC S9(9).
20 EXT-TST-CALCS-IN-OVERFLOW PIC S9(9).
20 EXT-TST-VIAS-ON-HOME PIC S9(9).
20 EXT-TST-VIAS-IN-OVERFLOW PIC S9(9).
20 EXT-TST-RECS-REQUESTED PIC S9(9).
20 EXT-TST-RECS-MADE-CURRENT PIC S9(9).
20 EXT-TST-CALLS-TO-IDMS PIC S9(9).
20 EXT-TST-FRAGMENTS-STORED PIC S9(9).
20 EXT-TST-RECS-RELOCATED PIC S9(9).
20 EXT-TST-LOCKS-ACQUIRED PIC S9(9).
20 EXT-TST-SHARE-LOCKS PIC S9(9).
20 EXT-TST-NON-SHARE-LOCKS PIC S9(9).
20 EXT-TST-LOCKS-FREED PIC S9(9).
20 EXT-TST-SR8-SPLINTS PIC S9(9).
20 EXT-TST-SR8-SPAWNS PIC S9(9).
20 EXT-TST-SR8S-STORED PIC S9(9).
20 EXT-TST-SR8S-ERASED PIC S9(9).
20 EXT-TST-SR7S-STORED PIC S9(9).
20 EXT-TST-SR7S-ERASED PIC S9(9).
20 EXT-TST-BTREE-SEARCHES PIC S9(9).
20 EXT-TST-BTREE-LEVELS PIC S9(9).
20 EXT-TST-ORPHANS-ADOPTED PIC S9(9).
20 EXT-TST-LVLS-SEARCHED-BEST PIC S9(4).
20 EXT-TST-LVLS-SEARCHED-WORST PIC S9(4).
15 FILLER PIC X(08).
15 EXT-LOG-STATISTICS-HEADER.
20 EXT-LOG-ERUS-ID.
25 EXT-LOG-ERUS-ERE.
30 EXT-LOG-ERE-JOB-NAME PIC X(08).
*** THE FOLLOWING DATE IS IN JULIAN FORMAT (YYDDD)
*** FOR OS THE TIME IS IN 1/100 SEC
*** IE. DIVISION BY 100 YIELDS HHMMSS
*** FOR DOS BATCH/CICS, THE TIME IS IN UNITS OF 1/10000 SEC
30 EXT-LOG-ERE-JOB-START-TIME PIC X(03).
30 EXT-LOG-ERE-JOB-START-DATE PIC S9(5)
COMP-3.
30 EXT-LOG-ERE-JOB-STEP-TIME PIC X(03).
30 EXT-LOG-ERE-ID PIC X(04).
88 EXT-LOG-ERE-VM VALUE ' V.'
88 EXT-LOG-ERE-CICS VALUE ' C'.
30 EXT-LOG-ERE-EXT-ONL.
35 EXT-LOG-ERE-TRAN-ID PIC X(04).
35 EXT-LOG-ERE-TERM-ID PIC X(04).
35 EXT-LOG-ERE-OPER-ID PIC X(03).
35 FILLER PIC X(05).
30 EXT-LOG-ERE-EXT-BTC REDEFINES
EXT-LOG-ERE-EXT-ONL.
35 EXT-LOG-ERE-ACCT PIC X(16).
30 EXT-LOG-ERE-JOB-STEP-DATE PIC X(03).
25 EXT-LOG-ERUS-PGM-NAME.
30 FILLER PIC X(04).
88 EXT-LOG-ERUS-IDMS-PGM
VALUE 'IDMS'.
30 FILLER PIC X(04).
20 EXT-LOG-DC-ID REDEFINES
EXT-LOG-ERUS-ID.
25 EXT-LOG-USER-ID.
30 EXT-LOG-USER-ID-8 PIC X(08).
30 FILLER PIC X(24).
25 EXT-LOG-LTERM-ID PIC X(08).
25 EXT-LOG-TASK-CODE PIC X(08).
20 EXT-LOG-TASK-ID PIC S9(9) COMP.
***
*** THE FOLLOWING COUNTS ARE NOT IN THE ARCHIVE LOG RECORD;
*** THEY ARE COMPUTED BY USLMTCH
***
15 EXT-USL-STATS.
20 EXT-USL-PG-IOS-SUM PIC S9(9) COMP.
20 EXT-USL-CPU-TIME-SUM PIC S9(9) COMP.
20 EXT-USL-PGREQ-PGREAD-RATIO PIC S9(7)V99 COMP.
20 EXT-USL-RECREQ-PGREAD-RATIO PIC S9(7)V99 COMP.
20 EXT-USL-RECREQ-RECCUR-RATIO PIC S9(7)V99 COMP.
20 EXT-USL-CALCOVER-HOME-RATIO PIC S9(7)V99 COMP.
20 EXT-USL-VIASOVER-HOME-RATIO PIC S9(7)V99 COMP.
20 EXT-USL-VALUE-TO-RANK-BY PIC S9(9) COMP.
20 EXT-USL-VALUE-TO-RANK-BY-RATIO REDEFINES
EXT-USL-VALUE-TO RANK-BY PIC S9(7)V99 COMP.
*** THE FOLLOWING DATE IS IN JULIAN FORMAT (CCYYDDD)
*** THE TIME IS IN 24 HOUR DISPLAY FORMAT (HH.MM.SS.TTTT)
15 EXT-USL-DATE-TIME.
20 EXT-LOG-DATE PIC S9(7) COMP-3.
20 EXT-LOG-TIME.
25 HH PIC 9(02).
25 FILLER PIC X(01).
25 MM PIC 9(02).
25 FILLER PIC X(01).
25 SS PIC 9(02).
25 FILER PIC X(01).
25 TTTT PIC 9(04).
15 FILLER PIC X(03).
10 EXT-TST-COUNT REDEFINES
EXT-LOG-COUNTS OCCURS 80 TIMES
PIC S9(9) COMP.
05 EXT-RANK-RECORD REDEFINES
EXT-LOG-RECORD.
10 EXT-RANK-PGMNAME PIC X(08).
10 EXT-RANK-ONL-BTC PIC X(01).
88 EXT-RANK-ONL VALUE '1'.
88 EXT-RANK-BTC VALUE '2'.
10 FILLER PIC X(03).
05 EXT-MEDIAN-RECORD REDEFINES
EXT-LOG-RECORD.
10 EXT-MEDIAN-POSITION PIC S9(9) COMP.
10 EXT-COUNT-LEVEL PIC S9(9) COMP.
10 FILLER PIC X(04).
05 EXT-HISUM-RECORD REDEFINES
EXT-LOG-RECORD.
10 FILLER PIC X(12).
05 EXT-HIBPU-RECORD REDEFINES
EXT-LOG-RECORD.
10 FILLER PIC X(12).
|
Copyright © 2014 CA.
All rights reserved.
|
|