Decollate the CDAM file. Use DO INDEX to index the report and use the control line created by the packing program for index value extraction. Use DO MIGRATE to control migration of the CDAM file. The sample report decollation mission (in file DECMIS.TXT) is illustrated below.
When planning the decollation mission definition, the locations of values to be extracted (name, index values, and so on) are based on the BLOB description line that is added by the CTVPACK program. In the current version of the packing program, the actual key specified in the control file begins in column 33.
In the sample report decollating mission illustrated below, character string ‘KEY’ is used as a mask in columns 29 through 31 to ensure that valid index values are extracted by the DO INDEX statement.
Figure 54 Sample Report Decollating Mission
CATEGORY DEMOLOAN JOBNAME N50LOAN GENERIC MONITOR
===========================================================================
DEF COPIES LVL USER DEST MAX COPIES
===========================================================================
ON DSN = PREFIX=N50.GIF
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
| WHEN LINE - COL - PRINT REF NXT CT ND/OR
STRING =
DO USER = DEMO LVL LINE COL - S A T
SYNONYM = CONCAT =
DO INDEX = ACCOUNT LINE 001 COL 043 - 048 R G
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
SUBINDX = LVL LINE COL -
MASK = LINE - COL - REC
===========================================================================
INDEX LEVEL DISPLAY
ACCOUNT
===========================================================================
DO INDEX = AMOUNT LINE 001 COL 050 - 054 R G
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
02 SUBINDX = ACCOUNT LVL 02 LINE 001 COL 043 - 048
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
SUBINDX = LVL LINE COL -
MASK = LINE - COL - REC
===========================================================================
INDEX LEVEL DISPLAY
AMOUNT / ACCOUNT
===========================================================================
DO INDEX = PERIOD LINE 001 COL 056 - 057 R G
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
02 SUBINDX = ACCOUNT LVL 02 LINE 001 COL 043 - 048
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
SUBINDX = LVL LINE COL -
MASK = LINE - COL - REC
===========================================================================
INDEX LEVEL DISPLAY
PERIOD / ACCOUNT
===========================================================================
DO INDEX = EFFECTIVE_DATE LINE 001 COL 059 - 066 R G
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
02 SUBINDX = ACCOUNT LVL 02 LINE 001 COL 043 - 048
MASK = KEY LINE 001 - 001 COL 029 - 031 REC N
SUBINDX = LVL LINE COL -
MASK = LINE - COL - REC
===========================================================================
INDEX LEVEL DISPLAY
EFFECTIVE_DATE / ACCOUNT
===========================================================================
DO NAME = LOAN-ARCHIVE-DEMO
DO
| WHEN LINE - COL - PRINT REF NXT CT ND/OR
STRING =
Parent Topic |