giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
9e2a3afcc968a14756444b157cd6822e29b6ec49
DUTAS/Copybook/DTSIC033.cpy
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

159 lines
12 KiB
COBOL
Raw Blame History

00001 ***** 04/05/13
00002 * DTSIC033
00003 * DTSIC033 REPORT TYPE CODES VALUES AND DESCRIPTIONS. LV004
00004 * DTSIC033
00005 * DTSIC033
00006 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIC033
00007 * DTSIC033
00008 * 05/17/1999 MODIFIED FOR PICKUP. DTSIC033
00009 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSIC033
00010 * DTSIC033
00011 * 11/19/2012 MODIFIED FOR CLAIMANT WAGE REPORTS. CL**3
00012 * REFERENCE: PROGRAMMER: GD CL**3
00013 * CL**3
00014 * 04/01/2013 MODIFIED FOR ANNUAL FILERS NOT LIABLE CL**3
00015 * FOR A PARTICULAR QUARTER WITHIN THE CL**3
00016 * YEAR. CL**3
00017 * REFERENCE: TKT 1474 PROGRAMMER: GD CL**3
00018 * CL**3
00019 ***** DTSIC033
00020 DTSIC033
00021 ***** DTSIC033
00022 * OPTION 01 = MQTR-CURR-RPT-TYPE/PURSUED DTSIC033
00023 ***** DTSIC033
00024 10 C033-01-AREA. DTSIC033
00025 15 FILLER PIC X(02) VALUE 'NN'. DTSIC033
00026 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC033
00027 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC033
00028 15 FILLER PIC X(40) DTSIC033
00029 VALUE 'NOT LIABLE PURSUIT NO'. DTSIC033
00030 15 FILLER PIC X(02) VALUE 'NY'. DTSIC033
00031 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00032 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00033 15 FILLER PIC X(40) DTSIC033
00034 VALUE 'NOT LIABLE PURSUIT YES'. DTSIC033
00035 15 FILLER PIC X(02) VALUE 'LN'. DTSIC033
00036 15 FILLER PIC X(10) VALUE 'LIABLE '. DTSIC033
00037 15 FILLER PIC X(10) VALUE ' LIABLE'. DTSIC033
00038 15 FILLER PIC X(40) DTSIC033
00039 VALUE 'LIABLE PURSUIT NO '. DTSIC033
00040 15 FILLER PIC X(02) VALUE 'LY'. DTSIC033
00041 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00042 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00043 15 FILLER PIC X(40) DTSIC033
00044 VALUE 'LIABLE PURSUIT YES'. DTSIC033
00045 15 FILLER PIC X(02) VALUE 'DN'. DTSIC033
00046 15 FILLER PIC X(10) VALUE 'NOT PURSUE'. DTSIC033
00047 15 FILLER PIC X(10) VALUE 'NOT PURSUE'. DTSIC033
00048 15 FILLER PIC X(40) DTSIC033
00049 VALUE 'DELINQUENT NOT PURSUED'. DTSIC033
00050 15 FILLER PIC X(02) VALUE 'DY'. DTSIC033
00051 15 FILLER PIC X(10) VALUE 'PURSUED '. DTSIC033
00052 15 FILLER PIC X(10) VALUE ' PURSUED'. DTSIC033
00053 15 FILLER PIC X(40) DTSIC033
00054 VALUE 'DELINQUENT PURSUED YES'. DTSIC033
00055 15 FILLER PIC X(02) VALUE 'EN'. DTSIC033
00056 15 FILLER PIC X(10) VALUE 'EST/NOT PR'. DTSIC033
00057 15 FILLER PIC X(10) VALUE 'EST/NOT PR'. DTSIC033
00058 15 FILLER PIC X(40) DTSIC033
00059 VALUE 'ESTIMATED NOT PURSUED'. DTSIC033
00060 15 FILLER PIC X(02) VALUE 'EY'. DTSIC033
00061 15 FILLER PIC X(10) VALUE 'EST/PURSUE'. DTSIC033
00062 15 FILLER PIC X(10) VALUE 'EST/PURSUE'. DTSIC033
00063 15 FILLER PIC X(40) DTSIC033
00064 VALUE 'ESTIMATED AND PURSUED'. DTSIC033
00065 15 FILLER PIC X(02) VALUE 'ON'. DTSIC033
00066 15 FILLER PIC X(10) VALUE 'ORIGINAL'. DTSIC033
00067 15 FILLER PIC X(10) VALUE ' ORIGINAL'. DTSIC033
00068 15 FILLER PIC X(40) DTSIC033
00069 VALUE 'ORIGINAL AND NOT PURSUED'. DTSIC033
00070 15 FILLER PIC X(02) VALUE 'OY'. DTSIC033
00071 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00072 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00073 15 FILLER PIC X(40) DTSIC033
00074 VALUE 'ORIGINAL AND PURSUED'. DTSIC033
00075 15 FILLER PIC X(02) VALUE 'MN'. DTSIC033
00076 15 FILLER PIC X(10) VALUE 'EMP AMEND'. DTSIC033
00077 15 FILLER PIC X(10) VALUE ' EMP AMEND'. DTSIC033
00078 15 FILLER PIC X(40) DTSIC033
00079 VALUE 'AMENDED AND NOT PURSUED'. CL**2
00080 15 FILLER PIC X(02) VALUE 'MY'. DTSIC033
00081 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00082 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00083 15 FILLER PIC X(40) DTSIC033
00084 VALUE 'AMNEDED AND PURSUED'. DTSIC033
00085 15 FILLER PIC X(02) VALUE 'AN'. DTSIC033
00086 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC033
00087 15 FILLER PIC X(10) VALUE ' AUDIT'. DTSIC033
00088 15 FILLER PIC X(40) DTSIC033
00089 VALUE 'AUDIT AND NOT PURSUED '. DTSIC033
00090 15 FILLER PIC X(02) VALUE 'AY'. DTSIC033
00091 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00092 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00093 15 FILLER PIC X(40) DTSIC033
00094 VALUE 'AUDIT AND PURSUED '. DTSIC033
00095 15 FILLER PIC X(02) VALUE 'FN'. DTSIC033
00096 15 FILLER PIC X(10) VALUE 'FIELD'. DTSIC033
00097 15 FILLER PIC X(10) VALUE ' FIELD'. DTSIC033
00098 15 FILLER PIC X(40) DTSIC033
00099 VALUE 'FIELD AND NOT PURSUED'. DTSIC033
00100 15 FILLER PIC X(02) VALUE 'FY'. DTSIC033
00101 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00102 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00103 15 FILLER PIC X(40) DTSIC033
00104 VALUE 'FIELD AND PURSUED'. DTSIC033
00105 15 FILLER PIC X(02) VALUE 'CN'. DTSIC033
00106 15 FILLER PIC X(10) VALUE 'ADMIN CORR'. DTSIC033
00107 15 FILLER PIC X(10) VALUE 'ADMIN CORR'. DTSIC033
00108 15 FILLER PIC X(40) DTSIC033
00109 VALUE 'ADMIN AND NOT PURSUED'. DTSIC033
00110 15 FILLER PIC X(02) VALUE 'CY'. DTSIC033
00111 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00112 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00113 15 FILLER PIC X(40) DTSIC033
00114 VALUE 'ADMIN AND PURSUED'. DTSIC033
00115 15 FILLER PIC X(02) VALUE 'BY'. CL**2
00116 15 FILLER PIC X(10) VALUE 'CLMT WAGE '. CL**2
00117 15 FILLER PIC X(10) VALUE ' CLMT WAGE'. CL**2
00118 15 FILLER PIC X(40) CL**2
00119 VALUE 'CLAIMANT WAGE AND PURSUED'. CL**2
00120 15 FILLER PIC X(02) VALUE 'BN'. CL**2
00121 15 FILLER PIC X(10) VALUE 'CLMT WAGE '. CL**2
00122 15 FILLER PIC X(10) VALUE ' CLMT WAGE'. CL**2
00123 15 FILLER PIC X(40) CL**2
00124 VALUE 'CLAIMANT WAGE AND NOT PURSUED'. CL**2
00125 15 FILLER PIC X(02) VALUE 'TN'. CL**4
00126 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
00127 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
00128 15 FILLER PIC X(40) CL**4
00129 VALUE 'TAX WAGE ADJ AND NOT PURSUED'. CL**4
00130 15 FILLER PIC X(02) VALUE 'TY'. CL**4
00131 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
00132 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
00133 15 FILLER PIC X(40) CL**4
00134 VALUE 'TAX WAGE ADJ AND PURSUED '. CL**4
00135 15 FILLER PIC X(02) VALUE 'PN'. DTSIC033
00136 15 FILLER PIC X(10) VALUE 'PICKUP '. DTSIC033
00137 15 FILLER PIC X(10) VALUE ' PICKUP'. DTSIC033
00138 15 FILLER PIC X(40) DTSIC033
00139 VALUE 'PICKUP '. DTSIC033
00140 15 FILLER PIC X(02) VALUE 'PY'. DTSIC033
00141 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
00142 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
00143 15 FILLER PIC X(40) DTSIC033
00144 VALUE 'ERROR '. DTSIC033
00145 15 FILLER PIC X(02) VALUE 'HN'. CL**3
00146 15 FILLER PIC X(10) VALUE 'ANN NOT LB'. CL**3
00147 15 FILLER PIC X(10) VALUE 'ANN NOT LB'. CL**3
00148 15 FILLER PIC X(40) CL**3
00149 VALUE 'ANNUAL - NOT LIABLE'. CL**3
00150 DTSIC033
00151 10 FILLER REDEFINES C033-01-AREA. DTSIC033
00152 15 C033-01-ENTRY OCCURS 25 TIMES CL**4
00153 INDEXED BY C033-01-IDX. DTSIC033
00154 20 C033-01-CD PIC X(02). DTSIC033
00155 20 C033-01-SHORT-DSCR PIC X(10). DTSIC033
00156 20 C033-01-SHORT-DSCR-RIGHT DTSIC033
00157 PIC X(10). DTSIC033
00158 20 C033-01-LONG-DSCR PIC X(40). DTSIC033
Reference in New Issue View Git Blame Copy Permalink