13 lines
972 B
COBOL
13 lines
972 B
COBOL
00001 ***** 09/15/98
|
|
00002 * DTSIRVAR
|
|
00003 * DTSIRVAR VARIABLE LENGTH REPORT RECORD DEFINITION. LV003
|
|
00004 * DTSIRVAR
|
|
00005 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00006 * CL**2
|
|
00007 ***** DTSIRVAR
|
|
00008 CL**2
|
|
00009 10 RVAR-LENGTH PIC S9(04) COMP. DTSIRVAR
|
|
00010 10 RVAR-CHAR OCCURS 1 TO 4087 TIMES DTSIRVAR
|
|
00011 DEPENDING ON VAR-CHAR-CNT DTSIRVAR
|
|
00012 PIC X(01). DTSIRVAR
|