giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

29
Copybook/DTSIT021.cpy Normal file
View File

@ -0,0 +1,29 @@
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
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