159 lines
12 KiB
COBOL
159 lines
12 KiB
COBOL
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
|