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