DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
11
Copybook/EFTIRVAR.cpy
Normal file
11
Copybook/EFTIRVAR.cpy
Normal file
@ -0,0 +1,11 @@
|
||||
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
|
||||
Reference in New Issue
Block a user