TITLE 'CONVERTER ESTAE TERMINATION ROUTINE *00001000 ' 00002000 IEFNB9CT CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEFNB9CT 73.331' 0001 00008000 DROP @15 00009000 @PROLOG BALR @11,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@11 0001 00012000 */* S E T U P E R E P L A D D R E S S A B I L I T Y*/ 0006 00013000 * 0006 00014000 * EREPLPTR=REG1; /*REGISTER 1 PASSED TO RTNE. @YM02460*/ 00015000 * 0006 00016000 LR EREPLPTR,REG1 0006 00017000 */* G E T D U M M Y S A V E A R E A */ 0007 00018000 * 0007 00019000 * REG0=LENGTH(DUMMYSAV); /*LENGTH WILL HAVE ZERO 0007 00020000 * HIGH ORDER BYTE THAT WILL SERVE 00021000 * AS SUBPOOL NUMBER. */ 0007 00022000 LA REG0,72 0007 00023000 * GEN(GETMAIN R,LV=(0)); /*GET SAVEAREA CORE*/ 0008 00024000 GETMAIN R,LV=(0) 00025000 * REG13=REG1; /*SAVEAREA ADDRESSABILITY*/ 0009 00026000 LR REG13,REG1 0009 00027000 * DUMMYSAV=''B; /*ZERO SAVAREA FOR CLARITY.*/ 0010 00028000 * 0010 00029000 XC DUMMYSAV(72,REG13),DUMMYSAV(REG13) 0010 00030000 */* S E T U P S A V E A R E A */ 0011 00031000 * 0011 00032000 * PREVSAVA=EREPLRSV; /*SAVEAREA PTR FROM EREPL*/ 0011 00033000 * 0011 00034000 L @10,EREPLRSV(,EREPLPTR) 0011 00035000 ST @10,PREVSAVA(,REG13) 0011 00036000 */* S E T U P C W A */ 0012 00037000 * 0012 00038000 * WAPTR=EREPLCWA; /*CWA PTR FROM EREPL*/ 0012 00039000 L WAPTR,EREPLCWA(,EREPLPTR) 0012 00040000 * IWARET=RETURN36; /*RETURN CODE FOR CONVERTER*/ 0013 00041000 MVC IWARET(2,WAPTR),RETURN36 0013 00042000 * CWATERM=ON; /*TURN ON CONVERTER TERM BIT*/ 0014 00043000 * 0014 00044000 OI CWATERM(WAPTR),B'00000001' 0014 00045000 * IF CWASAVPT ^= EREPLRSV THEN /*IF SAVEAREA POINTERS 0015 00046000 * ARE NOT EQUAL,LOAD THE 0015 00047000 * CWA POINTER FROM THE EREPL*/ 00048000 LA @05,372 0015 00049000 ALR @05,WAPTR 0015 00050000 C @10,CWASAVPT(,@05) 0015 00051000 BE @RF00015 0015 00052000 * CWASAVPT=EREPLRSV; 0016 00053000 * 0016 00054000 ST @10,CWASAVPT(,@05) 0016 00055000 */* S E T U P T E R M I N A T I O N R E G I S T E R S */ 0017 00056000 * 0017 00057000 */* REGISTER 13 HAS ALREADY BEEN LOADED WITH THE DUMMY SAVEAREA 0017 00058000 * POINTER. */ 0017 00059000 * 0017 00060000 * REG12=EREPLCWA; /*CWA POINTER INTO R12*/ 0017 00061000 * 0017 00062000 @RF00015 L REG12,EREPLCWA(,EREPLPTR) 0017 00063000 */* C A L L T E R M I N A T I O N M O D U L E */ 0018 00064000 * 0018 00065000 * CALL IEFVHF; /*TERMINATE CONVERTER*/ 0018 00066000 * 0018 00067000 L @15,@CV00306 0018 00068000 BALR @14,@15 0018 00069000 * END IEFNB9CT 0019 00070000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00071000 */*%INCLUDE SYSLIB (IEFZB9RD) * 00072000 */*%INCLUDE SYSLIB (IEFCOMWA) * 00073000 */*%INCLUDE SYSLIB (IEFCVRWA) * 00074000 *; 0019 00075000 @EL00001 DS 0H 0019 00076000 @EF00001 DS 0H 0019 00077000 @ER00001 BR @14 0019 00078000 @DATA DS 0H 00079000 @DATD DSECT 00080000 DS 0F 00081000 IEFNB9CT CSECT 00082000 DS 0F 00083000 @DATD DSECT 00084000 DS 0D 00085000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00086000 @ENDDATD EQU * 00087000 IEFNB9CT CSECT 00088000 DS 0F 00089000 @SIZDATD DC AL1(0) 00090000 DC AL3(@ENDDATD-@DATD) 00091000 @CV00306 DC V(IEFVHF) 00092000 DS 0D 00093000 NBCTPTCH DS CL25 00094000 ORG NBCTPTCH 00095000 @NM00032 DC 25X'00' 00096000 ORG NBCTPTCH+25 00097000 RETURN36 DC X'0024' 00098000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00099000 @01 EQU 01 00100000 @02 EQU 02 00101000 @03 EQU 03 00102000 @04 EQU 04 00103000 @05 EQU 05 00104000 @06 EQU 06 00105000 @07 EQU 07 00106000 @08 EQU 08 00107000 @09 EQU 09 00108000 @10 EQU 10 00109000 @11 EQU 11 00110000 @12 EQU 12 00111000 @13 EQU 13 00112000 @14 EQU 14 00113000 @15 EQU 15 00114000 EREPLPTR EQU @03 00115000 WAPTR EQU @04 00116000 REG0 EQU @00 00117000 REG1 EQU @01 00118000 REG12 EQU @12 00119000 REG13 EQU @13 00120000 EREPL EQU 0 00121000 EREPLCWA EQU EREPL 00122000 EREPLRSV EQU EREPL+8 00123000 EREPFLGS EQU EREPL+12 00124000 EREPFLG1 EQU EREPFLGS 00125000 COMWA EQU 0 00126000 CWAL EQU COMWA 00127000 CWAID EQU COMWA+4 00128000 CWACONID EQU COMWA+8 00129000 IWAIOSA EQU COMWA+88 00130000 WARPL EQU COMWA+160 00131000 CWARET EQU COMWA+344 00132000 IWARET EQU CWARET 00133000 CWAMCSCA EQU COMWA+346 00134000 CWAMSLEN EQU COMWA+360 00135000 AOSW1 EQU COMWA+361 00136000 AOSW4 EQU COMWA+362 00137000 CWATERM EQU AOSW4 00138000 SWE EQU COMWA+363 00139000 SWH EQU COMWA+364 00140000 SWI EQU COMWA+365 00141000 SWY2 EQU COMWA+366 00142000 CVRWA EQU 0 00143000 IWAINTS4 EQU CVRWA+8 00144000 RSTMT EQU CVRWA+20 00145000 VERB EQU RSTMT+4 00146000 PSTMT EQU CVRWA+28 00147000 VERBP EQU PSTMT+4 00148000 AOKSCHSA EQU CVRWA+304 00149000 CWASAVPT EQU CVRWA+380 00150000 AOKSRPRM EQU CVRWA+403 00151000 AOSW2 EQU CVRWA+417 00152000 AOSW3 EQU CVRWA+418 00153000 IWAEXTS EQU CVRWA+420 00154000 SWA EQU CVRWA+425 00155000 SWB EQU CVRWA+426 00156000 SWC EQU CVRWA+427 00157000 SWD EQU CVRWA+428 00158000 SWV EQU CVRWA+429 00159000 CRSW1 EQU CVRWA+430 00160000 SWZ EQU CVRWA+438 00161000 DUMMYSAV EQU 0 00162000 PREVSAVA EQU DUMMYSAV+4 00163000 * START UNREFERENCED COMPONENTS 00164000 @NM00034 EQU DUMMYSAV+8 00165000 @NM00033 EQU DUMMYSAV 00166000 CWAPSENM EQU CVRWA+448 00167000 CWALINKL EQU CVRWA+444 00168000 CWALINK EQU CVRWA+440 00169000 RCHAR1 EQU CVRWA+439 00170000 SNPSW EQU SWZ 00171000 DDSW EQU SWZ 00172000 EXECSW EQU SWZ 00173000 JOBSW EQU SWZ 00174000 COLST EQU SWZ 00175000 ENDS EQU SWZ 00176000 DDOV EQU SWZ 00177000 CMT EQU SWZ 00178000 SWY EQU CVRWA+437 00179000 IWANELEN EQU CVRWA+436 00180000 SYMTTR EQU CVRWA+432 00181000 @NM00031 EQU CVRWA+431 00182000 @NM00030 EQU CRSW1 00183000 CRRES1 EQU CRSW1 00184000 @NM00029 EQU CRSW1 00185000 CPFLG EQU CRSW1 00186000 LPBYSW EQU SWV 00187000 FPRNSW EQU SWV 00188000 FBLITRL EQU SWV 00189000 AMPSW EQU SWV 00190000 FBFLUSH EQU SWV 00191000 VERBCSW EQU SWV 00192000 PROCERR EQU SWV 00193000 OVKEYSW EQU SWV 00194000 SYMPRC EQU SWD 00195000 @NM00028 EQU SWD 00196000 FEXRCV EQU SWD 00197000 @NM00027 EQU SWD 00198000 @NM00026 EQU SWC 00199000 PEXP EQU SWC 00200000 NRCV EQU SWC 00201000 IOERR EQU SWC 00202000 @NM00025 EQU SWC 00203000 @NM00024 EQU SWB 00204000 FRCV EQU SWB 00205000 @NM00023 EQU SWB 00206000 CXPC EQU SWB 00207000 CXPN EQU SWB 00208000 CXP EQU SWB 00209000 @NM00022 EQU SWA 00210000 EOFR EQU SWA 00211000 @NM00021 EQU SWA 00212000 JHS EQU SWA 00213000 JTOP EQU SWA 00214000 OSW2 EQU CVRWA+424 00215000 IWAFINDP EQU CVRWA+421 00216000 @NM00020 EQU IWAEXTS 00217000 IWASFIND EQU IWAEXTS 00218000 @NM00019 EQU IWAEXTS 00219000 AOFDPCL EQU CVRWA+419 00220000 AOBTCHSW EQU AOSW3 00221000 @NM00018 EQU AOSW3 00222000 @NM00017 EQU AOSW2 00223000 AOPROCNM EQU AOSW2 00224000 @NM00016 EQU AOSW2 00225000 IWAJMSGL EQU CVRWA+416 00226000 CWACHIDL EQU CVRWA+415 00227000 IWAWRNMS EQU CVRWA+414 00228000 AOSTRLTH EQU CVRWA+412 00229000 LASLE EQU CVRWA+410 00230000 CURLE EQU CVRWA+408 00231000 IWANLRC EQU CVRWA+406 00232000 AOKSRBY3 EQU AOKSRPRM+2 00233000 AOKSRSCT EQU AOKSRPRM+1 00234000 AOKSRNBR EQU AOKSRPRM 00235000 IWABPAM EQU CVRWA+400 00236000 AOSCHKYS EQU CVRWA+392 00237000 AOFDPCSV EQU CVRWA+384 00238000 AOBSKSA EQU CVRWA+376 00239000 AODFLTSA EQU CVRWA+348 00240000 AOHEBSA EQU CVRWA+344 00241000 AOKSR1SA EQU CVRWA+336 00242000 AOGACSA EQU AOKSCHSA 00243000 AOFDTMP1 EQU CVRWA+300 00244000 AODSPCSA EQU CVRWA+296 00245000 TENDP EQU CVRWA+292 00246000 TLENP EQU CVRWA+288 00247000 TNUMP EQU CVRWA+284 00248000 TKEYP EQU CVRWA+280 00249000 TBEGP EQU CVRWA+276 00250000 IWANELJC EQU CVRWA+272 00251000 CWAJMRPT EQU CVRWA+268 00252000 IWASTAPL EQU CVRWA+264 00253000 IWAWKBF EQU CVRWA+260 00254000 IWAJOBS5 EQU CVRWA+256 00255000 DREFB EQU CVRWA+80 00256000 IWAPARM EQU CVRWA+76 00257000 PPSN EQU CVRWA+68 00258000 RSNM EQU CVRWA+60 00259000 RDNM EQU CVRWA+52 00260000 PSNM EQU CVRWA+44 00261000 PDNM EQU CVRWA+36 00262000 @NM00015 EQU PSTMT+7 00263000 LISTPTRP EQU PSTMT+6 00264000 NAMELP EQU PSTMT+5 00265000 @NM00014 EQU VERBP 00266000 CREP EQU VERBP 00267000 SSEP EQU VERBP 00268000 STMTPTRP EQU PSTMT 00269000 @NM00013 EQU RSTMT+7 00270000 LISTPTR EQU RSTMT+6 00271000 NAMEL EQU RSTMT+5 00272000 @NM00012 EQU VERB 00273000 CRE EQU VERB 00274000 SSE EQU VERB 00275000 RSTMTPTR EQU RSTMT 00276000 CWATXTEX EQU CVRWA+16 00277000 IWAINTS5 EQU CVRWA+12 00278000 CWABPROC EQU IWAINTS4 00279000 IWAINTS3 EQU CVRWA+4 00280000 PDCBP EQU CVRWA 00281000 RBYTE5 EQU COMWA+371 00282000 RBYTE4 EQU COMWA+370 00283000 RBYTE3 EQU COMWA+369 00284000 RBYTE2 EQU COMWA+368 00285000 RBYTE1 EQU COMWA+367 00286000 @NM00011 EQU SWY2 00287000 KEYNXTSW EQU SWY2 00288000 DYNAMSW EQU SWY2 00289000 @NM00010 EQU SWY2 00290000 @NM00009 EQU SWI 00291000 DSNLIT EQU SWI 00292000 BLKMLTER EQU SWI 00293000 @NM00008 EQU SWI 00294000 IWADDNM EQU SWI 00295000 WAWRNWTO EQU SWI 00296000 BLKPRC EQU SWI 00297000 @NM00007 EQU SWH 00298000 CPSTPFL EQU SWH 00299000 PROCSW EQU SWH 00300000 CPFLGXX EQU SWH 00301000 CPSYSFLG EQU SWH 00302000 @NM00006 EQU SWH 00303000 SEQUENCE EQU SWE 00304000 POVRX EQU SWE 00305000 POVRD EQU SWE 00306000 CONCAT EQU SWE 00307000 PRCV EQU SWE 00308000 PREF EQU SWE 00309000 GPI EQU SWE 00310000 PROCPLS EQU SWE 00311000 @NM00005 EQU AOSW4 00312000 AOTXTWRT EQU AOSW1 00313000 AOPRTSW EQU AOSW1 00314000 AONOPLIB EQU AOSW1 00315000 AOILGLOP EQU AOSW1 00316000 AOIOERR EQU AOSW1 00317000 AOVFBSW EQU AOSW1 00318000 AOENDKSW EQU AOSW1 00319000 AOFSTPOS EQU AOSW1 00320000 IWAMSLEN EQU CWAMSLEN 00321000 RHALF5 EQU COMWA+358 00322000 RHALF4 EQU COMWA+356 00323000 RHALF3 EQU COMWA+354 00324000 RHALF2 EQU COMWA+352 00325000 RHALF1 EQU COMWA+350 00326000 WASTMTNO EQU COMWA+348 00327000 CWALABEL EQU CWAMCSCA+1 00328000 IWAMCSCA EQU CWAMCSCA 00329000 RFULL5 EQU COMWA+340 00330000 RFULL4 EQU COMWA+336 00331000 RFULL3 EQU COMWA+332 00332000 RFULL2 EQU COMWA+328 00333000 RFULL1 EQU COMWA+324 00334000 WAEXCPFX EQU COMWA+316 00335000 WAJOBPFX EQU COMWA+308 00336000 WAJBNAME EQU COMWA+300 00337000 WAEXCRBA EQU COMWA+292 00338000 WAJOBRBA EQU COMWA+284 00339000 QPARM EQU COMWA+248 00340000 WAWRKLTH EQU COMWA+244 00341000 WAMSGBUF EQU COMWA+240 00342000 WANELPTR EQU COMWA+236 00343000 RPLADDR EQU WARPL 00344000 @NM00004 EQU IWAIOSA+8 00345000 IWASACHN EQU IWAIOSA+4 00346000 TRSAVE EQU IWAIOSA 00347000 AOEPWORK EQU COMWA+80 00348000 AOSTAPRM EQU COMWA+76 00349000 AOJMRGEP EQU COMWA+72 00350000 NEXTPTR EQU COMWA+68 00351000 BUFEND EQU COMWA+64 00352000 BUFADDR EQU COMWA+60 00353000 AOWSTMT EQU COMWA+56 00354000 TERMRTN EQU COMWA+52 00355000 TBUFCOPY EQU COMWA+48 00356000 TEXTBUFP EQU COMWA+44 00357000 JACTLPTR EQU COMWA+40 00358000 TNEXT2 EQU COMWA+36 00359000 TNEXT EQU COMWA+32 00360000 IWAINTS0 EQU COMWA+28 00361000 QMGRP EQU COMWA+24 00362000 CTRLWAP EQU COMWA+20 00363000 SAVEPTR EQU COMWA+16 00364000 QPARMP EQU COMWA+12 00365000 IWACONID EQU CWACONID 00366000 IWAID EQU CWAID 00367000 IWAL EQU CWAL 00368000 @NM00003 EQU EREPL+16 00369000 @NM00002 EQU EREPFLGS+1 00370000 @NM00001 EQU EREPFLG1 00371000 EREPRCUR EQU EREPFLG1 00372000 EREPLIWA EQU EREPL+4 00373000 * END UNREFERENCED COMPONENTS 00374000 @ENDDATA EQU * 00375000 END IEFNB9CT 00376000