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

38
Copybook/DTSIQHST.cpy Normal file
View File

@ -0,0 +1,38 @@
00001 *************************************************************** 01/07/99
00002 * USED IN DTSV1500 DTSIQHST
00003 *************************************************************** LV004
00004 02 SORT-KEY. CL**2
00005 03 QHST-EMPL-ACCT-NO PIC 9(6) COMP-3. CL**2
00006 03 QHST-RECORD-TYPE PIC 9. DTSIQHST
00007 88 QHST-RECORD VALUE 4. CL**2
00008 03 QHST-YRQ PIC 9(3) COMP-3. CL**2
00009 03 QHST-DATE PIC 9(5) COMP-3. CL**2
00010 03 QHST-BATCH PIC 9(4) COMP-3. CL**2
00011 03 QHST-POSITION PIC 9(3) COMP-3. CL**2
00012 03 QHST-CDE PIC 9. DTSIQHST
00013 02 QTR-YR-Q PIC 9(3) COMP-3. CL**4
00014 02 RATE PIC V999 COMP-3. CL**2
00015 02 QTR-RCV-DTE PIC 9(3) COMP-3. CL**4
00016 02 TOT-WAGE PIC S9(8)V99 COMP-3. CL**2
00017 02 TAX-WAGE PIC S9(8)V99 COMP-3. CL**2
00018 02 RPTD-WAGE PIC S9(8)V99 COMP-3. CL**2
00019 02 COMP-TAX PIC S9(8)V99 COMP-3. CL**2
00020 02 RPTD-PAID PIC S9(6)V99 COMP-3. CL**2
00021 02 PD-CON PIC S9(6)V99 COMP-3. CL**2
00022 02 SOLVENCY-TAX-PD PIC S9(6)V99 COMP-3. CL**2
00023 02 PD-INT PIC S9(6)V99 COMP-3. CL**2
00024 02 PD-PEN PIC S9(6)V99 COMP-3. CL**2
00025 02 CONTRIB-DUE PIC S9(6)V99 COMP-3. CL**2
00026 02 PEN-DUE PIC S9(5)V99 COMP-3. CL**2
00027 02 INT-DUE PIC S9(6)V99 COMP-3. CL**2
00028 02 YRR PIC 9. CL**2
00029 02 INSTAL-CDE PIC X. CL**2
00030 02 LEGAL-CDE PIC X. CL**2
00031 02 WAGE-RPT PIC X. CL**2
00032 02 NO-R-NSF-CD PIC X. CL**2
00033 02 1ST-MO PIC S9(5) COMP-3. CL**2
00034 02 2ND-MO PIC S9(5) COMP-3. CL**2
00035 02 3RD-MO PIC S9(5) COMP-3. CL**2
00036 02 ESTIMATION-CDE PIC 9. CL**2
00037 02 EDIT-CDE PIC 9. CL**2
00038 02 SURCHARGE-PD PIC S9(6)V99 COMP-3. CL**2