DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
25
Copybook/DTSIL599.cpy
Normal file
25
Copybook/DTSIL599.cpy
Normal file
@ -0,0 +1,25 @@
|
||||
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
|
||||
Reference in New Issue
Block a user