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