TITLE 'IEFJRASP-ROUTE TO ALL ACTIVE SUBSYSTEMS *00001000 ' 00002000 IEFJRASP CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEFJRASP 73.317' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @11,@01 0001 00016000 USING @DATD,@11 0001 00017000 ST @13,@SA00001+4 0001 00018000 LM @00,@01,20(@13) 0001 00019000 ST @11,8(,@13) 0001 00020000 LR @13,@11 0001 00021000 * SSOBPTR=SSOBADDR; /* SET UP ADDRESSABILITY FOR THE 00022000 * SSOB */ 00023000 ST SSOBADDR,SSOBPTR 0038 00024000 * SSCVTPTR=JESSSCT; /* GET THE ADDR OF THE FIRST 0039 00025000 * SSCVT */ 00026000 L @10,CVTPTR 0039 00027000 L @10,CVTJESCT(,@10) 0039 00028000 L SSCVTPTR,JESSSCT(,@10) 0039 00029000 * RESPECIFY 0040 00030000 * (SSCVTADR, 0040 00031000 * SSOBADDR) UNRSTD; 0040 00032000 * SSIBSAVE=SSOBSSIB; /* SAVE PTR TO CALLER'S SSIB */ 00033000 L @10,SSOBPTR 0041 00034000 L SSIBSAVE,SSOBSSIB(,@10) 0041 00035000 * R15RTNCD=INITRTN; /* INITIALIZE THE RETURN CODE 0042 00036000 * FROM THE SUBSYSTEM INTERFACE 00037000 * TO '7FFFFFFF'X */ 00038000 L R15RTNCD,INITRTN 0042 00039000 * SSRTNCD=INITRTN1; /* INITIALIZE THE RETURN CODE 0043 00040000 * FROM THE SUBSYSTEMS TO ZERO */ 00041000 L @15,INITRTN1 0043 00042000 LR SSRTNCD,@15 0043 00043000 * SSOBRETN=INITRTN1; /* INITIALIZE THE RETURN CODE IN 00044000 * THE SSOB TO ZERO @YM01982*/ 00045000 * 0044 00046000 ST @15,SSOBRETN(,@10) 0044 00047000 * /*****************************************************************/ 00048000 * /* */ 00049000 * /* THE FOLLOWING CODE GET CORE FOR A SSIB AND COPY THE INPUT SSIB*/ 00050000 * /* INTO IT,SCANS THE SSCVT CHAIN,PUTS THE NAME OF THE SUBSYSTEM */ 00051000 * /* ASSOCIATED WITH EACH SSCVT IN THE SSIB, AND ISSUES THE */ 00052000 * /* IEFSSREQ MACRO. THIS IS DONE FOR EACH SUBSYSTEM EXCEPT THE */ 00053000 * /* MASTER. ON RETURN FROM THE IEFSSREQ CALL, THE RETURN CODES */ 00054000 * /* FROM THE SUBSYSTEM INTERFACE AND THE SUBSYSTEM ARE COMPARED */ 00055000 * /* WITH THE EXISTING RETURN CODES. IF THE RETURN CODE FROM THE */ 00056000 * /* SUBSYSTEM INTERFACE IS LESS THAN OR EQUAL TO THE CURRENT */ 00057000 * /* LOWEST THEN REPLACE THE CURRENT LOWEST INTERFACE RETURN CODE */ 00058000 * /* AND SAVE THE LARGER OF THE TWO RETURN CODES FROM THE */ 00059000 * /* SUBSYSTEM. AFTER ALL SUBSYSTEMS HAVE BEEN INVOKED, CONTROL IS */ 00060000 * /* RETURNED TO THE CALLER PASSING BACK THE RETURN CODES. */ 00061000 * /* */ 00062000 * /*****************************************************************/ 00063000 * 0045 00064000 * RESPECIFY 0045 00065000 * (R0, 0045 00066000 * R1) RSTD; 0045 00067000 * R0=LENGTH(SSIB); /* GET LENGTH OF SSIB */ 00068000 LA R0,36 0046 00069000 * R0=R0|SUBPOOL; /* PUT IN SUBPOOL # */ 00070000 O R0,SUBPOOL 0047 00071000 * GEN(GETMAIN R,LV=(0)); /* GET CORE FOR ROUTE TO ALL SSIB*/ 00072000 GETMAIN R,LV=(0) 00073000 * SSIBRTE(1:SSIBLEN)=SSIB; /* COPY INPUT SSIB TO ROUTE TO 0049 00074000 * ALL SSIB */ 00075000 L @10,SSOBPTR 0049 00076000 L @15,SSOBSSIB(,@10) 0049 00077000 LH @14,SSIBLEN(,@15) 0049 00078000 BCTR @14,0 0049 00079000 EX @14,@SM00729 0049 00080000 * SSOBSSIB=R1; /* CHAIN THE NEW SSIB TO THE SSOB*/ 00081000 ST R1,SSOBSSIB(,@10) 0050 00082000 * RESPECIFY 0051 00083000 * (R0, 0051 00084000 * R1) UNRSTD; 0051 00085000 * DO WHILE SSCVTPTR^=0; /* INVOKE EACH SUBSYSTEM 0052 00086000 * ASSOCIATED WITH AN SSCVT 0052 00087000 * EXCEPT THE MASTER */ 00088000 B @DE00052 0052 00089000 @DL00052 DS 0H 0053 00090000 * IF SSCTSNAM^=MSTR THEN 0053 00091000 CLC SSCTSNAM(4,SSCVTPTR),MSTR 0053 00092000 BE @RF00053 0053 00093000 * DO; /* PROCESS FOR EACH SUBSYSTEM 0054 00094000 * EXCEPT THE MASTER */ 00095000 * ENDLIST='1'B; /* SET END OF LIST INDICATOR IN 00096000 * THE IEFSSREQ PARAMETER LIST */ 00097000 OI ENDLIST,B'10000000' 0055 00098000 * SSIBSSNM=SSCTSNAM; /* PUT THE SUBSYSTEM NAME IN THE 00099000 * SSIB */ 00100000 L @10,SSOBPTR 0056 00101000 L @10,SSOBSSIB(,@10) 0056 00102000 MVC SSIBSSNM(4,@10),SSCTSNAM(SSCVTPTR) 0056 00103000 * RESPECIFY 0057 00104000 * PARMPTR RSTD; 0057 00105000 * PARMPTR=ADDR(PARMLIST); /* PUT PARMLIST LIST ADDR IN REG 00106000 * 1 0058 00107000 * */ 00108000 LA PARMPTR,PARMLIST 0058 00109000 * 0059 00110000 * /***********************************************************/ 00111000 * /* */ 00112000 * /* ? IEFSSREQ; */ 00113000 * /* */ 00114000 * /***********************************************************/ 00115000 * 0059 00116000 */* */ 00117000 */* PASS CONTROL TO JOB ENTRY SUBSYSTEM TO */ 00118000 */* PROCESS REQUEST - */ 00119000 */* */ 00120000 */* INPUT - REGISTER 1 POINTS TO A ONE- */ 00121000 */* WORD PARAMETER LIST WHICH */ 00122000 */* POINTS TO THE SSOB */ 00123000 */* */ 00124000 * 0059 00125000 * CALL SSREQ; 0059 00126000 L @10,CVTPTR 0059 00127000 L @10,CVTJESCT(,@10) 0059 00128000 L @15,JESSSREQ(,@10) 0059 00129000 BALR @14,@15 0059 00130000 * RESPECIFY 0060 00131000 * PARMPTR UNRSTD; 0060 00132000 * RESPECIFY 0061 00133000 * RTNCODE RSTD; 0061 00134000 * IF RTNCODE^>R15RTNCD THEN 0062 00135000 CR RTNCODE,R15RTNCD 0062 00136000 BH @RF00062 0062 00137000 * DO; /* IF THE RETURN CODE FROM THE 0063 00138000 * SUBSYSTEM INTERFACE IS NOT 0063 00139000 * LARGER THAN THE CURRENT 0063 00140000 * LARGEST,THEN REPLACE THE 0063 00141000 * CURRENT SMALLEST WITH THE NEW 00142000 * SMALLEST */ 00143000 * IF RTNCODESSRTNCD THEN 0069 00162000 B @RC00064 0069 00163000 @RF00064 L @14,SSOBPTR 0069 00164000 L @14,SSOBRETN(,@14) 0069 00165000 CR @14,SSRTNCD 0069 00166000 BNH @RF00069 0069 00167000 * SSRTNCD=SSOBRETN; /* IF THE SUBSYSTEM JUST INVOKED 00168000 * RETURNED A LARGER RETURN CODE 00169000 * THAN THE CURRENT LARGEST,THEN 00170000 * REPLACE THE CURRENT LARGEST 0070 00171000 * WITH THE NEW LARGEST */ 00172000 LR SSRTNCD,@14 0070 00173000 * END; 0071 00174000 @RF00069 DS 0H 0071 00175000 @RC00064 DS 0H 0072 00176000 * RESPECIFY 0072 00177000 * RTNCODE UNRSTD; 0072 00178000 @RF00062 DS 0H 0073 00179000 * END; 0073 00180000 * SSCVTPTR=SSCTSCTA; /* GET PTR TO NEXT SSCVT */ 00181000 @RF00053 L SSCVTPTR,SSCTSCTA(,SSCVTPTR) 0074 00182000 * END; 0075 00183000 @DE00052 LTR SSCVTPTR,SSCVTPTR 0075 00184000 BNZ @DL00052 0075 00185000 * RESPECIFY 0076 00186000 * (R0, 0076 00187000 * R1) RSTD; 0076 00188000 * R0=LENGTH(SSIB); 0077 00189000 LA R0,36 0077 00190000 * R0=R0|SUBPOOL; /* PUT SUBPOOL # WITH SSIB LENGTH*/ 00191000 O R0,SUBPOOL 0078 00192000 * R1=SSOBSSIB; /* PUT ADDR OF SSIB IN REG 1 */ 00193000 L @10,SSOBPTR 0079 00194000 L R1,SSOBSSIB(,@10) 0079 00195000 * GEN(FREEMAIN R,LV=(0),A=(1)); /* FREE THE ROUTE TO ALL SSIB */ 00196000 FREEMAIN R,LV=(0),A=(1) 00197000 * RESPECIFY 0081 00198000 * (R0, 0081 00199000 * R1) UNRSTD; 0081 00200000 * SSOBSSIB=SSIBSAVE; /* RESTORE THE ISSUER'S SUBSYSTEM 00201000 * NAME */ 00202000 L @10,SSOBPTR 0082 00203000 ST SSIBSAVE,SSOBSSIB(,@10) 0082 00204000 * SSOBRETN=SSRTNCD; /* RETURN THE LARGEST RETURN CODE 00205000 * PASSED BACK FROM A SUBSYSTEM */ 00206000 ST SSRTNCD,SSOBRETN(,@10) 0083 00207000 * RETURN CODE(R15RTNCD); /* RETURN THE LARGEST RETURN CODE 00208000 * FROM THE SUBSYSTEM INTERFACE 00209000 * TO THE CALLER */ 00210000 L @13,4(,@13) 0084 00211000 L @00,@SIZDATD 0084 00212000 LR @01,@11 0084 00213000 FREEMAIN R,LV=(0),A=(1) 00214000 LR @15,@03 0084 00215000 L @14,12(,@13) 0084 00216000 LM @00,@12,20(@13) 0084 00217000 BR @14 0084 00218000 * END IEFJRASP 0085 00219000 * 0085 00220000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00221000 */*%INCLUDE SYSLIB (CVT ) */ 00222000 */*%INCLUDE SYSLIB (IEFJESCT) */ 00223000 */*%INCLUDE SYSLIB (IEFJSSOB) */ 00224000 */*%INCLUDE SYSLIB (IEFJSSIB) */ 00225000 */*%INCLUDE SYSLIB (IEFJSCVT) */ 00226000 * 0085 00227000 * ; 0085 00228000 @DATA DS 0H 00229000 @SM00729 MVC SSIBRTE(0,R1),SSIB(@15) 00230000 @DATD DSECT 00231000 DS 0F 00232000 @SA00001 DS 18F 00233000 IEFJRASP CSECT 00234000 DS 0F 00235000 @DATD DSECT 00236000 DS 0D 00237000 PARMLIST DS BL4 00238000 ORG PARMLIST 00239000 SSOBPTR DS AL4 00240000 ORG SSOBPTR 00241000 ENDLIST DS BL1 00242000 @NM00001 EQU SSOBPTR+0 00243000 ORG PARMLIST+4 00244000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00245000 @ENDDATD EQU * 00246000 IEFJRASP CSECT 00247000 DS 0F 00248000 @SIZDATD DC AL1(230) 00249000 DC AL3(@ENDDATD-@DATD) 00250000 DS 0D 00251000 INITRTN1 DC XL4'00000000' 00252000 INITRTN DC XL4'7FFFFFFF' 00253000 SUBPOOL DC XL4'E6000000' 00254000 MSTR DC CL4'MSTR' 00255000 PATCH DC CL60' ' 00256000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00257000 @01 EQU 01 00258000 @02 EQU 02 00259000 @03 EQU 03 00260000 @04 EQU 04 00261000 @05 EQU 05 00262000 @06 EQU 06 00263000 @07 EQU 07 00264000 @08 EQU 08 00265000 @09 EQU 09 00266000 @10 EQU 10 00267000 @11 EQU 11 00268000 @12 EQU 12 00269000 @13 EQU 13 00270000 @14 EQU 14 00271000 @15 EQU 15 00272000 SSIBSAVE EQU @05 00273000 SSRTNCD EQU @04 00274000 R15RTNCD EQU @03 00275000 SSCVTPTR EQU @02 00276000 SSCVTADR EQU @00 00277000 SSOBADDR EQU @01 00278000 PARMPTR EQU @01 00279000 R0 EQU @00 00280000 R1 EQU @01 00281000 RTNCODE EQU @15 00282000 CVTPTR EQU 16 00283000 SSIBRTE EQU 0 00284000 CVTMAP EQU 0 00285000 CVTDAR EQU CVTMAP+72 00286000 CVTFLGS1 EQU CVTDAR 00287000 CVTDCB EQU CVTMAP+116 00288000 CVTOPTA EQU CVTMAP+182 00289000 CVTOPTB EQU CVTMAP+183 00290000 CVTGTF EQU CVTMAP+236 00291000 CVTGTFST EQU CVTGTF 00292000 CVTGTFS EQU CVTGTFST 00293000 CVTSTATE EQU CVTGTFST 00294000 CVTTMODE EQU CVTGTFST 00295000 CVTFORM EQU CVTGTFST 00296000 CVTUSR EQU CVTGTFST 00297000 CVTAQAVT EQU CVTMAP+240 00298000 CVTTCMFG EQU CVTAQAVT 00299000 CVTVOLM2 EQU CVTMAP+244 00300000 CVTTATA EQU CVTVOLM2 00301000 CVTTSKS EQU CVTTATA 00302000 CVTVOLF2 EQU CVTTSKS 00303000 CVTTAT EQU CVTTATA+1 00304000 CVTATER EQU CVTMAP+248 00305000 CVTEXT1 EQU CVTMAP+252 00306000 CVTPURG EQU CVTMAP+260 00307000 CVTQMSG EQU CVTMAP+268 00308000 CVTDMSR EQU CVTMAP+272 00309000 CVTJESCT EQU CVTMAP+296 00310000 CVTAPF EQU CVTMAP+324 00311000 CVTEXT2 EQU CVTMAP+328 00312000 CVTHJES EQU CVTMAP+332 00313000 CVTPGSIA EQU CVTMAP+348 00314000 CVTA1F1 EQU CVTMAP+356 00315000 CVTSYSK EQU CVTMAP+357 00316000 CVTVOLM1 EQU CVTMAP+380 00317000 CVTVOLF1 EQU CVTVOLM1 00318000 CVTATMCT EQU CVTMAP+388 00319000 CVTXTNT1 EQU 0 00320000 CVTXTNT2 EQU 0 00321000 CVTDSSV EQU CVTXTNT2 00322000 CVTRSV90 EQU CVTXTNT2+5 00323000 CVTQID EQU CVTXTNT2+24 00324000 CVTRV400 EQU CVTXTNT2+52 00325000 CVTRV409 EQU CVTXTNT2+53 00326000 CVTATCVT EQU CVTXTNT2+64 00327000 CVTRV429 EQU CVTXTNT2+84 00328000 CVTRV438 EQU CVTXTNT2+85 00329000 CVTRV457 EQU CVTXTNT2+112 00330000 CVTRV466 EQU CVTXTNT2+113 00331000 CVTFIX EQU 0 00332000 CVTRELNO EQU CVTFIX+252 00333000 JESCT EQU 0 00334000 JESWAA EQU JESCT+8 00335000 JESSSREQ EQU JESCT+20 00336000 JESSSCT EQU JESCT+24 00337000 SSREQ EQU 0 00338000 SSOB EQU 0 00339000 SSOBSSIB EQU SSOB+8 00340000 SSOBRETN EQU SSOB+12 00341000 SSIB EQU 0 00342000 SSIBLEN EQU SSIB+4 00343000 SSIBFLG1 EQU SSIB+6 00344000 SSIBSSNM EQU SSIB+8 00345000 SSCT EQU 0 00346000 SSCTSCTA EQU SSCT+4 00347000 SSCTSNAM EQU SSCT+8 00348000 SWAMGR EQU 0 00349000 CVTS01 EQU CVTPGSIA 00350000 CVTLPDIA EQU CVTS01+12 00351000 CVTDIRST EQU CVTLPDIA 00352000 CVTSLIDA EQU CVTS01+24 00353000 CVTCTLFG EQU CVTS01+50 00354000 CVTRV210 EQU CVTS01+424 00355000 CVTRV219 EQU CVTS01+425 00356000 CVTRV228 EQU CVTS01+426 00357000 CVTRV237 EQU CVTS01+427 00358000 CVTMFRTR EQU CVTS01+452 00359000 CVTRV262 EQU CVTS01+468 00360000 CVTRV271 EQU CVTS01+469 00361000 CVTRV280 EQU CVTS01+470 00362000 CVTRV289 EQU CVTS01+471 00363000 CVTGSDA EQU CVTS01+600 00364000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00365000 CVTTPIO EQU CVTS01+608 00366000 CVTADV EQU CVTS01+604 00367000 CVTGSDAB EQU CVTGSDA 00368000 CVTQV3 EQU CVTS01+596 00369000 CVTQV2 EQU CVTS01+592 00370000 CVTQV1 EQU CVTS01+588 00371000 CVTRPT EQU CVTS01+584 00372000 CVTSSRB EQU CVTS01+580 00373000 CVTCSDRL EQU CVTS01+576 00374000 CVTEXP1 EQU CVTS01+572 00375000 CVTRMPMT EQU CVTS01+568 00376000 CVTRMPTT EQU CVTS01+564 00377000 CVTVPSA EQU CVTS01+560 00378000 CVTVSTOP EQU CVTS01+556 00379000 CVTGTFR8 EQU CVTS01+552 00380000 CVTQUIT EQU CVTS01+548 00381000 CVTVACR EQU CVTS01+544 00382000 CVTWTCB EQU CVTS01+540 00383000 CVTSTPRS EQU CVTS01+536 00384000 CVT0PT02 EQU CVTS01+532 00385000 CVTDARCM EQU CVTS01+528 00386000 CVTIRECM EQU CVTS01+524 00387000 CVTJRECM EQU CVTS01+520 00388000 CVTVEMS0 EQU CVTS01+516 00389000 CVTSPFRR EQU CVTS01+512 00390000 CVTRLSTG EQU CVTS01+508 00391000 CVT0TC0A EQU CVTS01+504 00392000 CVTGMBR EQU CVTS01+500 00393000 CVTLFRM EQU CVTS01+496 00394000 CVTRMBR EQU CVTS01+492 00395000 CVTVIOP EQU CVTS01+488 00396000 CVTRV307 EQU CVTS01+486 00397000 CVTRV306 EQU CVTS01+484 00398000 CVTRV305 EQU CVTS01+482 00399000 CVTRV304 EQU CVTS01+480 00400000 CVTRV303 EQU CVTS01+478 00401000 CVTRV302 EQU CVTS01+476 00402000 CVTRV301 EQU CVTS01+475 00403000 CVTRV300 EQU CVTS01+474 00404000 CVTRV299 EQU CVTS01+473 00405000 CVTRV298 EQU CVTS01+472 00406000 CVTRV297 EQU CVTRV289 00407000 CVTRV296 EQU CVTRV289 00408000 CVTRV295 EQU CVTRV289 00409000 CVTRV294 EQU CVTRV289 00410000 CVTRV293 EQU CVTRV289 00411000 CVTRV292 EQU CVTRV289 00412000 CVTRV291 EQU CVTRV289 00413000 CVTRV290 EQU CVTRV289 00414000 CVTRV288 EQU CVTRV280 00415000 CVTRV287 EQU CVTRV280 00416000 CVTRV286 EQU CVTRV280 00417000 CVTRV285 EQU CVTRV280 00418000 CVTRV284 EQU CVTRV280 00419000 CVTRV283 EQU CVTRV280 00420000 CVTRV282 EQU CVTRV280 00421000 CVTRV281 EQU CVTRV280 00422000 CVTRV279 EQU CVTRV271 00423000 CVTRV278 EQU CVTRV271 00424000 CVTRV277 EQU CVTRV271 00425000 CVTRV276 EQU CVTRV271 00426000 CVTRV275 EQU CVTRV271 00427000 CVTRV274 EQU CVTRV271 00428000 CVTRV273 EQU CVTRV271 00429000 CVTRV272 EQU CVTRV271 00430000 CVTRV270 EQU CVTRV262 00431000 CVTRV269 EQU CVTRV262 00432000 CVTRV268 EQU CVTRV262 00433000 CVTRV267 EQU CVTRV262 00434000 CVTRV266 EQU CVTRV262 00435000 CVTRV265 EQU CVTRV262 00436000 CVTRV264 EQU CVTRV262 00437000 CVTRV263 EQU CVTRV262 00438000 CVTVFP EQU CVTS01+464 00439000 CVTVSI EQU CVTS01+460 00440000 CVTVPSIB EQU CVTS01+456 00441000 CVTMFACT EQU CVTMFRTR 00442000 CVTMFCTL EQU CVTS01+448 00443000 CVTPVBP EQU CVTS01+444 00444000 CVTPWI EQU CVTS01+440 00445000 CVTRV254 EQU CVTS01+438 00446000 CVTRV253 EQU CVTS01+436 00447000 CVTRV252 EQU CVTS01+434 00448000 CVTRV251 EQU CVTS01+433 00449000 CVTRV250 EQU CVTS01+432 00450000 CVTRV249 EQU CVTS01+431 00451000 CVTRV248 EQU CVTS01+430 00452000 CVTRV247 EQU CVTS01+429 00453000 CVTRV246 EQU CVTS01+428 00454000 CVTRV245 EQU CVTRV237 00455000 CVTRV244 EQU CVTRV237 00456000 CVTRV243 EQU CVTRV237 00457000 CVTRV242 EQU CVTRV237 00458000 CVTRV241 EQU CVTRV237 00459000 CVTRV240 EQU CVTRV237 00460000 CVTRV239 EQU CVTRV237 00461000 CVTRV238 EQU CVTRV237 00462000 CVTRV236 EQU CVTRV228 00463000 CVTRV235 EQU CVTRV228 00464000 CVTRV234 EQU CVTRV228 00465000 CVTRV233 EQU CVTRV228 00466000 CVTRV232 EQU CVTRV228 00467000 CVTRV231 EQU CVTRV228 00468000 CVTRV230 EQU CVTRV228 00469000 CVTRV229 EQU CVTRV228 00470000 CVTRV227 EQU CVTRV219 00471000 CVTRV226 EQU CVTRV219 00472000 CVTRV225 EQU CVTRV219 00473000 CVTRV224 EQU CVTRV219 00474000 CVTRV223 EQU CVTRV219 00475000 CVTRV222 EQU CVTRV219 00476000 CVTRV221 EQU CVTRV219 00477000 CVTRV220 EQU CVTRV219 00478000 CVTRV218 EQU CVTRV210 00479000 CVTRV217 EQU CVTRV210 00480000 CVTRV216 EQU CVTRV210 00481000 CVTRV215 EQU CVTRV210 00482000 CVTRV214 EQU CVTRV210 00483000 CVTRV213 EQU CVTRV210 00484000 CVTRV212 EQU CVTRV210 00485000 CVTRV211 EQU CVTRV210 00486000 CVTLCCAT EQU CVTS01+420 00487000 CVTPCCAT EQU CVTS01+416 00488000 CVTIPCRP EQU CVTS01+412 00489000 CVTIPCRI EQU CVTS01+408 00490000 CVTIPCDS EQU CVTS01+404 00491000 CVTAIDVT EQU CVTS01+400 00492000 CVTSSAP EQU CVTS01+396 00493000 CVTEHCIR EQU CVTS01+392 00494000 CVTEHDEF EQU CVTS01+388 00495000 CVTDAIR EQU CVTS01+384 00496000 CVTPERFM EQU CVTS01+380 00497000 CVT044R2 EQU CVTS01+376 00498000 CVTFETCH EQU CVTS01+372 00499000 CVTRSTWD EQU CVTS01+368 00500000 CVTSPOST EQU CVTS01+364 00501000 CVTIOBP EQU CVTS01+360 00502000 CVTASMVT EQU CVTS01+356 00503000 CVTRECRQ EQU CVTS01+352 00504000 CVTWSAC EQU CVTS01+348 00505000 CVTWSAG EQU CVTS01+344 00506000 CVTWSAL EQU CVTS01+340 00507000 CVTSPSA EQU CVTS01+336 00508000 CVTGLMN EQU CVTS01+332 00509000 CVTVEAC0 EQU CVTS01+328 00510000 CVT062R1 EQU CVTS01+324 00511000 CVTRPOST EQU CVTS01+320 00512000 CVTDQIQE EQU CVTS01+316 00513000 CVTCSD EQU CVTS01+312 00514000 CVTLKRMA EQU CVTS01+308 00515000 CVTRSPIE EQU CVTS01+304 00516000 CVTRENQ EQU CVTS01+300 00517000 CVTLQCB EQU CVTS01+296 00518000 CVTFQCB EQU CVTS01+292 00519000 CVTQCS01 EQU CVTS01+288 00520000 CVTAPFT EQU CVTS01+284 00521000 CVTPARRL EQU CVTS01+280 00522000 CVTVWAIT EQU CVTS01+276 00523000 CVTGSPL EQU CVTS01+272 00524000 CVTLSMQ EQU CVTS01+268 00525000 CVTGSMQ EQU CVTS01+264 00526000 CVTEXPRO EQU CVTS01+260 00527000 CVTOPCTP EQU CVTS01+256 00528000 CVTSIC EQU CVTS01+252 00529000 CVTTPIOS EQU CVTS01+248 00530000 CVTRTMS EQU CVTS01+244 00531000 CVTSDBF EQU CVTS01+240 00532000 CVTSCBP EQU CVTS01+236 00533000 CVTSDMP EQU CVTS01+232 00534000 CVTSV60 EQU CVTS01+228 00535000 CVTRTMCT EQU CVTS01+224 00536000 CVTASCBL EQU CVTS01+220 00537000 CVTASCBH EQU CVTS01+216 00538000 CVTGDA EQU CVTS01+212 00539000 CVTASVT EQU CVTS01+208 00540000 CVTVVMDI EQU CVTS01+204 00541000 CVTAQTOP EQU CVTS01+200 00542000 CVTIOSCS EQU CVTS01+196 00543000 CVTSDRM EQU CVTS01+192 00544000 CVTOPTE EQU CVTS01+188 00545000 CVTSTXU EQU CVTS01+184 00546000 CVTQUIS EQU CVTS01+180 00547000 CVTPARS EQU CVTS01+176 00548000 CVTS1EE EQU CVTS01+172 00549000 CVTFRAS EQU CVTS01+168 00550000 CVTQSAS EQU CVTS01+164 00551000 CVTCRAS EQU CVTS01+160 00552000 CVTCRMN EQU CVTS01+156 00553000 CVTDELCP EQU CVTS01+152 00554000 CVTFRECL EQU CVTS01+148 00555000 CVTGETCL EQU CVTS01+144 00556000 CVTBLDCP EQU CVTS01+140 00557000 CVTAUTHL EQU CVTS01+136 00558000 CVTSCAN EQU CVTS01+132 00559000 CVTRV144 EQU CVTS01+130 00560000 CVTMAXMP EQU CVTS01+128 00561000 CVTSTCK EQU CVTS01+124 00562000 CVTRV139 EQU CVTS01+123 00563000 CVTDSSAC EQU CVTS01+122 00564000 CVTRV513 EQU CVTS01+121 00565000 CVTIOSPL EQU CVTS01+120 00566000 CVTPTGT EQU CVTS01+116 00567000 CVTCSPIE EQU CVTS01+112 00568000 CVTSMFEX EQU CVTS01+108 00569000 CVTOLT0A EQU CVTS01+104 00570000 CVTSRBRT EQU CVTS01+100 00571000 CVTPUTL EQU CVTS01+96 00572000 CVTSYSWT EQU CVTS01+92 00573000 CVTRV327 EQU CVTS01+88 00574000 CVTRV326 EQU CVTS01+84 00575000 CVTRV325 EQU CVTS01+80 00576000 CVTRV324 EQU CVTS01+76 00577000 CVT0VL01 EQU CVTS01+72 00578000 CVTSHRVM EQU CVTS01+68 00579000 CVTRV332 EQU CVTS01+64 00580000 CVTTAS EQU CVTS01+60 00581000 CVTRSCN EQU CVTS01+56 00582000 CVTTRAC2 EQU CVTS01+54 00583000 CVTTRACE EQU CVTS01+52 00584000 CVTAPG EQU CVTS01+51 00585000 CVTSDTRC EQU CVTCTLFG 00586000 CVTGTRCE EQU CVTCTLFG 00587000 CVTNOMP EQU CVTCTLFG 00588000 CVTRSV79 EQU CVTCTLFG 00589000 CVTDSTAT EQU CVTCTLFG 00590000 CVTRSV78 EQU CVTCTLFG 00591000 CVTRV333 EQU CVTCTLFG 00592000 CVTRV323 EQU CVTCTLFG 00593000 CVTSPVLK EQU CVTS01+49 00594000 CVTRSV77 EQU CVTS01+48 00595000 CVTRV331 EQU CVTS01+44 00596000 CVTRV330 EQU CVTS01+40 00597000 CVTRV329 EQU CVTS01+36 00598000 CVTRV328 EQU CVTS01+32 00599000 CVTRV322 EQU CVTS01+28 00600000 CVTSLID EQU CVTSLIDA+1 00601000 CVTSYLK EQU CVTSLIDA 00602000 CVTRV321 EQU CVTS01+20 00603000 CVTRV320 EQU CVTS01+16 00604000 CVTLPDIR EQU CVTLPDIA+1 00605000 CVTRSV69 EQU CVTDIRST 00606000 CVTRSV68 EQU CVTDIRST 00607000 CVTRSV67 EQU CVTDIRST 00608000 CVTRSV66 EQU CVTDIRST 00609000 CVTRSV65 EQU CVTDIRST 00610000 CVTRSV64 EQU CVTDIRST 00611000 CVTRSV63 EQU CVTDIRST 00612000 CVTDICOM EQU CVTDIRST 00613000 CVTPVTP EQU CVTS01+8 00614000 CVTLPDSR EQU CVTS01+4 00615000 CVTGETL EQU CVTS01 00616000 SSCTSUSE EQU SSCT+20 00617000 SSCTSSVT EQU SSCT+16 00618000 SSCTRSV1 EQU SSCT+13 00619000 SSCTFLG1 EQU SSCT+12 00620000 SSCTID EQU SSCT 00621000 SSIBSUSE EQU SSIB+32 00622000 SSIBRSV1 EQU SSIB+28 00623000 SSIBDEST EQU SSIB+20 00624000 SSIBJBID EQU SSIB+12 00625000 SSIBRESV EQU SSIB+7 00626000 @NM00005 EQU SSIBFLG1 00627000 SSIBPJES EQU SSIBFLG1 00628000 SSIBID EQU SSIB 00629000 SSOBINDV EQU SSOB+16 00630000 SSOBFUNC EQU SSOB+6 00631000 SSOBLEN EQU SSOB+4 00632000 SSOBID EQU SSOB 00633000 JESPJESN EQU JESCT+28 00634000 JESRESQM EQU JESCT+16 00635000 JESQMGR EQU JESCT+12 00636000 JESUNITS EQU JESCT+4 00637000 @NM00004 EQU JESCT 00638000 CVTLEVL EQU CVTRELNO+2 00639000 CVTNUMB EQU CVTRELNO 00640000 CVTMDL EQU CVTFIX+250 00641000 @NM00003 EQU CVTFIX+248 00642000 @NM00002 EQU CVTFIX 00643000 CVTRV482 EQU CVTXTNT2+128 00644000 CVTRV481 EQU CVTXTNT2+124 00645000 CVTRV480 EQU CVTXTNT2+120 00646000 CVTRV479 EQU CVTXTNT2+118 00647000 CVTRV478 EQU CVTXTNT2+117 00648000 CVTRV477 EQU CVTXTNT2+116 00649000 CVTRV476 EQU CVTXTNT2+115 00650000 CVTRV475 EQU CVTXTNT2+114 00651000 CVTRV474 EQU CVTRV466 00652000 CVTRV473 EQU CVTRV466 00653000 CVTRV472 EQU CVTRV466 00654000 CVTRV471 EQU CVTRV466 00655000 CVTRV470 EQU CVTRV466 00656000 CVTRV469 EQU CVTRV466 00657000 CVTRV468 EQU CVTRV466 00658000 CVTRV467 EQU CVTRV466 00659000 CVTRV465 EQU CVTRV457 00660000 CVTRV464 EQU CVTRV457 00661000 CVTRV463 EQU CVTRV457 00662000 CVTRV462 EQU CVTRV457 00663000 CVTRV461 EQU CVTRV457 00664000 CVTRV460 EQU CVTRV457 00665000 CVTRV459 EQU CVTRV457 00666000 CVTRV458 EQU CVTRV457 00667000 CVTRV456 EQU CVTXTNT2+108 00668000 CVTRV455 EQU CVTXTNT2+104 00669000 CVTRV454 EQU CVTXTNT2+100 00670000 CVTRV453 EQU CVTXTNT2+96 00671000 CVTRV452 EQU CVTXTNT2+94 00672000 CVTRV451 EQU CVTXTNT2+92 00673000 CVTRV450 EQU CVTXTNT2+90 00674000 CVTRV449 EQU CVTXTNT2+88 00675000 CVTRV448 EQU CVTXTNT2+87 00676000 CVTRV447 EQU CVTXTNT2+86 00677000 CVTRV446 EQU CVTRV438 00678000 CVTRV445 EQU CVTRV438 00679000 CVTRV444 EQU CVTRV438 00680000 CVTRV443 EQU CVTRV438 00681000 CVTRV442 EQU CVTRV438 00682000 CVTRV441 EQU CVTRV438 00683000 CVTRV440 EQU CVTRV438 00684000 CVTRV439 EQU CVTRV438 00685000 CVTRV437 EQU CVTRV429 00686000 CVTRV436 EQU CVTRV429 00687000 CVTRV435 EQU CVTRV429 00688000 CVTRV434 EQU CVTRV429 00689000 CVTRV433 EQU CVTRV429 00690000 CVTRV432 EQU CVTRV429 00691000 CVTRV431 EQU CVTRV429 00692000 CVTRV430 EQU CVTRV429 00693000 CVTRV428 EQU CVTXTNT2+80 00694000 CVTRV427 EQU CVTXTNT2+76 00695000 CVTRV426 EQU CVTXTNT2+72 00696000 CVTRV425 EQU CVTXTNT2+68 00697000 CVTATACT EQU CVTATCVT 00698000 CVTRV423 EQU CVTXTNT2+62 00699000 CVTRV422 EQU CVTXTNT2+60 00700000 CVTRV421 EQU CVTXTNT2+58 00701000 CVTRV420 EQU CVTXTNT2+56 00702000 CVTRV419 EQU CVTXTNT2+55 00703000 CVTRV418 EQU CVTXTNT2+54 00704000 CVTRV417 EQU CVTRV409 00705000 CVTRV416 EQU CVTRV409 00706000 CVTRV415 EQU CVTRV409 00707000 CVTRV414 EQU CVTRV409 00708000 CVTRV413 EQU CVTRV409 00709000 CVTRV412 EQU CVTRV409 00710000 CVTRV411 EQU CVTRV409 00711000 CVTRV410 EQU CVTRV409 00712000 CVTRV408 EQU CVTRV400 00713000 CVTRV407 EQU CVTRV400 00714000 CVTRV406 EQU CVTRV400 00715000 CVTRV405 EQU CVTRV400 00716000 CVTRV404 EQU CVTRV400 00717000 CVTRV403 EQU CVTRV400 00718000 CVTRV402 EQU CVTRV400 00719000 CVTRV401 EQU CVTRV400 00720000 CVTRSVA1 EQU CVTXTNT2+48 00721000 CVTRSVA0 EQU CVTXTNT2+44 00722000 CVTRSV99 EQU CVTXTNT2+40 00723000 CVTRSV98 EQU CVTXTNT2+36 00724000 CVTRSV97 EQU CVTXTNT2+34 00725000 CVTRSV96 EQU CVTXTNT2+32 00726000 CVTOLTEP EQU CVTXTNT2+28 00727000 CVTQIDA EQU CVTQID+1 00728000 CVTRSV95 EQU CVTQID 00729000 CVTRSV94 EQU CVTXTNT2+20 00730000 CVTRSV93 EQU CVTXTNT2+16 00731000 CVTRSV92 EQU CVTXTNT2+12 00732000 CVTDEBVR EQU CVTXTNT2+8 00733000 CVTRSV91 EQU CVTXTNT2+6 00734000 CVTRSV9H EQU CVTRSV90 00735000 CVTRSV9G EQU CVTRSV90 00736000 CVTRSV9F EQU CVTRSV90 00737000 CVTRSV9E EQU CVTRSV90 00738000 CVTRSV9D EQU CVTRSV90 00739000 CVTRSV9C EQU CVTRSV90 00740000 CVTRSV9B EQU CVTRSV90 00741000 CVTRSV9A EQU CVTRSV90 00742000 CVTNUCLS EQU CVTXTNT2+4 00743000 CVTDSSVA EQU CVTDSSV+1 00744000 CVTRSV89 EQU CVTDSSV 00745000 CVTRSV88 EQU CVTXTNT1+8 00746000 CVTRSV87 EQU CVTXTNT1+4 00747000 CVTFACHN EQU CVTXTNT1 00748000 CVTRV488 EQU CVTMAP+412 00749000 CVTRV487 EQU CVTMAP+408 00750000 CVTRV486 EQU CVTMAP+404 00751000 CVTRV485 EQU CVTMAP+400 00752000 CVTRV484 EQU CVTMAP+396 00753000 CVTAUTH EQU CVTMAP+392 00754000 CVTATMCA EQU CVTATMCT+1 00755000 CVTATMST EQU CVTATMCT 00756000 CVTRSV61 EQU CVTMAP+384 00757000 CVTVOLT1 EQU CVTVOLM1+1 00758000 CVTVOLI1 EQU CVTVOLF1 00759000 CVTSTOA EQU CVTMAP+376 00760000 CVTRSV58 EQU CVTMAP+374 00761000 CVTRSV57 EQU CVTMAP+372 00762000 CVTDDCE EQU CVTMAP+368 00763000 CVTPNWFR EQU CVTMAP+364 00764000 CVTSMF EQU CVTMAP+360 00765000 CVTSULK EQU CVTMAP+358 00766000 CVTSLKO EQU CVTSYSK 00767000 CVTSLKP EQU CVTSYSK 00768000 CVTSLKQ EQU CVTSYSK 00769000 CVTSLKR EQU CVTSYSK 00770000 CVTRSV56 EQU CVTSYSK 00771000 CVTRSV55 EQU CVTSYSK 00772000 CVTRSV54 EQU CVTSYSK 00773000 CVTRSV53 EQU CVTSYSK 00774000 CVTRSV52 EQU CVTA1F1 00775000 CVTRSV51 EQU CVTA1F1 00776000 CVTRSV50 EQU CVTA1F1 00777000 CVTRSV49 EQU CVTA1F1 00778000 CVTRSV48 EQU CVTA1F1 00779000 CVTRSV47 EQU CVTA1F1 00780000 CVTSRSW EQU CVTA1F1 00781000 CVTPFSW EQU CVTA1F1 00782000 CVTPCVT EQU CVTMAP+352 00783000 CVTRSV46 EQU CVTMAP+344 00784000 CVTRSV45 EQU CVTMAP+340 00785000 CVTRSV44 EQU CVTMAP+338 00786000 CVTRSV43 EQU CVTMAP+336 00787000 CVTHJESA EQU CVTHJES+1 00788000 CVTRSV42 EQU CVTHJES 00789000 CVTEXT2A EQU CVTEXT2+1 00790000 CVTRSV41 EQU CVTEXT2 00791000 CVTAPFA EQU CVTAPF+1 00792000 CVTRSV40 EQU CVTAPF 00793000 CVTINTLA EQU CVTMAP+320 00794000 CVTERPV EQU CVTMAP+316 00795000 CVTEORM EQU CVTMAP+312 00796000 CVTMCHPR EQU CVTMAP+308 00797000 CVTTZ EQU CVTMAP+304 00798000 CVTJEPS EQU CVTMAP+300 00799000 CVTMODE EQU CVTMAP+292 00800000 CVTPTRV EQU CVTMAP+288 00801000 CVTREAL EQU CVTMAP+284 00802000 CVTRSV39 EQU CVTMAP+280 00803000 CVTRSV38 EQU CVTMAP+276 00804000 CVTDMSRA EQU CVTDMSR+1 00805000 CVTRSV37 EQU CVTDMSR 00806000 CVTQMSGA EQU CVTQMSG+1 00807000 CVTRSV36 EQU CVTQMSG 00808000 CVTAMFF EQU CVTMAP+264 00809000 CVTPURGA EQU CVTPURG+1 00810000 CVTRSV35 EQU CVTPURG 00811000 CVTCBSP EQU CVTMAP+256 00812000 CVTATERA EQU CVTATER+1 00813000 CVTSYST EQU CVTATER 00814000 CVTVOLT2 EQU CVTTAT 00815000 CVTVOLI2 EQU CVTVOLF2 00816000 CVTAQAVB EQU CVTAQAVT+1 00817000 CVTRSV34 EQU CVTTCMFG 00818000 CVTRSV33 EQU CVTTCMFG 00819000 CVTRSV32 EQU CVTTCMFG 00820000 CVTRSV31 EQU CVTTCMFG 00821000 CVTRSV30 EQU CVTTCMFG 00822000 CVTRSV29 EQU CVTTCMFG 00823000 CVTRSV28 EQU CVTTCMFG 00824000 CVTTCRDY EQU CVTTCMFG 00825000 CVTGTFA EQU CVTGTF+1 00826000 CVTRSV27 EQU CVTGTFST 00827000 CVTRNIO EQU CVTGTFST 00828000 CVTRV319 EQU CVTUSR 00829000 CVTRV318 EQU CVTFORM 00830000 CVTRV317 EQU CVTTMODE 00831000 CVTRV316 EQU CVTSTATE 00832000 CVTRV315 EQU CVTGTFS 00833000 CVTGTFAV EQU CVTGTFS 00834000 CVT0SCR1 EQU CVTMAP+232 00835000 CVTRV515 EQU CVTMAP+228 00836000 CVTRMS EQU CVTMAP+224 00837000 CVTPATCH EQU CVTMAP+220 00838000 CVTTSCE EQU CVTMAP+216 00839000 CVTLNKSC EQU CVTMAP+214 00840000 CVTQABST EQU CVTMAP+212 00841000 CVTMDLDS EQU CVTMAP+208 00842000 CVTUSER EQU CVTMAP+204 00843000 CVTABEND EQU CVTMAP+200 00844000 CVTSMCA EQU CVTMAP+196 00845000 CVTRSV18 EQU CVTMAP+192 00846000 CVTQLPAQ EQU CVTMAP+188 00847000 CVTQCDSR EQU CVTMAP+184 00848000 CVTRSV17 EQU CVTOPTB 00849000 CVTRSV16 EQU CVTOPTB 00850000 CVTFP EQU CVTOPTB 00851000 CVTAPTHR EQU CVTOPTB 00852000 CVTNLOG EQU CVTOPTB 00853000 CVTTOD EQU CVTOPTB 00854000 CVTCTIMS EQU CVTOPTB 00855000 CVTPROT EQU CVTOPTB 00856000 CVTXPFP EQU CVTOPTA 00857000 CVTASCII EQU CVTOPTA 00858000 CVTRSV13 EQU CVTOPTA 00859000 CVTRSV12 EQU CVTOPTA 00860000 CVTNIP EQU CVTOPTA 00861000 CVTDDR EQU CVTOPTA 00862000 CVTAPR EQU CVTOPTA 00863000 CVTCCH EQU CVTOPTA 00864000 CVTSNCTR EQU CVTMAP+180 00865000 CVTQMWR EQU CVTMAP+176 00866000 CVTQOCR EQU CVTMAP+172 00867000 CVT1EF00 EQU CVTMAP+168 00868000 CVTMZ00 EQU CVTMAP+164 00869000 CVTHEAD EQU CVTMAP+160 00870000 CVTRSV11 EQU CVTMAP+156 00871000 CVT0PT01 EQU CVTMAP+152 00872000 CVTMSER EQU CVTMAP+148 00873000 CVTIERLC EQU CVTMAP+144 00874000 CVTILCH EQU CVTMAP+140 00875000 CVT0DS EQU CVTMAP+136 00876000 CVTFBOSV EQU CVTMAP+132 00877000 CVTNUCB EQU CVTMAP+128 00878000 CVTIXAVL EQU CVTMAP+124 00879000 CVTIOQET EQU CVTMAP+120 00880000 CVTDCBA EQU CVTMAP+117 00881000 CVTMVS2 EQU CVTDCB 00882000 CVT6DAT EQU CVTDCB 00883000 CVT4MPS EQU CVTDCB 00884000 CVTRSV09 EQU CVTDCB 00885000 CVT4MS1 EQU CVTDCB 00886000 CVT2SPS EQU CVTDCB 00887000 CVT1SSS EQU CVTDCB 00888000 CVTRSV08 EQU CVTDCB 00889000 CVTSTB EQU CVTMAP+112 00890000 CVTQTD00 EQU CVTMAP+108 00891000 CVTQTE00 EQU CVTMAP+104 00892000 CVTCUCB EQU CVTMAP+100 00893000 CVTSJQ EQU CVTMAP+96 00894000 CVTPBLDL EQU CVTMAP+92 00895000 CVTTPC EQU CVTMAP+88 00896000 CVTSVDCB EQU CVTMAP+84 00897000 CVTBRET EQU CVTMAP+82 00898000 CVTEXIT EQU CVTMAP+80 00899000 CVT0FN00 EQU CVTMAP+76 00900000 CVTDARA EQU CVTDAR+1 00901000 CVTRSV07 EQU CVTFLGS1 00902000 CVTRSV06 EQU CVTFLGS1 00903000 CVTRSV05 EQU CVTFLGS1 00904000 CVTRSV04 EQU CVTFLGS1 00905000 CVTRSV03 EQU CVTFLGS1 00906000 CVTRSV02 EQU CVTFLGS1 00907000 CVTRSV01 EQU CVTFLGS1 00908000 CVTDMPLK EQU CVTFLGS1 00909000 CVTXITP EQU CVTMAP+68 00910000 CVTZDTAB EQU CVTMAP+64 00911000 CVTMSLT EQU CVTMAP+60 00912000 CVTDATE EQU CVTMAP+56 00913000 CVTBTERM EQU CVTMAP+52 00914000 CVTSYSAD EQU CVTMAP+48 00915000 CVTXTLER EQU CVTMAP+44 00916000 CVTILK2 EQU CVTMAP+40 00917000 CVTILK1 EQU CVTMAP+36 00918000 CVTPRLTV EQU CVTMAP+32 00919000 CVTPCNVT EQU CVTMAP+28 00920000 CVT0VL00 EQU CVTMAP+24 00921000 CVTXAPG EQU CVTMAP+20 00922000 CVTBUF EQU CVTMAP+16 00923000 CVTJOB EQU CVTMAP+12 00924000 CVTLINK EQU CVTMAP+8 00925000 CVT0EF00 EQU CVTMAP+4 00926000 CVTTCBP EQU CVTMAP 00927000 CVT EQU CVTMAP 00928000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00929000 @ENDDATA EQU * 00930000 END IEFJRASP 00931000