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

55
Copybook/DTSIR604.cpy Normal file
View File

@ -0,0 +1,55 @@
00001 ***** 01/19/99
00002 * DTSIR604
00003 * DTSIR604 FIELD ASSIGNMENT WAGE EXTRACT PARAMETER GENERATION LV015
00004 * REPORT RECORDS. DTSIR604
00005 * DTSIR604
00006 * REVISED FOR DC - 11/18/1998 GD DTSIR604
00007 ***** DTSIR604
00008 SKIP1 DTSIR604
00009 10 R604-LENGTH PIC S9(04) COMP. DTSIR604
00010 SKIP1 DTSIR604
00011 10 R604-SORT-AREA. DTSIR604
00012 15 R604-REC-TYPE PIC X(03). CL*11
00013 15 R604-EMP-NO PIC S9(07) COMP-3. DTSIR604
00014 SKIP1 DTSIR604
00015 10 R604-DATA-AREA. DTSIR604
00016 15 R604-PRIMARY-NAME PIC X(40). CL**5
00017 15 R604-START-YRQ PIC S9(05) COMP-3. DTSIR604
00018 15 R604-LAST-YRQ PIC S9(05) COMP-3. DTSIR604
00019 15 R604-ASSIGN-NO PIC S9(09) COMP-3. DTSIR604
00020 15 R604-FIELD-REP-ID PIC X(02). DTSIR604
00021 15 R604-FIELD-REP-OPID PIC X(08). DTSIR604
00022 15 R604-MAIL-ADDR. CL**5
00023 20 R604-MAIL-LINE OCCURS 5 TIMES CL**5
00024 INDEXED BY R604-MAIL-IDX CL**5
00025 PIC X(40). DTSIR604
00026 15 R604-MAIL-VOICE-1 PIC X(15). CL**5
00027 15 R604-PHYS-ADDR. CL**5
00028 20 R604-PHYS-LINE OCCURS 5 TIMES CL**5
00029 INDEXED BY R604-PHYS-IDX CL**5
00030 PIC X(40). DTSIR604
00031 15 R604-PHYS-VOICE-1 PIC X(15). CL**5
00032 15 R604-QTR-OCCURS OCCURS 04 TIMES CL*13
00033 INDEXED BY R604-QTR-IDX. CL**6
00034 20 R604-QTR-YRQ PIC S9(05) COMP-3. CL**6
00035 20 R604-QTR-CURR-RPT-TYPE CL**6
00036 PIC X(01). CL**6
00037 20 R604-QTR-UI-RATE PIC S9(01)V9(04) CL**6
00038 COMP-3. CL**6
00039 20 R604-QTR-WAGE-CHNG-DATE CL**6
00040 PIC S9(09) COMP-3. CL**6
00041 20 R604-QTR-TOT-WAGE PIC S9(11)V99 CL**6
00042 COMP-3. CL**6
00043 20 R604-QTR-EXCESS-WAGE CL**6
00044 PIC S9(11)V99 CL**6
00045 COMP-3. CL**6
00046 20 R604-QTR-TAX-WAGE PIC S9(11)V99 CL**6
00047 COMP-3. CL**9
00048 15 R604-OPO-CNT PIC S9(04) COMP. CL**8
00049 15 R604-OPO-DATA. CL*15
00050 20 R604-OPO-LINE OCCURS 5 TIMES CL*15
00051 INDEXED BY R604-OPO-IDX. CL*15
00052 25 R604-OPO-NAME PIC X(32). CL*15
00053 25 R604-OPO-TITLE PIC X(20). CL*15
00054 25 R604-OPO-SSN PIC S9(09) COMP-3. CL*15
00055 15 R604-TAXABLE-WAGE-BASE PIC S9(07)V99 COMP-3. CL*14