DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
18
Copybook/DTSIL131.cpy
Normal file
18
Copybook/DTSIL131.cpy
Normal file
@ -0,0 +1,18 @@
|
||||
00001 ***** 07/27/98
|
||||
00002 * DTSIL131
|
||||
00003 * MACIL131 JOB SERVICE CODE AND AREA CODE / LV001
|
||||
00004 * JOB SERVICE OFFICE MODULE LINKAGE. DTSIL131
|
||||
00005 * DTSIL131
|
||||
00006 ***** DTSIL131
|
||||
00007 SKIP1 DTSIL131
|
||||
00008 10 L131-LENGTH PIC S9(04) COMP VALUE +32. DTSIL131
|
||||
00009 SKIP1 DTSIL131
|
||||
00010 10 L131-JS-ZIP PIC X(10). DTSIL131
|
||||
00011 10 L131-AREA-CD PIC S9(03) COMP-3. DTSIL131
|
||||
00012 SKIP1 DTSIL131
|
||||
00013 10 L131-RESULT-IND PIC X(01). DTSIL131
|
||||
00014 88 L131-OK VALUE '1'. DTSIL131
|
||||
00015 SKIP1 DTSIL131
|
||||
00016 10 L131-JS-OFFICE-ID PIC S9(03) COMP-3. DTSIL131
|
||||
00017 SKIP1 DTSIL131
|
||||
00018 10 FILLER PIC X(15). DTSIL131
|
||||
Reference in New Issue
Block a user