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

101
Copybook/DTSIT027.cpy Normal file
View File

@ -0,0 +1,101 @@
00001 ***** 03/01/12
00002 * DTSIT027
00003 * DTSIT027 ESTABLISH ELECTRONIC QUARTERLY REPORT LV005
00004 * TRANSACTION RECORD DEFINITION. DTSIT027
00005 * DTSIT027
00006 * DTSIT027
00007 * 04/07/2003 INITIAL DEVELOPMENT. GD DTSIT027
00008 * 04/19/2011 MODIFIED TO PASS LOG NUMBER TO DTSIT027
00009 * DTSBD140. GD DTSIT027
00010 * DTSIT027
00011 ***** DTSIT027
00012 DTSIT027
00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027
00014 DTSIT027
00015 10 T027-COMMON-AREA. DTSIT027
00016 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027
00018 15 T027-ORIGIN PIC X(10). DTSIT027
00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027
00020 20 T027-OP-ID PIC X(08). DTSIT027
00021 20 T027-SCR-ID PIC X(02). DTSIT027
00022 15 T027-SYS-DATE PIC S9(09) COMP-3. DTSIT027
00023 15 T027-SYS-TIME PIC S9(07) COMP-3. DTSIT027
00024 DTSIT027
00025 10 T027-DATA-AREA. DTSIT027
00026 15 T027-TRN-TYPE PIC X(01). DTSIT027
00027 88 T027-WEB-RPT-88 VALUE '0'. DTSIT027
00028 88 T027-MAG-RPT-88 VALUE '1'. DTSIT027
00029 DTSIT027
00030 15 T027-PSEUDO-DOC-NO. DTSIT027
00031 20 T027-PSEUDO-BATCH-NO DTSIT027
00032 PIC S9(05) COMP-3. DTSIT027
00033 20 T027-PSEUDO-ITEM-NO DTSIT027
00034 PIC S9(03) COMP-3. DTSIT027
00035 DTSIT027
00036 15 T027-NAME-CHECK PIC X(04). DTSIT027
00037 DTSIT027
00038 15 T027-RPT-TYPE PIC X(02). DTSIT027
00039 88 T027-ORIG-88 VALUE 'OR'. DTSIT027
00040 88 T027-EMP-AMEND-88 VALUE 'EA'. DTSIT027
00041 88 T027-AUDIT-88 VALUE 'AU'. DTSIT027
00042 88 T027-FLD-SUP-88 VALUE 'FS'. DTSIT027
00043 88 T027-ADMIN-CORR-88 VALUE 'AC'. DTSIT027
00044 88 T027-ESTIM-88 VALUE 'ES'. DTSIT027
00045 88 T027-WITHDRW-88 VALUE 'WD'. DTSIT027
00046 88 T027-SUPPLEM-88 VALUE 'EA' 'AU' DTSIT027
00047 'FS' 'AC'. DTSIT027
00048 DTSIT027
00049 15 T027-YRQ PIC S9(05) COMP-3. DTSIT027
00050 DTSIT027
00051 15 T027-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027
00052 DTSIT027
00053 15 T027-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027
00054 DTSIT027
00055 15 T027-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027
00056 DTSIT027
00057 15 T027-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIT027
00058 DTSIT027
00059 15 T027-WAIVE-BOTH-IND PIC X(01). DTSIT027
00060 88 T027-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIT027
00061 88 T027-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIT027
00062 DTSIT027
00063 15 T027-WAIVE-INT-IND PIC X(01). DTSIT027
00064 88 T027-WAIVE-INT-YES-88 VALUE 'Y'. DTSIT027
00065 88 T027-WAIVE-INT-NO-88 VALUE 'N'. DTSIT027
00066 DTSIT027
00067 15 T027-WAIVE-LATE-PEN-IND PIC X(01). DTSIT027
00068 88 T027-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIT027
00069 88 T027-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIT027
00070 DTSIT027
00071 15 T027-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
00072 88 T027-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIT027
00073 DTSIT027
00074 15 T027-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
00075 88 T027-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027
00076 DTSIT027
00077 15 T027-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
00078 88 T027-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027
00079 DTSIT027
00080 15 T027-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
00081 88 T027-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027
00082 DTSIT027
00083 15 T027-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT027
00084 DTSIT027
00085 15 T027-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIT027
00086 DTSIT027
00087 15 T027-TRACE-NO PIC S9(13) COMP-3. DTSIT027
00088 DTSIT027
00089 15 T027-RESPONSIBLE-ACTIVITY DTSIT027
00090 PIC X(03). DTSIT027
00091 DTSIT027
00092 15 T027-RESPONSIBLE-OP-ID PIC X(08). DTSIT027
00093 DTSIT027
00094 15 T027-PASSED-FULL-EDITS-IND DTSIT027
00095 PIC X(01). DTSIT027
00096 88 T027-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIT027
00097 88 T027-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIT027
00098 DTSIT027
00099 15 T027-LOG-NBR PIC X(06). DTSIT027
00100 DTSIT027
00101 15 FILLER PIC X(26). DTSIT027