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

19
Copybook/DTSIR140.cpy Normal file
View File

@ -0,0 +1,19 @@
00001 ***** 02/26/08
00002 * DTSIR140
00003 * DTSIR140 WEB IMPORT ERROR MESSAGE REPORT RECORD LV001
00004 * DTSIR140
00005 * DTSIR140
00006 * 12/01/2006 INITIAL DEVELOPMENT GD DTSIR140
00007 * DTSIR140
00008 ***** DTSIR140
00009 DTSIR140
00010 10 R140-LENGTH PIC S9(04) COMP. DTSIR140
00011 DTSIR140
00012 10 R140-SORT-AREA. DTSIR140
00013 15 R140-REC-TYPE PIC X(03) VALUE '140'. DTSIR140
00014 15 R140-EMP-NO PIC S9(07) COMP-3. DTSIR140
00015 DTSIR140
00016 10 R140-DATA-AREA. DTSIR140
00017 15 R140-RUN-DATE PIC S9(09) COMP-3. DTSIR140
00018 15 R140-RECORD-DESC PIC X(20). DTSIR140
00019 15 R140-MESSAGE PIC X(80). DTSIR140