TITLE '******** IDCSA10: SYSTEM ADAPTOR USTAE MODULE *********00001000 * ' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 IDCSA10 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL2(@EP00002-@MAINENT) 00017000 DC AL1(16) 0002 00018000 DC C'IDCSA10 77.062' 0002 00019000 IDCSAST DS 0H 0002 00020000 USING *,@15 0002 00021000 B @PROLOG 0002 00022000 DC AL2(@EP00247-IDCSAST) 00023000 ENTRY IDCSAST 00024000 DROP @15 00025000 @PROLOG STM @14,@12,12(@13) 0002 00026000 BALR @12,0 0002 00027000 @PSTART DS 0H 0002 00028000 USING @PSTART,@12 0002 00029000 L @00,@SIZDATD 0002 00030000 GETMAIN R,LV=(0) 00031000 LR @11,@01 0002 00032000 USING @DATD,@11 0002 00033000 ST @13,@SA00001+4 0002 00034000 LM @15,@01,16(@13) 0002 00035000 ST @11,8(,@13) 0002 00036000 LR @13,@11 0002 00037000 AH @15,4(,@15) 0002 00038000 BR @15 0002 00039000 @EP00002 DS 0H 0003 00040000 * 0247 00041000 * /*****************************************************************/ 00042000 * /* */ 00043000 * /* ENTRY POINT THROUGH WHICH USTAE IS INVOKED @Y30LB35*/ 00044000 * /* */ 00045000 * /*****************************************************************/ 00046000 * 0247 00047000 *IDCSAST: 0247 00048000 * ENTRY(GDTTBL,STAETYPE); /* @Y30LB35*/ 00049000 * 0247 00050000 B @EC00247 0247 00051000 @EP00247 MVC @PC00001(8),0(@01) 0247 00052000 @EC00247 DS 0H 0248 00053000 * /*****************************************************************/ 00054000 * /* */ 00055000 * /* THIS IS THE START OF THE MAIN PROCEDURE. @Y30LB35*/ 00056000 * /* HERE INITIALIZATION TAKES PLACE. THE @Y30LB35*/ 00057000 * /* STAEPARM ADDRESSING IS SET UP. ALSO HERE @Y30LB35*/ 00058000 * /* IS THE MAIN ENTRY TRACE POINT 'STST' AND A @Y30LB35*/ 00059000 * /* FULL REGION DUMP POINT 'STBG'. FINALLY THE @Y30LB35*/ 00060000 * /* RETURN CODE IS INITIALIZED TO 0. @Y30LB35*/ 00061000 * /* */ 00062000 * /*****************************************************************/ 00063000 * 0248 00064000 * RESPECIFY 0248 00065000 * STAEPARM BASED(ADDR(STAEWORK));/* @Y30LB35*/ 00066000 * OLDERID2=NEWERID2; 0249 00067000 L @10,@PC00001 0249 00068000 L @15,GDTTR2(,@10) 0249 00069000 MVC @TS00001(95),NEWERID2(@15) 0249 00070000 MVC OLDERID2(95,@15),@TS00001 0249 00071000 * NEWID2='STST'; /* @Y30LB35*/ 00072000 MVC NEWID2(4,@15),@CC01913 0250 00073000 * IF GDTDBG=NULLPTR THEN 0251 00074000 L @10,GDTDBG(,@10) 0251 00075000 LTR @10,@10 0251 00076000 BZ @RT00251 0251 00077000 * ; 0252 00078000 * ELSE 0253 00079000 * CALL IDCDB010(GDTTBL,'STBG'); /* @Y30LB35*/ 00080000 L @10,@PC00001 0253 00081000 ST @10,@AL00001 0253 00082000 LA @15,@CC01914 0253 00083000 ST @15,@AL00001+4 0253 00084000 MVI @AL00001+4,X'80' 0253 00085000 L @15,GDTDBG(,@10) 0253 00086000 LA @01,@AL00001 0253 00087000 BALR @14,@15 0253 00088000 * TESTRC=0; /* @Y30LB35*/ 00089000 * 0254 00090000 @RT00251 SLR @10,@10 0254 00091000 STH @10,TESTRC 0254 00092000 * /*****************************************************************/ 00093000 * /* */ 00094000 * /* HERE THE DETERMINATION IS MADE AS TO WHICH @Y30LB35*/ 00095000 * /* SERVICE IS REQUESTED. SETSTAE IS CALLED @Y30LB35*/ 00096000 * /* IF THE REQUEST IS "SET". @Y30LB35*/ 00097000 * /* */ 00098000 * /*****************************************************************/ 00099000 * 0255 00100000 * IF STAETYPE=SET /* @Y30LB35*/ 00101000 * THEN /* @Y30LB35*/ 00102000 L @10,@PC00001+4 0255 00103000 CLC STAETYPE(8,@10),SET 0255 00104000 BNE @RF00255 0255 00105000 * DO; /* @Y30LB35*/ 00106000 * CALL SETSTAE; /* @Y30LB35*/ 00107000 BAL @14,SETSTAE 0257 00108000 * RESPECIFY 0258 00109000 * RTNREG RSTD; 0258 00110000 * TESTRC=RTNREG; 0259 00111000 STH RTNREG,TESTRC 0259 00112000 * RESPECIFY 0260 00113000 * RTNREG UNRSTD; /* @Y30LB35*/ 00114000 * END; /* @Y30LB35*/ 00115000 * ELSE /* @Y30LB35*/ 00116000 * 0262 00117000 * /***************************************************************/ 00118000 * /* */ 00119000 * /* CANCEL IS CALLED IF THE REQUEST IS "CANCEL". @Y30LB35*/ 00120000 * /* */ 00121000 * /***************************************************************/ 00122000 * 0262 00123000 * IF STAETYPE=CANCEL /* @Y30LB35*/ 00124000 * THEN /* @Y30LB35*/ 00125000 B @RC00255 0262 00126000 @RF00255 L @10,@PC00001+4 0262 00127000 CLC STAETYPE(8,@10),CANCEL 0262 00128000 BNE @RF00262 0262 00129000 * DO; /* @Y30LB35*/ 00130000 * CALL CANSTAE; /* @Y30LB35*/ 00131000 BAL @14,CANSTAE 0264 00132000 * RESPECIFY 0265 00133000 * RTNREG RSTD; 0265 00134000 * TESTRC=RTNREG; 0266 00135000 STH RTNREG,TESTRC 0266 00136000 * RESPECIFY 0267 00137000 * RTNREG UNRSTD; /* @Y30LB35*/ 00138000 * END; /* @Y30LB35*/ 00139000 * 0268 00140000 * /*****************************************************************/ 00141000 * /* */ 00142000 * /* IF THE REQUEST IS INVALID UABORT(40) IS @Y30LB35*/ 00143000 * /* ISSUED. @Y30LB35*/ 00144000 * /* */ 00145000 * /*****************************************************************/ 00146000 * 0269 00147000 * ELSE /* @Y30LB35*/ 00148000 * DO; 0269 00149000 B @RC00262 0269 00150000 @RF00262 DS 0H 0270 00151000 * RESPECIFY 0270 00152000 * (REG13, 0270 00153000 * REG14, 0270 00154000 * REG15) RSTD; 0270 00155000 * REG15=BADARG; 0271 00156000 LA REG15,40 0271 00157000 * REG14=GDTABT; 0272 00158000 L @10,@PC00001 0272 00159000 L REG14,GDTABT(,@10) 0272 00160000 * REG13=GDTABH; 0273 00161000 L REG13,GDTABH(,@10) 0273 00162000 * GEN(BR REG14); 0274 00163000 BR REG14 00164000 * RESPECIFY 0275 00165000 * (REG13, 0275 00166000 * REG14, 0275 00167000 * REG15) UNRSTD; 0275 00168000 * END; /* @Y30LB35*/ 00169000 * 0276 00170000 * /*****************************************************************/ 00171000 * /* */ 00172000 * /* HERE IDCSA10 WILL EXIT. BEFORE EXIT, THE @Y30LB35*/ 00173000 * /* DUMP POINT 'STEN' IS SET UP. @Y30LB35*/ 00174000 * /* THE RETURN CODE SAVED IN TESTRC IS RETURNED @Y30LB35*/ 00175000 * /* 0 SUCCESSFUL OR 4 ERROR @Y30LB35*/ 00176000 * /* */ 00177000 * /*****************************************************************/ 00178000 * 0277 00179000 * IF GDTDBG=NULLPTR THEN 0277 00180000 @RC00262 DS 0H 0277 00181000 @RC00255 L @10,@PC00001 0277 00182000 L @10,GDTDBG(,@10) 0277 00183000 LTR @10,@10 0277 00184000 BZ @RT00277 0277 00185000 * ; 0278 00186000 * ELSE 0279 00187000 * CALL IDCDB010(GDTTBL,'STEN'); /* @Y30LB35*/ 00188000 L @10,@PC00001 0279 00189000 ST @10,@AL00001 0279 00190000 LA @15,@CC01917 0279 00191000 ST @15,@AL00001+4 0279 00192000 MVI @AL00001+4,X'80' 0279 00193000 L @15,GDTDBG(,@10) 0279 00194000 LA @01,@AL00001 0279 00195000 BALR @14,@15 0279 00196000 * CALL IDCSAEP0(GDTTBL,MODID,TESTRC);/* @Y30LB35*/ 00197000 @RT00277 L @10,@PC00001 0280 00198000 ST @10,@AL00001 0280 00199000 LA @15,MODID 0280 00200000 ST @15,@AL00001+4 0280 00201000 LA @15,TESTRC 0280 00202000 ST @15,@AL00001+8 0280 00203000 MVI @AL00001+8,X'80' 0280 00204000 L @15,GDTEPL(,@10) 0280 00205000 LA @01,@AL00001 0280 00206000 BALR @14,@15 0280 00207000 * 0281 00208000 */********************************************************************/ 00209000 */* @Y30LB35*/ 00210000 */* PROCEDURE NAME - SETSTAE @Y30LB35*/ 00211000 */* @Y30LB35*/ 00212000 */* FUNCTION - THE FUNCTIONS PERFORMED WILL BE @Y30LB35*/ 00213000 */* TO ISSUE ESTAE MACRO, BUILD THE STAEPARM, @Y30LB35*/ 00214000 */* PUT THE ADDRESS OF STAEPARM INTO SAHSTA OF @Y30LB35*/ 00215000 */* SYSTEM ADAPTOR HISTORICAL DATA AREA (SAHIST),@Y30LB35*/ 00216000 */* AND PRINT MESSAGE IF ESTAE WAS UNSUCCESSFUL. @Y30LB35*/ 00217000 */* @Y30LB35*/ 00218000 */* INPUT - SAHIST (SYSTEM ADAPTOR HISTORICAL DATA AREA) @Y30LB35*/ 00219000 */* @Y30LB35*/ 00220000 */* OUTPUT - SAHSTA OF SAHIST @Y30LB35*/ 00221000 */* STAEXSAV OF STAEPARM @Y30LB35*/ 00222000 */* STAOFF OF STAEPARM @Y30LB35*/ 00223000 */* DARGSMOD OF DARGLIST @Y30LB35*/ 00224000 */* DARGSENT OF DARGLIST @Y30LB35*/ 00225000 */* DARGDBP OF DARGLIST @Y30LB35*/ 00226000 */* DARGILP OF DARGLIST @Y30LB35*/ 00227000 */* STAEPARM @Y30LB35*/ 00228000 */* REGISTER 15 = 0, SUCCESSFUL @Y30LB35*/ 00229000 */* 4, ERROR DURING ESTAE @Y30LB35*/ 00230000 */* @Y30LB35*/ 00231000 */********************************************************************/ 00232000 * 0281 00233000 * /* @Y30LB35*/ 00234000 *SETSTAE: 0281 00235000 * PROC; /* @Y30LB35*/ 00236000 * 0281 00237000 @EL00001 L @13,4(,@13) 0281 00238000 @EF00001 L @00,@SIZDATD 0281 00239000 LR @01,@11 0281 00240000 FREEMAIN R,LV=(0),A=(1) 00241000 @ER00001 LM @14,@12,12(@13) 0281 00242000 BR @14 0281 00243000 SETSTAE STM @14,@12,@SA00002 0281 00244000 * /*****************************************************************/ 00245000 * /* */ 00246000 * /* LOCAL DECLARES @Y30LB35*/ 00247000 * /* */ 00248000 * /*****************************************************************/ 00249000 * 0282 00250000 * GENERATE DATA DEFS(STAELIST); 0282 00251000 * 0282 00252000 * /*****************************************************************/ 00253000 * /* */ 00254000 * /* DEFINE STAE ARGUMENT LIST @Y30LB35*/ 00255000 * /* */ 00256000 * /*****************************************************************/ 00257000 * 0283 00258000 * DCL 0283 00259000 * STAELIST CHAR(20) GEND STATIC LOCAL;/* @Y30LB35 00260000 * DEF STAELIST TO PLS @Y30LB35*/ 00261000 * DCL 0284 00262000 * STAEARG CHAR(20) BDY(WORD); /* @Y30LB35 00263000 * DEF CORE FOR LIST @Y30LB35*/ 00264000 * DCL 0285 00265000 * HEADER CHAR(8) INIT('STAEPARM');/* @Y30LB35 00266000 * HEADER - STAEPARM @Y30LB35*/ 00267000 * 0286 00268000 * /*****************************************************************/ 00269000 * /* */ 00270000 * /* SET UP TRACE POINT 'STSS' IN TRACE TABLE @Y30LB35*/ 00271000 * /* */ 00272000 * /*****************************************************************/ 00273000 * 0286 00274000 * OLDERID2=NEWERID2; 0286 00275000 L @10,@PC00001 0286 00276000 L @15,GDTTR2(,@10) 0286 00277000 MVC @TS00001(95),NEWERID2(@15) 0286 00278000 MVC OLDERID2(95,@15),@TS00001 0286 00279000 * NEWID2='STSS'; /* @Y30LB35*/ 00280000 * 0287 00281000 MVC NEWID2(4,@15),@CC01926 0287 00282000 * /*****************************************************************/ 00283000 * /* */ 00284000 * /* IF THE ADDRESS OF THE STAE PARAMETER LIST @Y30LB35*/ 00285000 * /* IS NOT IN THE SAHSTA FIELD, INDICATING A NEW @Y30LB35*/ 00286000 * /* STAE PARAMETER LIST IS REQUIRED, INITIALIZE @Y30LB35*/ 00287000 * /* THE ENTIRE STAEPARM AREA TO ZERO AND PUT THE @Y30LB35*/ 00288000 * /* ADDRESS OF THE AREA IN THE SAHSTA FIELD @Y30LB35*/ 00289000 * /* OF THE SYSTEM ADAPTOR HISTORICAL DATA AREA, @Y30LB35*/ 00290000 * /* AND INITIALIZE THE HEADER OF STAEPARM AREA. @Y30LB35*/ 00291000 * /* OTHERWISE, USE THE STAE PARAMETER LIST THAT @Y30LB35*/ 00292000 * /* IS ESTABLISTED BUT SET THE STAOFF BIT OFF. @Y30LB35*/ 00293000 * /* */ 00294000 * /*****************************************************************/ 00295000 * 0288 00296000 * IF SAHSTA=NULLPTR /* @Y30LB35*/ 00297000 * THEN /* @Y30LB35*/ 00298000 L @10,GDTSAH(,@10) 0288 00299000 L @15,SAHSTA(,@10) 0288 00300000 LTR @15,@15 0288 00301000 BNZ @RF00288 0288 00302000 * DO; /* @Y30LB35*/ 00303000 * STAEWORK=''B; /* @Y30LB35*/ 00304000 XC STAEWORK(58),STAEWORK 0290 00305000 * SAHSTA=ADDR(STAEWORK); /* @Y30LB35*/ 00306000 LA @15,STAEWORK 0291 00307000 ST @15,SAHSTA(,@10) 0291 00308000 * STAHEAD=HEADER; /* @Y30LB35*/ 00309000 * 0292 00310000 MVC STAHEAD(8,@15),HEADER 0292 00311000 * /*************************************************************/ 00312000 * /* */ 00313000 * /* SAVE THE REGISTERS TO USE DURING RECOVERY @Y30LB35*/ 00314000 * /* */ 00315000 * /*************************************************************/ 00316000 * 0293 00317000 * RESPECIFY 0293 00318000 * REG1 RESTRICTED; /* @Y30LB35*/ 00319000 * REG1=ADDR(SAVEREGS); /* @Y30LB35*/ 00320000 LA REG1,SAVEREGS 0294 00321000 * GEN(STM 0,15,0(REG1)); /* @Y30LB35*/ 00322000 STM 0,15,0(REG1) 00323000 * RESPECIFY 0296 00324000 * REG1 UNRESTRICTED; /* @Y30LB35*/ 00325000 * STAEXSAV=ADDR(SAVEREGS); /* @Y30LB35*/ 00326000 LA @10,STAEWORK 0297 00327000 LA @15,SAVEREGS 0297 00328000 ST @15,STAEXSAV(,@10) 0297 00329000 * END; /* @Y30LB35*/ 00330000 * ELSE /* @Y30LB35*/ 00331000 * STAOFF=OFF; /* @Y30LB35*/ 00332000 B @RC00288 0299 00333000 @RF00288 LA @10,STAEWORK 0299 00334000 NI STAOFF(@10),B'10111111' 0299 00335000 * 0300 00336000 * /*****************************************************************/ 00337000 * /* */ 00338000 * /* HERE THE INITIALIZATION IS DONE TO ISSUE @Y30LB35*/ 00339000 * /* ESTAE. @Y30LB35*/ 00340000 * /* */ 00341000 * /*****************************************************************/ 00342000 * 0300 00343000 * RESPECIFY 0300 00344000 * (REG2, 0300 00345000 * REG3, 0300 00346000 * REG4) RESTRICTED; /* @Y30LB35*/ 00347000 @RC00288 DS 0H 0301 00348000 * STAEARG=STAELIST; /* @Y30LB35*/ 00349000 MVC STAEARG(20),STAELIST 0301 00350000 * REG2=ADDR(STAEEXIT); /* @Y30LB35*/ 00351000 LA REG2,STAEEXIT 0302 00352000 * REG3=ADDR(STAEPARM); /* @Y30LB35*/ 00353000 LA REG3,STAEWORK 0303 00354000 * REG4=ADDR(STAEARG); /* @Y30LB35*/ 00355000 * 0304 00356000 LA REG4,STAEARG 0304 00357000 * /*****************************************************************/ 00358000 * /* */ 00359000 * /* ISSUE ESTAE @Y30LB35*/ 00360000 * /* */ 00361000 * /*****************************************************************/ 00362000 * 0305 00363000 *LSTAE1: 0305 00364000 * GEN(ESTAE (REG2),PARAM=(REG3),TERM=YES,MF=(E,(REG4))); 0305 00365000 LSTAE1 ESTAE (REG2),PARAM=(REG3),TERM=YES,MF=(E,(REG4)) 00366000 * RESPECIFY 0306 00367000 * (REG2, 0306 00368000 * REG3, 0306 00369000 * REG4) UNRESTRICTED; /* @Y30LB35*/ 00370000 * RESPECIFY 0307 00371000 * RTNREG RSTD; 0307 00372000 * TESTRC=RTNREG; 0308 00373000 STH RTNREG,TESTRC 0308 00374000 * RESPECIFY 0309 00375000 * RTNREG UNRSTD; /* @Y30LB35*/ 00376000 * 0309 00377000 * /*****************************************************************/ 00378000 * /* */ 00379000 * /* IF THE ESTAE RETURN CODE IS NON-ZERO, SET THE @Y30LB35*/ 00380000 * /* SAHSTA FIELD TO 0, AND ISSUE UPRINT TO PRINT @Y30LB35*/ 00381000 * /* MESSAGE SA6-12, INSERTING THE RETURN CODE @Y30LB35*/ 00382000 * /* IN HEX FROM REGISTER 15. SET RETURN CODE @Y30LB35*/ 00383000 * /* TO RCFAIL. @Y30LB35*/ 00384000 * /* */ 00385000 * /*****************************************************************/ 00386000 * 0310 00387000 * IF TESTRC^=0 /* @Y30LB35*/ 00388000 * THEN /* @Y30LB35*/ 00389000 LH @10,TESTRC 0310 00390000 SLR @15,@15 0310 00391000 CR @10,@15 0310 00392000 BE @RF00310 0310 00393000 * DO; /* @Y30LB35*/ 00394000 * SAHSTA=NULLPTR; /* @Y30LB35*/ 00395000 L @10,@PC00001 0312 00396000 L @01,GDTSAH(,@10) 0312 00397000 ST @15,SAHSTA(,@01) 0312 00398000 * DDSTRU=ADDR(PRINTARG); /* @Y30LB35*/ 00399000 LA @15,PRINTARG 0313 00400000 ST @15,DDSTRU 0313 00401000 * DARGLIST=''B; /* @Y30LB35*/ 00402000 XC DARGLIST(20,@15),DARGLIST(@15) 0314 00403000 * DARGSMOD=SA06MSG; /* @Y30LB35*/ 00404000 MVC DARGSMOD(3,@15),@CC01881 0315 00405000 * DARGSENT=MSG2391I; /* @Y30LB35*/ 00406000 MVI DARGSENT(@15),X'0B' 0316 00407000 * DARGDBP=ADDR(TESTRC); /* @Y30LB35*/ 00408000 LA @14,TESTRC 0317 00409000 ST @14,DARGDBP(,@15) 0317 00410000 * DARGILP=LENGTH(TESTRC); /* @Y30LB35*/ 00411000 MVC DARGILP(2,@15),@CH00147 0318 00412000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Y30LB35*/ 00413000 ST @10,@AL00001 0319 00414000 LA @15,@CF00108 0319 00415000 ST @15,@AL00001+4 0319 00416000 LA @15,DDSTRU 0319 00417000 ST @15,@AL00001+8 0319 00418000 MVI @AL00001+8,X'80' 0319 00419000 L @15,GDTPRT(,@10) 0319 00420000 LA @01,@AL00001 0319 00421000 BALR @14,@15 0319 00422000 * TESTRC=4; /* @Y30LB35*/ 00423000 MVC TESTRC(2),@CH00034 0320 00424000 * END; /* @Y30LB35*/ 00425000 * 0321 00426000 * /*****************************************************************/ 00427000 * /* */ 00428000 * /* HERE THE CONTROL IS RETURNED TO IDCSA10 @Y30LB35*/ 00429000 * /* WITH A RETURN CODE IN 15 OF 0 SUCCESSFUL @Y30LB35*/ 00430000 * /* OR 4 ESTAE NOT ESTABLISHED. @Y30LB35*/ 00431000 * /* */ 00432000 * /*****************************************************************/ 00433000 * 0322 00434000 * RETURN CODE(TESTRC); /* @Y30LB35*/ 00435000 @RF00310 LH @15,TESTRC 0322 00436000 L @14,@SA00002 0322 00437000 LM @00,@12,@SA00002+8 0322 00438000 BR @14 0322 00439000 * END SETSTAE; /* @Y30LB35*/ 00440000 * 0324 00441000 */********************************************************************/ 00442000 */* @Y30LB35*/ 00443000 */* PROCEDURE NAME - CANSTAE @Y30LB35*/ 00444000 */* @Y30LB35*/ 00445000 */* FUNCTION - THIS PROCEDURE ISSUES ESTAE 0 AND REMOVES @Y30LB35*/ 00446000 */* THE STAEPARM ADDRESS FROM THE SAHSTA OF @Y30LB35*/ 00447000 */* THE SAHIST (SYSTEM ADAPTOR HISTORICAL DATA @Y30LB35*/ 00448000 */* AREA) @Y30LB35*/ 00449000 */* @Y30LB35*/ 00450000 */* INPUT - STAOFF OF STAEPARM @Y30LB35*/ 00451000 */* @Y30LB35*/ 00452000 */* OUTPUT - SAHSTA OF SAHIST @Y30LB35*/ 00453000 */* REGISTER 15 = 0, SUCCESSFUL @Y30LB35*/ 00454000 */* @Y30LB35*/ 00455000 */********************************************************************/ 00456000 * 0324 00457000 * /* @Y30LB35*/ 00458000 *CANSTAE: 0324 00459000 * PROC; /* @Y30LB35*/ 00460000 CANSTAE STM @14,@12,@SA00003 0324 00461000 * 0325 00462000 * /*****************************************************************/ 00463000 * /* */ 00464000 * /* SET UP TRACE POINT 'STCS' IN TRACE TABLE @Y30LB35*/ 00465000 * /* */ 00466000 * /*****************************************************************/ 00467000 * 0325 00468000 * OLDERID2=NEWERID2; 0325 00469000 L @10,@PC00001 0325 00470000 L @10,GDTTR2(,@10) 0325 00471000 MVC @TS00001(95),NEWERID2(@10) 0325 00472000 MVC OLDERID2(95,@10),@TS00001 0325 00473000 * NEWID2='STCS'; /* @Y30LB35*/ 00474000 * 0326 00475000 MVC NEWID2(4,@10),@CC01934 0326 00476000 * /*****************************************************************/ 00477000 * /* */ 00478000 * /* IF THE STAOFF BIT IS OFF, ESTAE HAS NOT @Y30LB35*/ 00479000 * /* BEEN CANCELLED YET, SO ISSUE THE ESTAE @Y30LB35*/ 00480000 * /* MACRO TO CANCEL THE ESTAE. IGNORE ANY ERRORS. @Y30LB35*/ 00481000 * /* */ 00482000 * /*****************************************************************/ 00483000 * 0327 00484000 * IF STAOFF=OFF /* @Y30LB35*/ 00485000 * THEN /* @Y30LB35*/ 00486000 LA @10,STAEWORK 0327 00487000 TM STAOFF(@10),B'01000000' 0327 00488000 BNZ @RF00327 0327 00489000 * DO; /* @Y30LB35*/ 00490000 * GEN(ESTAE 0); /* @Y30LB35*/ 00491000 * 0329 00492000 ESTAE 0 00493000 * /*************************************************************/ 00494000 * /* */ 00495000 * /* SET THE SAHSTA FIELD TO 0 TO INDICATE THE @Y30LB35*/ 00496000 * /* ESTAE IS NOT IN EFFECT @Y30LB35*/ 00497000 * /* */ 00498000 * /*************************************************************/ 00499000 * 0330 00500000 * SAHSTA=NULLPTR; /* @Y30LB35*/ 00501000 SLR @10,@10 0330 00502000 L @15,@PC00001 0330 00503000 L @01,GDTSAH(,@15) 0330 00504000 ST @10,SAHSTA(,@01) 0330 00505000 * TESTRC=0; /* @Y30LB35*/ 00506000 STH @10,TESTRC 0331 00507000 * END; /* @Y30LB35*/ 00508000 * 0332 00509000 * /*****************************************************************/ 00510000 * /* */ 00511000 * /* CONTROL IS RETURNED TO IDCSA10 WITH A @Y30LB35*/ 00512000 * /* ZERO CODE IN REGISTER 15. @Y30LB35*/ 00513000 * /* */ 00514000 * /*****************************************************************/ 00515000 * 0333 00516000 * RETURN CODE(TESTRC); /* @Y30LB35*/ 00517000 @RF00327 LH @15,TESTRC 0333 00518000 L @14,@SA00003 0333 00519000 LM @00,@12,@SA00003+8 0333 00520000 BR @14 0333 00521000 * END CANSTAE; /* @Y30LB35*/ 00522000 * 0335 00523000 */********************************************************************/ 00524000 */* @Y30LB35*/ 00525000 */* PROCEDURE NAME - STAEEXIT @Y30LB35*/ 00526000 */* @Y30LB35*/ 00527000 */* FUNCTION - THIS PROCEDURE SETS UP ADDRESSABILITY, @Y30LB35*/ 00528000 */* WILL DETERMINE IF RETRY SHOULD BE ATTEMPTED @Y30LB35*/ 00529000 */* AND WILL SET UP TO RETRY, OR WILL CALL @Y30LB35*/ 00530000 */* RECOVERY TO CLEAN UP BEFORE THE ABEND OCCURS @Y30LB35*/ 00531000 */* @Y30LB35*/ 00532000 */* INPUT - SDWA POINTED TO BY REG1 AT ENTRY @Y30LB35*/ 00533000 */* SDWAPARM IN SDWA @Y30LB35*/ 00534000 */* STAEXSAV IN STAEPARM @Y30LB35*/ 00535000 */* SAHSTA IN SAHIST @Y30LB35*/ 00536000 */* REG0 @Y30LB35*/ 00537000 */* @Y30LB35*/ 00538000 */* OUTPUT - REG0 THRU REG15 @Y30LB35*/ 00539000 */* REGISTER 15 = 0, CONTINUE TO TERMINATE @Y30LB35*/ 00540000 */* 4, RETRY @Y30LB35*/ 00541000 */* @Y30LB35*/ 00542000 */********************************************************************/ 00543000 * 0335 00544000 * /* @Y30LB35*/ 00545000 *STAEEXIT: 0335 00546000 * PROCEDURE OPTIONS(NOSAVEAREA,NOSAVE);/* @Y30LB35*/ 00547000 * 0335 00548000 STAEEXIT DS 0H 0336 00549000 * /*****************************************************************/ 00550000 * /* */ 00551000 * /* LOCAL DELCLARES @Y30LB35*/ 00552000 * /* */ 00553000 * /*****************************************************************/ 00554000 * 0336 00555000 * DCL 0336 00556000 * NOSDWA FIXED(8) UNSIGNED CONSTANT(12);/* @Y30LB35 00557000 * TEST FOR SDWA @Y30LB35*/ 00558000 * DCL 0337 00559000 * PASSABND CHAR(3) INIT('913000'X);/* @Y30LB35 00560000 * TEST FOR PASSWORD @Y30LB35 00561000 * ABEND @Y30LB35*/ 00562000 * DCL 0338 00563000 * PASSCD FIXED(31) INIT('0000000C'X);/* @Y30LB35 00564000 * TEST FOR PASSWORD @Y30LB35 00565000 * RETURN CODE @Y30LB35*/ 00566000 * DCL 0339 00567000 * CD56RACF FIXED(31) /* RACF RET.CODE-NOT AUTH 0339 00568000 * @G24LB31*/ 00569000 * INIT('00000038'X); /* @G24LB31*/ 00570000 * DCL 0340 00571000 * CD60RACF FIXED(31) /* RACF RET.CODE-NOT DEFINE 0340 00572000 * @G24LB31*/ 00573000 * INIT('0000003C'X); /* @G24LB31*/ 00574000 * DCL 0341 00575000 * NULLFLAG CHAR(1) INIT('00'X); /* @Y30LB35 00576000 * TEST RECOVERY FLAGS @Y30LB35*/ 00577000 * DCL 0342 00578000 * SDWAPTR REGISTER(3); /* @Y30LB35 00579000 * POINTER TO SDWA @Y30LB35*/ 00580000 * DCL 0343 00581000 * RTNPTR PTR(31); /* POINTER TO RTN @Y30LB35*/ 00582000 * DCL 0344 00583000 * GPR00P REG(0); /* SETRPP DECLARE @ZM44018*/ 00584000 * DCL 0345 00585000 * GPR01P REG(1); /* SETRPP DECLARE @ZM44018*/ 00586000 * DCL 0346 00587000 * GPR14P REG(14); /* SETRPP DECLARE @ZM44018*/ 00588000 * DCL 0347 00589000 * GPR15P REG(15); /* SETRPP DECLARE @ZM44018*/ 00590000 * DCL 0348 00591000 * RETPOINT LABEL BASED(STARTADD);/* @ZM44018*/ 00592000 * 0349 00593000 * /*****************************************************************/ 00594000 * /* */ 00595000 * /* THE POINTER TO THE ESTAE PARAMETER @Y30LB35*/ 00596000 * /* IS OBTAINED FROM THE SDWA OR FROM REGISTER 2 @Y30LB35*/ 00597000 * /* IF THE SDWA IS NOT PRESENT (REGISTER 0 @Y30LB35*/ 00598000 * /* CONTAINS 12). THE REGISTERS AT THE TIME THE @Y30LB35*/ 00599000 * /* ESTAE WAS ORIGINALLY ISSUED WILL BE RESTORED @Y30LB35*/ 00600000 * /* BY LOADING THE ADDRESS IN THE STAEXSAV FIELD @Y30LB35*/ 00601000 * /* AND USING THE ASSEMBLER LOAD MULTIPLE @Y30LB35*/ 00602000 * /* INSTRUCTION. @Y30LB35*/ 00603000 * /* */ 00604000 * /*****************************************************************/ 00605000 * 0349 00606000 * RFY 0349 00607000 * (REG0, 0349 00608000 * REG1, 0349 00609000 * REG2, 0349 00610000 * SDWAPTR, 0349 00611000 * REG14, 0349 00612000 * REG15) RSTD; /* @Y30LB35*/ 00613000 * RESPECIFY 0350 00614000 * STAEPARM BASED(REG1); /* @Y30LB35*/ 00615000 * GENERATE SETS(REG15); 0351 00616000 * /*@Y30LB35*/ 00617000 USING *,@15 /*@Y30LB35*/ 00618000 * IF REG0^=NOSDWA /* @Y30LB35*/ 00619000 * THEN /* @Y30LB35*/ 00620000 C REG0,@CF00601 0352 00621000 BE @RF00352 0352 00622000 * DO; /* @Y30LB35*/ 00623000 * SDWAPTR=REG1; /* @Y30LB35*/ 00624000 LR SDWAPTR,REG1 0354 00625000 * REG1=SDWAPARM; /* @Y30LB35*/ 00626000 L REG1,SDWAPARM(,SDWAPTR) 0355 00627000 * END; /* @Y30LB35*/ 00628000 * ELSE /* @Y30LB35*/ 00629000 * REG1=REG2; /* @Y30LB35*/ 00630000 B @RC00352 0357 00631000 @RF00352 LR REG1,REG2 0357 00632000 * REG2=STAEXSAV; /* @Y30LB35*/ 00633000 @RC00352 L REG2,STAEXSAV(,REG1) 0358 00634000 * GEN(LM 4,13,16(2)); /* @Y30LB35*/ 00635000 LM 4,13,16(2) 00636000 * GEN(LM 1,2,4(2)); /* @Y30LB35*/ 00637000 LM 1,2,4(2) 00638000 * GEN(DROP @15); /* @Y30LB35*/ 00639000 DROP @15 00640000 * GEN(USING @PSTART,@12); /* @Y30LB35*/ 00641000 USING @PSTART,@12 00642000 * RESPECIFY 0363 00643000 * STAEPARM BASED(SAHSTA); /* @Y30LB35*/ 00644000 * RTNPTR=REG14; /* @Y30LB35*/ 00645000 * 0364 00646000 LR RTNPTR,REG14 0364 00647000 * /*****************************************************************/ 00648000 * /* */ 00649000 * /* SET UP TRACE POINT 'STEX' IN TRACE TABLE @Y30LB35*/ 00650000 * /* THIS IS THE EARLIEST THIS CAN BE ISSUED @Y30LB35*/ 00651000 * /* */ 00652000 * /*****************************************************************/ 00653000 * 0365 00654000 * OLDERID2=NEWERID2; 0365 00655000 L @10,@PC00001 0365 00656000 L @10,GDTTR2(,@10) 0365 00657000 MVC @TS00001(95),NEWERID2(@10) 0365 00658000 MVC OLDERID2(95,@10),@TS00001 0365 00659000 * NEWID2='STEX'; /* @Y30LB35*/ 00660000 MVC NEWID2(4,@10),@CC01956 0366 00661000 * 0367 00662000 * /*****************************************************************/ 00663000 * /* */ 00664000 * /* IF THE STAIO05 RETRY BIT IS SET (INDICATION @Y30LB35*/ 00665000 * /* IDCIO05 WISHES TO GET CONTROL BACK IN THE @Y30LB35*/ 00666000 * /* EVENT OF A RACF/PASSWORD ABEND DURING OPEN), @G24LB31*/ 00667000 * /* RETRIEVE THE ABEND CODE AND RETURN CODE @Y30LB35*/ 00668000 * /* FROM THE SDWA. IF THE ABEND CODE IS 913 @Y30LB35*/ 00669000 * /* (OPEN ABEND) AND THE RETURN CODE IS 12 @Y30LB35*/ 00670000 * /* (PASSWORD ERROR), OR 56/60 (RACF ERRORS), @G24LB31*/ 00671000 * /* SET THE RETURN CODE TO @G24LB31*/ 00672000 * /* INDICATE RETRY. IF THE STAVTOC BIT IS SET @Z40LB35*/ 00673000 * /* IDCIO05 WILL ALSO GET CONTROL FOR RETRY FROM @Z40LB35*/ 00674000 * /* OPEN ABEND OF A VOLUME VTOC. @Z40LB35*/ 00675000 * /* */ 00676000 * /*****************************************************************/ 00677000 * 0367 00678000 * IF REG0^=NOSDWA THEN /* @ZA17144*/ 00679000 C REG0,@CF00601 0367 00680000 BE @RF00367 0367 00681000 * IF(SDWACMPC=PASSABND& /* @ZA17144*/ 00682000 * (SDWAGR15=PASSCD| /* @G24LB31*/ 00683000 * SDWAGR15=CD56RACF| /* @G24LB31*/ 00684000 * SDWAGR15=CD60RACF)& /* @G24LB31*/ 00685000 * STAIO05=ON)|STAVTOC=ON /* @G24LB31*/ 00686000 * THEN /* @G24LB31*/ 00687000 CLC SDWACMPC(3,SDWAPTR),PASSABND 0368 00688000 BNE @GL00001 0368 00689000 L @10,SDWAGR15(,SDWAPTR) 0368 00690000 C @10,PASSCD 0368 00691000 BE @GL00002 0368 00692000 C @10,CD56RACF 0368 00693000 BE @GL00002 0368 00694000 C @10,CD60RACF 0368 00695000 BNE @GL00001 0368 00696000 @GL00002 L @10,@PC00001 0368 00697000 L @10,GDTSAH(,@10) 0368 00698000 L @10,SAHSTA(,@10) 0368 00699000 TM STAIO05(@10),B'10000000' 0368 00700000 BO @RT00368 0368 00701000 @GL00001 L @10,@PC00001 0368 00702000 L @10,GDTSAH(,@10) 0368 00703000 L @10,SAHSTA(,@10) 0368 00704000 TM STAVTOC(@10),B'00100000' 0368 00705000 BNO @RF00368 0368 00706000 @RT00368 DS 0H 0369 00707000 * DO; /* @G24LB31*/ 00708000 * 0369 00709000 * /***********************************************************/ 00710000 * /* */ 00711000 * /* INITIALIZE AND ISSUE SETRP MACRO TO FILL @Y30LB35*/ 00712000 * /* IN THE RETRY INTO THE SDWA ALSO TO @Y30LB35*/ 00713000 * /* FILL IN THE CODE 4 TO INDICATE RETRY. @Y30LB35*/ 00714000 * /* */ 00715000 * /***********************************************************/ 00716000 * 0370 00717000 *LSETRP1: 0370 00718000 * REG1=ADDR(SDWA); /* @ZM44018*/ 00719000 LSETRP1 LR REG1,SDWAPTR 0370 00720000 * DO; /* SETRP 0371 00721000 * RETADDR(RETPOINT)RC(4)DUMP(NO)*/ 00722000 * RESPECIFY 0372 00723000 * (GPR00P, 0372 00724000 * GPR01P, 0372 00725000 * GPR14P, 0372 00726000 * GPR15P) RSTD; 0372 00727000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00728000 MVI SDWARCDE(GPR01P),X'04' 0373 00729000 * GPR01P->SDWARTYA=ADDR(RETPOINT);/* SAVE RETRY ADDRESS */ 00730000 L @10,@PC00001 0374 00731000 L @10,GDTSAH(,@10) 0374 00732000 L @10,SAHSTA(,@10) 0374 00733000 L @10,STARTADD(,@10) 0374 00734000 ST @10,SDWARTYA(,GPR01P) 0374 00735000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00736000 NI SDWAREQ(GPR01P),B'01111111' 0375 00737000 * RESPECIFY 0376 00738000 * (GPR00P, 0376 00739000 * GPR01P, 0376 00740000 * GPR14P, 0376 00741000 * GPR15P) UNRSTD; 0376 00742000 * END; /* @ZM44018*/ 00743000 * TESTRC=SDWARETY; /* @Y30LB35*/ 00744000 MVC TESTRC(2),@CH00034 0378 00745000 * REG0=STARTADD; /* @Y30LB35*/ 00746000 LR REG0,@10 0379 00747000 * END; /* @Y30LB35*/ 00748000 * 0381 00749000 * /*****************************************************************/ 00750000 * /* */ 00751000 * /* IF ANY RECOVERY BITS ARE ON, CALL THE @Y30LB35*/ 00752000 * /* RECOVERY PROCEDURE TO PERFORM THE NECESSARY @Y30LB35*/ 00753000 * /* CLEAN-UP BEFORE CONTINUING TO ABEND. @Y30LB35*/ 00754000 * /* */ 00755000 * /*****************************************************************/ 00756000 * 0381 00757000 * ELSE 0381 00758000 * ; /* @ZA17144*/ 00759000 @RF00368 DS 0H 0382 00760000 * ELSE /* @ZA17144*/ 00761000 * DO; /* @ZA17144*/ 00762000 B @RC00367 0382 00763000 @RF00367 DS 0H 0383 00764000 * TESTRC=SDWACWT; /* @ZA17144*/ 00765000 SLR @10,@10 0383 00766000 STH @10,TESTRC 0383 00767000 * IF STARCVY^=NULLFLAG /* @ZA17144*/ 00768000 * THEN /* @ZA17144*/ 00769000 L @10,@PC00001 0384 00770000 L @10,GDTSAH(,@10) 0384 00771000 L @10,SAHSTA(,@10) 0384 00772000 CLC STARCVY(1,@10),NULLFLAG 0384 00773000 BE @RF00384 0384 00774000 * CALL RECOVERY; /* @ZA17144*/ 00775000 BAL @14,RECOVERY 0385 00776000 * END; /* @ZA17144*/ 00777000 * 0386 00778000 @RF00384 DS 0H 0387 00779000 * /*****************************************************************/ 00780000 * /* */ 00781000 * /* HERE CONTROL IS RETURNED TO RTM(RECOVERY TERM @Y30LB35*/ 00782000 * /* MANAGEMENT). REG 15 WILL HAVE 0 FOR CONTINUE @Y30LB35*/ 00783000 * /* TO TERMINATE OR 4 TO RETRY. @Y30LB35*/ 00784000 * /* */ 00785000 * /*****************************************************************/ 00786000 * 0387 00787000 * REG14=RTNPTR; /* @Y30LB35*/ 00788000 @RC00367 LR REG14,RTNPTR 0387 00789000 * RETURN CODE(TESTRC); /* @Y30LB35*/ 00790000 LH @15,TESTRC 0388 00791000 @EL00004 DS 0H 0388 00792000 @EF00004 DS 0H 0388 00793000 @ER00004 BR @14 0388 00794000 * RESPECIFY 0389 00795000 * (REG0, 0389 00796000 * REG1, 0389 00797000 * SDWAPTR, 0389 00798000 * REG14) UNRSTD; /* @Y30LB35*/ 00799000 * END STAEEXIT; /* @Y30LB35*/ 00800000 * 0391 00801000 */********************************************************************/ 00802000 */* @Y30LB35*/ 00803000 */* PROCEDURE NAME - RECOVERY @Y30LB35*/ 00804000 */* @Y30LB35*/ 00805000 */* FUNCTION - THIS PROCEDURES PERFORMS THE CLEAN UP @Y30LB35*/ 00806000 */* BEFORE ABEND OCCURS. THE ITEMS CLEANED UP @Y30LB35*/ 00807000 */* CAN BE ONE OR ALL OF THE FOLLOWING DEPENDING @Y30LB35*/ 00808000 */* ON THE FLAGS SET IN STARCVY IN STAEPARM: @Y30LB35*/ 00809000 */* 1) AN INCOMPLETED MOUNT WILL BE DEMOUNTED @Y30LB35*/ 00810000 */* 2) A UCB COULD BE CLEARED OF VOLUME SERIAL@Y30LB35*/ 00811000 */* AND THE VTOC TTR. @Y30LB35*/ 00812000 */* 3) AN ENQUEUED VOLUME WILL BE DEQUEUED. @Y30LB35*/ 00813000 */* @Y30LB35*/ 00814000 */* INPUT - STAVVOL FROM STAEPARM @Y30LB35*/ 00815000 */* STAVTTR FROM STAEPARM @ZA05112*/ 00816000 */* STAVUCB FROM STAEPARM @Y30LB35*/ 00817000 */* STARVOL FROM STAEPARM @Y30LB35*/ 00818000 */* STARTTR FROM STAEPARM @Y30LB35*/ 00819000 */* STAVMNT FROM STAEPARM @Y30LB35*/ 00820000 */* STAVPOST FROM STAEPARM @Y30LB35*/ 00821000 */* STACLEAR FROM STAEPARM @Y30LB35*/ 00822000 */* STAVENQ FROM STAEPARM @Y30LB35*/ 00823000 */* STATCB FROM STAEPARM @Y30LB35*/ 00824000 */* @Y30LB35*/ 00825000 */* OUTPUT - DMNTLPTR @Y30LB35*/ 00826000 */* DEMNTLST @Y30LB35*/ 00827000 */* ISUEDRC @Y30LB35*/ 00828000 */* STAVMNT OF STAEPARM @Y30LB35*/ 00829000 */* STAVDMNT OF STAEPARM @Y30LB35*/ 00830000 */* STACLEAR OF STAEPARM @Y30LB35*/ 00831000 */* STAVPOST OF STAEPARM @Y30LB35*/ 00832000 */* STAVENQ OF STAEPARM @Y30LB35*/ 00833000 */* SV82CODE OF SV82LIST @Y30LB35*/ 00834000 */* SV82UCBP OF SV82LIST @Y30LB35*/ 00835000 */* SV82WRKP OF SV82LIST @Y30LB35*/ 00836000 */* SV82VOLP OF SV82LIST @Y30LB35*/ 00837000 */* SV82TTRP OF SV82LIST @Y30LB35*/ 00838000 */* VOLSER @Y30LB35*/ 00839000 */* TCBP @Y30LB35*/ 00840000 */* DEQLIST @Y30LB35*/ 00841000 */* MAJNAME @Y30LB35*/ 00842000 */* REGISTER 15 = 0, SUCCESSFUL @Y30LB35*/ 00843000 */* @Y30LB35*/ 00844000 */********************************************************************/ 00845000 * 0391 00846000 * /* @Y30LB35*/ 00847000 *RECOVERY: 0391 00848000 * PROCEDURE OPTIONS(SAVE(REG14)); /* @ZA11686*/ 00849000 * 0391 00850000 RECOVERY ST @14,@SA00005 0391 00851000 * /*****************************************************************/ 00852000 * /* */ 00853000 * /* LOCAL DECLARATIONS FOR RECOVERY @Y30LB35*/ 00854000 * /* */ 00855000 * /*****************************************************************/ 00856000 * 0392 00857000 * DCL 0392 00858000 * ISUEDRC PTR(31); /* ISSUE DMNT RETURN CODE 0392 00859000 * @Y30LB35*/ 00860000 * DCL 0393 00861000 * DMNTLPTR PTR(31); /* PTR TO THE DMNTLIST @ZA05112*/ 00862000 * DCL 0394 00863000 * WTOPTR POINTER(31); /* WTO MSG POINTER @ZA05084*/ 00864000 * DCL 0395 00865000 * WTOLEN FIXED(15); /* LENGTH OF WTO MSG @ZA05084*/ 00866000 * DCL 0396 00867000 * WTOMSG CHAR(72); /* UWTO MESSAGE AREA @ZA05084*/ 00868000 * DCL 0397 00869000 * MDREG1 REG(1) PTR; /* ADDRESS OF REQUEST BLOCK 0397 00870000 * @Y30LB02*/ 00871000 */* ******************************************************** @Y30LB02 00872000 * */ 00873000 */* MACMEAN MSSC DEMOUNT MACRO @Y30LB02 00874000 * */ 00875000 */* VS1-4/VS2-3 VERSION--01/19/76 LEVEL 00 @ZDR2048 00876000 * */ 00877000 */* THIS IS THE UNINITIALIZED LIST FORM @Y30LB02 00878000 * */ 00879000 */* ******************************************************** @Y30LB02 00880000 * */ 00881000 * 0398 00882000 * DCL 0398 00883000 * 1 DMNTLIST BASED(DMNTLPTR), /* DEMOUNT REQUEST BLOCK @Y30LB02*/ 00884000 * 2 DMLEN FIXED(31), /* LENGTH OF DEMOUNT REQ BLK = 1C 00885000 * HEX BYTES @Y30LB02*/ 00886000 * 2 DMOPCD FIXED(8), /* DEMOUNT OPCODE = 06 HEX 0398 00887000 * @Y30LB02*/ 00888000 * 2 DMNTRES1 CHAR(1), /* RESERVED @Y30LB02*/ 00889000 * 2 DMNTFLAG BIT(16), /* FLAGS AREA @Y30LB02*/ 00890000 * 3 DMBITRE1 BIT(1), /* ONE RESERVED BIT @YM02186*/ 00891000 * 3 DMDELRSP BIT(1), /* DEMOUNT DELAYED RESPONSE 0398 00892000 * ATTRIBUTE @YM02186*/ 00893000 * 3 DMVUAVAL BIT(1), /* DEMOUNT VUA VALID ATTRIBUTE 0398 00894000 * @ZDR2048*/ 00895000 * 3 DMBITRES BIT(13), /* THIRTEEN RESERVED BITS 0398 00896000 * @ZDR2048*/ 00897000 * 2 DMVOL CHAR(6), /* VOLID FIELD @Y30LB02*/ 00898000 * 2 DMNTASID CHAR(2), /* ASID AREA @Y30LB02*/ 00899000 * 2 DMNTECB FIXED(31), /* DEMOUNT EVENT CONTROL BLOCK 0398 00900000 * @Y30LB02*/ 00901000 * 2 DMHOST CHAR(5), /* 5-BYTE HOSTID AREA @Y30LB02*/ 00902000 * 2 DMNTRES2 CHAR(1), /* RESERVED @ZDR2048*/ 00903000 * 2 DMNTVUA FIXED(15); /* VIRTUAL UNIT ADDRESS @ZDR2048 00904000 * @Y30LB35*/ 00905000 * 0398 00906000 * /*****************************************************************/ 00907000 * /* */ 00908000 * /* STORAGE AREA FOR DEMOUNT ARGUMENT LIST @Y30LB35*/ 00909000 * /* */ 00910000 * /*****************************************************************/ 00911000 * 0399 00912000 * DCL 0399 00913000 * DEMNTLST CHAR(LENGTH(DMNTLIST)) BDY(WORD);/* @Y30LB35*/ 00914000 * 0399 00915000 * /*****************************************************************/ 00916000 * /* */ 00917000 * /* STORAGE AREA FOR SVC 82 ARGUMENT LIST @Y30LB35*/ 00918000 * /* */ 00919000 * /*****************************************************************/ 00920000 * 0400 00921000 * DCL 0400 00922000 * SVC82ARG CHAR(LENGTH(SV82LIST)) BDY(WORD);/* @Y30LB35*/ 00923000 * 0400 00924000 * /*****************************************************************/ 00925000 * /* */ 00926000 * /* DECLARES FOR DEQUEUE @Y30LB35*/ 00927000 * /* */ 00928000 * /*****************************************************************/ 00929000 * 0401 00930000 * DCL 0401 00931000 * TCBP PTR(31); /* @Y30LB35 00932000 * PTR TO ENQ TCB @Y30LB35*/ 00933000 * DCL 0402 00934000 * DEQLIST CHAR(*) GEND; /* DEQUEUE GETMAINED @Y30LB35*/ 00935000 * DCL 0403 00936000 * DEQEXEC CHAR(*) GEND; /* DEQUEUE GETMAINED @Y30LB35*/ 00937000 * DCL 0404 00938000 * MAJNAME CHAR(8) STATIC INIT('SYSZVOLS');/* @Y30LB35 00939000 * MAJOR DEQ RESOURCE @Y30LB35*/ 00940000 * DCL 0405 00941000 * VOLSER CHAR(6) BDY(WORD); /* @Y30LB35 00942000 * VOLSER FIELD FOR DEQ @Y30LB35*/ 00943000 * DCL 0406 00944000 * DEQCORE CHAR(*) STATIC LOCAL GEND;/* @Y30LB35 00945000 * GEND CORE DECLARE @Y30LB35*/ 00946000 * DCL 0407 00947000 * DEQLEN FIXED(31) STATIC LOCAL GEND;/* @Y30LB35 00948000 * GEND LENGTH DCL @Y30LB35*/ 00949000 * 0407 00950000 * /*****************************************************************/ 00951000 * /* */ 00952000 * /* THE FOLLOWING TWO GENERATE STATEMENTS WILL @Y30LB35*/ 00953000 * /* BUILD THE DEQLIST AND SET UP ITS SIZE. @Y30LB35*/ 00954000 * /* */ 00955000 * /*****************************************************************/ 00956000 * 0408 00957000 * GENERATE DATA DEFS(DEQCORE,DEQLEN) REFS(MAJNAME); 0408 00958000 * GENERATE DATA DEFS(DEQLIST,DEQEXEC) REFS(MAJNAME); 0409 00959000 * DCL 0410 00960000 * RETAREA CHAR(10) BDY(WORD); /* @Y30LB35 00961000 * RETURN VOLSER AND @Y30LB35 00962000 * VTOC TTR FROM UCB @Y30LB35*/ 00963000 * DCL 0411 00964000 * CLEARCD FIXED(8) STATIC INIT('22'X);/* @Y30LB35 00965000 * CODE TO INDICATE @Y30LB35 00966000 * CLEAR UCB TO SVC 82 @Y30LB35*/ 00967000 * DCL 0412 00968000 * POSTCD FIXED(8) STATIC INIT('23'X);/* @Y30LB35 00969000 * CODE TO INDICATE @Y30LB35 00970000 * POST UCB TO SVC 82 @Y30LB35*/ 00971000 * 0413 00972000 * /*****************************************************************/ 00973000 * /* */ 00974000 * /* THE FOLLOWING DECLARATIONS ARE MADE TO ENABLE RECOVERY TO */ 00975000 * /* CHAIN INTO THE SAVE AREA CHAIN A DUMMY SAVE AREA NEEDED TO */ 00976000 * /* ALLOW IDCSA03 (UEPIL) TO CORRECTLY SAVE THE SA10 MODID IN THE */ 00977000 * /* TRACE TABLE AND TO ALLOW IT TO RETURN TO IDCSA10 AFTER CALLING*/ 00978000 * /* USYSINFO AND THE TEXT PROCESSOR. @ZA05112*/ 00979000 * /* */ 00980000 * /*****************************************************************/ 00981000 * 0413 00982000 * DCL 0413 00983000 * AREAREG REG(13); /* SA10 SAVE AREA PTR @ZA05112*/ 00984000 * DCL 0414 00985000 * 1 SAVEOVLY CHAR(72) BASED(*), /* SAVE AREA OVERLAY @ZA05112*/ 00986000 * 2 MOD CHAR(4), /* MODID NAME @ZA05112*/ 00987000 * 2 BACKWARD PTR(31), /* BACK CHAIN PTR @ZA05112*/ 00988000 * 2 FORWARD PTR(31), /* FORWARD CHAIN PTR @ZA05112*/ 00989000 * 2 * CHAR(60); /* REGISTER SAVE @ZA05112*/ 00990000 * DCL 0415 00991000 * 1 NEWSAVE CHAR(72), /* DUMMY SAVE AREA @ZA05112*/ 00992000 * 2 TRACEMOD CHAR(4), /* SA10 MODID @ZA05112*/ 00993000 * 2 BACKCHN PTR(31), /* BACK CHAIN PTR @ZA05112*/ 00994000 * 2 FORCHAIN PTR(31), /* FORWARD CHAIN PTR @ZA05112*/ 00995000 * 2 * CHAR(60); /* TO BE MADE ZEROES @ZA05112*/ 00996000 * 0416 00997000 * /*****************************************************************/ 00998000 * /* */ 00999000 * /* SET UP TRACE POINT 'STRY' IN TRACE TABLE @Y30LB35*/ 01000000 * /* */ 01001000 * /*****************************************************************/ 01002000 * 0416 01003000 * OLDERID2=NEWERID2; 0416 01004000 L @14,@PC00001 0416 01005000 L @10,GDTTR2(,@14) 0416 01006000 MVC @TS00001(95),NEWERID2(@10) 0416 01007000 MVC OLDERID2(95,@10),@TS00001 0416 01008000 * NEWID2='STRY'; /* @Y30LB35*/ 01009000 MVC NEWID2(4,@10),@CC02017 0417 01010000 * RESPECIFY 0418 01011000 * SV82LIST BASED(ADDR(SVC82ARG));/* @Y30LB35*/ 01012000 * ISUEDRC=0; /* @Y30LB35*/ 01013000 * 0419 01014000 SLR ISUEDRC,ISUEDRC 0419 01015000 * /*****************************************************************/ 01016000 * /* */ 01017000 * /* IF (1) THE STAVMNT BIT IS ON BUT THE STAVPOST #Y30LB35*/ 01018000 * /* IS OFF (INDICATING A VIRTUAL VOLUME IS MOUNTED @Y30LB35*/ 01019000 * /* BUT THE UCB HAS NOT BEEN POSTED) OR (2) BOTH @Y30LB35*/ 01020000 * /* THE STACLEAR AND STAVMNT BITS ARE ON @Y30LB35*/ 01021000 * /* (INDICATING A UCB MUST BE POSTED BUT THE @Y30LB35*/ 01022000 * /* VIRTUAL VOLUME NEEDS TO BE DEMOUNTED FIRST), @Y30LB35*/ 01023000 * /* DO THE FOLLOWING TO DEMOUNT THE VIRTUAL @Y30LB35*/ 01024000 * /* VOLUME: @Y30LB35*/ 01025000 * /* */ 01026000 * /*****************************************************************/ 01027000 * 0420 01028000 * IF(STAVMNT=ON&STAVPOST=OFF)| /* @Y30LB35*/ 01029000 * (STACLEAR=ON&STAVMNT=ON) /* @Y30LB35*/ 01030000 * THEN /* @Y30LB35*/ 01031000 L @14,GDTSAH(,@14) 0420 01032000 L @14,SAHSTA(,@14) 0420 01033000 TM STAVMNT(@14),B'10000000' 0420 01034000 BNO @GL00006 0420 01035000 TM STAVPOST(@14),B'00010000' 0420 01036000 BZ @RT00420 0420 01037000 @GL00006 L @14,@PC00001 0420 01038000 L @14,GDTSAH(,@14) 0420 01039000 L @14,SAHSTA(,@14) 0420 01040000 TM STACLEAR(@14),B'10001000' 0420 01041000 BNO @RF00420 0420 01042000 @RT00420 DS 0H 0421 01043000 * DO; /* @Y30LB35*/ 01044000 * 0421 01045000 * /*************************************************************/ 01046000 * /* */ 01047000 * /* SET UP THE DEMOUNT ARGUMENT LIST. @Y30LB35*/ 01048000 * /* RETRIEVE THE VOLUME SERIAL FROM STAVVOL @Y30LB35*/ 01049000 * /* FIELD. @Y30LB35*/ 01050000 * /* */ 01051000 * /*************************************************************/ 01052000 * 0422 01053000 * DMNTLPTR=ADDR(DEMNTLST); /* @Y30LB35*/ 01054000 LA DMNTLPTR,DEMNTLST 0422 01055000 * DEMNTLST=''B; /* @Y30LB35*/ 01056000 XC DEMNTLST(28),DEMNTLST 0423 01057000 * DMVOL=STAVVOL; /* @Y30LB35*/ 01058000 * 0424 01059000 L @14,@PC00001 0424 01060000 L @14,GDTSAH(,@14) 0424 01061000 L @14,SAHSTA(,@14) 0424 01062000 MVC DMVOL(6,DMNTLPTR),STAVVOL(@14) 0424 01063000 * /*************************************************************/ 01064000 * /* */ 01065000 * /* ISSUE THE ICBMNTDE MACRO EXECUTE FORM, @Y30LB35*/ 01066000 * /* TO DEMOUNT THE VOLUME. @ZA05084*/ 01067000 * /* */ 01068000 * /*************************************************************/ 01069000 * 0425 01070000 */* ******************************************************** @Y30LB02 01071000 * */ 01072000 */* MACMEAN MSSC MOUNT/DEMOUNT MACRO @Y30LB02 01073000 * */ 01074000 */* VS2-3 VERSION-- 02/06/76 @G18MB04 01075000 * */ 01076000 */* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02 01077000 * */ 01078000 */* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02 01079000 * */ 01080000 */* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02 01081000 * */ 01082000 */* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02 01083000 * */ 01084000 */* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02 01085000 * */ 01086000 */* ******************************************************** @Y30LB02 01087000 * */ 01088000 * 0425 01089000 * RFY 0425 01090000 * MDREG1 RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01091000 * MDREG1=ADDR(DMNTLIST); /* R1 PTR TO REQ BLOCK @Y30LB02*/ 01092000 LR MDREG1,DMNTLPTR 0426 01093000 * DMLEN='1C'X; /* LENGTH DEMOUNT REQUEST BLOCK 01094000 * @Y30LB02*/ 01095000 LA @14,28 0427 01096000 ST @14,DMLEN(,DMNTLPTR) 0427 01097000 * DMOPCD='06'X; /* DEMOUNT OPCODE @Y30LB02*/ 01098000 MVI DMOPCD(DMNTLPTR),X'06' 0428 01099000 * SVC(126); /* INVOKE THE SSC SVC @Y30LB02*/ 01100000 SVC 126 0429 01101000 * RFY 0430 01102000 * MDREG1 UNRSTD; /* UNREST REG 1 @Y30LB02 01103000 * @Y30LB35*/ 01104000 * 0430 01105000 * /*************************************************************/ 01106000 * /* */ 01107000 * /* SAVE THE REASON CODE IN REGISTER ZERO AND THE RETURN CODE */ 01108000 * /* IN REGISTER FIFTEEN FOR USE IN MESSAGE IDC394I. @ZA05084*/ 01109000 * /* */ 01110000 * /*************************************************************/ 01111000 * 0431 01112000 * RESPECIFY 0431 01113000 * (REG0, 0431 01114000 * REG15) RSTD; /* @ZA05084*/ 01115000 * TESTRC=REG15; /* @ZA05084*/ 01116000 STH REG15,TESTRC 0432 01117000 * REASONCD=REG0; /* @ZA05084*/ 01118000 ST REG0,REASONCD 0433 01119000 * RESPECIFY 0434 01120000 * (REG0, 0434 01121000 * REG15) UNRSTD; /* @ZA05084*/ 01122000 * 0434 01123000 * /*************************************************************/ 01124000 * /* */ 01125000 * /* TEST IF THERE WAS A DEMOUNT FAILURE AND IT WAS NOT AN */ 01126000 * /* X'57', I.E. THE MASS STORAGE VOLUME WAS NOT MOUNTED. THEN */ 01127000 * /* SETUP TO WRITE THE IDC394I MESSAGE TO THE OPERATOR. */ 01128000 * /* @ZA05084*/ 01129000 * /* */ 01130000 * /*************************************************************/ 01131000 * 0435 01132000 * IF TESTRC^=0&REASON^=VOLNMTD THEN 0435 01133000 LH @10,TESTRC 0435 01134000 LTR @10,@10 0435 01135000 BZ @RF00435 0435 01136000 CLC REASON(2),@CH01901 0435 01137000 BE @RF00435 0435 01138000 * DO; /* @ZA05084*/ 01139000 * 0436 01140000 * /*********************************************************/ 01141000 * /* */ 01142000 * /* SET UP UCB ADDRESSABILITY @ZA05084*/ 01143000 * /* */ 01144000 * /*********************************************************/ 01145000 * 0437 01146000 * UCBPTR=STAVUCB; /* @ZA05084*/ 01147000 * 0437 01148000 L @10,@PC00001 0437 01149000 L @09,GDTSAH(,@10) 0437 01150000 L @09,SAHSTA(,@09) 0437 01151000 L UCBPTR,STAVUCB(,@09) 0437 01152000 * /*********************************************************/ 01153000 * /* */ 01154000 * /* IF THE DEMOUNT FAILED, ISSUE USYSINFO AND UWTO TO SEND*/ 01155000 * /* THE OPERATOR MESSAGE IDC394I. @ZA05084*/ 01156000 * /* */ 01157000 * /*********************************************************/ 01158000 * 0438 01159000 * WTOPTR=ADDR(WTOMSG); /* @ZA05084*/ 01160000 * 0438 01161000 LA @09,WTOMSG 0438 01162000 ST @09,WTOPTR 0438 01163000 * /*********************************************************/ 01164000 * /* */ 01165000 * /* INITIALIZE THE DUMMY SAVE AREA TO ZEROES. THEN BEGIN */ 01166000 * /* BUILDING THE MODID, FORWARD AND BACKWARD CHAIN */ 01167000 * /* ADDRESSES. @ZA05112*/ 01168000 * /* */ 01169000 * /*********************************************************/ 01170000 * 0439 01171000 * RESPECIFY 0439 01172000 * AREAREG RESTRICTED; /* @ZA05112*/ 01173000 * RESPECIFY 0440 01174000 * SAVEOVLY BASED(AREAREG);/* @ZA05112*/ 01175000 * NEWSAVE=''B; /* @ZA05112*/ 01176000 XC NEWSAVE(72),NEWSAVE 0441 01177000 * TRACEMOD=MODID; /* @ZA05112*/ 01178000 MVC TRACEMOD(4),MODID 0442 01179000 * BACKCHN=BACKWARD; /* @ZA05112*/ 01180000 ICM @09,15,BACKWARD(AREAREG) 0443 01181000 STCM @09,15,BACKCHN 0443 01182000 * FORCHAIN=AREAREG; /* @ZA05112*/ 01183000 STCM AREAREG,15,FORCHAIN 0444 01184000 * BACKWARD=ADDR(NEWSAVE); /* @ZA05112*/ 01185000 * 0445 01186000 LA @15,NEWSAVE 0445 01187000 STCM @15,15,BACKWARD(AREAREG) 0445 01188000 * /*********************************************************/ 01189000 * /* */ 01190000 * /* IN ORDER TO INSURE THAT THERE IS NO INVALID BACKCHAIN */ 01191000 * /* POINTER MESSAGE IN ANY DUMPS TAKEN, WE WILL */ 01192000 * /* REINITIALIZE THE FORWARD CHAIN WHICH WAS ZEROED BY */ 01193000 * /* IDCSA03(UEPIL) TO THE ADDRESS OF OUR DUMMY SAVE AREA. */ 01194000 * /* @ZA05112*/ 01195000 * /* */ 01196000 * /*********************************************************/ 01197000 * 0446 01198000 * RESPECIFY 0446 01199000 * SAVEOVLY BASED(BACKCHN);/* @ZA05112*/ 01200000 * FORWARD=ADDR(NEWSAVE); /* @ZA05112*/ 01201000 STCM @15,15,FORWARD(@09) 0447 01202000 * RESPECIFY 0448 01203000 * AREAREG UNRESTRICTED; /* @ZA05112*/ 01204000 * 0448 01205000 * /*********************************************************/ 01206000 * /* */ 01207000 * /* ISSUE USYSINFO MACRO TO OBTAIN JOBNAME AND STEPNAME */ 01208000 * /* @ZA05084*/ 01209000 * /* TO BE USED IN MESSAGE IDC394I. @ZA05084*/ 01210000 * /* */ 01211000 * /*********************************************************/ 01212000 * 0449 01213000 * CALL IDCSASI0(GDTTBL,NAMES,ADDR(SYSIN));/* @ZA05084*/ 01214000 * 0449 01215000 ST @10,@AL00001 0449 01216000 LA @09,NAMES 0449 01217000 ST @09,@AL00001+4 0449 01218000 LA @09,SYSIN 0449 01219000 ST @09,@AFTEMPS 0449 01220000 LA @09,@AFTEMPS 0449 01221000 ST @09,@AL00001+8 0449 01222000 MVI @AL00001+8,X'80' 0449 01223000 L @15,GDTSFO(,@10) 0449 01224000 LA @01,@AL00001 0449 01225000 BALR @14,@15 0449 01226000 * /*********************************************************/ 01227000 * /* */ 01228000 * /* INITIIALIZE DARGLIST WITH MULTIPLE INSERTS FOR MESSAGE*/ 01229000 * /* IDC394I. @ZA05084*/ 01230000 * /* */ 01231000 * /*********************************************************/ 01232000 * 0450 01233000 * DDSTRU=ADDR(PRINTARG); /* @ZA05084*/ 01234000 LA @10,PRINTARG 0450 01235000 ST @10,DDSTRU 0450 01236000 * DARGLIST=''B; /* @ZA05084*/ 01237000 XC DARGLIST(20,@10),DARGLIST(@10) 0451 01238000 * DARGSMOD=SA06MSG; /* @ZA05084*/ 01239000 MVC DARGSMOD(3,@10),@CC01881 0452 01240000 * DARGSENT=MSG394I; /* @ZA05084*/ 01241000 MVI DARGSENT(@10),X'0E' 0453 01242000 * DARGDBP=ADDR(JOBNAM); /* @ZA05084*/ 01243000 LA @09,JOBNAM 0454 01244000 ST @09,DARGDBP(,@10) 0454 01245000 * DARGILP=LENGTH(JOBNAM); /* @ZA05084*/ 01246000 LA @09,8 0455 01247000 STH @09,DARGILP(,@10) 0455 01248000 * DARGRETP=WTOPTR; /* @ZA05084*/ 01249000 L @15,WTOPTR 0456 01250000 ST @15,DARGRETP(,@10) 0456 01251000 * DARGRETL=LENGTH(WTOMSG);/* @ZA05084*/ 01252000 * 0457 01253000 MVC DARGRETL(2,@10),@CH01968 0457 01254000 * /*********************************************************/ 01255000 * /* */ 01256000 * /* MESSAGE IDC394I IS WRITTEN WITH 1 DATA BLOCK AND FOUR */ 01257000 * /* INSERTS. THE DATA BLOCK WILL BE THE JOB NAME. THE FOUR*/ 01258000 * /* INSERTS ARE: STEP NAME, UNIT ADDRESS, VOLUME SERIAL */ 01259000 * /* AND REASON CODE. @ZA05084*/ 01260000 * /* */ 01261000 * /*********************************************************/ 01262000 * 0458 01263000 * DARGCNT='4'X; /* @ZA05084*/ 01264000 LA @15,4 0458 01265000 STH @15,DARGCNT(,@10) 0458 01266000 * DARGINS(1)='1'X; /* @ZA05084*/ 01267000 LA @14,1 0459 01268000 STH @14,DARGINS(,@10) 0459 01269000 * DARGINL(1)=LENGTH(STEPNM);/* @ZA05084*/ 01270000 STH @09,DARGINL(,@10) 0460 01271000 * DARGDTM(1)=ADDR(STEPNM);/* @ZA05084*/ 01272000 LA @09,STEPNM 0461 01273000 ST @09,DARGDTM(,@10) 0461 01274000 * DARGINS(2)='2'X; /* @ZA05084*/ 01275000 LA @09,2 0462 01276000 STH @09,DARGINS+8(,@10) 0462 01277000 * DARGINL(2)=LENGTH(STAVVOL);/* @ZA05084*/ 01278000 MVC DARGINL+8(2,@10),@CH00150 0463 01279000 * DARGDTM(2)=ADDR(STAVVOL);/* @ZA05084*/ 01280000 L @09,@PC00001 0464 01281000 L @01,GDTSAH(,@09) 0464 01282000 L @01,SAHSTA(,@01) 0464 01283000 LA @14,STAVVOL(,@01) 0464 01284000 ST @14,DARGDTM+8(,@10) 0464 01285000 * DARGINS(3)='3'X; /* @ZA05084*/ 01286000 LA @14,3 0465 01287000 STH @14,DARGINS+16(,@10) 0465 01288000 * DARGINL(3)=LENGTH(UCBNAME);/* @ZA05084*/ 01289000 MVC DARGINL+16(2,@10),@CH00156 0466 01290000 * DARGDTM(3)=ADDR(UCBNAME);/* @ZA05084*/ 01291000 LA @14,UCBNAME(,UCBPTR) 0467 01292000 ST @14,DARGDTM+16(,@10) 0467 01293000 * DARGINS(4)='4'X; /* @ZA05084*/ 01294000 STH @15,DARGINS+24(,@10) 0468 01295000 * DARGINL(4)=LENGTH(REASON);/* @ZA05084*/ 01296000 MVC DARGINL+24(2,@10),@CH00147 0469 01297000 * DARGDTM(4)=ADDR(REASON);/* @ZA05084*/ 01298000 * 0470 01299000 LA @03,REASON 0470 01300000 ST @03,DARGDTM+24(,@10) 0470 01301000 * /*********************************************************/ 01302000 * /* */ 01303000 * /* ISSUE UPRINT TO PUT MSG INTO MESSAGE AREA FOR UWTO. */ 01304000 * /* @ZA05084*/ 01305000 * /* */ 01306000 * /*********************************************************/ 01307000 * 0471 01308000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @ZA05084*/ 01309000 * 0471 01310000 ST @09,@AL00001 0471 01311000 LA @10,@CF00108 0471 01312000 ST @10,@AL00001+4 0471 01313000 LA @10,DDSTRU 0471 01314000 ST @10,@AL00001+8 0471 01315000 MVI @AL00001+8,X'80' 0471 01316000 L @15,GDTPRT(,@09) 0471 01317000 LA @01,@AL00001 0471 01318000 BALR @14,@15 0471 01319000 * /*********************************************************/ 01320000 * /* */ 01321000 * /* SET MESSAGE LENGTH AND ROUTING AND DESCRIPTOR CODES */ 01322000 * /* FOR UWTO MACRO. ISSUE UWTO MACRO TO WRITE MESSAGE */ 01323000 * /* IDC394I TO THE SYSTEM OPERATOR. @ZA05084*/ 01324000 * /* */ 01325000 * /*********************************************************/ 01326000 * 0472 01327000 * WTOLEN=LENGTH(WTOMSG); /* @ZA05084*/ 01328000 MVC WTOLEN(2),@CH01968 0472 01329000 * ROUTCD=''B; /* @ZA05084*/ 01330000 XC ROUTCD(2),ROUTCD 0473 01331000 * CD1=ON; /* @ZA05084*/ 01332000 OI CD1,B'10000000' 0474 01333000 * DESCCD=''B; /* @ZA05084*/ 01334000 XC DESCCD(2),DESCCD 0475 01335000 * DESC4=ON; /* @ZA05084*/ 01336000 OI DESC4,B'00010000' 0476 01337000 * CALL IDCSAWO0(GDTTBL,WTOLEN,WTOPTR,ROUTCD,DESCCD);/* 0477 01338000 * @ZA05084*/ 01339000 L @10,@PC00001 0477 01340000 ST @10,@AL00001 0477 01341000 LA @09,WTOLEN 0477 01342000 ST @09,@AL00001+4 0477 01343000 LA @09,WTOPTR 0477 01344000 ST @09,@AL00001+8 0477 01345000 LA @09,ROUTCD 0477 01346000 ST @09,@AL00001+12 0477 01347000 LA @09,DESCCD 0477 01348000 ST @09,@AL00001+16 0477 01349000 MVI @AL00001+16,X'80' 0477 01350000 L @15,GDTWTO(,@10) 0477 01351000 LA @01,@AL00001 0477 01352000 BALR @14,@15 0477 01353000 * STAVDMNT=OFF; /* @ZA05084*/ 01354000 * 0478 01355000 L @10,@PC00001 0478 01356000 L @10,GDTSAH(,@10) 0478 01357000 L @10,SAHSTA(,@10) 0478 01358000 NI STAVDMNT(@10),B'10111111' 0478 01359000 * /*********************************************************/ 01360000 * /* */ 01361000 * /* IF UCB NOT ALREADY POSTED AND DEMOUNT FAILED, THEN */ 01362000 * /* POST THE VIRTUAL UCB WITH VTOC-TTR AND VOLUMNE ID. */ 01363000 * /* @ZA05112*/ 01364000 * /* */ 01365000 * /*********************************************************/ 01366000 * 0479 01367000 * IF STAVPOST=OFF THEN 0479 01368000 TM STAVPOST(@10),B'00010000' 0479 01369000 BNZ @RF00479 0479 01370000 * DO; /* @ZA05112*/ 01371000 * 0480 01372000 * /*****************************************************/ 01373000 * /* */ 01374000 * /* SETUP SVC 82 ARGUMENT LIST TO POST THE VIRTUAL */ 01375000 * /* UCB. GET THE VIRTUAL UCB ADDRESS FROM THE */ 01376000 * /* STAEPARM. @ZA05112*/ 01377000 * /* */ 01378000 * /*****************************************************/ 01379000 * 0481 01380000 * SV82LIST=''B; /* @ZA05112*/ 01381000 LA @09,SVC82ARG 0481 01382000 XC SV82LIST(16,@09),SV82LIST(@09) 0481 01383000 * SV82CODE=POSTCD; /* @ZA05112*/ 01384000 MVC SV82CODE(1,@09),POSTCD 0482 01385000 * SV82UCBP=STAVUCB; /* @ZA05112*/ 01386000 MVC SV82UCBP(3,@09),STAVUCB+1(@10) 0483 01387000 * SV82VOLP=ADDR(STAVVOL);/* @ZA05112*/ 01388000 LA @03,STAVVOL(,@10) 0484 01389000 ST @03,SV82VOLP(,@09) 0484 01390000 * SV82TTRP=ADDR(STAVTTR);/* @ZA05112*/ 01391000 LA @10,STAVTTR(,@10) 0485 01392000 ST @10,SV82TTRP(,@09) 0485 01393000 * RESPECIFY 0486 01394000 * REG1 RESTRICTED; /* @ZA05112*/ 01395000 * REG1=ADDR(SV82LIST);/* @ZA05112*/ 01396000 * 0487 01397000 LR REG1,@09 0487 01398000 * /*****************************************************/ 01399000 * /* */ 01400000 * /* ISSUE SVC 82 AND IGNORE ANY ERRORS. @ZA05112*/ 01401000 * /* */ 01402000 * /*****************************************************/ 01403000 * 0488 01404000 *L82SVC0: 0488 01405000 * SVC(82); /* @ZA05112*/ 01406000 L82SVC0 SVC 82 0488 01407000 * RESPECIFY 0489 01408000 * REG1 UNRESTRICTED;/* @ZA05112*/ 01409000 * 0489 01410000 * /*****************************************************/ 01411000 * /* */ 01412000 * /* SET STAEPARM POST FLAG ON @ZA05112*/ 01413000 * /* */ 01414000 * /*****************************************************/ 01415000 * 0490 01416000 * STAVPOST=ON; /* @ZA05112*/ 01417000 L @10,@PC00001 0490 01418000 L @10,GDTSAH(,@10) 0490 01419000 L @10,SAHSTA(,@10) 0490 01420000 OI STAVPOST(@10),B'00010000' 0490 01421000 * END; /* @ZA05112*/ 01422000 * END; /* @ZA05084*/ 01423000 * 0492 01424000 * /*************************************************************/ 01425000 * /* */ 01426000 * /* THE DEMOUNT WAS SUCCESSFUL @ZA05084*/ 01427000 * /* */ 01428000 * /*************************************************************/ 01429000 * 0493 01430000 * ELSE /* @ZA05084*/ 01431000 * DO; /* @ZA05084*/ 01432000 * 0493 01433000 B @RC00435 0493 01434000 @RF00435 DS 0H 0494 01435000 * /*********************************************************/ 01436000 * /* */ 01437000 * /* SET THE STAVMNT FLAG OFF. SET THE STAVDMNT #Y30LB35*/ 01438000 * /* FLAG ON TO INDICATE A DEMOUNT HAS BEEN DONE #Y30LB35*/ 01439000 * /* BUT THE UCB HAS NOT BEEN CLEARED. #Y30LB35*/ 01440000 * /* */ 01441000 * /*********************************************************/ 01442000 * 0494 01443000 * STAVMNT=OFF; /* #Y30LB35*/ 01444000 * STAVDMNT=ON; /* @Y30LB35*/ 01445000 L @10,@PC00001 0495 01446000 L @10,GDTSAH(,@10) 0495 01447000 L @10,SAHSTA(,@10) 0495 01448000 OI STAVDMNT(@10),B'01000000' 0495 01449000 NI STAVMNT(@10),B'01111111' 0495 01450000 * END; /* @ZA05084*/ 01451000 * END; /* @ZA05084*/ 01452000 @RC00435 DS 0H 0498 01453000 * 0498 01454000 * /*****************************************************************/ 01455000 * /* */ 01456000 * /* IF THE STAVDMNT BIT IS ON (INDICATING A @Y30LB35*/ 01457000 * /* VIRTUAL VOLUME HAS BEEN DEMOUNTED BUT @Y30LB35*/ 01458000 * /* ITS UCB NOT CLEARED), DO THE FOLLOWING @Y30LB35*/ 01459000 * /* TO CLEAR THE UCB: @Y30LB35*/ 01460000 * /* */ 01461000 * /*****************************************************************/ 01462000 * 0498 01463000 * IF STAVDMNT=ON /* @Y30LB35*/ 01464000 * THEN /* @Y30LB35*/ 01465000 @RF00420 L @10,@PC00001 0498 01466000 L @10,GDTSAH(,@10) 0498 01467000 L @10,SAHSTA(,@10) 0498 01468000 TM STAVDMNT(@10),B'01000000' 0498 01469000 BNO @RF00498 0498 01470000 * DO; /* @Y30LB35*/ 01471000 * 0499 01472000 * /*************************************************************/ 01473000 * /* */ 01474000 * /* SET UP THE SVC 82 ARGUMENT LIST TO CLEAR @Y30LB35*/ 01475000 * /* THE UCB. GET THE UCB ADDRESS FROM STAVUCB. @Y30LB35*/ 01476000 * /* */ 01477000 * /*************************************************************/ 01478000 * 0500 01479000 * SV82LIST=''B; /* @Y30LB35*/ 01480000 LA @09,SVC82ARG 0500 01481000 XC SV82LIST(16,@09),SV82LIST(@09) 0500 01482000 * SV82CODE=CLEARCD; /* @Y30LB35*/ 01483000 MVC SV82CODE(1,@09),CLEARCD 0501 01484000 * SV82UCBP=STAVUCB; /* @Y30LB35*/ 01485000 MVC SV82UCBP(3,@09),STAVUCB+1(@10) 0502 01486000 * SV82WRKP=ADDR(RETAREA); /* @Y30LB35*/ 01487000 LA @10,RETAREA 0503 01488000 ST @10,SV82WRKP(,@09) 0503 01489000 * RESPECIFY 0504 01490000 * REG1 RESTRICTED; /* @Y30LB35*/ 01491000 * REG1=ADDR(SV82LIST); /* @Y30LB35*/ 01492000 * 0505 01493000 LR REG1,@09 0505 01494000 * /*************************************************************/ 01495000 * /* */ 01496000 * /* ISSUE SVC 82. IGNORE ANY ERRORS. @Y30LB35*/ 01497000 * /* */ 01498000 * /*************************************************************/ 01499000 * 0506 01500000 * SVC(82); /* @Y30LB35*/ 01501000 SVC 82 0506 01502000 * RESPECIFY 0507 01503000 * REG1 UNRESTRICTED; /* @Y30LB35*/ 01504000 * 0507 01505000 * /*************************************************************/ 01506000 * /* */ 01507000 * /* SET THE STAVDMNT AND STAVPOST FLAGS OFF. @Y30LB35*/ 01508000 * /* */ 01509000 * /*************************************************************/ 01510000 * 0508 01511000 * STAVDMNT=OFF; /* @Y30LB35*/ 01512000 * STAVPOST=OFF; /* @Y30LB35*/ 01513000 L @10,@PC00001 0509 01514000 L @10,GDTSAH(,@10) 0509 01515000 L @10,SAHSTA(,@10) 0509 01516000 NI STAVDMNT(@10),B'10101111' 0509 01517000 * END; /* @Y30LB35*/ 01518000 * 0511 01519000 * /*****************************************************************/ 01520000 * /* */ 01521000 * /* IF THE STACLEAR BIT IS ON (INDICATING A REAL @Y30LB35*/ 01522000 * /* UCB MUST BE POSTED), DO THE FOLLOWING TO @Y30LB35*/ 01523000 * /* POST IT: @Y30LB35*/ 01524000 * /* */ 01525000 * /*****************************************************************/ 01526000 * 0511 01527000 * IF STACLEAR=ON /* @Y30LB35*/ 01528000 * THEN /* @Y30LB35*/ 01529000 @RF00498 L @10,@PC00001 0511 01530000 L @10,GDTSAH(,@10) 0511 01531000 L @10,SAHSTA(,@10) 0511 01532000 TM STACLEAR(@10),B'00001000' 0511 01533000 BNO @RF00511 0511 01534000 * DO; /* @Y30LB35*/ 01535000 * 0512 01536000 * /*************************************************************/ 01537000 * /* */ 01538000 * /* CONSTRUCT THE SVC 82 ARGUMENT LIST TO POST @Y30LB35*/ 01539000 * /* A UCB. RETRIEVE THE VOLUME SERIAL NUMBER @Y30LB35*/ 01540000 * /* FROM THE STARVOL FIELD AND THE VTOC TTR @Y30LB35*/ 01541000 * /* FROM THE STARTTR FIELD. GET THE UCB @Y30LB35*/ 01542000 * /* ADDRESS FROM THE STARUCB FIELD. @Y30LB35*/ 01543000 * /* */ 01544000 * /*************************************************************/ 01545000 * 0513 01546000 * SV82LIST=''B; /* @Y30LB35*/ 01547000 LA @09,SVC82ARG 0513 01548000 XC SV82LIST(16,@09),SV82LIST(@09) 0513 01549000 * SV82CODE=POSTCD; /* @Y30LB35*/ 01550000 MVC SV82CODE(1,@09),POSTCD 0514 01551000 * SV82UCBP=STARUCB; /* @Y30LB35*/ 01552000 MVC SV82UCBP(3,@09),STARUCB+1(@10) 0515 01553000 * SV82VOLP=ADDR(STARVOL); /* @Y30LB35*/ 01554000 LA @03,STARVOL(,@10) 0516 01555000 ST @03,SV82VOLP(,@09) 0516 01556000 * SV82TTRP=ADDR(STARTTR); /* @Y30LB35*/ 01557000 LA @10,STARTTR(,@10) 0517 01558000 ST @10,SV82TTRP(,@09) 0517 01559000 * RESPECIFY 0518 01560000 * REG1 RESTRICTED; /* @Y30LB35*/ 01561000 * REG1=ADDR(SV82LIST); /* @Y30LB35*/ 01562000 * 0519 01563000 LR REG1,@09 0519 01564000 * /*************************************************************/ 01565000 * /* */ 01566000 * /* ISSUE SVC 82. IGNORE ANY ERRORS. @Y30LB35*/ 01567000 * /* */ 01568000 * /*************************************************************/ 01569000 * 0520 01570000 * SVC(82); /* @Y30LB35*/ 01571000 SVC 82 0520 01572000 * RESPECIFY 0521 01573000 * REG1 UNRESTRICTED; /* @Y30LB35*/ 01574000 * 0521 01575000 * /*************************************************************/ 01576000 * /* */ 01577000 * /* SET THE STACLEAR BIT OFF. @Y30LB35*/ 01578000 * /* */ 01579000 * /*************************************************************/ 01580000 * 0522 01581000 * STACLEAR=OFF; /* @Y30LB35*/ 01582000 L @10,@PC00001 0522 01583000 L @10,GDTSAH(,@10) 0522 01584000 L @10,SAHSTA(,@10) 0522 01585000 NI STACLEAR(@10),B'11110111' 0522 01586000 * END; /* @Y30LB35*/ 01587000 * 0524 01588000 * /*****************************************************************/ 01589000 * /* */ 01590000 * /* IF THE STAVENQ BIT IS THE ONLY RECOVERY BIT @Y30LB35*/ 01591000 * /* ON, DO THE FOLLOWING TO DEQUEUE THE VOLUME @Y30LB35*/ 01592000 * /* SERIAL NUMBER. (IF THE STAVMNT AND STAVPOST @Y30LB35*/ 01593000 * /* BITS ARE STILL ON, THE VOLUME HAS NOT BEEN @Y30LB35*/ 01594000 * /* DEMOUNTED AND SO THE VOLUME SERIAL NUMBER @Y30LB35*/ 01595000 * /* DOES NOT GET DEQUEUED.) @Y30LB35*/ 01596000 * /* */ 01597000 * /*****************************************************************/ 01598000 * 0524 01599000 * IF STAVENQ=ON&STAVMNT=OFF&STAVPOST=OFF/* @Y30LB35*/ 01600000 * THEN /* @Y30LB35*/ 01601000 @RF00511 L @10,@PC00001 0524 01602000 L @10,GDTSAH(,@10) 0524 01603000 L @10,SAHSTA(,@10) 0524 01604000 TM STAVENQ(@10),B'00100000' 0524 01605000 BNO @RF00524 0524 01606000 TM STAVMNT(@10),B'10010000' 0524 01607000 BNZ @RF00524 0524 01608000 * DO; /* @Y30LB35*/ 01609000 * TCBP=STATCB; /* @Y30LB35*/ 01610000 L @09,STATCB(,@10) 0526 01611000 ST @09,TCBP 0526 01612000 * VOLSER=STAVVOL; /* @Y30LB35*/ 01613000 MVC VOLSER(6),STAVVOL(@10) 0527 01614000 * DEQEXEC(1:DEQLEN)=DEQCORE(1:DEQLEN);/* @Y30LB35*/ 01615000 * 0528 01616000 L @10,DEQLEN 0528 01617000 BCTR @10,0 0528 01618000 EX @10,@SM02046 0528 01619000 * /*************************************************************/ 01620000 * /* */ 01621000 * /* ISSUE THE DEQ MACRO - MAJOR NAME IS SYSZVOLS, @Y30LB35*/ 01622000 * /* MINOR NAME IS THE VOLUME SERIAL NUMBER FROM @Y30LB35*/ 01623000 * /* THE STAVVOL FIELD. ISSUE DEQ WITH THE HAVE @Y30LB35*/ 01624000 * /* OPTION, IN CASE ENQUEUE BIT WAS SET BEFORE @Y30LB35*/ 01625000 * /* THE ENQUEUE HAS ACTUALLY BEEN COMPLETED. @Y30LB35*/ 01626000 * /* ISSUE A DEQ DIRECTED TO THE INITIATOR'S @Y30LB35*/ 01627000 * /* TCB WHOSE ADDRESS IS IN THE STATCB FIELD. @Y30LB35*/ 01628000 * /* IGNORE ANY ERRORS. @Y30LB35*/ 01629000 * /* */ 01630000 * /*************************************************************/ 01631000 * 0529 01632000 *LDEQ1: /* @Y30LB35*/ 01633000 * GENERATE REFS(MAJNAME,VOLSER,TCBP,DEQLIST); 0529 01634000 LDEQ1 DS 0H 0529 01635000 * /*@Y30LB35*/ 01636000 DEQ (MAJNAME,VOLSER,6,SYSTEM),RET=HAVE,MF=(E,DEQLIST),TCB=TCBP 01637000 * END; /* @Y30LB35*/ 01638000 * 0531 01639000 * /*****************************************************************/ 01640000 * /* */ 01641000 * /* CONTROL IS RETURNED TO STAEEXIT WITH @Y30LB35*/ 01642000 * /* A ZERO RETURN CODE IN REG 15. @Y30LB35*/ 01643000 * /* */ 01644000 * /*****************************************************************/ 01645000 * 0531 01646000 * RETURN CODE(0); /* @Y30LB35*/ 01647000 @RF00524 SLR @15,@15 0531 01648000 @EL00005 DS 0H 0531 01649000 @EF00005 DS 0H 0531 01650000 @ER00005 L @14,@SA00005 0531 01651000 BR @14 0531 01652000 * END RECOVERY; /* @Y30LB35*/ 01653000 * END IDCSA10 /* @Y30LB35*/ 01654000 * 0533 01655000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01656000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 01657000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 01658000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 01659000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 01660000 */*%INCLUDE SYSLIB (AMSDF09 ) */ 01661000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01662000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01663000 * 0533 01664000 * ; 0533 01665000 @DATA DS 0H 01666000 @CH00147 DC H'2' 01667000 @CH00156 DC H'3' 01668000 @CH00034 DC H'4' 01669000 @CH00150 DC H'6' 01670000 @CH01968 DC H'72' 01671000 @CH01901 DC XL2'57' 01672000 @SM02046 MVC DEQEXEC(0),DEQCORE 01673000 @DATD DSECT 01674000 DS 0F 01675000 @SA00001 DS 18F 01676000 @PC00001 DS 2F 01677000 @SA00002 DS 15F 01678000 @SA00003 DS 15F 01679000 @SA00005 DS 1F 01680000 @AL00001 DS 5A 01681000 @AFTEMPS DS 1F 01682000 IDCSA10 CSECT 01683000 DS 0F 01684000 @CF00108 DC F'0' 01685000 @CF00601 DC F'12' 01686000 @DATD DSECT 01687000 DS 0D 01688000 LISTSCAN DS A 01689000 IOCSPTR DS A 01690000 OPNPTR DS A 01691000 DDSTRU DS A 01692000 FSADDR DS A 01693000 ERCNVADR DS A 01694000 DMPINDEX DS A 01695000 CCMSGPTR DS A 01696000 CMMSGPTR DS A 01697000 CTMSGPTR DS A 01698000 ELEMENT DS F 01699000 REASONCD DS FL4 01700000 ORG REASONCD 01701000 @NM00148 DS FL2 01702000 REASON DS FL2 01703000 ORG REASONCD+4 01704000 WTOPTR DS A 01705000 TCBP DS A 01706000 LISTPTR DS A 01707000 TESTRC DS H 01708000 WTOLEN DS H 01709000 SETRC DS H 01710000 LISTLN DS FL1 01711000 @TS00001 DS CL95 01712000 DS CL2 01713000 PRINTARG DS CL52 01714000 STAEWORK DS CL58 01715000 DS CL2 01716000 SAVEREGS DS CL64 01717000 SYSIN DS CL16 01718000 ORG SYSIN 01719000 JOBNAM DS CL8 01720000 STEPNM DS CL8 01721000 ORG SYSIN+16 01722000 ROUTCD DS BL2 01723000 ORG ROUTCD 01724000 CD1 DS BL1 01725000 @NM00145 EQU ROUTCD+0 01726000 ORG ROUTCD+2 01727000 DESCCD DS BL2 01728000 ORG DESCCD 01729000 @NM00146 DS BL1 01730000 DESC4 EQU DESCCD+0 01731000 @NM00147 EQU DESCCD+0 01732000 ORG DESCCD+2 01733000 STAEARG DS CL20 01734000 WTOMSG DS CL72 01735000 DEMNTLST DS CL28 01736000 SVC82ARG DS CL16 01737000 VOLSER DS CL6 01738000 DS CL2 01739000 RETAREA DS CL10 01740000 NEWSAVE DS CL72 01741000 ORG NEWSAVE 01742000 TRACEMOD DS CL4 01743000 BACKCHN DS AL4 01744000 FORCHAIN DS AL4 01745000 @NM00151 DS CL60 01746000 ORG NEWSAVE+72 01747000 IDCSA10 CSECT 01748000 DS 0F 01749000 @SIZDATD DC AL1(0) 01750000 DC AL3(@ENDDATD-@DATD) 01751000 DS 0D 01752000 PASSCD DC XL4'0000000C' 01753000 CD56RACF DC XL4'00000038' 01754000 CD60RACF DC XL4'0000003C' 01755000 CLEARCD DC XL1'22' 01756000 POSTCD DC XL1'23' 01757000 @CC01913 DC C'STST' 01758000 @CC01914 DC C'STBG' 01759000 @CC01917 DC C'STEN' 01760000 @CC01926 DC C'STSS' 01761000 @CC01934 DC C'STCS' 01762000 @CC01956 DC C'STEX' 01763000 @CC02017 DC C'STRY' 01764000 @CC01881 DC C'SA6' 01765000 ALL DC CL3'ALL' 01766000 FORMAT DC CL4'FORM' 01767000 HSECOND DC CL4'HSEC' 01768000 CLOCK DC CL4'KLOK' 01769000 SETZERO DC CL4'ZERO' 01770000 SETBLANK DC CL4'BLNK' 01771000 NOSET DC CL4'NSET' 01772000 OVERRIDE DC CL4'OVRD' 01773000 ACQUIRE DC CL8'ACQUIRE ' 01774000 RELINQ DC CL8'RELINQ ' 01775000 MOUNT DC CL8'MOUNT ' 01776000 DEMOUNT DC CL8'DEMOUNT ' 01777000 DEFINE DC CL8'DEFINE ' 01778000 MOVE DC CL8'MOVE ' 01779000 TRACEQ DC CL8'TRACEQ ' 01780000 COPYTABL DC CL8'COPYTABL' 01781000 COPYCRTG DC CL8'COPYCRTG' 01782000 COPYVOL DC CL8'COPYVOL ' 01783000 VVIC DC CL8'VVIC ' 01784000 TUNE DC CL8'TUNE ' 01785000 NAMES DC CL4'NAME' 01786000 UNIT DC CL4'UNIT' 01787000 SHR DC CL4'SHR ' 01788000 EXCL DC CL4'EXCL' 01789000 NOWAIT DC CL4'NWAI' 01790000 WAIT DC CL4'WAIT' 01791000 SECCHECK DC CL8'SECCHECK' 01792000 SCRVTOC DC CL8'SCRVTOC ' 01793000 GETVTOC DC CL8'GETVTOC ' 01794000 PUTVTOC DC CL8'PUTVTOC ' 01795000 RECATLG DC CL8'RECATLG ' 01796000 INITVOL DC CL8'INITVOL ' 01797000 CHECK DC CL8'CHECK ' 01798000 POSTUCB DC CL8'POSTUCB ' 01799000 GET DC CL8'GET ' 01800000 PUT DC CL8'PUT ' 01801000 CLOSE DC CL8'CLOSE ' 01802000 OPEN DC CL8'OPEN ' 01803000 RVOPENR DC CL8'OPENR ' 01804000 RVRDCNT DC CL8'READCNT ' 01805000 RVREADKD DC CL8'READKD ' 01806000 RVSPACCR DC CL8'SPACCR ' 01807000 RVFWRITE DC CL8'FWRITE ' 01808000 RVWRITER DC CL8'WRITEREC' 01809000 PUTLABEL DC CL8'PUTLABEL' 01810000 GETLABEL DC CL8'GETLABEL' 01811000 CANCEL DC CL8'CANCEL ' 01812000 SET DC CL8'SET ' 01813000 SELECTX DC CL8'SELECTX ' 01814000 CHANGEX DC CL8'CHANGEX ' 01815000 SELECTDD DC CL8'SELECTDD' 01816000 SELECTDS DC CL8'SELECTDS' 01817000 TBLREST DC CL8'TBLREST ' 01818000 NULLIFYC DC CL8'NULLIFYC' 01819000 RDMSC DC CL8'RDMSC ' 01820000 RDMSCTBL DC CL8'RDMSCTBL' 01821000 RDCARTLB DC CL8'RDCARTLB' 01822000 AUDITCEL DC CL8'AUDITCEL' 01823000 RDSTGAD DC CL8'RDSTGAD ' 01824000 MODIFYC DC CL8'MODIFYC ' 01825000 MODID DC CL4'SA10' 01826000 FIXAREA DS CL100 01827000 ORG FIXAREA 01828000 @NM00149 DC 100X'00' 01829000 ORG FIXAREA+100 01830000 HEADER DC CL8'STAEPARM' 01831000 PASSABND DC X'913000' 01832000 NULLFLAG DC X'00' 01833000 MAJNAME DC CL8'SYSZVOLS' 01834000 @DATD DSECT 01835000 * /*@Y30LB35*/ 01836000 IDCSA10 CSECT /* @Y30LB30*/ 01837000 ENTRY IDCSAS10 /* @Y30LB30*/ 01838000 IDCSAS10 DC A(@SIZDATD) /* @Y30LB30*/ 01839000 IDCSA10 CSECT 01840000 * /*LIST FORM ESTAE @Y30LB35*/ 01841000 STAELIST ESTAE MF=L @Y30LB35 01842000 IDCSA10 CSECT 01843000 * /*@Y30LB35*/ 01844000 DEQCORE DS 0F /*@Y30LB35*/ 01845000 DEQ (MAJNAME,,6,SYSTEM),RET=HAVE,MF=L,TCB=0 /*@Y30LB35*/ 01846000 DEQLEN DC A(*-DEQCORE) /*@Y30LB35*/ 01847000 @DATD DSECT 01848000 * /*@Y30LB35*/ 01849000 DEQEXEC DS 0F @Y30LB35 01850000 DEQLIST DEQ (MAJNAME,,6,SYSTEM),RET=HAVE,MF=L,TCB=0 @Y30LB35 01851000 @DATD DSECT 01852000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01853000 @ENDDATD EQU * 01854000 IDCSA10 CSECT 01855000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01856000 @01 EQU 01 01857000 @02 EQU 02 01858000 @03 EQU 03 01859000 @04 EQU 04 01860000 @05 EQU 05 01861000 @06 EQU 06 01862000 @07 EQU 07 01863000 @08 EQU 08 01864000 @09 EQU 09 01865000 @10 EQU 10 01866000 @11 EQU 11 01867000 @12 EQU 12 01868000 @13 EQU 13 01869000 @14 EQU 14 01870000 @15 EQU 15 01871000 DMNTLPTR EQU @03 01872000 ISUEDRC EQU @03 01873000 RTNPTR EQU @08 01874000 UCBPTR EQU @03 01875000 RTNREG EQU @15 01876000 REG0 EQU @00 01877000 REG1 EQU @01 01878000 REG2 EQU @02 01879000 REG3 EQU @03 01880000 REG4 EQU @04 01881000 REG13 EQU @13 01882000 REG14 EQU @14 01883000 REG15 EQU @15 01884000 SDWAPTR EQU @03 01885000 GPR00P EQU @00 01886000 GPR01P EQU @01 01887000 GPR14P EQU @14 01888000 GPR15P EQU @15 01889000 MDREG1 EQU @01 01890000 AREAREG EQU @13 01891000 REG10 EQU @10 01892000 REG11 EQU @11 01893000 REG12 EQU @12 01894000 REG5 EQU @05 01895000 REG6 EQU @06 01896000 REG7 EQU @07 01897000 REG8 EQU @08 01898000 REG9 EQU @09 01899000 IDCSAEP0 EQU 0 01900000 IDCSASI0 EQU 0 01901000 IDCSAWO0 EQU 0 01902000 TRACE1 EQU 0 01903000 OLDERID1 EQU TRACE1 01904000 TRACE2 EQU 0 01905000 OLDERID2 EQU TRACE2 01906000 NEWID2 EQU TRACE2+95 01907000 NEWERID2 EQU 5 01908000 CIRAGL EQU 0 01909000 CIRTYPE EQU CIRAGL 01910000 ALLAGL EQU 0 01911000 ALLSTS EQU ALLAGL+24 01912000 ALLDSP EQU ALLAGL+25 01913000 ALLORG EQU ALLAGL+26 01914000 ALLOPT EQU ALLAGL+28 01915000 RACFAGL EQU 0 01916000 RACFFLG1 EQU RACFAGL 01917000 RACFFLG2 EQU RACFAGL+1 01918000 RACFFLG3 EQU RACFAGL+2 01919000 RACFFLG4 EQU RACFAGL+3 01920000 UNITABL EQU 0 01921000 UNITADR EQU UNITABL+4 01922000 @NM00017 EQU UNITADR 01923000 UNITSTAT EQU UNITABL+6 01924000 IOCSTR EQU 0 01925000 IOCDSO EQU IOCSTR+16 01926000 IOCRFM EQU IOCSTR+17 01927000 IOCMAC EQU IOCSTR+18 01928000 IOCMAC2 EQU IOCSTR+19 01929000 IOCCHP EQU IOCSTR+20 01930000 IOCMSG EQU IOCSTR+21 01931000 IOCRBA EQU IOCSTR+40 01932000 IOCTTR EQU IOCRBA 01933000 IOCMEM EQU IOCSTR+44 01934000 IOCNWM EQU IOCSTR+48 01935000 IOCREL EQU IOCSTR+60 01936000 OPNAGL EQU 0 01937000 OPNOPT EQU OPNAGL 01938000 OPNRFM EQU OPNAGL+1 01939000 OPNTYP EQU OPNAGL+2 01940000 OPNMOD EQU OPNAGL+3 01941000 OPNDEV EQU OPNAGL+24 01942000 OPNDSO EQU OPNAGL+41 01943000 OPNOPT2 EQU OPNAGL+42 01944000 IOINFOPT EQU 0 01945000 UVOLLIST EQU 0 01946000 UVOLENT EQU UVOLLIST+2 01947000 AMSTP011 EQU 0 01948000 DARGLIST EQU 0 01949000 DARGDBP EQU DARGLIST 01950000 DARGRETP EQU DARGLIST+4 01951000 DARGSTID EQU DARGLIST+8 01952000 DARGSMOD EQU DARGSTID 01953000 DARGSENT EQU DARGSTID+3 01954000 DARGILP EQU DARGLIST+12 01955000 DARGCNT EQU DARGLIST+14 01956000 DARGRETL EQU DARGLIST+16 01957000 DARGARY EQU DARGLIST+20 01958000 DARGINS EQU DARGARY 01959000 DARGINL EQU DARGARY+2 01960000 DARGDTM EQU DARGARY+4 01961000 FMTLIST EQU 0 01962000 FMTFLGS EQU FMTLIST 01963000 FMTSPF EQU FMTLIST+2 01964000 FMTRFNO EQU FMTSPF 01965000 FMTILEN EQU FMTRFNO 01966000 FMTIOFF EQU FMTLIST+4 01967000 FMTTRBC EQU FMTIOFF 01968000 FMTSTO EQU FMTTRBC 01969000 FMTOCOL EQU FMTLIST+6 01970000 FMTCNVF EQU FMTLIST+10 01971000 ERCNVTAB EQU 0 01972000 ERTYPE EQU ERCNVTAB 01973000 EROPER EQU ERCNVTAB+1 01974000 EROSOPER EQU ERCNVTAB+2 01975000 ERCATRC EQU ERCNVTAB+16 01976000 ERCPLPT EQU ERCNVTAB+20 01977000 IDCDB010 EQU 0 01978000 DMPITM EQU 0 01979000 DMPARY EQU 0 01980000 CCMSG EQU 0 01981000 CMMSG EQU 0 01982000 CMVOLFLG EQU CMMSG+6 01983000 CTMSG EQU 0 01984000 CTARRAY EQU CTMSG+4 01985000 MDAGL EQU 0 01986000 MDFLAGS EQU MDAGL+30 01987000 MDVTOC EQU MDAGL+32 01988000 PUAGL EQU 0 01989000 CKAGL EQU 0 01990000 CKFLAGS EQU CKAGL+28 01991000 EXCLAGL EQU 0 01992000 EXCLFLAG EQU EXCLAGL+22 01993000 EXOARG EQU 0 01994000 EXOPT EQU EXOARG+32 01995000 EXFLG EQU EXOARG+33 01996000 EXGARG EQU 0 01997000 EXWRARG EQU 0 01998000 EXRWCHR EQU EXWRARG+26 01999000 EXSPACE EQU EXWRARG+36 02000000 EXPARG EQU 0 02001000 EXPDATA EQU EXPARG+12 02002000 EXPDATAB EQU 0 02003000 EXPARRAY EQU EXPDATAB+4 02004000 VS2AGL EQU 0 02005000 VSLABOPT EQU VS2AGL+28 02006000 VS2MSG EQU VS2AGL+35 02007000 VS2RESOP EQU VS2AGL+36 02008000 VS1AGL EQU 0 02009000 VSSECOPT EQU VS1AGL+68 02010000 VSVTOPT EQU VS1AGL+69 02011000 VSCATOPT EQU VS1AGL+70 02012000 VSRETURN EQU VS1AGL+71 02013000 VSMSG EQU VS1AGL+72 02014000 VSRESOPT EQU VS1AGL+73 02015000 RCTAGL EQU 0 02016000 RCTOPT EQU RCTAGL+8 02017000 STAEPARM EQU 0 02018000 STAHEAD EQU STAEPARM 02019000 STAVUCB EQU STAEPARM+8 02020000 STAVVOL EQU STAEPARM+12 02021000 STARUCB EQU STAEPARM+20 02022000 STARVOL EQU STAEPARM+24 02023000 STARTTR EQU STAEPARM+32 02024000 STAEXSAV EQU STAEPARM+40 02025000 STARTADD EQU STAEPARM+44 02026000 STATCB EQU STAEPARM+48 02027000 STARCVY EQU STAEPARM+52 02028000 STAVMNT EQU STARCVY 02029000 STAVDMNT EQU STARCVY 02030000 STAVENQ EQU STARCVY 02031000 STAVPOST EQU STARCVY 02032000 STACLEAR EQU STARCVY 02033000 STARETRY EQU STAEPARM+53 02034000 STAIO05 EQU STARETRY 02035000 STAOFF EQU STARETRY 02036000 STAVTOC EQU STARETRY 02037000 STAVTTR EQU STAEPARM+54 02038000 VOLLABEL EQU 0 02039000 SV82LIST EQU 0 02040000 SV82CODE EQU SV82LIST 02041000 SV82UCBP EQU SV82LIST+1 02042000 @NM00073 EQU SV82LIST+4 02043000 SV82DCBP EQU @NM00073 02044000 SV82VOLP EQU SV82DCBP 02045000 SV82TTRP EQU SV82LIST+8 02046000 @NM00074 EQU SV82LIST+12 02047000 SV82WRKP EQU @NM00074 02048000 SRTAGL EQU 0 02049000 LCTINFO EQU 0 02050000 LCTFLAGS EQU LCTINFO+32 02051000 UCTAGL EQU 0 02052000 UCTFLAGS EQU UCTAGL+68 02053000 SELAGL EQU 0 02054000 SELFLAGS EQU SELAGL+22 02055000 DATESAGL EQU 0 02056000 DATESOPT EQU DATESAGL+20 02057000 VS3AGL EQU 0 02058000 VS3FLAGS EQU VS3AGL+58 02059000 VSDVTOC EQU 0 02060000 VSDSTAT EQU 0 02061000 VSDSFLG1 EQU VSDSTAT+16 02062000 VSDFLG2 EQU VSDSTAT+17 02063000 VSDSCR EQU 0 02064000 VSDSCRFL EQU VSDSCR+4 02065000 VSDUSAGE EQU 0 02066000 VSDDORG EQU VSDUSAGE+9 02067000 VSDALLOC EQU VSDUSAGE+10 02068000 VSDUSEF EQU VSDUSAGE+11 02069000 VSDDSORG EQU VSDUSAGE+16 02070000 VSDBLOCK EQU 0 02071000 VSDSPACE EQU VSDBLOCK+12 02072000 VSDARRAY EQU VSDBLOCK+16 02073000 VSDVARY EQU VSDARRAY+48 02074000 SAHIST EQU 0 02075000 AUTOPTR EQU SAHIST+8 02076000 SAHSTA EQU SAHIST+12 02077000 AUTOTBL EQU 0 02078000 AUTOARAY EQU AUTOTBL 02079000 SDWA EQU 0 02080000 SDWAPARM EQU SDWA 02081000 SDWAFIOB EQU SDWA+4 02082000 SDWAABCC EQU SDWAFIOB 02083000 SDWACMPF EQU SDWAABCC 02084000 SDWAREQ EQU SDWACMPF 02085000 SDWACMPC EQU SDWAABCC+1 02086000 SDWACTL1 EQU SDWA+8 02087000 SDWACMKA EQU SDWACTL1 02088000 SDWAMWPA EQU SDWACTL1+1 02089000 SDWAPMKA EQU SDWACTL1+4 02090000 SDWACTL2 EQU SDWA+16 02091000 SDWACMKP EQU SDWACTL2 02092000 SDWAMWPP EQU SDWACTL2+1 02093000 SDWAPMKP EQU SDWACTL2+4 02094000 SDWAGRSV EQU SDWA+24 02095000 SDWAGR15 EQU SDWAGRSV+60 02096000 SDWANAME EQU SDWA+88 02097000 SDWAEC1 EQU SDWA+104 02098000 SDWAEMK1 EQU SDWAEC1 02099000 SDWAMWP1 EQU SDWAEC1+1 02100000 SDWAINT1 EQU SDWAEC1+2 02101000 SDWANXT1 EQU SDWAEC1+4 02102000 SDWAAEC1 EQU SDWA+112 02103000 SDWAILC1 EQU SDWAAEC1+1 02104000 SDWAINC1 EQU SDWAAEC1+2 02105000 SDWAICD1 EQU SDWAINC1+1 02106000 SDWAEC2 EQU SDWA+120 02107000 SDWAEMK2 EQU SDWAEC2 02108000 SDWAMWP2 EQU SDWAEC2+1 02109000 SDWAINT2 EQU SDWAEC2+2 02110000 SDWANXT2 EQU SDWAEC2+4 02111000 SDWAAEC2 EQU SDWA+128 02112000 SDWAILC2 EQU SDWAAEC2+1 02113000 SDWAINC2 EQU SDWAAEC2+2 02114000 SDWAICD2 EQU SDWAINC2+1 02115000 SDWASRSV EQU SDWA+136 02116000 SDWAIDNT EQU SDWA+200 02117000 SDWAMCH EQU SDWA+204 02118000 SDWASTCK EQU SDWAMCH 02119000 SDWAMCHI EQU SDWAMCH+8 02120000 SDWAMCHS EQU SDWAMCHI 02121000 SDWAMCHD EQU SDWAMCHI+1 02122000 SDWARSR1 EQU SDWAMCH+12 02123000 SDWARSR2 EQU SDWAMCH+13 02124000 SDWAFLGS EQU SDWA+232 02125000 SDWAERRA EQU SDWAFLGS 02126000 SDWAERRB EQU SDWAFLGS+1 02127000 SDWAERRC EQU SDWAFLGS+2 02128000 SDWAERRD EQU SDWAFLGS+3 02129000 SDWAIOFS EQU SDWA+238 02130000 SDWARTYA EQU SDWA+240 02131000 SDWACPUA EQU SDWA+248 02132000 SDWAPARQ EQU SDWA+252 02133000 SDWARCDE EQU SDWAPARQ 02134000 SDWAACF2 EQU SDWAPARQ+1 02135000 SDWAACF3 EQU SDWAPARQ+2 02136000 SDWAACF4 EQU SDWAPARQ+3 02137000 SDWALKWA EQU SDWA+256 02138000 SDWALKWS EQU SDWALKWA 02139000 SDWARECP EQU SDWA+292 02140000 SDWASNPA EQU SDWA+320 02141000 SDWADUMP EQU SDWASNPA 02142000 SDWADPFS EQU SDWADUMP+1 02143000 SDWADDAT EQU SDWASNPA+4 02144000 SDWASDAT EQU SDWADDAT 02145000 SDWAPDAT EQU SDWADDAT+2 02146000 SDWADPSA EQU SDWA+328 02147000 SDWADPSL EQU SDWADPSA 02148000 SDWARA EQU SDWA+400 02149000 SDWADPVA EQU SDWARA+2 02150000 UCB EQU 0 02151000 UCBOB EQU 0 02152000 UCBJBNR EQU UCBOB 02153000 UCBFL5 EQU UCBOB+1 02154000 UCBAF EQU UCBFL5 02155000 UCBSTAT EQU UCBOB+3 02156000 UCBCHAN EQU UCBOB+4 02157000 UCBSFLS EQU UCBOB+6 02158000 UCBFLA EQU UCBSFLS 02159000 UCBFL1 EQU UCBFLA 02160000 UCBBSY EQU UCBFL1 02161000 UCBNRY EQU UCBFL1 02162000 UCBPST EQU UCBFL1 02163000 UCBCUB EQU UCBFL1 02164000 UCBFLB EQU UCBSFLS+1 02165000 UCBCHM EQU UCBOB+8 02166000 UCBCHM1 EQU UCBCHM 02167000 UCBPTH0 EQU UCBCHM1 02168000 UCBPTH1 EQU UCBCHM1 02169000 UCBWGT EQU UCBOB+12 02170000 UCBNAME EQU UCBOB+13 02171000 UCBTYP EQU UCBOB+16 02172000 UCBTBYT1 EQU UCBTYP 02173000 UCB1FEA5 EQU UCBTBYT1 02174000 UCB1FEA6 EQU UCBTBYT1 02175000 UCBTBYT2 EQU UCBTYP+1 02176000 UCB2OPT2 EQU UCBTBYT2 02177000 UCBDUDN1 EQU UCB2OPT2 02178000 UCB2OPT3 EQU UCBTBYT2 02179000 UCBDUDN2 EQU UCB2OPT3 02180000 UCB2OPT4 EQU UCBTBYT2 02181000 UCBRWTAU EQU UCB2OPT4 02182000 UCB2OPT6 EQU UCBTBYT2 02183000 UCB2OPT7 EQU UCBTBYT2 02184000 UCBTBYT3 EQU UCBTYP+2 02185000 UCBDVCLS EQU UCBTBYT3 02186000 UCBTBYT4 EQU UCBTYP+3 02187000 UCBEXTPT EQU UCBOB+20 02188000 UCBFLC EQU UCBEXTPT 02189000 UCBDEV EQU UCBOB+24 02190000 UCBCMEXT EQU 0 02191000 UCBATI EQU UCBCMEXT+3 02192000 @NM00144 EQU UCBATI 02193000 UCBFLP1 EQU UCBCMEXT+5 02194000 UCBMT EQU 0 02195000 UCBOCR EQU 0 02196000 UCB3540X EQU 0 02197000 UCBDKBYT EQU UCB3540X+6 02198000 UCB3800X EQU 0 02199000 UCBOPTNS EQU UCB3800X 02200000 UCBACTIV EQU UCB3800X+3 02201000 UCBMDRBF EQU UCB3800X+36 02202000 UCBUCS EQU 0 02203000 UCBUCSOP EQU UCBUCS+4 02204000 UCBFCBOP EQU UCBUCS+5 02205000 RETPOINT EQU 0 02206000 DMNTLIST EQU 0 02207000 DMLEN EQU DMNTLIST 02208000 DMOPCD EQU DMNTLIST+4 02209000 DMNTFLAG EQU DMNTLIST+6 02210000 DMVOL EQU DMNTLIST+8 02211000 SAVEOVLY EQU 0 02212000 BACKWARD EQU SAVEOVLY+4 02213000 FORWARD EQU SAVEOVLY+8 02214000 AMSTP041 EQU 0 02215000 AMSTP042 EQU 0 02216000 AMSTP043 EQU 0 02217000 AMSTP044 EQU 0 02218000 DMPTRM EQU 0 02219000 IDCIOCL0 EQU 0 02220000 IDCIOCO0 EQU 0 02221000 IDCIOGT0 EQU 0 02222000 IDCIOIT0 EQU 0 02223000 IDCIOOP0 EQU 0 02224000 IDCIOPO0 EQU 0 02225000 IDCIOPT0 EQU 0 02226000 IDCIOSI0 EQU 0 02227000 IDCIOST0 EQU 0 02228000 IDCIOTM0 EQU 0 02229000 IDCIOVY0 EQU 0 02230000 IDCIO050 EQU 0 02231000 IDCSAAL0 EQU 0 02232000 IDCSACA0 EQU 0 02233000 IDCSACL0 EQU 0 02234000 IDCSACR0 EQU 0 02235000 IDCSADE0 EQU 0 02236000 IDCSADL0 EQU 0 02237000 IDCSADQ0 EQU 0 02238000 IDCSAFP0 EQU 0 02239000 IDCSAFS0 EQU 0 02240000 IDCSAGP0 EQU 0 02241000 IDCSAGS0 EQU 0 02242000 IDCSAID0 EQU 0 02243000 IDCSALC0 EQU 0 02244000 IDCSALD0 EQU 0 02245000 IDCSALK0 EQU 0 02246000 IDCSANQ0 EQU 0 02247000 IDCSAPR0 EQU 0 02248000 IDCSAPT0 EQU 0 02249000 IDCSAQL0 EQU 0 02250000 IDCSARC0 EQU 0 02251000 IDCSARK0 EQU 0 02252000 IDCSARV0 EQU 0 02253000 IDCSASC0 EQU 0 02254000 IDCSASN0 EQU 0 02255000 IDCSASS0 EQU 0 02256000 IDCSAST0 EQU 0 02257000 IDCSATI0 EQU 0 02258000 IDCSAUC0 EQU 0 02259000 IDCSA060 EQU 0 02260000 IDCST010 EQU 0 02261000 IDCTPER0 EQU 0 02262000 LISTTEST EQU 0 02263000 NEWERID1 EQU 5 02264000 UCBBGN EQU 0 02265000 GDTTBL EQU 0 02266000 GDTTR1 EQU GDTTBL+8 02267000 GDTTR2 EQU GDTTBL+12 02268000 GDTSAH EQU GDTTBL+32 02269000 GDTDBG EQU GDTTBL+40 02270000 GDTSTC EQU GDTTBL+44 02271000 GDTPRT EQU GDTTBL+48 02272000 GDTESS EQU GDTTBL+52 02273000 GDTESA EQU GDTTBL+56 02274000 GDTRST EQU GDTTBL+60 02275000 GDTRES EQU GDTTBL+64 02276000 GDTCAL EQU GDTTBL+68 02277000 GDTGSP EQU GDTTBL+72 02278000 GDTFSP EQU GDTTBL+76 02279000 GDTGPL EQU GDTTBL+80 02280000 GDTFPL EQU GDTTBL+84 02281000 GDTLOD EQU GDTTBL+88 02282000 GDTDEL EQU GDTTBL+92 02283000 GDTPRL EQU GDTTBL+96 02284000 GDTEPL EQU GDTTBL+100 02285000 GDTTIM EQU GDTTBL+104 02286000 GDTIIO EQU GDTTBL+108 02287000 GDTTIO EQU GDTTBL+112 02288000 GDTOPN EQU GDTTBL+124 02289000 GDTCLS EQU GDTTBL+128 02290000 GDTGET EQU GDTTBL+132 02291000 GDTPUT EQU GDTTBL+136 02292000 GDTPOS EQU GDTTBL+140 02293000 GDTCPY EQU GDTTBL+144 02294000 GDTCAT EQU GDTTBL+148 02295000 GDTABT EQU GDTTBL+152 02296000 GDTABH EQU GDTTBL+156 02297000 GDTSNP EQU GDTTBL+164 02298000 GDTVFY EQU GDTTBL+172 02299000 GDTUID EQU GDTTBL+192 02300000 GDTPMT EQU GDTTBL+196 02301000 GDTCIR EQU GDTTBL+200 02302000 GDTLNK EQU GDTTBL+204 02303000 GDTALC EQU GDTTBL+208 02304000 GDTDLC EQU GDTTBL+212 02305000 GDTQAL EQU GDTTBL+216 02306000 GDTSTW EQU GDTTBL+220 02307000 GDTSSC EQU GDTTBL+224 02308000 GDTENQ EQU GDTTBL+228 02309000 GDTRSV EQU GDTTBL+232 02310000 GDTDEQ EQU GDTTBL+236 02311000 GDTSFO EQU GDTTBL+240 02312000 GDTWTO EQU GDTTBL+244 02313000 GDTSCR EQU GDTTBL+248 02314000 GDTUNT EQU GDTTBL+252 02315000 GDTRCT EQU GDTTBL+256 02316000 GDTIFO EQU GDTTBL+260 02317000 GDTEXP EQU GDTTBL+264 02318000 GDTSTA EQU GDTTBL+268 02319000 GDTERR EQU GDTTBL+272 02320000 GDTUNC EQU GDTTBL+276 02321000 GDTLOC EQU GDTTBL+280 02322000 GDTRCK EQU GDTTBL+284 02323000 STAETYPE EQU 0 02324000 UCBOBS01 EQU UCBDEV 02325000 UCBSTAB EQU UCBOBS01+10 02326000 UCBBSVL EQU UCBSTAB 02327000 UCBPRSRS EQU UCBSTAB 02328000 UCBDMCT EQU UCBOBS01+11 02329000 UCBFL4 EQU UCBOBS01+13 02330000 UCBOBS02 EQU UCBDEV 02331000 UCBTFL1 EQU UCBOBS02+19 02332000 UCBXTN EQU UCBOBS02+20 02333000 UCBVOPT EQU UCBXTN 02334000 UCBOBS03 EQU UCBDEV 02335000 UCBXTADR EQU UCBOBS03 02336000 UCBOBS04 EQU UCBDEV 02337000 UCBBTA EQU UCBOBS04+12 02338000 UCBOBS06 EQU UCBDEV 02339000 UCBAOF EQU UCBOBS06 02340000 UCBAOF1 EQU UCBAOF 02341000 UCBAOF2 EQU UCBAOF+1 02342000 @NM00143 EQU UCBOBS06+3 02343000 UCBIRB EQU UCBOBS06+4 02344000 UCBGRAF EQU UCBIRB 02345000 UCBLDNCA EQU UCBOBS06+8 02346000 UCBRDYQ EQU UCBLDNCA 02347000 UCBIRLN EQU UCBRDYQ 02348000 UCBLDNCB EQU UCBRDYQ+1 02349000 UCBCTLNK EQU UCBOBS06+12 02350000 UCBOBS07 EQU UCBDEV 02351000 UCBOBS08 EQU UCBDEV 02352000 UCBCTCAD EQU UCBOBS08 02353000 UCBCTCF1 EQU UCBOBS08+4 02354000 UCBOBS09 EQU UCBDEV 02355000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02356000 UCBRV066 EQU UCBOBS09+4 02357000 UCBIOSBA EQU UCBOBS09 02358000 UCBRV042 EQU UCBOBS08+5 02359000 UCBRV082 EQU UCBCTCF1 02360000 UCBRV081 EQU UCBCTCF1 02361000 UCBRV080 EQU UCBCTCF1 02362000 UCBRV079 EQU UCBCTCF1 02363000 UCBRV078 EQU UCBCTCF1 02364000 UCBRV077 EQU UCBCTCF1 02365000 UCBRV076 EQU UCBCTCF1 02366000 UCBCTC80 EQU UCBCTCF1 02367000 UCBCTCAL EQU UCBCTCAD 02368000 UCBICNCB EQU UCBOBS07+4 02369000 UCBRV040 EQU UCBOBS07 02370000 UCBCTLNA EQU UCBCTLNK+1 02371000 UCBRLN EQU UCBCTLNK 02372000 UCBRDYQA EQU UCBLDNCB 02373000 UCBINRLN EQU UCBIRLN 02374000 UCBIRBA EQU UCBIRB+1 02375000 UCBRV039 EQU UCBGRAF 02376000 UCBDWNR EQU UCBGRAF 02377000 UCBRPND EQU UCBGRAF 02378000 UCBUPM EQU UCBGRAF 02379000 UCBBTAM EQU UCBGRAF 02380000 UCBDRNO EQU UCBGRAF 02381000 UCBDRO EQU UCBGRAF 02382000 UCBOIP EQU UCBGRAF 02383000 UCBATRCD EQU @NM00143 02384000 UCBSKPFG EQU @NM00143 02385000 UCBRIPND EQU @NM00143 02386000 UCBRTIAC EQU @NM00143 02387000 UCBRSV79 EQU @NM00143 02388000 UCBRSV78 EQU @NM00143 02389000 UCBRSV77 EQU @NM00143 02390000 UCBOLTEP EQU @NM00143 02391000 UCBATNCT EQU UCBOBS06+2 02392000 UCBRSV76 EQU UCBAOF2 02393000 UCBRSV75 EQU UCBAOF2 02394000 UCBRSV74 EQU UCBAOF2 02395000 UCBRSV73 EQU UCBAOF2 02396000 UCBRSV72 EQU UCBAOF2 02397000 UCBRSV71 EQU UCBAOF2 02398000 UCBRSV70 EQU UCBAOF2 02399000 UCBRSV69 EQU UCBAOF2 02400000 UCBRSV68 EQU UCBAOF1 02401000 UCBRSV67 EQU UCBAOF1 02402000 UCBRSV66 EQU UCBAOF1 02403000 UCBRSV65 EQU UCBAOF1 02404000 UCBRSV64 EQU UCBAOF1 02405000 UCBOFNL EQU UCBAOF1 02406000 UCBOFSP EQU UCBAOF1 02407000 UCBOFMCR EQU UCBAOF1 02408000 UCBBTB EQU UCBBTA+1 02409000 UCBDI EQU UCBBTA 02410000 UCBSNS EQU UCBOBS04+8 02411000 UCBTEB EQU UCBOBS04+4 02412000 UCBGCB EQU UCBOBS04+3 02413000 UCBOPEN EQU UCBOBS04+2 02414000 UCBSTART EQU UCBOBS04 02415000 UCBXTNB EQU UCBXTN+1 02416000 UCBRSV22 EQU UCBVOPT 02417000 UCBRSV21 EQU UCBVOPT 02418000 UCBRSV20 EQU UCBVOPT 02419000 UCBESVE EQU UCBVOPT 02420000 UCBERPC EQU UCBVOPT 02421000 UCBESVC EQU UCBVOPT 02422000 UCBEVA EQU UCBVOPT 02423000 UCBESV EQU UCBVOPT 02424000 UCBRV009 EQU UCBTFL1 02425000 UCBRV008 EQU UCBTFL1 02426000 UCBRV007 EQU UCBTFL1 02427000 UCBRV006 EQU UCBTFL1 02428000 UCBRV005 EQU UCBTFL1 02429000 UCBRV038 EQU UCBTFL1 02430000 UCBNSLTP EQU UCBTFL1 02431000 UCBNLTP EQU UCBTFL1 02432000 UCBRES1B EQU UCBOBS02+18 02433000 UCBFSER EQU UCBOBS02+12 02434000 @NM00142 EQU UCBOBS02+4 02435000 UCBFSEQ EQU UCBOBS02+2 02436000 UCBFSCT EQU UCBOBS02 02437000 UCBNEXP EQU UCBOBS01+20 02438000 UCBBASE EQU UCBOBS01+16 02439000 UCBRES1A EQU UCBOBS01+15 02440000 UCBUSER EQU UCBOBS01+14 02441000 UCBFL47 EQU UCBFL4 02442000 UCBFL46 EQU UCBFL4 02443000 UCBFL45 EQU UCBFL4 02444000 UCBRV065 EQU UCBFL4 02445000 UCBDSS EQU UCBFL4 02446000 UCBRESVP EQU UCBFL4 02447000 UCBWDAV EQU UCBFL4 02448000 UCBDAVV EQU UCBFL4 02449000 UCBSQC EQU UCBOBS01+12 02450000 UCBDATP EQU UCBOBS01+12 02451000 UCBDMC EQU UCBDMCT 02452000 UCBMOUNT EQU UCBDMCT 02453000 UCBBNUL EQU UCBSTAB 02454000 UCBSHAR EQU UCBSTAB 02455000 UCBBSTR EQU UCBSTAB 02456000 UCBBPUB EQU UCBSTAB 02457000 UCBBPRV EQU UCBSTAB 02458000 UCBBALB EQU UCBPRSRS 02459000 UCBPGFL EQU UCBSTAB 02460000 UCBDVSHR EQU UCBBSVL 02461000 UCBVOLI EQU UCBOBS01+4 02462000 UCBVTOC EQU UCBOBS01 02463000 GDTECT EQU GDTTBL+188 02464000 GDTPSB EQU GDTTBL+184 02465000 GDTUPT EQU GDTTBL+180 02466000 GDTCMB EQU GDTTBL+176 02467000 GDTSPR EQU GDTTBL+168 02468000 @NM00001 EQU GDTTBL+160 02469000 GDTTOH EQU GDTTBL+120 02470000 GDTRIP EQU GDTTBL+116 02471000 GDTIOH EQU GDTTBL+36 02472000 GDTTPH EQU GDTTBL+28 02473000 GDTRIH EQU GDTTBL+24 02474000 GDTSTH EQU GDTTBL+20 02475000 GDTDBH EQU GDTTBL+16 02476000 GDTPRM EQU GDTTBL+4 02477000 GDTHDR EQU GDTTBL 02478000 @NM00150 EQU SAVEOVLY+12 02479000 MOD EQU SAVEOVLY 02480000 DMNTVUA EQU DMNTLIST+26 02481000 DMNTRES2 EQU DMNTLIST+25 02482000 DMHOST EQU DMNTLIST+20 02483000 DMNTECB EQU DMNTLIST+16 02484000 DMNTASID EQU DMNTLIST+14 02485000 DMBITRES EQU DMNTFLAG 02486000 DMVUAVAL EQU DMNTFLAG 02487000 DMDELRSP EQU DMNTFLAG 02488000 DMBITRE1 EQU DMNTFLAG 02489000 DMNTRES1 EQU DMNTLIST+5 02490000 UCBERADR EQU UCBUCS+12 02491000 UCBFCBID EQU UCBUCS+8 02492000 UCBERCNT EQU UCBUCS+7 02493000 UCBRSV51 EQU UCBUCS+6 02494000 UCBRSV50 EQU UCBFCBOP 02495000 UCBRSV49 EQU UCBFCBOP 02496000 UCBRSV48 EQU UCBFCBOP 02497000 UCBRSV47 EQU UCBFCBOP 02498000 UCBRSV46 EQU UCBFCBOP 02499000 UCBRSV45 EQU UCBFCBOP 02500000 UCBRSV44 EQU UCBFCBOP 02501000 UCBFCBO1 EQU UCBFCBOP 02502000 UCBUCSPE EQU UCBUCSOP 02503000 UCBRSV43 EQU UCBUCSOP 02504000 UCBRSV42 EQU UCBUCSOP 02505000 UCBRSV41 EQU UCBUCSOP 02506000 UCBRSV40 EQU UCBUCSOP 02507000 UCBRSV39 EQU UCBUCSOP 02508000 UCBUCSO2 EQU UCBUCSOP 02509000 UCBUCSO1 EQU UCBUCSOP 02510000 UCBUCSID EQU UCBUCS 02511000 UCBMDRBA EQU UCBMDRBF+1 02512000 UCBRV075 EQU UCBMDRBF 02513000 UCBRV074 EQU UCB3800X+32 02514000 UCBIMAGE EQU UCB3800X+28 02515000 UCBFCBNM EQU UCB3800X+24 02516000 UCBCHAR4 EQU UCB3800X+20 02517000 UCBCHAR3 EQU UCB3800X+16 02518000 UCBCHAR2 EQU UCB3800X+12 02519000 UCBCHAR1 EQU UCB3800X+8 02520000 UCBCGMID EQU UCB3800X+4 02521000 UCBBRSTA EQU UCBACTIV 02522000 UCBRV063 EQU UCBACTIV 02523000 UCBRV062 EQU UCBACTIV 02524000 UCBRV061 EQU UCBACTIV 02525000 UCBRV060 EQU UCBACTIV 02526000 UCBRV059 EQU UCBACTIV 02527000 UCBRV058 EQU UCBACTIV 02528000 UCBRV057 EQU UCBACTIV 02529000 UCBRV050 EQU UCB3800X+2 02530000 UCBCGMNO EQU UCB3800X+1 02531000 UCBRV083 EQU UCBOPTNS 02532000 UCBBRSTR EQU UCBOPTNS 02533000 UCBRV056 EQU UCBOPTNS 02534000 UCBRV055 EQU UCBOPTNS 02535000 UCBRV054 EQU UCBOPTNS 02536000 UCBRV053 EQU UCBOPTNS 02537000 UCBRV052 EQU UCBOPTNS 02538000 UCBRV051 EQU UCBOPTNS 02539000 UCBRV073 EQU UCB3540X+7 02540000 UCBRV072 EQU UCBDKBYT 02541000 UCBRV071 EQU UCBDKBYT 02542000 UCBRV070 EQU UCBDKBYT 02543000 UCBRV069 EQU UCBDKBYT 02544000 UCBRV068 EQU UCBDKBYT 02545000 UCBRV067 EQU UCBDKBYT 02546000 UCBVLVER EQU UCBDKBYT 02547000 UCBDKAMX EQU UCBDKBYT 02548000 UCBVLSER EQU UCB3540X 02549000 UCBRDATA EQU UCBOCR+4 02550000 UCBFRID EQU UCBOCR 02551000 UCBCLN EQU UCBMT+14 02552000 UCBERG EQU UCBMT+12 02553000 UCBMS EQU UCBMT+11 02554000 UCBNB EQU UCBMT+10 02555000 UCBPW EQU UCBMT+9 02556000 UCBPR EQU UCBMT+8 02557000 UCBSIO EQU UCBMT+6 02558000 UCBTW EQU UCBMT+5 02559000 UCBTR EQU UCBMT+4 02560000 UCBTWT EQU UCBMT+3 02561000 UCBTRT EQU UCBMT+2 02562000 UCBCTD EQU UCBMT 02563000 UCBWTOID EQU UCBCMEXT+17 02564000 UCBRV043 EQU UCBCMEXT+16 02565000 UCBASID EQU UCBCMEXT+14 02566000 UCBMFCNT EQU UCBCMEXT+12 02567000 UCBPMSK EQU UCBCMEXT+10 02568000 UCBCCWOF EQU UCBCMEXT+8 02569000 UCBRV041 EQU UCBCMEXT+6 02570000 UCBRV036 EQU UCBFLP1 02571000 UCBRV035 EQU UCBFLP1 02572000 UCBERLOG EQU UCBFLP1 02573000 UCBRV033 EQU UCBFLP1 02574000 UCBINHIO EQU UCBFLP1 02575000 UCBNSWAP EQU UCBFLP1 02576000 UCBSHRUP EQU UCBFLP1 02577000 UCBNSRCH EQU UCBFLP1 02578000 UCBSNSCT EQU UCBCMEXT+4 02579000 UCBHPDV EQU @NM00144 02580000 UCBHALI EQU @NM00144 02581000 UCBRSV09 EQU @NM00144 02582000 UCBRSV08 EQU @NM00144 02583000 UCBRSV07 EQU @NM00144 02584000 UCBRSV06 EQU @NM00144 02585000 UCBRSV05 EQU @NM00144 02586000 UCBRSV04 EQU @NM00144 02587000 UCBDTI EQU UCBCMEXT+2 02588000 UCBSTI EQU UCBCMEXT+1 02589000 UCBETI EQU UCBCMEXT 02590000 UCBEXTP EQU UCBEXTPT+1 02591000 UCBDDRSW EQU UCBFLC 02592000 UCBTICBT EQU UCBFLC 02593000 UCBIVRR EQU UCBFLC 02594000 UCBIVRS EQU UCBFLC 02595000 UCBITF EQU UCBFLC 02596000 UCBUDE EQU UCBFLC 02597000 UCBWAA EQU UCBFLC 02598000 UCBATTP EQU UCBFLC 02599000 UCBUNTYP EQU UCBTBYT4 02600000 UCBRSV11 EQU UCBDVCLS 02601000 UCBRSV10 EQU UCBDVCLS 02602000 UCB3CHAR EQU UCBDVCLS 02603000 UCB3UREC EQU UCBDVCLS 02604000 UCB3DISP EQU UCBDVCLS 02605000 UCB3DACC EQU UCBDVCLS 02606000 UCB3COMM EQU UCBDVCLS 02607000 UCB3TAPE EQU UCBDVCLS 02608000 UCBDVPWR EQU UCB2OPT7 02609000 UCBVLPWR EQU UCB2OPT6 02610000 UCB2OPT5 EQU UCBTBYT2 02611000 UCBRVDEV EQU UCBRWTAU 02612000 UCBRPS EQU UCBDUDN2 02613000 UCBRR EQU UCBDUDN1 02614000 UCB2OPT1 EQU UCBTBYT2 02615000 UCB2OPT0 EQU UCBTBYT2 02616000 UCB1FEA7 EQU UCBTBYT1 02617000 UCBD6250 EQU UCB1FEA6 02618000 UCBD1600 EQU UCB1FEA5 02619000 UCB1FEA4 EQU UCBTBYT1 02620000 UCB1FEA3 EQU UCBTBYT1 02621000 UCB1FEA2 EQU UCBTBYT1 02622000 UCB1FEA1 EQU UCBTBYT1 02623000 UCB1FEA0 EQU UCBTBYT1 02624000 UCBRV029 EQU UCBWGT 02625000 UCBVHRSN EQU UCBWGT 02626000 UCBVORSN EQU UCBWGT 02627000 UCBMTPXP EQU UCBWGT 02628000 UCBREW EQU UCBWGT 02629000 UCBPUB EQU UCBWGT 02630000 UCBOUT EQU UCBWGT 02631000 UCBIN EQU UCBWGT 02632000 UCBCPU EQU UCBOB+11 02633000 UCBLCI EQU UCBOB+10 02634000 UCBCNT EQU UCBOB+9 02635000 UCBRV017 EQU UCBCHM1 02636000 UCBRV016 EQU UCBCHM1 02637000 UCBRV015 EQU UCBCHM1 02638000 UCBRV014 EQU UCBCHM1 02639000 UCBSPB EQU UCBPTH1 02640000 UCBPPB EQU UCBPTH1 02641000 UCBSPA EQU UCBPTH0 02642000 UCBPPA EQU UCBPTH0 02643000 UCBSIGP EQU UCBFLB 02644000 UCBVALPH EQU UCBFLB 02645000 UCBCRHSN EQU UCBFLB 02646000 UCBCRHRV EQU UCBFLB 02647000 UCBRESVH EQU UCBFLB 02648000 UCBSPST EQU UCBFLB 02649000 UCBASNS EQU UCBFLB 02650000 UCBIORST EQU UCBFLB 02651000 UCBQISCE EQU UCBFL1 02652000 UCBACTV EQU UCBFL1 02653000 UCBSAP EQU UCBFL1 02654000 UCBNOTRC EQU UCBCUB 02655000 UCBPSNS EQU UCBFL1 02656000 UCBUSING EQU UCBPST 02657000 UCBNOTRD EQU UCBNRY 02658000 UCBBUSYD EQU UCBBSY 02659000 UCBUA EQU UCBCHAN+1 02660000 UCBCHA EQU UCBCHAN 02661000 UCBDADI EQU UCBSTAT 02662000 UCBSYSR EQU UCBSTAT 02663000 UCBPRES EQU UCBSTAT 02664000 UCBALOC EQU UCBSTAT 02665000 UCBUNLD EQU UCBSTAT 02666000 UCBRESV EQU UCBSTAT 02667000 UCBCHGS EQU UCBSTAT 02668000 UCBONLI EQU UCBSTAT 02669000 UCBID EQU UCBOB+2 02670000 UCBALTPH EQU UCBFL5 02671000 UCBALTCU EQU UCBFL5 02672000 UCBNALOC EQU UCBFL5 02673000 UCBENVRD EQU UCBFL5 02674000 UCBVSDR EQU UCBFL5 02675000 UCBSASK EQU UCBFL5 02676000 UCBAMV EQU UCBAF 02677000 UCBDCC EQU UCBFL5 02678000 UCBMONT EQU UCBJBNR 02679000 UCBRV011 EQU UCBJBNR 02680000 UCBMMSGP EQU UCBJBNR 02681000 UCBOLDSM EQU UCBJBNR 02682000 UCBRV003 EQU UCBJBNR 02683000 UCBDUC EQU UCBJBNR 02684000 UCBJES3 EQU UCBJBNR 02685000 UCBVRDEV EQU UCBJBNR 02686000 UCBCMSEG EQU UCBOB 02687000 UCBPFXND EQU UCB+512 02688000 UCBIOQ EQU UCB+508 02689000 UCBLOCK EQU UCB+504 02690000 UCBPXST EQU UCB+504 02691000 @NM00141 EQU UCB 02692000 @NM00140 EQU SDWA+512 02693000 SDWAVRA EQU SDWARA+4 02694000 SDWAURAL EQU SDWARA+3 02695000 @NM00139 EQU SDWADPVA 02696000 SDWAEBC EQU SDWADPVA 02697000 SDWAHEX EQU SDWADPVA 02698000 SDWAVRAL EQU SDWARA 02699000 @NM00138 EQU SDWA+396 02700000 SDWACOMP EQU SDWA+392 02701000 SDWARCPL EQU SDWA+364 02702000 @NM00137 EQU SDWADPSA+32 02703000 SDWATO4 EQU SDWADPSL+28 02704000 SDWAFRM4 EQU SDWADPSL+24 02705000 SDWATO3 EQU SDWADPSL+20 02706000 SDWAFRM3 EQU SDWADPSL+16 02707000 SDWATO2 EQU SDWADPSL+12 02708000 SDWAFRM2 EQU SDWADPSL+8 02709000 SDWATO1 EQU SDWADPSL+4 02710000 SDWAFRM1 EQU SDWADPSL 02711000 @NM00136 EQU SDWADDAT+3 02712000 @NM00135 EQU SDWAPDAT 02713000 SDWAUSPL EQU SDWAPDAT 02714000 SDWADPSW EQU SDWAPDAT 02715000 SDWATJPA EQU SDWAPDAT 02716000 SDWATLPA EQU SDWAPDAT 02717000 SDWADREG EQU SDWAPDAT 02718000 SDWADSAH EQU SDWAPDAT 02719000 SDWADSAS EQU SDWAPDAT 02720000 @NM00134 EQU SDWADDAT+1 02721000 @NM00133 EQU SDWASDAT 02722000 SDWAQQS EQU SDWASDAT 02723000 SDWACBS EQU SDWASDAT 02724000 SDWAGTF EQU SDWASDAT 02725000 SDWASWA EQU SDWASDAT 02726000 SDWALSQA EQU SDWASDAT 02727000 SDWASQA EQU SDWASDAT 02728000 SDWANUC EQU SDWASDAT 02729000 @NM00132 EQU SDWADUMP+2 02730000 @NM00131 EQU SDWADPFS 02731000 SDWASLST EQU SDWADPFS 02732000 @NM00130 EQU SDWADPFS 02733000 SDWADLST EQU SDWADPFS 02734000 SDWADPT EQU SDWADPFS 02735000 SDWADPID EQU SDWADUMP 02736000 SDWADPLA EQU SDWA+316 02737000 SDWAREXN EQU SDWARECP+16 02738000 SDWACSCT EQU SDWARECP+8 02739000 SDWAMODN EQU SDWARECP 02740000 @NM00129 EQU SDWALKWA+32 02741000 SDWATALW EQU SDWALKWS+28 02742000 SDWATDLW EQU SDWALKWS+24 02743000 SDWATNLW EQU SDWALKWS+20 02744000 SDWAAPLW EQU SDWALKWS+16 02745000 SDWAIPLW EQU SDWALKWS+12 02746000 SDWAILLW EQU SDWALKWS+8 02747000 SDWAIULW EQU SDWALKWS+4 02748000 SDWAICLW EQU SDWALKWS 02749000 SDWAFLLK EQU SDWAACF4 02750000 SDWACMS EQU SDWAACF4 02751000 SDWAOPTM EQU SDWAACF4 02752000 SDWATADB EQU SDWAACF4 02753000 SDWATDNB EQU SDWAACF4 02754000 SDWATNCB EQU SDWAACF4 02755000 SDWAILCH EQU SDWAACF4 02756000 SDWAIUCB EQU SDWAACF4 02757000 SDWAICAT EQU SDWAACF3 02758000 SDWAIPRG EQU SDWAACF3 02759000 SDWASALL EQU SDWAACF3 02760000 SDWAASMP EQU SDWAACF3 02761000 SDWADISP EQU SDWAACF3 02762000 @NM00128 EQU SDWAACF3 02763000 @NM00127 EQU SDWAACF2 02764000 SDWAFREE EQU SDWAACF2 02765000 SDWAUPRG EQU SDWAACF2 02766000 @NM00126 EQU SDWAACF2 02767000 SDWASPIN EQU SDWAACF2 02768000 @NM00125 EQU SDWAACF2 02769000 SDWARCRD EQU SDWAACF2 02770000 SDWALCPU EQU SDWACPUA+2 02771000 @NM00124 EQU SDWACPUA 02772000 SDWARECA EQU SDWA+244 02773000 @NM00123 EQU SDWA+239 02774000 @NM00122 EQU SDWAIOFS 02775000 SDWANIOP EQU SDWAIOFS 02776000 SDWANOIO EQU SDWAIOFS 02777000 SDWAIOHT EQU SDWAIOFS 02778000 SDWAIOQR EQU SDWAIOFS 02779000 SDWAFMID EQU SDWA+236 02780000 @NM00121 EQU SDWAERRD 02781000 SDWAMCIV EQU SDWAERRD 02782000 SDWARPIV EQU SDWAERRD 02783000 SDWAMABD EQU SDWAERRD 02784000 SDWACTS EQU SDWAERRD 02785000 SDWASTAE EQU SDWAERRD 02786000 SDWANRBE EQU SDWAERRD 02787000 SDWACLUP EQU SDWAERRD 02788000 @NM00120 EQU SDWAERRC 02789000 SDWAEAS EQU SDWAERRC 02790000 SDWAPERC EQU SDWAERRC 02791000 SDWAIRB EQU SDWAERRC 02792000 SDWASTAI EQU SDWAERRC 02793000 SDWASTAF EQU SDWAERRC 02794000 SDWASRBM EQU SDWAERRB 02795000 SDWALDIS EQU SDWAERRB 02796000 SDWAENRB EQU SDWAERRB 02797000 SDWATYP1 EQU SDWAERRB 02798000 @NM00119 EQU SDWAERRB 02799000 SDWAPGIO EQU SDWAERRA 02800000 SDWATEXC EQU SDWAERRA 02801000 SDWASVCE EQU SDWAERRA 02802000 SDWAABTM EQU SDWAERRA 02803000 SDWASVCD EQU SDWAERRA 02804000 SDWARKEY EQU SDWAERRA 02805000 SDWAPCHK EQU SDWAERRA 02806000 SDWAMCHK EQU SDWAERRA 02807000 SDWATIME EQU SDWAMCH+20 02808000 SDWARFSA EQU SDWAMCH+16 02809000 @NM00118 EQU SDWAMCH+14 02810000 SDWAVEQR EQU SDWARSR2 02811000 SDWAPGFX EQU SDWARSR2 02812000 SDWAFLSQ EQU SDWARSR2 02813000 SDWAFSQA EQU SDWARSR2 02814000 SDWANUCL EQU SDWARSR2 02815000 SDWASPER EQU SDWARSR2 02816000 SDWAINTC EQU SDWARSR2 02817000 SDWAOFLN EQU SDWARSR2 02818000 SDWACHNG EQU SDWARSR1 02819000 SDWAMSER EQU SDWARSR1 02820000 @NM00117 EQU SDWARSR1 02821000 SDWACPID EQU SDWAMCH+10 02822000 SDWATERR EQU SDWAMCHD 02823000 SDWAFPRX EQU SDWAMCHD 02824000 SDWAINSF EQU SDWAMCHD 02825000 SDWAACR EQU SDWAMCHD 02826000 SDWASCK EQU SDWAMCHD 02827000 SDWAPSWU EQU SDWAMCHD 02828000 SDWAREGU EQU SDWAMCHD 02829000 SDWASKYF EQU SDWAMCHD 02830000 @NM00116 EQU SDWAMCHS 02831000 SDWARSRF EQU SDWAMCHS 02832000 SDWARSRC EQU SDWAMCHS 02833000 SDWAINVP EQU SDWAMCHS 02834000 SDWATSVL EQU SDWAMCHS 02835000 SDWARCDF EQU SDWAMCHS 02836000 SDWASRVL EQU SDWAMCHS 02837000 SDWASCKE EQU SDWASTCK+4 02838000 SDWASCKB EQU SDWASTCK 02839000 SDWALNTH EQU SDWAIDNT+1 02840000 SDWASPID EQU SDWAIDNT 02841000 SDWASR15 EQU SDWASRSV+60 02842000 SDWASR14 EQU SDWASRSV+56 02843000 SDWASR13 EQU SDWASRSV+52 02844000 SDWASR12 EQU SDWASRSV+48 02845000 SDWASR11 EQU SDWASRSV+44 02846000 SDWASR10 EQU SDWASRSV+40 02847000 SDWASR09 EQU SDWASRSV+36 02848000 SDWASR08 EQU SDWASRSV+32 02849000 SDWASR07 EQU SDWASRSV+28 02850000 SDWASR06 EQU SDWASRSV+24 02851000 SDWASR05 EQU SDWASRSV+20 02852000 SDWASR04 EQU SDWASRSV+16 02853000 SDWASR03 EQU SDWASRSV+12 02854000 SDWASR02 EQU SDWASRSV+8 02855000 SDWASR01 EQU SDWASRSV+4 02856000 SDWASR00 EQU SDWASRSV 02857000 SDWATRN2 EQU SDWAAEC2+4 02858000 SDWAIPC2 EQU SDWAICD2 02859000 SDWAIMC2 EQU SDWAICD2 02860000 SDWAIPR2 EQU SDWAICD2 02861000 @NM00115 EQU SDWAINC2 02862000 @NM00114 EQU SDWAILC2 02863000 SDWAIL2 EQU SDWAILC2 02864000 @NM00113 EQU SDWAILC2 02865000 @NM00112 EQU SDWAAEC2 02866000 SDWAADD2 EQU SDWANXT2+1 02867000 @NM00111 EQU SDWANXT2 02868000 @NM00110 EQU SDWAEC2+3 02869000 SDWASGN2 EQU SDWAINT2 02870000 SDWAEXP2 EQU SDWAINT2 02871000 SDWADEC2 EQU SDWAINT2 02872000 SDWAFPO2 EQU SDWAINT2 02873000 SDWACC2 EQU SDWAINT2 02874000 @NM00109 EQU SDWAINT2 02875000 SDWAPGM2 EQU SDWAMWP2 02876000 SDWAWAT2 EQU SDWAMWP2 02877000 SDWAMCK2 EQU SDWAMWP2 02878000 SDWAECT2 EQU SDWAMWP2 02879000 SDWAKEY2 EQU SDWAMWP2 02880000 SDWAEXT2 EQU SDWAEMK2 02881000 SDWAIO2 EQU SDWAEMK2 02882000 SDWATRM2 EQU SDWAEMK2 02883000 @NM00108 EQU SDWAEMK2 02884000 SDWAPER2 EQU SDWAEMK2 02885000 @NM00107 EQU SDWAEMK2 02886000 SDWATRAN EQU SDWAAEC1+4 02887000 SDWAIPC1 EQU SDWAICD1 02888000 SDWAIMC1 EQU SDWAICD1 02889000 SDWAIPR1 EQU SDWAICD1 02890000 @NM00106 EQU SDWAINC1 02891000 @NM00105 EQU SDWAILC1 02892000 SDWAIL1 EQU SDWAILC1 02893000 @NM00104 EQU SDWAILC1 02894000 @NM00103 EQU SDWAAEC1 02895000 SDWAADD1 EQU SDWANXT1+1 02896000 @NM00102 EQU SDWANXT1 02897000 @NM00101 EQU SDWAEC1+3 02898000 SDWASGN1 EQU SDWAINT1 02899000 SDWAEXP1 EQU SDWAINT1 02900000 SDWADEC1 EQU SDWAINT1 02901000 SDWAFPO1 EQU SDWAINT1 02902000 SDWACC1 EQU SDWAINT1 02903000 @NM00100 EQU SDWAINT1 02904000 SDWAPGM1 EQU SDWAMWP1 02905000 SDWAWAT1 EQU SDWAMWP1 02906000 SDWAMCK1 EQU SDWAMWP1 02907000 SDWAECT1 EQU SDWAMWP1 02908000 SDWAKEY1 EQU SDWAMWP1 02909000 SDWAEXT1 EQU SDWAEMK1 02910000 SDWAIO1 EQU SDWAEMK1 02911000 SDWATRM1 EQU SDWAEMK1 02912000 @NM00099 EQU SDWAEMK1 02913000 SDWAPER1 EQU SDWAEMK1 02914000 @NM00098 EQU SDWAEMK1 02915000 SDWAIOBR EQU SDWA+100 02916000 SDWAEPA EQU SDWA+96 02917000 @NM00097 EQU SDWANAME+4 02918000 SDWARBAD EQU SDWANAME 02919000 SDWAGR14 EQU SDWAGRSV+56 02920000 SDWAGR13 EQU SDWAGRSV+52 02921000 SDWAGR12 EQU SDWAGRSV+48 02922000 SDWAGR11 EQU SDWAGRSV+44 02923000 SDWAGR10 EQU SDWAGRSV+40 02924000 SDWAGR09 EQU SDWAGRSV+36 02925000 SDWAGR08 EQU SDWAGRSV+32 02926000 SDWAGR07 EQU SDWAGRSV+28 02927000 SDWAGR06 EQU SDWAGRSV+24 02928000 SDWAGR05 EQU SDWAGRSV+20 02929000 SDWAGR04 EQU SDWAGRSV+16 02930000 SDWAGR03 EQU SDWAGRSV+12 02931000 SDWAGR02 EQU SDWAGRSV+8 02932000 SDWAGR01 EQU SDWAGRSV+4 02933000 SDWAGR00 EQU SDWAGRSV 02934000 SDWANXTP EQU SDWACTL2+5 02935000 SDWASGP EQU SDWAPMKP 02936000 SDWAEUP EQU SDWAPMKP 02937000 SDWADOP EQU SDWAPMKP 02938000 SDWAFPP EQU SDWAPMKP 02939000 SDWACCP EQU SDWAPMKP 02940000 SDWAILP EQU SDWAPMKP 02941000 SDWAINTP EQU SDWACTL2+2 02942000 SDWASPVP EQU SDWAMWPP 02943000 SDWAWATP EQU SDWAMWPP 02944000 SDWAMCKP EQU SDWAMWPP 02945000 @NM00096 EQU SDWAMWPP 02946000 SDWAKEYP EQU SDWAMWPP 02947000 SDWAEXTP EQU SDWACMKP 02948000 SDWAIOP EQU SDWACMKP 02949000 SDWANXTA EQU SDWACTL1+5 02950000 SDWASGA EQU SDWAPMKA 02951000 SDWAEUA EQU SDWAPMKA 02952000 SDWADOA EQU SDWAPMKA 02953000 SDWAFPA EQU SDWAPMKA 02954000 SDWACCA EQU SDWAPMKA 02955000 SDWAILA EQU SDWAPMKA 02956000 SDWAINTA EQU SDWACTL1+2 02957000 SDWASPVA EQU SDWAMWPA 02958000 SDWAWATA EQU SDWAMWPA 02959000 SDWAMCKA EQU SDWAMWPA 02960000 @NM00095 EQU SDWAMWPA 02961000 SDWAKEYA EQU SDWAMWPA 02962000 SDWAEXTA EQU SDWACMKA 02963000 SDWAIOA EQU SDWACMKA 02964000 @NM00094 EQU SDWACMPF 02965000 SDWASTCC EQU SDWACMPF 02966000 @NM00093 EQU SDWACMPF 02967000 SDWASTEP EQU SDWACMPF 02968000 PTR1 EQU AUTOARAY+8 02969000 ASIZE EQU AUTOARAY+6 02970000 STATUS EQU AUTOARAY+4 02971000 AREAID EQU AUTOARAY 02972000 GPLAST EQU SAHIST+4 02973000 GPFIRST EQU SAHIST 02974000 VSDDSN EQU VSDARRAY+4 02975000 VSDVOLCT EQU VSDARRAY 02976000 VSDFMT0 EQU VSDBLOCK+8 02977000 VSDVTOCS EQU VSDBLOCK+4 02978000 VSDELEM EQU VSDBLOCK 02979000 VSDFREE EQU VSDUSAGE+24 02980000 VSDALLC EQU VSDUSAGE+19 02981000 VSDDSOR3 EQU VSDDSORG+2 02982000 @NM00092 EQU VSDDSORG 02983000 VSDSCAL EQU VSDUSAGE+12 02984000 @NM00091 EQU VSDUSEF 02985000 VSDCALFR EQU VSDUSEF 02986000 @NM00090 EQU VSDALLOC 02987000 VSDABSTR EQU VSDALLOC 02988000 VSDABLK EQU VSDALLOC 02989000 VSDATRK EQU VSDALLOC 02990000 VSDACYL EQU VSDALLOC 02991000 @NM00089 EQU VSDDORG 02992000 VSDOU EQU VSDDORG 02993000 VSDOIS EQU VSDDORG 02994000 VSDODA EQU VSDDORG 02995000 VSDOUN EQU VSDDORG 02996000 VSDOPS EQU VSDDORG 02997000 VSDOPO EQU VSDDORG 02998000 VSDEXTS EQU VSDUSAGE+8 02999000 VSDSECAL EQU VSDUSAGE+4 03000000 VSDFTRK EQU VSDUSAGE+2 03001000 VSDTRKS EQU VSDUSAGE 03002000 @NM00088 EQU VSDSCR+5 03003000 @NM00087 EQU VSDSCRFL 03004000 VSDVSAM EQU VSDSCRFL 03005000 VSDCATLC EQU VSDSCRFL 03006000 VSDACBPT EQU VSDSCR 03007000 @NM00086 EQU VSDSTAT+29 03008000 VSDPRTC EQU VSDSTAT+25 03009000 VSDCAT EQU VSDSTAT+22 03010000 VSDEXP EQU VSDSTAT+20 03011000 VSDCRE EQU VSDSTAT+18 03012000 @NM00085 EQU VSDFLG2 03013000 VSDRACF EQU VSDFLG2 03014000 VSDERROR EQU VSDFLG2 03015000 VSDPROT EQU VSDFLG2 03016000 VSDPWW EQU VSDFLG2 03017000 VSDPWR EQU VSDFLG2 03018000 @NM00084 EQU VSDSFLG1 03019000 VSDCVSAM EQU VSDSFLG1 03020000 VSDCATLG EQU VSDSFLG1 03021000 VSDVSAME EQU VSDSFLG1 03022000 VSDVSAMC EQU VSDSFLG1 03023000 VSDVTOCE EQU VSDSFLG1 03024000 VSDVTOCC EQU VSDSFLG1 03025000 VSDOWNER EQU VSDSTAT+8 03026000 VSDEXPIR EQU VSDSTAT+4 03027000 VSDCREAT EQU VSDSTAT 03028000 VSDFRCCL EQU VSDVTOC+21 03029000 @NM00083 EQU VSDVTOC+20 03030000 VSDFREXT EQU VSDVTOC+16 03031000 @NM00082 EQU VSDVTOC+15 03032000 VSDFRTRK EQU VSDVTOC+11 03033000 @NM00081 EQU VSDVTOC+10 03034000 VSDFRCYL EQU VSDVTOC+6 03035000 @NM00080 EQU VSDVTOC 03036000 @NM00079 EQU VS3FLAGS 03037000 VS3SYSNM EQU VS3FLAGS 03038000 VS3UNCAT EQU VS3FLAGS 03039000 VS3SCR EQU VS3FLAGS 03040000 VS3USAGE EQU VS3FLAGS 03041000 VS3STAT EQU VS3FLAGS 03042000 VS3DD EQU VS3AGL+50 03043000 VS3VOL EQU VS3AGL+44 03044000 VS3POOL EQU VS3AGL+40 03045000 VS3DEV EQU VS3AGL+36 03046000 VS3UCBP EQU VS3AGL+32 03047000 VS3CREAT EQU VS3AGL+28 03048000 VS3EXPIR EQU VS3AGL+24 03049000 VS3AST EQU VS3AGL+22 03050000 VS3LEVLN EQU VS3AGL+20 03051000 VS3LEVP EQU VS3AGL+16 03052000 VS3EXDSP EQU VS3AGL+12 03053000 VS3LISTP EQU VS3AGL+8 03054000 VS3HEAD EQU VS3AGL 03055000 @NM00078 EQU DATESOPT 03056000 DATDAYOP EQU DATESOPT 03057000 DATDTEOP EQU DATESOPT 03058000 DATSUB EQU DATESOPT 03059000 DATADD EQU DATESOPT 03060000 DATRETRN EQU DATESAGL+16 03061000 DATDAYS EQU DATESAGL+12 03062000 DATDATE EQU DATESAGL+8 03063000 DATHEAD EQU DATESAGL 03064000 @NM00077 EQU SELFLAGS 03065000 SELVOL EQU SELAGL+16 03066000 SELDDNP EQU SELAGL+12 03067000 SELUCBP EQU SELAGL+8 03068000 SELHEAD EQU SELAGL 03069000 @NM00076 EQU UCTFLAGS 03070000 UCTVSCAT EQU UCTFLAGS 03071000 UCTDD EQU UCTAGL+60 03072000 UCTVOLP EQU UCTAGL+56 03073000 UCTACBP EQU UCTAGL+52 03074000 UCTDSN EQU UCTAGL+8 03075000 UCTHEAD EQU UCTAGL 03076000 @NM00075 EQU LCTFLAGS 03077000 LCTVSCAT EQU LCTFLAGS 03078000 LCTOWNER EQU LCTINFO+24 03079000 LCTEXPIR EQU LCTINFO+20 03080000 LCTCREAT EQU LCTINFO+16 03081000 LCTACBP EQU LCTINFO+12 03082000 LCTMULVC EQU LCTINFO+8 03083000 LCTHEAD EQU LCTINFO 03084000 SRTWORKP EQU SRTAGL+28 03085000 SRTFLDLN EQU SRTAGL+24 03086000 SRTPOSIT EQU SRTAGL+20 03087000 SRTLEN EQU SRTAGL+16 03088000 SRTNUM EQU SRTAGL+12 03089000 SRTADDR EQU SRTAGL+8 03090000 SRTHEAD EQU SRTAGL 03091000 SV82DEBP EQU SV82WRKP 03092000 VOLRESV3 EQU VOLLABEL+55 03093000 VOLOWNER EQU VOLLABEL+45 03094000 VOLRESV1 EQU VOLLABEL+20 03095000 VOLVTOC EQU VOLLABEL+15 03096000 VOLSECTY EQU VOLLABEL+14 03097000 VOLSERNO EQU VOLLABEL+8 03098000 VOLNO EQU VOLLABEL+7 03099000 VOLLABI EQU VOLLABEL+4 03100000 VOLKEY EQU VOLLABEL 03101000 @NM00072 EQU STARETRY 03102000 @NM00071 EQU STARCVY 03103000 STARTSAV EQU STAEPARM+36 03104000 @NM00070 EQU STAEPARM+30 03105000 @NM00069 EQU STAEPARM+18 03106000 RCTDSET EQU RCTAGL+32 03107000 RCTNVOL EQU RCTAGL+26 03108000 RCTOVOL EQU RCTAGL+20 03109000 RCTNDEV EQU RCTAGL+16 03110000 RCTODEV EQU RCTAGL+12 03111000 @NM00068 EQU RCTAGL+10 03112000 @NM00067 EQU RCTOPT 03113000 RCTVOL EQU RCTOPT 03114000 RCTDEV EQU RCTOPT 03115000 RCTHEAD EQU RCTAGL 03116000 @NM00066 EQU VSRESOPT 03117000 VSREAL EQU VSRESOPT 03118000 VSRES EQU VSRESOPT 03119000 @NM00065 EQU VSMSG 03120000 VSTOV EQU VSMSG 03121000 VSFROMV EQU VSMSG 03122000 @NM00064 EQU VSRETURN 03123000 VSUCAT EQU VSRETURN 03124000 VSVSAM EQU VSRETURN 03125000 @NM00063 EQU VSCATOPT 03126000 VSLIST EQU VSCATOPT 03127000 VSSERIAL EQU VSCATOPT 03128000 VSDEVICE EQU VSCATOPT 03129000 @NM00062 EQU VSVTOPT 03130000 VSVSFLAG EQU VSVTOPT 03131000 VSALTTRK EQU VSVTOPT 03132000 VSTIME EQU VSVTOPT 03133000 VSUCMAST EQU VSSECOPT 03134000 VSOPCAT EQU VSSECOPT 03135000 VSUCTEST EQU VSSECOPT 03136000 VSWRITE EQU VSSECOPT 03137000 VSREAD EQU VSSECOPT 03138000 VSNONONV EQU VSSECOPT 03139000 VSMASTER EQU VSSECOPT 03140000 VSNOVSAM EQU VSSECOPT 03141000 VSODEVP EQU VS1AGL+64 03142000 VSOSERP EQU VS1AGL+60 03143000 VSDEVP EQU VS1AGL+56 03144000 VSSERP EQU VS1AGL+52 03145000 VSPFILEP EQU VS1AGL+48 03146000 VSPSWDP EQU VS1AGL+44 03147000 VSCATDDP EQU VS1AGL+40 03148000 VSACBP EQU VS1AGL+36 03149000 VSCATP EQU VS1AGL+32 03150000 VSNXTATP EQU VS1AGL+28 03151000 VSNUMATP EQU VS1AGL+24 03152000 VSIOP EQU VS1AGL+20 03153000 VSFILEP EQU VS1AGL+16 03154000 VSVOLP EQU VS1AGL+12 03155000 VSUCBP EQU VS1AGL+8 03156000 VSHEAD EQU VS1AGL 03157000 VSVTOCPT EQU VS2AGL+48 03158000 @NM00061 EQU VS2AGL+45 03159000 VSDDNAME EQU VS2AGL+37 03160000 @NM00060 EQU VS2RESOP 03161000 VS2REAL EQU VS2RESOP 03162000 VS2RES EQU VS2RESOP 03163000 @NM00059 EQU VS2MSG 03164000 VS2TOV EQU VS2MSG 03165000 VSVOLUME EQU VS2AGL+29 03166000 @NM00058 EQU VSLABOPT 03167000 VSNOVTOC EQU VSLABOPT 03168000 VSVOLSER EQU VSLABOPT 03169000 VSOWNER EQU VSLABOPT 03170000 VSIOBKPT EQU VS2AGL+24 03171000 VSVOLPTR EQU VS2AGL+20 03172000 VSOWNPTR EQU VS2AGL+16 03173000 VSVTOCSZ EQU VS2AGL+12 03174000 VSUCBPTR EQU VS2AGL+8 03175000 VS2HEAD EQU VS2AGL 03176000 EXPDATAL EQU EXPARRAY+6 03177000 @NM00057 EQU EXPARRAY+5 03178000 EXPKEYLN EQU EXPARRAY+4 03179000 EXPDATAP EQU EXPARRAY 03180000 EXPRECNO EQU EXPDATAB 03181000 EXPCCHHR EQU EXPARG+16 03182000 EXPCTLBK EQU EXPARG+8 03183000 EXPHEAD EQU EXPARG 03184000 EXRWFUN EQU EXWRARG+46 03185000 @NM00056 EQU EXSPACE+8 03186000 @NM00055 EQU EXSPACE+6 03187000 @NM00054 EQU EXSPACE+4 03188000 @NM00053 EQU EXSPACE+1 03189000 @NM00052 EQU EXSPACE 03190000 EXRWKDLN EQU EXWRARG+32 03191000 @NM00051 EQU EXWRARG+31 03192000 EXRECNUM EQU EXRWCHR+4 03193000 EXHH EQU EXRWCHR+2 03194000 EXCC EQU EXRWCHR 03195000 EXCCWCNT EQU EXWRARG+24 03196000 EXLOCPTR EQU EXWRARG+20 03197000 EXRWDARE EQU EXWRARG+16 03198000 EXRWIOAR EQU EXWRARG+12 03199000 EXRWCTBL EQU EXWRARG+8 03200000 EXRWRES EQU EXWRARG 03201000 EXGDATAL EQU EXGARG+30 03202000 @NM00050 EQU EXGARG+29 03203000 EXGKEYLN EQU EXGARG+28 03204000 EXGDATAP EQU EXGARG+24 03205000 EXGRECNO EQU EXGARG+20 03206000 EXGCCHH2 EQU EXGARG+16 03207000 EXGCCHH1 EQU EXGARG+12 03208000 EXGCTLBK EQU EXGARG+8 03209000 EXGHEAD EQU EXGARG 03210000 EXOVTH EQU EXFLG 03211000 EXORVT EQU EXFLG 03212000 EXORDS EQU EXFLG 03213000 EXOSPK EQU EXFLG 03214000 EXORVS EQU EXFLG 03215000 @NM00049 EQU EXFLG 03216000 EXOREAD EQU EXFLG 03217000 @NM00048 EQU EXOPT 03218000 EXOREP EQU EXOPT 03219000 EXOVTOC EQU EXOPT 03220000 EXONEW EQU EXOPT 03221000 EXOPASS EQU EXOPT 03222000 EXOLAB EQU EXOPT 03223000 EXOTAB EQU EXOPT 03224000 EXOCTLBK EQU EXOARG+28 03225000 EXOEXT EQU EXOARG+24 03226000 EXOUCB EQU EXOARG+20 03227000 EXOVSN EQU EXOARG+16 03228000 EXODSN EQU EXOARG+12 03229000 EXODDN EQU EXOARG+8 03230000 EXOHEAD EQU EXOARG 03231000 @NM00047 EQU EXCLFLAG 03232000 EXCLMNT EQU EXCLFLAG 03233000 EXCLVOL EQU EXCLAGL+16 03234000 EXCLDDP EQU EXCLAGL+12 03235000 EXCLUCBP EQU EXCLAGL+8 03236000 EXCLHEAD EQU EXCLAGL 03237000 @NM00046 EQU CKFLAGS 03238000 CKDMTABL EQU CKFLAGS 03239000 CKRETTYP EQU CKFLAGS 03240000 CKTESTVT EQU CKFLAGS 03241000 CKLABELP EQU CKAGL+24 03242000 CKDATYPE EQU CKAGL+20 03243000 CKDDNAME EQU CKAGL+12 03244000 CKUCBPTR EQU CKAGL+8 03245000 CKHEAD EQU CKAGL 03246000 PULABELP EQU PUAGL+16 03247000 PUTTRPTR EQU PUAGL+12 03248000 PUUCBPTR EQU PUAGL+8 03249000 PUHEAD EQU PUAGL 03250000 MDR EQU MDVTOC+4 03251000 MDHH EQU MDVTOC+2 03252000 MDCC EQU MDVTOC 03253000 @NM00045 EQU MDAGL+31 03254000 MDVTOCTR EQU MDFLAGS 03255000 MDFORCE EQU MDFLAGS 03256000 MDDEQ EQU MDFLAGS 03257000 MDENQ EQU MDFLAGS 03258000 MDWAIT EQU MDFLAGS 03259000 MDPOST EQU MDFLAGS 03260000 MDCLEAR EQU MDFLAGS 03261000 MDNEWVOL EQU MDFLAGS 03262000 MDLABEL EQU MDAGL+24 03263000 MDPUAGL EQU MDAGL+20 03264000 MDDDNAME EQU MDAGL+12 03265000 MDUCBPTR EQU MDAGL+8 03266000 MDHEAD EQU MDAGL 03267000 CTTBLRR EQU CTARRAY+3 03268000 CTTBLHH EQU CTARRAY+2 03269000 CTTBLCC EQU CTARRAY+1 03270000 CTTBLID EQU CTARRAY 03271000 CTREALH EQU CTMSG+3 03272000 CTREALCC EQU CTMSG+1 03273000 @NM00044 EQU CTMSG 03274000 CMCSN2 EQU CMMSG+28 03275000 CMCSN1 EQU CMMSG+16 03276000 CMNUMCRT EQU CMMSG+15 03277000 @NM00043 EQU CMMSG+14 03278000 CMNEWVOL EQU CMMSG+8 03279000 @NM00042 EQU CMMSG+7 03280000 @NM00041 EQU CMVOLFLG 03281000 CMRONLY EQU CMVOLFLG 03282000 CMBIND EQU CMVOLFLG 03283000 CMSCRCRT EQU CMVOLFLG 03284000 CMEXCL EQU CMVOLFLG 03285000 CMDERAS EQU CMVOLFLG 03286000 CMSCRVOL EQU CMVOLFLG 03287000 CMCECART EQU CMVOLFLG 03288000 CMOLDVOL EQU CMMSG 03289000 CCOLDCSN EQU CCMSG+24 03290000 CCNEWCSN EQU CCMSG+12 03291000 @NM00040 EQU CCMSG+10 03292000 CCVOL EQU CCMSG+4 03293000 @NM00039 EQU CCMSG+2 03294000 CCEJCODE EQU CCMSG+1 03295000 CCPSTCDE EQU CCMSG 03296000 @NM00038 EQU DMPARY+15 03297000 DMPARYTP EQU DMPARY+14 03298000 DMPARYEX EQU DMPARY+12 03299000 DMPARYIC EQU DMPARY+10 03300000 DMPARYSZ EQU DMPARY+8 03301000 DMPARYNM EQU DMPARY 03302000 @NM00037 EQU DMPITM+15 03303000 DMPITMTP EQU DMPITM+14 03304000 DMPITMLN EQU DMPITM+12 03305000 DMPITMPT EQU DMPITM+8 03306000 DMPITMNM EQU DMPITM 03307000 @NM00036 EQU ERCNVTAB+24 03308000 ERDARBPT EQU ERCPLPT 03309000 ERDYNRC EQU ERCATRC 03310000 ERDSNM EQU ERCNVTAB+12 03311000 @NM00035 EQU ERCNVTAB+4 03312000 @NM00034 EQU ERCNVTAB+3 03313000 @NM00033 EQU EROSOPER 03314000 EROSUCDX EQU EROSOPER 03315000 EROSCATL EQU EROSOPER 03316000 @NM00032 EQU EROPER 03317000 ERCATAL EQU EROPER 03318000 ERCATDL EQU EROPER 03319000 ERCATDE EQU EROPER 03320000 ERCATLC EQU EROPER 03321000 @NM00031 EQU ERTYPE 03322000 ERDYNAL EQU ERTYPE 03323000 EROSCAT EQU ERTYPE 03324000 ERCATLG EQU ERTYPE 03325000 @NM00030 EQU FMTCNVF+1 03326000 FMTAR EQU FMTCNVF+1 03327000 FMTBS EQU FMTCNVF+1 03328000 FMTSS EQU FMTCNVF+1 03329000 FMTAL EQU FMTCNVF+1 03330000 FMTZS EQU FMTCNVF+1 03331000 @NM00029 EQU FMTCNVF 03332000 FMTPU EQU FMTCNVF 03333000 FMTBD EQU FMTCNVF 03334000 FMTBHD EQU FMTCNVF 03335000 FMTBHA EQU FMTCNVF 03336000 FMTBH EQU FMTCNVF 03337000 FMTOLEN EQU FMTLIST+8 03338000 FMTRIO EQU FMTOCOL 03339000 FMTSPT EQU FMTSTO 03340000 FMTSTL EQU FMTILEN 03341000 @NM00028 EQU FMTFLGS+1 03342000 FMTSMSG EQU FMTFLGS+1 03343000 FMTHDF EQU FMTFLGS 03344000 FMTDFF EQU FMTFLGS 03345000 FMTSTF EQU FMTFLGS 03346000 FMTREPF EQU FMTFLGS 03347000 FMTBDF EQU FMTFLGS 03348000 FMTIDF EQU FMTFLGS 03349000 FMTSCF EQU FMTFLGS 03350000 FMTEOLF EQU FMTFLGS 03351000 DARGPCT EQU DARGINL 03352000 DARGREP EQU DARGINS 03353000 @NM00027 EQU DARGLIST+19 03354000 DARGIND EQU DARGLIST+18 03355000 UVOLVOL EQU UVOLENT+4 03356000 UVOLDEV EQU UVOLENT 03357000 UVOLCNT EQU UVOLLIST 03358000 @NM00026 EQU IOINFOPT 03359000 IOINFLUB EQU IOINFOPT 03360000 IOINFTMS EQU IOINFOPT 03361000 IOINFSUP EQU IOINFOPT 03362000 IOINFDSN EQU IOINFOPT 03363000 IOINFVOL EQU IOINFOPT 03364000 IOINFDVT EQU IOINFOPT 03365000 OPNVOL EQU OPNAGL+44 03366000 OPNSTRNO EQU OPNAGL+43 03367000 @NM00025 EQU OPNOPT2 03368000 OPNOPTJM EQU OPNOPT2 03369000 OPNOPTNM EQU OPNOPT2 03370000 OPNOPTAS EQU OPNOPT2 03371000 @NM00024 EQU OPNDSO 03372000 OPNDSOPO EQU OPNDSO 03373000 OPNDSOIS EQU OPNDSO 03374000 OPNDSOPS EQU OPNDSO 03375000 OPNDSOAM EQU OPNDSO 03376000 OPNKYL EQU OPNAGL+40 03377000 OPNBLK EQU OPNAGL+36 03378000 OPNREC EQU OPNAGL+32 03379000 OPNDEVIX EQU OPNDEV+4 03380000 OPNDEVDT EQU OPNDEV 03381000 OPNCBP EQU OPNAGL+20 03382000 OPNDSN EQU OPNAGL+16 03383000 OPNPWA EQU OPNAGL+12 03384000 OPNDDN EQU OPNAGL+8 03385000 OPNIOC EQU OPNAGL+4 03386000 OPNMODRP EQU OPNMOD 03387000 OPNMODUB EQU OPNMOD 03388000 OPNMODRS EQU OPNMOD 03389000 OPNMODAX EQU OPNMOD 03390000 OPNMODRR EQU OPNMOD 03391000 OPNMODRC EQU OPNMOD 03392000 OPNMODAC EQU OPNMOD 03393000 OPNMODPD EQU OPNMOD 03394000 OPNTYPSY EQU OPNTYP 03395000 OPNTYPRV EQU OPNTYP 03396000 OPNTYPEX EQU OPNTYP 03397000 OPNTYPRA EQU OPNTYP 03398000 OPNTYPXM EQU OPNTYP 03399000 OPNTYPCI EQU OPNTYP 03400000 OPNTYPSO EQU OPNTYP 03401000 OPNTYPSI EQU OPNTYP 03402000 @NM00023 EQU OPNRFM 03403000 OPNRFMBK EQU OPNRFM 03404000 OPNRFMSF EQU OPNRFM 03405000 OPNRFMUN EQU OPNRFM 03406000 OPNRFMVR EQU OPNRFM 03407000 OPNRFMFX EQU OPNRFM 03408000 OPNOPTSK EQU OPNOPT 03409000 OPNOPTDR EQU OPNOPT 03410000 OPNOPTCR EQU OPNOPT 03411000 OPNOPTKS EQU OPNOPT 03412000 OPNOPTBK EQU OPNOPT 03413000 OPNOPTUP EQU OPNOPT 03414000 OPNOPTOT EQU OPNOPT 03415000 OPNOPTIN EQU OPNOPT 03416000 IOCEXT EQU IOCSTR+64 03417000 IOCTSML EQU IOCREL+2 03418000 IOCTPML EQU IOCREL 03419000 IOCWORK EQU IOCSTR+56 03420000 IOCRRN EQU IOCSTR+52 03421000 IOCPNM EQU IOCNWM+2 03422000 IOCPTL EQU IOCNWM 03423000 IOCKYA EQU IOCMEM 03424000 IOCVRC EQU IOCTTR 03425000 IOCCBP EQU IOCSTR+36 03426000 IOCDSN EQU IOCSTR+32 03427000 IOCHURBA EQU IOCSTR+28 03428000 IOCVOLSR EQU IOCSTR+22 03429000 @NM00022 EQU IOCMSG 03430000 IOCMSGSM EQU IOCMSG 03431000 IOCMSGAE EQU IOCMSG 03432000 IOCMSGCE EQU IOCMSG 03433000 IOCMSGOE EQU IOCMSG 03434000 IOCMSGOP EQU IOCMSG 03435000 IOCCHPKG EQU IOCMSG 03436000 IOCCHPKE EQU IOCMSG 03437000 IOCCHPNU EQU IOCCHP 03438000 IOCCHPUP EQU IOCCHP 03439000 IOCCHPBK EQU IOCCHP 03440000 IOCCHPCR EQU IOCCHP 03441000 IOCCHPKS EQU IOCCHP 03442000 IOCCHPSK EQU IOCCHP 03443000 IOCCHPDR EQU IOCCHP 03444000 IOCCHPSQ EQU IOCCHP 03445000 IOCMACNT EQU IOCMAC2 03446000 IOCMACER EQU IOCMAC2 03447000 IOCMACPA EQU IOCMAC2 03448000 IOCMACEN EQU IOCMAC2 03449000 IOCMACCP EQU IOCMAC2 03450000 IOCMACRR EQU IOCMAC2 03451000 IOCMACAS EQU IOCMAC2 03452000 IOCMACSK EQU IOCMAC2 03453000 @NM00021 EQU IOCMAC 03454000 IOCMACCC EQU IOCMAC 03455000 IOCMACDR EQU IOCMAC 03456000 IOCMACBK EQU IOCMAC 03457000 IOCMACCR EQU IOCMAC 03458000 IOCMACUP EQU IOCMAC 03459000 IOCMACOT EQU IOCMAC 03460000 IOCMACIN EQU IOCMAC 03461000 @NM00020 EQU IOCRFM 03462000 IOCRFMBK EQU IOCRFM 03463000 IOCRFMSF EQU IOCRFM 03464000 IOCRFMUN EQU IOCRFM 03465000 IOCRFMVR EQU IOCRFM 03466000 IOCRFMFX EQU IOCRFM 03467000 @NM00019 EQU IOCDSO 03468000 IOCDSOPO EQU IOCDSO 03469000 IOCDSOIS EQU IOCDSO 03470000 IOCDSOPS EQU IOCDSO 03471000 IOCDSOAM EQU IOCDSO 03472000 IOCRKP EQU IOCSTR+13 03473000 IOCKYL EQU IOCSTR+12 03474000 IOCTRN EQU IOCSTR+8 03475000 IOCDLN EQU IOCSTR+4 03476000 IOCDAD EQU IOCSTR 03477000 UNITVTOC EQU UNITABL+7 03478000 @NM00018 EQU UNITSTAT 03479000 UNITUSHR EQU UNITSTAT 03480000 UNITXSHR EQU UNITSTAT 03481000 UNITISHR EQU UNITSTAT 03482000 UNITUA EQU @NM00017+1 03483000 UNITCHA EQU @NM00017 03484000 UNITUCB EQU UNITABL 03485000 RACFVOLS EQU RACFAGL+16 03486000 RACFCLN EQU RACFAGL+12 03487000 RACFPROF EQU RACFAGL+8 03488000 RACFENT EQU RACFAGL+4 03489000 @NM00016 EQU RACFFLG4 03490000 @NM00015 EQU RACFFLG3 03491000 RACFPRF EQU RACFFLG3 03492000 @NM00014 EQU RACFFLG3 03493000 @NM00013 EQU RACFFLG2 03494000 RACFTRD EQU RACFFLG2 03495000 RACFTUPD EQU RACFFLG2 03496000 RACFTCTL EQU RACFFLG2 03497000 @NM00012 EQU RACFFLG2 03498000 RACFTALT EQU RACFFLG2 03499000 RACFCSA EQU RACFFLG1 03500000 RACFLOGN EQU RACFFLG1 03501000 RACFLOGF EQU RACFFLG1 03502000 @NM00011 EQU RACFFLG1 03503000 RACFDSTV EQU RACFFLG1 03504000 @NM00010 EQU RACFFLG1 03505000 ALLUNCNT EQU ALLAGL+30 03506000 ALLVLCNT EQU ALLAGL+29 03507000 @NM00009 EQU ALLOPT 03508000 ALLOPTUN EQU ALLOPT 03509000 ALLOPTPV EQU ALLOPT 03510000 ALLOPTDS EQU ALLOPT 03511000 ALLOPTVL EQU ALLOPT 03512000 @NM00008 EQU ALLORG+1 03513000 ALLORGVS EQU ALLORG+1 03514000 @NM00007 EQU ALLORG+1 03515000 ALLORGGS EQU ALLORG+1 03516000 ALLORGUN EQU ALLORG 03517000 ALLORGPO EQU ALLORG 03518000 ALLORGMQ EQU ALLORG 03519000 ALLORGCQ EQU ALLORG 03520000 ALLORGCX EQU ALLORG 03521000 ALLORGDA EQU ALLORG 03522000 ALLORGPS EQU ALLORG 03523000 ALLORGIS EQU ALLORG 03524000 ALLDSPUN EQU ALLDSP 03525000 ALLDSPCG EQU ALLDSP 03526000 ALLDSPDE EQU ALLDSP 03527000 ALLDSPKP EQU ALLDSP 03528000 @NM00006 EQU ALLDSP 03529000 ALLSTSOD EQU ALLSTS 03530000 ALLSTSMD EQU ALLSTS 03531000 ALLSTSNW EQU ALLSTS 03532000 ALLSTSSR EQU ALLSTS 03533000 @NM00005 EQU ALLSTS 03534000 ALLPWD EQU ALLAGL+20 03535000 ALLVLP EQU ALLAGL+16 03536000 ALLULP EQU ALLAGL+12 03537000 ALLDDN EQU ALLAGL+4 03538000 ALLDSN EQU ALLAGL 03539000 CIRPID EQU CIRAGL+28 03540000 CIRPWD EQU CIRAGL+24 03541000 CIRCAT EQU CIRAGL+20 03542000 CIRWKP EQU CIRAGL+16 03543000 CIRTLR EQU CIRAGL+12 03544000 CIRHDR EQU CIRAGL+8 03545000 CIRTLN EQU CIRAGL+6 03546000 CIRHLN EQU CIRAGL+4 03547000 @NM00004 EQU CIRAGL+1 03548000 @NM00003 EQU CIRTYPE 03549000 CIRTYPAQ EQU CIRTYPE 03550000 CIRTYP1Q EQU CIRTYPE 03551000 NEWID1 EQU TRACE1+95 03552000 CALLID EQU OLDERID1+90 03553000 @NM00002 EQU OLDERID1 03554000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03555000 @RF00479 EQU @RC00435 03556000 @PB00005 EQU @EL00001 03557000 @PB00004 EQU @PB00005 03558000 @PB00003 EQU @PB00004 03559000 @PB00002 EQU @PB00003 03560000 @ENDDATA EQU * 03561000 END IDCSA10,(C'PLS1208',0603,77062) 03562000