DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
19
Copybook/DTSIR140.cpy
Normal file
19
Copybook/DTSIR140.cpy
Normal 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
|
||||
Reference in New Issue
Block a user