28 lines
2.1 KiB
COBOL
28 lines
2.1 KiB
COBOL
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
|