26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 03/01/12
|
|
00002 * DTSIL599
|
|
00003 * DTSIL599 BARCODE DATA TO UPDATE RETURN MAIL INDICATOR LV001
|
|
00004 * MODULE LINKAGE. DTSIL599
|
|
00005 * DTSIL599
|
|
00006 * DTSIL599
|
|
00007 * 03/10/2007 CREATED FOR DC. ZL1 DTSIL599
|
|
00008 ***** DTSIL599
|
|
00009 DTSIL599
|
|
00010 10 L599-OPTION PIC X(01). DTSIL599
|
|
00011 88 L599-BARCODE-OK-88 VALUE '0'. DTSIL599
|
|
00012 88 L599-BARCODE-NOT-OK-88 VALUE '1'. DTSIL599
|
|
00013 DTSIL599
|
|
00014 10 L599-TRAN-AREA. DTSIL599
|
|
00015 15 L599-EMP-NO PIC S9(06) COMP-3. DTSIL599
|
|
00016 15 L599-EMP-NAME PIC X(04). DTSIL599
|
|
00017 DTSIL599
|
|
00018 10 FILLER PIC X(20). DTSIL599
|
|
00019 DTSIL599
|
|
00020 DTSIL599
|
|
00021 10 L599-RETURN-AREA. DTSIL599
|
|
00022 15 L599-BARCODE-FONT PIC X(06). DTSIL599
|
|
00023 15 L599-BARCODED-DATA PIC X(50). DTSIL599
|
|
00024 DTSIL599
|
|
00025 10 FILLER PIC X(20). DTSIL599
|