TITLE ' /***************************************************' 00001000 IEFVINC CSECT , 0001 00002000 @PROLOG STM @14,@12,12(@13) 0001 00003000 BALR @11,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@11 0001 00006000 L @00,@SIZDATD 0001 00007000 GETMAIN R,LV=(0) 00008000 LR @09,@01 0001 00009000 USING @DATD,@09 0001 00010000 ST @13,@SA00001+4 0001 00011000 LM @00,@01,20(@13) 0001 00012000 ST @09,8(,@13) 0001 00013000 LR @13,@09 0001 00014000 MVC @PC00001(4),0(@01) 0001 00015000 *************************************************************** Y02668 00016000 * MODULE TRACE CODE - FOR TESTING. Y02668 00017000 L 15,TRACEV LOAD TRACE RTNE ADDR. Y02668 00018000 CNOP 2,4 Y02668 00019000 BALR 14,15 ENTER MOD ID IN TRACE RECORD Y02668 00020000 TRACEV DC V(TRACE) TRACE RTNE ADDR. Y02668 00021000 DC C'VINC' MOD ID USED BY TRACE. Y02668 00022000 * TRACE RETURNS HERE Y02668 00023000 *************************************************************** Y02668 00024000 B INSTR BRANCH ARROUND ID Y02668 00025000 DC X'11111111' 00026000 DC C'VINC' 00027000 DC C'L.01' 00028000 DC C'MVM' FUNCTION ID AND Y02668 00029000 DC C'03' LEVEL # (IEFVHQ REG. 12 FIX). Y02668 00030000 *INSTR: 0020 00031000 * R6=RTCD; /* SAVE RETURN CODE */ 0020 00032000 INSTR L @10,@PC00001 0020 00033000 L R6,RTCD(,@10) 0020 00034000 * R2=IWAWKBF; /* ADDRESS OF WORK AREA */ 0021 00035000 L @08,WAPTR(,@10) 0021 00036000 L R2,IWAWKBF+372(,@08) 0021 00037000 * R3=CT+1; /* NUMBER OF ENTRIES */ 0022 00038000 LA R3,1 0022 00039000 SR @08,@08 0022 00040000 IC @08,CT(,R2) 0022 00041000 AR R3,@08 0022 00042000 * IF R6>0 THEN 0023 00043000 LTR R6,R6 0023 00044000 BNP @RF00023 0023 00045000 * DO; 0024 00046000 */********************************************************************/ 00047000 */* */ 00048000 * /* PROCEDURE NAME WAS FOUND NO ENTRY HAS TO BE MADE IN DIRECTORY*/ 00049000 */* */ 00050000 */********************************************************************/ 00051000 * PTR2=RTCD ; /* RTCD CONTAINS TTR OF SAME NAME PROC M1971*/ 00052000 MVC PTR2(3,R2),RTCD(@10) 0025 00053000 * /* TTR OF FIRST RECORD OF PROC */ 0026 00054000 * CT=R3-1; /* NUMBER OF ENTRIES */ 0026 00055000 LR @10,R3 0026 00056000 BCTR @10,0 0026 00057000 STC @10,CT(,R2) 0026 00058000 * GOTO LABEL; /* SET RETURN CODE AND EXIT */ 0027 00059000 B LABEL 0027 00060000 * END; 0028 00061000 * R5=QPARMP; /* INITIALIZE QMPA POINTER */ 0029 00062000 @RF00023 L @10,@PC00001 0029 00063000 L @08,WAPTR(,@10) 0029 00064000 L R5,QPARMP(,@08) 0029 00065000 */********************************************************************/ 00066000 */* */ 00067000 * /*PROCEDURE NAME WAS NOT FOUND. AN ENTRY MUST BE MADE*/ 0030 00068000 */* */ 00069000 */********************************************************************/ 00070000 * IF R3=16 THEN /* MAXIMUM NUMBER OF IN-LINE PROCS*/ 00071000 CH R3,@CH00090 0030 00072000 BNE @RF00030 0030 00073000 * DO; 0031 00074000 * RTCD=4; /* EXCESSIVE NUMBER OF INLINE */ 00075000 MVC RTCD(4,@10),@CF00226 0032 00076000 * /* PROCEDURES */ 0033 00077000 * RETURN; 0033 00078000 @EL00001 L @13,4(,@13) 0033 00079000 @EF00001 L @00,@SIZDATD 0033 00080000 LR @01,@09 0033 00081000 FREEMAIN R,LV=(0),A=(1) 00082000 @ER00001 LM @14,@12,12(@13) 0033 00083000 BR @14 0033 00084000 * END; 0034 00085000 */********************************************************************/ 00086000 */* */ 00087000 * /* A RECORD IS ASSIGNED TO CONTAIN THE NEW PROCEDURE AND THE */ 0035 00088000 * /* DIRECTORY ENTRY IS BUILT */ 0035 00089000 */* */ 00090000 */********************************************************************/ 00091000 * QMPOP=1; /*ASSIGN RECORD TO CONTAIN PROC*/ 00092000 @RF00030 MVI QMPOP(R5),X'01' 0035 00093000 * RC=WAPTR; /*Y02668*/ 00094000 L @10,@PC00001 0036 00095000 L RC,WAPTR(,@10) 0036 00096000 * CALL IEFVHQ; 0037 00097000 L @15,@CV00343 0037 00098000 BALR @14,@15 0037 00099000 * R6=QMPACL; /* ADDRESS OF EXTERNAL PARM LIST 3199*/ 00100000 SR R6,R6 0038 00101000 ICM R6,7,QMPACL(R5) 0038 00102000 * TTR1(R3)=ADDRESS; /* TTR OF PROCEDURE */ 0039 00103000 LR @10,R3 0039 00104000 MH @10,@CH00033 0039 00105000 ST @10,@TF00001 0039 00106000 ALR @10,R2 0039 00107000 MVC TTR1-11(3,@10),ADDRESS(R6) 0039 00108000 * PROCNM(R3)=PROCNAME; /*NAME OF PROCEDURE*/ 0040 00109000 LR @10,R2 0040 00110000 AL @10,@TF00001 0040 00111000 L @08,@PC00001 0040 00112000 MVC PROCNM-11(8,@10),PROCNAME(@08) 0040 00113000 * CT=R3; /* INCREMENT COUNT */ 0041 00114000 STC R3,CT(,R2) 0041 00115000 * PTR2=ADDRESS; /* TTR RETURNED FROM ASSIGN */ 0042 00116000 MVC PTR2(3,R2),ADDRESS(R6) 0042 00117000 *LABEL: 0043 00118000 * RTCD=0; /* LESS THAN 15 PROCEDURES */ 0043 00119000 LABEL L @10,@PC00001 0043 00120000 SR @08,@08 0043 00121000 ST @08,RTCD(,@10) 0043 00122000 * RETURN; 0044 00123000 B @EL00001 0044 00124000 * END 0045 00125000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00126000 */*%INCLUDE SYSLIB (IEFCOMWA) * 00127000 */*%INCLUDE SYSLIB (IEFCVRWA) * 00128000 *; 0045 00129000 B @EL00001 0045 00130000 @DATA DS 0H 00131000 @CH00033 DC H'11' 00132000 @CH00090 DC H'16' 00133000 @DATD DSECT 00134000 DS 0F 00135000 @SA00001 DS 18F 00136000 @PC00001 DS 1F 00137000 @TF00001 DS F 00138000 IEFVINC CSECT 00139000 DS 0F 00140000 @CF00226 DC F'4' 00141000 @DATD DSECT 00142000 DS 0D 00143000 @ENDDATD EQU * 00144000 IEFVINC CSECT 00145000 DS 0F 00146000 @SIZDATD DC AL1(0) 00147000 DC AL3(@ENDDATD-@DATD) 00148000 @CV00343 DC V(IEFVHQ) 00149000 DS 0D 00150000 PATCH DC XL100'0' 00151000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00152000 @01 EQU 01 00153000 @02 EQU 02 00154000 @03 EQU 03 00155000 @04 EQU 04 00156000 @05 EQU 05 00157000 @06 EQU 06 00158000 @07 EQU 07 00159000 @08 EQU 08 00160000 @09 EQU 09 00161000 @10 EQU 10 00162000 @11 EQU 11 00163000 @12 EQU 12 00164000 @13 EQU 13 00165000 @14 EQU 14 00166000 @15 EQU 15 00167000 R2 EQU @02 00168000 R3 EQU @03 00169000 R4 EQU @04 00170000 R5 EQU @05 00171000 R6 EQU @06 00172000 RC EQU @12 00173000 RD EQU @13 00174000 R1 EQU @01 00175000 R7 EQU @07 00176000 COMWA EQU 0 00177000 CWAL EQU COMWA 00178000 CWAID EQU COMWA+4 00179000 CWACONID EQU COMWA+8 00180000 QPARMP EQU COMWA+12 00181000 IWAIOSA EQU COMWA+88 00182000 WARPL EQU COMWA+160 00183000 CWARET EQU COMWA+344 00184000 CWAMCSCA EQU COMWA+346 00185000 CWAMSLEN EQU COMWA+360 00186000 AOSW1 EQU COMWA+361 00187000 AOSW4 EQU COMWA+362 00188000 SWE EQU COMWA+363 00189000 SWH EQU COMWA+364 00190000 SWI EQU COMWA+365 00191000 SWY2 EQU COMWA+366 00192000 CVRWA EQU 0 00193000 IWAINTS4 EQU CVRWA+8 00194000 RSTMT EQU CVRWA+20 00195000 VERB EQU RSTMT+4 00196000 PSTMT EQU CVRWA+28 00197000 VERBP EQU PSTMT+4 00198000 IWAWKBF EQU CVRWA+260 00199000 AOKSCHSA EQU CVRWA+304 00200000 AOKSRPRM EQU CVRWA+403 00201000 AOSW2 EQU CVRWA+417 00202000 AOSW3 EQU CVRWA+418 00203000 IWAEXTS EQU CVRWA+420 00204000 SWA EQU CVRWA+425 00205000 SWB EQU CVRWA+426 00206000 SWC EQU CVRWA+427 00207000 SWD EQU CVRWA+428 00208000 SWV EQU CVRWA+429 00209000 CRSW1 EQU CVRWA+430 00210000 SW2 EQU CVRWA+438 00211000 QMPA EQU 0 00212000 QMNAM EQU QMPA 00213000 QMPOP EQU QMPA+8 00214000 QMPCL EQU QMPA+32 00215000 QMPCMNC EQU QMPCL 00216000 QMPACL EQU QMPCL+1 00217000 EXADDR EQU 0 00218000 ADDRESS EQU EXADDR 00219000 EXTTR EQU EXADDR+3 00220000 WORKBUF EQU 0 00221000 DIRECT EQU WORKBUF+176 00222000 CT EQU DIRECT+4 00223000 PTR2 EQU DIRECT+5 00224000 ARR EQU DIRECT+8 00225000 PROCNM EQU ARR 00226000 TTR1 EQU ARR+8 00227000 LIST EQU 0 00228000 PROCNAME EQU LIST+4 00229000 WAPTR EQU LIST+16 00230000 RTCD EQU LIST+20 00231000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00232000 DIRADR EQU LIST+12 00233000 ADRESS EQU LIST 00234000 PTR1 EQU DIRECT 00235000 RECORD EQU WORKBUF+8 00236000 QMPAPT EQU WORKBUF+4 00237000 TTR EQU WORKBUF 00238000 ZEROHQ EQU EXTTR+3 00239000 TTRHQ EQU EXTTR 00240000 QMPNC EQU QMPCMNC 00241000 QMPCM EQU QMPCMNC 00242000 QMEIA EQU QMPA+28 00243000 QMWTQ EQU QMPA+24 00244000 QMRSD1 EQU QMPA+22 00245000 QMTID EQU QMPA+20 00246000 QMLINK EQU QMPA+18 00247000 QMPRI EQU QMPA+17 00248000 QMSTA EQU QMPA+16 00249000 QMTPY EQU QMPA+15 00250000 QMNOT EQU QMPA+14 00251000 QMTLN EQU QMPA+12 00252000 QMTST EQU QMPA+11 00253000 QMFLT EQU QMPA+9 00254000 QMPEB EQU QMNAM+4 00255000 QMCAN EQU QMNAM 00256000 SNPSW EQU SW2 00257000 DDSW EQU SW2 00258000 EXECSW EQU SW2 00259000 JOBSW EQU SW2 00260000 COLST EQU SW2 00261000 ENDS EQU SW2 00262000 DDOV EQU SW2 00263000 CMT EQU SW2 00264000 SWY EQU CVRWA+437 00265000 IWANELEN EQU CVRWA+436 00266000 SYMTTR EQU CVRWA+432 00267000 @NM00028 EQU CVRWA+431 00268000 @NM00027 EQU CRSW1 00269000 CRRES1 EQU CRSW1 00270000 @NM00026 EQU CRSW1 00271000 CPFLG EQU CRSW1 00272000 LPBYSW EQU SWV 00273000 FPRNSW EQU SWV 00274000 FBLITRL EQU SWV 00275000 AMPSW EQU SWV 00276000 FBFLUSH EQU SWV 00277000 VERBCSW EQU SWV 00278000 PROCERR EQU SWV 00279000 OVKEYSW EQU SWV 00280000 SYMPRC EQU SWD 00281000 @NM00025 EQU SWD 00282000 FEXRCV EQU SWD 00283000 @NM00024 EQU SWD 00284000 @NM00023 EQU SWC 00285000 PEXP EQU SWC 00286000 NRCV EQU SWC 00287000 IOERR EQU SWC 00288000 @NM00022 EQU SWC 00289000 @NM00021 EQU SWB 00290000 FRCV EQU SWB 00291000 @NM00020 EQU SWB 00292000 CXPC EQU SWB 00293000 CXPN EQU SWB 00294000 CXP EQU SWB 00295000 @NM00019 EQU SWA 00296000 EOFR EQU SWA 00297000 @NM00018 EQU SWA 00298000 JHS EQU SWA 00299000 JTOP EQU SWA 00300000 OSW2 EQU CVRWA+424 00301000 IWAFINDP EQU CVRWA+421 00302000 @NM00017 EQU IWAEXTS 00303000 IWASFIND EQU IWAEXTS 00304000 @NM00016 EQU IWAEXTS 00305000 AOFDPCL EQU CVRWA+419 00306000 AOBTCHSW EQU AOSW3 00307000 @NM00015 EQU AOSW3 00308000 @NM00014 EQU AOSW2 00309000 AOPROCNM EQU AOSW2 00310000 @NM00013 EQU AOSW2 00311000 IWAJMSGL EQU CVRWA+416 00312000 CWACHIDL EQU CVRWA+415 00313000 IWAWRNMS EQU CVRWA+414 00314000 AOSTRLTH EQU CVRWA+412 00315000 LASLE EQU CVRWA+410 00316000 CURLE EQU CVRWA+408 00317000 IWANLRC EQU CVRWA+406 00318000 AOKSRBY3 EQU AOKSRPRM+2 00319000 AOKSRSCT EQU AOKSRPRM+1 00320000 AOKSRNBR EQU AOKSRPRM 00321000 IWABPAM EQU CVRWA+400 00322000 AOSCHKYS EQU CVRWA+392 00323000 AOFDPCSV EQU CVRWA+384 00324000 CWASAVPT EQU CVRWA+380 00325000 AOBSKSA EQU CVRWA+376 00326000 AODFLTSA EQU CVRWA+348 00327000 AOHEBSA EQU CVRWA+344 00328000 AOKSR1SA EQU CVRWA+336 00329000 AOGACSA EQU AOKSCHSA 00330000 AOFDTMP1 EQU CVRWA+300 00331000 AODSPCSA EQU CVRWA+296 00332000 TENDP EQU CVRWA+292 00333000 TLENP EQU CVRWA+288 00334000 TNUMP EQU CVRWA+284 00335000 TKEYP EQU CVRWA+280 00336000 TBEGP EQU CVRWA+276 00337000 IWANELJC EQU CVRWA+272 00338000 CWAJMRPT EQU CVRWA+268 00339000 IWASTAPL EQU CVRWA+264 00340000 IWAJOBS5 EQU CVRWA+256 00341000 DREFB EQU CVRWA+80 00342000 IWAPARM EQU CVRWA+76 00343000 PPSN EQU CVRWA+68 00344000 RSNM EQU CVRWA+60 00345000 RDNM EQU CVRWA+52 00346000 PSNM EQU CVRWA+44 00347000 PDNM EQU CVRWA+36 00348000 @NM00012 EQU PSTMT+7 00349000 LISTPTRP EQU PSTMT+6 00350000 NAMELP EQU PSTMT+5 00351000 @NM00011 EQU VERBP 00352000 CREP EQU VERBP 00353000 SSEP EQU VERBP 00354000 STMTPTRP EQU PSTMT 00355000 @NM00010 EQU RSTMT+7 00356000 LISTPTR EQU RSTMT+6 00357000 NAMEL EQU RSTMT+5 00358000 @NM00009 EQU VERB 00359000 CRE EQU VERB 00360000 SSE EQU VERB 00361000 RSTMTPTR EQU RSTMT 00362000 CWATXTEX EQU CVRWA+16 00363000 IWAINTS5 EQU CVRWA+12 00364000 CWABPROC EQU IWAINTS4 00365000 IWAINTS3 EQU CVRWA+4 00366000 PDCBP EQU CVRWA 00367000 RBYTE5 EQU COMWA+371 00368000 RBYTE4 EQU COMWA+370 00369000 RBYTE3 EQU COMWA+369 00370000 RBYTE2 EQU COMWA+368 00371000 RBYTE1 EQU COMWA+367 00372000 @NM00008 EQU SWY2 00373000 KEYNXTSW EQU SWY2 00374000 DYNAMSW EQU SWY2 00375000 @NM00007 EQU SWY2 00376000 @NM00006 EQU SWI 00377000 DSNLIT EQU SWI 00378000 BLKMLTER EQU SWI 00379000 @NM00005 EQU SWI 00380000 IWADDNM EQU SWI 00381000 WAWRNWTO EQU SWI 00382000 BLKPRC EQU SWI 00383000 @NM00004 EQU SWH 00384000 CPSTPFL EQU SWH 00385000 PROCSW EQU SWH 00386000 CPFLGXX EQU SWH 00387000 CPSYSFLG EQU SWH 00388000 @NM00003 EQU SWH 00389000 SEQUENCE EQU SWE 00390000 POVRX EQU SWE 00391000 POVRD EQU SWE 00392000 CONCAT EQU SWE 00393000 PRCV EQU SWE 00394000 PREF EQU SWE 00395000 GPI EQU SWE 00396000 PROCPLS EQU SWE 00397000 CWATERM EQU AOSW4 00398000 @NM00002 EQU AOSW4 00399000 AOTXTWRT EQU AOSW1 00400000 AOPRTSW EQU AOSW1 00401000 AONOPLIB EQU AOSW1 00402000 AOILGLOP EQU AOSW1 00403000 AOIOERR EQU AOSW1 00404000 AOVFBSW EQU AOSW1 00405000 AOENDKSW EQU AOSW1 00406000 AOFSTPOS EQU AOSW1 00407000 IWAMSLEN EQU CWAMSLEN 00408000 RHALF5 EQU COMWA+358 00409000 RHALF4 EQU COMWA+356 00410000 RHALF3 EQU COMWA+354 00411000 RHALF2 EQU COMWA+352 00412000 RHALF1 EQU COMWA+350 00413000 WASTMTNO EQU COMWA+348 00414000 CWALABEL EQU CWAMCSCA+1 00415000 IWAMCSCA EQU CWAMCSCA 00416000 IWARET EQU CWARET 00417000 RFULL5 EQU COMWA+340 00418000 RFULL4 EQU COMWA+336 00419000 RFULL3 EQU COMWA+332 00420000 RFULL2 EQU COMWA+328 00421000 RFULL1 EQU COMWA+324 00422000 WAEXCPFX EQU COMWA+316 00423000 WAJOBPFX EQU COMWA+308 00424000 WAJBNAME EQU COMWA+300 00425000 WAEXCRBA EQU COMWA+292 00426000 WAJOBRBA EQU COMWA+284 00427000 QPARM EQU COMWA+248 00428000 WAWRKLTH EQU COMWA+244 00429000 WAMSGBUF EQU COMWA+240 00430000 WANELPTR EQU COMWA+236 00431000 RPLADDR EQU WARPL 00432000 @NM00001 EQU IWAIOSA+8 00433000 IWASACHN EQU IWAIOSA+4 00434000 TRSAVE EQU IWAIOSA 00435000 AOEPWORK EQU COMWA+80 00436000 AOSTAPRM EQU COMWA+76 00437000 AOJMRGEP EQU COMWA+72 00438000 NEXTPTR EQU COMWA+68 00439000 BUFEND EQU COMWA+64 00440000 BUFADDR EQU COMWA+60 00441000 AOWSTMT EQU COMWA+56 00442000 TERMRTN EQU COMWA+52 00443000 TBUFCOPY EQU COMWA+48 00444000 TEXTBUFP EQU COMWA+44 00445000 JACTLPTR EQU COMWA+40 00446000 TNEXT2 EQU COMWA+36 00447000 TNEXT EQU COMWA+32 00448000 IWAINTS0 EQU COMWA+28 00449000 QMGRP EQU COMWA+24 00450000 CTRLWAP EQU COMWA+20 00451000 SAVEPTR EQU COMWA+16 00452000 IWACONID EQU CWACONID 00453000 IWAID EQU CWAID 00454000 IWAL EQU CWAL 00455000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00456000 @ENDDATA EQU * 00457000 END IEFVINC 00458000