TITLE ' /* IRBMFRPR - PAGING ACTIVITY REPORT *00001000 ' 00002000 IRBMFRPR CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IRBMFRPR 76.105' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @09,0 0001 00011000 @PSTART LA @10,4095(,@09) 0001 00012000 USING @PSTART,@09 0001 00013000 USING @PSTART+4095,@10 0001 00014000 L @00,@SIZDATD 0001 00015000 GETMAIN R,LV=(0) 00016000 LR @08,@01 0001 00017000 USING @DATD,@08 0001 00018000 ST @13,@SA00001+4 0001 00019000 LM @00,@01,20(@13) 0001 00020000 ST @08,8(,@13) 0001 00021000 LR @13,@08 0001 00022000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00023000 MVC @PC00001(8),0(@01) 0001 00024000 * 0009 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* ZERO OUT CALCULATED VALUES ARRAY */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0009 00031000 * DO I=1 TO RPDATLIN; 0009 00032000 LA @15,1 0009 00033000 ST @15,I 0009 00034000 @DL00009 DS 0H 0010 00035000 * DO J=1 TO RPDATCOL; 0010 00036000 LA @15,1 0010 00037000 ST @15,J 0010 00038000 @DL00010 DS 0H 0011 00039000 * RPVALUE(I,J)=0; 0011 00040000 L @14,I 0011 00041000 MH @14,@CH00150 0011 00042000 ALR @14,@15 0011 00043000 SLA @14,2 0011 00044000 SLR @07,@07 0011 00045000 ST @07,RPVALUE-44(@14) 0011 00046000 * END; 0012 00047000 AH @15,@CH00052 0012 00048000 ST @15,J 0012 00049000 CH @15,@CH00150 0012 00050000 BNH @DL00010 0012 00051000 * END; 0013 00052000 * 0013 00053000 LA @15,1 0013 00054000 AL @15,I 0013 00055000 ST @15,I 0013 00056000 CH @15,@CH00145 0013 00057000 BNH @DL00009 0013 00058000 * /*****************************************************************/ 00059000 * /* */ 00060000 * /* CALCULATE INTERVAL TIME WHICH WILL BE USED IN FINDING RATES */ 00061000 * /* PER SECOND */ 00062000 * /* */ 00063000 * /*****************************************************************/ 00064000 * 0014 00065000 * CVB(RPTEMP,SMF71INT); /* GET BINARY MMTTTTT FROM PACKED 00066000 * FORM MMSSTTTF */ 00067000 L @15,@PC00001 0014 00068000 L @15,SMF71PTR(,@15) 0014 00069000 XC @TS00001(8),@TS00001 0014 00070000 MVC @TS00001+4(4),SMF71INT(@15) 0014 00071000 CVB @14,@TS00001 0014 00072000 ST @14,RPTEMP 0014 00073000 * RPTEMP=((RPTEMP/100000) /* THOUSANDTH THIS SEC=MINUTES 0015 00074000 * (MM) */ 00075000 * *60*1000) /* CONVERTED TO THOUSANDTHS SEC, */ 00076000 * +(RPTEMP//100000); /* PLUS THOUSANDTHS (TTTTT). */ 00077000 * 0015 00078000 L @07,@CF00341 0015 00079000 LR @00,@14 0015 00080000 SRDA @00,32 0015 00081000 DR @00,@07 0015 00082000 M @00,@CF00374 0015 00083000 SRDA @14,32 0015 00084000 DR @14,@07 0015 00085000 ALR @01,@14 0015 00086000 ST @01,RPTEMP 0015 00087000 * /*****************************************************************/ 00088000 * /* */ 00089000 * /* PAGING ACTIVITY DATA CALCULATIONS. (MAIN STORAGE RATES) */ 00090000 * /* */ 00091000 * /*****************************************************************/ 00092000 * 0016 00093000 */* PAGE RECLAIMS RATE */ 00094000 * 0016 00095000 * RPVALUE(RPPSAVIO,RPPRRAT)=(SMF71SVR/* PAGE RECLAIM RATE (VIO) */ 00096000 * *RPPAGSEC)/RPTEMP; 0016 00097000 L @15,RPPAGSEC 0016 00098000 L @14,@PC00001 0016 00099000 L @14,SMF71PTR(,@14) 0016 00100000 LA @07,SMF71SIZ(,@14) 0016 00101000 AH @07,SMF71SIZ(,@14) 0016 00102000 LH @14,SMF71SPC(,@07) 0016 00103000 ALR @14,@07 0016 00104000 L @07,SMF71SVR(,@14) 0016 00105000 LR @03,@07 0016 00106000 MR @02,@15 0016 00107000 DR @02,@01 0016 00108000 ST @03,RPVALUE 0016 00109000 * RPVALUE(RPPSANVI,RPPRRAT)=(SMF71SNR/* PAGE RECLAIM RATE NON-VIO */ 00110000 * *RPPAGSEC)/RPTEMP; 0017 00111000 L @06,SMF71SNR(,@14) 0017 00112000 LR @03,@06 0017 00113000 MR @02,@15 0017 00114000 DR @02,@01 0017 00115000 ST @03,RPVALUE+40 0017 00116000 * RPVALUE(RPPSASUM,RPPRRAT)=((SMF71SVR+SMF71SNR)/* RATE'S SUM */ 00117000 * *RPPAGSEC)/RPTEMP; 0018 00118000 LR @03,@07 0018 00119000 ALR @03,@06 0018 00120000 MR @02,@15 0018 00121000 DR @02,@01 0018 00122000 ST @03,RPVALUE+80 0018 00123000 * RPVALUE(RPADSVIO,RPPRRAT)=((SMF71VRC-SMF71SVR)/* ADDR SPACE VIO */ 00124000 * *RPPAGSEC)/RPTEMP; 0019 00125000 L @05,SMF71VRC(,@14) 0019 00126000 LR @03,@05 0019 00127000 SLR @03,@07 0019 00128000 MR @02,@15 0019 00129000 DR @02,@01 0019 00130000 ST @03,RPVALUE+120 0019 00131000 * RPVALUE(RPADSNVI,RPPRRAT)=((SMF71PRC-SMF71SNR)/* ADDR SPACE NON 00132000 * VIO */ 00133000 * *RPPAGSEC)/RPTEMP; 0020 00134000 L @14,SMF71PRC(,@14) 0020 00135000 LR @03,@14 0020 00136000 SLR @03,@06 0020 00137000 MR @02,@15 0020 00138000 DR @02,@01 0020 00139000 ST @03,RPVALUE+160 0020 00140000 * RPVALUE(RPADSSUM,RPPRRAT)=((SMF71VRC+SMF71PRC/* RATE'S SUM */ 00141000 * -SMF71SVR-SMF71SNR)*RPPAGSEC)/RPTEMP; 0021 00142000 LR @04,@05 0021 00143000 ALR @04,@14 0021 00144000 LCR @07,@07 0021 00145000 ALR @07,@04 0021 00146000 SLR @07,@06 0021 00147000 MR @06,@15 0021 00148000 DR @06,@01 0021 00149000 ST @07,RPVALUE+200 0021 00150000 * RPVALUE(RPTSVIO,RPPRRAT)=(SMF71VRC/* TOTAL SYSTEM RATE VIO */ 00151000 * *RPPAGSEC)/RPTEMP; 0022 00152000 ST @04,@TF00001 0022 00153000 MR @04,@15 0022 00154000 DR @04,@01 0022 00155000 ST @05,RPVALUE+240 0022 00156000 * RPVALUE(RPTSNVI,RPPRRAT)=(SMF71PRC/* TOTAL SYSTEM RATE NON VIO */ 00157000 * *RPPAGSEC)/RPTEMP; 0023 00158000 LR @03,@14 0023 00159000 MR @02,@15 0023 00160000 DR @02,@01 0023 00161000 ST @03,RPVALUE+280 0023 00162000 * RPVALUE(RPTSSUM,RPPRRAT)=((SMF71VRC+SMF71PRC)/* RATE'S SUM */ 00163000 * *RPPAGSEC)/RPTEMP; 0024 00164000 M @14,@TF00001 0024 00165000 DR @14,@01 0024 00166000 ST @15,RPVALUE+320 0024 00167000 * IF RPVALUE(RPTSSUM,RPPRRAT)=RPNULLVL THEN/* IS DENOMINATOR ZERO? */ 00168000 LTR @15,@15 0025 00169000 BNZ @RF00025 0025 00170000 * DO L=1 TO RPDATLIN; 0026 00171000 LA @15,1 0026 00172000 ST @15,L 0026 00173000 @DL00026 DS 0H 0027 00174000 * RPVALUE(L,RPPRPTS)=RPNULLVL;/* SET TOTAL SUM TO ZERO */ 00175000 LR @14,@15 0027 00176000 MH @14,@CH00249 0027 00177000 SLR @07,@07 0027 00178000 ST @07,RPVALUE-36(@14) 0027 00179000 * END; 0028 00180000 AH @15,@CH00052 0028 00181000 ST @15,L 0028 00182000 CH @15,@CH00145 0028 00183000 BNH @DL00026 0028 00184000 * ELSE 0029 00185000 * DO L=1 TO RPDATLIN; 0029 00186000 B @RC00025 0029 00187000 @RF00025 LA @15,1 0029 00188000 ST @15,L 0029 00189000 @DL00029 DS 0H 0030 00190000 * RFY 0030 00191000 * (GPR00F, 0030 00192000 * GPR01F, 0030 00193000 * GPR14F, 0030 00194000 * GPR15F) RSTD; 0030 00195000 * GPR01F=RPVALUE(L,RPPRRAT); /* SET UP FOR MULTIPLY AND */ 00196000 L @07,L 0031 00197000 MH @07,@CH00249 0031 00198000 L GPR01F,RPVALUE-40(@07) 0031 00199000 * GPR15F=RPVALUE(RPTSSUM,RPPRRAT);/* DIVIDE */ 00200000 L GPR15F,RPVALUE+320 0032 00201000 * GENERATE REFS(RPRATSEC); 0033 00202000 M GPR00F,RPRATSEC 00203000 DR GPR00F,GPR15F 00204000 * RPVALUE(L,RPPRPTS)=GPR01F; /* RESULT IS TOTAL SUM PERCENTAGE*/ 00205000 L @07,L 0034 00206000 LR @06,@07 0034 00207000 MH @06,@CH00249 0034 00208000 ST GPR01F,RPVALUE-36(@06) 0034 00209000 * RFY 0035 00210000 * (GPR00F, 0035 00211000 * GPR01F, 0035 00212000 * GPR14F, 0035 00213000 * GPR15F) UNRSTD; 0035 00214000 * END; 0036 00215000 * 0036 00216000 AH @07,@CH00052 0036 00217000 LR @15,@07 0036 00218000 ST @15,L 0036 00219000 CH @15,@CH00145 0036 00220000 BNH @DL00029 0036 00221000 */* PAGE IN SWAP */ 00222000 * 0037 00223000 * /*****************************************************************/ 00224000 * /* */ 00225000 * /* LABELS ARE PLACED BEFORE EACH OF THE FOLLOWING 4 STATEMENTS TO*/ 00226000 * /* GET PLS TO GENERATE A 'MR' AND IMMEDIATELY FOLLOWING A 'DR'. */ 00227000 * /* THIS SOLVES THE PROBLEM OF OVERFLOWING WHEN THE INPUT DATA */ 00228000 * /* TIMES RPPAGSEC PRODUCES A VERY LARGE VALUE. */ 00229000 * /* */ 00230000 * /*****************************************************************/ 00231000 * 0037 00232000 * RPVALUE(RPADSNVI,RPPISWAP)=(SMF71SIN/* PAGE IN NON VIO */ 00233000 * *RPPAGSEC)/RPTEMP; 0037 00234000 @RC00025 L @15,@PC00001 0037 00235000 L @15,SMF71PTR(,@15) 0037 00236000 LA @14,SMF71SIZ(,@15) 0037 00237000 AH @14,SMF71SIZ(,@15) 0037 00238000 LH @15,SMF71SPC(,@14) 0037 00239000 ALR @15,@14 0037 00240000 L @01,SMF71SIN(,@15) 0037 00241000 M @00,RPPAGSEC 0037 00242000 D @00,RPTEMP 0037 00243000 ST @01,RPVALUE+168 0037 00244000 *RPSWPIN1: 0038 00245000 * ; 0038 00246000 RPSWPIN1 DS 0H 0039 00247000 * RPVALUE(RPADSSUM,RPPISWAP)=(SMF71SIN/* SUM */ 00248000 * *RPPAGSEC)/RPTEMP; 0039 00249000 L @15,@PC00001 0039 00250000 L @15,SMF71PTR(,@15) 0039 00251000 LA @14,SMF71SIZ(,@15) 0039 00252000 AH @14,SMF71SIZ(,@15) 0039 00253000 LH @15,SMF71SPC(,@14) 0039 00254000 ALR @15,@14 0039 00255000 L @01,SMF71SIN(,@15) 0039 00256000 M @00,RPPAGSEC 0039 00257000 D @00,RPTEMP 0039 00258000 ST @01,RPVALUE+208 0039 00259000 *RPSWPIN2: 0040 00260000 * ; 0040 00261000 RPSWPIN2 DS 0H 0041 00262000 * RPVALUE(RPTSNVI,RPPISWAP)=(SMF71SIN/* PAGE IN TOTAL NON VIO */ 00263000 * *RPPAGSEC)/RPTEMP; 0041 00264000 L @15,@PC00001 0041 00265000 L @15,SMF71PTR(,@15) 0041 00266000 LA @14,SMF71SIZ(,@15) 0041 00267000 AH @14,SMF71SIZ(,@15) 0041 00268000 LH @15,SMF71SPC(,@14) 0041 00269000 ALR @15,@14 0041 00270000 L @01,SMF71SIN(,@15) 0041 00271000 M @00,RPPAGSEC 0041 00272000 D @00,RPTEMP 0041 00273000 ST @01,RPVALUE+288 0041 00274000 *RPSWPIN3: 0042 00275000 * ; 0042 00276000 RPSWPIN3 DS 0H 0043 00277000 * RPVALUE(RPTSSUM,RPPISWAP)=(SMF71SIN/* SUM */ 00278000 * *RPPAGSEC)/RPTEMP; 0043 00279000 * 0043 00280000 L @15,RPTEMP 0043 00281000 L @14,RPPAGSEC 0043 00282000 L @07,@PC00001 0043 00283000 L @07,SMF71PTR(,@07) 0043 00284000 LA @06,SMF71SIZ(,@07) 0043 00285000 AH @06,SMF71SIZ(,@07) 0043 00286000 LH @07,SMF71SPC(,@06) 0043 00287000 ALR @07,@06 0043 00288000 L @01,SMF71SIN(,@07) 0043 00289000 MR @00,@14 0043 00290000 DR @00,@15 0043 00291000 ST @01,RPVALUE+328 0043 00292000 */* PAGE IN NON SWAP */ 00293000 * 0044 00294000 * RPVALUE(RPPSAVIO,RPPINSWP)=(SMF71SVI/* VIO */ 00295000 * *RPPAGSEC)/RPTEMP; 0044 00296000 L @06,SMF71SVI(,@07) 0044 00297000 LR @01,@06 0044 00298000 MR @00,@14 0044 00299000 DR @00,@15 0044 00300000 ST @01,RPVALUE+12 0044 00301000 * RPVALUE(RPPSANVI,RPPINSWP)=(SMF71SNI/* NON VIO */ 00302000 * *RPPAGSEC)/RPTEMP; 0045 00303000 L @05,SMF71SNI(,@07) 0045 00304000 LR @01,@05 0045 00305000 MR @00,@14 0045 00306000 DR @00,@15 0045 00307000 ST @01,RPVALUE+52 0045 00308000 * RPVALUE(RPPSASUM,RPPINSWP)=((SMF71SVI+SMF71SNI)/* SUM */ 00309000 * *RPPAGSEC)/RPTEMP; 0046 00310000 LR @01,@06 0046 00311000 ALR @01,@05 0046 00312000 MR @00,@14 0046 00313000 DR @00,@15 0046 00314000 ST @01,RPVALUE+92 0046 00315000 * RPVALUE(RPADSVIO,RPPINSWP)=((SMF71VIN-SMF71SVI)/* VIO */ 00316000 * *RPPAGSEC)/RPTEMP; 0047 00317000 L @04,SMF71VIN(,@07) 0047 00318000 LR @01,@04 0047 00319000 SLR @01,@06 0047 00320000 MR @00,@14 0047 00321000 DR @00,@15 0047 00322000 ST @01,RPVALUE+132 0047 00323000 * RPVALUE(RPADSNVI,RPPINSWP)=((SMF71PIN-SMF71SNI)/* NON VIO */ 00324000 * *RPPAGSEC)/RPTEMP; 0048 00325000 L @07,SMF71PIN(,@07) 0048 00326000 LR @01,@07 0048 00327000 SLR @01,@05 0048 00328000 MR @00,@14 0048 00329000 DR @00,@15 0048 00330000 ST @01,RPVALUE+172 0048 00331000 * RPVALUE(RPADSSUM,RPPINSWP)=((SMF71VIN+SMF71PIN-SMF71SVI-SMF71SNI)* 00332000 * RPPAGSEC)/RPTEMP; 0049 00333000 LR @03,@04 0049 00334000 ALR @03,@07 0049 00335000 LR @01,@03 0049 00336000 SLR @01,@06 0049 00337000 SLR @01,@05 0049 00338000 MR @00,@14 0049 00339000 DR @00,@15 0049 00340000 ST @01,RPVALUE+212 0049 00341000 * RPVALUE(RPTSVIO,RPPINSWP)=(SMF71VIN/* VIO */ 00342000 * *RPPAGSEC)/RPTEMP; 0050 00343000 LR @01,@04 0050 00344000 MR @00,@14 0050 00345000 DR @00,@15 0050 00346000 ST @01,RPVALUE+252 0050 00347000 * RPVALUE(RPTSNVI,RPPINSWP)=(SMF71PIN/* NON VIO */ 00348000 * *RPPAGSEC)/RPTEMP; 0051 00349000 LR @01,@07 0051 00350000 MR @00,@14 0051 00351000 DR @00,@15 0051 00352000 ST @01,RPVALUE+292 0051 00353000 * RPVALUE(RPTSSUM,RPPINSWP)=((SMF71VIN+SMF71PIN)/* SUM */ 00354000 * *RPPAGSEC)/RPTEMP; 0052 00355000 * 0052 00356000 MR @02,@14 0052 00357000 DR @02,@15 0052 00358000 ST @03,RPVALUE+332 0052 00359000 */* PAGE IN TOTAL RATE */ 00360000 * 0053 00361000 * RPVALUE(RPPSAVIO,RPPITRAT)=(SMF71SVI/* VIO */ 00362000 * *RPPAGSEC)/RPTEMP; 0053 00363000 LR @01,@06 0053 00364000 MR @00,@14 0053 00365000 DR @00,@15 0053 00366000 ST @01,RPVALUE+16 0053 00367000 * RPVALUE(RPPSANVI,RPPITRAT)=(SMF71SNI/* NON VIO */ 00368000 * *RPPAGSEC)/RPTEMP; 0054 00369000 LR @01,@05 0054 00370000 MR @00,@14 0054 00371000 DR @00,@15 0054 00372000 ST @01,RPVALUE+56 0054 00373000 * RPVALUE(RPPSASUM,RPPITRAT)=((SMF71SVI+SMF71SNI)/* SUM */ 00374000 * *RPPAGSEC)/RPTEMP; 0055 00375000 LR @01,@06 0055 00376000 ALR @01,@05 0055 00377000 MR @00,@14 0055 00378000 DR @00,@15 0055 00379000 ST @01,RPVALUE+96 0055 00380000 * RPVALUE(RPADSVIO,RPPITRAT)=((SMF71VIN-SMF71SVI)/* VIO */ 00381000 * *RPPAGSEC)/RPTEMP; 0056 00382000 LR @01,@04 0056 00383000 SLR @01,@06 0056 00384000 MR @00,@14 0056 00385000 DR @00,@15 0056 00386000 ST @01,RPVALUE+136 0056 00387000 * RPVALUE(RPADSNVI,RPPITRAT)=((SMF71PIN+SMF71SIN-SMF71SNI)/* NON 0057 00388000 * VIO */ 00389000 * *RPPAGSEC)/RPTEMP; 0057 00390000 L @03,@PC00001 0057 00391000 L @03,SMF71PTR(,@03) 0057 00392000 LA @02,SMF71SIZ(,@03) 0057 00393000 AH @02,SMF71SIZ(,@03) 0057 00394000 LH @03,SMF71SPC(,@02) 0057 00395000 ALR @03,@02 0057 00396000 L @03,SMF71SIN(,@03) 0057 00397000 LR @02,@07 0057 00398000 ALR @02,@03 0057 00399000 LR @01,@02 0057 00400000 SLR @01,@05 0057 00401000 MR @00,@14 0057 00402000 DR @00,@15 0057 00403000 ST @01,RPVALUE+176 0057 00404000 * RPVALUE(RPADSSUM,RPPITRAT)=((SMF71VIN+SMF71PIN+SMF71SIN-SMF71SVI- 00405000 * SMF71SNI)*RPPAGSEC)/RPTEMP; 0058 00406000 ALR @07,@04 0058 00407000 ALR @07,@03 0058 00408000 LR @01,@06 0058 00409000 LCR @01,@01 0058 00410000 ALR @01,@07 0058 00411000 SLR @01,@05 0058 00412000 MR @00,@14 0058 00413000 DR @00,@15 0058 00414000 ST @01,RPVALUE+216 0058 00415000 * RPVALUE(RPTSVIO,RPPITRAT)=(SMF71VIN/* VIO */ 00416000 * *RPPAGSEC)/RPTEMP; 0059 00417000 LR @01,@04 0059 00418000 MR @00,@14 0059 00419000 DR @00,@15 0059 00420000 ST @01,RPVALUE+256 0059 00421000 * RPVALUE(RPTSNVI,RPPITRAT)=((SMF71PIN+SMF71SIN)/* NON VIO */ 00422000 * *RPPAGSEC)/RPTEMP; 0060 00423000 LR @01,@02 0060 00424000 MR @00,@14 0060 00425000 DR @00,@15 0060 00426000 ST @01,RPVALUE+296 0060 00427000 * RPVALUE(RPTSSUM,RPPITRAT)=((SMF71VIN+SMF71PIN+SMF71SIN)/* SUM */ 00428000 * *RPPAGSEC)/RPTEMP; 0061 00429000 * 0061 00430000 MR @06,@14 0061 00431000 DR @06,@15 0061 00432000 ST @07,RPVALUE+336 0061 00433000 */* PAGE IN PERCENT OF TOTAL SUM */ 00434000 * 0062 00435000 * IF RPVALUE(RPTSSUM,RPPITRAT)=RPNULLVL THEN/* IS DENOMINATOR ZERO?*/ 00436000 LTR @07,@07 0062 00437000 BNZ @RF00062 0062 00438000 * DO L=1 TO RPDATLIN; 0063 00439000 LA @15,1 0063 00440000 ST @15,L 0063 00441000 @DL00063 DS 0H 0064 00442000 * RPVALUE(L,RPPIPTS)=RPNULLVL;/* SET TOTAL SUM TO ZERO */ 00443000 LR @14,@15 0064 00444000 MH @14,@CH00249 0064 00445000 SLR @07,@07 0064 00446000 ST @07,RPVALUE-20(@14) 0064 00447000 * END; 0065 00448000 AH @15,@CH00052 0065 00449000 ST @15,L 0065 00450000 CH @15,@CH00145 0065 00451000 BNH @DL00063 0065 00452000 * ELSE 0066 00453000 * DO L=1 TO RPDATLIN; 0066 00454000 B @RC00062 0066 00455000 @RF00062 LA @15,1 0066 00456000 ST @15,L 0066 00457000 @DL00066 DS 0H 0067 00458000 * RFY 0067 00459000 * (GPR00F, 0067 00460000 * GPR01F, 0067 00461000 * GPR14F, 0067 00462000 * GPR15F) RSTD; 0067 00463000 * GPR01F=RPVALUE(L,RPPITRAT); /* SET UP FOR MULTIPLY AND */ 00464000 L @07,L 0068 00465000 MH @07,@CH00249 0068 00466000 L GPR01F,RPVALUE-24(@07) 0068 00467000 * GPR15F=RPVALUE(RPTSSUM,RPPITRAT);/* DIVIDE */ 00468000 L GPR15F,RPVALUE+336 0069 00469000 * GENERATE REFS(RPRATSEC); 0070 00470000 M GPR00F,RPRATSEC 00471000 DR GPR00F,GPR15F 00472000 * RPVALUE(L,RPPIPTS)=GPR01F; /* RESULT IS TOTAL SUM PERCENTAGE*/ 00473000 L @07,L 0071 00474000 LR @06,@07 0071 00475000 MH @06,@CH00249 0071 00476000 ST GPR01F,RPVALUE-20(@06) 0071 00477000 * RFY 0072 00478000 * (GPR00F, 0072 00479000 * GPR01F, 0072 00480000 * GPR14F, 0072 00481000 * GPR15F) UNRSTD; 0072 00482000 * END; 0073 00483000 * 0073 00484000 AH @07,@CH00052 0073 00485000 LR @15,@07 0073 00486000 ST @15,L 0073 00487000 CH @15,@CH00145 0073 00488000 BNH @DL00066 0073 00489000 */* PAGE OUT SWAP */ 00490000 * 0074 00491000 * /*****************************************************************/ 00492000 * /* */ 00493000 * /* LABELS ARE PLACED BEFORE EACH OF THE FOLLOWING 4 STATEMENTS TO*/ 00494000 * /* GET PLS TO GENERATE A 'MR' AND IMMEDIATELY FOLLOWING A 'DR'. */ 00495000 * /* THIS SOLVES THE PROBLEM OF OVERFLOWING WHEN THE INPUT DATA */ 00496000 * /* TIMES RPPAGSEC PRODUCES A VERY LARGE VALUE. */ 00497000 * /* */ 00498000 * /*****************************************************************/ 00499000 * 0074 00500000 * RPVALUE(RPADSNVI,RPPOSWAP)=(SMF71SOT/* PAGE OUT NON VIO */ 00501000 * *RPPAGSEC)/RPTEMP; 0074 00502000 @RC00062 L @15,@PC00001 0074 00503000 L @15,SMF71PTR(,@15) 0074 00504000 LA @14,SMF71SIZ(,@15) 0074 00505000 AH @14,SMF71SIZ(,@15) 0074 00506000 LH @15,SMF71SPC(,@14) 0074 00507000 ALR @15,@14 0074 00508000 L @01,SMF71SOT(,@15) 0074 00509000 M @00,RPPAGSEC 0074 00510000 D @00,RPTEMP 0074 00511000 ST @01,RPVALUE+184 0074 00512000 *RPSWPOU1: 0075 00513000 * ; 0075 00514000 RPSWPOU1 DS 0H 0076 00515000 * RPVALUE(RPADSSUM,RPPOSWAP)=(SMF71SOT/* SUM */ 00516000 * *RPPAGSEC)/RPTEMP; 0076 00517000 L @15,@PC00001 0076 00518000 L @15,SMF71PTR(,@15) 0076 00519000 LA @14,SMF71SIZ(,@15) 0076 00520000 AH @14,SMF71SIZ(,@15) 0076 00521000 LH @15,SMF71SPC(,@14) 0076 00522000 ALR @15,@14 0076 00523000 L @01,SMF71SOT(,@15) 0076 00524000 M @00,RPPAGSEC 0076 00525000 D @00,RPTEMP 0076 00526000 ST @01,RPVALUE+224 0076 00527000 *RPSWPOU2: 0077 00528000 * ; 0077 00529000 RPSWPOU2 DS 0H 0078 00530000 * RPVALUE(RPTSNVI,RPPOSWAP)=(SMF71SOT/* PAGE OUT TOTAL NON VIO */ 00531000 * *RPPAGSEC)/RPTEMP; 0078 00532000 L @15,@PC00001 0078 00533000 L @15,SMF71PTR(,@15) 0078 00534000 LA @14,SMF71SIZ(,@15) 0078 00535000 AH @14,SMF71SIZ(,@15) 0078 00536000 LH @15,SMF71SPC(,@14) 0078 00537000 ALR @15,@14 0078 00538000 L @01,SMF71SOT(,@15) 0078 00539000 M @00,RPPAGSEC 0078 00540000 D @00,RPTEMP 0078 00541000 ST @01,RPVALUE+304 0078 00542000 *RPSWPOU3: 0079 00543000 * ; 0079 00544000 RPSWPOU3 DS 0H 0080 00545000 * RPVALUE(RPTSSUM,RPPOSWAP)=(SMF71SOT/* SUM */ 00546000 * *RPPAGSEC)/RPTEMP; 0080 00547000 * 0080 00548000 L @15,RPTEMP 0080 00549000 L @14,RPPAGSEC 0080 00550000 L @07,@PC00001 0080 00551000 L @07,SMF71PTR(,@07) 0080 00552000 LA @06,SMF71SIZ(,@07) 0080 00553000 AH @06,SMF71SIZ(,@07) 0080 00554000 LH @07,SMF71SPC(,@06) 0080 00555000 ALR @07,@06 0080 00556000 L @01,SMF71SOT(,@07) 0080 00557000 MR @00,@14 0080 00558000 DR @00,@15 0080 00559000 ST @01,RPVALUE+344 0080 00560000 */* PAGE OUT NON SWAP */ 00561000 * 0081 00562000 * RPVALUE(RPPSAVIO,RPPONSWP)=(SMF71SVO/* VIO */ 00563000 * *RPPAGSEC)/RPTEMP; 0081 00564000 L @06,SMF71SVO(,@07) 0081 00565000 LR @01,@06 0081 00566000 MR @00,@14 0081 00567000 DR @00,@15 0081 00568000 ST @01,RPVALUE+28 0081 00569000 * RPVALUE(RPPSANVI,RPPONSWP)=(SMF71SNO/* NON VIO */ 00570000 * *RPPAGSEC)/RPTEMP; 0082 00571000 L @05,SMF71SNO(,@07) 0082 00572000 LR @01,@05 0082 00573000 MR @00,@14 0082 00574000 DR @00,@15 0082 00575000 ST @01,RPVALUE+68 0082 00576000 * RPVALUE(RPPSASUM,RPPONSWP)=((SMF71SVO+SMF71SNO)/* SUM */ 00577000 * *RPPAGSEC)/RPTEMP; 0083 00578000 LR @01,@06 0083 00579000 ALR @01,@05 0083 00580000 MR @00,@14 0083 00581000 DR @00,@15 0083 00582000 ST @01,RPVALUE+108 0083 00583000 * RPVALUE(RPADSVIO,RPPONSWP)=((SMF71VOT-SMF71SVO)/* VIO */ 00584000 * *RPPAGSEC)/RPTEMP; 0084 00585000 L @04,SMF71VOT(,@07) 0084 00586000 LR @01,@04 0084 00587000 SLR @01,@06 0084 00588000 MR @00,@14 0084 00589000 DR @00,@15 0084 00590000 ST @01,RPVALUE+148 0084 00591000 * RPVALUE(RPADSNVI,RPPONSWP)=((SMF71POT-SMF71SNO)/* NON VIO */ 00592000 * *RPPAGSEC)/RPTEMP; 0085 00593000 L @07,SMF71POT(,@07) 0085 00594000 LR @01,@07 0085 00595000 SLR @01,@05 0085 00596000 MR @00,@14 0085 00597000 DR @00,@15 0085 00598000 ST @01,RPVALUE+188 0085 00599000 * RPVALUE(RPADSSUM,RPPONSWP)=((SMF71VOT+SMF71POT-SMF71SVO-SMF71SNO)* 00600000 * RPPAGSEC)/RPTEMP; 0086 00601000 LR @03,@04 0086 00602000 ALR @03,@07 0086 00603000 LR @01,@03 0086 00604000 SLR @01,@06 0086 00605000 SLR @01,@05 0086 00606000 MR @00,@14 0086 00607000 DR @00,@15 0086 00608000 ST @01,RPVALUE+228 0086 00609000 * RPVALUE(RPTSVIO,RPPONSWP)=(SMF71VOT/* VIO */ 00610000 * *RPPAGSEC)/RPTEMP; 0087 00611000 LR @01,@04 0087 00612000 MR @00,@14 0087 00613000 DR @00,@15 0087 00614000 ST @01,RPVALUE+268 0087 00615000 * RPVALUE(RPTSNVI,RPPONSWP)=(SMF71POT/* NON VIO */ 00616000 * *RPPAGSEC)/RPTEMP; 0088 00617000 LR @01,@07 0088 00618000 MR @00,@14 0088 00619000 DR @00,@15 0088 00620000 ST @01,RPVALUE+308 0088 00621000 * RPVALUE(RPTSSUM,RPPONSWP)=((SMF71VOT+SMF71POT)/* SUM */ 00622000 * *RPPAGSEC)/RPTEMP; 0089 00623000 * 0089 00624000 MR @02,@14 0089 00625000 DR @02,@15 0089 00626000 ST @03,RPVALUE+348 0089 00627000 */* PAGE OUT TOTAL RATE */ 00628000 * 0090 00629000 * RPVALUE(RPPSAVIO,RPPOTRAT)=(SMF71SVO/* VIO */ 00630000 * *RPPAGSEC)/RPTEMP; 0090 00631000 LR @01,@06 0090 00632000 MR @00,@14 0090 00633000 DR @00,@15 0090 00634000 ST @01,RPVALUE+32 0090 00635000 * RPVALUE(RPPSANVI,RPPOTRAT)=(SMF71SNO/* NON VIO */ 00636000 * *RPPAGSEC)/RPTEMP; 0091 00637000 LR @01,@05 0091 00638000 MR @00,@14 0091 00639000 DR @00,@15 0091 00640000 ST @01,RPVALUE+72 0091 00641000 * RPVALUE(RPPSASUM,RPPOTRAT)=((SMF71SVO+SMF71SNO)/* SUM */ 00642000 * *RPPAGSEC)/RPTEMP; 0092 00643000 LR @01,@06 0092 00644000 ALR @01,@05 0092 00645000 MR @00,@14 0092 00646000 DR @00,@15 0092 00647000 ST @01,RPVALUE+112 0092 00648000 * RPVALUE(RPADSVIO,RPPOTRAT)=((SMF71VOT-SMF71SVO)/* VIO */ 00649000 * *RPPAGSEC)/RPTEMP; 0093 00650000 LR @01,@04 0093 00651000 SLR @01,@06 0093 00652000 MR @00,@14 0093 00653000 DR @00,@15 0093 00654000 ST @01,RPVALUE+152 0093 00655000 * RPVALUE(RPADSNVI,RPPOTRAT)=((SMF71POT+SMF71SOT-SMF71SNO)/* NON 0094 00656000 * VIO */ 00657000 * *RPPAGSEC)/RPTEMP; 0094 00658000 L @03,@PC00001 0094 00659000 L @03,SMF71PTR(,@03) 0094 00660000 LA @02,SMF71SIZ(,@03) 0094 00661000 AH @02,SMF71SIZ(,@03) 0094 00662000 LH @03,SMF71SPC(,@02) 0094 00663000 ALR @03,@02 0094 00664000 L @03,SMF71SOT(,@03) 0094 00665000 LR @02,@07 0094 00666000 ALR @02,@03 0094 00667000 LR @01,@02 0094 00668000 SLR @01,@05 0094 00669000 MR @00,@14 0094 00670000 DR @00,@15 0094 00671000 ST @01,RPVALUE+192 0094 00672000 * RPVALUE(RPADSSUM,RPPOTRAT)=((SMF71VOT+SMF71POT+SMF71SOT-SMF71SVO- 00673000 * SMF71SNO)*RPPAGSEC)/RPTEMP; 0095 00674000 ALR @07,@04 0095 00675000 ALR @07,@03 0095 00676000 LR @01,@06 0095 00677000 LCR @01,@01 0095 00678000 ALR @01,@07 0095 00679000 SLR @01,@05 0095 00680000 MR @00,@14 0095 00681000 DR @00,@15 0095 00682000 ST @01,RPVALUE+232 0095 00683000 * RPVALUE(RPTSVIO,RPPOTRAT)=(SMF71VOT/* VIO */ 00684000 * *RPPAGSEC)/RPTEMP; 0096 00685000 LR @01,@04 0096 00686000 MR @00,@14 0096 00687000 DR @00,@15 0096 00688000 ST @01,RPVALUE+272 0096 00689000 * RPVALUE(RPTSNVI,RPPOTRAT)=((SMF71POT+SMF71SOT)/* NON VIO */ 00690000 * *RPPAGSEC)/RPTEMP; 0097 00691000 LR @01,@02 0097 00692000 MR @00,@14 0097 00693000 DR @00,@15 0097 00694000 ST @01,RPVALUE+312 0097 00695000 * RPVALUE(RPTSSUM,RPPOTRAT)=((SMF71VOT+SMF71POT+SMF71SOT)/* SUM */ 00696000 * *RPPAGSEC)/RPTEMP; 0098 00697000 * 0098 00698000 MR @06,@14 0098 00699000 DR @06,@15 0098 00700000 ST @07,RPVALUE+352 0098 00701000 */* PAGE OUT PERCENT OF TOTAL SUM */ 00702000 * 0099 00703000 * IF RPVALUE(RPTSSUM,RPPOTRAT)=RPNULLVL THEN/* IS DENOMINATOR ZERO?*/ 00704000 LTR @07,@07 0099 00705000 BNZ @RF00099 0099 00706000 * DO L=1 TO RPDATLIN; 0100 00707000 LA @15,1 0100 00708000 ST @15,L 0100 00709000 @DL00100 DS 0H 0101 00710000 * RPVALUE(L,RPPOPTS)=RPNULLVL;/* SET TOTAL SUM TO ZERO */ 00711000 LR @14,@15 0101 00712000 MH @14,@CH00249 0101 00713000 SLR @07,@07 0101 00714000 ST @07,RPVALUE-4(@14) 0101 00715000 * END; 0102 00716000 AH @15,@CH00052 0102 00717000 ST @15,L 0102 00718000 CH @15,@CH00145 0102 00719000 BNH @DL00100 0102 00720000 * ELSE 0103 00721000 * DO L=1 TO RPDATLIN; 0103 00722000 B @RC00099 0103 00723000 @RF00099 LA @15,1 0103 00724000 ST @15,L 0103 00725000 @DL00103 DS 0H 0104 00726000 * RFY 0104 00727000 * (GPR00F, 0104 00728000 * GPR01F, 0104 00729000 * GPR14F, 0104 00730000 * GPR15F) RSTD; 0104 00731000 * GPR01F=RPVALUE(L,RPPOTRAT); /* SET UP FOR MULTIPLY AND */ 00732000 L @07,L 0105 00733000 MH @07,@CH00249 0105 00734000 L GPR01F,RPVALUE-8(@07) 0105 00735000 * GPR15F=RPVALUE(RPTSSUM,RPPOTRAT);/* DIVIDE */ 00736000 L GPR15F,RPVALUE+352 0106 00737000 * GENERATE REFS(RPRATSEC); 0107 00738000 M GPR00F,RPRATSEC 00739000 DR GPR00F,GPR15F 00740000 * RPVALUE(L,RPPOPTS)=GPR01F; /* RESULT IS TOTAL SUM PERCENTAGE*/ 00741000 L @07,L 0108 00742000 LR @06,@07 0108 00743000 MH @06,@CH00249 0108 00744000 ST GPR01F,RPVALUE-4(@06) 0108 00745000 * RFY 0109 00746000 * (GPR00F, 0109 00747000 * GPR01F, 0109 00748000 * GPR14F, 0109 00749000 * GPR15F) UNRSTD; 0109 00750000 * END; 0110 00751000 AH @07,@CH00052 0110 00752000 LR @15,@07 0110 00753000 ST @15,L 0110 00754000 CH @15,@CH00145 0110 00755000 BNH @DL00103 0110 00756000 * RPPAGE=1; /* 1ST PAGE */ 00757000 @RC00099 MVC RPPAGE(4),@CF00052 0111 00758000 * CALL MFHDR1; /* SET UP MAIN HEADING */ 00759000 * 0112 00760000 BAL @14,MFHDR1 0112 00761000 * /*****************************************************************/ 00762000 * /* */ 00763000 * /* INSERT PAGING ACTIVITY HEADING */ 00764000 * /* */ 00765000 * /*****************************************************************/ 00766000 * 0113 00767000 *MFHDR1: 0113 00768000 * PROCEDURE; 0113 00769000 B @PB00002 0113 00770000 MFHDR1 STM @14,@12,@SA00002 0113 00771000 * CALL MFISRHDR(RPDATPTR, /* PTR TO SMFRECORD */ 00772000 * IRBMFLPV(RPPAGHDR)->RPTEXT, /* TEXT */ 00773000 * IRBMFLPV(RPPAGHDR)->RPLENGTH,/* LENGTH */ 00774000 * RPPAGE); /* PAGE NUMBER */ 00775000 * 0114 00776000 L @15,@PC00001 0114 00777000 ST @15,@AL00001 0114 00778000 L @15,@CA00141 0114 00779000 L @15,IRBMFLPV-IRBMFLPV(,@15) 0114 00780000 LA @14,RPTEXT(,@15) 0114 00781000 ST @14,@AL00001+4 0114 00782000 ST @15,@AL00001+8 0114 00783000 LA @15,RPPAGE 0114 00784000 ST @15,@AL00001+12 0114 00785000 L @14,@PC00001+4 0114 00786000 L @15,RPVECTAB+4(,@14) 0114 00787000 LA @01,@AL00001 0114 00788000 BALR @14,@15 0114 00789000 * /*****************************************************************/ 00790000 * /* */ 00791000 * /* INSERT HEADINGS FOR MAIN STORAGE RATES ONLY */ 00792000 * /* */ 00793000 * /*****************************************************************/ 00794000 * 0115 00795000 * DO H=1 TO DIM(RPHDRTAB); 0115 00796000 * 0115 00797000 LA @15,1 0115 00798000 ST @15,H 0115 00799000 @DL00115 DS 0H 0116 00800000 * /***************************************************************/ 00801000 * /* */ 00802000 * /* MACDATE Y-2 73018 */ 00803000 * /* */ 00804000 * /***************************************************************/ 00805000 * 0116 00806000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 00807000 * IRBMFLPV(RPPRTNUM(H))->RPTEXT,/* TEXT */ 00808000 * IRBMFLPV(RPPRTNUM(H))->RPLENGTH,/* LENGTH */ 00809000 * RPHDRLIN(H), /* START LINE */ 00810000 * RPCOLUMN(H) /* START COLUMN */ 00811000 * ); 0116 00812000 MH @15,@CH00154 0116 00813000 L @14,RPPRTNUM-12(@15) 0116 00814000 SLA @14,2 0116 00815000 L @07,@CA00141 0116 00816000 AL @07,@CF00428 0116 00817000 L @14,IRBMFLPV-IRBMFLPV(@14,@07) 0116 00818000 LA @07,RPTEXT(,@14) 0116 00819000 ST @07,@AL00001 0116 00820000 ST @14,@AL00001+4 0116 00821000 LA @14,RPHDRLIN-12(@15) 0116 00822000 ST @14,@AL00001+8 0116 00823000 LA @15,RPCOLUMN-12(@15) 0116 00824000 ST @15,@AL00001+12 0116 00825000 L @14,@PC00001+4 0116 00826000 L @15,RPVECTAB+8(,@14) 0116 00827000 LA @01,@AL00001 0116 00828000 BALR @14,@15 0116 00829000 * END; 0117 00830000 LA @15,1 0117 00831000 AL @15,H 0117 00832000 ST @15,H 0117 00833000 CH @15,@CH00147 0117 00834000 BNH @DL00115 0117 00835000 * RPLINE=RPTOPLIN; /* SET TOP OF LINE FOR DATA & 0118 00836000 * LINE HEADING INSERTS */ 00837000 MVC RPLINE(4),@CF00189 0118 00838000 * RPPAGE=RPPAGE+RPPAGINC; /* INCREMENT PAGE NUMBER */ 00839000 LA @15,1 0119 00840000 AL @15,RPPAGE 0119 00841000 ST @15,RPPAGE 0119 00842000 * RETURN; /* RETURN FROM WHERE CALLED */ 00843000 @EL00002 DS 0H 0120 00844000 @EF00002 DS 0H 0120 00845000 @ER00002 LM @14,@12,@SA00002 0120 00846000 BR @14 0120 00847000 * END MFHDR1; 0121 00848000 * 0121 00849000 @PB00002 DS 0H 0122 00850000 */* INSERT HEADER AND DATA FOR EACH LINE */ 00851000 * 0122 00852000 * DO I=1 TO DIM(RPLNHDR); 0122 00853000 * 0122 00854000 LA @15,1 0122 00855000 ST @15,I 0122 00856000 @DL00122 DS 0H 0123 00857000 */* INSERT LINE HEADER FOR EACH LINE */ 00858000 * 0123 00859000 * /***************************************************************/ 00860000 * /* */ 00861000 * /* MACDATE Y-2 73018 */ 00862000 * /* */ 00863000 * /***************************************************************/ 00864000 * 0123 00865000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 00866000 * IRBMFLPV(RPLNPNUM(I))->RPTEXT,/* TEXT */ 00867000 * IRBMFLPV(RPLNPNUM(I))->RPLENGTH,/* LENGTH */ 00868000 * RPLINE, /* START LINE */ 00869000 * RPLNCOLM(I) /* START COLUMN */ 00870000 * ); 0123 00871000 MH @15,@CH00154 0123 00872000 LH @14,RPLNPNUM-12(@15) 0123 00873000 SLA @14,2 0123 00874000 L @07,@CA00141 0123 00875000 AL @07,@CF00428 0123 00876000 L @14,IRBMFLPV-IRBMFLPV(@14,@07) 0123 00877000 LA @07,RPTEXT(,@14) 0123 00878000 ST @07,@AL00001 0123 00879000 ST @14,@AL00001+4 0123 00880000 LA @14,RPLINE 0123 00881000 ST @14,@AL00001+8 0123 00882000 LA @15,RPLNCOLM-12(@15) 0123 00883000 ST @15,@AL00001+12 0123 00884000 L @14,@PC00001+4 0123 00885000 L @15,RPVECTAB+8(,@14) 0123 00886000 LA @01,@AL00001 0123 00887000 BALR @14,@15 0123 00888000 * IF RPDATAEX(I)='1'B THEN /* DATA EXIST FOR THIS HEADER? */ 00889000 L @15,I 0124 00890000 MH @15,@CH00154 0124 00891000 LA @14,RPDATAEX-12(@15) 0124 00892000 TM 0(@14),B'10000000' 0124 00893000 BNO @RF00124 0124 00894000 * CALL RPPRNTDT(RPNUMLIN(I)); /* INSERT DATA */ 00895000 LA @15,RPNUMLIN-12(@15) 0125 00896000 ST @15,@AL00001 0125 00897000 LA @01,@AL00001 0125 00898000 BAL @14,RPPRNTDT 0125 00899000 * RPLINE=RPLINE+RPLNINCR(I); /* UPDATE LINE POINTER */ 00900000 @RF00124 L @15,I 0126 00901000 MH @15,@CH00154 0126 00902000 LH @15,RPLNINCR-12(@15) 0126 00903000 AL @15,RPLINE 0126 00904000 ST @15,RPLINE 0126 00905000 * IF RPLINE>RGMAXLN THEN /* END OF PAGE? */ 00906000 CH @15,@CH00042 0127 00907000 BNH @RF00127 0127 00908000 * DO; 0128 00909000 * CALL MFWRTPAG; /* WRITE OUT PAGE */ 00910000 L @14,@PC00001+4 0129 00911000 L @15,RPVECTAB+12(,@14) 0129 00912000 BALR @14,@15 0129 00913000 * CALL MFHDR1; /* SET UP PAGE HEADER FOR NEW 0130 00914000 * PAGE */ 00915000 BAL @14,MFHDR1 0130 00916000 * END; 0131 00917000 * END; 0132 00918000 @RF00127 LA @15,1 0132 00919000 AL @15,I 0132 00920000 ST @15,I 0132 00921000 CH @15,@CH00193 0132 00922000 BNH @DL00122 0132 00923000 * RPLINE=RPLINE+RPSPACE3; /* SPACE FOR 2ND PART OF REPORT */ 00924000 LA @15,3 0133 00925000 AL @15,RPLINE 0133 00926000 ST @15,RPLINE 0133 00927000 * IF RPLINE+RPSECPRT>RGMAXLN THEN /* ROOM FOR 1ST 9 LINES OF 2ND 0134 00928000 * PART OF THE REPORT? */ 00929000 AH @15,@CH00145 0134 00930000 CH @15,@CH00042 0134 00931000 BNH @RF00134 0134 00932000 * DO; 0135 00933000 * RPLINE=RPLINE+RPSECPRT; /* MOVE IN TOO LARGE VALUE */ 00934000 ST @15,RPLINE 0136 00935000 * CALL RPPAGEND; /* END OF PAGE ROUTINE */ 00936000 BAL @14,RPPAGEND 0137 00937000 * END; 0138 00938000 * ELSE /* THERE IS ENOUGH ROOM */ 00939000 * CALL MFHDR2; /* PREPARE 2ND PART OF REPORT */ 00940000 * 0139 00941000 B @RC00134 0139 00942000 @RF00134 BAL @14,MFHDR2 0139 00943000 * /*****************************************************************/ 00944000 * /* */ 00945000 * /* INSERT HEADINGS FOR SECOND PART OF PAGING ACTIVITY REPORT */ 00946000 * /* */ 00947000 * /*****************************************************************/ 00948000 * 0140 00949000 *MFHDR2: 0140 00950000 * PROC; 0140 00951000 B @PB00003 0140 00952000 MFHDR2 STM @14,@12,@SA00003 0140 00953000 * RPLINE1=RPLINE; /* START REMAINING SECTIONS ON 0141 00954000 * THIS LINE */ 00955000 * 0141 00956000 MVC RPLINE1(2),RPLINE+2 0141 00957000 * /*****************************************************************/ 00958000 * /* */ 00959000 * /* AUXILIARY STORAGE COUNTS HEADING MACDATE Y-2 73018 */ 00960000 * /* */ 00961000 * /*****************************************************************/ 00962000 * 0142 00963000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 00964000 * IRBMFLPV(RPAUXSTC)->RPTEXT, /* TEXT */ 00965000 * IRBMFLPV(RPAUXSTC)->RPLENGTH,/* LENGTH */ 00966000 * RPLINE, /* START LINE */ 00967000 * RPCOL1 /* START COLUMN */ 00968000 * ); 0142 00969000 L @15,@CA00141 0142 00970000 L @15,IRBMFLPV-IRBMFLPV+108(,@15) 0142 00971000 LA @14,RPTEXT(,@15) 0142 00972000 ST @14,@AL00001 0142 00973000 ST @15,@AL00001+4 0142 00974000 LA @15,RPLINE 0142 00975000 ST @15,@AL00001+8 0142 00976000 LA @15,@CF00052 0142 00977000 ST @15,@AL00001+12 0142 00978000 L @14,@PC00001+4 0142 00979000 L @15,RPVECTAB+8(,@14) 0142 00980000 LA @01,@AL00001 0142 00981000 BALR @14,@15 0142 00982000 * RPLINE=RPLINE+RPLININC; /* NEXT LINE FOR DASHES. */ 00983000 * 0143 00984000 LA @15,1 0143 00985000 AL @15,RPLINE 0143 00986000 ST @15,RPLINE 0143 00987000 * /*****************************************************************/ 00988000 * /* */ 00989000 * /* MACDATE Y-2 73018 */ 00990000 * /* */ 00991000 * /*****************************************************************/ 00992000 * 0144 00993000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 00994000 * IRBMFLPV(RPAUXDAS)->RPTEXT, /* TEXT */ 00995000 * IRBMFLPV(RPAUXDAS)->RPLENGTH,/* LENGTH */ 00996000 * RPLINE, /* START LINE */ 00997000 * RPCOL1 /* START COLUMN */ 00998000 * ); 0144 00999000 L @15,@CA00141 0144 01000000 L @15,IRBMFLPV-IRBMFLPV+112(,@15) 0144 01001000 LA @14,RPTEXT(,@15) 0144 01002000 ST @14,@AL00001 0144 01003000 ST @15,@AL00001+4 0144 01004000 LA @15,RPLINE 0144 01005000 ST @15,@AL00001+8 0144 01006000 LA @15,@CF00052 0144 01007000 ST @15,@AL00001+12 0144 01008000 L @14,@PC00001+4 0144 01009000 L @15,RPVECTAB+8(,@14) 0144 01010000 LA @01,@AL00001 0144 01011000 BALR @14,@15 0144 01012000 * RPLINE=RPLINE+RPSPACE; /* COLUMN HEADINGS LINE */ 01013000 LA @15,2 0145 01014000 AL @15,RPLINE 0145 01015000 ST @15,RPLINE 0145 01016000 */* INSERT COLUMN HEADINGS FOR AUXILIARY STORAGE COUNTS */ 01017000 */* PAGE (PAGE SLOTS) */ 01018000 * 0146 01019000 * /*****************************************************************/ 01020000 * /* */ 01021000 * /* MACDATE Y-2 73018 */ 01022000 * /* */ 01023000 * /*****************************************************************/ 01024000 * 0146 01025000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01026000 * IRBMFLPV(RPPAGESL)->RPTEXT, /* TEXT */ 01027000 * IRBMFLPV(RPPAGESL)->RPLENGTH,/* LENGTH */ 01028000 * RPLINE, /* START LINE */ 01029000 * RPCOL24 /* START COLUMN */ 01030000 * ); 0146 01031000 * 0146 01032000 L @15,@CA00141 0146 01033000 L @15,IRBMFLPV-IRBMFLPV+132(,@15) 0146 01034000 LA @14,RPTEXT(,@15) 0146 01035000 ST @14,@AL00001 0146 01036000 ST @15,@AL00001+4 0146 01037000 LA @15,RPLINE 0146 01038000 ST @15,@AL00001+8 0146 01039000 LA @15,@CF00199 0146 01040000 ST @15,@AL00001+12 0146 01041000 L @14,@PC00001+4 0146 01042000 L @15,RPVECTAB+8(,@14) 0146 01043000 LA @01,@AL00001 0146 01044000 BALR @14,@15 0146 01045000 */* SLOTS (PAGE SLOTS) */ 01046000 * 0147 01047000 * /*****************************************************************/ 01048000 * /* */ 01049000 * /* MACDATE Y-2 73018 */ 01050000 * /* */ 01051000 * /*****************************************************************/ 01052000 * 0147 01053000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01054000 * IRBMFLPV(RPSLOTPG)->RPTEXT, /* TEXT */ 01055000 * IRBMFLPV(RPSLOTPG)->RPLENGTH,/* LENGTH */ 01056000 * RPLINE+RPLININC, /* START LINE */ 01057000 * RPCOL24 /* START COLUMN */ 01058000 * ); 0147 01059000 * 0147 01060000 L @15,@CA00141 0147 01061000 L @15,IRBMFLPV-IRBMFLPV+136(,@15) 0147 01062000 LA @14,RPTEXT(,@15) 0147 01063000 ST @14,@AL00001 0147 01064000 ST @15,@AL00001+4 0147 01065000 LA @15,1 0147 01066000 AL @15,RPLINE 0147 01067000 ST @15,@AFTEMPS 0147 01068000 LA @15,@AFTEMPS 0147 01069000 ST @15,@AL00001+8 0147 01070000 LA @15,@CF00199 0147 01071000 ST @15,@AL00001+12 0147 01072000 L @14,@PC00001+4 0147 01073000 L @15,RPVECTAB+8(,@14) 0147 01074000 LA @01,@AL00001 0147 01075000 BALR @14,@15 0147 01076000 */* PERCENT */ 01077000 * 0148 01078000 * /*****************************************************************/ 01079000 * /* */ 01080000 * /* MACDATE Y-2 73018 */ 01081000 * /* */ 01082000 * /*****************************************************************/ 01083000 * 0148 01084000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01085000 * IRBMFLPV(RPPERCNT)->RPTEXT, /* TEXT */ 01086000 * IRBMFLPV(RPPERCNT)->RPLENGTH,/* LENGTH */ 01087000 * RPLINE+RPLININC, /* START LINE */ 01088000 * RPCOL37 /* START COLUMN */ 01089000 * ); 0148 01090000 * 0148 01091000 L @15,@CA00141 0148 01092000 L @15,IRBMFLPV-IRBMFLPV+140(,@15) 0148 01093000 LA @14,RPTEXT(,@15) 0148 01094000 ST @14,@AL00001 0148 01095000 ST @15,@AL00001+4 0148 01096000 LA @15,1 0148 01097000 AL @15,RPLINE 0148 01098000 ST @15,@AFTEMPS 0148 01099000 LA @15,@AFTEMPS 0148 01100000 ST @15,@AL00001+8 0148 01101000 LA @15,@CF00147 0148 01102000 ST @15,@AL00001+12 0148 01103000 L @14,@PC00001+4 0148 01104000 L @15,RPVECTAB+8(,@14) 0148 01105000 LA @01,@AL00001 0148 01106000 BALR @14,@15 0148 01107000 * /*****************************************************************/ 01108000 * /* */ 01109000 * /* PAGABLE MAIN STORAGE COUNTS HEADING */ 01110000 * /* */ 01111000 * /*****************************************************************/ 01112000 * 0149 01113000 * RPLINE=RPLINE1; /* START ON SAME LINE AS 0149 01114000 * AUXILIARY STORAGE COUNT 0149 01115000 * HEADING */ 01116000 * 0149 01117000 LH @15,RPLINE1 0149 01118000 ST @15,RPLINE 0149 01119000 * /*****************************************************************/ 01120000 * /* */ 01121000 * /* MACDATE Y-2 73018 */ 01122000 * /* */ 01123000 * /*****************************************************************/ 01124000 * 0150 01125000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01126000 * IRBMFLPV(RPPGMNST)->RPTEXT, /* TEXT */ 01127000 * IRBMFLPV(RPPGMNST)->RPLENGTH,/* LENGTH */ 01128000 * RPLINE, /* START LINE */ 01129000 * RPCOL55 /* START COLUMN */ 01130000 * ); 0150 01131000 * 0150 01132000 L @15,@CA00141 0150 01133000 L @15,IRBMFLPV-IRBMFLPV+116(,@15) 0150 01134000 LA @14,RPTEXT(,@15) 0150 01135000 ST @14,@AL00001 0150 01136000 ST @15,@AL00001+4 0150 01137000 LA @15,RPLINE 0150 01138000 ST @15,@AL00001+8 0150 01139000 LA @15,@CF00252 0150 01140000 ST @15,@AL00001+12 0150 01141000 L @14,@PC00001+4 0150 01142000 L @15,RPVECTAB+8(,@14) 0150 01143000 LA @01,@AL00001 0150 01144000 BALR @14,@15 0150 01145000 * /*****************************************************************/ 01146000 * /* */ 01147000 * /* MACDATE Y-2 73018 */ 01148000 * /* */ 01149000 * /*****************************************************************/ 01150000 * 0151 01151000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01152000 * IRBMFLPV(RPDASH4)->RPTEXT, /* TEXT */ 01153000 * IRBMFLPV(RPDASH4)->RPLENGTH,/* LENGTH */ 01154000 * RPLINE+RPLININC, /* START LINE */ 01155000 * RPCOL53 /* START COLUMN */ 01156000 * ); 0151 01157000 * 0151 01158000 L @15,@CA00141 0151 01159000 L @15,IRBMFLPV-IRBMFLPV+120(,@15) 0151 01160000 LA @14,RPTEXT(,@15) 0151 01161000 ST @14,@AL00001 0151 01162000 ST @15,@AL00001+4 0151 01163000 LA @15,1 0151 01164000 AL @15,RPLINE 0151 01165000 ST @15,@AFTEMPS 0151 01166000 LA @15,@AFTEMPS 0151 01167000 ST @15,@AL00001+8 0151 01168000 LA @15,@CF00261 0151 01169000 ST @15,@AL00001+12 0151 01170000 L @14,@PC00001+4 0151 01171000 L @15,RPVECTAB+8(,@14) 0151 01172000 LA @01,@AL00001 0151 01173000 BALR @14,@15 0151 01174000 */* INSERT COLUMN HEADINGS FOR PAGABLE MAIN STORAGE COUNTS */ 01175000 * 0152 01176000 * RPLINE=RPLINE+RPSPACE3; /* SPACING BETWEEN HEADING & COLM*/ 01177000 LA @15,3 0152 01178000 AL @15,RPLINE 0152 01179000 ST @15,RPLINE 0152 01180000 */* PAGE (PAGE FRAMES) */ 01181000 * 0153 01182000 * /*****************************************************************/ 01183000 * /* */ 01184000 * /* MACDATE Y-2 73018 */ 01185000 * /* */ 01186000 * /*****************************************************************/ 01187000 * 0153 01188000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01189000 * IRBMFLPV(RPPAGESL)->RPTEXT, /* TEXT */ 01190000 * IRBMFLPV(RPPAGESL)->RPLENGTH,/* LENGTH */ 01191000 * RPLINE, /* START LINE */ 01192000 * RPCOL70 /* START COLUMN */ 01193000 * ); 0153 01194000 * 0153 01195000 L @15,@CA00141 0153 01196000 L @15,IRBMFLPV-IRBMFLPV+132(,@15) 0153 01197000 LA @14,RPTEXT(,@15) 0153 01198000 ST @14,@AL00001 0153 01199000 ST @15,@AL00001+4 0153 01200000 LA @15,RPLINE 0153 01201000 ST @15,@AL00001+8 0153 01202000 LA @15,@CF00269 0153 01203000 ST @15,@AL00001+12 0153 01204000 L @14,@PC00001+4 0153 01205000 L @15,RPVECTAB+8(,@14) 0153 01206000 LA @01,@AL00001 0153 01207000 BALR @14,@15 0153 01208000 */* FRAMES (PAGE FRAMES) */ 01209000 * 0154 01210000 * /*****************************************************************/ 01211000 * /* */ 01212000 * /* MACDATE Y-2 73018 */ 01213000 * /* */ 01214000 * /*****************************************************************/ 01215000 * 0154 01216000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01217000 * IRBMFLPV(RPPGFRME)->RPTEXT, /* TEXT */ 01218000 * IRBMFLPV(RPPGFRME)->RPLENGTH,/* LENGTH */ 01219000 * RPLINE+RPLININC, /* START LINE */ 01220000 * RPCOL70 /* START COLUMN */ 01221000 * ); 0154 01222000 * 0154 01223000 L @15,@CA00141 0154 01224000 L @15,IRBMFLPV-IRBMFLPV+144(,@15) 0154 01225000 LA @14,RPTEXT(,@15) 0154 01226000 ST @14,@AL00001 0154 01227000 ST @15,@AL00001+4 0154 01228000 LA @15,1 0154 01229000 AL @15,RPLINE 0154 01230000 ST @15,@AFTEMPS 0154 01231000 LA @15,@AFTEMPS 0154 01232000 ST @15,@AL00001+8 0154 01233000 LA @15,@CF00269 0154 01234000 ST @15,@AL00001+12 0154 01235000 L @14,@PC00001+4 0154 01236000 L @15,RPVECTAB+8(,@14) 0154 01237000 LA @01,@AL00001 0154 01238000 BALR @14,@15 0154 01239000 */* PERCENT */ 01240000 * 0155 01241000 * /*****************************************************************/ 01242000 * /* */ 01243000 * /* MACDATE Y-2 73018 */ 01244000 * /* */ 01245000 * /*****************************************************************/ 01246000 * 0155 01247000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01248000 * IRBMFLPV(RPPERCNT)->RPTEXT, /* TEXT */ 01249000 * IRBMFLPV(RPPERCNT)->RPLENGTH,/* LENGTH */ 01250000 * RPLINE+RPLININC, /* START LINE */ 01251000 * RPCOL78 /* START COLUMN */ 01252000 * ); 0155 01253000 * 0155 01254000 L @15,@CA00141 0155 01255000 L @15,IRBMFLPV-IRBMFLPV+140(,@15) 0155 01256000 LA @14,RPTEXT(,@15) 0155 01257000 ST @14,@AL00001 0155 01258000 ST @15,@AL00001+4 0155 01259000 LA @15,1 0155 01260000 AL @15,RPLINE 0155 01261000 ST @15,@AFTEMPS 0155 01262000 LA @15,@AFTEMPS 0155 01263000 ST @15,@AL00001+8 0155 01264000 LA @15,@CF00271 0155 01265000 ST @15,@AL00001+12 0155 01266000 L @14,@PC00001+4 0155 01267000 L @15,RPVECTAB+8(,@14) 0155 01268000 LA @01,@AL00001 0155 01269000 BALR @14,@15 0155 01270000 * /*****************************************************************/ 01271000 * /* */ 01272000 * /* SWAP COUNTS HEADING */ 01273000 * /* */ 01274000 * /*****************************************************************/ 01275000 * 0156 01276000 * RPLINE=RPLINE1; /* START ON SAME LINE AS 0156 01277000 * AUXILIARY STORAGE COUNT 0156 01278000 * HEADING */ 01279000 * 0156 01280000 LH @15,RPLINE1 0156 01281000 ST @15,RPLINE 0156 01282000 * /*****************************************************************/ 01283000 * /* */ 01284000 * /* MACDATE Y-2 73018 */ 01285000 * /* */ 01286000 * /*****************************************************************/ 01287000 * 0157 01288000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01289000 * IRBMFLPV(RPSWPCNT)->RPTEXT, /* TEXT */ 01290000 * IRBMFLPV(RPSWPCNT)->RPLENGTH,/* LENGTH */ 01291000 * RPLINE, /* START LINE */ 01292000 * RPCOL98 /* START COLUMN */ 01293000 * ); 0157 01294000 * 0157 01295000 L @15,@CA00141 0157 01296000 L @15,IRBMFLPV-IRBMFLPV+124(,@15) 0157 01297000 LA @14,RPTEXT(,@15) 0157 01298000 ST @14,@AL00001 0157 01299000 ST @15,@AL00001+4 0157 01300000 LA @15,RPLINE 0157 01301000 ST @15,@AL00001+8 0157 01302000 LA @15,@CF00281 0157 01303000 ST @15,@AL00001+12 0157 01304000 L @14,@PC00001+4 0157 01305000 L @15,RPVECTAB+8(,@14) 0157 01306000 LA @01,@AL00001 0157 01307000 BALR @14,@15 0157 01308000 * /*****************************************************************/ 01309000 * /* */ 01310000 * /* MACDATE Y-2 73018 */ 01311000 * /* */ 01312000 * /*****************************************************************/ 01313000 * 0158 01314000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01315000 * IRBMFLPV(RPSWPDAS)->RPTEXT, /* TEXT */ 01316000 * IRBMFLPV(RPSWPDAS)->RPLENGTH,/* LENGTH */ 01317000 * RPLINE+1, /* START LINE */ 01318000 * RPCOL95 /* START COLUMN */ 01319000 * ); 0158 01320000 L @15,@CA00141 0158 01321000 L @15,IRBMFLPV-IRBMFLPV+128(,@15) 0158 01322000 LA @14,RPTEXT(,@15) 0158 01323000 ST @14,@AL00001 0158 01324000 ST @15,@AL00001+4 0158 01325000 LA @15,1 0158 01326000 AL @15,RPLINE 0158 01327000 ST @15,@AFTEMPS 0158 01328000 LA @15,@AFTEMPS 0158 01329000 ST @15,@AL00001+8 0158 01330000 LA @15,@CF00279 0158 01331000 ST @15,@AL00001+12 0158 01332000 L @14,@PC00001+4 0158 01333000 L @15,RPVECTAB+8(,@14) 0158 01334000 LA @01,@AL00001 0158 01335000 BALR @14,@15 0158 01336000 * RPLINE=RPLINE1+2*RPSPACE3+RPSPACE;/* 1ST LINE FOR DATA INSERTS */ 01337000 LA @15,8 0159 01338000 AH @15,RPLINE1 0159 01339000 ST @15,RPLINE 0159 01340000 * END MFHDR2; 0160 01341000 * 0160 01342000 @EL00003 DS 0H 0160 01343000 @EF00003 DS 0H 0160 01344000 @ER00003 LM @14,@12,@SA00003 0160 01345000 BR @14 0160 01346000 @PB00003 DS 0H 0161 01347000 */* UNUSED SLOTS TITLE AND DATA INSERTS */ 01348000 * 0161 01349000 * /*****************************************************************/ 01350000 * /* */ 01351000 * /* MACDATE Y-2 73018 */ 01352000 * /* */ 01353000 * /*****************************************************************/ 01354000 * 0161 01355000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01356000 * IRBMFLPV(RPUNUSLT)->RPTEXT, /* TEXT */ 01357000 * IRBMFLPV(RPUNUSLT)->RPLENGTH,/* LENGTH */ 01358000 * RPLINE, /* START LINE */ 01359000 * RPCOL1 /* START COLUMN */ 01360000 * ); 0161 01361000 * 0161 01362000 L @15,@CA00141 0161 01363000 L @15,IRBMFLPV-IRBMFLPV+152(,@15) 0161 01364000 LA @14,RPTEXT(,@15) 0161 01365000 ST @14,@AL00001 0161 01366000 ST @15,@AL00001+4 0161 01367000 LA @15,RPLINE 0161 01368000 ST @15,@AL00001+8 0161 01369000 LA @15,@CF00052 0161 01370000 ST @15,@AL00001+12 0161 01371000 L @14,@PC00001+4 0161 01372000 L @15,RPVECTAB+8(,@14) 0161 01373000 LA @01,@AL00001 0161 01374000 BALR @14,@15 0161 01375000 * /*****************************************************************/ 01376000 * /* */ 01377000 * /* MACDATE Y-2 73018 */ 01378000 * /* */ 01379000 * /*****************************************************************/ 01380000 * 0162 01381000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01382000 * SMF71NSC, /* INPUT VALUE */ 01383000 * RPDATSCF, /* INPUT SCALE */ 01384000 * RPWRKSTR, /* OUTPUT STRING */ 01385000 * RPPSLEN, /* OUTPUT LENGTH */ 01386000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01387000 * RPCOMMAS, /* COMMAS FLAG */ 01388000 * RPNOFLOT /* MAX PRECISION FLAG */ 01389000 * ); 0162 01390000 * 0162 01391000 MVC @AL00001+4(24),@AL00162 0162 01392000 L @15,@PC00001 0162 01393000 L @15,SMF71PTR(,@15) 0162 01394000 LA @14,SMF71SIZ(,@15) 0162 01395000 AH @14,SMF71SIZ(,@15) 0162 01396000 LH @15,SMF71SPC(,@14) 0162 01397000 ALR @15,@14 0162 01398000 LA @15,SMF71NSC(,@15) 0162 01399000 ST @15,@AL00001 0162 01400000 LA @15,RPWRKSTR 0162 01401000 ST @15,@AL00001+8 0162 01402000 L @14,@PC00001+4 0162 01403000 L @15,RPVECTAB(,@14) 0162 01404000 LA @01,@AL00001 0162 01405000 BALR @14,@15 0162 01406000 * /*****************************************************************/ 01407000 * /* */ 01408000 * /* MACDATE Y-2 73018 */ 01409000 * /* */ 01410000 * /*****************************************************************/ 01411000 * 0163 01412000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01413000 * RPWRKSTR, /* TEXT */ 01414000 * RPPSLEN, /* LENGTH */ 01415000 * RPLINE, /* START LINE */ 01416000 * RPCOL24 /* START COLUMN */ 01417000 * ); 0163 01418000 * 0163 01419000 LA @15,RPWRKSTR 0163 01420000 ST @15,@AL00001 0163 01421000 LA @15,@CF00145 0163 01422000 ST @15,@AL00001+4 0163 01423000 LA @15,RPLINE 0163 01424000 ST @15,@AL00001+8 0163 01425000 LA @15,@CF00199 0163 01426000 ST @15,@AL00001+12 0163 01427000 L @14,@PC00001+4 0163 01428000 L @15,RPVECTAB+8(,@14) 0163 01429000 LA @01,@AL00001 0163 01430000 BALR @14,@15 0163 01431000 */* UNUSED SLOTS PERCENTAGE */ 01432000 * 0164 01433000 * IF SMF71TSC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 01434000 L @15,@PC00001 0164 01435000 L @15,SMF71PTR(,@15) 0164 01436000 LA @14,SMF71SIZ(,@15) 0164 01437000 AH @14,SMF71SIZ(,@15) 0164 01438000 LH @15,SMF71SPC(,@14) 0164 01439000 ALR @15,@14 0164 01440000 L @14,SMF71TSC(,@15) 0164 01441000 LTR @14,@14 0164 01442000 BZ @RF00164 0164 01443000 * DO; 0165 01444000 * RFY 0166 01445000 * (GPR00F, 0166 01446000 * GPR01F, 0166 01447000 * GPR14F, 0166 01448000 * GPR15F) RSTD; 0166 01449000 * GPR01F=SMF71NSC; /* SET UP MULTIPLY AND */ 01450000 ST @14,@TF00001 0167 01451000 ST @15,@TF00002 0167 01452000 L @07,@TF00002 0167 01453000 L GPR01F,SMF71NSC(,@07) 0167 01454000 * GPR15F=SMF71TSC; /* DIVIDE */ 01455000 L GPR15F,@TF00001 0168 01456000 * GENERATE REFS(RPRATSEC); 0169 01457000 M GPR00F,RPRATSEC 01458000 DR GPR00F,GPR15F 01459000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 01460000 ST GPR01F,RPTEMSAV 0170 01461000 * RFY 0171 01462000 * (GPR00F, 0171 01463000 * GPR01F, 0171 01464000 * GPR14F, 0171 01465000 * GPR15F) UNRSTD; 0171 01466000 * END; 0172 01467000 * ELSE 0173 01468000 * DO; 0173 01469000 B @RC00164 0173 01470000 @RF00164 DS 0H 0174 01471000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 01472000 SLR @15,@15 0174 01473000 ST @15,RPTEMSAV 0174 01474000 * END; 0175 01475000 * 0175 01476000 * /*****************************************************************/ 01477000 * /* */ 01478000 * /* MACDATE Y-2 73018 */ 01479000 * /* */ 01480000 * /*****************************************************************/ 01481000 * 0176 01482000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01483000 * RPTEMSAV, /* INPUT VALUE */ 01484000 * RPRATSCF, /* INPUT SCALE */ 01485000 * RPWRKSTR, /* OUTPUT STRING */ 01486000 * RPRATLEN, /* OUTPUT LENGTH */ 01487000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01488000 * RPNOCOMA, /* COMMAS FLAG */ 01489000 * RPNOFLOT /* MAX PRECISION FLAG */ 01490000 * ); 0176 01491000 * 0176 01492000 @RC00164 MVC @AL00001+4(24),@AL00176 0176 01493000 LA @15,RPTEMSAV 0176 01494000 ST @15,@AL00001 0176 01495000 LA @15,RPWRKSTR 0176 01496000 ST @15,@AL00001+8 0176 01497000 L @14,@PC00001+4 0176 01498000 L @15,RPVECTAB(,@14) 0176 01499000 LA @01,@AL00001 0176 01500000 BALR @14,@15 0176 01501000 * /*****************************************************************/ 01502000 * /* */ 01503000 * /* MACDATE Y-2 73018 */ 01504000 * /* */ 01505000 * /*****************************************************************/ 01506000 * 0177 01507000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01508000 * RPWRKSTR, /* TEXT */ 01509000 * RPRATLEN, /* LENGTH */ 01510000 * RPLINE, /* START LINE */ 01511000 * RPCOL38 /* START COLUMN */ 01512000 * ); 0177 01513000 * 0177 01514000 LA @15,RPWRKSTR 0177 01515000 ST @15,@AL00001 0177 01516000 LA @15,@CF00149 0177 01517000 ST @15,@AL00001+4 0177 01518000 LA @15,RPLINE 0177 01519000 ST @15,@AL00001+8 0177 01520000 LA @15,@CF00046 0177 01521000 ST @15,@AL00001+12 0177 01522000 L @14,@PC00001+4 0177 01523000 L @15,RPVECTAB+8(,@14) 0177 01524000 LA @01,@AL00001 0177 01525000 BALR @14,@15 0177 01526000 */* INSERT UNUSED FRAMES TITLE AND DATA */ 01527000 * 0178 01528000 * /*****************************************************************/ 01529000 * /* */ 01530000 * /* MACDATE Y-2 73018 */ 01531000 * /* */ 01532000 * /*****************************************************************/ 01533000 * 0178 01534000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01535000 * SMF71AFC, /* INPUT VALUE */ 01536000 * RPDATSCF, /* INPUT SCALE */ 01537000 * RPWRKSTR, /* OUTPUT STRING */ 01538000 * RPPFLEN, /* OUTPUT LENGTH */ 01539000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01540000 * RPNOCOMA, /* COMMAS FLAG */ 01541000 * RPNOFLOT /* MAX PRECISION FLAG */ 01542000 * ); 0178 01543000 * 0178 01544000 MVC @AL00001+4(24),@AL00178 0178 01545000 L @15,@PC00001 0178 01546000 L @15,SMF71PTR(,@15) 0178 01547000 LA @14,SMF71SIZ(,@15) 0178 01548000 AH @14,SMF71SIZ(,@15) 0178 01549000 LH @15,SMF71SPC(,@14) 0178 01550000 ALR @15,@14 0178 01551000 LA @15,SMF71AFC(,@15) 0178 01552000 ST @15,@AL00001 0178 01553000 LA @15,RPWRKSTR 0178 01554000 ST @15,@AL00001+8 0178 01555000 L @14,@PC00001+4 0178 01556000 L @15,RPVECTAB(,@14) 0178 01557000 LA @01,@AL00001 0178 01558000 BALR @14,@15 0178 01559000 * /*****************************************************************/ 01560000 * /* */ 01561000 * /* MACDATE Y-2 73018 */ 01562000 * /* */ 01563000 * /*****************************************************************/ 01564000 * 0179 01565000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01566000 * IRBMFLPV(RPUNUFRM)->RPTEXT, /* TEXT */ 01567000 * IRBMFLPV(RPUNUFRM)->RPLENGTH,/* LENGTH */ 01568000 * RPLINE, /* START LINE */ 01569000 * RPCOL53 /* START COLUMN */ 01570000 * ); 0179 01571000 * 0179 01572000 L @15,@CA00141 0179 01573000 L @15,IRBMFLPV-IRBMFLPV+172(,@15) 0179 01574000 LA @14,RPTEXT(,@15) 0179 01575000 ST @14,@AL00001 0179 01576000 ST @15,@AL00001+4 0179 01577000 LA @15,RPLINE 0179 01578000 ST @15,@AL00001+8 0179 01579000 LA @15,@CF00261 0179 01580000 ST @15,@AL00001+12 0179 01581000 L @14,@PC00001+4 0179 01582000 L @15,RPVECTAB+8(,@14) 0179 01583000 LA @01,@AL00001 0179 01584000 BALR @14,@15 0179 01585000 * /*****************************************************************/ 01586000 * /* */ 01587000 * /* MACDATE Y-2 73018 */ 01588000 * /* */ 01589000 * /*****************************************************************/ 01590000 * 0180 01591000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01592000 * RPWRKSTR, /* TEXT */ 01593000 * RPPFLEN, /* LENGTH */ 01594000 * RPLINE, /* START LINE */ 01595000 * RPCOL70 /* START COLUMN */ 01596000 * ); 0180 01597000 * 0180 01598000 LA @15,RPWRKSTR 0180 01599000 ST @15,@AL00001 0180 01600000 LA @15,@CF00058 0180 01601000 ST @15,@AL00001+4 0180 01602000 LA @15,RPLINE 0180 01603000 ST @15,@AL00001+8 0180 01604000 LA @15,@CF00269 0180 01605000 ST @15,@AL00001+12 0180 01606000 L @14,@PC00001+4 0180 01607000 L @15,RPVECTAB+8(,@14) 0180 01608000 LA @01,@AL00001 0180 01609000 BALR @14,@15 0180 01610000 */* UNUSED FRAMES PERCENT */ 01611000 * 0181 01612000 * IF SMF71TFC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 01613000 L @15,@PC00001 0181 01614000 L @15,SMF71PTR(,@15) 0181 01615000 LA @14,SMF71SIZ(,@15) 0181 01616000 AH @14,SMF71SIZ(,@15) 0181 01617000 LH @15,SMF71SPC(,@14) 0181 01618000 ALR @15,@14 0181 01619000 L @14,SMF71TFC(,@15) 0181 01620000 LTR @14,@14 0181 01621000 BZ @RF00181 0181 01622000 * DO; 0182 01623000 * RFY 0183 01624000 * (GPR00F, 0183 01625000 * GPR01F, 0183 01626000 * GPR14F, 0183 01627000 * GPR15F) RSTD; 0183 01628000 * GPR01F=SMF71AFC; /* SET UP FOR MULTIPLY AND */ 01629000 ST @14,@TF00001 0184 01630000 ST @15,@TF00002 0184 01631000 L @07,@TF00002 0184 01632000 L GPR01F,SMF71AFC(,@07) 0184 01633000 * GPR15F=SMF71TFC; /* DIVIDE */ 01634000 L GPR15F,@TF00001 0185 01635000 * GENERATE REFS(RPRATSEC); 0186 01636000 M GPR00F,RPRATSEC 01637000 DR GPR00F,GPR15F 01638000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 01639000 ST GPR01F,RPTEMSAV 0187 01640000 * RFY 0188 01641000 * (GPR00F, 0188 01642000 * GPR01F, 0188 01643000 * GPR14F, 0188 01644000 * GPR15F) UNRSTD; 0188 01645000 * END; 0189 01646000 * ELSE 0190 01647000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 01648000 * 0190 01649000 B @RC00181 0190 01650000 @RF00181 SLR @15,@15 0190 01651000 ST @15,RPTEMSAV 0190 01652000 * /*****************************************************************/ 01653000 * /* */ 01654000 * /* MACDATE Y-2 73018 */ 01655000 * /* */ 01656000 * /*****************************************************************/ 01657000 * 0191 01658000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01659000 * RPTEMSAV, /* INPUT VALUE */ 01660000 * RPRATSCF, /* INPUT SCALE */ 01661000 * RPWRKSTR, /* OUTPUT STRING */ 01662000 * RPRATLEN, /* OUTPUT LENGTH */ 01663000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01664000 * RPNOCOMA, /* COMMAS FLAG */ 01665000 * RPNOFLOT /* MAX PRECISION FLAG */ 01666000 * ); 0191 01667000 * 0191 01668000 @RC00181 MVC @AL00001+4(24),@AL00191 0191 01669000 LA @15,RPTEMSAV 0191 01670000 ST @15,@AL00001 0191 01671000 LA @15,RPWRKSTR 0191 01672000 ST @15,@AL00001+8 0191 01673000 L @14,@PC00001+4 0191 01674000 L @15,RPVECTAB(,@14) 0191 01675000 LA @01,@AL00001 0191 01676000 BALR @14,@15 0191 01677000 * /*****************************************************************/ 01678000 * /* */ 01679000 * /* MACDATE Y-2 73018 */ 01680000 * /* */ 01681000 * /*****************************************************************/ 01682000 * 0192 01683000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01684000 * RPWRKSTR, /* TEXT */ 01685000 * RPRATLEN, /* LENGTH */ 01686000 * RPLINE, /* START LINE */ 01687000 * RPCOL79 /* START COLUMN */ 01688000 * ); /* UNUSED FRAMES % */ 01689000 LA @15,RPWRKSTR 0192 01690000 ST @15,@AL00001 0192 01691000 LA @15,@CF00149 0192 01692000 ST @15,@AL00001+4 0192 01693000 LA @15,RPLINE 0192 01694000 ST @15,@AL00001+8 0192 01695000 LA @15,@CF00273 0192 01696000 ST @15,@AL00001+12 0192 01697000 L @14,@PC00001+4 0192 01698000 L @15,RPVECTAB+8(,@14) 0192 01699000 LA @01,@AL00001 0192 01700000 BALR @14,@15 0192 01701000 */* INSERT SWAPS TITLE AND DATA */ 01702000 * 0193 01703000 * /*****************************************************************/ 01704000 * /* */ 01705000 * /* MACDATE Y-2 73018 */ 01706000 * /* */ 01707000 * /*****************************************************************/ 01708000 * 0193 01709000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01710000 * SMF71SSQ, /* INPUT VALUE */ 01711000 * RPDATSCF, /* INPUT SCALE */ 01712000 * RPWRKSTR, /* OUTPUT STRING */ 01713000 * RPPSLEN, /* OUTPUT LENGTH */ 01714000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01715000 * RPCOMMAS, /* COMMAS FLAG */ 01716000 * RPNOFLOT /* MAX PRECISION FLAG */ 01717000 * ); 0193 01718000 * 0193 01719000 MVC @AL00001+4(24),@AL00193 0193 01720000 L @15,@PC00001 0193 01721000 L @15,SMF71PTR(,@15) 0193 01722000 LA @14,SMF71SIZ(,@15) 0193 01723000 AH @14,SMF71SIZ(,@15) 0193 01724000 LH @15,SMF71SPC(,@14) 0193 01725000 ALR @15,@14 0193 01726000 LA @15,SMF71SSQ(,@15) 0193 01727000 ST @15,@AL00001 0193 01728000 LA @15,RPWRKSTR 0193 01729000 ST @15,@AL00001+8 0193 01730000 L @14,@PC00001+4 0193 01731000 L @15,RPVECTAB(,@14) 0193 01732000 LA @01,@AL00001 0193 01733000 BALR @14,@15 0193 01734000 * /*****************************************************************/ 01735000 * /* */ 01736000 * /* MACDATE Y-2 73018 */ 01737000 * /* */ 01738000 * /*****************************************************************/ 01739000 * 0194 01740000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01741000 * IRBMFLPV(RPSWAPS)->RPTEXT, /* TEXT */ 01742000 * IRBMFLPV(RPSWAPS)->RPLENGTH,/* LENGTH */ 01743000 * RPLINE, /* START LINE */ 01744000 * RPCOL95 /* START COLUMN */ 01745000 * ); 0194 01746000 * 0194 01747000 L @15,@CA00141 0194 01748000 L @15,IRBMFLPV-IRBMFLPV+184(,@15) 0194 01749000 LA @14,RPTEXT(,@15) 0194 01750000 ST @14,@AL00001 0194 01751000 ST @15,@AL00001+4 0194 01752000 LA @15,RPLINE 0194 01753000 ST @15,@AL00001+8 0194 01754000 LA @15,@CF00279 0194 01755000 ST @15,@AL00001+12 0194 01756000 L @14,@PC00001+4 0194 01757000 L @15,RPVECTAB+8(,@14) 0194 01758000 LA @01,@AL00001 0194 01759000 BALR @14,@15 0194 01760000 * /*****************************************************************/ 01761000 * /* */ 01762000 * /* MACDATE Y-2 73018 */ 01763000 * /* */ 01764000 * /*****************************************************************/ 01765000 * 0195 01766000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01767000 * RPWRKSTR, /* TEXT */ 01768000 * RPPSLEN, /* LENGTH */ 01769000 * RPLINE, /* START LINE */ 01770000 * RPCOL106 /* START COLUMN */ 01771000 * ); /* SWAPS DATA */ 01772000 LA @15,RPWRKSTR 0195 01773000 ST @15,@AL00001 0195 01774000 LA @15,@CF00145 0195 01775000 ST @15,@AL00001+4 0195 01776000 LA @15,RPLINE 0195 01777000 ST @15,@AL00001+8 0195 01778000 LA @15,@CF00285 0195 01779000 ST @15,@AL00001+12 0195 01780000 L @14,@PC00001+4 0195 01781000 L @15,RPVECTAB+8(,@14) 0195 01782000 LA @01,@AL00001 0195 01783000 BALR @14,@15 0195 01784000 * RPLINE=RPLINE+RPSPACE; /* NEXT DATA LINE */ 01785000 LA @15,2 0196 01786000 AL @15,RPLINE 0196 01787000 ST @15,RPLINE 0196 01788000 * CALL RPPAGEND; /* CHECK FOR END OF PAGE */ 01789000 BAL @14,RPPAGEND 0197 01790000 * IF RPLINE+RPSPACE>RGMAXLN THEN /* ROOM FOR NEXT 3 LINES? */ 01791000 LA @15,2 0198 01792000 AL @15,RPLINE 0198 01793000 CH @15,@CH00042 0198 01794000 BNH @RF00198 0198 01795000 * DO; 0199 01796000 * RPLINE=RPLINE+RPSPACE; /* MOVE IN TOO LARGE VALUE */ 01797000 ST @15,RPLINE 0200 01798000 * CALL RPPAGEND; /* END OF PAGE ROUTINE */ 01799000 BAL @14,RPPAGEND 0201 01800000 * END; 0202 01801000 * 0202 01802000 */* DATA SET PAGES TITLE AND DATA INSERTS */ 01803000 * 0203 01804000 * /*****************************************************************/ 01805000 * /* */ 01806000 * /* MACDATE Y-2 73018 */ 01807000 * /* */ 01808000 * /*****************************************************************/ 01809000 * 0203 01810000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01811000 * SMF71DSC, /* INPUT VALUE */ 01812000 * RPDATSCF, /* INPUT SCALE */ 01813000 * RPWRKSTR, /* OUTPUT STRING */ 01814000 * RPPSLEN, /* OUTPUT LENGTH */ 01815000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01816000 * RPCOMMAS, /* COMMAS FLAG */ 01817000 * RPNOFLOT /* MAX PRECISION FLAG */ 01818000 * ); 0203 01819000 * 0203 01820000 @RF00198 MVC @AL00001+4(24),@AL00203 0203 01821000 L @15,@PC00001 0203 01822000 L @15,SMF71PTR(,@15) 0203 01823000 LA @14,SMF71SIZ(,@15) 0203 01824000 AH @14,SMF71SIZ(,@15) 0203 01825000 LH @15,SMF71SPC(,@14) 0203 01826000 ALR @15,@14 0203 01827000 LA @15,SMF71DSC(,@15) 0203 01828000 ST @15,@AL00001 0203 01829000 LA @15,RPWRKSTR 0203 01830000 ST @15,@AL00001+8 0203 01831000 L @14,@PC00001+4 0203 01832000 L @15,RPVECTAB(,@14) 0203 01833000 LA @01,@AL00001 0203 01834000 BALR @14,@15 0203 01835000 * /*****************************************************************/ 01836000 * /* */ 01837000 * /* MACDATE Y-2 73018 */ 01838000 * /* */ 01839000 * /*****************************************************************/ 01840000 * 0204 01841000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01842000 * IRBMFLPV(RPDATSET)->RPTEXT, /* TEXT */ 01843000 * IRBMFLPV(RPDATSET)->RPLENGTH,/* LENGTH */ 01844000 * RPLINE, /* START LINE */ 01845000 * RPCOL1 /* START COLUMN */ 01846000 * ); 0204 01847000 * 0204 01848000 L @15,@CA00141 0204 01849000 L @15,IRBMFLPV-IRBMFLPV+156(,@15) 0204 01850000 LA @14,RPTEXT(,@15) 0204 01851000 ST @14,@AL00001 0204 01852000 ST @15,@AL00001+4 0204 01853000 LA @15,RPLINE 0204 01854000 ST @15,@AL00001+8 0204 01855000 LA @15,@CF00052 0204 01856000 ST @15,@AL00001+12 0204 01857000 L @14,@PC00001+4 0204 01858000 L @15,RPVECTAB+8(,@14) 0204 01859000 LA @01,@AL00001 0204 01860000 BALR @14,@15 0204 01861000 * /*****************************************************************/ 01862000 * /* */ 01863000 * /* MACDATE Y-2 73018 */ 01864000 * /* */ 01865000 * /*****************************************************************/ 01866000 * 0205 01867000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01868000 * RPWRKSTR, /* TEXT */ 01869000 * RPPSLEN, /* LENGTH */ 01870000 * RPLINE, /* START LINE */ 01871000 * RPCOL24 /* START COLUMN */ 01872000 * ); 0205 01873000 * 0205 01874000 LA @15,RPWRKSTR 0205 01875000 ST @15,@AL00001 0205 01876000 LA @15,@CF00145 0205 01877000 ST @15,@AL00001+4 0205 01878000 LA @15,RPLINE 0205 01879000 ST @15,@AL00001+8 0205 01880000 LA @15,@CF00199 0205 01881000 ST @15,@AL00001+12 0205 01882000 L @14,@PC00001+4 0205 01883000 L @15,RPVECTAB+8(,@14) 0205 01884000 LA @01,@AL00001 0205 01885000 BALR @14,@15 0205 01886000 */* DATA SET PAGES PERCENT */ 01887000 * 0206 01888000 * IF SMF71TSC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 01889000 L @15,@PC00001 0206 01890000 L @15,SMF71PTR(,@15) 0206 01891000 LA @14,SMF71SIZ(,@15) 0206 01892000 AH @14,SMF71SIZ(,@15) 0206 01893000 LH @15,SMF71SPC(,@14) 0206 01894000 ALR @15,@14 0206 01895000 L @14,SMF71TSC(,@15) 0206 01896000 LTR @14,@14 0206 01897000 BZ @RF00206 0206 01898000 * DO; 0207 01899000 * RFY 0208 01900000 * (GPR00F, 0208 01901000 * GPR01F, 0208 01902000 * GPR14F, 0208 01903000 * GPR15F) RSTD; 0208 01904000 * GPR01F=SMF71DSC; /* SET UP FOR MULTIPLY AND */ 01905000 ST @14,@TF00001 0209 01906000 ST @15,@TF00002 0209 01907000 L @07,@TF00002 0209 01908000 L GPR01F,SMF71DSC(,@07) 0209 01909000 * GPR15F=SMF71TSC; /* DIVIDE */ 01910000 L GPR15F,@TF00001 0210 01911000 * GENERATE REFS(RPRATSEC); 0211 01912000 M GPR00F,RPRATSEC 01913000 DR GPR00F,GPR15F 01914000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 01915000 ST GPR01F,RPTEMSAV 0212 01916000 * RFY 0213 01917000 * (GPR00F, 0213 01918000 * GPR01F, 0213 01919000 * GPR14F, 0213 01920000 * GPR15F) UNRSTD; 0213 01921000 * END; 0214 01922000 * ELSE 0215 01923000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 01924000 * 0215 01925000 B @RC00206 0215 01926000 @RF00206 SLR @15,@15 0215 01927000 ST @15,RPTEMSAV 0215 01928000 * /*****************************************************************/ 01929000 * /* */ 01930000 * /* MACDATE Y-2 73018 */ 01931000 * /* */ 01932000 * /*****************************************************************/ 01933000 * 0216 01934000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01935000 * RPTEMSAV, /* INPUT VALUE */ 01936000 * RPRATSCF, /* INPUT SCALE */ 01937000 * RPWRKSTR, /* OUTPUT STRING */ 01938000 * RPRATLEN, /* OUTPUT LENGTH */ 01939000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01940000 * RPNOCOMA, /* COMMAS FLAG */ 01941000 * RPNOFLOT /* MAX PRECISION FLAG */ 01942000 * ); 0216 01943000 * 0216 01944000 @RC00206 MVC @AL00001+4(24),@AL00216 0216 01945000 LA @15,RPTEMSAV 0216 01946000 ST @15,@AL00001 0216 01947000 LA @15,RPWRKSTR 0216 01948000 ST @15,@AL00001+8 0216 01949000 L @14,@PC00001+4 0216 01950000 L @15,RPVECTAB(,@14) 0216 01951000 LA @01,@AL00001 0216 01952000 BALR @14,@15 0216 01953000 * /*****************************************************************/ 01954000 * /* */ 01955000 * /* MACDATE Y-2 73018 */ 01956000 * /* */ 01957000 * /*****************************************************************/ 01958000 * 0217 01959000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 01960000 * RPWRKSTR, /* TEXT */ 01961000 * RPRATLEN, /* LENGTH */ 01962000 * RPLINE, /* START LINE */ 01963000 * RPCOL38 /* START COLUMN */ 01964000 * ); 0217 01965000 * 0217 01966000 LA @15,RPWRKSTR 0217 01967000 ST @15,@AL00001 0217 01968000 LA @15,@CF00149 0217 01969000 ST @15,@AL00001+4 0217 01970000 LA @15,RPLINE 0217 01971000 ST @15,@AL00001+8 0217 01972000 LA @15,@CF00046 0217 01973000 ST @15,@AL00001+12 0217 01974000 L @14,@PC00001+4 0217 01975000 L @15,RPVECTAB+8(,@14) 0217 01976000 LA @01,@AL00001 0217 01977000 BALR @14,@15 0217 01978000 */* INSERT DATA PAGES TITLE AND DATA */ 01979000 * 0218 01980000 * /*****************************************************************/ 01981000 * /* */ 01982000 * /* MACDATE Y-2 73018 */ 01983000 * /* */ 01984000 * /*****************************************************************/ 01985000 * 0218 01986000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 01987000 * SMF71TFC-SMF71AFC, /* INPUT VALUE */ 01988000 * RPDATSCF, /* INPUT SCALE */ 01989000 * RPWRKSTR, /* OUTPUT STRING */ 01990000 * RPPFLEN, /* OUTPUT LENGTH */ 01991000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 01992000 * RPNOCOMA, /* COMMAS FLAG */ 01993000 * RPNOFLOT /* MAX PRECISION FLAG */ 01994000 * ); 0218 01995000 * 0218 01996000 MVC @AL00001+4(24),@AL00218 0218 01997000 L @15,@PC00001 0218 01998000 L @15,SMF71PTR(,@15) 0218 01999000 LA @14,SMF71SIZ(,@15) 0218 02000000 AH @14,SMF71SIZ(,@15) 0218 02001000 LH @15,SMF71SPC(,@14) 0218 02002000 ALR @15,@14 0218 02003000 L @14,SMF71TFC(,@15) 0218 02004000 SL @14,SMF71AFC(,@15) 0218 02005000 ST @14,@AFTEMPS+4 0218 02006000 LA @15,@AFTEMPS+4 0218 02007000 ST @15,@AL00001 0218 02008000 LA @15,RPWRKSTR 0218 02009000 ST @15,@AL00001+8 0218 02010000 L @14,@PC00001+4 0218 02011000 L @15,RPVECTAB(,@14) 0218 02012000 LA @01,@AL00001 0218 02013000 BALR @14,@15 0218 02014000 * /*****************************************************************/ 02015000 * /* */ 02016000 * /* MACDATE Y-2 73018 */ 02017000 * /* */ 02018000 * /*****************************************************************/ 02019000 * 0219 02020000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02021000 * IRBMFLPV(RPDATPAG)->RPTEXT, /* TEXT */ 02022000 * IRBMFLPV(RPDATPAG)->RPLENGTH,/* LENGTH */ 02023000 * RPLINE, /* START LINE */ 02024000 * RPCOL53 /* START COLUMN */ 02025000 * ); 0219 02026000 * 0219 02027000 L @15,@CA00141 0219 02028000 L @15,IRBMFLPV-IRBMFLPV+176(,@15) 0219 02029000 LA @14,RPTEXT(,@15) 0219 02030000 ST @14,@AL00001 0219 02031000 ST @15,@AL00001+4 0219 02032000 LA @15,RPLINE 0219 02033000 ST @15,@AL00001+8 0219 02034000 LA @15,@CF00261 0219 02035000 ST @15,@AL00001+12 0219 02036000 L @14,@PC00001+4 0219 02037000 L @15,RPVECTAB+8(,@14) 0219 02038000 LA @01,@AL00001 0219 02039000 BALR @14,@15 0219 02040000 * /*****************************************************************/ 02041000 * /* */ 02042000 * /* MACDATE Y-2 73018 */ 02043000 * /* */ 02044000 * /*****************************************************************/ 02045000 * 0220 02046000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02047000 * RPWRKSTR, /* TEXT */ 02048000 * RPPFLEN, /* LENGTH */ 02049000 * RPLINE, /* START LINE */ 02050000 * RPCOL70 /* START COLUMN */ 02051000 * ); 0220 02052000 * 0220 02053000 LA @15,RPWRKSTR 0220 02054000 ST @15,@AL00001 0220 02055000 LA @15,@CF00058 0220 02056000 ST @15,@AL00001+4 0220 02057000 LA @15,RPLINE 0220 02058000 ST @15,@AL00001+8 0220 02059000 LA @15,@CF00269 0220 02060000 ST @15,@AL00001+12 0220 02061000 L @14,@PC00001+4 0220 02062000 L @15,RPVECTAB+8(,@14) 0220 02063000 LA @01,@AL00001 0220 02064000 BALR @14,@15 0220 02065000 */* DATA PAGES PERCENT */ 02066000 * 0221 02067000 * IF SMF71TFC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 02068000 L @15,@PC00001 0221 02069000 L @15,SMF71PTR(,@15) 0221 02070000 LA @14,SMF71SIZ(,@15) 0221 02071000 AH @14,SMF71SIZ(,@15) 0221 02072000 LH @15,SMF71SPC(,@14) 0221 02073000 ALR @15,@14 0221 02074000 L @14,SMF71TFC(,@15) 0221 02075000 LTR @14,@14 0221 02076000 BZ @RF00221 0221 02077000 * DO; 0222 02078000 * RFY 0223 02079000 * (GPR00F, 0223 02080000 * GPR01F, 0223 02081000 * GPR14F, 0223 02082000 * GPR15F) RSTD; 0223 02083000 * GPR01F=SMF71TFC-SMF71AFC; /* SET UP FOR MULTIPLY AND */ 02084000 ST @14,@TF00001 0224 02085000 ST @15,@TF00002 0224 02086000 L GPR01F,@TF00001 0224 02087000 L @07,@TF00002 0224 02088000 SL GPR01F,SMF71AFC(,@07) 0224 02089000 * GPR15F=SMF71TFC; /* DIVIDE */ 02090000 L GPR15F,@TF00001 0225 02091000 * GENERATE REFS(RPRATSEC); 0226 02092000 M GPR00F,RPRATSEC 02093000 DR GPR00F,GPR15F 02094000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 02095000 ST GPR01F,RPTEMSAV 0227 02096000 * RFY 0228 02097000 * (GPR00F, 0228 02098000 * GPR01F, 0228 02099000 * GPR14F, 0228 02100000 * GPR15F) UNRSTD; 0228 02101000 * END; 0229 02102000 * ELSE 0230 02103000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 02104000 * 0230 02105000 B @RC00221 0230 02106000 @RF00221 SLR @15,@15 0230 02107000 ST @15,RPTEMSAV 0230 02108000 * /*****************************************************************/ 02109000 * /* */ 02110000 * /* MACDATE Y-2 73018 */ 02111000 * /* */ 02112000 * /*****************************************************************/ 02113000 * 0231 02114000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02115000 * RPTEMSAV, /* INPUT VALUE */ 02116000 * RPRATSCF, /* INPUT SCALE */ 02117000 * RPWRKSTR, /* OUTPUT STRING */ 02118000 * RPRATLEN, /* OUTPUT LENGTH */ 02119000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02120000 * RPNOCOMA, /* COMMAS FLAG */ 02121000 * RPNOFLOT /* MAX PRECISION FLAG */ 02122000 * ); 0231 02123000 * 0231 02124000 @RC00221 MVC @AL00001+4(24),@AL00231 0231 02125000 LA @15,RPTEMSAV 0231 02126000 ST @15,@AL00001 0231 02127000 LA @15,RPWRKSTR 0231 02128000 ST @15,@AL00001+8 0231 02129000 L @14,@PC00001+4 0231 02130000 L @15,RPVECTAB(,@14) 0231 02131000 LA @01,@AL00001 0231 02132000 BALR @14,@15 0231 02133000 * /*****************************************************************/ 02134000 * /* */ 02135000 * /* MACDATE Y-2 73018 */ 02136000 * /* */ 02137000 * /*****************************************************************/ 02138000 * 0232 02139000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02140000 * RPWRKSTR, /* TEXT */ 02141000 * RPRATLEN, /* LENGTH */ 02142000 * RPLINE, /* START LINE */ 02143000 * RPCOL79 /* START COLUMN */ 02144000 * ); /* DATA SET FRAMES % */ 02145000 LA @15,RPWRKSTR 0232 02146000 ST @15,@AL00001 0232 02147000 LA @15,@CF00149 0232 02148000 ST @15,@AL00001+4 0232 02149000 LA @15,RPLINE 0232 02150000 ST @15,@AL00001+8 0232 02151000 LA @15,@CF00273 0232 02152000 ST @15,@AL00001+12 0232 02153000 L @14,@PC00001+4 0232 02154000 L @15,RPVECTAB+8(,@14) 0232 02155000 LA @01,@AL00001 0232 02156000 BALR @14,@15 0232 02157000 */* INSERT AVERAGE (PAGES PER SWAP OUT ) TITLE */ 02158000 * 0233 02159000 * /*****************************************************************/ 02160000 * /* */ 02161000 * /* MACDATE Y-2 73018 */ 02162000 * /* */ 02163000 * /*****************************************************************/ 02164000 * 0233 02165000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02166000 * IRBMFLPV(RPAVRGE)->RPTEXT, /* TEXT */ 02167000 * IRBMFLPV(RPAVRGE)->RPLENGTH,/* LENGTH */ 02168000 * RPLINE, /* START LINE */ 02169000 * RPCOL95 /* START COLUMN */ 02170000 * ); 0233 02171000 L @15,@CA00141 0233 02172000 L @15,IRBMFLPV-IRBMFLPV+188(,@15) 0233 02173000 LA @14,RPTEXT(,@15) 0233 02174000 ST @14,@AL00001 0233 02175000 ST @15,@AL00001+4 0233 02176000 LA @15,RPLINE 0233 02177000 ST @15,@AL00001+8 0233 02178000 LA @15,@CF00279 0233 02179000 ST @15,@AL00001+12 0233 02180000 L @14,@PC00001+4 0233 02181000 L @15,RPVECTAB+8(,@14) 0233 02182000 LA @01,@AL00001 0233 02183000 BALR @14,@15 0233 02184000 * RPLINE=RPLINE+RPLININC; /* INCREMENT LINE NUMBER */ 02185000 LA @15,1 0234 02186000 AL @15,RPLINE 0234 02187000 ST @15,RPLINE 0234 02188000 */* INSERT DASHES FOR TOTAL FRAMES AND TOTAL FRAMES PERCENT */ 02189000 */* MACDATE Y-2 73018 */ 02190000 * 0235 02191000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02192000 * IRBMFLPV(RPDASH5)->RPTEXT, /* TEXT */ 02193000 * IRBMFLPV(RPDASH5)->RPLENGTH,/* LENGTH */ 02194000 * RPLINE, /* START LINE */ 02195000 * RPCOL70 /* START COLUMN */ 02196000 * ); 0235 02197000 * 0235 02198000 L @15,@CA00141 0235 02199000 L @15,IRBMFLPV-IRBMFLPV+216(,@15) 0235 02200000 LA @14,RPTEXT(,@15) 0235 02201000 ST @14,@AL00001 0235 02202000 ST @15,@AL00001+4 0235 02203000 LA @15,RPLINE 0235 02204000 ST @15,@AL00001+8 0235 02205000 LA @15,@CF00269 0235 02206000 ST @15,@AL00001+12 0235 02207000 L @14,@PC00001+4 0235 02208000 L @15,RPVECTAB+8(,@14) 0235 02209000 LA @01,@AL00001 0235 02210000 BALR @14,@15 0235 02211000 * /*****************************************************************/ 02212000 * /* */ 02213000 * /* MACDATE Y-2 73018 */ 02214000 * /* */ 02215000 * /*****************************************************************/ 02216000 * 0236 02217000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02218000 * IRBMFLPV(RPDASH6)->RPTEXT, /* TEXT */ 02219000 * IRBMFLPV(RPDASH6)->RPLENGTH,/* LENGTH */ 02220000 * RPLINE, /* START LINE */ 02221000 * RPCOL78 /* START COLUMN */ 02222000 * ); 0236 02223000 * 0236 02224000 L @15,@CA00141 0236 02225000 L @15,IRBMFLPV-IRBMFLPV+220(,@15) 0236 02226000 LA @14,RPTEXT(,@15) 0236 02227000 ST @14,@AL00001 0236 02228000 ST @15,@AL00001+4 0236 02229000 LA @15,RPLINE 0236 02230000 ST @15,@AL00001+8 0236 02231000 LA @15,@CF00271 0236 02232000 ST @15,@AL00001+12 0236 02233000 L @14,@PC00001+4 0236 02234000 L @15,RPVECTAB+8(,@14) 0236 02235000 LA @01,@AL00001 0236 02236000 BALR @14,@15 0236 02237000 */* AVERAGE PAGES PER SWAP OUT DATA */ 02238000 * 0237 02239000 * IF SMF71SSQ^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 02240000 L @15,@PC00001 0237 02241000 L @15,SMF71PTR(,@15) 0237 02242000 LA @14,SMF71SIZ(,@15) 0237 02243000 AH @14,SMF71SIZ(,@15) 0237 02244000 LH @15,SMF71SPC(,@14) 0237 02245000 ALR @15,@14 0237 02246000 L @14,SMF71SSQ(,@15) 0237 02247000 LTR @14,@14 0237 02248000 BZ @RF00237 0237 02249000 * DO; 0238 02250000 * RFY 0239 02251000 * (GPR00F, 0239 02252000 * GPR01F, 0239 02253000 * GPR14F, 0239 02254000 * GPR15F) RSTD; 0239 02255000 * GPR00F=RPNULLVL; /* CLEAR FOR DIVIDE */ 02256000 ST @14,@TF00001 0240 02257000 ST @15,@TF00002 0240 02258000 SLR GPR00F,GPR00F 0240 02259000 * GPR15F=SMF71SSQ; /* SET UP FOR DIVIDE AND */ 02260000 L GPR15F,@TF00001 0241 02261000 * GPR01F=SMF71SOT+GPR15F/2; /* ALLOW FOR ROUNDING QUOTIENT */ 02262000 LR @02,GPR15F 0242 02263000 SRDA @02,32 0242 02264000 D @02,@CF00054 0242 02265000 L @02,@TF00002 0242 02266000 AL @03,SMF71SOT(,@02) 0242 02267000 LR GPR01F,@03 0242 02268000 * GENERATE; 0243 02269000 DR GPR00F,GPR15F 02270000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 02271000 ST GPR01F,RPTEMSAV 0244 02272000 * RFY 0245 02273000 * (GPR00F, 0245 02274000 * GPR01F, 0245 02275000 * GPR14F, 0245 02276000 * GPR15F) UNRSTD; 0245 02277000 * END; 0246 02278000 * ELSE 0247 02279000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 02280000 * 0247 02281000 B @RC00237 0247 02282000 @RF00237 SLR @15,@15 0247 02283000 ST @15,RPTEMSAV 0247 02284000 * /*****************************************************************/ 02285000 * /* */ 02286000 * /* MACDATE Y-2 73018 */ 02287000 * /* */ 02288000 * /*****************************************************************/ 02289000 * 0248 02290000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02291000 * RPTEMSAV, /* INPUT VALUE */ 02292000 * RPDATSCF, /* INPUT SCALE */ 02293000 * RPWRKSTR, /* OUTPUT STRING */ 02294000 * RPPFLEN, /* OUTPUT LENGTH */ 02295000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02296000 * RPNOCOMA, /* COMMAS FLAG */ 02297000 * RPNOFLOT /* MAX PRECISION FLAG */ 02298000 * ); 0248 02299000 * 0248 02300000 @RC00237 MVC @AL00001+4(24),@AL00248 0248 02301000 LA @15,RPTEMSAV 0248 02302000 ST @15,@AL00001 0248 02303000 LA @15,RPWRKSTR 0248 02304000 ST @15,@AL00001+8 0248 02305000 L @14,@PC00001+4 0248 02306000 L @15,RPVECTAB(,@14) 0248 02307000 LA @01,@AL00001 0248 02308000 BALR @14,@15 0248 02309000 */* PAGES PER TITLE */ 02310000 * 0249 02311000 * /*****************************************************************/ 02312000 * /* */ 02313000 * /* MACDATE Y-2 73018 */ 02314000 * /* */ 02315000 * /*****************************************************************/ 02316000 * 0249 02317000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02318000 * IRBMFLPV(RPPAGPER)->RPTEXT, /* TEXT */ 02319000 * IRBMFLPV(RPPAGPER)->RPLENGTH,/* LENGTH */ 02320000 * RPLINE, /* START LINE */ 02321000 * RPCOL95 /* START COLUMN */ 02322000 * ); 0249 02323000 * 0249 02324000 L @15,@CA00141 0249 02325000 L @15,IRBMFLPV-IRBMFLPV+192(,@15) 0249 02326000 LA @14,RPTEXT(,@15) 0249 02327000 ST @14,@AL00001 0249 02328000 ST @15,@AL00001+4 0249 02329000 LA @15,RPLINE 0249 02330000 ST @15,@AL00001+8 0249 02331000 LA @15,@CF00279 0249 02332000 ST @15,@AL00001+12 0249 02333000 L @14,@PC00001+4 0249 02334000 L @15,RPVECTAB+8(,@14) 0249 02335000 LA @01,@AL00001 0249 02336000 BALR @14,@15 0249 02337000 * /*****************************************************************/ 02338000 * /* */ 02339000 * /* MACDATE Y-2 73018 */ 02340000 * /* */ 02341000 * /*****************************************************************/ 02342000 * 0250 02343000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02344000 * RPWRKSTR, /* TEXT */ 02345000 * RPPFLEN, /* LENGTH */ 02346000 * RPLINE, /* START LINE */ 02347000 * RPCOL106 /* START COLUMN */ 02348000 * ); 0250 02349000 LA @15,RPWRKSTR 0250 02350000 ST @15,@AL00001 0250 02351000 LA @15,@CF00058 0250 02352000 ST @15,@AL00001+4 0250 02353000 LA @15,RPLINE 0250 02354000 ST @15,@AL00001+8 0250 02355000 LA @15,@CF00285 0250 02356000 ST @15,@AL00001+12 0250 02357000 L @14,@PC00001+4 0250 02358000 L @15,RPVECTAB+8(,@14) 0250 02359000 LA @01,@AL00001 0250 02360000 BALR @14,@15 0250 02361000 * RPLINE=RPLINE+RPLININC; /* INCREMENT LINE NUMBER */ 02362000 LA @15,1 0251 02363000 AL @15,RPLINE 0251 02364000 ST @15,RPLINE 0251 02365000 */* ADDRESS SPACE PAGES TITLE AND DATA INSERTS */ 02366000 * 0252 02367000 * /*****************************************************************/ 02368000 * /* */ 02369000 * /* MACDATE Y-2 73018 */ 02370000 * /* */ 02371000 * /*****************************************************************/ 02372000 * 0252 02373000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02374000 * SMF71VSC, /* INPUT VALUE */ 02375000 * RPDATSCF, /* INPUT SCALE */ 02376000 * RPWRKSTR, /* OUTPUT STRING */ 02377000 * RPPSLEN, /* OUTPUT LENGTH */ 02378000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02379000 * RPCOMMAS, /* COMMAS FLAG */ 02380000 * RPNOFLOT /* MAX PRECISION FLAG */ 02381000 * ); 0252 02382000 * 0252 02383000 MVC @AL00001+4(24),@AL00252 0252 02384000 L @15,@PC00001 0252 02385000 L @15,SMF71PTR(,@15) 0252 02386000 LA @14,SMF71SIZ(,@15) 0252 02387000 AH @14,SMF71SIZ(,@15) 0252 02388000 LH @15,SMF71SPC(,@14) 0252 02389000 ALR @15,@14 0252 02390000 LA @15,SMF71VSC(,@15) 0252 02391000 ST @15,@AL00001 0252 02392000 LA @15,RPWRKSTR 0252 02393000 ST @15,@AL00001+8 0252 02394000 L @14,@PC00001+4 0252 02395000 L @15,RPVECTAB(,@14) 0252 02396000 LA @01,@AL00001 0252 02397000 BALR @14,@15 0252 02398000 * /*****************************************************************/ 02399000 * /* */ 02400000 * /* MACDATE Y-2 73018 */ 02401000 * /* */ 02402000 * /*****************************************************************/ 02403000 * 0253 02404000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02405000 * IRBMFLPV(RPADSPCE)->RPTEXT, /* TEXT */ 02406000 * IRBMFLPV(RPADSPCE)->RPLENGTH,/* LENGTH */ 02407000 * RPLINE, /* START LINE */ 02408000 * RPCOL1 /* START COLUMN */ 02409000 * ); 0253 02410000 * 0253 02411000 L @15,@CA00141 0253 02412000 L @15,IRBMFLPV-IRBMFLPV+160(,@15) 0253 02413000 LA @14,RPTEXT(,@15) 0253 02414000 ST @14,@AL00001 0253 02415000 ST @15,@AL00001+4 0253 02416000 LA @15,RPLINE 0253 02417000 ST @15,@AL00001+8 0253 02418000 LA @15,@CF00052 0253 02419000 ST @15,@AL00001+12 0253 02420000 L @14,@PC00001+4 0253 02421000 L @15,RPVECTAB+8(,@14) 0253 02422000 LA @01,@AL00001 0253 02423000 BALR @14,@15 0253 02424000 * /*****************************************************************/ 02425000 * /* */ 02426000 * /* MACDATE Y-2 73018 */ 02427000 * /* */ 02428000 * /*****************************************************************/ 02429000 * 0254 02430000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02431000 * RPWRKSTR, /* TEXT */ 02432000 * RPPSLEN, /* LENGTH */ 02433000 * RPLINE, /* START LINE */ 02434000 * RPCOL24 /* START COLUMN */ 02435000 * ); 0254 02436000 * 0254 02437000 LA @15,RPWRKSTR 0254 02438000 ST @15,@AL00001 0254 02439000 LA @15,@CF00145 0254 02440000 ST @15,@AL00001+4 0254 02441000 LA @15,RPLINE 0254 02442000 ST @15,@AL00001+8 0254 02443000 LA @15,@CF00199 0254 02444000 ST @15,@AL00001+12 0254 02445000 L @14,@PC00001+4 0254 02446000 L @15,RPVECTAB+8(,@14) 0254 02447000 LA @01,@AL00001 0254 02448000 BALR @14,@15 0254 02449000 */* ADDRESS SPACE PAGES PERCENTAGE */ 02450000 * 0255 02451000 * IF SMF71TSC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 02452000 L @15,@PC00001 0255 02453000 L @15,SMF71PTR(,@15) 0255 02454000 LA @14,SMF71SIZ(,@15) 0255 02455000 AH @14,SMF71SIZ(,@15) 0255 02456000 LH @15,SMF71SPC(,@14) 0255 02457000 ALR @15,@14 0255 02458000 L @14,SMF71TSC(,@15) 0255 02459000 LTR @14,@14 0255 02460000 BZ @RF00255 0255 02461000 * DO; 0256 02462000 * RFY 0257 02463000 * (GPR00F, 0257 02464000 * GPR01F, 0257 02465000 * GPR14F, 0257 02466000 * GPR15F) RSTD; 0257 02467000 * GPR01F=SMF71VSC; /* SET UP FOR MULTIPLY AND */ 02468000 ST @14,@TF00001 0258 02469000 ST @15,@TF00002 0258 02470000 L @07,@TF00002 0258 02471000 L GPR01F,SMF71VSC(,@07) 0258 02472000 * GPR15F=SMF71TSC; /* DIVIDE */ 02473000 L GPR15F,@TF00001 0259 02474000 * GENERATE REFS(RPRATSEC); 0260 02475000 M GPR00F,RPRATSEC 02476000 DR GPR00F,GPR15F 02477000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 02478000 ST GPR01F,RPTEMSAV 0261 02479000 * RFY 0262 02480000 * (GPR00F, 0262 02481000 * GPR01F, 0262 02482000 * GPR14F, 0262 02483000 * GPR15F) UNRSTD; 0262 02484000 * END; 0263 02485000 * ELSE 0264 02486000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 02487000 * 0264 02488000 B @RC00255 0264 02489000 @RF00255 SLR @15,@15 0264 02490000 ST @15,RPTEMSAV 0264 02491000 * /*****************************************************************/ 02492000 * /* */ 02493000 * /* MACDATE Y-2 73018 */ 02494000 * /* */ 02495000 * /*****************************************************************/ 02496000 * 0265 02497000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02498000 * RPTEMSAV, /* INPUT VALUE */ 02499000 * RPRATSCF, /* INPUT SCALE */ 02500000 * RPWRKSTR, /* OUTPUT STRING */ 02501000 * RPRATLEN, /* OUTPUT LENGTH */ 02502000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02503000 * RPNOCOMA, /* COMMAS FLAG */ 02504000 * RPNOFLOT /* MAX PRECISION FLAG */ 02505000 * ); 0265 02506000 * 0265 02507000 @RC00255 MVC @AL00001+4(24),@AL00265 0265 02508000 LA @15,RPTEMSAV 0265 02509000 ST @15,@AL00001 0265 02510000 LA @15,RPWRKSTR 0265 02511000 ST @15,@AL00001+8 0265 02512000 L @14,@PC00001+4 0265 02513000 L @15,RPVECTAB(,@14) 0265 02514000 LA @01,@AL00001 0265 02515000 BALR @14,@15 0265 02516000 * /*****************************************************************/ 02517000 * /* */ 02518000 * /* MACDATE Y-2 73018 */ 02519000 * /* */ 02520000 * /*****************************************************************/ 02521000 * 0266 02522000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02523000 * RPWRKSTR, /* TEXT */ 02524000 * RPRATLEN, /* LENGTH */ 02525000 * RPLINE, /* START LINE */ 02526000 * RPCOL38 /* START COLUMN */ 02527000 * ); 0266 02528000 * 0266 02529000 LA @15,RPWRKSTR 0266 02530000 ST @15,@AL00001 0266 02531000 LA @15,@CF00149 0266 02532000 ST @15,@AL00001+4 0266 02533000 LA @15,RPLINE 0266 02534000 ST @15,@AL00001+8 0266 02535000 LA @15,@CF00046 0266 02536000 ST @15,@AL00001+12 0266 02537000 L @14,@PC00001+4 0266 02538000 L @15,RPVECTAB+8(,@14) 0266 02539000 LA @01,@AL00001 0266 02540000 BALR @14,@15 0266 02541000 */* INSERT TOTAL FRAMES TITLE AND DATA */ 02542000 * 0267 02543000 * /*****************************************************************/ 02544000 * /* */ 02545000 * /* MACDATE Y-2 73018 */ 02546000 * /* */ 02547000 * /*****************************************************************/ 02548000 * 0267 02549000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02550000 * SMF71TFC, /* INPUT VALUE */ 02551000 * RPDATSCF, /* INPUT SCALE */ 02552000 * RPWRKSTR, /* OUTPUT STRING */ 02553000 * RPPFLEN, /* OUTPUT LENGTH */ 02554000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02555000 * RPNOCOMA, /* COMMAS FLAG */ 02556000 * RPNOFLOT /* MAX PRECISION FLAG */ 02557000 * ); 0267 02558000 * 0267 02559000 MVC @AL00001+4(24),@AL00267 0267 02560000 L @15,@PC00001 0267 02561000 L @15,SMF71PTR(,@15) 0267 02562000 LA @14,SMF71SIZ(,@15) 0267 02563000 AH @14,SMF71SIZ(,@15) 0267 02564000 LH @15,SMF71SPC(,@14) 0267 02565000 ALR @15,@14 0267 02566000 LA @15,SMF71TFC(,@15) 0267 02567000 ST @15,@AL00001 0267 02568000 LA @15,RPWRKSTR 0267 02569000 ST @15,@AL00001+8 0267 02570000 L @14,@PC00001+4 0267 02571000 L @15,RPVECTAB(,@14) 0267 02572000 LA @01,@AL00001 0267 02573000 BALR @14,@15 0267 02574000 * /*****************************************************************/ 02575000 * /* */ 02576000 * /* MACDATE Y-2 73018 */ 02577000 * /* */ 02578000 * /*****************************************************************/ 02579000 * 0268 02580000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02581000 * IRBMFLPV(RPTOTFRM)->RPTEXT, /* TEXT */ 02582000 * IRBMFLPV(RPTOTFRM)->RPLENGTH,/* LENGTH */ 02583000 * RPLINE, /* START LINE */ 02584000 * RPCOL53 /* START COLUMN */ 02585000 * ); 0268 02586000 * 0268 02587000 L @15,@CA00141 0268 02588000 L @15,IRBMFLPV-IRBMFLPV+180(,@15) 0268 02589000 LA @14,RPTEXT(,@15) 0268 02590000 ST @14,@AL00001 0268 02591000 ST @15,@AL00001+4 0268 02592000 LA @15,RPLINE 0268 02593000 ST @15,@AL00001+8 0268 02594000 LA @15,@CF00261 0268 02595000 ST @15,@AL00001+12 0268 02596000 L @14,@PC00001+4 0268 02597000 L @15,RPVECTAB+8(,@14) 0268 02598000 LA @01,@AL00001 0268 02599000 BALR @14,@15 0268 02600000 * /*****************************************************************/ 02601000 * /* */ 02602000 * /* MACDATE Y-2 73018 */ 02603000 * /* */ 02604000 * /*****************************************************************/ 02605000 * 0269 02606000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02607000 * RPWRKSTR, /* TEXT */ 02608000 * RPPFLEN, /* LENGTH */ 02609000 * RPLINE, /* START LINE */ 02610000 * RPCOL70 /* START COLUMN */ 02611000 * ); 0269 02612000 * 0269 02613000 LA @15,RPWRKSTR 0269 02614000 ST @15,@AL00001 0269 02615000 LA @15,@CF00058 0269 02616000 ST @15,@AL00001+4 0269 02617000 LA @15,RPLINE 0269 02618000 ST @15,@AL00001+8 0269 02619000 LA @15,@CF00269 0269 02620000 ST @15,@AL00001+12 0269 02621000 L @14,@PC00001+4 0269 02622000 L @15,RPVECTAB+8(,@14) 0269 02623000 LA @01,@AL00001 0269 02624000 BALR @14,@15 0269 02625000 */* TOTAL FRAMES PERCENT */ 02626000 * 0270 02627000 * IF SMF71TFC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 02628000 L @15,@PC00001 0270 02629000 L @15,SMF71PTR(,@15) 0270 02630000 LA @14,SMF71SIZ(,@15) 0270 02631000 AH @14,SMF71SIZ(,@15) 0270 02632000 LH @15,SMF71SPC(,@14) 0270 02633000 ALR @15,@14 0270 02634000 L @15,SMF71TFC(,@15) 0270 02635000 LTR @15,@15 0270 02636000 BZ @RF00270 0270 02637000 * DO; 0271 02638000 * RFY 0272 02639000 * (GPR00F, 0272 02640000 * GPR01F, 0272 02641000 * GPR14F, 0272 02642000 * GPR15F) RSTD; 0272 02643000 * GPR01F=SMF71TFC; /* SET UP MULTIPLY AND */ 02644000 ST @15,@TF00001 0273 02645000 L GPR01F,@TF00001 0273 02646000 * GPR15F=SMF71TFC; /* DIVIDE */ 02647000 L GPR15F,@TF00001 0274 02648000 * GENERATE REFS(RPRATSEC); 0275 02649000 M GPR00F,RPRATSEC 02650000 DR GPR00F,GPR15F 02651000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 02652000 ST GPR01F,RPTEMSAV 0276 02653000 * RFY 0277 02654000 * (GPR00F, 0277 02655000 * GPR01F, 0277 02656000 * GPR14F, 0277 02657000 * GPR15F) UNRSTD; 0277 02658000 * END; 0278 02659000 * ELSE 0279 02660000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 02661000 * 0279 02662000 B @RC00270 0279 02663000 @RF00270 SLR @15,@15 0279 02664000 ST @15,RPTEMSAV 0279 02665000 * /*****************************************************************/ 02666000 * /* */ 02667000 * /* MACDATE Y-2 73018 */ 02668000 * /* */ 02669000 * /*****************************************************************/ 02670000 * 0280 02671000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02672000 * RPTEMSAV, /* INPUT VALUE */ 02673000 * RPRATSCF, /* INPUT SCALE */ 02674000 * RPWRKSTR, /* OUTPUT STRING */ 02675000 * RPRATLEN, /* OUTPUT LENGTH */ 02676000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02677000 * RPNOCOMA, /* COMMAS FLAG */ 02678000 * RPNOFLOT /* MAX PRECISION FLAG */ 02679000 * ); 0280 02680000 * 0280 02681000 @RC00270 MVC @AL00001+4(24),@AL00280 0280 02682000 LA @15,RPTEMSAV 0280 02683000 ST @15,@AL00001 0280 02684000 LA @15,RPWRKSTR 0280 02685000 ST @15,@AL00001+8 0280 02686000 L @14,@PC00001+4 0280 02687000 L @15,RPVECTAB(,@14) 0280 02688000 LA @01,@AL00001 0280 02689000 BALR @14,@15 0280 02690000 * /*****************************************************************/ 02691000 * /* */ 02692000 * /* MACDATE Y-2 73018 */ 02693000 * /* */ 02694000 * /*****************************************************************/ 02695000 * 0281 02696000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02697000 * RPWRKSTR, /* TEXT */ 02698000 * RPRATLEN, /* LENGTH */ 02699000 * RPLINE, /* START LINE */ 02700000 * RPCOL79 /* START COLUMN */ 02701000 * ); 0281 02702000 * 0281 02703000 LA @15,RPWRKSTR 0281 02704000 ST @15,@AL00001 0281 02705000 LA @15,@CF00149 0281 02706000 ST @15,@AL00001+4 0281 02707000 LA @15,RPLINE 0281 02708000 ST @15,@AL00001+8 0281 02709000 LA @15,@CF00273 0281 02710000 ST @15,@AL00001+12 0281 02711000 L @14,@PC00001+4 0281 02712000 L @15,RPVECTAB+8(,@14) 0281 02713000 LA @01,@AL00001 0281 02714000 BALR @14,@15 0281 02715000 */* SWAP OUT TITLE */ 02716000 * 0282 02717000 * /*****************************************************************/ 02718000 * /* */ 02719000 * /* MACDATE Y-2 73018 */ 02720000 * /* */ 02721000 * /*****************************************************************/ 02722000 * 0282 02723000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02724000 * IRBMFLPV(RPSWPOUT)->RPTEXT, /* TEXT */ 02725000 * IRBMFLPV(RPSWPOUT)->RPLENGTH,/* LENGTH */ 02726000 * RPLINE, /* START LINE */ 02727000 * RPCOL95 /* START COLUMN */ 02728000 * ); 0282 02729000 L @15,@CA00141 0282 02730000 L @15,IRBMFLPV-IRBMFLPV+196(,@15) 0282 02731000 LA @14,RPTEXT(,@15) 0282 02732000 ST @14,@AL00001 0282 02733000 ST @15,@AL00001+4 0282 02734000 LA @15,RPLINE 0282 02735000 ST @15,@AL00001+8 0282 02736000 LA @15,@CF00279 0282 02737000 ST @15,@AL00001+12 0282 02738000 L @14,@PC00001+4 0282 02739000 L @15,RPVECTAB+8(,@14) 0282 02740000 LA @01,@AL00001 0282 02741000 BALR @14,@15 0282 02742000 * RPLINE=RPLINE+RPSPACE; /* GO TO NEXT DATA LINE */ 02743000 LA @15,2 0283 02744000 AL @15,RPLINE 0283 02745000 ST @15,RPLINE 0283 02746000 * CALL RPPAGEND; /* CHECK FOR END OF PAGE */ 02747000 BAL @14,RPPAGEND 0284 02748000 * IF RPLINE+RPSPACE>RGMAXLN THEN /* ROOM FOR NEXT 3 LINES? */ 02749000 LA @15,2 0285 02750000 AL @15,RPLINE 0285 02751000 CH @15,@CH00042 0285 02752000 BNH @RF00285 0285 02753000 * DO; 0286 02754000 * RPLINE=RPLINE+RPSPACE; /* MOVE IN TOO LARGE VALUE */ 02755000 ST @15,RPLINE 0287 02756000 * CALL RPPAGEND; /* END OF PAGE ROUTINE */ 02757000 BAL @14,RPPAGEND 0288 02758000 * END; 0289 02759000 * 0289 02760000 */* UNAVAILABLE SLOTS TITLE AND DATA INSERTS */ 02761000 * 0290 02762000 * /*****************************************************************/ 02763000 * /* */ 02764000 * /* MACDATE Y-2 73018 */ 02765000 * /* */ 02766000 * /*****************************************************************/ 02767000 * 0290 02768000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02769000 * SMF71TSC-SMF71NSC-SMF71VSC-SMF71DSC,/* INPUT VALUE */ 02770000 * RPDATSCF, /* INPUT SCALE */ 02771000 * RPWRKSTR, /* OUTPUT STRING */ 02772000 * RPPSLEN, /* OUTPUT LENGTH */ 02773000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02774000 * RPCOMMAS, /* COMMAS FLAG */ 02775000 * RPNOFLOT /* MAX PRECISION FLAG */ 02776000 * ); 0290 02777000 * 0290 02778000 @RF00285 MVC @AL00001+4(24),@AL00290 0290 02779000 L @15,@PC00001 0290 02780000 L @15,SMF71PTR(,@15) 0290 02781000 LA @14,SMF71SIZ(,@15) 0290 02782000 AH @14,SMF71SIZ(,@15) 0290 02783000 LH @15,SMF71SPC(,@14) 0290 02784000 ALR @15,@14 0290 02785000 L @14,SMF71TSC(,@15) 0290 02786000 SL @14,SMF71NSC(,@15) 0290 02787000 SL @14,SMF71VSC(,@15) 0290 02788000 SL @14,SMF71DSC(,@15) 0290 02789000 ST @14,@AFTEMPS+4 0290 02790000 LA @15,@AFTEMPS+4 0290 02791000 ST @15,@AL00001 0290 02792000 LA @15,RPWRKSTR 0290 02793000 ST @15,@AL00001+8 0290 02794000 L @14,@PC00001+4 0290 02795000 L @15,RPVECTAB(,@14) 0290 02796000 LA @01,@AL00001 0290 02797000 BALR @14,@15 0290 02798000 * /*****************************************************************/ 02799000 * /* */ 02800000 * /* MACDATE Y-2 73018 */ 02801000 * /* */ 02802000 * /*****************************************************************/ 02803000 * 0291 02804000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02805000 * IRBMFLPV(RPUNAVSL)->RPTEXT, /* TEXT */ 02806000 * IRBMFLPV(RPUNAVSL)->RPLENGTH,/* LENGTH */ 02807000 * RPLINE, /* START LINE */ 02808000 * RPCOL1 /* START COLUMN */ 02809000 * ); 0291 02810000 * 0291 02811000 L @15,@CA00141 0291 02812000 L @15,IRBMFLPV-IRBMFLPV+164(,@15) 0291 02813000 LA @14,RPTEXT(,@15) 0291 02814000 ST @14,@AL00001 0291 02815000 ST @15,@AL00001+4 0291 02816000 LA @15,RPLINE 0291 02817000 ST @15,@AL00001+8 0291 02818000 LA @15,@CF00052 0291 02819000 ST @15,@AL00001+12 0291 02820000 L @14,@PC00001+4 0291 02821000 L @15,RPVECTAB+8(,@14) 0291 02822000 LA @01,@AL00001 0291 02823000 BALR @14,@15 0291 02824000 * /*****************************************************************/ 02825000 * /* */ 02826000 * /* MACDATE Y-2 73018 */ 02827000 * /* */ 02828000 * /*****************************************************************/ 02829000 * 0292 02830000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02831000 * RPWRKSTR, /* TEXT */ 02832000 * RPPSLEN, /* LENGTH */ 02833000 * RPLINE, /* START LINE */ 02834000 * RPCOL24 /* START COLUMN */ 02835000 * ); 0292 02836000 * 0292 02837000 LA @15,RPWRKSTR 0292 02838000 ST @15,@AL00001 0292 02839000 LA @15,@CF00145 0292 02840000 ST @15,@AL00001+4 0292 02841000 LA @15,RPLINE 0292 02842000 ST @15,@AL00001+8 0292 02843000 LA @15,@CF00199 0292 02844000 ST @15,@AL00001+12 0292 02845000 L @14,@PC00001+4 0292 02846000 L @15,RPVECTAB+8(,@14) 0292 02847000 LA @01,@AL00001 0292 02848000 BALR @14,@15 0292 02849000 */* UNAVAILABLE SLOTS PERCENT */ 02850000 * 0293 02851000 * IF SMF71TSC-SMF71NSC-SMF71VSC-SMF71DSC^=RPNULLVL THEN/* IS DENOM 02852000 * 0 */ 02853000 L @15,@PC00001 0293 02854000 L @15,SMF71PTR(,@15) 0293 02855000 LA @14,SMF71SIZ(,@15) 0293 02856000 AH @14,SMF71SIZ(,@15) 0293 02857000 LH @15,SMF71SPC(,@14) 0293 02858000 ALR @15,@14 0293 02859000 L @14,SMF71TSC(,@15) 0293 02860000 LR @07,@14 0293 02861000 SL @07,SMF71NSC(,@15) 0293 02862000 SL @07,SMF71VSC(,@15) 0293 02863000 SL @07,SMF71DSC(,@15) 0293 02864000 LTR @07,@07 0293 02865000 BZ @RF00293 0293 02866000 * DO; 0294 02867000 * RFY 0295 02868000 * (GPR00F, 0295 02869000 * GPR01F, 0295 02870000 * GPR14F, 0295 02871000 * GPR15F) RSTD; 0295 02872000 * GPR01F=SMF71TSC-SMF71NSC-SMF71VSC-SMF71DSC;/* SET UP FOR */ 02873000 ST @14,@TF00001 0296 02874000 LR GPR01F,@07 0296 02875000 * GPR15F=SMF71TSC; /* MULTIPLY AND DIVIDE */ 02876000 L GPR15F,@TF00001 0297 02877000 * GENERATE REFS(RPRATSEC); 0298 02878000 M GPR00F,RPRATSEC 02879000 DR GPR00F,GPR15F 02880000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 02881000 ST GPR01F,RPTEMSAV 0299 02882000 * RFY 0300 02883000 * (GPR00F, 0300 02884000 * GPR01F, 0300 02885000 * GPR14F, 0300 02886000 * GPR15F) UNRSTD; 0300 02887000 * END; 0301 02888000 * ELSE 0302 02889000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 02890000 * 0302 02891000 B @RC00293 0302 02892000 @RF00293 SLR @15,@15 0302 02893000 ST @15,RPTEMSAV 0302 02894000 * /*****************************************************************/ 02895000 * /* */ 02896000 * /* MACDATE Y-2 73018 */ 02897000 * /* */ 02898000 * /*****************************************************************/ 02899000 * 0303 02900000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 02901000 * RPTEMSAV, /* INPUT VALUE */ 02902000 * RPRATSCF, /* INPUT SCALE */ 02903000 * RPWRKSTR, /* OUTPUT STRING */ 02904000 * RPRATLEN, /* OUTPUT LENGTH */ 02905000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 02906000 * RPNOCOMA, /* COMMAS FLAG */ 02907000 * RPNOFLOT /* MAX PRECISION FLAG */ 02908000 * ); 0303 02909000 * 0303 02910000 @RC00293 MVC @AL00001+4(24),@AL00303 0303 02911000 LA @15,RPTEMSAV 0303 02912000 ST @15,@AL00001 0303 02913000 LA @15,RPWRKSTR 0303 02914000 ST @15,@AL00001+8 0303 02915000 L @14,@PC00001+4 0303 02916000 L @15,RPVECTAB(,@14) 0303 02917000 LA @01,@AL00001 0303 02918000 BALR @14,@15 0303 02919000 * /*****************************************************************/ 02920000 * /* */ 02921000 * /* MACDATE Y-2 73018 */ 02922000 * /* */ 02923000 * /*****************************************************************/ 02924000 * 0304 02925000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02926000 * RPWRKSTR, /* TEXT */ 02927000 * RPRATLEN, /* LENGTH */ 02928000 * RPLINE, /* START LINE */ 02929000 * RPCOL38 /* START COLUMN */ 02930000 * ); 0304 02931000 * 0304 02932000 LA @15,RPWRKSTR 0304 02933000 ST @15,@AL00001 0304 02934000 LA @15,@CF00149 0304 02935000 ST @15,@AL00001+4 0304 02936000 LA @15,RPLINE 0304 02937000 ST @15,@AL00001+8 0304 02938000 LA @15,@CF00046 0304 02939000 ST @15,@AL00001+12 0304 02940000 L @14,@PC00001+4 0304 02941000 L @15,RPVECTAB+8(,@14) 0304 02942000 LA @01,@AL00001 0304 02943000 BALR @14,@15 0304 02944000 */* INSERT AVERAGE (PAGES PER SWAP IN) TITLE */ 02945000 * 0305 02946000 * /*****************************************************************/ 02947000 * /* */ 02948000 * /* MACDATE Y-2 73018 */ 02949000 * /* */ 02950000 * /*****************************************************************/ 02951000 * 0305 02952000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02953000 * IRBMFLPV(RPAVERGE)->RPTEXT, /* TEXT */ 02954000 * IRBMFLPV(RPAVERGE)->RPLENGTH,/* LENGTH */ 02955000 * RPLINE, /* START LINE */ 02956000 * RPCOL95 /* START COLUMN */ 02957000 * ); 0305 02958000 L @15,@CA00141 0305 02959000 L @15,IRBMFLPV-IRBMFLPV+200(,@15) 0305 02960000 LA @14,RPTEXT(,@15) 0305 02961000 ST @14,@AL00001 0305 02962000 ST @15,@AL00001+4 0305 02963000 LA @15,RPLINE 0305 02964000 ST @15,@AL00001+8 0305 02965000 LA @15,@CF00279 0305 02966000 ST @15,@AL00001+12 0305 02967000 L @14,@PC00001+4 0305 02968000 L @15,RPVECTAB+8(,@14) 0305 02969000 LA @01,@AL00001 0305 02970000 BALR @14,@15 0305 02971000 * RPLINE=RPLINE+RPLININC; /* INCREMENT LINE NUMBER */ 02972000 LA @15,1 0306 02973000 AL @15,RPLINE 0306 02974000 ST @15,RPLINE 0306 02975000 */* TOTAL SLOTS DASHES */ 02976000 * 0307 02977000 * /*****************************************************************/ 02978000 * /* */ 02979000 * /* MACDATE Y-2 73018 */ 02980000 * /* */ 02981000 * /*****************************************************************/ 02982000 * 0307 02983000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 02984000 * IRBMFLPV(RPDASH2)->RPTEXT, /* TEXT */ 02985000 * IRBMFLPV(RPDASH2)->RPLENGTH,/* LENGTH */ 02986000 * RPLINE, /* START LINE */ 02987000 * RPCOL24 /* START COLUMN */ 02988000 * ); 0307 02989000 * 0307 02990000 L @15,@CA00141 0307 02991000 L @15,IRBMFLPV-IRBMFLPV+212(,@15) 0307 02992000 LA @14,RPTEXT(,@15) 0307 02993000 ST @14,@AL00001 0307 02994000 ST @15,@AL00001+4 0307 02995000 LA @15,RPLINE 0307 02996000 ST @15,@AL00001+8 0307 02997000 LA @15,@CF00199 0307 02998000 ST @15,@AL00001+12 0307 02999000 L @14,@PC00001+4 0307 03000000 L @15,RPVECTAB+8(,@14) 0307 03001000 LA @01,@AL00001 0307 03002000 BALR @14,@15 0307 03003000 * /*****************************************************************/ 03004000 * /* */ 03005000 * /* MACDATE Y-2 73018 */ 03006000 * /* */ 03007000 * /*****************************************************************/ 03008000 * 0308 03009000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03010000 * IRBMFLPV(RPDASH6)->RPTEXT, /* TEXT */ 03011000 * IRBMFLPV(RPDASH6)->RPLENGTH,/* LENGTH */ 03012000 * RPLINE, /* START LINE */ 03013000 * RPCOL37 /* START COLUMN */ 03014000 * ); 0308 03015000 * 0308 03016000 L @15,@CA00141 0308 03017000 L @15,IRBMFLPV-IRBMFLPV+220(,@15) 0308 03018000 LA @14,RPTEXT(,@15) 0308 03019000 ST @14,@AL00001 0308 03020000 ST @15,@AL00001+4 0308 03021000 LA @15,RPLINE 0308 03022000 ST @15,@AL00001+8 0308 03023000 LA @15,@CF00147 0308 03024000 ST @15,@AL00001+12 0308 03025000 L @14,@PC00001+4 0308 03026000 L @15,RPVECTAB+8(,@14) 0308 03027000 LA @01,@AL00001 0308 03028000 BALR @14,@15 0308 03029000 */* INSERT PAGES PER SWAP IN DATA */ 03030000 * 0309 03031000 * IF SMF71SSQ^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 03032000 L @15,@PC00001 0309 03033000 L @15,SMF71PTR(,@15) 0309 03034000 LA @14,SMF71SIZ(,@15) 0309 03035000 AH @14,SMF71SIZ(,@15) 0309 03036000 LH @15,SMF71SPC(,@14) 0309 03037000 ALR @15,@14 0309 03038000 L @14,SMF71SSQ(,@15) 0309 03039000 LTR @14,@14 0309 03040000 BZ @RF00309 0309 03041000 * DO; 0310 03042000 * RFY 0311 03043000 * (GPR00F, 0311 03044000 * GPR01F, 0311 03045000 * GPR14F, 0311 03046000 * GPR15F) RSTD; 0311 03047000 * GPR00F=RPNULLVL; /* CLEAR FOR DIVISION */ 03048000 ST @14,@TF00001 0312 03049000 ST @15,@TF00002 0312 03050000 SLR GPR00F,GPR00F 0312 03051000 * GPR15F=SMF71SSQ; /* SET UP FOR DIVIDE AND */ 03052000 L GPR15F,@TF00001 0313 03053000 * GPR01F=SMF71SIN+GPR15F/2; /* ALLOW FOR ROUNDING QUOTIENT */ 03054000 LR @02,GPR15F 0314 03055000 SRDA @02,32 0314 03056000 D @02,@CF00054 0314 03057000 L @02,@TF00002 0314 03058000 AL @03,SMF71SIN(,@02) 0314 03059000 LR GPR01F,@03 0314 03060000 * GEN; 0315 03061000 DR GPR00F,GPR15F 03062000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 03063000 ST GPR01F,RPTEMSAV 0316 03064000 * RFY 0317 03065000 * (GPR00F, 0317 03066000 * GPR01F, 0317 03067000 * GPR14F, 0317 03068000 * GPR15F) UNRSTD; 0317 03069000 * END; 0318 03070000 * ELSE 0319 03071000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 03072000 * 0319 03073000 B @RC00309 0319 03074000 @RF00309 SLR @15,@15 0319 03075000 ST @15,RPTEMSAV 0319 03076000 * /*****************************************************************/ 03077000 * /* */ 03078000 * /* MACDATE Y-2 73018 */ 03079000 * /* */ 03080000 * /*****************************************************************/ 03081000 * 0320 03082000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 03083000 * RPTEMSAV, /* INPUT VALUE */ 03084000 * RPDATSCF, /* INPUT SCALE */ 03085000 * RPWRKSTR, /* OUTPUT STRING */ 03086000 * RPPFLEN, /* OUTPUT LENGTH */ 03087000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 03088000 * RPNOCOMA, /* COMMAS FLAG */ 03089000 * RPNOFLOT /* MAX PRECISION FLAG */ 03090000 * ); 0320 03091000 * 0320 03092000 @RC00309 MVC @AL00001+4(24),@AL00320 0320 03093000 LA @15,RPTEMSAV 0320 03094000 ST @15,@AL00001 0320 03095000 LA @15,RPWRKSTR 0320 03096000 ST @15,@AL00001+8 0320 03097000 L @14,@PC00001+4 0320 03098000 L @15,RPVECTAB(,@14) 0320 03099000 LA @01,@AL00001 0320 03100000 BALR @14,@15 0320 03101000 * /*****************************************************************/ 03102000 * /* */ 03103000 * /* MACDATE Y-2 73018 */ 03104000 * /* */ 03105000 * /*****************************************************************/ 03106000 * 0321 03107000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03108000 * IRBMFLPV(RPPAGEPR)->RPTEXT, /* TEXT */ 03109000 * IRBMFLPV(RPPAGEPR)->RPLENGTH,/* LENGTH */ 03110000 * RPLINE, /* START LINE */ 03111000 * RPCOL95 /* START COLUMN */ 03112000 * ); 0321 03113000 * 0321 03114000 L @15,@CA00141 0321 03115000 L @15,IRBMFLPV-IRBMFLPV+204(,@15) 0321 03116000 LA @14,RPTEXT(,@15) 0321 03117000 ST @14,@AL00001 0321 03118000 ST @15,@AL00001+4 0321 03119000 LA @15,RPLINE 0321 03120000 ST @15,@AL00001+8 0321 03121000 LA @15,@CF00279 0321 03122000 ST @15,@AL00001+12 0321 03123000 L @14,@PC00001+4 0321 03124000 L @15,RPVECTAB+8(,@14) 0321 03125000 LA @01,@AL00001 0321 03126000 BALR @14,@15 0321 03127000 * /*****************************************************************/ 03128000 * /* */ 03129000 * /* MACDATE Y-2 73018 */ 03130000 * /* */ 03131000 * /*****************************************************************/ 03132000 * 0322 03133000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03134000 * RPWRKSTR, /* TEXT */ 03135000 * RPPFLEN, /* LENGTH */ 03136000 * RPLINE, /* START LINE */ 03137000 * RPCOL106 /* START COLUMN */ 03138000 * ); 0322 03139000 * 0322 03140000 LA @15,RPWRKSTR 0322 03141000 ST @15,@AL00001 0322 03142000 LA @15,@CF00058 0322 03143000 ST @15,@AL00001+4 0322 03144000 LA @15,RPLINE 0322 03145000 ST @15,@AL00001+8 0322 03146000 LA @15,@CF00285 0322 03147000 ST @15,@AL00001+12 0322 03148000 L @14,@PC00001+4 0322 03149000 L @15,RPVECTAB+8(,@14) 0322 03150000 LA @01,@AL00001 0322 03151000 BALR @14,@15 0322 03152000 */* TOTAL SLOTS TITLE AND DATA INSERTS */ 03153000 * 0323 03154000 * RPLINE=RPLINE+RPLININC; /* INCREMENT LINE NUMBER */ 03155000 * 0323 03156000 LA @15,1 0323 03157000 AL @15,RPLINE 0323 03158000 ST @15,RPLINE 0323 03159000 * /*****************************************************************/ 03160000 * /* */ 03161000 * /* MACDATE Y-2 73018 */ 03162000 * /* */ 03163000 * /*****************************************************************/ 03164000 * 0324 03165000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 03166000 * SMF71TSC, /* INPUT VALUE */ 03167000 * RPDATSCF, /* INPUT SCALE */ 03168000 * RPWRKSTR, /* OUTPUT STRING */ 03169000 * RPPSLEN, /* OUTPUT LENGTH */ 03170000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 03171000 * RPCOMMAS, /* COMMAS FLAG */ 03172000 * RPNOFLOT /* MAX PRECISION FLAG */ 03173000 * ); 0324 03174000 * 0324 03175000 MVC @AL00001+4(24),@AL00324 0324 03176000 L @15,@PC00001 0324 03177000 L @15,SMF71PTR(,@15) 0324 03178000 LA @14,SMF71SIZ(,@15) 0324 03179000 AH @14,SMF71SIZ(,@15) 0324 03180000 LH @15,SMF71SPC(,@14) 0324 03181000 ALR @15,@14 0324 03182000 LA @15,SMF71TSC(,@15) 0324 03183000 ST @15,@AL00001 0324 03184000 LA @15,RPWRKSTR 0324 03185000 ST @15,@AL00001+8 0324 03186000 L @14,@PC00001+4 0324 03187000 L @15,RPVECTAB(,@14) 0324 03188000 LA @01,@AL00001 0324 03189000 BALR @14,@15 0324 03190000 * /*****************************************************************/ 03191000 * /* */ 03192000 * /* MACDATE Y-2 73018 */ 03193000 * /* */ 03194000 * /*****************************************************************/ 03195000 * 0325 03196000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03197000 * IRBMFLPV(RPTOTSLT)->RPTEXT, /* TEXT */ 03198000 * IRBMFLPV(RPTOTSLT)->RPLENGTH,/* LENGTH */ 03199000 * RPLINE, /* START LINE */ 03200000 * RPCOL1 /* START COLUMN */ 03201000 * ); 0325 03202000 * 0325 03203000 L @15,@CA00141 0325 03204000 L @15,IRBMFLPV-IRBMFLPV+168(,@15) 0325 03205000 LA @14,RPTEXT(,@15) 0325 03206000 ST @14,@AL00001 0325 03207000 ST @15,@AL00001+4 0325 03208000 LA @15,RPLINE 0325 03209000 ST @15,@AL00001+8 0325 03210000 LA @15,@CF00052 0325 03211000 ST @15,@AL00001+12 0325 03212000 L @14,@PC00001+4 0325 03213000 L @15,RPVECTAB+8(,@14) 0325 03214000 LA @01,@AL00001 0325 03215000 BALR @14,@15 0325 03216000 * /*****************************************************************/ 03217000 * /* */ 03218000 * /* MACDATE Y-2 73018 */ 03219000 * /* */ 03220000 * /*****************************************************************/ 03221000 * 0326 03222000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03223000 * RPWRKSTR, /* TEXT */ 03224000 * RPPSLEN, /* LENGTH */ 03225000 * RPLINE, /* START LINE */ 03226000 * RPCOL24 /* START COLUMN */ 03227000 * ); 0326 03228000 * 0326 03229000 LA @15,RPWRKSTR 0326 03230000 ST @15,@AL00001 0326 03231000 LA @15,@CF00145 0326 03232000 ST @15,@AL00001+4 0326 03233000 LA @15,RPLINE 0326 03234000 ST @15,@AL00001+8 0326 03235000 LA @15,@CF00199 0326 03236000 ST @15,@AL00001+12 0326 03237000 L @14,@PC00001+4 0326 03238000 L @15,RPVECTAB+8(,@14) 0326 03239000 LA @01,@AL00001 0326 03240000 BALR @14,@15 0326 03241000 */* CALCULATE TOTAL SLOTS PERCENT */ 03242000 * 0327 03243000 * IF SMF71TSC^=RPNULLVL THEN /* IS DENOMINATOR ZERO */ 03244000 L @15,@PC00001 0327 03245000 L @15,SMF71PTR(,@15) 0327 03246000 LA @14,SMF71SIZ(,@15) 0327 03247000 AH @14,SMF71SIZ(,@15) 0327 03248000 LH @15,SMF71SPC(,@14) 0327 03249000 ALR @15,@14 0327 03250000 L @15,SMF71TSC(,@15) 0327 03251000 LTR @15,@15 0327 03252000 BZ @RF00327 0327 03253000 * DO; 0328 03254000 * RFY 0329 03255000 * (GPR00F, 0329 03256000 * GPR01F, 0329 03257000 * GPR14F, 0329 03258000 * GPR15F) RSTD; 0329 03259000 * GPR01F=SMF71TSC; /* SET UP MULTIPLY AND */ 03260000 ST @15,@TF00001 0330 03261000 L GPR01F,@TF00001 0330 03262000 * GPR15F=SMF71TSC; /* DIVIDE */ 03263000 L GPR15F,@TF00001 0331 03264000 * GENERATE REFS(RPRATSEC); 0332 03265000 M GPR00F,RPRATSEC 03266000 DR GPR00F,GPR15F 03267000 * RPTEMSAV=GPR01F; /* SAVE RESULTS */ 03268000 ST GPR01F,RPTEMSAV 0333 03269000 * RFY 0334 03270000 * (GPR00F, 0334 03271000 * GPR01F, 0334 03272000 * GPR14F, 0334 03273000 * GPR15F) UNRSTD; 0334 03274000 * END; 0335 03275000 * ELSE 0336 03276000 * RPTEMSAV=RPNULLVL; /* SET VALUE TO ZERO */ 03277000 * 0336 03278000 B @RC00327 0336 03279000 @RF00327 SLR @15,@15 0336 03280000 ST @15,RPTEMSAV 0336 03281000 * /*****************************************************************/ 03282000 * /* */ 03283000 * /* MACDATE Y-2 73018 */ 03284000 * /* */ 03285000 * /*****************************************************************/ 03286000 * 0337 03287000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 03288000 * RPTEMSAV, /* INPUT VALUE */ 03289000 * RPRATSCF, /* INPUT SCALE */ 03290000 * RPWRKSTR, /* OUTPUT STRING */ 03291000 * RPRATLEN, /* OUTPUT LENGTH */ 03292000 * RPCVPRDP, /* PLACES RIGHT OF DEC PT */ 03293000 * RPNOCOMA, /* COMMAS FLAG */ 03294000 * RPNOFLOT /* MAX PRECISION FLAG */ 03295000 * ); 0337 03296000 * 0337 03297000 @RC00327 MVC @AL00001+4(24),@AL00337 0337 03298000 LA @15,RPTEMSAV 0337 03299000 ST @15,@AL00001 0337 03300000 LA @15,RPWRKSTR 0337 03301000 ST @15,@AL00001+8 0337 03302000 L @14,@PC00001+4 0337 03303000 L @15,RPVECTAB(,@14) 0337 03304000 LA @01,@AL00001 0337 03305000 BALR @14,@15 0337 03306000 * /*****************************************************************/ 03307000 * /* */ 03308000 * /* MACDATE Y-2 73018 */ 03309000 * /* */ 03310000 * /*****************************************************************/ 03311000 * 0338 03312000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03313000 * RPWRKSTR, /* TEXT */ 03314000 * RPRATLEN, /* LENGTH */ 03315000 * RPLINE, /* START LINE */ 03316000 * RPCOL38 /* START COLUMN */ 03317000 * ); 0338 03318000 * 0338 03319000 LA @15,RPWRKSTR 0338 03320000 ST @15,@AL00001 0338 03321000 LA @15,@CF00149 0338 03322000 ST @15,@AL00001+4 0338 03323000 LA @15,RPLINE 0338 03324000 ST @15,@AL00001+8 0338 03325000 LA @15,@CF00046 0338 03326000 ST @15,@AL00001+12 0338 03327000 L @14,@PC00001+4 0338 03328000 L @15,RPVECTAB+8(,@14) 0338 03329000 LA @01,@AL00001 0338 03330000 BALR @14,@15 0338 03331000 */* SWAP IN TITLE */ 03332000 * 0339 03333000 * /*****************************************************************/ 03334000 * /* */ 03335000 * /* MACDATE Y-2 73018 */ 03336000 * /* */ 03337000 * /*****************************************************************/ 03338000 * 0339 03339000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03340000 * IRBMFLPV(RPSWPIN)->RPTEXT, /* TEXT */ 03341000 * IRBMFLPV(RPSWPIN)->RPLENGTH,/* LENGTH */ 03342000 * RPLINE, /* START LINE */ 03343000 * RPCOL95 /* START COLUMN */ 03344000 * ); 0339 03345000 L @15,@CA00141 0339 03346000 L @15,IRBMFLPV-IRBMFLPV+208(,@15) 0339 03347000 LA @14,RPTEXT(,@15) 0339 03348000 ST @14,@AL00001 0339 03349000 ST @15,@AL00001+4 0339 03350000 LA @15,RPLINE 0339 03351000 ST @15,@AL00001+8 0339 03352000 LA @15,@CF00279 0339 03353000 ST @15,@AL00001+12 0339 03354000 L @14,@PC00001+4 0339 03355000 L @15,RPVECTAB+8(,@14) 0339 03356000 LA @01,@AL00001 0339 03357000 BALR @14,@15 0339 03358000 * CALL MFWRTPAG; /* WRITE OUT REPORT */ 03359000 L @14,@PC00001+4 0340 03360000 L @15,RPVECTAB+12(,@14) 0340 03361000 BALR @14,@15 0340 03362000 * RETURN; /* RETURN TO CALLER */ 03363000 @EL00001 L @13,4(,@13) 0341 03364000 @EF00001 L @00,@SIZDATD 0341 03365000 LR @01,@08 0341 03366000 FREEMAIN R,LV=(0),A=(1) 03367000 @ER00001 LM @14,@12,12(@13) 0341 03368000 BR @14 0341 03369000 * 0342 03370000 */* PROCEDURE NAME = RPPRNTDT */ 03371000 */* */ 03372000 */* DESCRIPTIVE NAME = PRINT PAGING DATA */ 03373000 */* */ 03374000 */* FUNCTION = THIS ROUTINE CONVERTS AND INSERTS PAGING DATA */ 03375000 */* INTO A PAGE SET UP BY A HEADER INSERT ROUTINE. */ 03376000 */* (MFISRHDR) */ 03377000 */* */ 03378000 * 0342 03379000 *RPPRNTDT: 0342 03380000 * PROCEDURE(PRNUMLIN); 0342 03381000 RPPRNTDT STM @14,@12,@SA00004 0342 03382000 MVC @PC00004(4),0(@01) 0342 03383000 * DCL 0343 03384000 * PRNUMLIN FIXED(8); /* LINE ON WHICH TO PUT DATA */ 03385000 * DO P=1 TO RPDATCOL; 0344 03386000 LA @15,1 0344 03387000 ST @15,P 0344 03388000 @DL00344 DS 0H 0345 03389000 * IF RPNODATA(PRNUMLIN,P)='0'B THEN/* DATA EXIST FOR THIS 0345 03390000 * LINE/COL */ 03391000 L @14,@PC00004 0345 03392000 SLR @07,@07 0345 03393000 IC @07,PRNUMLIN(,@14) 0345 03394000 MH @07,@CH00150 0345 03395000 ALR @07,@15 0345 03396000 LR @06,@07 0345 03397000 MH @06,@CH00189 0345 03398000 LA @01,RPNODATA-220(@06) 0345 03399000 TM 0(@01),B'10000000' 0345 03400000 BNZ @RF00345 0345 03401000 * DO; 0346 03402000 * 0346 03403000 * /***********************************************************/ 03404000 * /* */ 03405000 * /* MACDATE Y-2 73018 */ 03406000 * /* */ 03407000 * /***********************************************************/ 03408000 * 0347 03409000 * CALL IRBMFCNV( /* CONVERSION ROUTINE */ 03410000 * RPVALUE(PRNUMLIN,P), /* INPUT VALUE */ 03411000 * RPSCALE(PRNUMLIN,P), /* INPUT SCALE */ 03412000 * RPSTRING, /* OUTPUT STRING */ 03413000 * RPDTALEN(PRNUMLIN,P), /* OUTPUT LENGTH */ 03414000 * RPDECPT(PRNUMLIN,P), /* PLACES RIGHT OF DEC PT */ 03415000 * RPCOMMA(PRNUMLIN,P), /* COMMAS FLAG */ 03416000 * RPNOFLOT /* MAX PRECISION FLAG */ 03417000 * ); 0347 03418000 * 0347 03419000 SLA @07,2 0347 03420000 LA @07,RPVALUE-44(@07) 0347 03421000 ST @07,@AL00001 0347 03422000 LA @07,RPSCALE-220(@06) 0347 03423000 ST @07,@AL00001+4 0347 03424000 LA @07,RPSTRING 0347 03425000 ST @07,@AL00001+8 0347 03426000 LA @07,RPDTALEN-220(@06) 0347 03427000 ST @07,@AL00001+12 0347 03428000 LA @07,RPDECPT-220(@06) 0347 03429000 ST @07,@AL00001+16 0347 03430000 LA @15,RPCOMMA-220(@06) 0347 03431000 ST @15,@AL00001+20 0347 03432000 LA @15,@CB00207 0347 03433000 ST @15,@AL00001+24 0347 03434000 L @14,@PC00001+4 0347 03435000 L @15,RPVECTAB(,@14) 0347 03436000 LA @01,@AL00001 0347 03437000 BALR @14,@15 0347 03438000 * /***********************************************************/ 03439000 * /* */ 03440000 * /* MACDATE Y-2 73018 */ 03441000 * /* */ 03442000 * /***********************************************************/ 03443000 * 0348 03444000 * CALL MFISRTXT( /* INSERT TEXT ROUTINE */ 03445000 * RPSTRING, /* TEXT */ 03446000 * RPDTALEN(PRNUMLIN,P), /* LENGTH */ 03447000 * RPLINE, /* START LINE */ 03448000 * RPCOLNUM(PRNUMLIN,P) /* START COLUMN */ 03449000 * ); 0348 03450000 LA @15,RPSTRING 0348 03451000 ST @15,@AL00001 0348 03452000 L @15,@PC00004 0348 03453000 SLR @14,@14 0348 03454000 IC @14,PRNUMLIN(,@15) 0348 03455000 MH @14,@CH00150 0348 03456000 AL @14,P 0348 03457000 MH @14,@CH00189 0348 03458000 LA @15,RPDTALEN-220(@14) 0348 03459000 ST @15,@AL00001+4 0348 03460000 LA @15,RPLINE 0348 03461000 ST @15,@AL00001+8 0348 03462000 LA @15,RPCOLNUM-220(@14) 0348 03463000 ST @15,@AL00001+12 0348 03464000 L @14,@PC00001+4 0348 03465000 L @15,RPVECTAB+8(,@14) 0348 03466000 LA @01,@AL00001 0348 03467000 BALR @14,@15 0348 03468000 * END; 0349 03469000 * END; 0350 03470000 @RF00345 LA @15,1 0350 03471000 AL @15,P 0350 03472000 ST @15,P 0350 03473000 CH @15,@CH00150 0350 03474000 BNH @DL00344 0350 03475000 * RETURN; /* RETURN FROM WHERE CALLED */ 03476000 @EL00004 DS 0H 0351 03477000 @EF00004 DS 0H 0351 03478000 @ER00004 LM @14,@12,@SA00004 0351 03479000 BR @14 0351 03480000 * END RPPRNTDT; 0352 03481000 * 0353 03482000 */* PROCEDURE NAME = RPPAGEND */ 03483000 */* */ 03484000 */* DESCRIPTIVE NAME = CHECK END OF PAGE */ 03485000 */* */ 03486000 */* FUNCTION = THIS ROUTINE CHECKS TO SEE IF THE END OF THE PAGE HAS*/ 03487000 */* BEEN REACHED. IF SO, IT HAS THE PAGE PRINTED OUT AND */ 03488000 */* SETS UP THE NEXT PAGE. */ 03489000 * 0353 03490000 *RPPAGEND: 0353 03491000 * PROCEDURE; 0353 03492000 RPPAGEND STM @14,@12,@SA00005 0353 03493000 * IF RPLINE>RGMAXLN THEN /* REACHED END OF PAGE? */ 03494000 L @15,RPLINE 0354 03495000 CH @15,@CH00042 0354 03496000 BNH @RF00354 0354 03497000 * DO; 0355 03498000 * CALL MFWRTPAG; /* WRITE OUT THIS PAGE */ 03499000 L @14,@PC00001+4 0356 03500000 L @15,RPVECTAB+12(,@14) 0356 03501000 BALR @14,@15 0356 03502000 * RPPAGE=RPPAGE+RPPAGINC; /* INCREMENT PAGE NUMBER */ 03503000 LA @15,1 0357 03504000 AL @15,RPPAGE 0357 03505000 ST @15,RPPAGE 0357 03506000 * CALL MFISRHDR(RPDATPTR, /* PTR TO SMF RECORD */ 03507000 * IRBMFLPV(1)->RPTEXT, /* TEXT */ 03508000 * IRBMFLPV(1)->RPLENGTH, /* LENGTH */ 03509000 * RPPAGE); /* PAGE NUMBER */ 03510000 L @15,@PC00001 0358 03511000 ST @15,@AL00001 0358 03512000 L @15,@CA00141 0358 03513000 L @15,IRBMFLPV-IRBMFLPV(,@15) 0358 03514000 LA @14,RPTEXT(,@15) 0358 03515000 ST @14,@AL00001+4 0358 03516000 ST @15,@AL00001+8 0358 03517000 LA @15,RPPAGE 0358 03518000 ST @15,@AL00001+12 0358 03519000 L @14,@PC00001+4 0358 03520000 L @15,RPVECTAB+4(,@14) 0358 03521000 LA @01,@AL00001 0358 03522000 BALR @14,@15 0358 03523000 * CALL MFHDR2; /* INSERT HEADINGS */ 03524000 BAL @14,MFHDR2 0359 03525000 * END; 0360 03526000 * RETURN; /* RETURN FROM WHERE CALLED */ 03527000 @EL00005 DS 0H 0361 03528000 @EF00005 DS 0H 0361 03529000 @ER00005 LM @14,@12,@SA00005 0361 03530000 BR @14 0361 03531000 * END RPPAGEND; 0362 03532000 B @EL00005 0362 03533000 * END IRBMFRPR 0363 03534000 * 0363 03535000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 03536000 */*%INCLUDE SYSLIB (IRBRGCON) */ 03537000 */*%INCLUDE SYSLIB (IFASMFR ) */ 03538000 */*%INCLUDE SYSLIB (IFASMFR1) */ 03539000 */*%INCLUDE SYSLIB (IFASMFR2) */ 03540000 */*%INCLUDE SYSLIB (IFASMFR3) */ 03541000 */*%INCLUDE SYSLIB (IFASMFR4) */ 03542000 */*%INCLUDE SYSLIB (IFASMFR5) */ 03543000 */*%INCLUDE SYSLIB (IFASMFR6) */ 03544000 */*%INCLUDE SYSLIB (IFASMFR7) */ 03545000 */*%INCLUDE SYSLIB (IFASMFR8) */ 03546000 */*%INCLUDE SYSLIB (IFASMFR9) */ 03547000 */*%INCLUDE SYSLIB (IFASMFRA) */ 03548000 */*%INCLUDE SYSLIB (IFASMFRB) */ 03549000 */*%INCLUDE SYSLIB (IFASMFRC) */ 03550000 */*%INCLUDE SYSLIB (IFASMFRD) */ 03551000 * 0363 03552000 * ; 0363 03553000 @DATA DS 0H 03554000 @CH00150 DC H'10' 03555000 @CH00154 DC H'12' 03556000 @CH00249 DC H'40' 03557000 @CH00193 DC H'41' 03558000 @CH00042 DC H'60' 03559000 DS 0F 03560000 @AL00162 EQU * LIST WITH 6 ARGUMENT(S) 03561000 @AL00193 EQU * LIST WITH 6 ARGUMENT(S) 03562000 @AL00203 EQU * LIST WITH 6 ARGUMENT(S) 03563000 @AL00252 EQU * LIST WITH 6 ARGUMENT(S) 03564000 @AL00290 EQU * LIST WITH 6 ARGUMENT(S) 03565000 @AL00324 DC A(@CF00203) LIST WITH 6 ARGUMENT(S) 03566000 DS F 03567000 DC A(@CF00145) 03568000 DC A(@CF00203) 03569000 DC A(@CB00208) 03570000 DC A(@CB00207) 03571000 @AL00176 EQU * LIST WITH 6 ARGUMENT(S) 03572000 @AL00191 EQU * LIST WITH 6 ARGUMENT(S) 03573000 @AL00216 EQU * LIST WITH 6 ARGUMENT(S) 03574000 @AL00231 EQU * LIST WITH 6 ARGUMENT(S) 03575000 @AL00265 EQU * LIST WITH 6 ARGUMENT(S) 03576000 @AL00280 EQU * LIST WITH 6 ARGUMENT(S) 03577000 @AL00303 EQU * LIST WITH 6 ARGUMENT(S) 03578000 @AL00337 DC A(@CF00215) LIST WITH 6 ARGUMENT(S) 03579000 DS F 03580000 DC A(@CF00149) 03581000 DC A(@CF00203) 03582000 DC A(@CB00207) 03583000 DC A(@CB00207) 03584000 @AL00178 EQU * LIST WITH 6 ARGUMENT(S) 03585000 @AL00218 EQU * LIST WITH 6 ARGUMENT(S) 03586000 @AL00248 EQU * LIST WITH 6 ARGUMENT(S) 03587000 @AL00267 EQU * LIST WITH 6 ARGUMENT(S) 03588000 @AL00320 DC A(@CF00203) LIST WITH 6 ARGUMENT(S) 03589000 DS F 03590000 DC A(@CF00058) 03591000 DC A(@CF00203) 03592000 DC A(@CB00207) 03593000 DC A(@CB00207) 03594000 @DATD DSECT 03595000 DS 0F 03596000 @SA00001 DS 18F 03597000 @PC00001 DS 2F 03598000 @SA00002 DS 15F 03599000 @SA00004 DS 15F 03600000 @PC00004 DS 1F 03601000 @SA00005 DS 15F 03602000 @SA00003 DS 15F 03603000 @AL00001 DS 7A 03604000 @TF00001 DS F 03605000 @TF00002 DS F 03606000 @AFTEMPS DS 2F 03607000 @ZTEMPS DS C 03608000 @ZTEMPND EQU * 03609000 @ZLEN EQU @ZTEMPND-@ZTEMPS 03610000 IRBMFRPR CSECT 03611000 DS 0F 03612000 @CF00203 DC F'0' 03613000 @CF00052 DC F'1' 03614000 @CH00052 EQU @CF00052+2 03615000 @CF00054 DC F'2' 03616000 @CF00058 DC F'4' 03617000 @CF00149 DC F'5' 03618000 @CF00145 DC F'9' 03619000 @CH00145 EQU @CF00145+2 03620000 @CF00189 DC F'20' 03621000 @CH00189 EQU @CF00189+2 03622000 @CF00199 DC F'24' 03623000 @CF00147 DC F'37' 03624000 @CH00147 EQU @CF00147+2 03625000 @CF00046 DC F'38' 03626000 @CF00261 DC F'53' 03627000 @CF00252 DC F'55' 03628000 @CF00269 DC F'70' 03629000 @CF00271 DC F'78' 03630000 @CF00273 DC F'79' 03631000 @CF00279 DC F'95' 03632000 @CF00281 DC F'98' 03633000 @CF00285 DC F'106' 03634000 @CF00374 DC F'60000' 03635000 @CF00341 DC F'100000' 03636000 @CF00215 DC F'-6' 03637000 @CF00428 DC F'-4' 03638000 @DATD DSECT 03639000 DS 0D 03640000 H DS F 03641000 I DS F 03642000 J DS F 03643000 L DS F 03644000 P DS F 03645000 RPPAGE DS F 03646000 RPLINE DS F 03647000 RPTEMP DS F 03648000 RPTEMSAV DS F 03649000 RPLINE1 DS H 03650000 RPNXDLIN DS FL1 03651000 RPNXHLIN DS FL1 03652000 DS 0D 03653000 @TS00001 DS CL8 03654000 RPSTRING DS CL6 03655000 RPWRKSTR DS CL9 03656000 DS CL1 03657000 RPVALUE DS 90A 03658000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03659000 @ENDDATD EQU * 03660000 IRBMFRPR CSECT 03661000 DS 0F 03662000 @SIZDATD DC AL1(0) 03663000 DC AL3(@ENDDATD-@DATD) 03664000 @CA00141 DC A(IRBMFLPV) 03665000 DS 0D 03666000 RPPAGSEC DC F'1000000000' 03667000 RPRATSEC DC F'100000000' 03668000 @CB00207 DC B'00000000' 03669000 @CB00208 DC B'10000000' 03670000 RPPATCH DS CL100 03671000 DS CL2 03672000 RPHDRTAB DS CL12 03673000 ORG RPHDRTAB+0 03674000 RPPRTNUM DC F'2' 03675000 RPHDRLIN DC F'7' 03676000 RPCOLUMN DC F'48' 03677000 ORG RPHDRTAB+12 03678000 ORG RPHDRTAB+12 03679000 DC F'3' 03680000 DC F'8' 03681000 DC F'55' 03682000 ORG RPHDRTAB+24 03683000 ORG RPHDRTAB+24 03684000 DC F'4' 03685000 DC F'9' 03686000 DC F'1' 03687000 ORG RPHDRTAB+36 03688000 ORG RPHDRTAB+36 03689000 DC F'5' 03690000 DC F'11' 03691000 DC F'55' 03692000 ORG RPHDRTAB+48 03693000 ORG RPHDRTAB+48 03694000 DC F'9' 03695000 DC F'11' 03696000 DC AL4(92+5) 03697000 ORG RPHDRTAB+60 03698000 ORG RPHDRTAB+60 03699000 DC F'10' 03700000 DC F'12' 03701000 DC F'21' 03702000 ORG RPHDRTAB+72 03703000 ORG RPHDRTAB+72 03704000 DC F'57' 03705000 DC F'12' 03706000 DC F'40' 03707000 ORG RPHDRTAB+84 03708000 ORG RPHDRTAB+84 03709000 DC F'6' 03710000 DC F'12' 03711000 DC F'83' 03712000 ORG RPHDRTAB+96 03713000 ORG RPHDRTAB+96 03714000 DC F'8' 03715000 DC F'13' 03716000 DC F'19' 03717000 ORG RPHDRTAB+108 03718000 ORG RPHDRTAB+108 03719000 DC F'8' 03720000 DC F'13' 03721000 DC F'40' 03722000 ORG RPHDRTAB+120 03723000 ORG RPHDRTAB+120 03724000 DC F'8' 03725000 DC F'13' 03726000 DC F'60' 03727000 ORG RPHDRTAB+132 03728000 ORG RPHDRTAB+132 03729000 DC F'7' 03730000 DC F'13' 03731000 DC F'83' 03732000 ORG RPHDRTAB+144 03733000 ORG RPHDRTAB+144 03734000 DC F'8' 03735000 DC F'13' 03736000 DC F'101' 03737000 ORG RPHDRTAB+156 03738000 ORG RPHDRTAB+156 03739000 DC F'11' 03740000 DC F'17' 03741000 DC F'1' 03742000 ORG RPHDRTAB+168 03743000 ORG RPHDRTAB+168 03744000 DC F'12' 03745000 DC F'17' 03746000 DC F'19' 03747000 ORG RPHDRTAB+180 03748000 ORG RPHDRTAB+180 03749000 DC F'13' 03750000 DC F'14' 03751000 DC F'28' 03752000 ORG RPHDRTAB+192 03753000 ORG RPHDRTAB+192 03754000 DC F'14' 03755000 DC F'15' 03756000 DC F'28' 03757000 ORG RPHDRTAB+204 03758000 ORG RPHDRTAB+204 03759000 DC F'15' 03760000 DC F'16' 03761000 DC F'28' 03762000 ORG RPHDRTAB+216 03763000 ORG RPHDRTAB+216 03764000 DC F'16' 03765000 DC F'17' 03766000 DC F'28' 03767000 ORG RPHDRTAB+228 03768000 ORG RPHDRTAB+228 03769000 DC F'17' 03770000 DC F'17' 03771000 DC F'40' 03772000 ORG RPHDRTAB+240 03773000 ORG RPHDRTAB+240 03774000 DC F'18' 03775000 DC F'16' 03776000 DC F'51' 03777000 ORG RPHDRTAB+252 03778000 ORG RPHDRTAB+252 03779000 DC F'17' 03780000 DC F'17' 03781000 DC F'51' 03782000 ORG RPHDRTAB+264 03783000 ORG RPHDRTAB+264 03784000 DC F'19' 03785000 DC F'16' 03786000 DC F'60' 03787000 ORG RPHDRTAB+276 03788000 ORG RPHDRTAB+276 03789000 DC F'12' 03790000 DC F'17' 03791000 DC F'60' 03792000 ORG RPHDRTAB+288 03793000 ORG RPHDRTAB+288 03794000 DC F'13' 03795000 DC F'14' 03796000 DC F'69' 03797000 ORG RPHDRTAB+300 03798000 ORG RPHDRTAB+300 03799000 DC F'14' 03800000 DC F'15' 03801000 DC F'69' 03802000 ORG RPHDRTAB+312 03803000 ORG RPHDRTAB+312 03804000 DC F'15' 03805000 DC F'16' 03806000 DC F'69' 03807000 ORG RPHDRTAB+324 03808000 ORG RPHDRTAB+324 03809000 DC F'16' 03810000 DC F'17' 03811000 DC F'69' 03812000 ORG RPHDRTAB+336 03813000 ORG RPHDRTAB+336 03814000 DC F'17' 03815000 DC F'17' 03816000 DC F'83' 03817000 ORG RPHDRTAB+348 03818000 ORG RPHDRTAB+348 03819000 DC F'18' 03820000 DC F'16' 03821000 DC F'92' 03822000 ORG RPHDRTAB+360 03823000 ORG RPHDRTAB+360 03824000 DC F'17' 03825000 DC F'17' 03826000 DC F'92' 03827000 ORG RPHDRTAB+372 03828000 ORG RPHDRTAB+372 03829000 DC F'19' 03830000 DC F'16' 03831000 DC F'101' 03832000 ORG RPHDRTAB+384 03833000 ORG RPHDRTAB+384 03834000 DC F'12' 03835000 DC F'17' 03836000 DC F'101' 03837000 ORG RPHDRTAB+396 03838000 ORG RPHDRTAB+396 03839000 DC F'13' 03840000 DC F'14' 03841000 DC F'110' 03842000 ORG RPHDRTAB+408 03843000 ORG RPHDRTAB+408 03844000 DC F'14' 03845000 DC F'15' 03846000 DC F'110' 03847000 ORG RPHDRTAB+420 03848000 ORG RPHDRTAB+420 03849000 DC F'15' 03850000 DC F'16' 03851000 DC F'110' 03852000 ORG RPHDRTAB+432 03853000 ORG RPHDRTAB+432 03854000 DC F'16' 03855000 DC F'17' 03856000 DC F'110' 03857000 ORG RPHDRTAB+444 03858000 RPLNHDR DS CL12 03859000 ORG RPLNHDR+0 03860000 RPLNPNUM DC H'20' 03861000 RPLNINCR DC H'1' 03862000 RPLNCOLM DC F'1' 03863000 RPDATAEX DC B'00000000' 03864000 RPNUMLIN DC AL1(0) 03865000 @NM00001 DS FL2 03866000 ORG RPLNHDR+12 03867000 ORG RPLNHDR+12 03868000 DC H'21' 03869000 DC H'1' 03870000 DC F'1' 03871000 DC B'00000000' 03872000 DC AL1(0) 03873000 ORG RPLNHDR+24 03874000 ORG RPLNHDR+24 03875000 DC H'22' 03876000 DC H'2' 03877000 DC F'6' 03878000 DC B'10000000' 03879000 DC AL1(1) 03880000 ORG RPLNHDR+36 03881000 ORG RPLNHDR+36 03882000 DC H'23' 03883000 DC H'1' 03884000 DC F'6' 03885000 DC B'10000000' 03886000 DC AL1(2) 03887000 ORG RPLNHDR+48 03888000 ORG RPLNHDR+48 03889000 DC H'56' 03890000 DC H'0' 03891000 DC F'19' 03892000 DC B'00000000' 03893000 DC AL1(0) 03894000 ORG RPLNHDR+60 03895000 ORG RPLNHDR+60 03896000 DC H'56' 03897000 DC H'0' 03898000 DC F'28' 03899000 DC B'00000000' 03900000 DC AL1(0) 03901000 ORG RPLNHDR+72 03902000 ORG RPLNHDR+72 03903000 DC H'56' 03904000 DC H'0' 03905000 DC F'51' 03906000 DC B'00000000' 03907000 DC AL1(0) 03908000 ORG RPLNHDR+84 03909000 ORG RPLNHDR+84 03910000 DC H'56' 03911000 DC H'0' 03912000 DC F'60' 03913000 DC B'00000000' 03914000 DC AL1(0) 03915000 ORG RPLNHDR+96 03916000 ORG RPLNHDR+96 03917000 DC H'56' 03918000 DC H'0' 03919000 DC F'69' 03920000 DC B'00000000' 03921000 DC AL1(0) 03922000 ORG RPLNHDR+108 03923000 ORG RPLNHDR+108 03924000 DC H'56' 03925000 DC H'0' 03926000 DC F'92' 03927000 DC B'00000000' 03928000 DC AL1(0) 03929000 ORG RPLNHDR+120 03930000 ORG RPLNHDR+120 03931000 DC H'56' 03932000 DC H'0' 03933000 DC F'101' 03934000 DC B'00000000' 03935000 DC AL1(0) 03936000 ORG RPLNHDR+132 03937000 ORG RPLNHDR+132 03938000 DC H'56' 03939000 DC H'1' 03940000 DC F'110' 03941000 DC B'00000000' 03942000 DC AL1(0) 03943000 ORG RPLNHDR+144 03944000 ORG RPLNHDR+144 03945000 DC H'24' 03946000 DC H'2' 03947000 DC F'6' 03948000 DC B'10000000' 03949000 DC AL1(3) 03950000 ORG RPLNHDR+156 03951000 ORG RPLNHDR+156 03952000 DC H'25' 03953000 DC H'1' 03954000 DC F'1' 03955000 DC B'00000000' 03956000 DC AL1(0) 03957000 ORG RPLNHDR+168 03958000 ORG RPLNHDR+168 03959000 DC H'22' 03960000 DC H'2' 03961000 DC F'6' 03962000 DC B'10000000' 03963000 DC AL1(4) 03964000 ORG RPLNHDR+180 03965000 ORG RPLNHDR+180 03966000 DC H'23' 03967000 DC H'1' 03968000 DC F'6' 03969000 DC B'10000000' 03970000 DC AL1(5) 03971000 ORG RPLNHDR+192 03972000 ORG RPLNHDR+192 03973000 DC H'56' 03974000 DC H'0' 03975000 DC F'19' 03976000 DC B'00000000' 03977000 DC AL1(0) 03978000 ORG RPLNHDR+204 03979000 ORG RPLNHDR+204 03980000 DC H'56' 03981000 DC H'0' 03982000 DC F'28' 03983000 DC B'00000000' 03984000 DC AL1(0) 03985000 ORG RPLNHDR+216 03986000 ORG RPLNHDR+216 03987000 DC H'56' 03988000 DC H'0' 03989000 DC F'40' 03990000 DC B'00000000' 03991000 DC AL1(0) 03992000 ORG RPLNHDR+228 03993000 ORG RPLNHDR+228 03994000 DC H'56' 03995000 DC H'0' 03996000 DC F'51' 03997000 DC B'00000000' 03998000 DC AL1(0) 03999000 ORG RPLNHDR+240 04000000 ORG RPLNHDR+240 04001000 DC H'56' 04002000 DC H'0' 04003000 DC F'60' 04004000 DC B'00000000' 04005000 DC AL1(0) 04006000 ORG RPLNHDR+252 04007000 ORG RPLNHDR+252 04008000 DC H'56' 04009000 DC H'0' 04010000 DC F'69' 04011000 DC B'00000000' 04012000 DC AL1(0) 04013000 ORG RPLNHDR+264 04014000 ORG RPLNHDR+264 04015000 DC H'56' 04016000 DC H'0' 04017000 DC F'83' 04018000 DC B'00000000' 04019000 DC AL1(0) 04020000 ORG RPLNHDR+276 04021000 ORG RPLNHDR+276 04022000 DC H'56' 04023000 DC H'0' 04024000 DC F'92' 04025000 DC B'00000000' 04026000 DC AL1(0) 04027000 ORG RPLNHDR+288 04028000 ORG RPLNHDR+288 04029000 DC H'56' 04030000 DC H'0' 04031000 DC F'101' 04032000 DC B'00000000' 04033000 DC AL1(0) 04034000 ORG RPLNHDR+300 04035000 ORG RPLNHDR+300 04036000 DC H'56' 04037000 DC H'1' 04038000 DC F'110' 04039000 DC B'00000000' 04040000 DC AL1(0) 04041000 ORG RPLNHDR+312 04042000 ORG RPLNHDR+312 04043000 DC H'24' 04044000 DC H'2' 04045000 DC F'6' 04046000 DC B'10000000' 04047000 DC AL1(6) 04048000 ORG RPLNHDR+324 04049000 ORG RPLNHDR+324 04050000 DC H'26' 04051000 DC H'1' 04052000 DC F'1' 04053000 DC B'00000000' 04054000 DC AL1(0) 04055000 ORG RPLNHDR+336 04056000 ORG RPLNHDR+336 04057000 DC H'22' 04058000 DC H'2' 04059000 DC F'6' 04060000 DC B'10000000' 04061000 DC AL1(7) 04062000 ORG RPLNHDR+348 04063000 ORG RPLNHDR+348 04064000 DC H'23' 04065000 DC H'1' 04066000 DC F'6' 04067000 DC B'10000000' 04068000 DC AL1(8) 04069000 ORG RPLNHDR+360 04070000 ORG RPLNHDR+360 04071000 DC H'56' 04072000 DC H'0' 04073000 DC F'19' 04074000 DC B'00000000' 04075000 DC AL1(0) 04076000 ORG RPLNHDR+372 04077000 ORG RPLNHDR+372 04078000 DC H'56' 04079000 DC H'0' 04080000 DC F'28' 04081000 DC B'00000000' 04082000 DC AL1(0) 04083000 ORG RPLNHDR+384 04084000 ORG RPLNHDR+384 04085000 DC H'56' 04086000 DC H'0' 04087000 DC F'40' 04088000 DC B'00000000' 04089000 DC AL1(0) 04090000 ORG RPLNHDR+396 04091000 ORG RPLNHDR+396 04092000 DC H'56' 04093000 DC H'0' 04094000 DC F'51' 04095000 DC B'00000000' 04096000 DC AL1(0) 04097000 ORG RPLNHDR+408 04098000 ORG RPLNHDR+408 04099000 DC H'56' 04100000 DC H'0' 04101000 DC F'60' 04102000 DC B'00000000' 04103000 DC AL1(0) 04104000 ORG RPLNHDR+420 04105000 ORG RPLNHDR+420 04106000 DC H'56' 04107000 DC H'0' 04108000 DC F'69' 04109000 DC B'00000000' 04110000 DC AL1(0) 04111000 ORG RPLNHDR+432 04112000 ORG RPLNHDR+432 04113000 DC H'56' 04114000 DC H'0' 04115000 DC F'83' 04116000 DC B'00000000' 04117000 DC AL1(0) 04118000 ORG RPLNHDR+444 04119000 ORG RPLNHDR+444 04120000 DC H'56' 04121000 DC H'0' 04122000 DC F'92' 04123000 DC B'00000000' 04124000 DC AL1(0) 04125000 ORG RPLNHDR+456 04126000 ORG RPLNHDR+456 04127000 DC H'56' 04128000 DC H'0' 04129000 DC F'101' 04130000 DC B'00000000' 04131000 DC AL1(0) 04132000 ORG RPLNHDR+468 04133000 ORG RPLNHDR+468 04134000 DC H'56' 04135000 DC H'1' 04136000 DC F'110' 04137000 DC B'00000000' 04138000 DC AL1(0) 04139000 ORG RPLNHDR+480 04140000 ORG RPLNHDR+480 04141000 DC H'24' 04142000 DC H'0' 04143000 DC F'6' 04144000 DC B'10000000' 04145000 DC AL1(9) 04146000 ORG RPLNHDR+492 04147000 RPDATAB DS CL20 04148000 ORG RPDATAB+0 04149000 RPSCALE DC F'-6' 04150000 RPDECPT DC F'2' 04151000 RPCOLNUM DC F'19' 04152000 @NM00002 DS BL1 04153000 ORG @NM00002+0 04154000 RPNODATA DC B'00000000' 04155000 ORG RPDATAB+13 04156000 @NM00003 DS BL1 04157000 ORG @NM00003+0 04158000 RPCOMMA DC B'10000000' 04159000 ORG RPDATAB+14 04160000 @NM00004 DS FL2 04161000 RPDTALEN DC F'6' 04162000 ORG RPDATAB+20 04163000 ORG RPDATAB+20 04164000 DC F'-6' 04165000 DC F'0' 04166000 DC F'28' 04167000 ORG @NM00002+20 04168000 DC B'00000000' 04169000 ORG RPDATAB+33 04170000 ORG @NM00003+20 04171000 DC B'00000000' 04172000 ORG RPDATAB+36 04173000 DC F'6' 04174000 ORG RPDATAB+40 04175000 ORG RPDATAB+40 04176000 DC F'-6' 04177000 DC F'0' 04178000 DC F'0' 04179000 ORG @NM00002+40 04180000 DC B'10000000' 04181000 ORG RPDATAB+53 04182000 ORG @NM00003+40 04183000 DC B'00000000' 04184000 ORG RPDATAB+56 04185000 DC F'6' 04186000 ORG RPDATAB+60 04187000 ORG RPDATAB+60 04188000 DC F'-6' 04189000 DC F'2' 04190000 DC F'51' 04191000 ORG @NM00002+60 04192000 DC B'00000000' 04193000 ORG RPDATAB+73 04194000 ORG @NM00003+60 04195000 DC B'10000000' 04196000 ORG RPDATAB+76 04197000 DC F'6' 04198000 ORG RPDATAB+80 04199000 ORG RPDATAB+80 04200000 DC F'-6' 04201000 DC F'2' 04202000 DC F'60' 04203000 ORG @NM00002+80 04204000 DC B'00000000' 04205000 ORG RPDATAB+93 04206000 ORG @NM00003+80 04207000 DC B'10000000' 04208000 ORG RPDATAB+96 04209000 DC F'6' 04210000 ORG RPDATAB+100 04211000 ORG RPDATAB+100 04212000 DC F'-6' 04213000 DC F'0' 04214000 DC F'69' 04215000 ORG @NM00002+100 04216000 DC B'00000000' 04217000 ORG RPDATAB+113 04218000 ORG @NM00003+100 04219000 DC B'00000000' 04220000 ORG RPDATAB+116 04221000 DC F'6' 04222000 ORG RPDATAB+120 04223000 ORG RPDATAB+120 04224000 DC F'-6' 04225000 DC F'0' 04226000 DC F'0' 04227000 ORG @NM00002+120 04228000 DC B'10000000' 04229000 ORG RPDATAB+133 04230000 ORG @NM00003+120 04231000 DC B'00000000' 04232000 ORG RPDATAB+136 04233000 DC F'6' 04234000 ORG RPDATAB+140 04235000 ORG RPDATAB+140 04236000 DC F'-6' 04237000 DC F'2' 04238000 DC F'92' 04239000 ORG @NM00002+140 04240000 DC B'00000000' 04241000 ORG RPDATAB+153 04242000 ORG @NM00003+140 04243000 DC B'10000000' 04244000 ORG RPDATAB+156 04245000 DC F'6' 04246000 ORG RPDATAB+160 04247000 ORG RPDATAB+160 04248000 DC F'-6' 04249000 DC F'2' 04250000 DC F'101' 04251000 ORG @NM00002+160 04252000 DC B'00000000' 04253000 ORG RPDATAB+173 04254000 ORG @NM00003+160 04255000 DC B'10000000' 04256000 ORG RPDATAB+176 04257000 DC F'6' 04258000 ORG RPDATAB+180 04259000 ORG RPDATAB+180 04260000 DC F'-6' 04261000 DC F'0' 04262000 DC F'110' 04263000 ORG @NM00002+180 04264000 DC B'00000000' 04265000 ORG RPDATAB+193 04266000 ORG @NM00003+180 04267000 DC B'00000000' 04268000 ORG RPDATAB+196 04269000 DC F'6' 04270000 ORG RPDATAB+200 04271000 ORG RPDATAB+200 04272000 DC F'-6' 04273000 DC F'2' 04274000 DC F'19' 04275000 ORG @NM00002+200 04276000 DC B'00000000' 04277000 ORG RPDATAB+213 04278000 ORG @NM00003+200 04279000 DC B'10000000' 04280000 ORG RPDATAB+216 04281000 DC F'6' 04282000 ORG RPDATAB+220 04283000 ORG RPDATAB+220 04284000 DC F'-6' 04285000 DC F'0' 04286000 DC F'28' 04287000 ORG @NM00002+220 04288000 DC B'00000000' 04289000 ORG RPDATAB+233 04290000 ORG @NM00003+220 04291000 DC B'00000000' 04292000 ORG RPDATAB+236 04293000 DC F'6' 04294000 ORG RPDATAB+240 04295000 ORG RPDATAB+240 04296000 DC F'-6' 04297000 DC F'0' 04298000 DC F'0' 04299000 ORG @NM00002+240 04300000 DC B'10000000' 04301000 ORG RPDATAB+253 04302000 ORG @NM00003+240 04303000 DC B'00000000' 04304000 ORG RPDATAB+256 04305000 DC F'6' 04306000 ORG RPDATAB+260 04307000 ORG RPDATAB+260 04308000 DC F'-6' 04309000 DC F'2' 04310000 DC F'51' 04311000 ORG @NM00002+260 04312000 DC B'00000000' 04313000 ORG RPDATAB+273 04314000 ORG @NM00003+260 04315000 DC B'10000000' 04316000 ORG RPDATAB+276 04317000 DC F'6' 04318000 ORG RPDATAB+280 04319000 ORG RPDATAB+280 04320000 DC F'-6' 04321000 DC F'2' 04322000 DC F'60' 04323000 ORG @NM00002+280 04324000 DC B'00000000' 04325000 ORG RPDATAB+293 04326000 ORG @NM00003+280 04327000 DC B'10000000' 04328000 ORG RPDATAB+296 04329000 DC F'6' 04330000 ORG RPDATAB+300 04331000 ORG RPDATAB+300 04332000 DC F'-6' 04333000 DC F'0' 04334000 DC F'69' 04335000 ORG @NM00002+300 04336000 DC B'00000000' 04337000 ORG RPDATAB+313 04338000 ORG @NM00003+300 04339000 DC B'00000000' 04340000 ORG RPDATAB+316 04341000 DC F'6' 04342000 ORG RPDATAB+320 04343000 ORG RPDATAB+320 04344000 DC F'-6' 04345000 DC F'0' 04346000 DC F'0' 04347000 ORG @NM00002+320 04348000 DC B'10000000' 04349000 ORG RPDATAB+333 04350000 ORG @NM00003+320 04351000 DC B'00000000' 04352000 ORG RPDATAB+336 04353000 DC F'6' 04354000 ORG RPDATAB+340 04355000 ORG RPDATAB+340 04356000 DC F'-6' 04357000 DC F'2' 04358000 DC F'92' 04359000 ORG @NM00002+340 04360000 DC B'00000000' 04361000 ORG RPDATAB+353 04362000 ORG @NM00003+340 04363000 DC B'10000000' 04364000 ORG RPDATAB+356 04365000 DC F'6' 04366000 ORG RPDATAB+360 04367000 ORG RPDATAB+360 04368000 DC F'-6' 04369000 DC F'2' 04370000 DC F'101' 04371000 ORG @NM00002+360 04372000 DC B'00000000' 04373000 ORG RPDATAB+373 04374000 ORG @NM00003+360 04375000 DC B'10000000' 04376000 ORG RPDATAB+376 04377000 DC F'6' 04378000 ORG RPDATAB+380 04379000 ORG RPDATAB+380 04380000 DC F'-6' 04381000 DC F'0' 04382000 DC F'110' 04383000 ORG @NM00002+380 04384000 DC B'00000000' 04385000 ORG RPDATAB+393 04386000 ORG @NM00003+380 04387000 DC B'00000000' 04388000 ORG RPDATAB+396 04389000 DC F'6' 04390000 ORG RPDATAB+400 04391000 ORG RPDATAB+400 04392000 DC F'-6' 04393000 DC F'2' 04394000 DC F'19' 04395000 ORG @NM00002+400 04396000 DC B'00000000' 04397000 ORG RPDATAB+413 04398000 ORG @NM00003+400 04399000 DC B'10000000' 04400000 ORG RPDATAB+416 04401000 DC F'6' 04402000 ORG RPDATAB+420 04403000 ORG RPDATAB+420 04404000 DC F'-6' 04405000 DC F'0' 04406000 DC F'28' 04407000 ORG @NM00002+420 04408000 DC B'00000000' 04409000 ORG RPDATAB+433 04410000 ORG @NM00003+420 04411000 DC B'00000000' 04412000 ORG RPDATAB+436 04413000 DC F'6' 04414000 ORG RPDATAB+440 04415000 ORG RPDATAB+440 04416000 DC F'-6' 04417000 DC F'0' 04418000 DC F'0' 04419000 ORG @NM00002+440 04420000 DC B'10000000' 04421000 ORG RPDATAB+453 04422000 ORG @NM00003+440 04423000 DC B'00000000' 04424000 ORG RPDATAB+456 04425000 DC F'6' 04426000 ORG RPDATAB+460 04427000 ORG RPDATAB+460 04428000 DC F'-6' 04429000 DC F'2' 04430000 DC F'51' 04431000 ORG @NM00002+460 04432000 DC B'00000000' 04433000 ORG RPDATAB+473 04434000 ORG @NM00003+460 04435000 DC B'10000000' 04436000 ORG RPDATAB+476 04437000 DC F'6' 04438000 ORG RPDATAB+480 04439000 ORG RPDATAB+480 04440000 DC F'-6' 04441000 DC F'2' 04442000 DC F'60' 04443000 ORG @NM00002+480 04444000 DC B'00000000' 04445000 ORG RPDATAB+493 04446000 ORG @NM00003+480 04447000 DC B'10000000' 04448000 ORG RPDATAB+496 04449000 DC F'6' 04450000 ORG RPDATAB+500 04451000 ORG RPDATAB+500 04452000 DC F'-6' 04453000 DC F'0' 04454000 DC F'69' 04455000 ORG @NM00002+500 04456000 DC B'00000000' 04457000 ORG RPDATAB+513 04458000 ORG @NM00003+500 04459000 DC B'00000000' 04460000 ORG RPDATAB+516 04461000 DC F'6' 04462000 ORG RPDATAB+520 04463000 ORG RPDATAB+520 04464000 DC F'-6' 04465000 DC F'0' 04466000 DC F'0' 04467000 ORG @NM00002+520 04468000 DC B'10000000' 04469000 ORG RPDATAB+533 04470000 ORG @NM00003+520 04471000 DC B'00000000' 04472000 ORG RPDATAB+536 04473000 DC F'6' 04474000 ORG RPDATAB+540 04475000 ORG RPDATAB+540 04476000 DC F'-6' 04477000 DC F'2' 04478000 DC F'92' 04479000 ORG @NM00002+540 04480000 DC B'00000000' 04481000 ORG RPDATAB+553 04482000 ORG @NM00003+540 04483000 DC B'10000000' 04484000 ORG RPDATAB+556 04485000 DC F'6' 04486000 ORG RPDATAB+560 04487000 ORG RPDATAB+560 04488000 DC F'-6' 04489000 DC F'2' 04490000 DC F'101' 04491000 ORG @NM00002+560 04492000 DC B'00000000' 04493000 ORG RPDATAB+573 04494000 ORG @NM00003+560 04495000 DC B'10000000' 04496000 ORG RPDATAB+576 04497000 DC F'6' 04498000 ORG RPDATAB+580 04499000 ORG RPDATAB+580 04500000 DC F'-6' 04501000 DC F'0' 04502000 DC F'110' 04503000 ORG @NM00002+580 04504000 DC B'00000000' 04505000 ORG RPDATAB+593 04506000 ORG @NM00003+580 04507000 DC B'00000000' 04508000 ORG RPDATAB+596 04509000 DC F'6' 04510000 ORG RPDATAB+600 04511000 ORG RPDATAB+600 04512000 DC F'-6' 04513000 DC F'2' 04514000 DC F'19' 04515000 ORG @NM00002+600 04516000 DC B'00000000' 04517000 ORG RPDATAB+613 04518000 ORG @NM00003+600 04519000 DC B'10000000' 04520000 ORG RPDATAB+616 04521000 DC F'6' 04522000 ORG RPDATAB+620 04523000 ORG RPDATAB+620 04524000 DC F'-6' 04525000 DC F'0' 04526000 DC F'28' 04527000 ORG @NM00002+620 04528000 DC B'00000000' 04529000 ORG RPDATAB+633 04530000 ORG @NM00003+620 04531000 DC B'00000000' 04532000 ORG RPDATAB+636 04533000 DC F'6' 04534000 ORG RPDATAB+640 04535000 ORG RPDATAB+640 04536000 DC F'-6' 04537000 DC F'0' 04538000 DC F'0' 04539000 ORG @NM00002+640 04540000 DC B'10000000' 04541000 ORG RPDATAB+653 04542000 ORG @NM00003+640 04543000 DC B'00000000' 04544000 ORG RPDATAB+656 04545000 DC F'6' 04546000 ORG RPDATAB+660 04547000 ORG RPDATAB+660 04548000 DC F'-6' 04549000 DC F'2' 04550000 DC F'51' 04551000 ORG @NM00002+660 04552000 DC B'00000000' 04553000 ORG RPDATAB+673 04554000 ORG @NM00003+660 04555000 DC B'10000000' 04556000 ORG RPDATAB+676 04557000 DC F'6' 04558000 ORG RPDATAB+680 04559000 ORG RPDATAB+680 04560000 DC F'-6' 04561000 DC F'2' 04562000 DC F'60' 04563000 ORG @NM00002+680 04564000 DC B'00000000' 04565000 ORG RPDATAB+693 04566000 ORG @NM00003+680 04567000 DC B'10000000' 04568000 ORG RPDATAB+696 04569000 DC F'6' 04570000 ORG RPDATAB+700 04571000 ORG RPDATAB+700 04572000 DC F'-6' 04573000 DC F'0' 04574000 DC F'69' 04575000 ORG @NM00002+700 04576000 DC B'00000000' 04577000 ORG RPDATAB+713 04578000 ORG @NM00003+700 04579000 DC B'00000000' 04580000 ORG RPDATAB+716 04581000 DC F'6' 04582000 ORG RPDATAB+720 04583000 ORG RPDATAB+720 04584000 DC F'-6' 04585000 DC F'0' 04586000 DC F'0' 04587000 ORG @NM00002+720 04588000 DC B'10000000' 04589000 ORG RPDATAB+733 04590000 ORG @NM00003+720 04591000 DC B'00000000' 04592000 ORG RPDATAB+736 04593000 DC F'6' 04594000 ORG RPDATAB+740 04595000 ORG RPDATAB+740 04596000 DC F'-6' 04597000 DC F'2' 04598000 DC F'92' 04599000 ORG @NM00002+740 04600000 DC B'00000000' 04601000 ORG RPDATAB+753 04602000 ORG @NM00003+740 04603000 DC B'10000000' 04604000 ORG RPDATAB+756 04605000 DC F'6' 04606000 ORG RPDATAB+760 04607000 ORG RPDATAB+760 04608000 DC F'-6' 04609000 DC F'2' 04610000 DC F'101' 04611000 ORG @NM00002+760 04612000 DC B'00000000' 04613000 ORG RPDATAB+773 04614000 ORG @NM00003+760 04615000 DC B'10000000' 04616000 ORG RPDATAB+776 04617000 DC F'6' 04618000 ORG RPDATAB+780 04619000 ORG RPDATAB+780 04620000 DC F'-6' 04621000 DC F'0' 04622000 DC F'110' 04623000 ORG @NM00002+780 04624000 DC B'00000000' 04625000 ORG RPDATAB+793 04626000 ORG @NM00003+780 04627000 DC B'00000000' 04628000 ORG RPDATAB+796 04629000 DC F'6' 04630000 ORG RPDATAB+800 04631000 ORG RPDATAB+800 04632000 DC F'-6' 04633000 DC F'2' 04634000 DC F'19' 04635000 ORG @NM00002+800 04636000 DC B'00000000' 04637000 ORG RPDATAB+813 04638000 ORG @NM00003+800 04639000 DC B'10000000' 04640000 ORG RPDATAB+816 04641000 DC F'6' 04642000 ORG RPDATAB+820 04643000 ORG RPDATAB+820 04644000 DC F'-6' 04645000 DC F'0' 04646000 DC F'28' 04647000 ORG @NM00002+820 04648000 DC B'00000000' 04649000 ORG RPDATAB+833 04650000 ORG @NM00003+820 04651000 DC B'00000000' 04652000 ORG RPDATAB+836 04653000 DC F'6' 04654000 ORG RPDATAB+840 04655000 ORG RPDATAB+840 04656000 DC F'-6' 04657000 DC F'2' 04658000 DC F'40' 04659000 ORG @NM00002+840 04660000 DC B'00000000' 04661000 ORG RPDATAB+853 04662000 ORG @NM00003+840 04663000 DC B'10000000' 04664000 ORG RPDATAB+856 04665000 DC F'6' 04666000 ORG RPDATAB+860 04667000 ORG RPDATAB+860 04668000 DC F'-6' 04669000 DC F'2' 04670000 DC F'51' 04671000 ORG @NM00002+860 04672000 DC B'00000000' 04673000 ORG RPDATAB+873 04674000 ORG @NM00003+860 04675000 DC B'10000000' 04676000 ORG RPDATAB+876 04677000 DC F'6' 04678000 ORG RPDATAB+880 04679000 ORG RPDATAB+880 04680000 DC F'-6' 04681000 DC F'2' 04682000 DC F'60' 04683000 ORG @NM00002+880 04684000 DC B'00000000' 04685000 ORG RPDATAB+893 04686000 ORG @NM00003+880 04687000 DC B'10000000' 04688000 ORG RPDATAB+896 04689000 DC F'6' 04690000 ORG RPDATAB+900 04691000 ORG RPDATAB+900 04692000 DC F'-6' 04693000 DC F'0' 04694000 DC F'69' 04695000 ORG @NM00002+900 04696000 DC B'00000000' 04697000 ORG RPDATAB+913 04698000 ORG @NM00003+900 04699000 DC B'00000000' 04700000 ORG RPDATAB+916 04701000 DC F'6' 04702000 ORG RPDATAB+920 04703000 ORG RPDATAB+920 04704000 DC F'-6' 04705000 DC F'2' 04706000 DC F'83' 04707000 ORG @NM00002+920 04708000 DC B'00000000' 04709000 ORG RPDATAB+933 04710000 ORG @NM00003+920 04711000 DC B'10000000' 04712000 ORG RPDATAB+936 04713000 DC F'6' 04714000 ORG RPDATAB+940 04715000 ORG RPDATAB+940 04716000 DC F'-6' 04717000 DC F'2' 04718000 DC F'92' 04719000 ORG @NM00002+940 04720000 DC B'00000000' 04721000 ORG RPDATAB+953 04722000 ORG @NM00003+940 04723000 DC B'10000000' 04724000 ORG RPDATAB+956 04725000 DC F'6' 04726000 ORG RPDATAB+960 04727000 ORG RPDATAB+960 04728000 DC F'-6' 04729000 DC F'2' 04730000 DC F'101' 04731000 ORG @NM00002+960 04732000 DC B'00000000' 04733000 ORG RPDATAB+973 04734000 ORG @NM00003+960 04735000 DC B'10000000' 04736000 ORG RPDATAB+976 04737000 DC F'6' 04738000 ORG RPDATAB+980 04739000 ORG RPDATAB+980 04740000 DC F'-6' 04741000 DC F'0' 04742000 DC F'110' 04743000 ORG @NM00002+980 04744000 DC B'00000000' 04745000 ORG RPDATAB+993 04746000 ORG @NM00003+980 04747000 DC B'00000000' 04748000 ORG RPDATAB+996 04749000 DC F'6' 04750000 ORG RPDATAB+1000 04751000 ORG RPDATAB+1000 04752000 DC F'-6' 04753000 DC F'2' 04754000 DC F'19' 04755000 ORG @NM00002+1000 04756000 DC B'00000000' 04757000 ORG RPDATAB+1013 04758000 ORG @NM00003+1000 04759000 DC B'10000000' 04760000 ORG RPDATAB+1016 04761000 DC F'6' 04762000 ORG RPDATAB+1020 04763000 ORG RPDATAB+1020 04764000 DC F'-6' 04765000 DC F'0' 04766000 DC F'28' 04767000 ORG @NM00002+1020 04768000 DC B'00000000' 04769000 ORG RPDATAB+1033 04770000 ORG @NM00003+1020 04771000 DC B'00000000' 04772000 ORG RPDATAB+1036 04773000 DC F'6' 04774000 ORG RPDATAB+1040 04775000 ORG RPDATAB+1040 04776000 DC F'-6' 04777000 DC F'2' 04778000 DC F'40' 04779000 ORG @NM00002+1040 04780000 DC B'00000000' 04781000 ORG RPDATAB+1053 04782000 ORG @NM00003+1040 04783000 DC B'00000000' 04784000 ORG RPDATAB+1056 04785000 DC F'6' 04786000 ORG RPDATAB+1060 04787000 ORG RPDATAB+1060 04788000 DC F'-6' 04789000 DC F'2' 04790000 DC F'51' 04791000 ORG @NM00002+1060 04792000 DC B'00000000' 04793000 ORG RPDATAB+1073 04794000 ORG @NM00003+1060 04795000 DC B'10000000' 04796000 ORG RPDATAB+1076 04797000 DC F'6' 04798000 ORG RPDATAB+1080 04799000 ORG RPDATAB+1080 04800000 DC F'-6' 04801000 DC F'2' 04802000 DC F'60' 04803000 ORG @NM00002+1080 04804000 DC B'00000000' 04805000 ORG RPDATAB+1093 04806000 ORG @NM00003+1080 04807000 DC B'10000000' 04808000 ORG RPDATAB+1096 04809000 DC F'6' 04810000 ORG RPDATAB+1100 04811000 ORG RPDATAB+1100 04812000 DC F'-6' 04813000 DC F'0' 04814000 DC F'69' 04815000 ORG @NM00002+1100 04816000 DC B'00000000' 04817000 ORG RPDATAB+1113 04818000 ORG @NM00003+1100 04819000 DC B'00000000' 04820000 ORG RPDATAB+1116 04821000 DC F'6' 04822000 ORG RPDATAB+1120 04823000 ORG RPDATAB+1120 04824000 DC F'-6' 04825000 DC F'2' 04826000 DC F'83' 04827000 ORG @NM00002+1120 04828000 DC B'00000000' 04829000 ORG RPDATAB+1133 04830000 ORG @NM00003+1120 04831000 DC B'00000000' 04832000 ORG RPDATAB+1136 04833000 DC F'6' 04834000 ORG RPDATAB+1140 04835000 ORG RPDATAB+1140 04836000 DC F'-6' 04837000 DC F'2' 04838000 DC F'92' 04839000 ORG @NM00002+1140 04840000 DC B'00000000' 04841000 ORG RPDATAB+1153 04842000 ORG @NM00003+1140 04843000 DC B'10000000' 04844000 ORG RPDATAB+1156 04845000 DC F'6' 04846000 ORG RPDATAB+1160 04847000 ORG RPDATAB+1160 04848000 DC F'-6' 04849000 DC F'2' 04850000 DC F'101' 04851000 ORG @NM00002+1160 04852000 DC B'00000000' 04853000 ORG RPDATAB+1173 04854000 ORG @NM00003+1160 04855000 DC B'10000000' 04856000 ORG RPDATAB+1176 04857000 DC F'6' 04858000 ORG RPDATAB+1180 04859000 ORG RPDATAB+1180 04860000 DC F'-6' 04861000 DC F'0' 04862000 DC F'110' 04863000 ORG @NM00002+1180 04864000 DC B'00000000' 04865000 ORG RPDATAB+1193 04866000 ORG @NM00003+1180 04867000 DC B'00000000' 04868000 ORG RPDATAB+1196 04869000 DC F'6' 04870000 ORG RPDATAB+1200 04871000 ORG RPDATAB+1200 04872000 DC F'-6' 04873000 DC F'2' 04874000 DC F'19' 04875000 ORG @NM00002+1200 04876000 DC B'00000000' 04877000 ORG RPDATAB+1213 04878000 ORG @NM00003+1200 04879000 DC B'10000000' 04880000 ORG RPDATAB+1216 04881000 DC F'6' 04882000 ORG RPDATAB+1220 04883000 ORG RPDATAB+1220 04884000 DC F'-6' 04885000 DC F'0' 04886000 DC F'28' 04887000 ORG @NM00002+1220 04888000 DC B'00000000' 04889000 ORG RPDATAB+1233 04890000 ORG @NM00003+1220 04891000 DC B'00000000' 04892000 ORG RPDATAB+1236 04893000 DC F'6' 04894000 ORG RPDATAB+1240 04895000 ORG RPDATAB+1240 04896000 DC F'-6' 04897000 DC F'0' 04898000 DC F'0' 04899000 ORG @NM00002+1240 04900000 DC B'10000000' 04901000 ORG RPDATAB+1253 04902000 ORG @NM00003+1240 04903000 DC B'00000000' 04904000 ORG RPDATAB+1256 04905000 DC F'6' 04906000 ORG RPDATAB+1260 04907000 ORG RPDATAB+1260 04908000 DC F'-6' 04909000 DC F'2' 04910000 DC F'51' 04911000 ORG @NM00002+1260 04912000 DC B'00000000' 04913000 ORG RPDATAB+1273 04914000 ORG @NM00003+1260 04915000 DC B'10000000' 04916000 ORG RPDATAB+1276 04917000 DC F'6' 04918000 ORG RPDATAB+1280 04919000 ORG RPDATAB+1280 04920000 DC F'-6' 04921000 DC F'2' 04922000 DC F'60' 04923000 ORG @NM00002+1280 04924000 DC B'00000000' 04925000 ORG RPDATAB+1293 04926000 ORG @NM00003+1280 04927000 DC B'10000000' 04928000 ORG RPDATAB+1296 04929000 DC F'6' 04930000 ORG RPDATAB+1300 04931000 ORG RPDATAB+1300 04932000 DC F'-6' 04933000 DC F'0' 04934000 DC F'69' 04935000 ORG @NM00002+1300 04936000 DC B'00000000' 04937000 ORG RPDATAB+1313 04938000 ORG @NM00003+1300 04939000 DC B'00000000' 04940000 ORG RPDATAB+1316 04941000 DC F'6' 04942000 ORG RPDATAB+1320 04943000 ORG RPDATAB+1320 04944000 DC F'-6' 04945000 DC F'0' 04946000 DC F'0' 04947000 ORG @NM00002+1320 04948000 DC B'10000000' 04949000 ORG RPDATAB+1333 04950000 ORG @NM00003+1320 04951000 DC B'00000000' 04952000 ORG RPDATAB+1336 04953000 DC F'6' 04954000 ORG RPDATAB+1340 04955000 ORG RPDATAB+1340 04956000 DC F'-6' 04957000 DC F'2' 04958000 DC F'92' 04959000 ORG @NM00002+1340 04960000 DC B'00000000' 04961000 ORG RPDATAB+1353 04962000 ORG @NM00003+1340 04963000 DC B'10000000' 04964000 ORG RPDATAB+1356 04965000 DC F'6' 04966000 ORG RPDATAB+1360 04967000 ORG RPDATAB+1360 04968000 DC F'-6' 04969000 DC F'2' 04970000 DC F'101' 04971000 ORG @NM00002+1360 04972000 DC B'00000000' 04973000 ORG RPDATAB+1373 04974000 ORG @NM00003+1360 04975000 DC B'10000000' 04976000 ORG RPDATAB+1376 04977000 DC F'6' 04978000 ORG RPDATAB+1380 04979000 ORG RPDATAB+1380 04980000 DC F'-6' 04981000 DC F'0' 04982000 DC F'110' 04983000 ORG @NM00002+1380 04984000 DC B'00000000' 04985000 ORG RPDATAB+1393 04986000 ORG @NM00003+1380 04987000 DC B'00000000' 04988000 ORG RPDATAB+1396 04989000 DC F'6' 04990000 ORG RPDATAB+1400 04991000 ORG RPDATAB+1400 04992000 DC F'-6' 04993000 DC F'2' 04994000 DC F'19' 04995000 ORG @NM00002+1400 04996000 DC B'00000000' 04997000 ORG RPDATAB+1413 04998000 ORG @NM00003+1400 04999000 DC B'10000000' 05000000 ORG RPDATAB+1416 05001000 DC F'6' 05002000 ORG RPDATAB+1420 05003000 ORG RPDATAB+1420 05004000 DC F'-6' 05005000 DC F'0' 05006000 DC F'28' 05007000 ORG @NM00002+1420 05008000 DC B'00000000' 05009000 ORG RPDATAB+1433 05010000 ORG @NM00003+1420 05011000 DC B'00000000' 05012000 ORG RPDATAB+1436 05013000 DC F'6' 05014000 ORG RPDATAB+1440 05015000 ORG RPDATAB+1440 05016000 DC F'-6' 05017000 DC F'2' 05018000 DC F'40' 05019000 ORG @NM00002+1440 05020000 DC B'00000000' 05021000 ORG RPDATAB+1453 05022000 ORG @NM00003+1440 05023000 DC B'10000000' 05024000 ORG RPDATAB+1456 05025000 DC F'6' 05026000 ORG RPDATAB+1460 05027000 ORG RPDATAB+1460 05028000 DC F'-6' 05029000 DC F'2' 05030000 DC F'51' 05031000 ORG @NM00002+1460 05032000 DC B'00000000' 05033000 ORG RPDATAB+1473 05034000 ORG @NM00003+1460 05035000 DC B'10000000' 05036000 ORG RPDATAB+1476 05037000 DC F'6' 05038000 ORG RPDATAB+1480 05039000 ORG RPDATAB+1480 05040000 DC F'-6' 05041000 DC F'2' 05042000 DC F'60' 05043000 ORG @NM00002+1480 05044000 DC B'00000000' 05045000 ORG RPDATAB+1493 05046000 ORG @NM00003+1480 05047000 DC B'10000000' 05048000 ORG RPDATAB+1496 05049000 DC F'6' 05050000 ORG RPDATAB+1500 05051000 ORG RPDATAB+1500 05052000 DC F'-6' 05053000 DC F'0' 05054000 DC F'69' 05055000 ORG @NM00002+1500 05056000 DC B'00000000' 05057000 ORG RPDATAB+1513 05058000 ORG @NM00003+1500 05059000 DC B'00000000' 05060000 ORG RPDATAB+1516 05061000 DC F'6' 05062000 ORG RPDATAB+1520 05063000 ORG RPDATAB+1520 05064000 DC F'-6' 05065000 DC F'2' 05066000 DC F'83' 05067000 ORG @NM00002+1520 05068000 DC B'00000000' 05069000 ORG RPDATAB+1533 05070000 ORG @NM00003+1520 05071000 DC B'10000000' 05072000 ORG RPDATAB+1536 05073000 DC F'6' 05074000 ORG RPDATAB+1540 05075000 ORG RPDATAB+1540 05076000 DC F'-6' 05077000 DC F'2' 05078000 DC F'92' 05079000 ORG @NM00002+1540 05080000 DC B'00000000' 05081000 ORG RPDATAB+1553 05082000 ORG @NM00003+1540 05083000 DC B'10000000' 05084000 ORG RPDATAB+1556 05085000 DC F'6' 05086000 ORG RPDATAB+1560 05087000 ORG RPDATAB+1560 05088000 DC F'-6' 05089000 DC F'2' 05090000 DC F'101' 05091000 ORG @NM00002+1560 05092000 DC B'00000000' 05093000 ORG RPDATAB+1573 05094000 ORG @NM00003+1560 05095000 DC B'10000000' 05096000 ORG RPDATAB+1576 05097000 DC F'6' 05098000 ORG RPDATAB+1580 05099000 ORG RPDATAB+1580 05100000 DC F'-6' 05101000 DC F'0' 05102000 DC F'110' 05103000 ORG @NM00002+1580 05104000 DC B'00000000' 05105000 ORG RPDATAB+1593 05106000 ORG @NM00003+1580 05107000 DC B'00000000' 05108000 ORG RPDATAB+1596 05109000 DC F'6' 05110000 ORG RPDATAB+1600 05111000 ORG RPDATAB+1600 05112000 DC F'-6' 05113000 DC F'2' 05114000 DC F'19' 05115000 ORG @NM00002+1600 05116000 DC B'00000000' 05117000 ORG RPDATAB+1613 05118000 ORG @NM00003+1600 05119000 DC B'10000000' 05120000 ORG RPDATAB+1616 05121000 DC F'6' 05122000 ORG RPDATAB+1620 05123000 ORG RPDATAB+1620 05124000 DC F'-6' 05125000 DC F'0' 05126000 DC F'28' 05127000 ORG @NM00002+1620 05128000 DC B'00000000' 05129000 ORG RPDATAB+1633 05130000 ORG @NM00003+1620 05131000 DC B'00000000' 05132000 ORG RPDATAB+1636 05133000 DC F'6' 05134000 ORG RPDATAB+1640 05135000 ORG RPDATAB+1640 05136000 DC F'-6' 05137000 DC F'2' 05138000 DC F'40' 05139000 ORG @NM00002+1640 05140000 DC B'00000000' 05141000 ORG RPDATAB+1653 05142000 ORG @NM00003+1640 05143000 DC B'00000000' 05144000 ORG RPDATAB+1656 05145000 DC F'6' 05146000 ORG RPDATAB+1660 05147000 ORG RPDATAB+1660 05148000 DC F'-6' 05149000 DC F'2' 05150000 DC F'51' 05151000 ORG @NM00002+1660 05152000 DC B'00000000' 05153000 ORG RPDATAB+1673 05154000 ORG @NM00003+1660 05155000 DC B'10000000' 05156000 ORG RPDATAB+1676 05157000 DC F'6' 05158000 ORG RPDATAB+1680 05159000 ORG RPDATAB+1680 05160000 DC F'-6' 05161000 DC F'2' 05162000 DC F'60' 05163000 ORG @NM00002+1680 05164000 DC B'00000000' 05165000 ORG RPDATAB+1693 05166000 ORG @NM00003+1680 05167000 DC B'10000000' 05168000 ORG RPDATAB+1696 05169000 DC F'6' 05170000 ORG RPDATAB+1700 05171000 ORG RPDATAB+1700 05172000 DC F'-6' 05173000 DC F'0' 05174000 DC F'69' 05175000 ORG @NM00002+1700 05176000 DC B'00000000' 05177000 ORG RPDATAB+1713 05178000 ORG @NM00003+1700 05179000 DC B'00000000' 05180000 ORG RPDATAB+1716 05181000 DC F'6' 05182000 ORG RPDATAB+1720 05183000 ORG RPDATAB+1720 05184000 DC F'-6' 05185000 DC F'2' 05186000 DC F'83' 05187000 ORG @NM00002+1720 05188000 DC B'00000000' 05189000 ORG RPDATAB+1733 05190000 ORG @NM00003+1720 05191000 DC B'00000000' 05192000 ORG RPDATAB+1736 05193000 DC F'6' 05194000 ORG RPDATAB+1740 05195000 ORG RPDATAB+1740 05196000 DC F'-6' 05197000 DC F'2' 05198000 DC F'92' 05199000 ORG @NM00002+1740 05200000 DC B'00000000' 05201000 ORG RPDATAB+1753 05202000 ORG @NM00003+1740 05203000 DC B'10000000' 05204000 ORG RPDATAB+1756 05205000 DC F'6' 05206000 ORG RPDATAB+1760 05207000 ORG RPDATAB+1760 05208000 DC F'-6' 05209000 DC F'2' 05210000 DC F'101' 05211000 ORG @NM00002+1760 05212000 DC B'00000000' 05213000 ORG RPDATAB+1773 05214000 ORG @NM00003+1760 05215000 DC B'10000000' 05216000 ORG RPDATAB+1776 05217000 DC F'6' 05218000 ORG RPDATAB+1780 05219000 ORG RPDATAB+1780 05220000 DC F'-6' 05221000 DC F'0' 05222000 DC F'110' 05223000 ORG @NM00002+1780 05224000 DC B'00000000' 05225000 ORG RPDATAB+1793 05226000 ORG @NM00003+1780 05227000 DC B'00000000' 05228000 ORG RPDATAB+1796 05229000 DC F'6' 05230000 ORG RPDATAB+1800 05231000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 05232000 @01 EQU 01 05233000 @02 EQU 02 05234000 @03 EQU 03 05235000 @04 EQU 04 05236000 @05 EQU 05 05237000 @06 EQU 06 05238000 @07 EQU 07 05239000 @08 EQU 08 05240000 @09 EQU 09 05241000 @10 EQU 10 05242000 @11 EQU 11 05243000 @12 EQU 12 05244000 @13 EQU 13 05245000 @14 EQU 14 05246000 @15 EQU 15 05247000 GPR09 EQU @09 05248000 GPR10 EQU @10 05249000 GPR00F EQU @00 05250000 GPR01F EQU @01 05251000 GPR14F EQU @14 05252000 GPR15F EQU @15 05253000 GPR11 EQU @11 05254000 GPR12 EQU @12 05255000 GPR00P EQU @00 05256000 GPR01P EQU @01 05257000 GPR14P EQU @14 05258000 GPR15P EQU @15 05259000 EXTRN IRBMFLPV 05260000 SMFRCD71 EQU 0 05261000 SMF71SIZ EQU SMFRCD71+18 05262000 SMF71INT EQU SMFRCD71+28 05263000 SMF71A EQU 0 05264000 SMF71SPC EQU SMF71A 05265000 SMF71B EQU 0 05266000 SMF71PIN EQU SMF71B 05267000 SMF71POT EQU SMF71B+4 05268000 SMF71PRC EQU SMF71B+8 05269000 SMF71SSQ EQU SMF71B+12 05270000 SMF71SIN EQU SMF71B+16 05271000 SMF71SOT EQU SMF71B+20 05272000 SMF71VIN EQU SMF71B+24 05273000 SMF71VOT EQU SMF71B+28 05274000 SMF71VRC EQU SMF71B+32 05275000 SMF71SNI EQU SMF71B+36 05276000 SMF71SNO EQU SMF71B+40 05277000 SMF71SNR EQU SMF71B+44 05278000 SMF71SVI EQU SMF71B+48 05279000 SMF71SVO EQU SMF71B+52 05280000 SMF71SVR EQU SMF71B+56 05281000 SMF71AFC EQU SMF71B+60 05282000 SMF71TFC EQU SMF71B+64 05283000 SMF71TSC EQU SMF71B+68 05284000 SMF71DSC EQU SMF71B+72 05285000 SMF71VSC EQU SMF71B+76 05286000 SMF71NSC EQU SMF71B+80 05287000 IRBMFCNV EQU 0 05288000 MFISRHDR EQU 0 05289000 MFISRTXT EQU 0 05290000 MFWRTPAG EQU 0 05291000 RPLNGPRT EQU 0 05292000 RPLENGTH EQU RPLNGPRT 05293000 RPTEXT EQU RPLNGPRT+4 05294000 IKEBC EQU 0 05295000 IKEBF15 EQU 0 05296000 IKEBF31 EQU 0 05297000 IKEBP15 EQU 0 05298000 IKEBP31 EQU 0 05299000 IKEBP8 EQU 0 05300000 RPDATPTR EQU 0 05301000 RPVECTAB EQU 0 05302000 PRNUMLIN EQU 0 05303000 SMF71PTR EQU RPDATPTR 05304000 AGO .@UNREFD START UNREFERENCED COMPONENTS 05305000 SMF71SPD EQU SMF71A+2 05306000 SMF71RLS EQU SMFRCD71+44 05307000 SMF71RV1 EQU SMFRCD71+42 05308000 SMF71MFV EQU SMFRCD71+40 05309000 SMF71SAM EQU SMFRCD71+36 05310000 SMF71SUB EQU SMFRCD71+34 05311000 SMF71CYC EQU SMFRCD71+32 05312000 SMF71DAT EQU SMFRCD71+24 05313000 SMF71IST EQU SMFRCD71+20 05314000 SMF71SID EQU SMFRCD71+14 05315000 SMF71DTE EQU SMFRCD71+10 05316000 SMF71TME EQU SMFRCD71+6 05317000 SMF71RTY EQU SMFRCD71+5 05318000 SMF71FLG EQU SMFRCD71+4 05319000 SMF71SEG EQU SMFRCD71+2 05320000 SMF71LEN EQU SMFRCD71 05321000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05322000 @RC00134 EQU @PB00003 05323000 @RF00354 EQU @EL00005 05324000 @ENDDATA EQU * 05325000 END IRBMFRPR,(C'PLS2322',0701,76105) 05326000