00001 ***** 12/14/09 00002 * DTSIMLEN 00003 * DTSIMLEN MASTER FILE RECORD LENGTHS. LV024 00004 * DTSIMLEN 00005 * MLEN-*-FIX-LEN IS THE LENGTH OF THE FIXED DTSIMLEN 00006 * PORTION OF M*-DATA-AREA. DTSIMLEN 00007 * DTSIMLEN 00008 * DTSIMLEN 00009 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMLEN 00010 * DTSIMLEN 00011 * 04/17/2003 MODIFIED MPAY AND MRPT - BOTH NOW DTSIMLEN 00012 * REQUIRE ALT INDEX PROCESSING - GD DTSIMLEN 00013 * DTSIMLEN 00014 * 07/17/2003 SPLIT OF MSTB FILE. MQTR MOVED TO DTSIMLEN 00015 * MSTH FILE (5), MRPT, MADJ, MPAY, DTSIMLEN 00016 * MDST, MREV MOVED TO MSTI FILE (6) - GDTSIMLEN 00017 * DTSIMLEN 00018 * 11/24/2004 ADDED MCMP (COMPROMISE SETTLEMENT) DTSIMLEN 00019 * RECORD TYPE - GD DTSIMLEN 00020 * DTSIMLEN 00021 * 11/10/2006 ADDED MRRA (EXPERIENCE RATING DTSIMLEN 00022 * RESERVE AUDIT) RECS - GD DTSIMLEN 00023 * DTSIMLEN 00024 * 02/06/2008 ADDED MRFD (REFUND REQUESTS) GD DTSIMLEN 00025 * DTSIMLEN 00026 * 10/08/2009 ADDED MFSL (AUDIT SCHEDULE) GD DTSIMLEN 00027 * DTSIMLEN 00028 * 11/25/2009 ADDED MDOC (SCANNED DOCUMENTS) GD DTSIMLEN 00029 * DTSIMLEN 00030 * TO ADD A NEW RECORD TYPE TO THE MASTER FILE: DTSIMLEN 00031 * DTSIMLEN 00032 * 1. MODIFY DTSIMLEN. DTSIMLEN 00033 * DTSIMLEN 00034 * 2. MODIFY DTSIMSKL. DTSIMLEN 00035 * DTSIMLEN 00036 * 3. CREATE DTSIM*** (WHERE *** IS THE IDENTIFIER OF DTSIMLEN 00037 * THE NEW RECORD TYPE). DTSIMLEN 00038 * DTSIMLEN 00039 * 4. COMPILE DTSCU810, DTSBU910, DTSCS1A, DTSBE992, DTSIMLEN 00040 * DTSBU961, DTSBU962, DTSBD910, DTSBD991, DTSCS7B, DTSIMLEN 00041 * AND DTSBD993. DTSIMLEN 00042 * DTSIMLEN 00043 * DTSIMLEN 00044 ***** DTSIMLEN 00045 DTSIMLEN 00046 10 MLEN-LENGTHS-AREA. DTSIMLEN 00047 DTSIMLEN 00048 ***** DTSIMLEN 00049 * REC-TYPE = 01 DTSIMLEN 00050 ***** DTSIMLEN 00051 15 MLEN-HDR-KEY-LEN PIC S9(04) COMP VALUE +6. DTSIMLEN 00052 15 MLEN-HDR-FIX-LEN PIC S9(04) COMP VALUE +235. DTSIMLEN 00053 15 MLEN-HDR-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00054 15 MLEN-HDR-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00055 15 MLEN-HDR-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00056 15 MLEN-HDR-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00057 15 MLEN-HDR-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00058 15 MLEN-HDR-FILE-ID PIC S9(04) COMP VALUE +1. DTSIMLEN 00059 15 MLEN-HDR-PREFIX PIC X(04) VALUE 'MHDR'.DTSIMLEN 00060 DTSIMLEN 00061 ***** DTSIMLEN 00062 * REC-TYPE = 02 DTSIMLEN 00063 ***** DTSIMLEN 00064 15 MLEN-PRF-KEY-LEN PIC S9(04) COMP VALUE +6. DTSIMLEN 00065 15 MLEN-PRF-FIX-LEN PIC S9(04) COMP VALUE +363. DTSIMLEN 00066 15 MLEN-PRF-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00067 15 MLEN-PRF-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00068 15 MLEN-PRF-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00069 15 MLEN-PRF-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00070 15 MLEN-PRF-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00071 15 MLEN-PRF-FILE-ID PIC S9(04) COMP VALUE +1. DTSIMLEN 00072 15 MLEN-PRF-PREFIX PIC X(04) VALUE 'MPRF'.DTSIMLEN 00073 DTSIMLEN 00074 ***** DTSIMLEN 00075 * REC-TYPE = 03 DTSIMLEN 00076 ***** DTSIMLEN 00077 15 MLEN-TAD-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIMLEN 00078 15 MLEN-TAD-FIX-LEN PIC S9(04) COMP VALUE +302. DTSIMLEN 00079 15 MLEN-TAD-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00080 15 MLEN-TAD-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00081 15 MLEN-TAD-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00082 15 MLEN-TAD-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00083 15 MLEN-TAD-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00084 15 MLEN-TAD-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00085 15 MLEN-TAD-PREFIX PIC X(04) VALUE 'MTAD'.DTSIMLEN 00086 DTSIMLEN 00087 ***** DTSIMLEN 00088 * REC-TYPE = 04 DTSIMLEN 00089 ***** DTSIMLEN 00090 15 MLEN-SOL-KEY-LEN PIC S9(04) COMP VALUE +11. DTSIMLEN 00091 15 MLEN-SOL-FIX-LEN PIC S9(04) COMP VALUE +79. DTSIMLEN 00092 15 MLEN-SOL-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00093 15 MLEN-SOL-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00094 15 MLEN-SOL-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00095 15 MLEN-SOL-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00096 15 MLEN-SOL-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00097 15 MLEN-SOL-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00098 15 MLEN-SOL-PREFIX PIC X(04) VALUE 'MSOL'.DTSIMLEN 00099 DTSIMLEN 00100 ***** DTSIMLEN 00101 * REC-TYPE = 05 DTSIMLEN 00102 ***** DTSIMLEN 00103 15 MLEN-RTE-KEY-LEN PIC S9(04) COMP VALUE +9. DTSIMLEN 00104 15 MLEN-RTE-FIX-LEN PIC S9(04) COMP VALUE +34. DTSIMLEN 00105 15 MLEN-RTE-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00106 15 MLEN-RTE-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00107 15 MLEN-RTE-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00108 15 MLEN-RTE-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00109 15 MLEN-RTE-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00110 15 MLEN-RTE-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00111 15 MLEN-RTE-PREFIX PIC X(04) VALUE 'MRTE'.DTSIMLEN 00112 DTSIMLEN 00113 ***** DTSIMLEN 00114 * REC-TYPE = 06 DTSIMLEN 00115 ***** DTSIMLEN 00116 15 MLEN-REL-KEY-LEN PIC S9(04) COMP VALUE +15. DTSIMLEN 00117 15 MLEN-REL-FIX-LEN PIC S9(04) COMP VALUE +52. DTSIMLEN 00118 15 MLEN-REL-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00119 15 MLEN-REL-OCC-MAX PIC S9(04) COMP VALUE +8. DTSIMLEN 00120 15 MLEN-REL-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00121 15 MLEN-REL-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00122 15 MLEN-REL-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00123 15 MLEN-REL-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00124 15 MLEN-REL-PREFIX PIC X(04) VALUE 'MREL'.DTSIMLEN 00125 DTSIMLEN 00126 ***** DTSIMLEN 00127 * REC-TYPE = 07 DTSIMLEN 00128 ***** DTSIMLEN 00129 15 MLEN-FSC-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIMLEN 00130 15 MLEN-FSC-FIX-LEN PIC S9(04) COMP VALUE +176. DTSIMLEN 00131 15 MLEN-FSC-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00132 15 MLEN-FSC-OCC-MAX PIC S9(04) COMP VALUE +4. DTSIMLEN 00133 15 MLEN-FSC-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00134 15 MLEN-FSC-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00135 15 MLEN-FSC-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00136 15 MLEN-FSC-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00137 15 MLEN-FSC-PREFIX PIC X(04) VALUE 'MFSC'.DTSIMLEN 00138 DTSIMLEN 00139 ***** DTSIMLEN 00140 * REC-TYPE = 08 DTSIMLEN 00141 ***** DTSIMLEN 00142 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00143 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00144 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00145 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00146 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00147 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00148 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00149 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00150 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00151 DTSIMLEN 00152 ***** DTSIMLEN 00153 * REC-TYPE = 09 DTSIMLEN 00154 ***** DTSIMLEN 00155 15 MLEN-RCT-KEY-LEN PIC S9(04) COMP VALUE +9. DTSIMLEN 00156 15 MLEN-RCT-FIX-LEN PIC S9(04) COMP VALUE +136. DTSIMLEN 00157 15 MLEN-RCT-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00158 15 MLEN-RCT-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00159 15 MLEN-RCT-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00160 15 MLEN-RCT-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00161 15 MLEN-RCT-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00162 15 MLEN-RCT-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00163 15 MLEN-RCT-PREFIX PIC X(04) VALUE 'MRCT'.DTSIMLEN 00164 DTSIMLEN 00165 ***** DTSIMLEN 00166 * REC-TYPE = 10 DTSIMLEN 00167 ***** DTSIMLEN 00168 15 MLEN-RRA-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIMLEN 00169 15 MLEN-RRA-FIX-LEN PIC S9(04) COMP VALUE +112. DTSIMLEN 00170 15 MLEN-RRA-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00171 15 MLEN-RRA-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00172 15 MLEN-RRA-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00173 15 MLEN-RRA-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00174 15 MLEN-RRA-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00175 15 MLEN-RRA-FILE-ID PIC S9(04) COMP VALUE +7. DTSIMLEN 00176 15 MLEN-RRA-PREFIX PIC X(04) VALUE 'MRRA'.DTSIMLEN 00177 DTSIMLEN 00178 ***** DTSIMLEN 00179 * REC-TYPE = 11 DTSIMLEN 00180 ***** DTSIMLEN 00181 15 MLEN-OPO-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIMLEN 00182 15 MLEN-OPO-FIX-LEN PIC S9(04) COMP VALUE +366. DTSIMLEN 00183 15 MLEN-OPO-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00184 15 MLEN-OPO-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00185 15 MLEN-OPO-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00186 15 MLEN-OPO-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00187 15 MLEN-OPO-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00188 15 MLEN-OPO-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00189 15 MLEN-OPO-PREFIX PIC X(04) VALUE 'MOPO'.DTSIMLEN 00190 DTSIMLEN 00191 ***** DTSIMLEN 00192 * REC-TYPE = 12 DTSIMLEN 00193 ***** DTSIMLEN 00194 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00195 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00196 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00197 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00198 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00199 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00200 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00201 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00202 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00203 DTSIMLEN 00204 ***** DTSIMLEN 00205 * REC-TYPE = 13 DTSIMLEN 00206 ***** DTSIMLEN 00207 15 MLEN-TAA-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIMLEN 00208 15 MLEN-TAA-FIX-LEN PIC S9(04) COMP VALUE +350. DTSIMLEN 00209 15 MLEN-TAA-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00210 15 MLEN-TAA-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00211 15 MLEN-TAA-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00212 15 MLEN-TAA-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00213 15 MLEN-TAA-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00214 15 MLEN-TAA-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00215 15 MLEN-TAA-PREFIX PIC X(04) VALUE 'MTAA'.DTSIMLEN 00216 DTSIMLEN 00217 ***** DTSIMLEN 00218 * REC-TYPE = 14 DTSIMLEN 00219 ***** DTSIMLEN 00220 15 MLEN-BAA-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIMLEN 00221 15 MLEN-BAA-FIX-LEN PIC S9(04) COMP VALUE +347. DTSIMLEN 00222 15 MLEN-BAA-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00223 15 MLEN-BAA-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00224 15 MLEN-BAA-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00225 15 MLEN-BAA-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00226 15 MLEN-BAA-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00227 15 MLEN-BAA-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00228 15 MLEN-BAA-PREFIX PIC X(04) VALUE 'MBAA'.DTSIMLEN 00229 DTSIMLEN 00230 ***** DTSIMLEN 00231 * REC-TYPE = 15 DTSIMLEN 00232 ***** DTSIMLEN 00233 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00234 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00235 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00236 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00237 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00238 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00239 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00240 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00241 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00242 DTSIMLEN 00243 ***** DTSIMLEN 00244 * REC-TYPE = 16 DTSIMLEN 00245 ***** DTSIMLEN 00246 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00247 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00248 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00249 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00250 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00251 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00252 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00253 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00254 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00255 DTSIMLEN 00256 ***** DTSIMLEN 00257 * REC-TYPE = 17 DTSIMLEN 00258 ***** DTSIMLEN 00259 15 MLEN-ERD-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00260 15 MLEN-ERD-FIX-LEN PIC S9(04) COMP VALUE +54. DTSIMLEN 00261 15 MLEN-ERD-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00262 15 MLEN-ERD-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00263 15 MLEN-ERD-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00264 15 MLEN-ERD-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00265 15 MLEN-ERD-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00266 15 MLEN-ERD-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00267 15 MLEN-ERD-PREFIX PIC X(04) VALUE 'MERD'.DTSIMLEN 00268 DTSIMLEN 00269 ***** DTSIMLEN 00270 * REC-TYPE = 18 DTSIMLEN 00271 ***** DTSIMLEN 00272 15 MLEN-ERA-KEY-LEN PIC S9(04) COMP VALUE +6. DTSIMLEN 00273 15 MLEN-ERA-FIX-LEN PIC S9(04) COMP VALUE +210. DTSIMLEN 00274 15 MLEN-ERA-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00275 15 MLEN-ERA-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00276 15 MLEN-ERA-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00277 15 MLEN-ERA-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00278 15 MLEN-ERA-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00279 15 MLEN-ERA-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00280 15 MLEN-ERA-PREFIX PIC X(04) VALUE 'MERA'.DTSIMLEN 00281 DTSIMLEN 00282 ***** DTSIMLEN 00283 * REC-TYPE = 19 DTSIMLEN 00284 ***** DTSIMLEN 00285 15 MLEN-DOC-KEY-LEN PIC S9(04) COMP VALUE +12. DTSIMLEN 00286 15 MLEN-DOC-FIX-LEN PIC S9(04) COMP VALUE +51. DTSIMLEN 00287 15 MLEN-DOC-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00288 15 MLEN-DOC-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00289 15 MLEN-DOC-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00290 15 MLEN-DOC-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00291 15 MLEN-DOC-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00292 15 MLEN-DOC-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00293 15 MLEN-DOC-PREFIX PIC X(04) VALUE 'MDOC'.DTSIMLEN 00294 DTSIMLEN 00295 ***** DTSIMLEN 00296 * REC-TYPE = 20 DTSIMLEN 00297 ***** DTSIMLEN 00298 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00299 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00300 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00301 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00302 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00303 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00304 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00305 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00306 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00307 DTSIMLEN 00308 ***** DTSIMLEN 00309 * REC-TYPE = 21 DTSIMLEN 00310 ***** DTSIMLEN 00311 15 MLEN-EVL-KEY-LEN PIC S9(04) COMP VALUE +15. DTSIMLEN 00312 15 MLEN-EVL-FIX-LEN PIC S9(04) COMP VALUE +85. DTSIMLEN 00313 15 MLEN-EVL-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00314 15 MLEN-EVL-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00315 15 MLEN-EVL-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00316 15 MLEN-EVL-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00317 15 MLEN-EVL-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00318 15 MLEN-EVL-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00319 15 MLEN-EVL-PREFIX PIC X(04) VALUE 'MEVL'.DTSIMLEN 00320 DTSIMLEN 00321 ***** DTSIMLEN 00322 * REC-TYPE = 22 DTSIMLEN 00323 ***** DTSIMLEN 00324 15 MLEN-NTE-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00325 15 MLEN-NTE-FIX-LEN PIC S9(04) COMP VALUE +101. DTSIMLEN 00326 15 MLEN-NTE-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00327 15 MLEN-NTE-OCC-MAX PIC S9(04) COMP VALUE +16. DTSIMLEN 00328 15 MLEN-NTE-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00329 15 MLEN-NTE-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00330 15 MLEN-NTE-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00331 15 MLEN-NTE-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00332 15 MLEN-NTE-PREFIX PIC X(04) VALUE 'MNTE'.DTSIMLEN 00333 DTSIMLEN 00334 ***** DTSIMLEN 00335 * REC-TYPE = 23 DTSIMLEN 00336 ***** DTSIMLEN 00337 15 MLEN-TCK-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00338 15 MLEN-TCK-FIX-LEN PIC S9(04) COMP VALUE +84. DTSIMLEN 00339 15 MLEN-TCK-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00340 15 MLEN-TCK-OCC-MAX PIC S9(04) COMP VALUE +8. DTSIMLEN 00341 15 MLEN-TCK-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00342 15 MLEN-TCK-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00343 15 MLEN-TCK-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00344 15 MLEN-TCK-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00345 15 MLEN-TCK-PREFIX PIC X(04) VALUE 'MTCK'.DTSIMLEN 00346 DTSIMLEN 00347 ***** DTSIMLEN 00348 * REC-TYPE = 24 DTSIMLEN 00349 ***** DTSIMLEN 00350 15 MLEN-ELF-KEY-LEN PIC S9(04) COMP VALUE +6. DTSIMLEN 00351 15 MLEN-ELF-FIX-LEN PIC S9(04) COMP VALUE +448. DTSIMLEN 00352 15 MLEN-ELF-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00353 15 MLEN-ELF-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00354 15 MLEN-ELF-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00355 15 MLEN-ELF-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00356 15 MLEN-ELF-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00357 15 MLEN-ELF-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00358 15 MLEN-ELF-PREFIX PIC X(04) VALUE 'MELF'.DTSIMLEN 00359 DTSIMLEN 00360 ***** DTSIMLEN 00361 * REC-TYPE = 25 DTSIMLEN 00362 ***** DTSIMLEN 00363 15 MLEN-FAE-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIMLEN 00364 15 MLEN-FAE-FIX-LEN PIC S9(04) COMP VALUE +80. DTSIMLEN 00365 15 MLEN-FAE-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00366 15 MLEN-FAE-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00367 15 MLEN-FAE-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00368 15 MLEN-FAE-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00369 15 MLEN-FAE-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00370 15 MLEN-FAE-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00371 15 MLEN-FAE-PREFIX PIC X(04) VALUE 'MFAE'.DTSIMLEN 00372 DTSIMLEN 00373 ***** DTSIMLEN 00374 * REC-TYPE = 26 DTSIMLEN 00375 ***** DTSIMLEN 00376 15 MLEN-FAS-KEY-LEN PIC S9(04) COMP VALUE +11. DTSIMLEN 00377 15 MLEN-FAS-FIX-LEN PIC S9(04) COMP VALUE +179. DTSIMLEN 00378 15 MLEN-FAS-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00379 15 MLEN-FAS-OCC-MAX PIC S9(04) COMP VALUE +12. DTSIMLEN 00380 15 MLEN-FAS-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00381 15 MLEN-FAS-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00382 15 MLEN-FAS-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00383 15 MLEN-FAS-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00384 15 MLEN-FAS-PREFIX PIC X(04) VALUE 'MFAS'.DTSIMLEN 00385 DTSIMLEN 00386 ***** DTSIMLEN 00387 * REC-TYPE = 27 DTSIMLEN 00388 ***** DTSIMLEN 00389 15 MLEN-AUR-KEY-LEN PIC S9(04) COMP VALUE +11. DTSIMLEN 00390 15 MLEN-AUR-FIX-LEN PIC S9(04) COMP VALUE +85. DTSIMLEN 00391 15 MLEN-AUR-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00392 15 MLEN-AUR-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00393 15 MLEN-AUR-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00394 15 MLEN-AUR-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00395 15 MLEN-AUR-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00396 15 MLEN-AUR-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00397 15 MLEN-AUR-PREFIX PIC X(04) VALUE 'MAUR'.DTSIMLEN 00398 DTSIMLEN 00399 ***** DTSIMLEN 00400 * REC-TYPE = 28 DTSIMLEN 00401 ***** DTSIMLEN 00402 15 MLEN-AUY-KEY-LEN PIC S9(04) COMP VALUE +15. DTSIMLEN 00403 15 MLEN-AUY-FIX-LEN PIC S9(04) COMP VALUE +251. DTSIMLEN 00404 15 MLEN-AUY-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00405 15 MLEN-AUY-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00406 15 MLEN-AUY-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00407 15 MLEN-AUY-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00408 15 MLEN-AUY-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00409 15 MLEN-AUY-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00410 15 MLEN-AUY-PREFIX PIC X(04) VALUE 'MAUY'.DTSIMLEN 00411 DTSIMLEN 00412 ***** DTSIMLEN 00413 * REC-TYPE = 29 DTSIMLEN 00414 ***** DTSIMLEN 00415 15 MLEN-FAR-KEY-LEN PIC S9(04) COMP VALUE +13. DTSIMLEN 00416 15 MLEN-FAR-FIX-LEN PIC S9(04) COMP VALUE +29. DTSIMLEN 00417 15 MLEN-FAR-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00418 15 MLEN-FAR-OCC-MAX PIC S9(04) COMP VALUE +16. DTSIMLEN 00419 15 MLEN-FAR-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00420 15 MLEN-FAR-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00421 15 MLEN-FAR-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00422 15 MLEN-FAR-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00423 15 MLEN-FAR-PREFIX PIC X(04) VALUE 'MFAR'.DTSIMLEN 00424 DTSIMLEN 00425 ***** DTSIMLEN 00426 * REC-TYPE = 30 DTSIMLEN 00427 ***** DTSIMLEN 00428 15 MLEN-FSL-KEY-LEN PIC S9(04) COMP VALUE +13. DTSIMLEN 00429 15 MLEN-FSL-FIX-LEN PIC S9(04) COMP VALUE +537. DTSIMLEN 00430 15 MLEN-FSL-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00431 15 MLEN-FSL-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00432 15 MLEN-FSL-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00433 15 MLEN-FSL-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00434 15 MLEN-FSL-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00435 15 MLEN-FSL-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00436 15 MLEN-FSL-PREFIX PIC X(04) VALUE 'MFSL'.DTSIMLEN 00437 DTSIMLEN 00438 ***** DTSIMLEN 00439 * REC-TYPE = 31 DTSIMLEN 00440 ***** DTSIMLEN 00441 15 MLEN-COL-KEY-LEN PIC S9(04) COMP VALUE +6. DTSIMLEN 00442 15 MLEN-COL-FIX-LEN PIC S9(04) COMP VALUE +149. DTSIMLEN 00443 15 MLEN-COL-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00444 15 MLEN-COL-OCC-MAX PIC S9(04) COMP VALUE +8. DTSIMLEN 00445 15 MLEN-COL-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00446 15 MLEN-COL-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00447 15 MLEN-COL-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00448 15 MLEN-COL-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00449 15 MLEN-COL-PREFIX PIC X(04) VALUE 'MCOL'.DTSIMLEN 00450 DTSIMLEN 00451 ***** DTSIMLEN 00452 * REC-TYPE = 32 DTSIMLEN 00453 ***** DTSIMLEN 00454 15 MLEN-APL-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00455 15 MLEN-APL-FIX-LEN PIC S9(04) COMP VALUE +190. DTSIMLEN 00456 15 MLEN-APL-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00457 15 MLEN-APL-OCC-MAX PIC S9(04) COMP VALUE +8. DTSIMLEN 00458 15 MLEN-APL-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00459 15 MLEN-APL-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00460 15 MLEN-APL-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00461 15 MLEN-APL-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00462 15 MLEN-APL-PREFIX PIC X(04) VALUE 'MAPL'.DTSIMLEN 00463 DTSIMLEN 00464 ***** DTSIMLEN 00465 * REC-TYPE = 33 DTSIMLEN 00466 ***** DTSIMLEN 00467 15 MLEN-LIN-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00468 15 MLEN-LIN-FIX-LEN PIC S9(04) COMP VALUE +362. DTSIMLEN 00469 15 MLEN-LIN-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00470 15 MLEN-LIN-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00471 15 MLEN-LIN-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00472 15 MLEN-LIN-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00473 15 MLEN-LIN-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00474 15 MLEN-LIN-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00475 15 MLEN-LIN-PREFIX PIC X(04) VALUE 'MLIN'.DTSIMLEN 00476 DTSIMLEN 00477 ***** DTSIMLEN 00478 * REC-TYPE = 34 DTSIMLEN 00479 ***** DTSIMLEN 00480 15 MLEN-DPC-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00481 15 MLEN-DPC-FIX-LEN PIC S9(04) COMP VALUE +476. DTSIMLEN 00482 15 MLEN-DPC-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00483 15 MLEN-DPC-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00484 15 MLEN-DPC-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00485 15 MLEN-DPC-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00486 15 MLEN-DPC-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00487 15 MLEN-DPC-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00488 15 MLEN-DPC-PREFIX PIC X(04) VALUE 'MDPC'.DTSIMLEN 00489 DTSIMLEN 00490 ***** DTSIMLEN 00491 * REC-TYPE = 35 DTSIMLEN 00492 ***** DTSIMLEN 00493 15 MLEN-LEV-KEY-LEN PIC S9(04) COMP VALUE +6. DTSIMLEN 00494 15 MLEN-LEV-FIX-LEN PIC S9(04) COMP VALUE +167. DTSIMLEN 00495 15 MLEN-LEV-VAR-LEN PIC S9(04) COMP VALUE +72. DTSIMLEN 00496 15 MLEN-LEV-OCC-MAX PIC S9(04) COMP VALUE +8. DTSIMLEN 00497 15 MLEN-LEV-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00498 15 MLEN-LEV-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00499 15 MLEN-LEV-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00500 15 MLEN-LEV-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00501 15 MLEN-LEV-PREFIX PIC X(04) VALUE 'MLEV'.DTSIMLEN 00502 DTSIMLEN 00503 ***** DTSIMLEN 00504 * REC-TYPE = 36 DTSIMLEN 00505 ***** DTSIMLEN 00506 DTSIMLEN 00507 15 MLEN-CMP-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00508 15 MLEN-CMP-FIX-LEN PIC S9(04) COMP VALUE +364. DTSIMLEN 00509 15 MLEN-CMP-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00510 15 MLEN-CMP-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00511 15 MLEN-CMP-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00512 15 MLEN-CMP-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00513 15 MLEN-CMP-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00514 15 MLEN-CMP-FILE-ID PIC S9(04) COMP VALUE +2. DTSIMLEN 00515 15 MLEN-CMP-PREFIX PIC X(04) VALUE 'MCMP'.DTSIMLEN 00516 DTSIMLEN 00517 ***** DTSIMLEN 00518 * REC-TYPE = 37 DTSIMLEN 00519 ***** DTSIMLEN 00520 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00521 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00522 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00523 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00524 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00525 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00526 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00527 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00528 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00529 DTSIMLEN 00530 ***** DTSIMLEN 00531 * REC-TYPE = 38 DTSIMLEN 00532 ***** DTSIMLEN 00533 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00534 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00535 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00536 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00537 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00538 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00539 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00540 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00541 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00542 DTSIMLEN 00543 ***** DTSIMLEN 00544 * REC-TYPE = 39 DTSIMLEN 00545 ***** DTSIMLEN 00546 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00547 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00548 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00549 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00550 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00551 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00552 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00553 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00554 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00555 DTSIMLEN 00556 ***** DTSIMLEN 00557 * REC-TYPE = 40 DTSIMLEN 00558 ***** DTSIMLEN 00559 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00560 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00561 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00562 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00563 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00564 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00565 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00566 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00567 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00568 DTSIMLEN 00569 ***** DTSIMLEN 00570 * REC-TYPE = 41 DTSIMLEN 00571 ***** DTSIMLEN 00572 15 MLEN-QTR-KEY-LEN PIC S9(04) COMP VALUE +9. DTSIMLEN 00573 15 MLEN-QTR-FIX-LEN PIC S9(04) COMP VALUE +189. DTSIMLEN 00574 15 MLEN-QTR-VAR-LEN PIC S9(04) COMP VALUE +38. DTSIMLEN 00575 15 MLEN-QTR-OCC-MAX PIC S9(04) COMP VALUE +10. DTSIMLEN 00576 15 MLEN-QTR-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00577 15 MLEN-QTR-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00578 15 MLEN-QTR-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00579 15 MLEN-QTR-FILE-ID PIC S9(04) COMP VALUE +5. DTSIMLEN 00580 15 MLEN-QTR-PREFIX PIC X(04) VALUE 'MQTR'.DTSIMLEN 00581 DTSIMLEN 00582 ***** DTSIMLEN 00583 * REC-TYPE = 42 DTSIMLEN 00584 ***** DTSIMLEN 00585 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00586 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00587 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00588 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00589 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00590 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00591 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00592 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00593 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00594 DTSIMLEN 00595 ***** DTSIMLEN 00596 * REC-TYPE = 43 DTSIMLEN 00597 ***** DTSIMLEN 00598 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00599 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00600 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00601 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00602 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00603 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00604 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00605 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00606 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00607 DTSIMLEN 00608 ***** DTSIMLEN 00609 * REC-TYPE = 44 DTSIMLEN 00610 ***** DTSIMLEN 00611 15 MLEN-RPT-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00612 15 MLEN-RPT-FIX-LEN PIC S9(04) COMP VALUE +127. DTSIMLEN 00613 15 MLEN-RPT-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00614 15 MLEN-RPT-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00615 15 MLEN-RPT-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00616 15 MLEN-RPT-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00617 15 MLEN-RPT-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00618 15 MLEN-RPT-FILE-ID PIC S9(04) COMP VALUE +6. DTSIMLEN 00619 15 MLEN-RPT-PREFIX PIC X(04) VALUE 'MRPT'.DTSIMLEN 00620 DTSIMLEN 00621 ***** DTSIMLEN 00622 * REC-TYPE = 45 DTSIMLEN 00623 ***** DTSIMLEN 00624 15 MLEN-ADJ-KEY-LEN PIC S9(04) COMP VALUE +11. DTSIMLEN 00625 15 MLEN-ADJ-FIX-LEN PIC S9(04) COMP VALUE +93. DTSIMLEN 00626 15 MLEN-ADJ-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00627 15 MLEN-ADJ-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00628 15 MLEN-ADJ-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00629 15 MLEN-ADJ-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00630 15 MLEN-ADJ-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00631 15 MLEN-ADJ-FILE-ID PIC S9(04) COMP VALUE +6. DTSIMLEN 00632 15 MLEN-ADJ-PREFIX PIC X(04) VALUE 'MADJ'.DTSIMLEN 00633 DTSIMLEN 00634 ***** DTSIMLEN 00635 * REC-TYPE = 46 DTSIMLEN 00636 ***** DTSIMLEN 00637 15 MLEN-PAY-KEY-LEN PIC S9(04) COMP VALUE +11. DTSIMLEN 00638 15 MLEN-PAY-FIX-LEN PIC S9(04) COMP VALUE +90. DTSIMLEN 00639 15 MLEN-PAY-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00640 15 MLEN-PAY-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00641 15 MLEN-PAY-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00642 15 MLEN-PAY-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00643 15 MLEN-PAY-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00644 15 MLEN-PAY-FILE-ID PIC S9(04) COMP VALUE +6. DTSIMLEN 00645 15 MLEN-PAY-PREFIX PIC X(04) VALUE 'MPAY'.DTSIMLEN 00646 DTSIMLEN 00647 ***** DTSIMLEN 00648 * REC-TYPE = 47 DTSIMLEN 00649 ***** DTSIMLEN 00650 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00651 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00652 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00653 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00654 15 FILLER PIC X(01) VALUE '0'. DTSIMLEN 00655 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00656 15 FILLER PIC X(01) VALUE 'N'. DTSIMLEN 00657 15 FILLER PIC S9(04) COMP VALUE +0. DTSIMLEN 00658 15 FILLER PIC X(04) VALUE ' '.DTSIMLEN 00659 DTSIMLEN 00660 ***** DTSIMLEN 00661 * REC-TYPE = 48 DTSIMLEN 00662 ***** DTSIMLEN 00663 15 MLEN-DST-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00664 15 MLEN-DST-FIX-LEN PIC S9(04) COMP VALUE +32. DTSIMLEN 00665 15 MLEN-DST-VAR-LEN PIC S9(04) COMP VALUE +8. DTSIMLEN 00666 15 MLEN-DST-OCC-MAX PIC S9(04) COMP VALUE +10. DTSIMLEN 00667 15 MLEN-DST-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00668 15 MLEN-DST-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00669 15 MLEN-DST-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00670 15 MLEN-DST-FILE-ID PIC S9(04) COMP VALUE +6. DTSIMLEN 00671 15 MLEN-DST-PREFIX PIC X(04) VALUE 'MDST'.DTSIMLEN 00672 DTSIMLEN 00673 ***** DTSIMLEN 00674 * REC-TYPE = 49 DTSIMLEN 00675 ***** DTSIMLEN 00676 15 MLEN-REV-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIMLEN 00677 15 MLEN-REV-FIX-LEN PIC S9(04) COMP VALUE +35. DTSIMLEN 00678 15 MLEN-REV-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00679 15 MLEN-REV-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00680 15 MLEN-REV-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00681 15 MLEN-REV-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00682 15 MLEN-REV-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00683 15 MLEN-REV-FILE-ID PIC S9(04) COMP VALUE +6. DTSIMLEN 00684 15 MLEN-REV-PREFIX PIC X(04) VALUE 'MREV'.DTSIMLEN 00685 DTSIMLEN 00686 ***** DTSIMLEN 00687 * REC-TYPE = 50 DTSIMLEN 00688 ***** DTSIMLEN 00689 15 MLEN-RFD-KEY-LEN PIC S9(04) COMP VALUE +11. DTSIMLEN 00690 15 MLEN-RFD-FIX-LEN PIC S9(04) COMP VALUE +102. DTSIMLEN 00691 15 MLEN-RFD-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00692 15 MLEN-RFD-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00693 15 MLEN-RFD-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00694 15 MLEN-RFD-AIX-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00695 15 MLEN-RFD-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00696 15 MLEN-RFD-FILE-ID PIC S9(04) COMP VALUE +3. DTSIMLEN 00697 15 MLEN-RFD-PREFIX PIC X(04) VALUE 'MRFD'.DTSIMLEN 00698 DTSIMLEN 00699 ***** DTSIMLEN 00700 * REC-TYPE = 51 DTSIMLEN 00701 ***** DTSIMLEN 00702 15 MLEN-JRN-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00703 15 MLEN-JRN-FIX-LEN PIC S9(04) COMP VALUE +64. DTSIMLEN 00704 15 MLEN-JRN-VAR-LEN PIC S9(04) COMP VALUE +13. DTSIMLEN 00705 15 MLEN-JRN-OCC-MAX PIC S9(04) COMP VALUE +100. DTSIMLEN 00706 15 MLEN-JRN-CMP-IND PIC X(01) VALUE '0'. DTSIMLEN 00707 15 MLEN-JRN-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00708 15 MLEN-JRN-DEL-IND PIC X(01) VALUE 'N'. DTSIMLEN 00709 15 MLEN-JRN-FILE-ID PIC S9(04) COMP VALUE +3. DTSIMLEN 00710 15 MLEN-JRN-PREFIX PIC X(04) VALUE 'MJRN'.DTSIMLEN 00711 DTSIMLEN 00712 ***** DTSIMLEN 00713 * REC-TYPE = 52 DTSIMLEN 00714 ***** DTSIMLEN 00715 15 MLEN-LOG-KEY-LEN PIC S9(04) COMP VALUE +14. DTSIMLEN 00716 15 MLEN-LOG-FIX-LEN PIC S9(04) COMP VALUE +176. DTSIMLEN 00717 15 MLEN-LOG-VAR-LEN PIC S9(04) COMP VALUE +0. DTSIMLEN 00718 15 MLEN-LOG-OCC-MAX PIC S9(04) COMP VALUE +0. DTSIMLEN 00719 15 MLEN-LOG-CMP-IND PIC X(01) VALUE '1'. DTSIMLEN 00720 15 MLEN-LOG-AIX-IND PIC X(01) VALUE 'N'. DTSIMLEN 00721 15 MLEN-LOG-DEL-IND PIC X(01) VALUE 'Y'. DTSIMLEN 00722 15 MLEN-LOG-FILE-ID PIC S9(04) COMP VALUE +4. DTSIMLEN 00723 15 MLEN-LOG-PREFIX PIC X(04) VALUE 'MLOG'.DTSIMLEN 00724 DTSIMLEN 00725 DTSIMLEN 00726 10 FILLER REDEFINES MLEN-LENGTHS-AREA. DTSIMLEN 00727 15 MLEN-LENGTH OCCURS 52 TIMES DTSIMLEN 00728 INDEXED BY MLEN-IDX. DTSIMLEN 00729 20 MLEN-KEY-LEN PIC S9(04) COMP. DTSIMLEN 00730 20 MLEN-FIX-LEN PIC S9(04) COMP. DTSIMLEN 00731 20 MLEN-VAR-LEN PIC S9(04) COMP. DTSIMLEN 00732 20 MLEN-OCC-MAX PIC S9(04) COMP. DTSIMLEN 00733 20 MLEN-CMP-IND PIC X(01). DTSIMLEN 00734 88 MLEN-COMPRESS-1-88 VALUE '1'. DTSIMLEN 00735 88 MLEN-COMPRESS-NO-88 VALUE '0'. DTSIMLEN 00736 88 MLEN-COMPRESS-YES-88 VALUE '1'. DTSIMLEN 00737 20 MLEN-AIX-IND PIC X(01). DTSIMLEN 00738 88 MLEN-AIX-YES-88 VALUE 'Y'. DTSIMLEN 00739 88 MLEN-AIX-NO-88 VALUE 'N'. DTSIMLEN 00740 20 MLEN-DEL-IND PIC X(01). DTSIMLEN 00741 88 MLEN-DEL-MPRF-OK-88 VALUE 'Y'. DTSIMLEN 00742 88 MLEN-DEL-MPRF-NOT-OK-88 VALUE 'N'. DTSIMLEN 00743 20 MLEN-FILE-ID PIC S9(04) COMP. DTSIMLEN 00744 20 MLEN-PREFIX PIC X(04). DTSIMLEN 00745 DTSIMLEN 00746 DTSIMLEN 00747 10 MLEN-MAX-REC-TYPE PIC S9(04) COMP VALUE +52. DTSIMLEN 00748 DTSIMLEN 00749 10 MLEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIMLEN 00750 DTSIMLEN 00751 10 MLEN-MAX-MIO-REC-LEN PIC S9(04) COMP VALUE +1534. DTSIMLEN 00752 DTSIMLEN 00753 10 MLEN-MAX-MIO-DATA-LEN PIC S9(04) COMP VALUE +1515. DTSIMLEN 00754 DTSIMLEN 00755 10 MLEN-MIO-NONDATA-LEN PIC S9(04) COMP VALUE +19. DTSIMLEN 00756 DTSIMLEN 00757 10 MLEN-MAX-MSKL-DATA-LEN PIC S9(04) COMP VALUE +1515. DTSIMLEN 00758 DTSIMLEN 00759 10 MLEN-MSKL-NONDATA-LEN PIC S9(04) COMP VALUE +21. DTSIMLEN