31 lines
2.4 KiB
COBOL
31 lines
2.4 KiB
COBOL
00001 ***** 09/23/98
|
|
00002 * DTSIT021
|
|
00003 * DTSIT021 FIELD SUPPORT DOWNLOAD TRANSACTION RECORD. LV002
|
|
00004 * DTSIT021
|
|
00005 * CL**2
|
|
00006 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIT021
|
|
00009 CL**2
|
|
00010 10 T021-LENGTH PIC S9(04) COMP. CL**2
|
|
00011 CL**2
|
|
00012 10 T021-COMMON-AREA. DTSIT021
|
|
00013 * 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021
|
|
RCODE 15 T021-REC-TYPE PIC X(03). DTSIT021
|
|
00014 15 T021-EMP-NO PIC S9(07) COMP-3. DTSIT021
|
|
00015 15 T021-ORIGIN PIC X(10). DTSIT021
|
|
00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021
|
|
00017 20 T021-OP-ID PIC X(08). DTSIT021
|
|
00018 20 T021-SCR-ID PIC X(02). DTSIT021
|
|
00019 15 T021-SYS-DATE PIC S9(09) COMP-3. DTSIT021
|
|
00020 15 T021-SYS-TIME PIC S9(07) COMP-3. DTSIT021
|
|
00021 CL**2
|
|
00022 10 T021-DATA-AREA. DTSIT021
|
|
00023 15 T021-TRN-CD PIC X(02). DTSIT021
|
|
00024 88 T021-DOWNLOAD-TAX VALUE '01'. DTSIT021
|
|
00025 88 T021-DOWNLOAD-WAGE VALUE '02'. DTSIT021
|
|
00026 CL**2
|
|
00027 15 T021-ASSIGN-NO PIC S9(09) COMP-3. DTSIT021
|
|
00028 CL**2
|
|
00029 15 FILLER PIC X(29). DTSIT021
|