DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
27
Copybook/DTSIL019.cpy
Normal file
27
Copybook/DTSIL019.cpy
Normal file
@ -0,0 +1,27 @@
|
||||
00001 ***** 08/24/98
|
||||
00002 * DTSIL019
|
||||
00003 * DTSIL019 DOCUMENT NO FROM SCREEN FORMAT/EDIT LV003
|
||||
00004 * MODULE LINKAGE. DTSIL019
|
||||
00005 * DTSIL019
|
||||
00006 ***** DTSIL019
|
||||
00007 SKIP1 DTSIL019
|
||||
00008 10 L019-RESULT-IND PIC X(01). DTSIL019
|
||||
00009 88 L019-NO-ENTRY VALUE '0'. DTSIL019
|
||||
00010 88 L019-VALID VALUE '1'. DTSIL019
|
||||
00011 88 L019-NOT-VALID VALUE '2'. DTSIL019
|
||||
00012 SKIP1 DTSIL019
|
||||
00013 10 L019-S-DOC-NO. DTSIL019
|
||||
00014 15 L019-S-BATCH-NO-AREA. DTSIL019
|
||||
00015 20 L019-S-BATCH-NO-L PIC S9(04) COMP. DTSIL019
|
||||
00016 20 L019-S-BATCH-NO-A PIC X(01). DTSIL019
|
||||
00017 20 L019-S-BATCH-NO PIC X(05). DTSIL019
|
||||
00018 15 L019-S-ITEM-NO-AREA. DTSIL019
|
||||
00019 20 L019-S-ITEM-NO-L PIC S9(04) COMP. DTSIL019
|
||||
00020 20 L019-S-ITEM-NO-A PIC X(01). DTSIL019
|
||||
00021 20 L019-S-ITEM-NO PIC X(03). DTSIL019
|
||||
00022 SKIP1 DTSIL019
|
||||
00023 10 L019-DOC-NO. DTSIL019
|
||||
00024 15 L019-BATCH-NO PIC S9(05) COMP-3. DTSIL019
|
||||
00025 15 L019-ITEM-NO PIC S9(03) COMP-3. DTSIL019
|
||||
00026 SKIP1 DTSIL019
|
||||
00027 10 FILLER PIC X(10). DTSIL019
|
||||
Reference in New Issue
Block a user