DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
165
Copybook/DTSIC041.cpy
Normal file
165
Copybook/DTSIC041.cpy
Normal file
@ -0,0 +1,165 @@
|
||||
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
|
||||
Reference in New Issue
Block a user