20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
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
|