760 lines
60 KiB
COBOL
760 lines
60 KiB
COBOL
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
|