DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
15
Copybook/EFTIL100.cpy
Normal file
15
Copybook/EFTIL100.cpy
Normal file
@ -0,0 +1,15 @@
|
||||
00001 ***** 09/02/03
|
||||
00002 * EFTIL100
|
||||
00003 * EFTIL100 GOVONE E.F.T PROCESS LINKAGE LV009
|
||||
00004 * EFTIL100
|
||||
00005 * THIS LINKAGE AREA IS FORMATTED IN EFTBD100, CL**2
|
||||
00006 * THE EFT DRIVER PROGRAM CL**2
|
||||
00007 * EFTIL100
|
||||
00008 ***** EFTIL100
|
||||
00009 10 EFT-L100-COMMAND-CODE PIC X(01). CL**3
|
||||
00010 88 EFT-L100-CMD-INIT-88 VALUE '0'. CL**3
|
||||
00011 88 EFT-L100-CMD-PROCESS-88 VALUE '1'. CL**3
|
||||
00012 88 EFT-L100-CMD-TERMINATE-88 VALUE '2'. CL**3
|
||||
00013 10 EFT-L100-REPORT-DATE PIC X(10). CL**3
|
||||
00014 10 EFT-L100-SYSTEM-DATE PIC X(08). CL**3
|
||||
00015 10 EFT-L100-FILLER PIC X(51). CL**3
|
||||
Reference in New Issue
Block a user