12 lines
891 B
COBOL
12 lines
891 B
COBOL
00001 ***** 10/01/03
|
|
00002 * EFTIRVAR
|
|
00003 * EFTIRVAR VARIABLE LENGTH REPORT RECORD DEFINITION. LV014
|
|
00004 * EFTIRVAR
|
|
00005 * CL**2
|
|
00006 ***** EFTIRVAR
|
|
00007 CL**2
|
|
00008 10 RVAR-LENGTH PIC S9(04) COMP. CL*14
|
|
00009 10 RVAR-CHAR OCCURS 1 TO 2394 TIMES CL*14
|
|
00010 DEPENDING ON EFT-CHAR-CNT CL*10
|
|
00011 PIC X(01). CL*10
|