166 lines
13 KiB
COBOL
166 lines
13 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIC041
|
|
00003 * DTSIC041 ELECTRONIC FILER CODES VALUES LV001
|
|
00004 * AND DESCRIPTIONS. DTSIC041
|
|
00005 * DTSIC041
|
|
00006 ***** DTSIC041
|
|
00007 SKIP1 DTSIC041
|
|
00008 ***** DTSIC041
|
|
00009 * OPTION 01 = EPRF-DATA-TYPE-CD DTSIC041
|
|
00010 ***** DTSIC041
|
|
00011 10 C041-01-AREA. DTSIC041
|
|
00012 15 FILLER PIC X(02) VALUE '01'. DTSIC041
|
|
00013 15 FILLER PIC X(10) VALUE 'PRINT UC30'. DTSIC041
|
|
00014 15 FILLER PIC X(40) DTSIC041
|
|
00015 VALUE 'PRINT UC-30 FOR EMPLOYER '. DTSIC041
|
|
00016 15 FILLER PIC X(02) VALUE '02'. DTSIC041
|
|
00017 15 FILLER PIC X(10) VALUE 'BEN CHARGE'. DTSIC041
|
|
00018 15 FILLER PIC X(40) DTSIC041
|
|
00019 VALUE 'PROVIDE BENEFIT CHARGE DATA TO EMPLOYERS'. DTSIC041
|
|
00020 15 FILLER PIC X(02) VALUE '03'. DTSIC041
|
|
00021 15 FILLER PIC X(10) VALUE 'WAGE '. DTSIC041
|
|
00022 15 FILLER PIC X(40) DTSIC041
|
|
00023 VALUE 'QUARTERLY WAGE DETAIL '. DTSIC041
|
|
00024 15 FILLER PIC X(02) VALUE '04'. DTSIC041
|
|
00025 15 FILLER PIC X(10) VALUE 'QTRLY FEIN'. DTSIC041
|
|
00026 15 FILLER PIC X(40) DTSIC041
|
|
00027 VALUE 'IRS QUARTERLY FEIN CROSSMATCH '. DTSIC041
|
|
00028 15 FILLER PIC X(02) VALUE '05'. DTSIC041
|
|
00029 15 FILLER PIC X(10) VALUE 'IRS 940 '. DTSIC041
|
|
00030 15 FILLER PIC X(40) DTSIC041
|
|
00031 VALUE 'IRS ANNUAL 940 CERTIFICATION '. DTSIC041
|
|
00032 15 FILLER PIC X(02) VALUE '06'. DTSIC041
|
|
00033 15 FILLER PIC X(10) VALUE 'IRS WEEKLY'. DTSIC041
|
|
00034 15 FILLER PIC X(40) DTSIC041
|
|
00035 VALUE 'IRS WEEKLY CROSSMATCH '. DTSIC041
|
|
00036 15 FILLER PIC X(02) VALUE '07'. DTSIC041
|
|
00037 15 FILLER PIC X(10) VALUE 'RR RETIRE '. DTSIC041
|
|
00038 15 FILLER PIC X(40) DTSIC041
|
|
00039 VALUE 'RAILROAD RETIREMENT '. DTSIC041
|
|
00040 15 FILLER PIC X(02) VALUE '08'. DTSIC041
|
|
00041 15 FILLER PIC X(10) VALUE 'RECON OUT '. DTSIC041
|
|
00042 15 FILLER PIC X(40) DTSIC041
|
|
00043 VALUE 'BANK RECON: TO BANK '. DTSIC041
|
|
00044 15 FILLER PIC X(02) VALUE '09'. DTSIC041
|
|
00045 15 FILLER PIC X(10) VALUE 'RECON IN '. DTSIC041
|
|
00046 15 FILLER PIC X(40) DTSIC041
|
|
00047 VALUE 'BANK RECON: FROM BANK '. DTSIC041
|
|
00048 15 FILLER PIC X(02) VALUE '10'. DTSIC041
|
|
00049 15 FILLER PIC X(10) VALUE '1099 '. DTSIC041
|
|
00050 15 FILLER PIC X(40) DTSIC041
|
|
00051 VALUE 'BENEFITS 1099 '. DTSIC041
|
|
00052 15 FILLER PIC X(02) VALUE '99'. DTSIC041
|
|
00053 15 FILLER PIC X(10) VALUE 'UNKNOWN '. DTSIC041
|
|
00054 15 FILLER PIC X(40) DTSIC041
|
|
00055 VALUE 'UNKNOWN DATA TYPE '. DTSIC041
|
|
00056 SKIP1 DTSIC041
|
|
00057 10 FILLER REDEFINES C041-01-AREA. DTSIC041
|
|
00058 15 C041-01-ENTRY OCCURS 11 TIMES DTSIC041
|
|
00059 INDEXED BY C041-01-IDX. DTSIC041
|
|
00060 20 C041-01-CD PIC X(02). DTSIC041
|
|
00061 20 C041-01-SHORT-DSCR PIC X(10). DTSIC041
|
|
00062 20 C041-01-LONG-DSCR PIC X(40). DTSIC041
|
|
00063 SKIP3 DTSIC041
|
|
00064 ***** DTSIC041
|
|
00065 * OPTION 02 = EPRF-MEDIUM-TYPE-CD DTSIC041
|
|
00066 ***** DTSIC041
|
|
00067 10 C041-02-AREA. DTSIC041
|
|
00068 15 FILLER PIC X(02) VALUE 'CS'. DTSIC041
|
|
00069 15 FILLER PIC X(10) VALUE 'CART SL '. DTSIC041
|
|
00070 15 FILLER PIC X(40) DTSIC041
|
|
00071 VALUE 'CARTRIDGE - STANDARD LABEL '. DTSIC041
|
|
00072 15 FILLER PIC X(02) VALUE 'CN'. DTSIC041
|
|
00073 15 FILLER PIC X(10) VALUE 'CART NL '. DTSIC041
|
|
00074 15 FILLER PIC X(40) DTSIC041
|
|
00075 VALUE 'CARTRIDGE - NO LABEL '. DTSIC041
|
|
00076 15 FILLER PIC X(02) VALUE 'RS'. DTSIC041
|
|
00077 15 FILLER PIC X(10) VALUE 'REEL SL '. DTSIC041
|
|
00078 15 FILLER PIC X(40) DTSIC041
|
|
00079 VALUE 'REEL - STANDARD LABEL '. DTSIC041
|
|
00080 15 FILLER PIC X(02) VALUE 'RN'. DTSIC041
|
|
00081 15 FILLER PIC X(10) VALUE 'REEL NL '. DTSIC041
|
|
00082 15 FILLER PIC X(40) DTSIC041
|
|
00083 VALUE 'REEL - NO LABEL '. DTSIC041
|
|
00084 15 FILLER PIC X(02) VALUE 'DK'. DTSIC041
|
|
00085 15 FILLER PIC X(10) VALUE 'DISKETTE '. DTSIC041
|
|
00086 15 FILLER PIC X(40) DTSIC041
|
|
00087 VALUE 'DISKETTE '. DTSIC041
|
|
00088 15 FILLER PIC X(02) VALUE 'EM'. DTSIC041
|
|
00089 15 FILLER PIC X(10) VALUE 'E-MAIL '. DTSIC041
|
|
00090 15 FILLER PIC X(40) DTSIC041
|
|
00091 VALUE 'E-MAIL '. DTSIC041
|
|
00092 15 FILLER PIC X(02) VALUE 'FT'. DTSIC041
|
|
00093 15 FILLER PIC X(10) VALUE 'FTP '. DTSIC041
|
|
00094 15 FILLER PIC X(40) DTSIC041
|
|
00095 VALUE 'FILE TRANSFER PROTOCOL '. DTSIC041
|
|
00096 15 FILLER PIC X(02) VALUE 'WB'. DTSIC041
|
|
00097 15 FILLER PIC X(10) VALUE 'WEB '. DTSIC041
|
|
00098 15 FILLER PIC X(40) DTSIC041
|
|
00099 VALUE 'WORLD WIDE WEB '. DTSIC041
|
|
00100 15 FILLER PIC X(02) VALUE 'VR'. DTSIC041
|
|
00101 15 FILLER PIC X(10) VALUE 'IVR '. DTSIC041
|
|
00102 15 FILLER PIC X(40) DTSIC041
|
|
00103 VALUE 'INTERACTIVE VOICE RESPONSE '. DTSIC041
|
|
00104 SKIP1 DTSIC041
|
|
00105 10 FILLER REDEFINES C041-02-AREA. DTSIC041
|
|
00106 15 C041-02-ENTRY OCCURS 9 TIMES DTSIC041
|
|
00107 INDEXED BY C041-02-IDX. DTSIC041
|
|
00108 20 C041-02-CD PIC X(02). DTSIC041
|
|
00109 20 C041-02-SHORT-DSCR PIC X(10). DTSIC041
|
|
00110 20 C041-02-LONG-DSCR PIC X(40). DTSIC041
|
|
00111 SKIP3 DTSIC041
|
|
00112 ***** DTSIC041
|
|
00113 * OPTION 03 = EPRF-FORMAT-CD DTSIC041
|
|
00114 ***** DTSIC041
|
|
00115 10 C041-03-AREA. DTSIC041
|
|
00116 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC041
|
|
00117 15 FILLER PIC X(10) VALUE 'DC REG '. DTSIC041
|
|
00118 15 FILLER PIC X(40) DTSIC041
|
|
00119 VALUE 'DC REGULAR FORMAT '. DTSIC041
|
|
00120 15 FILLER PIC X(03) VALUE 'DCG'. DTSIC041
|
|
00121 15 FILLER PIC X(10) VALUE 'DC GOV '. DTSIC041
|
|
00122 15 FILLER PIC X(40) DTSIC041
|
|
00123 VALUE 'DC GOVERNMENT FORMAT '. DTSIC041
|
|
00124 15 FILLER PIC X(03) VALUE 'IC5'. DTSIC041
|
|
00125 15 FILLER PIC X(10) VALUE 'ICESA275 '. DTSIC041
|
|
00126 15 FILLER PIC X(40) DTSIC041
|
|
00127 VALUE 'ICESA 275 BYTE FORMAT '. DTSIC041
|
|
00128 15 FILLER PIC X(03) VALUE 'IC6'. DTSIC041
|
|
00129 15 FILLER PIC X(10) VALUE 'ICESA276 '. DTSIC041
|
|
00130 15 FILLER PIC X(40) DTSIC041
|
|
00131 VALUE 'ICESA 276 BYTE FORMAT '. DTSIC041
|
|
00132 15 FILLER PIC X(03) VALUE ' '. DTSIC041
|
|
00133 15 FILLER PIC X(10) VALUE 'INAPPLICBL'. DTSIC041
|
|
00134 15 FILLER PIC X(40) DTSIC041
|
|
00135 VALUE 'INAPPLICABLE '. DTSIC041
|
|
00136 SKIP1 DTSIC041
|
|
00137 10 FILLER REDEFINES C041-03-AREA. DTSIC041
|
|
00138 15 C041-03-ENTRY OCCURS 05 TIMES DTSIC041
|
|
00139 INDEXED BY C041-03-IDX. DTSIC041
|
|
00140 20 C041-03-CD PIC X(03). DTSIC041
|
|
00141 20 C041-03-SHORT-DSCR PIC X(10). DTSIC041
|
|
00142 20 C041-03-LONG-DSCR PIC X(40). DTSIC041
|
|
00143 ***** DTSIC041
|
|
00144 * OPTION 11 = EEMH-RESULT-CD DTSIC041
|
|
00145 ***** DTSIC041
|
|
00146 10 C041-11-AREA. DTSIC041
|
|
00147 15 FILLER PIC X(02) VALUE '01'. DTSIC041
|
|
00148 15 FILLER PIC X(10) VALUE 'FAILED '. DTSIC041
|
|
00149 15 FILLER PIC X(40) DTSIC041
|
|
00150 VALUE 'FAILED EDITS '. DTSIC041
|
|
00151 15 FILLER PIC X(02) VALUE '03'. DTSIC041
|
|
00152 15 FILLER PIC X(10) VALUE 'ERRORS '. DTSIC041
|
|
00153 15 FILLER PIC X(40) DTSIC041
|
|
00154 VALUE 'PARTIALLY SUCESSFUL - ERRORS FOUND '. DTSIC041
|
|
00155 15 FILLER PIC X(02) VALUE '04'. DTSIC041
|
|
00156 15 FILLER PIC X(10) VALUE 'SUCCESSFUL'. DTSIC041
|
|
00157 15 FILLER PIC X(40) DTSIC041
|
|
00158 VALUE 'SUCCESSFUL '. DTSIC041
|
|
00159 SKIP1 DTSIC041
|
|
00160 10 FILLER REDEFINES C041-11-AREA. DTSIC041
|
|
00161 15 C041-11-ENTRY OCCURS 03 TIMES DTSIC041
|
|
00162 INDEXED BY C041-11-IDX. DTSIC041
|
|
00163 20 C041-11-CD PIC X(02). DTSIC041
|
|
00164 20 C041-11-SHORT-DSCR PIC X(10). DTSIC041
|
|
00165 20 C041-11-LONG-DSCR PIC X(40). DTSIC041
|