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

53
Copybook/DTSIT036.cpy Normal file
View File

@ -0,0 +1,53 @@
00001 ***** 08/27/99
00002 * DTSIT036
00003 * DTSIT036 PRINT UC 30 AND NOTICE OF MISSING WAGE AND LV005
00004 * CONTRIBUTION REPORT (R109) TRANSACTION RECORD. CL**3
00005 * CL**3
00006 * CL**2
00007 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00008 * CL**2
00009 ***** DTSIT036
00010 CL**2
00011 10 T036-LENGTH PIC S9(04) COMP. CL**2
00012 CL**2
00013 10 T036-COMMON-AREA. DTSIT036
00014 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036
00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036
00016 15 T036-ORIGIN PIC X(10). DTSIT036
00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036
00018 20 T036-OP-ID PIC X(08). DTSIT036
00019 20 T036-SCR-ID PIC X(02). DTSIT036
00020 15 T036-SYS-DATE PIC S9(09) COMP-3. DTSIT036
00021 15 T036-SYS-TIME PIC S9(07) COMP-3. DTSIT036
00022 CL**2
00023 10 T036-DATA-AREA. DTSIT036
00024 15 T036-TRN-CD PIC X(02). DTSIT036
00025 88 T036-LIAB-DETER VALUE '01'. DTSIT036
00026 88 T036-REQUEST VALUE '02'. DTSIT036
00027 88 T036-INACTIVATION VALUE '03'. DTSIT036
00028 CL**2
00029 15 T036-RESP-OP-ID PIC X(08). DTSIT036
00030 CL**2
00031 15 T036-START-YRQ PIC S9(05) COMP-3. DTSIT036
00032 CL**2
00033 15 T036-END-YRQ PIC S9(05) COMP-3. DTSIT036
00034 CL**2
00035 15 T036-FORCE-PRINT-IND PIC X(01). DTSIT036
00036 88 T036-FORCE-PRINT VALUE 'Y'. DTSIT036
00037 88 T036-NO-FORCE-PRINT VALUE 'N'. DTSIT036
00038 CL**2
00039 15 T036-WAIVER-START-YRQ PIC S9(05) COMP-3. CL**2
00040 CL**2
00041 15 T036-WAIVER-END-YRQ PIC S9(05) COMP-3. CL**2
00042 CL**2
00043 15 T036-WAIVER-EXT-DATE PIC S9(09) COMP-3. CL**2
00044 CL**2
00045 15 T036-ADDR-TYPE PIC X(01). DTSIT036
00046 88 T036-TAX-ADDR-88 VALUE 'T'. CL**5
00047 88 T036-TAA-ADDR-88 VALUE 'A'. DTSIT036
00048 88 T036-OPO-ADDR-88 VALUE 'O'. DTSIT036
00049 88 T036-PHY-ADDR-88 VALUE 'P'. CL**4
00050 CL**2
00051 15 T036-ADDR-ESTB-ABSTIME PIC S9(15) COMP-3. CL**3
00052 CL**2
00053 15 FILLER PIC X(31). CL**3