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

85
Copybook/DTSIR607.cpy Normal file
View File

@ -0,0 +1,85 @@
00001 ***** 12/17/98
00002 * 12/06/98 REVIEWED BY D.SHEPPPERSON DTSIR607
00003 * LV017
00004 * DTSIR607 ASSIGNMENT DETAIL EXPORT REPORT RECORD. CL**2
00005 * DTSIR607
00006 * NOTE: THERE IS EXACTLY ONE REPORT RECORD FOR EVERY DTSIR607
00007 * FIELD ASSIGNMENT COUNTED ON THE REPORT. THE DTSIR607
00008 * EXTRACT MODULE WILL NEED TO SCAN ALL MAUY DTSIR607
00009 * RECORDS FOR A GIVEN ASSIGNMENT TO DETERMINE: DTSIR607
00010 * DTSIR607
00011 * R607-TOT-GROSS-PAYROLL DTSIR607
00012 * R607-CHANGE-AUDIT-IND DTSIR607
00013 * R607-TOT-UNDER-TOT-WAGE DTSIR607
00014 * R607-TOT-UNDER-TAX-WAGE DTSIR607
00015 * R607-TOT-UNDER-CONTRIB DTSIR607
00016 * R607-TOT-OVER-TOT-WAGE DTSIR607
00017 * R607-TOT-OVER-TAX-WAGE DTSIR607
00018 * R607-TOT-OVER-CONTRIB DTSIR607
00019 * DTSIR607
00020 ***** DTSIR607
00021 SKIP1 DTSIR607
00022 10 R607-LENGTH PIC S9(04) COMP. CL**2
00023 SKIP1 DTSIR607
00024 10 R607-SORT-AREA. DTSIR607
00025 15 R607-REC-TYPE PIC X(03). CL**2
00026 15 R607-FIELD-REP-ID PIC X(02). DTSIR607
00027 15 R607-ASSIGN-NO PIC S9(09) COMP-3. DTSIR607
00028 SKIP1 CL**6
00029 10 R607-DATA-AREA. DTSIR607
00030 15 R607-PARM-AREA. CL**7
00031 20 R607-PARM-COMPL-START PIC S9(09) COMP-3. CL**7
00032 20 R607-PARM-COMPL-END PIC S9(09) COMP-3. CL**7
00033 20 R607-PARM-PROCESS-START PIC S9(09) COMP-3. CL**7
00034 20 R607-PARM-PROCESS-END PIC S9(09) COMP-3. CL**7
00035 20 R607-PARM-ASSIGN-CNT PIC S9(04) COMP. CL**7
00036 20 R607-PARM-ASSIGN-TYPE OCCURS 5 CL**7
00037 INDEXED BY R607-PARM-ASSIGN-IDX CL**7
00038 PIC X(02). CL**7
00039 20 R607-PARM-FLD-REP-ID-CNT PIC S9(04) COMP. CL*12
00040 20 R607-PARM-FLD-REP-ID OCCURS 5 TIMES CL*12
00041 INDEXED BY R607-PARM-FLD-REP-ID-IDX CL**9
00042 PIC X(02). CL**9
00043 15 R607-STATUS-CD PIC X(01). DTSIR607
00044 15 R607-EMP-NO PIC S9(07) COMP-3. DTSIR607
00045 15 R607-SIC-CD PIC X(04). CL**5
00046 15 R607-OWN-CD PIC X(02). CL**5
00047 15 R607-NAICS-CD PIC 9(06). CL**4
00048 15 R607-ASSIGN-TYPE PIC X(02). DTSIR607
00049 15 R607-START-DATE PIC S9(09) COMP-3. DTSIR607
00050 15 R607-DUE-DATE PIC S9(09) COMP-3. DTSIR607
00051 15 R607-COMPLETED-DATE PIC S9(09) COMP-3. DTSIR607
00052 15 R607-PROCESSED-DATE PIC S9(09) COMP-3. DTSIR607
00053 15 R607-AUDIT-HRS PIC S9(04)V9 COMP-3. DTSIR607
00054 15 R607-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIR607
00055 15 R607-TOT-GROSS-PAYROLL PIC S9(11)V99 COMP-3. DTSIR607
00056 15 R607-AUDIT-IND PIC X(01). CL*15
00057 88 R607-REQUEST-AUDIT-88 VALUE 'R'. CL*15
00058 88 R607-VERIF-AUDIT-88 VALUE 'V'. CL*15
00059 88 R607-AUDIT-88 VALUE 'R' 'V'. CL*15
00060 88 R607-NON-AUDIT-88 VALUE 'N'. CL*15
00061 15 R607-CHANGE-AUDIT-IND PIC X(01). DTSIR607
00062 88 R607-CHANGE-AUDIT-YES-88 VALUE '1'. CL*14
00063 88 R607-CHANGE-AUDIT-NO-88 VALUE '0'. CL*14
00064 15 R607-ERROR-AREA. DTSIR607
00065 20 R607-ERROR-TYPE PIC X(02) DTSIR607
00066 OCCURS 5 TIMES DTSIR607
00067 INDEXED BY R607-ERROR-IDX. DTSIR607
00068 15 R607-AUDIT-SEL-AREA. DTSIR607
00069 20 R607-AUDIT-SEL-REASON DTSIR607
00070 PIC X(02) DTSIR607
00071 OCCURS 5 TIMES DTSIR607
00072 INDEXED BY R607-SEL-IDX. DTSIR607
00073 15 R607-MFAS-EMP-SIZE-IND PIC X(01). DTSIR607
00074 15 R607-MAUR-EMP-SIZE-IND PIC X(01). DTSIR607
00075 15 R607-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIR607
00076 15 R607-TOT-UNDER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIR607
00077 15 R607-TOT-UNDER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIR607
00078 15 R607-TOT-UNDER-CONTRIB PIC S9(09)V99 COMP-3. DTSIR607
00079 15 R607-TOT-OVER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIR607
00080 15 R607-TOT-OVER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIR607
00081 15 R607-TOT-OVER-CONTRIB PIC S9(09)V99 COMP-3. DTSIR607
00082 15 R607-MONEY-DUE-AMT PIC S9(09)V99 COMP-3. DTSIR607
00083 15 R607-MONEY-REASON-CD PIC X(01). DTSIR607
00084 15 R607-MONEY-COLLECT-AMT PIC S9(09)V99 COMP-3. DTSIR607
00085 15 R607-PRIMARY-NAME PIC X(40). CL*17