DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

25
Copybook/DTSIL599.cpy Normal file
View 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