TITLE '********** ICKSA08 SYSTEM ADAPTER SYSTEM SERVICE MODULE*00001000 E *******' 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 ICKSA08 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'ICKSA08 78.192' 0002 00019000 ICKSASC DS 0H 0002 00020000 USING *,@15 0002 00021000 B @PROLOG 0002 00022000 DC AL2(@EP00202-ICKSASC) 00023000 ENTRY ICKSASC 00024000 ICKSAWO DS 0H 0002 00025000 USING *,@15 0002 00026000 B @PROLOG 0002 00027000 DC AL2(@EP00367-ICKSAWO) 00028000 ENTRY ICKSAWO 00029000 ICKSAVC DS 0H 0002 00030000 USING *,@15 0002 00031000 B @PROLOG 0002 00032000 DC AL2(@EP00438-ICKSAVC) 00033000 ENTRY ICKSAVC 00034000 DROP @15 00035000 @PROLOG STM @14,@12,12(@13) 0002 00036000 BALR @12,0 0002 00037000 @PSTART LA @11,4095(,@12) 0002 00038000 USING @PSTART,@12 0002 00039000 USING @PSTART+4095,@11 0002 00040000 L @00,@SIZDATD 0002 00041000 GETMAIN R,LV=(0) 00042000 LR @10,@01 0002 00043000 USING @DATD,@10 0002 00044000 ST @13,@SA00001+4 0002 00045000 LM @15,@01,16(@13) 0002 00046000 ST @10,8(,@13) 0002 00047000 LR @13,@10 0002 00048000 AH @15,4(,@15) 0002 00049000 BR @15 0002 00050000 @EP00002 DS 0H 0003 00051000 EJECT 00052000 * /************************************************************/ 00053000 * /************************************************************/ 00054000 * /* */ 00055000 * /* USCRATCH ENTRY POINT */ 00056000 * /* */ 00057000 * /************************************************************/ 00058000 * /************************************************************/ 00059000 * 0202 00060000 * 0202 00061000 *ICKSASC: ENTRY (GDTTBLX,SCDSNAMX,SCLISTPX,SCOVRDX); 0202 00062000 * 0202 00063000 * 0202 00064000 B @EC00202 0202 00065000 @EP00202 MVC @PC00001(16),0(@01) 0202 00066000 @EC00202 DS 0H 0203 00067000 * /************************************************************/ 00068000 * /* */ 00069000 * /* USCRATCH DECLARES FOR INCOMING ARGUMENTS. */ 00070000 * /* */ 00071000 * /************************************************************/ 00072000 * 0203 00073000 * DCL SCDSNAM CHAR(44) BASED; /* DATA SET NAME TO BE DELETED*/ 00074000 * 0203 00075000 * DCL SCLISTP PTR(31) BASED; /* POINTER TO VOLUME LIST */ 00076000 * 0204 00077000 * DCL SCOVRD CHAR(4) BASED; /* IGNORE EXPIRATION DATE */ 00078000 * 0205 00079000 * RESPECIFY SCDSNAM BASED (PARMPTR2); 0206 00080000 * /* BASE SCDSNAM */ 00081000 * RESPECIFY SCLISTP BASED (PARMPTR3); 0207 00082000 * /* BASE SCLISTP */ 00083000 * RESPECIFY SCOVRD BASED (PARMPTR4); 0208 00084000 * /* BASE SCOVRD */ 00085000 * 0209 00086000 * DCL SDMSG01 FIXED(8) CONSTANT(01); 0209 00087000 * /* UNABLE TO SCRATCH MSG NO. */ 00088000 * DCL SDMSG02 FIXED(8) CONSTANT(02); 0210 00089000 * /* NO VOLUME MOUNTED MSG NO. */ 00090000 * DCL SDMSG04 FIXED(8) CONSTANT(04); 0211 00091000 * /*BAD PASSWORD MESSAGE NO. */ 00092000 * DCL SDMSG05 FIXED(8) CONSTANT(05); 0212 00093000 * /* NON-EXPIRED DATA SET MSG NO. */ 00094000 * DCL SDMSG06 FIXED(8) CONSTANT(06); 0213 00095000 * /* PERMANENT I/O ERROR MSG NO. */ 00096000 * DCL SDMSG07 FIXED(8) CONSTANT(07); 0214 00097000 * /* UNABLE TO MOUNT VOL MSG NO. */ 00098000 * DCL SDMSG08 FIXED(8) CONSTANT(08); 0215 00099000 * /* DATA SET WAS IN USE MSG NO. */ 00100000 * DCL SDMSG12 FIXED(8) CONSTANT(12); 0216 00101000 * /* INVALID RACF AUTHORIZATION */ 00102000 * 0217 00103000 * DCL SCRTRC4 FIXED(8) CONSTANT(4); 0217 00104000 * /* SCRATCH MACRO R.C. = 4 */ 00105000 * DCL SCRTRC8 FIXED(8) CONSTANT(8); 0218 00106000 * /* SCRATCH MACRO R.C. = 8 */ 00107000 * 0219 00108000 * DCL STATOK BIT(8) CONSTANT('00'X); 0219 00109000 * /* STAT CODE=0 DSCB DELETED OK*/ 00110000 * DCL SCRSTAT1 BIT(8) CONSTANT('01'X); 0220 00111000 * /* STAT CODE=1 DSN NOT ON VOL */ 00112000 * DCL SCRSTAT2 BIT(8) CONSTANT('02'X); 0221 00113000 * /* STAT CODE=2 BAD PASSWORD */ 00114000 * DCL SCRSTAT3 BIT(8) CONSTANT('03'X); 0222 00115000 * /* STAT CODE=3 NON-EXPIRED DSN*/ 00116000 * DCL SCRSTAT4 BIT(8) CONSTANT('04'X); 0223 00117000 * /* STAT CODE=4 PERM I/O ERROR */ 00118000 * DCL SCRSTAT7 BIT(8) CONSTANT('07'X); 0224 00119000 * /* STAT CODE=7 DATASET IN USE */ 00120000 * 0225 00121000 * DCL SCRSTAT8 BIT(8) CONSTANT('08'X); 0225 00122000 * /* STATUS CODE=8 - */ 00123000 * /* INVALID RACF AUTHORIZATION */ 00124000 * DCL STATFLG BIT(1) BDY(BYTE); 0226 00125000 * /* NON-ZERO STATUS CODE FOUND */ 00126000 * 0227 00127000 * DCL VLISTPTR PTR(31); /* SCRATCH VOLUME LIST POINTER*/ 00128000 * 0227 00129000 * DCL VLISTLEN FIXED(31) UNSIGNED; 0228 00130000 * /* SCRATCH VOLUME LIST LENGTH */ 00131000 * 0229 00132000 * DCL ONEVOLST CHAR(14); /* ONE VOLUME SCRATCH LIST */ 00133000 * 0229 00134000 * DECLARE /* MULT VOLUME SCRATCH LIST */ 00135000 * 1 MYVOLIST BASED (VLISTPTR), 0230 00136000 * 2 MYVOLCNT FIXED(15), /* NUMBER OF ENTRIES */ 00137000 * 2 MYVOLENT (*) CHAR(12), /* VOLUME ENTRIES */ 00138000 * 3 DEVVOL CHAR(10), 0230 00139000 * 4 DEVICE CHAR(4), /* VOLUME DEVICE TYPE */ 00140000 * 4 VOLUME CHAR(6), /* VOLUME SERIAL NUMBER */ 00141000 * 3 * CHAR(1), 0230 00142000 * 3 VOLSTAT CHAR(1); /* SCRATCH STATUS CODE */ 00143000 * 0230 00144000 * DCL VOLIDX FIXED(15); /* VOLUME LIST INDEX VARIABLE */ 00145000 * 0231 00146000 * 0231 00147000 * DECLARE /* SCRATCH PARAMETER LIST */ 00148000 * 1 SCRLIST CHAR(16) BDY(WORD), 0232 00149000 * 2 SCRFLGS CHAR(4), /* SCRATCH FLAG BYTES */ 00150000 * 2 SCRDSN PTR(31), /* DATA SET NAME POINTER */ 00151000 * 2 * CHAR(4), 0232 00152000 * 2 SCRVLIST PTR(31); /* VOLUME LIST POINTER */ 00153000 * 0232 00154000 * DCL CAMLIST1 CHAR(16) GENERATED; 0233 00155000 * /* GEN'D CAMLIST MACRO LIST OV*/ 00156000 * DCL CAMLIST2 CHAR(16) GENERATED; 0234 00157000 * /* GEN'D CAMLIST MACRO LIST */ 00158000 * 0235 00159000 * DCL X FIXED(8) STATIC LOCAL; /* DUMMY DSN FOR CAMLIST EXP */ 00160000 * 0235 00161000 * DCL Y FIXED(8) STATIC LOCAL; /* DUMMY VOLST FOR CAMLIST EXP*/ 00162000 * 0237 00163000 * /************************************************************/ 00164000 * /* */ 00165000 * /* BASE INCOMING ARGUMENTS FOR CODE OPTIMIZATION */ 00166000 * /* */ 00167000 * /************************************************************/ 00168000 * 0237 00169000 * RESPECIFY (REG1PTR) RSTD; 0237 00170000 * GDTPT = ADDR1; 0238 00171000 L GDTPT,ADDR1(,REG1PTR) 0238 00172000 * PARMPTR2 = ADDR2; 0239 00173000 L PARMPTR2,ADDR2+4(,REG1PTR) 0239 00174000 * PARMPTR3 = ADDR3; 0240 00175000 L PARMPTR3,ADDR3+8(,REG1PTR) 0240 00176000 * PARMPTR4 = ADDR4; 0241 00177000 L PARMPTR4,ADDR4+12(,REG1PTR) 0241 00178000 * RESPECIFY (REG1PTR) UNRSTD; 0242 00179000 * 0242 00180000 * OLDERID2 = NEWERID2; 0243 00181000 L @06,GDTTR2(,GDTPT) 0243 00182000 MVC @TS00001(95),NEWERID2(@06) 0243 00183000 MVC OLDERID2(95,@06),@TS00001 0243 00184000 * NEWID2 = 'SASC'; 0244 00185000 * 0244 00186000 MVC NEWID2(4,@06),@CC00565 0244 00187000 * 0245 00188000 * 0245 00189000 * /************************************************************/ 00190000 * /* */ 00191000 * /* ULISTLN MACRO INCLUDED CODE */ 00192000 * /* */ 00193000 * /* LISTLN - TO CONTAIN THE NUMBER OF ARGUMENTS PASSED */ 00194000 * /* TO THIS ROUTINE */ 00195000 * /* */ 00196000 * /* LISTPTR - TO CONTAIN THE ADDRESS OF THE CORRESPONDING*/ 00197000 * /* ADDRESS LIST */ 00198000 * /* */ 00199000 * /************************************************************/ 00200000 * 0245 00201000 * GEN; 0245 00202000 ST 1,LISTPTR 00203000 ST 1,LISTSCAN 00204000 * DO LISTLN = 1 TO 255 WHILE(LISTTEST = '0'B); 0246 00205000 LA LISTLN,1 0246 00206000 @DL00246 L @06,LISTSCAN 0246 00207000 TM LISTTEST(@06),B'10000000' 0246 00208000 BNZ @DC00246 0246 00209000 * LISTSCAN = LISTSCAN + 4; 0247 00210000 AL @06,@CF00041 0247 00211000 ST @06,LISTSCAN 0247 00212000 * END; 0248 00213000 * 0248 00214000 * 0248 00215000 AL LISTLN,@CF00037 0248 00216000 C LISTLN,@CF00566 0248 00217000 BNH @DL00246 0248 00218000 @DC00246 DS 0H 0249 00219000 * /************************************************************/ 00220000 * /* */ 00221000 * /* CHECK FOR INVALID INCOMING ARGUMENTS. IF THE NUMBER */ 00222000 * /* OF ARGUMENTS PASSED IS NOT EQUAL TO THREE OR FOUR, OR */ 00223000 * /* IF THE FOURTH ARGUMENT IS NOT EQUAL TO 'OVERRIDE', THEN */ 00224000 * /* CALL THE UABORT ROUTINE. */ 00225000 * /* */ 00226000 * /************************************************************/ 00227000 * 0249 00228000 * IF LISTLN < 3 | LISTLN > 4 | 0249 00229000 * (LISTLN = 4 & SCOVRD ^= OVERRIDE) 0249 00230000 * THEN 0249 00231000 * 0249 00232000 C LISTLN,@CF00132 0249 00233000 BL @RT00249 0249 00234000 LA @06,4 0249 00235000 CR LISTLN,@06 0249 00236000 BH @RT00249 0249 00237000 CR LISTLN,@06 0249 00238000 BNE @RF00249 0249 00239000 CLC SCOVRD(4,PARMPTR4),@CC00147 0249 00240000 BE @RF00249 0249 00241000 @RT00249 DS 0H 0250 00242000 * DO; 0250 00243000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0251 00244000 * REG15 = ARGERR; 0252 00245000 LA REG15,40 0252 00246000 * REG14 = GDTABT; 0253 00247000 L REG14,GDTABT(,GDTPT) 0253 00248000 * REG13 = GDTABH; 0254 00249000 L REG13,GDTABH(,GDTPT) 0254 00250000 * GEN(BR REG14); 0255 00251000 BR REG14 00252000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0256 00253000 * END; 0257 00254000 * 0257 00255000 * 0258 00256000 * /************************************************************/ 00257000 * /* */ 00258000 * /* IF THE USER VOLUME LIST CONTAINS MORE THAN ONE VOLUME, */ 00259000 * /* OBTAIN STORAGE FOR THE SCRATCH VOLUME LIST TO BE USED */ 00260000 * /* WHEN ISSUING THE SCRATCH MACRO. */ 00261000 * /* */ 00262000 * /************************************************************/ 00263000 * 0258 00264000 * RESPECIFY UVOLLIST BASED (SCLISTP); 0258 00265000 @RF00249 DS 0H 0259 00266000 * IF UVOLCNT > 1 0259 00267000 * THEN 0259 00268000 L @06,SCLISTP(,PARMPTR3) 0259 00269000 LH @06,UVOLCNT(,@06) 0259 00270000 C @06,@CF00037 0259 00271000 BNH @RF00259 0259 00272000 * DO; 0260 00273000 ST @06,@TF00001 0260 00274000 * VLISTLEN = LENGTH(MYVOLCNT) + 0261 00275000 * UVOLCNT * LENGTH(MYVOLENT); 0261 00276000 * 0261 00277000 L @02,@TF00001 0261 00278000 MH @02,@CH00032 0261 00279000 AL @02,@CF00112 0261 00280000 ST @02,VLISTLEN 0261 00281000 * CALL ICKSAGS0 (GDTTBL, 0262 00282000 * VLISTLEN, 0262 00283000 * VLISTPTR, 0262 00284000 * SETZERO); 0262 00285000 * 0262 00286000 ST GDTPT,@AL00001 0262 00287000 LA @02,VLISTLEN 0262 00288000 ST @02,@AL00001+4 0262 00289000 LA @02,VLISTPTR 0262 00290000 ST @02,@AL00001+8 0262 00291000 LA @02,@CC00141 0262 00292000 ST @02,@AL00001+12 0262 00293000 MVI @AL00001+12,X'80' 0262 00294000 L @15,GDTGSP(,GDTPT) 0262 00295000 LA @01,@AL00001 0262 00296000 BALR @14,@15 0262 00297000 * RESPECIFY RTNREG RSTD; 0263 00298000 * TESTRC = RTNREG; 0264 00299000 LR TESTRC,RTNREG 0264 00300000 * RESPECIFY RTNREG UNRSTD; 0265 00301000 * 0265 00302000 * IF TESTRC ^= 0 0266 00303000 * THEN 0266 00304000 * 0266 00305000 LTR TESTRC,TESTRC 0266 00306000 BZ @RF00266 0266 00307000 * /**************************************************/ 00308000 * /* */ 00309000 * /* THE REQUEST FOR MAIN STORAGE FAILED. OUTPUT */ 00310000 * /* THE APPROPRIATE ERROR MESSAGE AND SET THE */ 00311000 * /* RETURN CODE TO 8, AND RETURN TO THE USCRATCH */ 00312000 * /* CALLER. */ 00313000 * /* */ 00314000 * /**************************************************/ 00315000 * 0267 00316000 * DO; 0267 00317000 * DDSTRU = ADDR(MSGAREA); 0268 00318000 LA @06,MSGAREA 0268 00319000 ST @06,DDSTRU 0268 00320000 * DARGLIST = ''B; 0269 00321000 XC DARGLIST(20,@06),DARGLIST(@06) 0269 00322000 * DARGSMOD = UV0ID; 0270 00323000 MVC DARGSMOD(3,@06),@CC00491 0270 00324000 * DARGSENT = UVMSG12; 0271 00325000 * 0271 00326000 MVI DARGSENT(@06),X'0C' 0271 00327000 * CALL ICKTPPR0 (GDTTBL,PRTFILE,DDSTRU); 0272 00328000 * 0272 00329000 ST GDTPT,@AL00001 0272 00330000 LA @06,@CF00091 0272 00331000 ST @06,@AL00001+4 0272 00332000 LA @06,DDSTRU 0272 00333000 ST @06,@AL00001+8 0272 00334000 MVI @AL00001+8,X'80' 0272 00335000 L @15,GDTPRT(,GDTPT) 0272 00336000 LA @01,@AL00001 0272 00337000 BALR @14,@15 0272 00338000 * SETRC = 8; 0273 00339000 MVC SETRC(2),@CH00157 0273 00340000 * CALL ICKSAEP0(GDTTBL,MODID,SETRC); 0274 00341000 ST GDTPT,@AL00001 0274 00342000 LA @06,MODID 0274 00343000 ST @06,@AL00001+4 0274 00344000 LA @06,SETRC 0274 00345000 ST @06,@AL00001+8 0274 00346000 MVI @AL00001+8,X'80' 0274 00347000 L @15,GDTEPL(,GDTPT) 0274 00348000 LA @01,@AL00001 0274 00349000 BALR @14,@15 0274 00350000 * END; 0275 00351000 * END; 0276 00352000 * ELSE 0277 00353000 * VLISTPTR = ADDR(ONEVOLST); 0277 00354000 * 0277 00355000 B @RC00259 0277 00356000 @RF00259 LA @06,ONEVOLST 0277 00357000 ST @06,VLISTPTR 0277 00358000 * /************************************************************/ 00359000 * /* */ 00360000 * /* PROCEED TO BUILD THE SCRATCH VOLUME LIST AND THE SCRATCH */ 00361000 * /* PARAMETER LIST. */ 00362000 * /* */ 00363000 * /************************************************************/ 00364000 * 0278 00365000 * MYVOLCNT = UVOLCNT; 0278 00366000 * 0278 00367000 @RC00259 L @06,SCLISTP(,PARMPTR3) 0278 00368000 LH @06,UVOLCNT(,@06) 0278 00369000 L @02,VLISTPTR 0278 00370000 STH @06,MYVOLCNT(,@02) 0278 00371000 * DO VOLIDX = 1 TO MYVOLCNT; 0279 00372000 LA VOLIDX,1 0279 00373000 B @DE00279 0279 00374000 @DL00279 DS 0H 0280 00375000 * DEVVOL(VOLIDX) = UVOLENT(VOLIDX); 0280 00376000 LR @06,VOLIDX 0280 00377000 MH @06,@CH00032 0280 00378000 L @01,VLISTPTR 0280 00379000 ALR @01,@06 0280 00380000 AL @01,@CF01341 0280 00381000 LR @06,VOLIDX 0280 00382000 MH @06,@CH00241 0280 00383000 L @15,SCLISTP(,PARMPTR3) 0280 00384000 ALR @15,@06 0280 00385000 AL @15,@CF01342 0280 00386000 MVC DEVVOL-2(10,@01),UVOLENT-2(@15) 0280 00387000 * END; 0281 00388000 * 0281 00389000 AL VOLIDX,@CF00037 0281 00390000 @DE00279 L @06,VLISTPTR 0281 00391000 CH VOLIDX,MYVOLCNT(,@06) 0281 00392000 BNH @DL00279 0281 00393000 * IF LISTLN = 4 0282 00394000 * THEN 0282 00395000 * 0282 00396000 C LISTLN,@CF00041 0282 00397000 BNE @RF00282 0282 00398000 * /********************************************************/ 00399000 * /* */ 00400000 * /* IF 'OVERRIDE' WAS SPECIFIED, MOVE THE OVERRIDE FORM */ 00401000 * /* OF THE CAMLIST EXPANSION TO AUTOMATIC STORAGE. */ 00402000 * /* */ 00403000 * /********************************************************/ 00404000 * 0283 00405000 * SCRLIST = CAMLIST1; 0283 00406000 MVC SCRLIST(16),CAMLIST1 0283 00407000 * ELSE 0284 00408000 * 0284 00409000 * /********************************************************/ 00410000 * /* */ 00411000 * /* IF 'OVERRIDE' WAS NOT SPECIFIED, MOVE THE NON- */ 00412000 * /* OVERRIDE FORM OF THE CAMLIST EXPANSION TO AUTOMATIC */ 00413000 * /* STORAGE. */ 00414000 * /* */ 00415000 * /********************************************************/ 00416000 * 0284 00417000 * SCRLIST = CAMLIST2; 0284 00418000 * 0284 00419000 B @RC00282 0284 00420000 @RF00282 MVC SCRLIST(16),CAMLIST2 0284 00421000 * /************************************************************/ 00422000 * /* */ 00423000 * /* ADD TO THE SCRATCH PARAMETER LIST THE ADDRESS OF THE */ 00424000 * /* DATA SET NAME AND THE VOLUME LIST, AND ISSUE THE SCRATCH */ 00425000 * /* MACRO. */ 00426000 * /* */ 00427000 * /************************************************************/ 00428000 * 0285 00429000 * SCRDSN = ADDR(SCDSNAM); 0285 00430000 @RC00282 ST PARMPTR2,SCRDSN 0285 00431000 * SCRVLIST = VLISTPTR; 0286 00432000 L @06,VLISTPTR 0286 00433000 ST @06,SCRVLIST 0286 00434000 * RESPECIFY (REG4,REG0) RSTD; 0287 00435000 * REG4 = ADDR(SCRLIST); 0288 00436000 LA REG4,SCRLIST 0288 00437000 * REG0 = NULLPTR; 0289 00438000 SLR REG0,REG0 0289 00439000 *LSCRT1: GEN (SCRATCH (REG4)); 0290 00440000 LSCRT1 SCRATCH (REG4) 00441000 * RESPECIFY (REG4,REG0) UNRSTD; 0291 00442000 * 0291 00443000 * RESPECIFY RTNREG RSTD; 0292 00444000 * TESTRC = RTNREG; 0293 00445000 LR TESTRC,RTNREG 0293 00446000 * RESPECIFY RTNREG UNRSTD; 0294 00447000 * 0294 00448000 * IF TESTRC ^= 0 0295 00449000 * THEN 0295 00450000 * 0295 00451000 LTR TESTRC,TESTRC 0295 00452000 BZ @RF00295 0295 00453000 * /********************************************************/ 00454000 * /* */ 00455000 * /* THE REQUEST TO SCRATCH THE DATA SET WAS UNSUCCESSFUL,*/ 00456000 * /* HOWEVER, IF IT WAS DUE TO THE DATA SET NOT BEING ON */ 00457000 * /* THE VOLUME, A RETURN CODE OF ZERO WILL BE PASSED TO */ 00458000 * /* THE CALLER. */ 00459000 * /* */ 00460000 * /********************************************************/ 00461000 * 0296 00462000 * DO; 0296 00463000 * IF TESTRC = SCRTRC8 | TESTRC = SCRTRC4 /* */ 00464000 * THEN 0297 00465000 * 0297 00466000 C TESTRC,@CF00157 0297 00467000 BE @RT00297 0297 00468000 C TESTRC,@CF00041 0297 00469000 BNE @RF00297 0297 00470000 @RT00297 DS 0H 0298 00471000 * /**************************************************/ 00472000 * /* */ 00473000 * /* SEARCH THE SCRATCH VOLUME LIST FOR A NON-ZERO */ 00474000 * /* SCRATCH STATUS CODE. */ 00475000 * /* */ 00476000 * /**************************************************/ 00477000 * DO; 0298 00478000 * STATFLG = OFF; 0299 00479000 NI STATFLG,B'01111111' 0299 00480000 * DO VOLIDX = 1 TO MYVOLCNT WHILE (STATFLG = OFF); 00481000 LA VOLIDX,1 0300 00482000 B @DE00300 0300 00483000 @DL00300 TM STATFLG,B'10000000' 0300 00484000 BNZ @DC00300 0300 00485000 * IF VOLSTAT(VOLIDX) ^= STATOK 0301 00486000 * THEN 0301 00487000 LR @03,VOLIDX 0301 00488000 MH @03,@CH00032 0301 00489000 L @01,VLISTPTR 0301 00490000 ALR @01,@03 0301 00491000 CLI VOLSTAT-12(@01),X'00' 0301 00492000 BE @RF00301 0301 00493000 * STATFLG = ON; 0302 00494000 OI STATFLG,B'10000000' 0302 00495000 * END; 0303 00496000 @RF00301 AL VOLIDX,@CF00037 0303 00497000 @DE00300 L @03,VLISTPTR 0303 00498000 CH VOLIDX,MYVOLCNT(,@03) 0303 00499000 BNH @DL00300 0303 00500000 @DC00300 DS 0H 0304 00501000 * VOLIDX = VOLIDX - 1; 0304 00502000 BCTR VOLIDX,0 0304 00503000 * END; 0305 00504000 * 0305 00505000 * IF TESTRC = SCRTRC8 & STATFLG = ON & 0306 00506000 * VOLSTAT(VOLIDX) = SCRSTAT1 /* */ 00507000 * THEN 0306 00508000 * 0306 00509000 @RF00297 C TESTRC,@CF00157 0306 00510000 BNE @RF00306 0306 00511000 TM STATFLG,B'10000000' 0306 00512000 BNO @RF00306 0306 00513000 LR @03,VOLIDX 0306 00514000 MH @03,@CH00032 0306 00515000 L @01,VLISTPTR 0306 00516000 ALR @01,@03 0306 00517000 CLI VOLSTAT-12(@01),X'01' 0306 00518000 BNE @RF00306 0306 00519000 * /**************************************************/ 00520000 * /* */ 00521000 * /* A NON-ZERO VOLUME STATUS CODE WAS FOUND. */ 00522000 * /* WHEN THE STATUS CODE INDICATES THE DATA */ 00523000 * /* SET WAS NOT ON THE VOLUME, PASS A RETURN */ 00524000 * /* CODE OF ZERO TO THE CALLER. */ 00525000 * /* */ 00526000 * /**************************************************/ 00527000 * SETRC = 0; /* */ 00528000 * 0307 00529000 SLR @09,@09 0307 00530000 STH @09,SETRC 0307 00531000 * ELSE 0308 00532000 * 0308 00533000 * /**************************************************/ 00534000 * /* */ 00535000 * /* SINCE THE DATA SET WAS ON THE VOLUME, OUTPUT */ 00536000 * /* THE UNABLE TO SCRATCH DSNAME ERROR MESSAGE */ 00537000 * /* AND SET THE RETURN CODE TO 4. */ 00538000 * /* */ 00539000 * /**************************************************/ 00540000 * 0308 00541000 *SCRFAIL: DO; 0308 00542000 B @RC00306 0308 00543000 @RF00306 DS 0H 0308 00544000 SCRFAIL DS 0H 0309 00545000 * DDSTRU = ADDR(MSGAREA); 0309 00546000 LA @03,MSGAREA 0309 00547000 ST @03,DDSTRU 0309 00548000 * DARGLIST = ''B; 0310 00549000 XC DARGLIST(20,@03),DARGLIST(@03) 0310 00550000 * DARGSMOD = SA0ID; 0311 00551000 MVC DARGSMOD(3,@03),@CC00495 0311 00552000 * DARGSENT = SDMSG01; 0312 00553000 MVI DARGSENT(@03),X'01' 0312 00554000 * DARGDBP = ADDR(SCDSNAM); 0313 00555000 ST PARMPTR2,DARGDBP(,@03) 0313 00556000 * DARGILP = LENGTH(SCDSNAM); 0314 00557000 * 0314 00558000 MVC DARGILP(2,@03),@CH00514 0314 00559000 * CALL ICKTPPR0(GDTTBL,PRTFILE,DDSTRU); 0315 00560000 * 0315 00561000 ST GDTPT,@AL00001 0315 00562000 LA @09,@CF00091 0315 00563000 ST @09,@AL00001+4 0315 00564000 LA @09,DDSTRU 0315 00565000 ST @09,@AL00001+8 0315 00566000 MVI @AL00001+8,X'80' 0315 00567000 L @15,GDTPRT(,GDTPT) 0315 00568000 LA @01,@AL00001 0315 00569000 BALR @14,@15 0315 00570000 * SETRC = 4; 0316 00571000 * 0316 00572000 MVC SETRC(2),@CH00041 0316 00573000 * /************************************************/ 00574000 * /* */ 00575000 * /* CONTINUE TO TEST THE RETURN CODE & SETUP THE */ 00576000 * /* APPROPRIATE SECOND LEVEL MESSAGE INDICATING */ 00577000 * /* THE REASON THE DATA SET WAS NOT SCRATCHED. */ 00578000 * /* */ 00579000 * /************************************************/ 00580000 * 0317 00581000 * DDSTRU = ADDR(MSGAREA); 0317 00582000 LA @09,MSGAREA 0317 00583000 ST @09,DDSTRU 0317 00584000 * DARGLIST = ''B; 0318 00585000 XC DARGLIST(20,@09),DARGLIST(@09) 0318 00586000 * DARGSMOD = SA0ID; 0319 00587000 * 0319 00588000 MVC DARGSMOD(3,@09),@CC00495 0319 00589000 * IF TESTRC = SCRTRC8 & STATFLG = ON 0320 00590000 * THEN 0320 00591000 * 0320 00592000 C TESTRC,@CF00157 0320 00593000 BNE @RF00320 0320 00594000 TM STATFLG,B'10000000' 0320 00595000 BNO @RF00320 0320 00596000 * /********************************************/ 00597000 * /* */ 00598000 * /* CONTINUE TO CHECK THE VOLUME STATUS CODE.*/ 00599000 * /* */ 00600000 * /********************************************/ 00601000 * 0321 00602000 * DO; 0321 00603000 * IF VOLSTAT(VOLIDX) = SCRSTAT7 /* */ 00604000 * THEN 0322 00605000 * 0322 00606000 LR @03,VOLIDX 0322 00607000 MH @03,@CH00032 0322 00608000 L @01,VLISTPTR 0322 00609000 ALR @01,@03 0322 00610000 CLI VOLSTAT-12(@01),X'07' 0322 00611000 BNE @RF00322 0322 00612000 * /**************************************/ 00613000 * /* */ 00614000 * /* SETUP THE MESSAGE INDICATING THE */ 00615000 * /* DATA SET WAS IN USE. */ 00616000 * /* */ 00617000 * /**************************************/ 00618000 * 0323 00619000 * DARGSENT = SDMSG08; /* */ 00620000 MVI DARGSENT(@09),X'08' 0323 00621000 * ELSE 0324 00622000 * IF VOLSTAT(VOLIDX) = SCRSTAT2 0324 00623000 * THEN 0324 00624000 * 0324 00625000 B @RC00322 0324 00626000 @RF00322 LR @09,VOLIDX 0324 00627000 MH @09,@CH00032 0324 00628000 L @03,VLISTPTR 0324 00629000 ALR @03,@09 0324 00630000 CLI VOLSTAT-12(@03),X'02' 0324 00631000 BNE @RF00324 0324 00632000 * /**********************************/ 00633000 * /* */ 00634000 * /* SETUP THE MESSAGE INDICATING */ 00635000 * /* PASSWORD VERIFICATION FAILED. */ 00636000 * /* */ 00637000 * /**********************************/ 00638000 * 0325 00639000 * DARGSENT = SDMSG04; /* */ 00640000 L @09,DDSTRU 0325 00641000 MVI DARGSENT(@09),X'04' 0325 00642000 * ELSE 0326 00643000 * IF VOLSTAT(VOLIDX) = SCRSTAT3 0326 00644000 * THEN 0326 00645000 * 0326 00646000 B @RC00324 0326 00647000 @RF00324 L @09,VLISTPTR 0326 00648000 LR @03,VOLIDX 0326 00649000 MH @03,@CH00032 0326 00650000 ST @03,@TF00001 0326 00651000 ALR @03,@09 0326 00652000 CLI VOLSTAT-12(@03),X'03' 0326 00653000 BNE @RF00326 0326 00654000 * /******************************/ 00655000 * /* */ 00656000 * /* SETUP A MESSAGE INDICATING */ 00657000 * /* THE DATA SET EXPIRATION */ 00658000 * /* DATE HAS NOT OCCURED. */ 00659000 * /* */ 00660000 * /******************************/ 00661000 * 0327 00662000 * DO; 0327 00663000 * DARGSENT = 0328 00664000 * SDMSG05; /* */ 00665000 L @03,DDSTRU 0328 00666000 MVI DARGSENT(@03),X'05' 0328 00667000 * DARGDBP = 0329 00668000 * ADDR(VOLUME(VOLIDX)); 00669000 L @01,@TF00001 0329 00670000 AL @09,@CF01345 0329 00671000 LA @09,VOLUME-6(@01,@09) 0329 00672000 ST @09,DARGDBP(,@03) 0329 00673000 * DARGILP = 0330 00674000 * LENGTH(VOLUME(VOLIDX)); 00675000 MVC DARGILP(2,@03),@CH00115 0330 00676000 * END; 0331 00677000 * ELSE 0332 00678000 * IF VOLSTAT(VOLIDX) = SCRSTAT4 00679000 * THEN 0332 00680000 * 0332 00681000 B @RC00326 0332 00682000 @RF00326 L @09,VLISTPTR 0332 00683000 LR @03,VOLIDX 0332 00684000 MH @03,@CH00032 0332 00685000 ST @03,@TF00001 0332 00686000 ALR @03,@09 0332 00687000 CLI VOLSTAT-12(@03),X'04' 0332 00688000 BNE @RF00332 0332 00689000 * /**************************/ 00690000 * /* */ 00691000 * /* SETUP THE MESSAGE INDI-*/ 00692000 * /* CATING A PERMANENT I/O */ 00693000 * /* ERROR WAS ENCOUNTERED. */ 00694000 * /* */ 00695000 * /**************************/ 00696000 * 0333 00697000 * DO; 0333 00698000 * DARGSENT = 0334 00699000 * SDMSG06; 0334 00700000 L @03,DDSTRU 0334 00701000 MVI DARGSENT(@03),X'06' 0334 00702000 * DARGDBP = 0335 00703000 * ADDR(VOLUME(VOLIDX)); 00704000 L @01,@TF00001 0335 00705000 AL @09,@CF01345 0335 00706000 LA @09,VOLUME-6(@01,@09) 0335 00707000 ST @09,DARGDBP(,@03) 0335 00708000 * DARGILP = 0336 00709000 * LENGTH(VOLUME(VOLIDX)); 00710000 MVC DARGILP(2,@03),@CH00115 0336 00711000 * END; 0337 00712000 * ELSE 0338 00713000 * 0338 00714000 * /**********************************************************/ 00715000 * /* */ 00716000 * /* OTHERWISE, IF THE STATUS RETURN IS AN 8, */ 00717000 * /* */ 00718000 * /**********************************************************/ 00719000 * IF VOLSTAT(VOLIDX) = SCRSTAT8 0338 00720000 * THEN 0338 00721000 * 0338 00722000 B @RC00332 0338 00723000 @RF00332 LR @09,VOLIDX 0338 00724000 MH @09,@CH00032 0338 00725000 L @03,VLISTPTR 0338 00726000 ALR @03,@09 0338 00727000 CLI VOLSTAT-12(@03),X'08' 0338 00728000 BNE @RF00338 0338 00729000 * /******************************************************/ 00730000 * /* */ 00731000 * /* SETUP THE MESSAGE INDICATING INVALID */ 00732000 * /* RACF AUTHORIZATION. */ 00733000 * /* */ 00734000 * /******************************************************/ 00735000 * DARGSENT = SDMSG12; 0339 00736000 * 0339 00737000 L @09,DDSTRU 0339 00738000 MVI DARGSENT(@09),X'0C' 0339 00739000 * ELSE 0340 00740000 * 0340 00741000 * /******************************************************/ 00742000 * /* */ 00743000 * /* OTHERWISE, SETUP THE MESSAGE INDICATING */ 00744000 * /* THE VOLUME WAS UNABLE TO BE MOUNTED. */ 00745000 * /* */ 00746000 * /******************************************************/ 00747000 * 0340 00748000 * DO; 0340 00749000 B @RC00338 0340 00750000 @RF00338 DS 0H 0341 00751000 * DARGSENT = SDMSG07; 0341 00752000 L @09,DDSTRU 0341 00753000 MVI DARGSENT(@09),X'07' 0341 00754000 * DARGDBP = ADDR(VOLUME(VOLIDX)); 0342 00755000 LR @03,VOLIDX 0342 00756000 MH @03,@CH00032 0342 00757000 L @01,VLISTPTR 0342 00758000 AL @01,@CF01345 0342 00759000 LA @03,VOLUME-6(@03,@01) 0342 00760000 ST @03,DARGDBP(,@09) 0342 00761000 * DARGILP = LENGTH(VOLUME(VOLIDX)); 0343 00762000 MVC DARGILP(2,@09),@CH00115 0343 00763000 * END; 0344 00764000 * 0344 00765000 * /******************************************/ 00766000 * /* */ 00767000 * /* OUTPUT SECOND LEVEL ERROR MESSAGE FOR */ 00768000 * /* THE SCRATCH RETURN CODE OF 8. */ 00769000 * /* */ 00770000 * /******************************************/ 00771000 * 0345 00772000 * CALL ICKTPPR0 (GDTTBL,PRTFILE,DDSTRU); 0345 00773000 @RC00338 DS 0H 0345 00774000 @RC00332 DS 0H 0345 00775000 @RC00326 DS 0H 0345 00776000 @RC00324 DS 0H 0345 00777000 @RC00322 ST GDTPT,@AL00001 0345 00778000 LA @09,@CF00091 0345 00779000 ST @09,@AL00001+4 0345 00780000 LA @09,DDSTRU 0345 00781000 ST @09,@AL00001+8 0345 00782000 MVI @AL00001+8,X'80' 0345 00783000 L @15,GDTPRT(,GDTPT) 0345 00784000 LA @01,@AL00001 0345 00785000 BALR @14,@15 0345 00786000 * END; 0346 00787000 * IF TESTRC = SCRTRC4 0347 00788000 * THEN 0347 00789000 * 0347 00790000 @RF00320 C TESTRC,@CF00041 0347 00791000 BNE @RF00347 0347 00792000 * /********************************************/ 00793000 * /* */ 00794000 * /* OUTPUT THE MESSAGE INDICATING NO VOLUMES */ 00795000 * /* CONTAINING ANY PART OF THE DATA SET WERE */ 00796000 * /* MOUNTED. */ 00797000 * /* */ 00798000 * /********************************************/ 00799000 * 0348 00800000 * DO; 0348 00801000 * DARGSENT = SDMSG02; 0349 00802000 * 0349 00803000 L @09,DDSTRU 0349 00804000 MVI DARGSENT(@09),X'02' 0349 00805000 * CALL ICKTPPR0(GDTTBL,PRTFILE,DDSTRU); 0350 00806000 ST GDTPT,@AL00001 0350 00807000 LA @09,@CF00091 0350 00808000 ST @09,@AL00001+4 0350 00809000 LA @09,DDSTRU 0350 00810000 ST @09,@AL00001+8 0350 00811000 MVI @AL00001+8,X'80' 0350 00812000 L @15,GDTPRT(,GDTPT) 0350 00813000 LA @01,@AL00001 0350 00814000 BALR @14,@15 0350 00815000 * END; 0351 00816000 * END SCRFAIL; 0352 00817000 @RF00347 DS 0H 0353 00818000 * IF TESTRC ^= SCRTRC4 & TESTRC ^= SCRTRC8 0353 00819000 * THEN 0353 00820000 * 0353 00821000 @RC00306 C TESTRC,@CF00041 0353 00822000 BE @RF00353 0353 00823000 C TESTRC,@CF00157 0353 00824000 BE @RF00353 0353 00825000 * /**************************************************/ 00826000 * /* */ 00827000 * /* AN INVALID VOLUME LIST WAS ENCOUNTERED BY THE */ 00828000 * /* SCRATCH MACRO, CALL THE UABORT ROUTINE. */ 00829000 * /* */ 00830000 * /**************************************************/ 00831000 * 0354 00832000 * 0354 00833000 * DO; 0354 00834000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0355 00835000 * REG15 = ARGERR; 0356 00836000 LA REG15,40 0356 00837000 * REG14 = GDTABT; 0357 00838000 L REG14,GDTABT(,GDTPT) 0357 00839000 * REG13 = GDTABH; 0358 00840000 L REG13,GDTABH(,GDTPT) 0358 00841000 * GEN(BR REG14); 0359 00842000 BR REG14 00843000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0360 00844000 * END; 0361 00845000 * END; 0362 00846000 * 0362 00847000 * ELSE 0363 00848000 * SETRC = 0; 0363 00849000 * 0363 00850000 B @RC00295 0363 00851000 @RF00295 SLR @09,@09 0363 00852000 STH @09,SETRC 0363 00853000 * /************************************************************/ 00854000 * /* */ 00855000 * /* FREE ANY STORAGE OBTAINED FOR THE SCRATCH VOLUME LIST. */ 00856000 * /* */ 00857000 * /************************************************************/ 00858000 * 0364 00859000 * IF UVOLCNT > 1 0364 00860000 * THEN 0364 00861000 * 0364 00862000 @RC00295 L @09,SCLISTP(,PARMPTR3) 0364 00863000 LH @09,UVOLCNT(,@09) 0364 00864000 C @09,@CF00037 0364 00865000 BNH @RF00364 0364 00866000 * CALL ICKSAFS0 (GDTTBL, 0365 00867000 * VLISTPTR); 0365 00868000 * 0365 00869000 * 0365 00870000 ST GDTPT,@AL00001 0365 00871000 LA @09,VLISTPTR 0365 00872000 ST @09,@AL00001+4 0365 00873000 L @15,GDTFSP(,GDTPT) 0365 00874000 LA @01,@AL00001 0365 00875000 BALR @14,@15 0365 00876000 * /************************************************************/ 00877000 * /* */ 00878000 * /* RETURN TO THE USCRATCH CALLER. */ 00879000 * /* */ 00880000 * /************************************************************/ 00881000 * 0366 00882000 * CALL ICKSAEP0(GDTTBL,MODID,SETRC); 0366 00883000 @RF00364 ST GDTPT,@AL00001 0366 00884000 LA @09,MODID 0366 00885000 ST @09,@AL00001+4 0366 00886000 LA @09,SETRC 0366 00887000 ST @09,@AL00001+8 0366 00888000 MVI @AL00001+8,X'80' 0366 00889000 L @15,GDTEPL(,GDTPT) 0366 00890000 LA @01,@AL00001 0366 00891000 BALR @14,@15 0366 00892000 EJECT 00893000 * /************************************************************/ 00894000 * /************************************************************/ 00895000 * /* */ 00896000 * /* UWTO ENTRY POINT */ 00897000 * /* */ 00898000 * /************************************************************/ 00899000 * /************************************************************/ 00900000 * 0367 00901000 * 0367 00902000 *ICKSAWO: ENTRY (GDTTBLX,WOMSGLNX,WOMSGPTX 0367 00903000 * ,WORTECDX,WODESCDX 0367 00904000 * ,WORPYLNX,WORPYPTX); 0367 00905000 * 0367 00906000 B @EC00367 0367 00907000 @EP00367 MVC @PC00001(4),0(@01) 0367 00908000 MVC @PC00001+16(24),4(@01) 0367 00909000 @EC00367 DS 0H 0368 00910000 * /************************************************************/ 00911000 * /* */ 00912000 * /* UWTO DECLARES FOR INCOMING ARGUMENTS. */ 00913000 * /* */ 00914000 * /************************************************************/ 00915000 * 0368 00916000 * DCL WOMSGLN FIXED(15) BASED; /* MESSAGE LENGTH */ 00917000 * 0368 00918000 * DCL WOMSGPT PTR(31) BASED; /* POINTER TO MESSAGE TEXT */ 00919000 * 0369 00920000 * DCL WORTECD BIT(16) BASED; /* ROUTING CODE */ 00921000 * 0370 00922000 * DCL WODESCD BIT(16) BASED; /* DESCRIPTOR CODE */ 00923000 * 0371 00924000 * DCL WORPYLN FIXED(8) BASED; /* REPLY LENGTH */ 00925000 * 0372 00926000 * DCL WORPYPT PTR(31) BASED; /* POINTER TO REPLY */ 00927000 * 0373 00928000 * 0373 00929000 * RESPECIFY WOMSGLN BASED (PARMPTR2); 0374 00930000 * /* BASE WOMSGLN */ 00931000 * RESPECIFY WOMSGPT BASED (PARMPTR3); 0375 00932000 * /* BASE WOMSGPT */ 00933000 * RESPECIFY WORTECD BASED (PARMPTR4); 0376 00934000 * /* BASE WORTECD */ 00935000 * RESPECIFY WODESCD BASED (PARMPTR5); 0377 00936000 * /* BASE WODESCD */ 00937000 * RESPECIFY WORPYLN BASED (PARMPTR6); 0378 00938000 * /* BASE WORPYLN */ 00939000 * RESPECIFY WORPYPT BASED (PARMPTR7); 0379 00940000 * /* BASE WORPYPT */ 00941000 * 0380 00942000 * DCL TEXTMSG CHAR(72) BASED (WOMSGPT); 0380 00943000 * /* MESSAGE TEXT */ 00944000 * DCL TEXTLEN FIXED(15); /* MESSAGE LENGTH */ 00945000 * 0381 00946000 * DCL ECBAREA BIT(32) BDY(WORD); /* ECB FOR WTOR */ 00947000 * 0382 00948000 * DECLARE /* WTO PARAMETER LIST */ 00949000 * 1 WTOPARMS BDY(WORD), 0383 00950000 * 2 WTORMSG, 0383 00951000 * 3 WTORPYLN FIXED(8), /* LENGTH OF OPERATOR REPLY */ 00952000 * 3 WTORPYPT PTR(24), /* ADDRESS OF REPLY AREA */ 00953000 * 3 WTORECBA PTR(31), /* ADDRESS OF ECB FOR REPLY */ 00954000 * 2 WTOMSG, 0383 00955000 * 3 WTOHDR, 0383 00956000 * 4 WTOPLEN FIXED(15), /* LENGTH OF AREA */ 00957000 * 4 WTOMCS BIT(16), /* FLAGS FOR MCS */ 00958000 * 3 WTOTEXT CHAR(76); /* MESSAGE TEXT */ 00959000 * 0383 00960000 * DCL MCSFLG BIT(16) CONSTANT('8000'X); 0384 00961000 * /* MULT CONSOLE SUPPORT FLAG */ 00962000 * 0385 00963000 * /************************************************************/ 00964000 * /* */ 00965000 * /* BASE INCOMING ARGUMENTS FOR CODE OPTIMIZATION */ 00966000 * /* */ 00967000 * /************************************************************/ 00968000 * 0385 00969000 * RESPECIFY (REG1PTR) RSTD; 0385 00970000 * GDTPT = ADDR1; 0386 00971000 L GDTPT,ADDR1(,REG1PTR) 0386 00972000 * PARMPTR2 = ADDR2; 0387 00973000 L PARMPTR2,ADDR2+4(,REG1PTR) 0387 00974000 * PARMPTR3 = ADDR3; 0388 00975000 L PARMPTR3,ADDR3+8(,REG1PTR) 0388 00976000 * PARMPTR4 = ADDR4; 0389 00977000 L PARMPTR4,ADDR4+12(,REG1PTR) 0389 00978000 * PARMPTR5 = ADDR5; 0390 00979000 L PARMPTR5,ADDR5+16(,REG1PTR) 0390 00980000 * PARMPTR6 = ADDR6; 0391 00981000 L @05,ADDR6+20(,REG1PTR) 0391 00982000 ST @05,PARMPTR6 0391 00983000 * PARMPTR7 = ADDR7; 0392 00984000 L @05,ADDR7+24(,REG1PTR) 0392 00985000 ST @05,PARMPTR7 0392 00986000 * RESPECIFY (REG1PTR) UNRSTD; 0393 00987000 * 0393 00988000 * OLDERID2 = NEWERID2; 0394 00989000 L @05,GDTTR2(,GDTPT) 0394 00990000 MVC @TS00001(95),NEWERID2(@05) 0394 00991000 MVC OLDERID2(95,@05),@TS00001 0394 00992000 * NEWID2 = 'SAWO'; 0395 00993000 * 0395 00994000 * 0395 00995000 MVC NEWID2(4,@05),@CC00620 0395 00996000 * 0396 00997000 * /************************************************************/ 00998000 * /* */ 00999000 * /* ULISTLN MACRO INCLUDED CODE */ 01000000 * /* */ 01001000 * /* LISTLN - TO CONTAIN THE NUMBER OF ARGUMENTS PASSED */ 01002000 * /* TO THIS ROUTINE */ 01003000 * /* */ 01004000 * /* LISTPTR - TO CONTAIN THE ADDRESS OF THE CORRESPONDING*/ 01005000 * /* ADDRESS LIST */ 01006000 * /* */ 01007000 * /************************************************************/ 01008000 * 0396 01009000 * GEN; 0396 01010000 ST 1,LISTPTR 01011000 ST 1,LISTSCAN 01012000 * DO LISTLN = 1 TO 255 WHILE(LISTTEST = '0'B); 0397 01013000 LA LISTLN,1 0397 01014000 @DL00397 L @05,LISTSCAN 0397 01015000 TM LISTTEST(@05),B'10000000' 0397 01016000 BNZ @DC00397 0397 01017000 * LISTSCAN = LISTSCAN + 4; 0398 01018000 AL @05,@CF00041 0398 01019000 ST @05,LISTSCAN 0398 01020000 * END; 0399 01021000 * 0399 01022000 * 0399 01023000 AL LISTLN,@CF00037 0399 01024000 C LISTLN,@CF00566 0399 01025000 BNH @DL00397 0399 01026000 @DC00397 DS 0H 0400 01027000 * /************************************************************/ 01028000 * /* */ 01029000 * /* CHECK FOR INVALID INCOMING ARGUMENTS. IF THE NUMBER */ 01030000 * /* OF ARGUMENTS IS NOT EQUAL TO THREE OR FIVE, THEN CALL */ 01031000 * /* THE UABORT ROUTINE. */ 01032000 * /* */ 01033000 * /************************************************************/ 01034000 * 0400 01035000 * IF LISTLN ^= 3 & LISTLN ^= 5 & LISTLN ^= 7 0400 01036000 * THEN 0400 01037000 * 0400 01038000 C LISTLN,@CF00132 0400 01039000 BE @RF00400 0400 01040000 C LISTLN,@CF00250 0400 01041000 BE @RF00400 0400 01042000 C LISTLN,@CF00180 0400 01043000 BE @RF00400 0400 01044000 * DO; 0401 01045000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0402 01046000 * REG15 = ARGERR; 0403 01047000 LA REG15,40 0403 01048000 * REG14 = GDTABT; 0404 01049000 L REG14,GDTABT(,GDTPT) 0404 01050000 * REG13 = GDTABH; 0405 01051000 L REG13,GDTABH(,GDTPT) 0405 01052000 * GEN(BR REG14); 0406 01053000 BR REG14 01054000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0407 01055000 * END; 0408 01056000 * 0408 01057000 * /************************************************************/ 01058000 * /* */ 01059000 * /* PROCEED TO BUILD THE WTO PARAMETER LIST FROM THE USER */ 01060000 * /* SUPPLIED DATA. */ 01061000 * /* */ 01062000 * /************************************************************/ 01063000 * 0409 01064000 * WTOPARMS = ''B; 0409 01065000 @RF00400 XC WTOPARMS(88),WTOPARMS 0409 01066000 * TEXTLEN = MIN(MAX(1,WOMSGLN),72); 0410 01067000 LH TEXTLEN,WOMSGLN(,PARMPTR2) 0410 01068000 LA @05,1 0410 01069000 CR TEXTLEN,@05 0410 01070000 BNL *+6 01071000 LR TEXTLEN,@05 0410 01072000 LA @05,72 0410 01073000 CR TEXTLEN,@05 0410 01074000 BNH *+6 01075000 LR TEXTLEN,@05 0410 01076000 * WTOTEXT(1:TEXTLEN) = TEXTMSG(1:TEXTLEN); 0411 01077000 LR @09,TEXTLEN 0411 01078000 BCTR @09,0 0411 01079000 L @05,WOMSGPT(,PARMPTR3) 0411 01080000 EX @09,@SM01346 0411 01081000 * WTOPLEN = TEXTLEN + LENGTH(WTOHDR); 0412 01082000 * 0412 01083000 LA @09,4 0412 01084000 LR @07,TEXTLEN 0412 01085000 ALR @07,@09 0412 01086000 STH @07,WTOPLEN 0412 01087000 * IF LISTLN > 4 0413 01088000 * THEN 0413 01089000 * 0413 01090000 CR LISTLN,@09 0413 01091000 BNH @RF00413 0413 01092000 * /********************************************************/ 01093000 * /* */ 01094000 * /* MOVE THE DESCRIPTOR AND ROUTING CODES AND MCS FLAG */ 01095000 * /* TO THE WTO PARAMETER LIST. */ 01096000 * /* */ 01097000 * /********************************************************/ 01098000 * 0414 01099000 * DO; 0414 01100000 * WTOTEXT(TEXTLEN + 1:TEXTLEN + 2) = WODESCD; 0415 01101000 LA @09,WTOTEXT(TEXTLEN) 0415 01102000 MVC 0(2,@09),WODESCD(PARMPTR5) 0415 01103000 * WTOTEXT(TEXTLEN + 3:TEXTLEN + 4) = WORTECD; 0416 01104000 LA @09,WTOTEXT+2(TEXTLEN) 0416 01105000 MVC 0(2,@09),WORTECD(PARMPTR4) 0416 01106000 * WTOMCS = MCSFLG; 0417 01107000 MVC WTOMCS(2),@CB00619 0417 01108000 * END; 0418 01109000 * 0418 01110000 * /************************************************************/ 01111000 * /* */ 01112000 * /* ISSUE THE WTO OR WTOR AS REQUIRED. */ 01113000 * /* */ 01114000 * /************************************************************/ 01115000 * 0419 01116000 * IF LISTLN < 6 0419 01117000 * THEN 0419 01118000 @RF00413 C LISTLN,@CF00115 0419 01119000 BNL @RF00419 0419 01120000 * DO; 0420 01121000 * 0420 01122000 * RESPECIFY (REG1) RSTD; 0421 01123000 * REG1 = ADDR(WTOMSG); 0422 01124000 LA REG1,WTOMSG 0422 01125000 *LWTO: GEN (WTO MF=(E,(REG1))); 0423 01126000 LWTO WTO MF=(E,(REG1)) 01127000 * RESPECIFY (REG1) UNRSTD; 0424 01128000 * 0424 01129000 * END; 0425 01130000 * 0425 01131000 * ELSE 0426 01132000 * DO; 0426 01133000 * 0426 01134000 B @RC00419 0426 01135000 @RF00419 DS 0H 0427 01136000 * WTORPYLN = WORPYLN; /* SET REPLY LENGTH */ 01137000 L @09,PARMPTR6 0427 01138000 IC @15,WORPYLN(,@09) 0427 01139000 STC @15,WTORPYLN 0427 01140000 * WTORPYPT = WORPYPT; /* ADDRESS FOR REPLY */ 01141000 L @09,PARMPTR7 0428 01142000 MVC WTORPYPT(3),WORPYPT+1(@09) 0428 01143000 * ECBAREA = ''B; 0429 01144000 XC ECBAREA(4),ECBAREA 0429 01145000 * WTORECBA = ADDR(ECBAREA); /* ADDRESS OF EVENT C.B. */ 01146000 * 0430 01147000 LA @09,ECBAREA 0430 01148000 ST @09,WTORECBA 0430 01149000 * RESPECIFY (REG1) RSTD; 0431 01150000 * REG1 = ADDR(WTORMSG); 0432 01151000 LA REG1,WTORMSG 0432 01152000 *LWTOR: GEN (WTOR MF=(E,(REG1))); 0433 01153000 LWTOR WTOR MF=(E,(REG1)) 01154000 *LWAIT: GEN (WAIT ECB=ECBAREA); 0434 01155000 LWAIT WAIT ECB=ECBAREA 01156000 * RESPECIFY (REG1) UNRSTD; 0435 01157000 * END; 0436 01158000 * 0436 01159000 * /************************************************************/ 01160000 * /* */ 01161000 * /* RETURN TO THE UWTO CALLER. */ 01162000 * /* */ 01163000 * /************************************************************/ 01164000 * 0437 01165000 * CALL ICKSAEP0(GDTTBL,MODID); 0437 01166000 @RC00419 ST GDTPT,@AL00001 0437 01167000 LA @09,MODID 0437 01168000 ST @09,@AL00001+4 0437 01169000 MVI @AL00001+4,X'80' 0437 01170000 L @15,GDTEPL(,GDTPT) 0437 01171000 LA @01,@AL00001 0437 01172000 BALR @14,@15 0437 01173000 EJECT 01174000 * /************************************************************/ 01175000 * /************************************************************/ 01176000 * /* */ 01177000 * /* UVOLCHK ENTRY POINT */ 01178000 * /* */ 01179000 * /************************************************************/ 01180000 * /************************************************************/ 01181000 * 0438 01182000 *ICKSAVC: ENTRY (GDTTBLX,VOLSERX,ATTRX); 0438 01183000 * 0438 01184000 B @EC00438 0438 01185000 @EP00438 MVC @PC00001(4),0(@01) 0438 01186000 MVC @PC00001+40(8),4(@01) 0438 01187000 @EC00438 DS 0H 0439 01188000 * /************************************************************/ 01189000 * /* UVOLCHK DECLARES FOR INCOMING ARGUMENTS */ 01190000 * /************************************************************/ 01191000 * 0439 01192000 * DCL VOLSER CHAR(6) BASED;/* SERIAL OF VOLUME TO CHECK */ 01193000 * 0439 01194000 * RESPECIFY VOLSER BASED(PARMPTR2);/* BASE VOLSERX */ 01195000 * 0440 01196000 * DCL ATTR CHAR(7) BASED;/* RESOURCE ACCESS ATTRIBUTE */ 01197000 * 0441 01198000 * RESPECIFY ATTR BASED(PARMPTR3);/* BASE ATTRIBUTE */ 01199000 * 0442 01200000 * /************************************************************/ 01201000 * /* UVOLCHK DECLARES FOR RETURN CODES */ 01202000 * /************************************************************/ 01203000 * 0443 01204000 * DCL RACFRC FIXED(15); /* UVOLCHK RETURN CODE */ 01205000 * 0443 01206000 * DCL RACFRC0 FIXED(15) CONSTANT(0); /* RACF RC=0 */ 01207000 * 0444 01208000 * DCL RACFRC4 FIXED(15) CONSTANT(4); /* RACF RC=4 */ 01209000 * 0445 01210000 * DCL RACFRC8 FIXED(15) CONSTANT(8); /* RACF RC=8 */ 01211000 * 0446 01212000 * 0446 01213000 * /************************************************************/ 01214000 * /* */ 01215000 * /* STRUCTURE FOR ACCESSING COMMUNICATION VECTOR TABLE */ 01216000 * /* */ 01217000 * /************************************************************/ 01218000 * 0447 01219000 * DCL CVTPTR PTR(31) LOCATION(16); 0447 01220000 * 0447 01221000 * 0447 01222000 */* */ 01223000 */* COMMUNICATION VECTOR TABLE */ 01224000 */* */ 01225000 */* OS/VS2 RELEASE 3.7 PTF, 03/30/77, LEVEL=17 */ 01226000 */* */ 01227000 */* METHOD OF ACCESS */ 01228000 */* PL/S - DCL CVTPTR PTR */ 01229000 */* BAL - DSECT=YES SHOULD BE SPECIFIED ON MACRO CALL EXCEPT */ 01230000 */* WHEN CALLED DURING SYSGEN TO CREATE CSECT. CVT FOR */ 01231000 */* OS/VS2 IS MAPPED UNLESS SYS=AOS1 IS SPECIFIED. THE */ 01232000 */* PREFIX IS NOT MAPPED UNLESS PREFIX=YES IS SPECIFIED. */ 01233000 */* A USING ON CVTMAP OR DSECT NAME WILL ESTABLISH */ 01234000 */* ADDRESSABILITY FOR ALL SYMBOLS EXCEPT IN THE 2 */ 01235000 */* EXTENSIONS. TO ESTABLISH ADDRESSABILITY FOR THE */ 01236000 */* OS - OS/VS COMMON EXTENSION, YOU SHOULD CODE */ 01237000 */* */ 01238000 */* L REG,CVTEXT1 */ 01239000 */* USING CVTXTNT1,REG */ 01240000 */* */ 01241000 */* TO ESTABLISH ADDRESSABILITY FOR THE OS/VS1 - OS/VS2 */ 01242000 */* COMMON EXTENSION, YOU SHOULD CODE */ 01243000 */* */ 01244000 */* L REG,CVTEXT2 */ 01245000 */* USING CVTXTNT2,REG */ 01246000 */* */ 01247000 */* WHERE REG IN EITHER CASE IS ANY REGISTER OTHER */ 01248000 */* THAN ZERO. */ 01249000 */* */ 01250000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 01251000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 01252000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 01253000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 01254000 */* STATEMENT NUMBERS FOR CVTXTNT1 AND CVTXTNT2 IS IN */ 01255000 */* THE OS - OS/VS COMMON EXTENSION. */ 01256000 */* */ 01257000 */* F.E.'S */ 01258000 */* MICROFICHE LISTING - CVT */ 01259000 */* */ 01260000 */* DEVELOPERS */ 01261000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 01262000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 01263000 */* */ 01264000 */* FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS */ 01265000 */* YOUR MODULE CREATES THE CSECT. */ 01266000 * 0448 01267000 * /* CVT PROPER */ 01268000 * 0448 01269000 * DECLARE 0448 01270000 * 1 CVTMAP BASED(CVTPTR) BDY(WORD), 0448 01271000 * 2 CVT CHAR(0) BDY(WORD), /* BEGINNING OF CVT MDC150*/ 01272000 * 2 CVTTCBP PTR(31), /* ADDRESS OF A DOUBLE WORD, THE 01273000 * FIRST CONTAINING THE NEXT-TO- 01274000 * BE-DISPATCHED TCB ADDRESS. 0448 01275000 * THE SECOND CONTAINING THE 0448 01276000 * LAST (CURRENT) TCB ADDRESS. 01277000 * BOTH WORDS ARE IDENTICAL 0448 01278000 * UNLESS THE TASK GOES INTO A 01279000 * WAIT STATE. WHEN IN A WAIT 01280000 * STATE, THE FIRST WORD IS SET 01281000 * TO ZERO UNTIL THE WAITING IS 01282000 * OVER AND THEN BOTH WORDS ARE 01283000 * ONCE AGAIN IDENTICAL. 0448 01284000 * (OS/VS1) 0448 01285000 * ADDRESS OF 4-WORD LIST OF 0448 01286000 * ADDRESSES - THE NEXT TCB, THE 01287000 * CURRENT TCB, THE NEXT ASCB 0448 01288000 * AND THE CURRENT ASCB, IN THAT 01289000 * ORDER (OS/VS2) MDC026*/ 01290000 * 2 CVT0EF00 PTR(31), /* ADDRESS OF ROUTINE TO SCHEDULE 01291000 * ASYNCHRONOUS EXITS */ 01292000 * 2 CVTLINK PTR(31), /* ADDRESS OF DCB FOR 0448 01293000 * SYS1.LINKLIB DATA SET */ 01294000 * 2 CVTJOB PTR(31), /* ADDRESS OF QUEUE MANAGER 0448 01295000 * RESIDENT DATA AREA (QMRES) 0448 01296000 * (OS/VS1) (MDC083) XM4042*/ 01297000 * 2 CVTBUF PTR(31), /* ADDRESS OF THE BUFFER OF THE 01298000 * RESIDENT CONSOLE INTERRUPT 0448 01299000 * ROUTINE */ 01300000 * 2 CVTXAPG PTR(31), /* ADDRESS OF I/O SUPERVISOR 0448 01301000 * APPENDAGE VECTOR TABLE */ 01302000 * 2 CVT0VL00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 01303000 * TASK SUPERVISOR'S ADDRESS 0448 01304000 * VALIDITY CHECKING ROUTINE */ 01305000 * 2 CVTPCNVT PTR(31), /* ADDRESS OF ENTRY POINT OF THE 01306000 * ROUTINE WHICH CONVERTS A 0448 01307000 * RELATIVE TRACK ADDRESS (TTR) 01308000 * TO AN ABSOLUTE TRACK ADDRESS 01309000 * (MBBCCHHR) */ 01310000 * 2 CVTPRLTV PTR(31), /* ADDRESS OF ENTRY POINT OF THE 01311000 * ROUTINE WHICH CONVERTS AN 0448 01312000 * ABSOLUTE TRACK ADDRESS 0448 01313000 * (MBBCCHHR) TO A RELATIVE 0448 01314000 * TRACK ADDRESS (TTR) */ 01315000 * 2 CVTILK1 PTR(31), /* ADDRESS OF THE CHANNEL AND 0448 01316000 * CONTROL UNIT PORTION OF THE 01317000 * UCB LOOKUP TABLE */ 01318000 * 2 CVTILK2 PTR(31), /* ADDRESS OF THE UCB HALFWORD 01319000 * ADDRESS LIST PORTION OF THE 01320000 * UCB LOOKUP TABLE */ 01321000 * 2 CVTXTLER PTR(31), /* ADDRESS OF ERROR RECOVERY 0448 01322000 * PROCEDURE (ERP) LOADER 0448 01323000 * (IECVERPL) ENTRY POINT 0448 01324000 * IECXTLER (MDC349) @Z40AQ9A*/ 01325000 * 2 CVTSYSAD PTR(31), /* ADDRESS OF THE SYSTEM 0448 01326000 * RESIDENCE VOLUME ENTRY IN THE 01327000 * UCB LOOKUP TABLE */ 01328000 * 2 CVTBTERM PTR(31), /* ADDRESS OF ENTRY POINT OF THE 01329000 * ABTERM ROUTINE */ 01330000 * 2 CVTDATE CHAR(4) BDY(WORD), /* CURRENT DATE IN PACKED 0448 01331000 * DECIMAL */ 01332000 * 2 CVTMSLT PTR(31), /* ADDRESS OF THE MASTER COMMON 01333000 * AREA IN MASTER SCHEDULER 0448 01334000 * RESIDENT DATA AREA. 0448 01335000 * NOTE - USE CVTMSER INSTEAD 01336000 * TO ADDRESS MASTER SCHEDULER 01337000 * RESIDENT DATA AREA. */ 01338000 * 2 CVTZDTAB PTR(31), /* ADDRESS OF I/O DEVICE 0448 01339000 * CHARACTERISTIC TABLE */ 01340000 * 2 CVTXITP PTR(31), /* ADDRESS OF ERROR INTERPRETER 01341000 * ROUTINE */ 01342000 * 2 CVTDAR PTR(31), /* SAME AS CVTDARA BELOW 0448 01343000 * (OS/VS1) MDC029*/ 01344000 * 3 CVTFLGS1 BIT(8), /* FLAG BYTE (OS/VS1) MDC030*/ 01345000 * 4 CVTDMPLK BIT(1), /* SVC DUMP IS IN PROGRESS 0448 01346000 * (OS/VS1) MDC030*/ 01347000 * 4 CVTRSV01 BIT(1), /* RESERVED */ 01348000 * 4 CVTRSV02 BIT(1), /* RESERVED */ 01349000 * 4 CVTRSV03 BIT(1), /* RESERVED */ 01350000 * 4 CVTRSV04 BIT(1), /* RESERVED */ 01351000 * 4 CVTRSV05 BIT(1), /* RESERVED */ 01352000 * 4 CVTRSV06 BIT(1), /* RESERVED */ 01353000 * 4 CVTRSV07 BIT(1), /* RESERVED */ 01354000 * 3 CVTDARA PTR(24), /* ADDRESS OF THE SYS1.DUMP I/O 01355000 * CONTROL BLOCKS NEEDED BY 0448 01356000 * ABEND'S DAMAGE ASSESSMENT 0448 01357000 * ROUTINE (DAR) (OS/VS1) MDC029*/ 01358000 * 2 CVT0FN00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 01359000 * FINCH ROUTINE (OS/VS1) */ 01360000 * 2 CVTEXIT CHAR(2) BDY(WORD), /* AN SVC 3 INSTRUCTION. EXIT 01361000 * TO DISPATCHER. */ 01362000 * 2 CVTBRET CHAR(2) BDY(WORD,3), /* A BCR 15,14 INSTRUCTION. 0448 01363000 * RETURN TO CALLER (USED BY 0448 01364000 * DATA MANAGEMENT ROUTINES) */ 01365000 * 2 CVTSVDCB PTR(31), /* ADDRESS OF THE DCB FOR THE 0448 01366000 * SYS1.SVCLIB DATA SET */ 01367000 * 2 CVTTPC PTR(31), /* ADDRESS OF THE TIMER 0448 01368000 * SUPERVISOR WORK AREA */ 01369000 * 2 CVTPBLDL PTR(31), /* ADDRESS OF BRANCH AND LINK 0448 01370000 * (BALR) ENTRY POINT OF THE 0448 01371000 * BLDL ROUTINE (OS/VS1) MDC103*/ 01372000 * 2 CVTSJQ PTR(31), /* ADDRESS OF THE SELECTED JOB 01373000 * QUEUE (OS/VS1) */ 01374000 * 2 CVTCUCB PTR(31), /* ADDRESS OF THE TABLE THAT 0448 01375000 * CONTAINS THE CURRENT CONSOLE 01376000 * UCB ADDRESSES */ 01377000 * 2 CVTQTE00 PTR(31), /* ADDRESS OF THE TIMER ENQUEUE 01378000 * ROUTINE FOR INTERVAL TIMER */ 01379000 * 2 CVTQTD00 PTR(31), /* ADDRESS OF THE TIMER DEQUEUE 01380000 * ROUTINE FOR INTERVAL TIMER */ 01381000 * 2 CVTSTB PTR(31), /* ADDRESS OF THE I/O DEVICE 0448 01382000 * STATISTICS TABLE */ 01383000 * 2 CVTDCB CHAR(1) BDY(WORD), /* OPERATING SYSTEM 0448 01384000 * CONFIGURATION */ 01385000 * 4 CVTRSV08 BIT(1), /* RESERVED */ 01386000 * 4 CVT1SSS BIT(1), /* PCP */ 01387000 * 4 CVT2SPS BIT(1), /* MFT, OS/VS1 */ 01388000 * 4 CVT4MS1 BIT(1), /* MVT, OS/VS2 */ 01389000 * 4 CVTRSV09 BIT(1), /* RESERVED */ 01390000 * 4 CVT4MPS BIT(1), /* MODEL 65 MULTIPROCESSING */ 01391000 * 4 CVT6DAT BIT(1), /* DYNAMIC ADDRESS TRANSLATION 01392000 * BY CPU (OS/VS1, OS/VS2) */ 01393000 * 4 CVTMVS2 BIT(1), /* MULTIPLE MEMORY OPTION OF 0448 01394000 * OS/VS2 IS PRESENT MDC131*/ 01395000 * 2 CVTDCBA PTR(24), /* ADDRESS OF THE DCB FOR THE 0448 01396000 * SYS1.LOGREC (OUTBOARD 0448 01397000 * RECORDER) DATA SET FOR SYSTEM 01398000 * ENVIRONMENT RECORDING (SER) */ 01399000 * 2 CVTIOQET PTR(31), /* ADDRESS OF IOS REQUEST ELEMENT 01400000 * TABLE (OS/VS1) MDC020*/ 01401000 * 3 CVTSV76M FIXED(31), /* SVC 76 MESSAGE COUNT FIELD 0448 01402000 * (OS/VS2) (MDC372) @ZA18857*/ 01403000 * 2 CVTIXAVL PTR(31), /* ADDRESS OF THE I/O 0448 01404000 * SUPERVISOR'S FREELIST POINTER 01405000 * WHICH CONTAINS THE ADDRESS OF 01406000 * THE NEXT REQUEST ELEMENT 0448 01407000 * (OS/VS1) 0448 01408000 * ADDRESS OF THE I/O 0448 01409000 * SUPERVISOR'S COMMUNICATION 0448 01410000 * AREA (IOCOM) (OS/VS2) */ 01411000 * 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN THE 0448 01412000 * NUCLEUS (ON PAGE BOUNDARY FOR 01413000 * OS/VS1) (ON SEGMENT BOUNDARY 01414000 * FOR OS/VS2) (MDC318) @Z30AQ9A*/ 01415000 * 2 CVTFBOSV PTR(31), /* ADDRESS OF PROGRAM FETCH 0448 01416000 * ROUTINE */ 01417000 * 2 CVT0DS PTR(31), /* ADDRESS OF ENTRY POINT OF THE 01418000 * DISPATCHER */ 01419000 * 2 CVTILCH PTR(31), /* ADDRESS OF THE LOGICAL 0448 01420000 * CHANNEL WORD TABLE */ 01421000 * 2 CVTIERLC PTR(31), /* ADDRESS OF THE ASYNCHRONOUS 01422000 * EXIT QUEUE (OS/VS1) 0448 01423000 * (MDC218) YM4043*/ 01424000 * 3 CVTRV516 PTR(31), /* ** CVTIERLC FIELD UNUSED IN 01425000 * MVS ** (MDC218) YM4043*/ 01426000 * 2 CVTMSER PTR(31), /* ADDRESS OF DATA AREA OF 0448 01427000 * MASTER SCHEDULER RESIDENT 0448 01428000 * DATA AREA */ 01429000 * 2 CVT0PT01 PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 01430000 * OF POST ROUTINE */ 01431000 * 2 CVTRSV11 PTR(31), /* ** CVTTRMTB FIELD UNUSED 0448 01432000 * IN OS/VS ** */ 01433000 * 2 CVTHEAD PTR(31), /* ADDRESS OF THE HIGHEST 0448 01434000 * PRIORITY TCB IN THE READY 0448 01435000 * QUEUE (OS/VS1) MDC025*/ 01436000 * 3 CVTSV76C BIT(32) BDY(WORD), /* SVC 76 MESSAGE CONTROL FIELD. 01437000 * HIGH-ORDER BIT IS DEFINED, 0448 01438000 * AND ALL OTHER BITS ARE ZERO. 01439000 * (OS/VS2) (MDC373) @ZA18857*/ 01440000 * 4 CVTSV76Q BIT(1), /* SVC 76 ENQUEUE SWITCH 0448 01441000 * (OS/VS2) (MDC374) @ZA18857*/ 01442000 * 2 CVTMZ00 PTR(31), /* HIGHEST ADDRESS IN VIRTUAL 0448 01443000 * STORAGE FOR THE MACHINE */ 01444000 * 2 CVT1EF00 PTR(31), /* ADDRESS OF ROUTINE WHICH 0448 01445000 * CREATES IRB'S FOR EXITS */ 01446000 * 2 CVTQOCR PTR(31), /* GRAPHICS INTERFACE TASK (GFX) 01447000 * FIELD. ADDRESS OF SEVENTH 0448 01448000 * WORD OF GFX PARAMETER LIST, 01449000 * IF GFX IS ACTIVE. ZERO IF 0448 01450000 * GFX IS NOT ACTIVE. */ 01451000 * 2 CVTQMWR PTR(31), /* ADDRESS OF QUEUE MANAGER'S 0448 01452000 * SYSTEM OUTPUT COMMUNICATIONS- 01453000 * DATA-AREA (CDA), WHICH IS 0448 01454000 * STORED ON AN EXTERNAL DEVICE */ 01455000 * 2 CVTSNCTR FIXED(15), /* SERIAL NUMBER COUNTER FOR 0448 01456000 * ASSIGNING SERIAL NUMBERS TO 01457000 * NON-SPECIFIC, UNLABELED 0448 01458000 * MAGNETIC TAPE VOLUMES */ 01459000 * 2 CVTOPTA CHAR(1), /* OPTION INDICATORS */ 01460000 * 3 CVTCCH BIT(1), /* CHANNEL CHECK HANDLER (CCH) 01461000 * OPTION PRESENT - RECOVERY 0448 01462000 * MANAGEMENT SUPPORT (RMS) 0448 01463000 * XM4686*/ 01464000 * 3 CVTAPR BIT(1), /* ALTERNATE PATH RETRY (APR) 0448 01465000 * OPTION PRESENT - RECOVERY 0448 01466000 * MANAGEMENT SUPPORT (RMS) */ 01467000 * 3 CVTDDR BIT(1), /* DYNAMIC DEVICE 0448 01468000 * RECONFIGURATION (DDR) OPTION 01469000 * PRESENT - RECOVERY MANAGEMENT 01470000 * SUPPORT (RMS) (OS/VS1) 0448 01471000 * DDR SYSTEM-INITIATED SWAP 0448 01472000 * ACTIVE (OS/VS2) MDC126*/ 01473000 * 3 CVTNIP BIT(1), /* NIP IS EXECUTING */ 01474000 * 3 CVTRSV12 BIT(1), /* RESERVED */ 01475000 * 3 CVTRSV13 BIT(1), /* RESERVED */ 01476000 * 3 CVTASCII BIT(1), /* ASCII TAPE PROCESSING IS 0448 01477000 * GENERATED IN THIS SYSTEM */ 01478000 * 3 CVTXPFP BIT(1), /* CPU HAS EXTENDED PRECISION 0448 01479000 * FLOATING POINT FEATURE */ 01480000 * 2 CVTOPTB CHAR(1), /* MISCELLANEOUS FLAGS */ 01481000 * 3 CVTPROT BIT(1), /* CPU HAS STORE PROTECTION 0448 01482000 * FEATURE (OS/VS1) */ 01483000 * 3 CVTCTIMS BIT(1), /* IF ON, HARDWARE HAS THE CLOCK 01484000 * COMPARATOR AND CPU TIMER 0448 01485000 * FEATURE INSTALLED, AND OS/VS1 01486000 * SYSGEN HAS SPECIFIED THIS 0448 01487000 * FEATURE (OS/VS1) MDC127*/ 01488000 * 3 CVTTOD BIT(1), /* CPU HAS TIME-OF-DAY CLOCK 0448 01489000 * FEATURE */ 01490000 * 3 CVTNLOG BIT(1), /* SYS1.LOGREC IS UNAVAILABLE 0448 01491000 * FOR ERROR RECORDING. ALWAYS 01492000 * SET TO ZERO FOR OS/VS1 ICB382*/ 01493000 * 3 CVTAPTHR BIT(1), /* NIP SETS THIS BIT TO 1 WHEN 01494000 * DEVICE TESTING IS COMPLETE. 01495000 * IF 1, I/O SUPERVISOR USES AN 01496000 * ALTERNATE PATH TO A DEVICE 0448 01497000 * WHEN A CONDITION CODE OF 3 0448 01498000 * EXISTS. THIS BIT IS RESET BY 01499000 * NIP TO 0 AFTER THE LINK PACK 01500000 * AREA IS INITIALIZED. YM2670*/ 01501000 * 3 CVTFP BIT(1), /* CPU HAS FETCH PROTECTION 0448 01502000 * FEATURE (OS/VS1) ICB427*/ 01503000 * 3 CVTRSV16 BIT(1), /* RESERVED */ 01504000 * 3 CVTRSV17 BIT(1), /* RESERVED */ 01505000 * 2 CVTQCDSR PTR(31), /* CDE SEARCH ROUTINE ADDRESS 0448 01506000 * (OS/VS2) 0448 01507000 * ADDRESS OF THE ROUTINE THAT 01508000 * SEARCHES THE REENTERABLE LOAD 01509000 * MODULE QUEUE (OS/VS1) */ 01510000 * 2 CVTQLPAQ PTR(31), /* ADDRESS OF POINTER TO MOST 0448 01511000 * RECENT ENTRY ON LINK PACK 0448 01512000 * AREA CDE QUEUE (OS/VS2) 0448 01513000 * ADDRESS OF THE REENTERABLE 0448 01514000 * LOAD MODULE QUEUE (OS/VS1) */ 01515000 * 2 CVTRSV18 PTR(31), /* ** CVTMPCVT FIELD UNUSED IN 01516000 * OS/VS ** */ 01517000 * 2 CVTSMCA PTR(31), /* ADDRESS OF THE SYSTEM 0448 01518000 * MANAGEMENT CONTROL AREA 0448 01519000 * (SMCA) IF THE SYSTEM 0448 01520000 * MANAGEMENT FACILITIES (SMF) 01521000 * OPTION IS PRESENT IN THE 0448 01522000 * SYSTEM. OTHERWISE, ZERO. */ 01523000 * 2 CVTABEND PTR(31), /* ADDRESS OF SECONDARY CVT FOR 01524000 * ABEND IN EOT (OS/VS2) 0448 01525000 * USED BY AN INTERNAL ABEND 0448 01526000 * TRACE ROUTINE FOR DEBUG 0448 01527000 * PURPOSES (OS/VS1) XM0615*/ 01528000 * 2 CVTUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 01529000 * 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 01530000 * SUPPORT */ 01531000 * 2 CVTQABST CHAR(2) BDY(WORD), /* AN SVC 13 (ABEND) INSTRUCTION 01532000 * (OS/VS2) RESERVED (OS/VS1) */ 01533000 * 2 CVTLNKSC CHAR(2) BDY(WORD,3), /* AN SVC 6 (LINK) INSTRUCTION 01534000 * ICB369*/ 01535000 * 2 CVTTSCE PTR(31), /* ADDRESS OF THE FIRST TIME 0448 01536000 * SLICE CONTROL ELEMENT (TSCE) */ 01537000 * 2 CVTPATCH PTR(31), /* ADDRESS OF A 200-BYTE FE 0448 01538000 * PATCH AREA */ 01539000 * 2 CVTRMS PTR(31), /* RECOVERY MANAGEMENT SUPPORT 01540000 * (RMS) COMMUNICATIONS VECTOR. 01541000 * ADDRESS OF A MACHINE STATUS 01542000 * BLOCK. */ 01543000 * 2 CVTRV515 PTR(31), /* ** CVTTSCVT FIELD UNUSED IN 01544000 * MVS ** (MDC037) @Z40AQ9A*/ 01545000 * 2 CVT0SCR1 PTR(31), /* ADDRESS OF THE SECTOR 0448 01546000 * CALCULATION ROUTINE FOR 0448 01547000 * ROTATIONAL POSITION SENSING 01548000 * (RPS) */ 01549000 * 2 CVTGTF PTR(31), /* GENERALIZED TRACE FACILITY 0448 01550000 * (GTF) CONTROL WORD ICB312*/ 01551000 * 3 CVTGTFST BIT(8), /* GTF FLAG BYTE ICB312*/ 01552000 * 4 CVTGTFS BIT(2), /* GTF STATUS (OS/VS1) MDC088*/ 01553000 * 5 CVTGTFAV BIT(1), /* IF ZERO, GTF NOT ACTIVE. 0448 01554000 * IF ONE, GTF ACTIVE. 0448 01555000 * (OS/VS2) MDC098*/ 01556000 * 5 CVTRV315 BIT(1), /* RESERVED (OS/VS2) */ 01557000 * 4 CVTSTATE BIT(1), /* GTF IS IN CONTROL PROCESSING 01558000 * A HOOK (OS/VS1) MDC093*/ 01559000 * 5 CVTRV316 BIT(1), /* RESERVED (OS/VS2) */ 01560000 * 4 CVTTMODE BIT(1), /* IF 0, MODE=INT SPECIFIED. 0448 01561000 * IF 1, MODE=EXT SPECIFIED 0448 01562000 * WHICH MEANS TRACE DATA IS TO 01563000 * BE WRITTEN TO AN EXTERNAL 0448 01564000 * DEVICE. (OS/VS1) MDC094*/ 01565000 * 5 CVTRV317 BIT(1), /* RESERVED (OS/VS2) */ 01566000 * 4 CVTFORM BIT(1), /* TRACE DATA IS TO BE FORMATTED 01567000 * ON ABNORMAL TERMINATION 0448 01568000 * (OS/VS1) MDC095*/ 01569000 * 5 CVTRV318 BIT(1), /* RESERVED (OS/VS2) */ 01570000 * 4 CVTUSR BIT(1), /* TRACE=USR SPECIFIED. 0448 01571000 * USER-REQUESTED TRACE DATA IS 01572000 * TO BE INCLUDED IN THE TRACE 01573000 * DATA SET. (MDC317) @Z30AP9A*/ 01574000 * 4 CVTRNIO BIT(1), /* GTF IS ACTIVE AND TRACING 0448 01575000 * RNIO EVENTS MDC187*/ 01576000 * 4 CVTRSV27 BIT(1), /* RESERVED */ 01577000 * 3 CVTGTFA PTR(24), /* ADDRESS OF THE MONITOR CALL 01578000 * VECTOR TABLE (OS/VS1) 0448 01579000 * ADDRESS OF MAIN MONITOR CALL 01580000 * ROUTING TABLE, MCHEAD 0448 01581000 * (OS/VS2) MDC156*/ 01582000 * 2 CVTAQAVT PTR(31), /* ADDRESS OF THE FIRST WORD OF 01583000 * THE TCAM DISPATCHER WHICH 0448 01584000 * CONTAINS THE ADDRESS OF THE 01585000 * ADDRESS VECTOR TABLE (AVT). 01586000 * IF ZERO, TCAM IS NOT STARTED */ 01587000 * 3 CVTTCMFG CHAR(1), /* TCAM FLAGS */ 01588000 * 4 CVTTCRDY BIT(1), /* TCAM IS READY TO ACCEPT USERS*/ 01589000 * 4 CVTRSV28 BIT(1), /* RESERVED */ 01590000 * 4 CVTRSV29 BIT(1), /* RESERVED */ 01591000 * 4 CVTRSV30 BIT(1), /* RESERVED */ 01592000 * 4 CVTRSV31 BIT(1), /* RESERVED */ 01593000 * 4 CVTRSV32 BIT(1), /* RESERVED */ 01594000 * 4 CVTRSV33 BIT(1), /* RESERVED */ 01595000 * 4 CVTRSV34 BIT(1), /* RESERVED */ 01596000 * 3 CVTAQAVB PTR(24), /* SAME AS CVTAQAVT ABOVE */ 01597000 * 2 CVTVOLM2 PTR(31), /* ADDRESS OF TABLE FOR POWER 0448 01598000 * WARNING FEATURE (PWF) 0448 01599000 * (OS/VS2) (MDC308) @Z30AQ9A*/ 01600000 * 3 CVTTATA PTR(31), /* ADDRESS OF THE FIRST ENTRY IN 01601000 * THE TCB ADDRESS TABLE. THE 01602000 * FIRST ENTRY IS FOR PARTITION 01603000 * 0. (OS/VS1) */ 01604000 * 4 CVTTSKS PTR(8), /* MAXIMUM ALLOWABLE NUMBER OF 01605000 * ENTRIES IN THE TCB ADDRESS 0448 01606000 * TABLE (OS/VS1) */ 01607000 * 5 CVTVOLF2 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 01608000 * OVERLAID BY CVTVOLM2 AFTER 0448 01609000 * PWF INITIALIZATION. 0448 01610000 * (OS/VS2) (MDC309) @Z30AQ9A*/ 01611000 * 6 CVTVOLI2 BIT(1), /* PWF INITIALIZATION HAS NOT 0448 01612000 * OCCURRED (OS/VS2) 0448 01613000 * (MDC310) @Z30AQ9A*/ 01614000 * 4 CVTTAT PTR(24), /* SAME AS CVTTATA ABOVE */ 01615000 * 5 CVTVOLT2 PTR(24), /* PWF RECHECK TIME DELAY. 0448 01616000 * THIS VALUE IS OVERLAID BY 0448 01617000 * CVTVOLM2 AFTER PWF 0448 01618000 * INITIALIZATION. (OS/VS2) 0448 01619000 * (MDC311) @Z30AQ9A*/ 01620000 * 2 CVTATER PTR(31), /* ADDRESS OF THE SYSTEM ERROR 01621000 * TCB. THE PURGE ROUTINE USES 01622000 * THIS FIELD TO ACCESS THE 0448 01623000 * SIRB. (OS/VS1) ICB346*/ 01624000 * 3 CVTSYST PTR(8), /* NUMBER OF ENTRIES IN THE TCB 01625000 * ADDRESS TABLE FOR TCB'S 0448 01626000 * CREATED DURING SYSTEM 0448 01627000 * GENERATION (OS/VS1) */ 01628000 * 3 CVTATERA PTR(24), /* SAME AS CVTATER ABOVE */ 01629000 * 2 CVTEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 01630000 * EXTENSION ICB421*/ 01631000 * 2 CVTCBSP PTR(31), /* ADDRESS OF ACCESS METHOD 0448 01632000 * CONTROL BLOCK STRUCTURE 0448 01633000 * MDC195*/ 01634000 * 2 CVTPURG PTR(31), /* ADDRESS OF SUBSYSTEM PURGE 0448 01635000 * ROUTINE ICB330*/ 01636000 * 3 CVTRSV35 PTR(8), /* RESERVED ICB330*/ 01637000 * 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 0448 01638000 * ROUTINE ICB330*/ 01639000 * 2 CVTAMFF CHAR(4), /* RESERVED FOR ACCESS METHOD 0448 01640000 * FLAGS ICB436*/ 01641000 * 2 CVTQMSG PTR(31), /* ADDRESS OF INFORMATION TO BE 01642000 * PRINTED BY ABEND ICB307*/ 01643000 * 3 CVTRSV36 PTR(8), /* RESERVED ICB307*/ 01644000 * 3 CVTQMSGA PTR(24), /* ADDRESS OF INFORMATION TO BE 01645000 * PRINTED BY ABEND ICB307*/ 01646000 * 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB346*/ 01647000 * 3 CVTRSV37 PTR(8), /* RESERVED (OS/VS1) ICB346*/ 01648000 * 4 CVTDMSRF BIT(8), /* OPEN/CLOSE/EOV FLAG BYTE. 0448 01649000 * SETTING BOTH BIT 0 AND BIT 1 01650000 * ON WILL CAUSE BOTH KINDS OF 01651000 * DUMPS TO BE TAKEN. THESE 0448 01652000 * BITS ARE USED DURING TESTING 01653000 * AND DEBUGGING WHEN OTHER 0448 01654000 * DEBUG METHODS ARE INEFFECTIVE. 01655000 * (OS/VS2) (MDC350) @Z40AQ9A*/ 01656000 * 5 CVTSDUMP BIT(1), /* SET BY COREZAP. WILL CAUSE 01657000 * AN SDUMP TO BE TAKEN AND 0448 01658000 * IEC999I MESSAGE ISSUED FOR 0448 01659000 * EVERY ABEND ISSUED WITHIN AN 01660000 * OPEN/CLOSE/EOV OR DADSM 0448 01661000 * FUNCTION. (OS/VS2) 0448 01662000 * (MDC351) @Z40AQ9A*/ 01663000 * 5 CVTUDUMP BIT(1), /* SET BY COREZAP. WILL CAUSE 01664000 * AN ABEND DUMP TO BE TAKEN FOR 01665000 * EVERY ABEND ISSUED WITHIN AN 01666000 * OPEN/CLOSE/EOV OR DADSM 0448 01667000 * FUNCTION. (OS/VS2) 0448 01668000 * (MDC352) @Z40AQ9A*/ 01669000 * 5 CVTRV629 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 01670000 * 5 CVTRV630 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 01671000 * 5 CVTRV631 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 01672000 * 5 CVTRV632 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 01673000 * 5 CVTRV633 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 01674000 * 5 CVTRV634 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 01675000 * 3 CVTDMSRA PTR(24), /* ADDRESS OF THE OPEN/CLOSE/EOV 01676000 * SUPERVISORY ROUTINE IN THE 0448 01677000 * NUCLEUS. THIS ROUTINE 0448 01678000 * HANDLES THE ROUTING OF 0448 01679000 * CONTROL AMONG THE I/O SUPPORT 01680000 * ROUTINES. ICB346*/ 01681000 * 2 CVTRSV38 PTR(31), /* RESERVED */ 01682000 * 2 CVTRSV39 PTR(31), /* RESERVED */ 01683000 * 0448 01684000 * /* OS/VS1 - OS/VS2 COMMON SECTION */ 01685000 * 0448 01686000 * 2 CVTREAL PTR(31), /* ADDRESS OF THE VIRTUAL 0448 01687000 * STORAGE BYTE FOLLOWING THE 0448 01688000 * HIGHEST VIRTUAL=REAL STORAGE 01689000 * ADDRESS ICB368*/ 01690000 * 2 CVTPTRV PTR(31), /* ADDRESS OF PAGING SUPERVISOR 01691000 * GENERAL ROUTINE TO TRANSLATE 01692000 * REAL ADDRESSES TO VIRTUAL 0448 01693000 * ADDRESSES */ 01694000 * 2 CVTMODE PTR(31), /* ADDRESS OF ROUTINE TO CHANGE 01695000 * SYSTEM MASK (OS/VS1) 0448 01696000 * (MDC217) YM4244*/ 01697000 * 2 CVTJESCT PTR(31), /* ADDRESS OF JOB ENTRY 0448 01698000 * SUBSYSTEM (JES) CONTROL TABLE*/ 01699000 * 2 CVTJEPS PTR(31), /* ADDRESS OF JOB ENTRY 0448 01700000 * PERIPHERAL SERVICES (JEPS) 0448 01701000 * MONITOR TCB (OS/VS1) YM2702*/ 01702000 * 2 CVTTZ FIXED(31), /* DIFFERENCE BETWEEN LOCAL TIME 01703000 * AND GREENWICH MEAN TIME IN 0448 01704000 * BINARY UNITS OF 1.048576 0448 01705000 * SECONDS */ 01706000 * 2 CVTMCHPR PTR(31), /* ADDRESS OF MACHINE CHECK 0448 01707000 * PARAMETER LIST */ 01708000 * 2 CVTEORM PTR(31), /* HIGHEST REAL ADDRESS IN MAIN 01709000 * STORAGE (OS/VS1) POTENTIAL 01710000 * REAL HIGH STORAGE ADDRESS 0448 01711000 * (OS/VS2) MDC087*/ 01712000 * 2 CVTERPV PTR(31), /* ADDRESS OF I/O SUPERVISOR 0448 01713000 * SUBROUTINE TO CONVERT CCW 0448 01714000 * DATA ADDRESSES TO VIRTUAL 0448 01715000 * ADDRESSES (OS/VS1) 0448 01716000 * (MDC219) YM4043*/ 01717000 * 3 CVTRV517 PTR(31), /* ** CVTERPV FIELD UNUSED IN 0448 01718000 * MVS ** (MDC219) YM4043*/ 01719000 * 2 CVTINTLA PTR(31), /* ADDRESS OF A TIME INTERVAL. 01720000 * I/O LOAD BALANCING COUNTS THE 01721000 * NUMBER OF EXCP'S ISSUED 0448 01722000 * DURING THIS TIME INTERVAL AND 01723000 * USES THE VALUE IN DETERMINING 01724000 * THE AMOUNT OF I/O ACTIVITY IN 01725000 * THE SYSTEM. (OS/VS1) 0448 01726000 * (MDC220) YM4043*/ 01727000 * 3 CVTRV518 PTR(31), /* ** CVTINTLA FIELD UNUSED IN 01728000 * MVS ** (MDC220) YM4043*/ 01729000 * 2 CVTAPF PTR(31), /* SAME AS CVTAPFA BELOW ICB360*/ 01730000 * 3 CVTRSV40 PTR(8), /* RESERVED ICB360*/ 01731000 * 3 CVTAPFA PTR(24), /* ADDRESS OF BRANCH ENTRY POINT 01732000 * IN AUTHORIZED PROGRAM FACILITY 01733000 * (APF) ROUTINE */ 01734000 * 2 CVTEXT2 PTR(31), /* ADDRESS OF OS/VS1 - OS/VS2 0448 01735000 * COMMON EXTENSION ICB330*/ 01736000 * 3 CVTRSV41 PTR(8), /* RESERVED ICB330*/ 01737000 * 3 CVTEXT2A PTR(24), /* SAME AS CVTEXT2 ABOVE ICB330*/ 01738000 * 2 CVTHJES PTR(31), /* SAME AS CVTHJESA BELOW ICB454*/ 01739000 * 3 CVTRSV42 PTR(8), /* RESERVED ICB454*/ 01740000 * 3 CVTHJESA PTR(24), /* ADDRESS OF OPTIONAL JOB ENTRY 01741000 * SUBSYSTEM (JES) COMMUNICATION 01742000 * VECTOR TABLE ICB454*/ 01743000 * 2 CVTRSV43 FIXED(15), /* RESERVED */ 01744000 * 2 CVTRSV44 FIXED(15), /* RESERVED */ 01745000 * 2 CVTRSV45 PTR(31), /* RESERVED */ 01746000 * 2 CVTRSV46 PTR(31), /* RESERVED */ 01747000 * 0448 01748000 * /* OS/VS1 OVERLAY */ 01749000 * 0448 01750000 * 2 CVTPGSIA PTR(31), /* ADDRESS OF PAGING SUPERVISOR 01751000 * INFORMATION AREA */ 01752000 * 2 CVTPCVT PTR(31), /* ADDRESS OF PAGED CVT 0448 01753000 * EXTENSION */ 01754000 * 2 CVTA1F1 CHAR(1), /* PAGE FAULT FLAGS */ 01755000 * 3 CVTPFSW BIT(1), /* ONLY THE PAGING TASK MAY BE 01756000 * DISPATCHED */ 01757000 * 3 CVTSRSW BIT(1), /* NO TASK EXCEPT THE PAGING TASK 01758000 * MAY EXECUTE DISABLED CODE */ 01759000 * 3 CVTRSV47 BIT(1), /* RESERVED */ 01760000 * 3 CVTRSV48 BIT(1), /* RESERVED */ 01761000 * 3 CVTRSV49 BIT(1), /* RESERVED */ 01762000 * 3 CVTRSV50 BIT(1), /* RESERVED */ 01763000 * 3 CVTRSV51 BIT(1), /* RESERVED */ 01764000 * 3 CVTRSV52 BIT(1), /* RESERVED */ 01765000 * 2 CVTSYSK CHAR(1), /* SYSTEM LOCK. IF NOT ZERO, 0448 01766000 * ONLY THE PAGING TASK MAY BE 01767000 * DISPATCHED */ 01768000 * 3 CVTRSV53 BIT(1), /* RESERVED */ 01769000 * 3 CVTRSV54 BIT(1), /* RESERVED */ 01770000 * 3 CVTRSV55 BIT(1), /* RESERVED */ 01771000 * 3 CVTRSV56 BIT(1), /* RESERVED */ 01772000 * 3 CVTSLKR BIT(1), /* MACHINE CHECK HANDLING IS IN 01773000 * PROGRESS ICB320*/ 01774000 * 3 CVTSLKQ BIT(1), /* SYSTEM QUEUE AREA (SQA) HAS 01775000 * BEEN EXHAUSTED */ 01776000 * 3 CVTSLKP BIT(1), /* LAST PAGING CONTROL BLOCK 0448 01777000 * (PCB) HAS BEEN USED */ 01778000 * 3 CVTSLKO BIT(1), /* A ROUTINE RUNNING DISABLED 0448 01779000 * HAS PRODUCED A PAGE FAULT */ 01780000 * 2 CVTSULK FIXED(15), /* SUPERVISOR LOCK. NUMBER OF 01781000 * TASKS ATTEMPTING TO EXECUTE 01782000 * DISABLED ROUTINES. IF NOT 0448 01783000 * ZERO, ONLY ENABLED TASKS MAY 01784000 * RUN. */ 01785000 * 2 CVTSMF PTR(31), /* ADDRESS OF SYSTEM MANAGEMENT 01786000 * FACILITIES (SMF) TCB ICB395*/ 01787000 * 2 CVTPNWFR PTR(31), /* ADDRESS OF ROUTINE WHICH 0448 01788000 * FREES THE 'EMERGENCY' WORK 0448 01789000 * AREA (ICB413) XM2452*/ 01790000 * 2 CVTDDCE PTR(31), /* ADDRESS OF DYNAMIC DISPATCHING 01791000 * CONTROL ELEMENT ICB466*/ 01792000 * 2 CVTRSV57 FIXED(15), /* RESERVED */ 01793000 * 2 CVTRSV58 FIXED(15), /* RESERVED */ 01794000 * 2 CVTSTOA FIXED(31), /* SAVE AREA FOR THE REAL 0448 01795000 * STORAGE ADDRESS OF THE 0448 01796000 * SEGMENT TABLE ORIGIN ICB496*/ 01797000 * 2 CVTVOLM1 PTR(31), /* ADDRESS OF TABLE FOR POWER 0448 01798000 * WARNING FEATURE (PWF) 0448 01799000 * (MDC312) @X04AQ9A*/ 01800000 * 3 CVTVOLF1 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 01801000 * OVERLAID BY CVTVOLM1 AFTER 0448 01802000 * PWF INITIALIZATION. 0448 01803000 * (MDC313) @X04AQ9A*/ 01804000 * 4 CVTVOLI1 BIT(1), /* PWF INITIALIZATION HAS NOT 0448 01805000 * OCCURRED (MDC314) @X04AQ9A*/ 01806000 * 3 CVTVOLT1 PTR(24), /* PWF RECHECK TIME DELAY. 0448 01807000 * THIS VALUE IS OVERLAID BY 0448 01808000 * CVTVOLM1 AFTER PWF 0448 01809000 * INITIALIZATION. 0448 01810000 * (MDC315) @X04AQ9A*/ 01811000 * 2 CVTRSV61 PTR(31), /* RESERVED */ 01812000 * 2 CVTATMCT PTR(31), /* POINTER TO VTAM CONTROL 0448 01813000 * TABLE MDC082*/ 01814000 * 3 CVTATMST CHAR(1), /* VTAM START STATUS MDC135*/ 01815000 * 3 CVTATMCA PTR(24), /* POINTER TO VTAM CONTROL 0448 01816000 * TABLE MDC138*/ 01817000 * 2 CVTAUTH PTR(31), /* POINTER TO AUTHORIZED LIBRARY 01818000 * TABLE MDC188*/ 01819000 * 2 CVTACTAP PTR(31), /* ADDRESS OF BRANCH ENTRY TO 0448 01820000 * VTAM'S SVC ROUTINE ISTAPC42 01821000 * (MDC216) @X31BH9A*/ 01822000 * 2 CVTRV485 PTR(31), /* RESERVED MDC106*/ 01823000 * 2 CVTRV486 PTR(31), /* RESERVED MDC106*/ 01824000 * 2 CVTRV487 PTR(31), /* RESERVED MDC106*/ 01825000 * 2 CVTRV488 PTR(31); /* RESERVED MDC106*/ 01826000 * 0448 01827000 * /* OS/VS2 OVERLAY */ 01828000 * 0449 01829000 * DECLARE 0449 01830000 * 1 CVTS01 DEF(CVTPGSIA) BDY(WORD), 0449 01831000 * 2 CVTGETL PTR(31), /* ADDRESS OF IKJGETL, TSO GET 01832000 * LINE ROUTINE (MDC206) YM2225*/ 01833000 * 2 CVTLPDSR PTR(31), /* ADDRESS OF LINK PACK AREA 0449 01834000 * (LPA) DIRECTORY SEARCH 0449 01835000 * ROUTINE */ 01836000 * 2 CVTPVTP PTR(31), /* ADDRESS OF PAGE VECTOR TABLE */ 01837000 * 2 CVTLPDIA PTR(31), /* ADDRESS OF LINK PACK AREA 0449 01838000 * (LPA) DIRECTORY (ON PAGE 0449 01839000 * BOUNDARY) */ 01840000 * 3 CVTDIRST CHAR(1), /* FLAG BYTE */ 01841000 * 4 CVTDICOM BIT(1), /* LPA DIRECTORY HAS BEEN 0449 01842000 * INITIALIZED BY NIP */ 01843000 * 4 CVTRSV63 BIT(1), /* RESERVED */ 01844000 * 4 CVTRSV64 BIT(1), /* RESERVED */ 01845000 * 4 CVTRSV65 BIT(1), /* RESERVED */ 01846000 * 4 CVTRSV66 BIT(1), /* RESERVED */ 01847000 * 4 CVTRSV67 BIT(1), /* RESERVED */ 01848000 * 4 CVTRSV68 BIT(1), /* RESERVED */ 01849000 * 4 CVTRSV69 BIT(1), /* RESERVED */ 01850000 * 3 CVTLPDIR PTR(24), /* ADDRESS OF LPA DIRECTORY. 0449 01851000 * ON PAGE BOUNDARY */ 01852000 * 2 CVTRV320 PTR(31), /* ** CVTPAGE1 FIELD UNUSED IN 01853000 * MVS ** (MDC112) @Z40AQ9A*/ 01854000 * 2 CVTRV321 PTR(31), /* ** CVTPGSUP FIELD UNUSED IN 01855000 * MVS ** (MDC113) @Z40AQ9A*/ 01856000 * 2 CVTSLIDA CHAR(4) BDY(WORD), /* IDENTITY OF TCB CAUSING 0449 01857000 * SUPERVISOR LOCK BYTE (CVTSYLK) 01858000 * TO BE SET OR IDENTITY OF TCB 01859000 * THAT SECOND EXIT PROCESSING 01860000 * IS FOR WHEN CVTSEIC=1 */ 01861000 * 3 CVTSYLK CHAR(1), /* SUPERVISOR LOCK. ONLY 0449 01862000 * ENABLED TASKS MAY BE 0449 01863000 * DISPATCHED */ 01864000 * 3 CVTSLID CHAR(3), /* SAME AS CVTSLIDA ABOVE */ 01865000 * 2 CVTRV322 PTR(31), /* RESERVED FOR FUTURE USE 0449 01866000 * (MDC343) @Z40AQ9A*/ 01867000 * 2 CVTRV328 PTR(31), /* ** CVTSEG AND CVTSEGA FIELDS 01868000 * UNUSED IN MVS ** 0449 01869000 * (MDC139) @Z40AQ9A*/ 01870000 * 2 CVTRV329 PTR(31), /* ** CVTSEGB FIELD UNUSED IN 0449 01871000 * MVS ** (MDC141) @Z40AQ9A*/ 01872000 * 2 CVTRV330 PTR(31), /* ** CVTSEGC AND SUBFIELDS 0449 01873000 * UNUSED IN MVS ** 0449 01874000 * (MDC142) @Z40AQ9A*/ 01875000 * 2 CVTRV331 PTR(31), /* ** CVTSEGD AND SUBFIELDS 0449 01876000 * UNUSED IN MVS ** 0449 01877000 * (MDC145) @Z40AQ9A*/ 01878000 * 2 CVTRSV77 PTR(8), /* RESERVED */ 01879000 * 2 CVTSPVLK PTR(8), /* NUMBER OF TASKS WHICH HAVE 0449 01880000 * TERMINATED WHILE OWNING 0449 01881000 * SUPERVISOR LOCK WITHOUT 0449 01882000 * OPERATOR HAVING YET BEEN 0449 01883000 * NOTIFIED */ 01884000 * 2 CVTCTLFG CHAR(1), /* SYSTEM CONTROL FLAGS */ 01885000 * 3 CVTRV323 BIT(1), /* ** CVTPSIC BIT UNUSED IN 0449 01886000 * MVS ** (MDC118) @Z40AQ9A*/ 01887000 * 3 CVTRV333 BIT(1), /* ** CVTAPGB BIT UNUSED IN 0449 01888000 * MVS ** (MDC151) @Z40AQ9A*/ 01889000 * 3 CVTRSV78 BIT(1), /* RESERVED ICB382*/ 01890000 * 3 CVTDSTAT BIT(1), /* DEVSTAT OPTION IN EFFECT. 0449 01891000 * DEVICE ADDRESS FOR 2319, 0449 01892000 * 3330, 2314, 3330-1, 3340 CAN 01893000 * VARY ACROSS SYSTEMS MDC189*/ 01894000 * 3 CVTRSV79 BIT(1), /* RESERVED */ 01895000 * 3 CVTNOMP BIT(1), /* MULTIPROCESSING CODE IS NOT 01896000 * IN THE SYSTEM MDC176*/ 01897000 * 3 CVTGTRCE BIT(1), /* GENERALIZED TRACE FACILITY 0449 01898000 * (GTF) HAS SUPPRESSED 0449 01899000 * SUPERVISOR TRACE ICB446*/ 01900000 * 3 CVTSDTRC BIT(1), /* SVC DUMP HAS SUPPRESSED 0449 01901000 * SUPERVISOR TRACE ICB446*/ 01902000 * 2 CVTAPG CHAR(1), /* DISPATCHING PRIORITY OF 0449 01903000 * AUTOMATIC PRIORITY GROUP 0449 01904000 * (APG) ICB339*/ 01905000 * 2 CVTTRACE CHAR(2) BDY(WORD), /* BRANCH ON REGISTER 0449 01906000 * INSTRUCTION. SET BY NIP. 0449 01907000 * REGISTER TEN FOR TRACE. 0449 01908000 * REGISTER ELEVEN FOR NO TRACE.*/ 01909000 * 2 CVTTRAC2 CHAR(2) BDY(WORD,3), /* BRANCH ON REGISTER 11 0449 01910000 * INSTRUCTION. THIS ALLOWS FOR 01911000 * SUPPRESSING TRACE DYNAMICALLY 01912000 * BY SETTING CONDITION CODE 0449 01913000 * MASK TO ZERO IN FIRST 0449 01914000 * INSTRUCTION (CVTTRACE) */ 01915000 * 2 CVTRSCN PTR(31), /* ADDRESS OF ROUTINE TO SCAN 0449 01916000 * TCB TREE */ 01917000 * 2 CVTTAS PTR(31), /* ADDRESS OF ROUTINE TO 0449 01918000 * TRANSFER ADDRESS SPACE */ 01919000 * 2 CVTRV332 PTR(31), /* ** CVTPVALD FIELD UNUSED IN 01920000 * MVS ** (MDC148) @Z40AQ9A*/ 01921000 * 2 CVTSHRVM PTR(31), /* LOWEST ADDRESS OF SHARED 0449 01922000 * VIRTUAL STORAGE AREA. THIS 01923000 * ADDRESS WILL BE THE 0449 01924000 * BEGINNING OF THE COMMON 0449 01925000 * SERVICE AREA (CSA) 0449 01926000 * (MDC324) @Z30AQ9A*/ 01927000 * 2 CVT0VL01 PTR(31), /* ENTRY POINT ADDRESS OF 0449 01928000 * VALIDITY CHECK ROUTINE 0449 01929000 * (IEA0VL01) USED TO COMPARE 0449 01930000 * PROTECT KEY OF AN ADDRESS 0449 01931000 * WITH TCB PROTECT KEY. */ 01932000 * 2 CVTRV324 PTR(31), /* ** CVTPFIXQ FIELD UNUSED IN 01933000 * MVS ** (MDC119) @Z40AQ9A*/ 01934000 * 2 CVTRV325 PTR(31), /* ** CVTPFIXR FIELD UNUSED IN 01935000 * MVS ** (MDC120) @Z40AQ9A*/ 01936000 * 2 CVTRV326 PTR(31), /* ** CVTPFIXP FIELD UNUSED IN 01937000 * MVS ** (MDC121) @Z40AQ9A*/ 01938000 * 2 CVTASCRF PTR(31), /* CREATED ASCB QUEUE HEADER 0449 01939000 * (MDC337) @ZA04120*/ 01940000 * 2 CVTASCRL PTR(31), /* CREATED ASCB QUEUE TRAILER 0449 01941000 * (MDC338) @ZA04120*/ 01942000 * 2 CVTPUTL PTR(31), /* ADDRESS OF IKJPUTL, TSO PUT 01943000 * LINE ROUTINE (MDC207) YM2225*/ 01944000 * 2 CVTSRBRT PTR(31), /* DISPATCHER RETURN ADDRESS FOR 01945000 * SRB ROUTINES MDC130*/ 01946000 * 2 CVTOLT0A PTR(31), /* BRANCH ENTRY TO OLTEP MEMORY 01947000 * TERMINATION RESOURCE MANAGER 01948000 * MDC129*/ 01949000 * 2 CVTSMFEX PTR(31), /* BRANCH ENTRY TO SYSTEM 0449 01950000 * MANAGEMENT FACILITIES (SMF) 01951000 * EXCP COUNTING ROUTINE FOR 0449 01952000 * VAM WINDOW INTERCEPT MDC133*/ 01953000 * 2 CVTCSPIE PTR(31), /* FOR CHECKPOINT/RESTART, BRANCH 01954000 * ENTRY TO SPIE MDC149*/ 01955000 * 2 CVTPTGT PTR(31), /* ADDRESS OF IKJPTGT, TSO 0449 01956000 * PUTGET ROUTINE (MDC208) 0449 01957000 * YM2225*/ 01958000 * 2 CVTIOSPL PTR(8), /* PRIORITY LEVEL OF I/O 0449 01959000 * SUPERVISOR CHANNEL SCHEDULER 01960000 * MDC019*/ 01961000 * 2 CVTRV513 CHAR(1), /* RESERVED MDC165*/ 01962000 * 2 CVTDSSAC CHAR(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 01963000 * ACTIVATED FLAG - USED BY 0449 01964000 * RESTART FLIH. IF X'00', DSS 01965000 * NOT INITIALIZED. IF X'FF', 01966000 * DSS HAS BEEN INITIALIZED. 0449 01967000 * MDC163*/ 01968000 * 2 CVTRV139 PTR(8), /* RESERVED */ 01969000 * 2 CVTSTCK PTR(31), /* ADDRESS OF IKJSTCK, TSO STACK 01970000 * ROUTINE (MDC209) YM2225*/ 01971000 * 2 CVTMAXMP PTR(15), /* FOR MEASUREMENT FACILITY 0449 01972000 * (MF/1), MAXIMUM PHYSICAL 0449 01973000 * CPU ADDRESS SUPPORTED BY 0449 01974000 * THIS RELEASE MDC165*/ 01975000 * 2 CVTRV144 FIXED(15), /* RESERVED */ 01976000 * 2 CVTSCAN PTR(31), /* ADDRESS OF IKJSCAN, TSO SCAN 01977000 * ROUTINE (MDC210) YM2225*/ 01978000 * 2 CVTAUTHL PTR(31), /* POINTER TO AUTHORIZED 0449 01979000 * LIBRARY TABLE MDC001*/ 01980000 * 2 CVTBLDCP PTR(31), /* BRANCH ENTRY TO BUILD POOL 0449 01981000 * MDC003*/ 01982000 * 2 CVTGETCL PTR(31), /* BRANCH ENTRY TO GET CELL 0449 01983000 * MDC004*/ 01984000 * 2 CVTFRECL PTR(31), /* BRANCH ENTRY TO FREE CELL 0449 01985000 * MDC005*/ 01986000 * 2 CVTDELCP PTR(31), /* BRANCH ENTRY TO DELETE POOL 01987000 * MDC006*/ 01988000 * 2 CVTCRMN PTR(31), /* BRANCH ENTRY TO SVC 120 0449 01989000 * (GETMAIN/FREEMAIN:CRBRANCH) 01990000 * MDC007*/ 01991000 * 2 CVTCRAS PTR(31), /* BRANCH ENTRY TO 'CREATE 0449 01992000 * ADDRESS SPACE' MDC008*/ 01993000 * 2 CVTQSAS PTR(31), /* BRANCH ENTRY TO TASK 0449 01994000 * TERMINATION MDC009*/ 01995000 * 2 CVTFRAS PTR(31), /* BRANCH ENTRY TO FREE 0449 01996000 * ADDRESS SPACE MDC010*/ 01997000 * 2 CVTS1EE PTR(31), /* BRANCH ENTRY TO STAGE 1 EXIT 01998000 * EFFECTOR MDC011*/ 01999000 * 2 CVTPARS PTR(31), /* ADDRESS OF IKJPARS, TSO PARSE 02000000 * ROUTINE (MDC211) YM2225*/ 02001000 * 2 CVTQUIS PTR(31), /* BRANCH ENTRY TO QUIESCE 0449 02002000 * MDC013*/ 02003000 * 2 CVTSTXU PTR(31), /* BRANCH ENTRY TO ATTENTION 0449 02004000 * EXIT EPILOGUE MDC014*/ 02005000 * 2 CVTOPTE PTR(31), /* BRANCH ENTRY ADDRESS TO 0449 02006000 * SYSEVENT MDC015*/ 02007000 * 2 CVTSDRM PTR(31), /* BRNACH ENTRY ADDRESS OF THE 02008000 * RESOURCE MANAGER ROUTINE FOR 02009000 * SVC DUMP. THIS ROUTINE CAN 02010000 * BE INVOKED BY MEMORY 0449 02011000 * TERMINATION MDC077*/ 02012000 * 2 CVTIOSCS PTR(31), /* ENTRY POINT OF I/O SUPERVISOR 02013000 * CHANNEL SCHEDULER MDC018*/ 02014000 * 2 CVTAQTOP PTR(31), /* POINTER TO AREA CONTAINING 0449 02015000 * QUIESCE DESCRIPTOR BLOCK 0449 02016000 * (QDB'S) FOR DEVICE ALLOCATION 02017000 * MDC021*/ 02018000 * 2 CVTVVMDI PTR(31), /* CONSTANT USED BY PAGED LINK 02019000 * PACK AREA (LPA) DIRECTORY 0449 02020000 * SEARCH ALGORITHM MDC022*/ 02021000 * 2 CVTASVT PTR(31), /* POINTER TO ADDRESS SPACE 0449 02022000 * VECTOR TABLE (ASVT) MDC070*/ 02023000 * 2 CVTGDA PTR(31), /* POINTER TO GLOBAL DATA AREA 02024000 * (GDA) IN SQA MDC024*/ 02025000 * 2 CVTASCBH PTR(31), /* POINTER TO HIGHEST PRIORITY 02026000 * ADDRESS SPACE CONTROL BLOCK 02027000 * (ASCB) ON THE ASCB 0449 02028000 * DISPATCHING QUEUE (HEAD OF 0449 02029000 * ASCB QUEUE) MDC027*/ 02030000 * 2 CVTASCBL PTR(31), /* POINTER TO LOWEST PRIORITY 0449 02031000 * ASCB ON ASCB DISPATCHING QUEUE 02032000 * MDC028*/ 02033000 * 2 CVTRTMCT PTR(31), /* POINTER TO RECOVERY/TERMINATION 02034000 * CONTROL TABLE MDC031*/ 02035000 * 2 CVTSV60 PTR(31), /* ADDRESS OF SVC 60 BRANCH ENTRY 02036000 * POINT (MDC354) @Z40FP9A*/ 02037000 * 2 CVTSDMP PTR(31), /* ADDRESS OF SVC DUMP BRANCH 0449 02038000 * ENTRY POINT MDC033*/ 02039000 * 2 CVTSCBP PTR(31), /* ADDRESS OF SCB PURGE RESOURCE 02040000 * MANAGER MDC034*/ 02041000 * 2 CVTSDBF PTR(31), /* ADDRESS OF 4K SQA BUFFER USED 02042000 * BY SVC DUMP. HIGH ORDER BIT 02043000 * OF THIS CVT WORD IS USED AS 02044000 * LOCK TO INDICATE BUFFER IS IN 02045000 * USE MDC035*/ 02046000 * 2 CVTRTMS PTR(31), /* RTM1 INTERNAL SERVICABILITY 02047000 * LEVEL INDICATOR MDC036*/ 02048000 * 2 CVTTPIOS PTR(31), /* ADDRESS OF THE TELEPROCESSING 02049000 * I/O SUPERV1SOR ROUTINE 0449 02050000 * (TPIOS) MDC078*/ 02051000 * 2 CVTSIC PTR(31), /* BRANCH ENTRY ADDRESS OF THE 02052000 * ROUTINE TO SCHEDULE SYSTEM 0449 02053000 * INITIALIZED CANCEL MDC042*/ 02054000 * 2 CVTOPCTP PTR(31), /* ADDRESS OF SYSTEM RESOURCES 02055000 * MANAGER (SRM) CONTROL TABLE 02056000 * MDC043*/ 02057000 * 2 CVTEXPRO PTR(31), /* ADDRESS OF EXIT PROLOGUE/TYPE 02058000 * 1 EXIT MDC044*/ 02059000 * 2 CVTGSMQ PTR(31), /* ADDRESS OF GLOBAL SERVICE 0449 02060000 * MANAGER QUEUE MDC045*/ 02061000 * 2 CVTLSMQ PTR(31), /* ADDRESS OF LOCAL SERVICE 0449 02062000 * MANAGER QUEUE MDC046*/ 02063000 * 2 CVTGSPL PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0449 02064000 * PRIORITY LIST QUEUE MDC047*/ 02065000 * 2 CVTVWAIT PTR(31), /* ADDRESS OF WAIT ROUTINE 0449 02066000 * MDC048*/ 02067000 * 2 CVTPARRL PTR(31), /* ADDRESS OF PARTIALLY LOADED 02068000 * DELETE QUEUE MDC049*/ 02069000 * 2 CVTAPFT PTR(31), /* ADDRESS OF AUTHORIZED PROGRAM 02070000 * FACILITY (APF) TABLE. 0449 02071000 * INITIALIZED BY NIP. MDC050*/ 02072000 * 2 CVTQCS01 PTR(31), /* BRANCH ENTRY ADDRESS TO 0449 02073000 * PROGRAM MANAGER USED BY 0449 02074000 * ATTACH MDC051*/ 02075000 * 2 CVTFQCB PTR(31), /* POINTER TO FIRST MAJOR QCB 0449 02076000 * FOR ENQ MDC052*/ 02077000 * 2 CVTLQCB PTR(31), /* POINTER TO LAST MAJOR QCB 0449 02078000 * FOR ENQ MDC053*/ 02079000 * 2 CVTRENQ PTR(31), /* RESOURCE MANAGER ADDRESS 0449 02080000 * FOR ENQ MDC054*/ 02081000 * 2 CVTRSPIE PTR(31), /* RESOURCE MANAGER FOR SPIE 0449 02082000 * MDC055*/ 02083000 * 2 CVTLKRMA PTR(31), /* RESOURCE MANAGER ADDRESS FOR 02084000 * LOCK MANAGER MDC056*/ 02085000 * 2 CVTCSD PTR(31), /* VIRTUAL ADDRESS OF COMMON 0449 02086000 * SYSTEM DATA AREA (CSD). 0449 02087000 * INITIALIZED BY NIP. MDC057*/ 02088000 * 2 CVTDQIQE PTR(31), /* RESOURCE MANAGER FOR EXIT 0449 02089000 * EFFECTORS MDC058*/ 02090000 * 2 CVTRPOST PTR(31), /* RESOURCE MANAGER FOR POST 0449 02091000 * MDC059*/ 02092000 * 2 CVT062R1 PTR(31), /* BRANCH ENTRY TO DETACH MDC060*/ 02093000 * 2 CVTVEAC0 PTR(31), /* ASCBCHAP BRANCH ENTRY MDC061*/ 02094000 * 2 CVTGLMN PTR(31), /* GLOBAL BRANCH ENTRY ADDRESS 02095000 * FOR GETMAIN/FREEMAIN MDC062*/ 02096000 * 2 CVTSPSA PTR(31), /* POINTER TO GLOBAL WORK/SAVE 02097000 * AREA VECTOR TABLE (WSAG) 0449 02098000 * MDC071*/ 02099000 * 2 CVTWSAL PTR(31), /* ADDRESS OF TABLE OF LENGTHS 02100000 * OF LOCAL WORK/SAVE AREAS 0449 02101000 * MDC072*/ 02102000 * 2 CVTRV149 PTR(31), /* RESERVED (MDC073) YM4043*/ 02103000 * 2 CVTWSAC PTR(31), /* ADDRESS OF TABLE OF LENGTHS 02104000 * OF CPU WORK/SAVE AREAS MDC074*/ 02105000 * 2 CVTRECRQ PTR(31), /* ADDRESS OF THE RECORDING 0449 02106000 * REQUEST FACILITY (PART OF 0449 02107000 * RTM1 - CALLED BY RTM2 AND 0449 02108000 * RMS) MDC075*/ 02109000 * 2 CVTASMVT PTR(31), /* POINTER TO AUXILIARY STORAGE 02110000 * MANAGEMENT VECTOR TABLE 0449 02111000 * (AMVT) MDC076*/ 02112000 * 2 CVTIOBP PTR(31), /* ADDRESS OF THE BLOCK PROCESSOR 02113000 * CVT MDC079*/ 02114000 * 2 CVTSPOST PTR(31), /* POST RESOURCE MANAGER 0449 02115000 * TERMINATION ROUTINE (RMTR) 0449 02116000 * ENTRY POINT MDC085*/ 02117000 * 2 CVTRSTWD FIXED(31), /* RESTART RESOURCE MANAGEMENT 02118000 * WORD - CONTAINS IDENTIFIER OF 02119000 * USER IF RESTART IS IN USE. 0449 02120000 * OTHERWISE, ZERO. MDC161*/ 02121000 * 2 CVTFETCH PTR(31), /* ADDRESS OF ENTRY POINT FOR 0449 02122000 * BASIC FETCH MDC196*/ 02123000 * 2 CVT044R2 PTR(31), /* ADDRESS OF IGC044R2 IN CHAP 02124000 * SERVICE ROUTINE MDC197*/ 02125000 * 2 CVTPERFM PTR(31), /* ADDRESS OF THE PERFORMANCE 0449 02126000 * WORK AREA. SET BY IGX00018. 02127000 * MDC205*/ 02128000 * 2 CVTDAIR PTR(31), /* ADDRESS OF IKJDAIR, TSO 0449 02129000 * DYNAMIC ALLOCATION INTERFACE 02130000 * ROUTINE (MDC212) YM2225*/ 02131000 * 2 CVTEHDEF PTR(31), /* ADDRESS OF IKJEHDEF, TSO 0449 02132000 * DEFAULT SERVICE ROUTINE 0449 02133000 * (MDC213) YM2225*/ 02134000 * 2 CVTEHCIR PTR(31), /* ADDRESS OF IKJEHCIR, TSO 0449 02135000 * CATALOG INFORMATION ROUTINE 02136000 * (MDC214) YM2225*/ 02137000 * 2 CVTSSAP PTR(31), /* ADDRESS OF SYSTEM SAVE AREA 02138000 * MDC063*/ 02139000 * 2 CVTAIDVT PTR(31), /* POINTER TO APPENDAGE ID 0449 02140000 * VECTOR TABLE MDC064*/ 02141000 * 2 CVTIPCDS PTR(31), /* BRANCH ENTRY FOR DIRECT 0449 02142000 * SIGNAL SERVICE ROUTINE MDC065*/ 02143000 * 2 CVTIPCRI PTR(31), /* BRANCH ENTRY FOR REMOTE 0449 02144000 * IMMEDIATE SIGNAL SERVICE 0449 02145000 * ROUTINE MDC066*/ 02146000 * 2 CVTIPCRP PTR(31), /* BRANCH ENTRY FOR REMOTE 0449 02147000 * PENDABLE SIGNAL SERVICE 0449 02148000 * ROUTINE MDC067*/ 02149000 * 2 CVTPCCAT PTR(31), /* POINTER TO PHYSICAL CCA VECTOR 02150000 * TABLE MDC068*/ 02151000 * 2 CVTLCCAT PTR(31), /* POINTER TO LOGICAL CCA VECTOR 02152000 * TABLE MDC069*/ 02153000 * 2 CVTRV210 BIT(8), /* RESERVED */ 02154000 * 3 CVTRV211 BIT(1), /* RESERVED */ 02155000 * 3 CVTRV212 BIT(1), /* RESERVED */ 02156000 * 3 CVTRV213 BIT(1), /* RESERVED */ 02157000 * 3 CVTRV214 BIT(1), /* RESERVED */ 02158000 * 3 CVTRV215 BIT(1), /* RESERVED */ 02159000 * 3 CVTRV216 BIT(1), /* RESERVED */ 02160000 * 3 CVTRV217 BIT(1), /* RESERVED */ 02161000 * 3 CVTRV218 BIT(1), /* RESERVED */ 02162000 * 2 CVTRV219 BIT(8), /* RESERVED */ 02163000 * 3 CVTRV220 BIT(1), /* RESERVED */ 02164000 * 3 CVTRV221 BIT(1), /* RESERVED */ 02165000 * 3 CVTRV222 BIT(1), /* RESERVED */ 02166000 * 3 CVTRV223 BIT(1), /* RESERVED */ 02167000 * 3 CVTRV224 BIT(1), /* RESERVED */ 02168000 * 3 CVTRV225 BIT(1), /* RESERVED */ 02169000 * 3 CVTRV226 BIT(1), /* RESERVED */ 02170000 * 3 CVTRV227 BIT(1), /* RESERVED */ 02171000 * 2 CVTRV228 BIT(8), /* RESERVED */ 02172000 * 3 CVTRV229 BIT(1), /* RESERVED */ 02173000 * 3 CVTRV230 BIT(1), /* RESERVED */ 02174000 * 3 CVTRV231 BIT(1), /* RESERVED */ 02175000 * 3 CVTRV232 BIT(1), /* RESERVED */ 02176000 * 3 CVTRV233 BIT(1), /* RESERVED */ 02177000 * 3 CVTRV234 BIT(1), /* RESERVED */ 02178000 * 3 CVTRV235 BIT(1), /* RESERVED */ 02179000 * 3 CVTRV236 BIT(1), /* RESERVED */ 02180000 * 2 CVTRV237 BIT(8), /* RESERVED */ 02181000 * 3 CVTRV238 BIT(1), /* RESERVED */ 02182000 * 3 CVTRV239 BIT(1), /* RESERVED */ 02183000 * 3 CVTRV240 BIT(1), /* RESERVED */ 02184000 * 3 CVTRV241 BIT(1), /* RESERVED */ 02185000 * 3 CVTRV242 BIT(1), /* RESERVED */ 02186000 * 3 CVTRV243 BIT(1), /* RESERVED */ 02187000 * 3 CVTRV244 BIT(1), /* RESERVED */ 02188000 * 3 CVTRV245 BIT(1), /* RESERVED */ 02189000 * 2 CVTRV246 PTR(8), /* RESERVED */ 02190000 * 2 CVTRV247 PTR(8), /* RESERVED */ 02191000 * 2 CVTRV248 PTR(8), /* RESERVED */ 02192000 * 2 CVTRV249 PTR(8), /* RESERVED */ 02193000 * 2 CVTRV250 PTR(8), /* RESERVED */ 02194000 * 2 CVTRV251 PTR(8), /* RESERVED */ 02195000 * 2 CVTRV252 PTR(15), /* RESERVED */ 02196000 * 2 CVTRV253 FIXED(15), /* RESERVED */ 02197000 * 2 CVTRV254 FIXED(15), /* RESERVED */ 02198000 * 2 CVTPWI PTR(31), /* ADDRESS OF THE WINDOW 0449 02199000 * INTERCEPT ROUTINE MDC104*/ 02200000 * 2 CVTPVBP PTR(31), /* ADDRESS OF THE VIRTUAL BLOCK 02201000 * PROCESSOR MDC105*/ 02202000 * 2 CVTMFCTL PTR(31), /* POINTER TO MEASUREMENT 0449 02203000 * FACILITY CONTROL BLOCK MDC100*/ 02204000 * 2 CVTMFRTR PTR(31), /* IF MEASUREMENT FACILITY IS 0449 02205000 * ACTIVE, CONTAINS ADDRESS OF 02206000 * MEASUREMENT FACILITY ROUTER. 02207000 * OTHERWISE, ADDRESS OF 0449 02208000 * CVTBRET. MDC101*/ 02209000 * 3 CVTMFACT BIT(1), /* IF ONE, I/O SUPERVISOR AND 0449 02210000 * TIMER SECOND LEVEL INTERRUPT 02211000 * HANDLER HOOKS BRANCH TO 0449 02212000 * MEASUREMENT FACILITY ROUTER 02213000 * MDC102*/ 02214000 * 2 CVTVPSIB PTR(31), /* BRANCH ENTRY TO PAGE SERVICES 02215000 * MDC108*/ 02216000 * 2 CVTVSI PTR(31), /* BRANCH ENTRY TO VAM SERVICES 02217000 * MDC109*/ 02218000 * 2 CVTVFP PTR(31), /* BRANCH ENTRY TO FINDPAGE 0449 02219000 * MDC110*/ 02220000 * 2 CVTRV262 BIT(8), /* RESERVED */ 02221000 * 3 CVTRV263 BIT(1), /* RESERVED */ 02222000 * 3 CVTRV264 BIT(1), /* RESERVED */ 02223000 * 3 CVTRV265 BIT(1), /* RESERVED */ 02224000 * 3 CVTRV266 BIT(1), /* RESERVED */ 02225000 * 3 CVTRV267 BIT(1), /* RESERVED */ 02226000 * 3 CVTRV268 BIT(1), /* RESERVED */ 02227000 * 3 CVTRV269 BIT(1), /* RESERVED */ 02228000 * 3 CVTRV270 BIT(1), /* RESERVED */ 02229000 * 2 CVTRV271 BIT(8), /* RESERVED */ 02230000 * 3 CVTRV272 BIT(1), /* RESERVED */ 02231000 * 3 CVTRV273 BIT(1), /* RESERVED */ 02232000 * 3 CVTRV274 BIT(1), /* RESERVED */ 02233000 * 3 CVTRV275 BIT(1), /* RESERVED */ 02234000 * 3 CVTRV276 BIT(1), /* RESERVED */ 02235000 * 3 CVTRV277 BIT(1), /* RESERVED */ 02236000 * 3 CVTRV278 BIT(1), /* RESERVED */ 02237000 * 3 CVTRV279 BIT(1), /* RESERVED */ 02238000 * 2 CVTRV280 BIT(8), /* RESERVED */ 02239000 * 3 CVTRV281 BIT(1), /* RESERVED */ 02240000 * 3 CVTRV282 BIT(1), /* RESERVED */ 02241000 * 3 CVTRV283 BIT(1), /* RESERVED */ 02242000 * 3 CVTRV284 BIT(1), /* RESERVED */ 02243000 * 3 CVTRV285 BIT(1), /* RESERVED */ 02244000 * 3 CVTRV286 BIT(1), /* RESERVED */ 02245000 * 3 CVTRV287 BIT(1), /* RESERVED */ 02246000 * 3 CVTRV288 BIT(1), /* RESERVED */ 02247000 * 2 CVTRV289 BIT(8), /* RESERVED */ 02248000 * 3 CVTRV290 BIT(1), /* RESERVED */ 02249000 * 3 CVTRV291 BIT(1), /* RESERVED */ 02250000 * 3 CVTRV292 BIT(1), /* RESERVED */ 02251000 * 3 CVTRV293 BIT(1), /* RESERVED */ 02252000 * 3 CVTRV294 BIT(1), /* RESERVED */ 02253000 * 3 CVTRV295 BIT(1), /* RESERVED */ 02254000 * 3 CVTRV296 BIT(1), /* RESERVED */ 02255000 * 3 CVTRV297 BIT(1), /* RESERVED */ 02256000 * 2 CVTTRCA PTR(31), /* ADDRESS OF TRACE TABLE 0449 02257000 * HEADER (MDC327) @ZA02352*/ 02258000 * 2 CVTRV302 PTR(15), /* RESERVED */ 02259000 * 2 CVTRV303 PTR(15), /* RESERVED */ 02260000 * 2 CVTRV304 FIXED(15), /* RESERVED */ 02261000 * 2 CVTRV305 FIXED(15), /* RESERVED */ 02262000 * 2 CVTRV306 FIXED(15), /* RESERVED */ 02263000 * 2 CVTRV307 FIXED(15), /* RESERVED */ 02264000 * 2 CVTVIOP PTR(31), /* ENTRY POINT OF PAGE I/O POST 02265000 * MDC111*/ 02266000 * 2 CVTRMBR PTR(31), /* ADDRESS OF REGMAIN BRANCH 0449 02267000 * ENTRY MDC123*/ 02268000 * 2 CVTLFRM PTR(31), /* LIST FORMAT FREEMAIN BRANCH 02269000 * ENTRY POINT MDC124*/ 02270000 * 2 CVTGMBR PTR(31), /* LIST FORMAT GETMAIN BRANCH 0449 02271000 * ENTRY POINT MDC125*/ 02272000 * 2 CVT0TC0A PTR(31), /* ADDRESS OF TASK CLOSE MODULE 02273000 * IFG0TC0A MDC128*/ 02274000 * 2 CVTRLSTG FIXED(31), /* SIZE OF ACTUAL REAL STORAGE 02275000 * ONLINE AT IPL TIME IN 'K'. 0449 02276000 * VALUE PLACED HERE BY IEAVNIP0. 02277000 * MDC153*/ 02278000 * 2 CVTSPFRR PTR(31), /* 'SUPER FRR' ADDRESS (ADDRESS 02279000 * OF FUNCTIONAL RECOVERY 0449 02280000 * ROUTINE ESTABLISHED AT NIP0 02281000 * TIME TO PROTECT SUPERVISOR 0449 02282000 * CONTROL PROGRAM) MDC154*/ 02283000 * 2 CVTVEMS0 PTR(31), /* ADDRESS OF MEMORY SWITCH 0449 02284000 * ROUTINE MDC155*/ 02285000 * 2 CVTJRECM PTR(31), /* ADDRESS OF SUBSYSTEM 0449 02286000 * INTERFACE RESOURCE MANAGER 0449 02287000 * MDC157*/ 02288000 * 2 CVTIRECM PTR(31), /* ADDRESS OF INITIATOR 0449 02289000 * RESOURCE MANAGER MDC158*/ 02290000 * 2 CVTDARCM PTR(31), /* ADDRESS OF DEVICE ALLOCATION 02291000 * RESOURCE MANAGER MDC159*/ 02292000 * 2 CVT0PT02 PTR(31), /* ADDRESS OF POST ENTRY POINT 02293000 * IEA0PT02 MDC160*/ 02294000 * 2 CVTSTPRS PTR(31), /* ENTRY POINT OF STOP AND 0449 02295000 * RESTART SUBROUTINE MDC162*/ 02296000 * 2 CVTWTCB PTR(31), /* ADDRESS OF WAIT STATE TCB 0449 02297000 * MDC164*/ 02298000 * 2 CVTVACR PTR(31), /* ACR/VARY CPU CHANNEL RECOVERY 02299000 * ROUTINE ADDRESS. ADDRESS 0449 02300000 * FILLED IN BY VARY CPU 0449 02301000 * PROCESSOR. MDC178*/ 02302000 * 2 CVTQUIT PTR(31), /* VARY CPU SHUTDOWN ROUTINE 0449 02303000 * ADDRESS. ADDRESS FILLED IN 02304000 * BY VARY CPU PROCESSOR. MDC179*/ 02305000 * 2 CVTGTFR8 PTR(31), /* GENERALIZED TRACE FACILITY 0449 02306000 * (GTF) CONTROL REGISTER 8 0449 02307000 * INITIALIZATION ROUTINE 0449 02308000 * ADDRESS MDC180*/ 02309000 * 2 CVTVSTOP PTR(31), /* ADDRESS OF VARY CPU STOP CPU 02310000 * ROUTINE MDC169*/ 02311000 * 2 CVTVPSA PTR(31), /* ADDRESS OF COPY OF SYSGEN'ED 02312000 * PSA - PLACED HERE BY NIP 0449 02313000 * MDC170*/ 02314000 * 2 CVTRMPTT PTR(31), /* ADDRESS OF ISTRAMA1, THE VTAM 02315000 * RESOURCE MANAGER FOR NORMAL 02316000 * AND ABNORMAL TASK TERMINATION 02317000 * (MDC322) @Z30AP9A*/ 02318000 * 2 CVTRMPMT PTR(31), /* ADDRESS OF ISTRAMA2, THE VTAM 02319000 * RESOURCE MANAGER FOR NORMAL 02320000 * AND ABNORMAL MEMORY 0449 02321000 * TERMINATION (MDC323) @Z30AP9A*/ 02322000 * 2 CVTEXP1 PTR(31), /* ADDRESS OF EXIT PROLOGUE 0449 02323000 * WHICH RETURNS TO THE 0449 02324000 * DISPATCHER MDC173*/ 02325000 * 2 CVTCSDRL PTR(31), /* REAL ADDRESS OF COMMON SYSTEM 02326000 * DATA AREA (CSD). INITIALIZED 02327000 * BY NIP. MDC174*/ 02328000 * 2 CVTSSRB PTR(31), /* STATUS STOP SRB ENTRY MDC175*/ 02329000 * 2 CVTRPT PTR(31), /* ADDRESS OF IGARPT01 MODULE OF 02330000 * RADIX PARTITION TREE SERVICES. 02331000 * INITIALIZED BY NIP. MDC177*/ 02332000 * 2 CVTQV1 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 02333000 * FOR SINGLE THREADED QUEUES 0449 02334000 * WITH HEADERS ONLY MDC181*/ 02335000 * 2 CVTQV2 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 02336000 * FOR SINGLE THREADED QUEUES 0449 02337000 * WITH HEADER AND TRAILER 0449 02338000 * MDC182*/ 02339000 * 2 CVTQV3 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 02340000 * FOR DOUBLE THREADED QUEUES 0449 02341000 * MDC183*/ 02342000 * 2 CVTGSDA PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0449 02343000 * DUPLEX AREA. ADDRESS FILLED 02344000 * IN BY NIP0. MDC184*/ 02345000 * 3 CVTGSDAB BIT(1), /* IF HIGH-ORDER BIT IS ONE, 0449 02346000 * THERE IS A VALID VALUE IN 0449 02347000 * FOLLOWING 31 BITS MDC185*/ 02348000 * 2 CVTADV PTR(31), /* ADDRESS OF ADDRESS 0449 02349000 * VERIFICATION ROUTINE MDC186*/ 02350000 * 2 CVTTPIO PTR(31), /* ADDRESS OF VTAM TPIO (SVC 0449 02351000 * 124) ROUTINE MDC193*/ 02352000 * 2 CVTCRCA PTR(31), /* WHEN CHANNEL RECONFIGURATION 02353000 * HARDWARE (CRH) IS ACTIVE, 0449 02354000 * ADDRESS OF CRH COMMUNICATION 02355000 * AREA IECVCRCA. OTHERWISE, 0449 02356000 * ZERO. (MDC306) @Z30CQ9A*/ 02357000 * 2 CVTEVENT PTR(31), /* BRANCH ENTRY ADDRESS TO 0449 02358000 * EVENTS (FAST MULTIPLE WAIT 0449 02359000 * ROUTINE) (MDC316) @Z30HP9A*/ 02360000 * 2 CVTSSCR PTR(31), /* ADDRESS OF STORAGE SYSTEM 0449 02361000 * CONTROLLER RECOVERY MANAGER 02362000 * CLEANUP ROUTINE (SSC RMCR) 0449 02363000 * (MDC319) @Z30LP9A*/ 02364000 * 2 CVTCBBR PTR(31), /* BRANCH ENTRY ADDRESS TO 0449 02365000 * GETMAIN/FREEMAIN 0449 02366000 * (MDC325) @Z30EN9A*/ 02367000 * 2 CVTEFF02 PTR(31), /* ADDRESS OF IKJEFF02, TSO 0449 02368000 * MESSAGE ISSUER SERVICE 0449 02369000 * ROUTINE (MDC326) @ZM30972*/ 02370000 * 2 CVTRV604 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02371000 * 2 CVTRV605 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02372000 * 2 CVTRV606 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02373000 * 2 CVTRAC PTR(31), /* ADDRESS OF ACCESS CONTROL CVT 02374000 * (MDC320) @Z40RP9A*/ 02375000 * 2 CVTCGK PTR(31), /* ADDRESS OF ROUTINE USED TO 0449 02376000 * CHANGE THE KEY OF VIRTUAL 0449 02377000 * PAGES (MDC331) @Z40EP9A*/ 02378000 * 2 CVTRV609 PTR(31), /* RESERVED (MDC332) @Z40AQ9A*/ 02379000 * 2 CVT0PT0E PTR(31), /* ENTRY POINT TO IDENTIFY POST 02380000 * EXIT ROUTINES 0449 02381000 * (MDC334) @Z40EP9A*/ 02382000 * 2 CVT0PT03 PTR(31), /* POST REINVOCATION ENTRY POINT 02383000 * FROM POST EXIT ROUTINES 0449 02384000 * (MDC335) @Z40EP9A*/ 02385000 * 2 CVTTCASP PTR(31), /* RESERVED FOR FUTURE USE 0449 02386000 * (MDC336) @Z40DQ9A*/ 02387000 * 2 CVTRV613 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02388000 * 2 CVTRV614 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02389000 * 2 CVTRV615 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02390000 * 2 CVTRV616 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02391000 * 2 CVTRV617 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02392000 * 2 CVTRV618 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02393000 * 2 CVTRV619 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02394000 * 2 CVTIHASU PTR(31), /* ADDRESS OF BIT STRING 0449 02395000 * (MDC355) @Z404P9A*/ 02396000 * 2 CVTRV621 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02397000 * 2 CVTRV622 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02398000 * 2 CVTRV623 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02399000 * 2 CVTRV624 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02400000 * 2 CVTRV625 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02401000 * 2 CVTRV626 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02402000 * 2 CVTRV627 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 02403000 * 2 CVTRV628 PTR(31); /* RESERVED (MDC307) @Z30AQ9A*/ 02404000 * 0449 02405000 * /* */ 02406000 * /* OS - OS/VS COMMON EXTENSION */ 02407000 * /* */ 02408000 * 0450 02409000 * DECLARE 0450 02410000 * 1 CVTXTNT1 BASED(CVTEXT1), /* START OF OS - OS/VS COMMON 0450 02411000 * EXTENSION ICB421*/ 02412000 * 2 CVTFACHN PTR(31), /* ADDRESS OF CHAIN OF DCB FIELD 02413000 * AREAS (ISAM) ICB421*/ 02414000 * 2 CVTRSV87 PTR(31), /* RESERVED */ 02415000 * 2 CVTRSV88 PTR(31); /* RESERVED */ 02416000 * 0450 02417000 * /* */ 02418000 * /* OS/VS1 - OS/VS2 COMMON EXTENSION */ 02419000 * /* */ 02420000 * 0451 02421000 * DECLARE 0451 02422000 * 1 CVTXTNT2 BASED(CVTEXT2), /* START OF OS/VS1 - OS/VS2 0451 02423000 * EXTENSION */ 02424000 * 2 CVTDSSV PTR(31), /* ADDRESS OF THE DYNAMIC 0451 02425000 * SUPPORT SYSTEM (DSS) VECTOR 02426000 * TABLE ICB313*/ 02427000 * 3 CVTRSV89 PTR(8), /* RESERVED ICB313*/ 02428000 * 3 CVTDSSVA PTR(24), /* ADDRESS OF THE DSS VECTOR 0451 02429000 * TABLE ICB313*/ 02430000 * 2 CVTNUCLS CHAR(1), /* IDENTIFICATION OF THE NUCLEUS 02431000 * MEMBER NAME ICB322*/ 02432000 * 2 CVTFLGBT BIT(8), /* FLAG BYTE (OS/VS1) 0451 02433000 * (MDC301) @X04EP9A*/ 02434000 * 3 CVTNPE BIT(1), /* INDICATES NON-PAGING 0451 02435000 * ENVIRONMENT (VM HANDSHAKING) 02436000 * (OS/VS1) (MDC302) @X04EP9A*/ 02437000 * 3 CVTVME BIT(1), /* INDICATES MACHINE IS 0451 02438000 * OPERATING IN VM ENVIRONMENT 02439000 * (OS/VS1) (MDC303) @X04EP9A*/ 02440000 * 3 CVTRSV9C BIT(1), /* RESERVED */ 02441000 * 3 CVTRSV9D BIT(1), /* RESERVED */ 02442000 * 3 CVTRSV9E BIT(1), /* RESERVED */ 02443000 * 3 CVTRSV9F BIT(1), /* RESERVED */ 02444000 * 3 CVTRSV9G BIT(1), /* RESERVED */ 02445000 * 3 CVTRSV9H BIT(1), /* RESERVED */ 02446000 * 2 CVTRSV91 FIXED(15), /* RESERVED */ 02447000 * 2 CVTDEBVR PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 02448000 * OF DEB VALIDITY CHECK ROUTINE 02449000 * (ICB380) XM9028*/ 02450000 * 2 CVTRSV92 PTR(31), /* RESERVED (MDC190) YM2278*/ 02451000 * 2 CVTRSV93 PTR(31), /* RESERVED */ 02452000 * 2 CVTRSV94 PTR(31), /* RESERVED */ 02453000 * 2 CVTQID PTR(31), /* SAVE AS CVTQIDA BELOW ICB381*/ 02454000 * 3 CVTRSV95 PTR(8), /* RESERVED ICB381*/ 02455000 * 3 CVTQIDA PTR(24), /* ADDRESS OF QUEUE 0451 02456000 * IDENTIFICATION (QID) TABLE 0451 02457000 * PREFIX ICB381*/ 02458000 * 2 CVTOLTEP PTR(31), /* POINTER TO CONTROL BLOCK 0451 02459000 * CREATED BY SVC 59 TO POINT TO 02460000 * PSEUDO-DEB'S ICB423*/ 02461000 * 2 CVTRSV96 FIXED(15), /* RESERVED */ 02462000 * 2 CVTRSV97 FIXED(15), /* RESERVED */ 02463000 * 2 CVTRSV98 PTR(31), /* RESERVED */ 02464000 * 2 CVTRSV99 PTR(31), /* RESERVED (MDC329) @Z40AQ9A*/ 02465000 * 2 CVTSKTA PTR(31), /* ADDRESS OF STORAGE KEY TABLE 02466000 * (VM HANDSHAKING) (OS/VS1) 0451 02467000 * (MDC304) @X04EP9A*/ 02468000 * 2 CVTICB PTR(31), /* ADDRESS OF MASS STORAGE 0451 02469000 * SYSTEM (MSS) CONTROL BLOCK 0451 02470000 * (MDC305) @Z30LP9A*/ 02471000 * 2 CVTRV400 BIT(8), /* RESERVED */ 02472000 * 3 CVTRV401 BIT(1), /* RESERVED */ 02473000 * 3 CVTRV402 BIT(1), /* RESERVED */ 02474000 * 3 CVTRV403 BIT(1), /* RESERVED */ 02475000 * 3 CVTRV404 BIT(1), /* RESERVED */ 02476000 * 3 CVTRV405 BIT(1), /* RESERVED */ 02477000 * 3 CVTRV406 BIT(1), /* RESERVED */ 02478000 * 3 CVTRV407 BIT(1), /* RESERVED */ 02479000 * 3 CVTRV408 BIT(1), /* RESERVED */ 02480000 * 2 CVTRV409 BIT(8), /* RESERVED */ 02481000 * 3 CVTRV410 BIT(1), /* RESERVED */ 02482000 * 3 CVTRV411 BIT(1), /* RESERVED */ 02483000 * 3 CVTRV412 BIT(1), /* RESERVED */ 02484000 * 3 CVTRV413 BIT(1), /* RESERVED */ 02485000 * 3 CVTRV414 BIT(1), /* RESERVED */ 02486000 * 3 CVTRV415 BIT(1), /* RESERVED */ 02487000 * 3 CVTRV416 BIT(1), /* RESERVED */ 02488000 * 3 CVTRV417 BIT(1), /* RESERVED */ 02489000 * 2 CVTRV418 PTR(8), /* RESERVED */ 02490000 * 2 CVTRV419 PTR(8), /* RESERVED */ 02491000 * 2 CVTRV420 PTR(15), /* RESERVED */ 02492000 * 2 CVTRV421 FIXED(15), /* RESERVED */ 02493000 * 2 CVTRV422 FIXED(15), /* RESERVED */ 02494000 * 2 CVTRV423 FIXED(15), /* RESERVED */ 02495000 * 2 CVTATCVT PTR(31), /* POINTER TO VTAM'S CVT MDC080*/ 02496000 * 3 CVTATACT BIT(1), /* IF ON, VTAM IS ACTIVE MDC081*/ 02497000 * 2 CVTRV425 PTR(31), /* RESERVED */ 02498000 * 2 CVTRV426 PTR(31), /* RESERVED */ 02499000 * 2 CVTRV427 PTR(31), /* RESERVED */ 02500000 * 2 CVTRV428 FIXED(31), /* RESERVED */ 02501000 * 2 CVTRV429 BIT(8), /* RESERVED */ 02502000 * 3 CVTRV430 BIT(1), /* RESERVED */ 02503000 * 3 CVTRV431 BIT(1), /* RESERVED */ 02504000 * 3 CVTRV432 BIT(1), /* RESERVED */ 02505000 * 3 CVTRV433 BIT(1), /* RESERVED */ 02506000 * 3 CVTRV434 BIT(1), /* RESERVED */ 02507000 * 3 CVTRV435 BIT(1), /* RESERVED */ 02508000 * 3 CVTRV436 BIT(1), /* RESERVED */ 02509000 * 3 CVTRV437 BIT(1), /* RESERVED */ 02510000 * 2 CVTRV438 BIT(8), /* RESERVED */ 02511000 * 3 CVTRV439 BIT(1), /* RESERVED */ 02512000 * 3 CVTRV440 BIT(1), /* RESERVED */ 02513000 * 3 CVTRV441 BIT(1), /* RESERVED */ 02514000 * 3 CVTRV442 BIT(1), /* RESERVED */ 02515000 * 3 CVTRV443 BIT(1), /* RESERVED */ 02516000 * 3 CVTRV444 BIT(1), /* RESERVED */ 02517000 * 3 CVTRV445 BIT(1), /* RESERVED */ 02518000 * 3 CVTRV446 BIT(1), /* RESERVED */ 02519000 * 2 CVTRV447 PTR(8), /* RESERVED */ 02520000 * 2 CVTRV448 PTR(8), /* RESERVED */ 02521000 * 2 CVTRV449 PTR(15), /* RESERVED */ 02522000 * 2 CVTRV450 FIXED(15), /* RESERVED */ 02523000 * 2 CVTRV451 FIXED(15), /* RESERVED */ 02524000 * 2 CVTRV452 FIXED(15), /* RESERVED */ 02525000 * 2 CVTRV453 PTR(31), /* RESERVED */ 02526000 * 2 CVTRV454 PTR(31), /* RESERVED */ 02527000 * 2 CVTRV455 PTR(31), /* RESERVED */ 02528000 * 2 CVTRV456 PTR(31), /* RESERVED */ 02529000 * 2 CVTRV457 BIT(8), /* RESERVED */ 02530000 * 3 CVTRV458 BIT(1), /* RESERVED */ 02531000 * 3 CVTRV459 BIT(1), /* RESERVED */ 02532000 * 3 CVTRV460 BIT(1), /* RESERVED */ 02533000 * 3 CVTRV461 BIT(1), /* RESERVED */ 02534000 * 3 CVTRV462 BIT(1), /* RESERVED */ 02535000 * 3 CVTRV463 BIT(1), /* RESERVED */ 02536000 * 3 CVTRV464 BIT(1), /* RESERVED */ 02537000 * 3 CVTRV465 BIT(1), /* RESERVED */ 02538000 * 2 CVTRV466 BIT(8), /* RESERVED */ 02539000 * 3 CVTRV467 BIT(1), /* RESERVED */ 02540000 * 3 CVTRV468 BIT(1), /* RESERVED */ 02541000 * 3 CVTRV469 BIT(1), /* RESERVED */ 02542000 * 3 CVTRV470 BIT(1), /* RESERVED */ 02543000 * 3 CVTRV471 BIT(1), /* RESERVED */ 02544000 * 3 CVTRV472 BIT(1), /* RESERVED */ 02545000 * 3 CVTRV473 BIT(1), /* RESERVED */ 02546000 * 3 CVTRV474 BIT(1), /* RESERVED */ 02547000 * 2 CVTRV475 PTR(8), /* RESERVED */ 02548000 * 2 CVTRV476 PTR(8), /* RESERVED */ 02549000 * 2 CVTRV477 PTR(8), /* RESERVED */ 02550000 * 2 CVTRV478 PTR(8), /* RESERVED */ 02551000 * 2 CVTRV479 FIXED(15), /* RESERVED */ 02552000 * 2 CVTRV480 PTR(31), /* RESERVED */ 02553000 * 2 CVTRV481 PTR(31), /* RESERVED */ 02554000 * 2 CVTRV482 PTR(31); /* RESERVED */ 02555000 * 0451 02556000 * /* CVT PREFIX */ 02557000 * 0452 02558000 * DCL 1 CVTFIX BASED(CVTPTR-256) BDY(WORD), 0452 02559000 * 2 * CHAR(248) BDY(WORD), /* RESERVED */ 02560000 * 2 * CHAR(2) BDY(WORD), /* RESERVED */ 02561000 * 2 CVTMDL CHAR(2) BDY(WORD,3), /* CPU MODEL NUMBER IN SIGNLESS 02562000 * PACKED DECIMAL, I.E., A MODEL 02563000 * 145 WOULD BE REPRESENTED AS 02564000 * 0145 HEX */ 02565000 * 2 CVTRELNO CHAR(4) BDY(WORD), /* RELEASE NUMBER (EBCDIC) */ 02566000 * 3 CVTNUMB CHAR(2) BDY(WORD), /* RELEASE NUMBER */ 02567000 * 3 CVTLEVL CHAR(2) BDY(WORD,3);/* LEVEL NUMBER OF THIS RELEASE */ 02568000 * 0452 02569000 * /* END OF CVT MACRO */ 02570000 * 0453 02571000 * 0453 02572000 * /************************************************************/ 02573000 * /* */ 02574000 * /* STRUCTURE FOR ADDRESSING RACHECK PARAMETER LIST */ 02575000 * /* */ 02576000 * /************************************************************/ 02577000 */* A 00000000-99999999 @Z40RSGD*/ 02578000 */********************************************************************/ 02579000 */* */ 02580000 */* AUTHORIZATION CHECKING INTERFACE - RACHECK */ 02581000 */* PARAMETER LIST MAPPING MACRO */ 02582000 */* */ 02583000 */* COPYRIGHT = NONE */ 02584000 */* */ 02585000 */* METHOD OF ACCESS = ICHACHKL MACRO IN BAL */ 02586000 */* %INCLUDE SYSLIB(ICHACHKL) IN PLS */ 02587000 */* */ 02588000 */* FUNCTION = MAPS THE PARAMETER LIST PASSED TO THE AUTHORIZATION */ 02589000 */* CHECKING ROUTINE, RACHECK */ 02590000 */* */ 02591000 */* MACROS = NONE */ 02592000 */* */ 02593000 */* STATUS = VS/2 RELEASE 4 LEVEL 0 */ 02594000 */* */ 02595000 */* CHANGE ACTIVITY = */ 02596000 */* @PC002PY*/ 02597000 */* */ 02598000 */********************************************************************/ 02599000 * DECLARE 1 ACHKLIST BASED(ACHKPTR), /* RACHECK PARAMETER LIST */ 02600000 * 2 ACHKINSW PTR(31), /* ADDRESS INSTALLATION DATA */ 02601000 * 3 ACHKLENG FIXED(8), /* LENGTH OF PARAMETER LIST */ 02602000 * 3 ACHKINST PTR(24), /* ADDRESS INSTALLATION DATA */ 02603000 * 2 ACHKENTW FIXED(31), /* ENTITY ADDRESS WORD */ 02604000 * 3 ACHKFLG1 BIN(8), /* FIRST FLAGS BYTE */ 02605000 * 4 * BIT(1), /* RESERVED */ 02606000 * 4 * BIT(1), /* RESERVED */ 02607000 * 4 * BIT(1), /* RESERVED */ 02608000 * 4 ACHKDSTV BIT(1),/* DSTYPE=V */ 02609000 * 4 * BIT(1), /* RESERVED */ 02610000 * 4 ACHKLOGF BIT(1),/* LOG=NOFAIL */ 02611000 * 4 ACHKLOGN BIT(1),/* LOG=NONE */ 02612000 * 4 ACHKCSA BIT(1),/* ENTITY=(ADDR,CSA) */ 02613000 * 3 ACHKENT PTR(24), /* ENTITY NAME ADDRESS */ 02614000 * 2 ACHKCLNW FIXED(31), /* CLASS NAME ADDRESS WORD */ 02615000 * 3 ACHKFLG2 BIN(8), /* SECOND FLAGS BYTE */ 02616000 * 4 ACHKTALT BIT(1),/* ATTR=ALTER */ 02617000 * 4 * BIT(3), /* RESERVED */ 02618000 * 4 ACHKTCTL BIT(1),/* ATTR=CONTROL */ 02619000 * 4 ACHKTUPD BIT(1),/* ATTR=UPDATE */ 02620000 * 4 ACHKTRD BIT(1),/* ATTR=READ */ 02621000 * 4 * BIT(1), /* RESERVED */ 02622000 * 3 ACHKCLN PTR(24), /* CLASS NAME ADDRESS */ 02623000 * 2 ACHKVOLW FIXED(31), /* VOLSER ADDRESS WORD */ 02624000 * 3 ACHKFLG3 BIN(8), /* THIRD FLAGS BYTE */ 02625000 * 4 * BIT(2), /* RESERVED */ 02626000 * 4 ACHKPRF BIT(1), /* PROFILE ADDR GIVEN */ 02627000 * 4 * BIT(1), /* RESERVED */ 02628000 * 4 ACHKVOL BIT(1), /* VOLSER PARM SPECIFIED */ 02629000 * 4 * BIT(3), /* RESERVED */ 02630000 * 3 ACHKVOLS PTR(24), /* VOLSER ADDRESS */ 02631000 * 2 ACHKOVOL PTR(31), /* OLD VOLSER ADDRESS @PC002PY*/ 02632000 * ACHKPROF PTR(24) DEFINED(ACHKENT); /* PROFILE ADDRESS */ 02633000 * 0453 02634000 * /************************************************************/ 02635000 * /* */ 02636000 * /* UVOLCHK DECLARES FOR RACHECK PARM LIST */ 02637000 * /* */ 02638000 * /************************************************************/ 02639000 * 0454 02640000 * DCL ACHKPTR PTR(31); /* PTR TO PARAMETER LIST */ 02641000 * 0454 02642000 * DCL ACHKCORE CHAR(LENGTH(ACHKLIST)) BDY(WORD); 0455 02643000 * /* CORE FOR RACHECK PARM LIST */ 02644000 * 0456 02645000 * DCL RACFENTL FIXED(8) CONSTANT(6); /* ENTITY LENGTH */ 02646000 * 0456 02647000 * DCL 1 VOLCLASS CHAR(8) STATIC, /* CLASS NAME - 'DASDVOL' */ 02648000 * 2 * FIXED(8) INIT(7), /* LENGTH OF CLASS NAME */ 02649000 * 2 * CHAR(7) INIT('DASDVOL'); 0457 02650000 * 0457 02651000 * 0457 02652000 * /************************************************************/ 02653000 * /* */ 02654000 * /* BASE INCOMING ARGUMENTS FOR CODE OPTIMIZATION */ 02655000 * /* */ 02656000 * /************************************************************/ 02657000 * RESPECIFY (REG1PTR) RSTD; 0458 02658000 * GDTPT=ADDR1; 0459 02659000 L GDTPT,ADDR1(,REG1PTR) 0459 02660000 * PARMPTR2=ADDR2; 0460 02661000 L PARMPTR2,ADDR2+4(,REG1PTR) 0460 02662000 * PARMPTR3=ADDR3; 0461 02663000 L PARMPTR3,ADDR3+8(,REG1PTR) 0461 02664000 * RESPECIFY (REG1PTR) UNRSTD; 0462 02665000 * 0462 02666000 * OLDERID2 = NEWERID2; 0463 02667000 L @06,GDTTR2(,GDTPT) 0463 02668000 MVC @TS00001(95),NEWERID2(@06) 0463 02669000 MVC OLDERID2(95,@06),@TS00001 0463 02670000 * NEWID2='SAVC'; 0464 02671000 * 0464 02672000 * 0464 02673000 MVC NEWID2(4,@06),@CC01336 0464 02674000 * 0465 02675000 * /************************************************************/ 02676000 * /* */ 02677000 * /* ULISTLN MACRO INCLUDED CODE */ 02678000 * /* */ 02679000 * /* LISTLN - TO CONTAIN THE NUMBER OF ARGUMENTS PASSED */ 02680000 * /* TO THIS ROUTINE */ 02681000 * /* */ 02682000 * /* LISTPTR - TO CONTAIN THE ADDRESS OF THE CORRESPONDING*/ 02683000 * /* ADDRESS LIST */ 02684000 * /* */ 02685000 * /************************************************************/ 02686000 * 0465 02687000 * GEN; 0465 02688000 ST 1,LISTPTR 02689000 ST 1,LISTSCAN 02690000 * DO LISTLN = 1 TO 255 WHILE(LISTTEST = '0'B); 0466 02691000 LA LISTLN,1 0466 02692000 @DL00466 L @06,LISTSCAN 0466 02693000 TM LISTTEST(@06),B'10000000' 0466 02694000 BNZ @DC00466 0466 02695000 * LISTSCAN = LISTSCAN + 4; 0467 02696000 AL @06,@CF00041 0467 02697000 ST @06,LISTSCAN 0467 02698000 * END; 0468 02699000 * 0468 02700000 * 0468 02701000 AL LISTLN,@CF00037 0468 02702000 C LISTLN,@CF00566 0468 02703000 BNH @DL00466 0468 02704000 @DC00466 DS 0H 0469 02705000 * /************************************************************/ 02706000 * /* */ 02707000 * /* CHECK FOR INVALID INCOMING ARGUMENTS. IF THE */ 02708000 * /* NUMBER OF ARGUMENTS PASSED IS NOT EQUAL TO TWO OR THREE, */ 02709000 * /* THEN CALL THE UABORT ROUTINE. */ 02710000 * /* */ 02711000 * /************************************************************/ 02712000 * 0469 02713000 * IF LISTLN ^= 2 & LISTLN ^= 3 0469 02714000 * THEN 0469 02715000 * 0469 02716000 C LISTLN,@CF00112 0469 02717000 BE @RF00469 0469 02718000 C LISTLN,@CF00132 0469 02719000 BE @RF00469 0469 02720000 * DO; 0470 02721000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0471 02722000 * REG15 = ARGERR; 0472 02723000 LA REG15,40 0472 02724000 * REG14 = GDTABT; 0473 02725000 L REG14,GDTABT(,GDTPT) 0473 02726000 * REG13 = GDTABH; 0474 02727000 L REG13,GDTABH(,GDTPT) 0474 02728000 * GEN(BR REG14); 0475 02729000 BR REG14 02730000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0476 02731000 * END; 0477 02732000 * /************************************************************/ 02733000 * /* */ 02734000 * /* IF RACF IS NOT ON THE SYSTEM, INDICATE THAT VOLUME IS */ 02735000 * /* NOT PROTECTED. */ 02736000 * /* */ 02737000 * /************************************************************/ 02738000 * 0478 02739000 * 0478 02740000 * IF CVTRAC = NULLPTR 0478 02741000 * THEN RACFRC = RACFRC4; 0478 02742000 * 0478 02743000 @RF00469 L @06,CVTPTR 0478 02744000 L @06,CVTRAC(,@06) 0478 02745000 LTR @06,@06 0478 02746000 BNZ @RF00478 0478 02747000 MVC RACFRC(2),@CH00041 0479 02748000 * ELSE DO; 0480 02749000 * 0480 02750000 B @RC00478 0480 02751000 @RF00478 DS 0H 0481 02752000 * /********************************************************/ 02753000 * /* */ 02754000 * /* BASE THE RACHECK DSECT ON THE NEW CORE, ZERO IT */ 02755000 * /* OUT, SET THE PARAMETER LENGTH, AND ZERO THE */ 02756000 * /* RETURN CODE. */ 02757000 * /* */ 02758000 * /********************************************************/ 02759000 * 0481 02760000 * ACHKPTR = ADDR(ACHKCORE); 0481 02761000 LA ACHKPTR,ACHKCORE 0481 02762000 * ACHKLIST = ''B; 0482 02763000 XC ACHKLIST(20,ACHKPTR),ACHKLIST(ACHKPTR) 0482 02764000 * ACHKLENG = LENGTH(ACHKLIST); 0483 02765000 * 0483 02766000 MVI ACHKLENG(ACHKPTR),X'14' 0483 02767000 * URACFRC = RACFRC0; 0484 02768000 * 0484 02769000 * 0484 02770000 SLR URACFRC,URACFRC 0484 02771000 * /********************************************************/ 02772000 * /* */ 02773000 * /* BUILD THE RACHECK PARAMETER LIST BY MOVING THE */ 02774000 * /* NECESSARY INFORMATION FROM THE INCOMING */ 02775000 * /* ARGUMENT TO THE RACHECK PARAMETER LIST. */ 02776000 * /* */ 02777000 * /********************************************************/ 02778000 * 0485 02779000 * /********************************************************/ 02780000 * /* */ 02781000 * /* SET THE CLASS POINTER */ 02782000 * /* */ 02783000 * /********************************************************/ 02784000 * ACHKCLNW = ADDR(VOLCLASS); 0485 02785000 * 0485 02786000 LA @06,VOLCLASS 0485 02787000 ST @06,ACHKCLNW(,ACHKPTR) 0485 02788000 * /********************************************************/ 02789000 * /* */ 02790000 * /* SET THE VOLUME SERIAL AS THE ENTITY TO BE CHECKED. */ 02791000 * /* */ 02792000 * /********************************************************/ 02793000 * ACHKENTW = ADDR(VOLSER); 0486 02794000 ST PARMPTR2,ACHKENTW(,ACHKPTR) 0486 02795000 * ; 0487 02796000 * /********************************************************/ 02797000 * /* AND SET THE APPROPRIATE ATTRIBUTE BIT: */ 02798000 * /* ACHKTRD INDICATES READ ATTRIBUTE */ 02799000 * /* ACHKTALT INDICATES ALTER ATTRIBUTE */ 02800000 * /* ACHKTUPD INDICATES UPDATE ATTRIBUTE */ 02801000 * /* ACHKTCTL INDICATES CONTROL ATTRIBUTE */ 02802000 * /********************************************************/ 02803000 * IF LISTLN = 2 0488 02804000 * THEN ACHKTALT = ON; /* DEFAULT TO ALTER ATTRIBUTE */ 02805000 * 0488 02806000 C LISTLN,@CF00112 0488 02807000 BNE @RF00488 0488 02808000 OI ACHKTALT(ACHKPTR),B'10000000' 0489 02809000 * ELSE DO; 0490 02810000 B @RC00488 0490 02811000 @RF00488 DS 0H 0491 02812000 * IF ATTR = READ 0491 02813000 * THEN 0491 02814000 CLC ATTR(4,PARMPTR3),@CC00149 0491 02815000 BNE @RF00491 0491 02816000 * ACHKTRD = ON; 0492 02817000 OI ACHKTRD(ACHKPTR),B'00000010' 0492 02818000 * ELSE 0493 02819000 * IF ATTR = ALTER 0493 02820000 * THEN 0493 02821000 B @RC00491 0493 02822000 @RF00491 CLC ATTR(4,PARMPTR3),@CC00151 0493 02823000 BNE @RF00493 0493 02824000 * ACHKTALT = ON; 0494 02825000 OI ACHKTALT(ACHKPTR),B'10000000' 0494 02826000 * ELSE 0495 02827000 * IF ATTR = UPDATE 0495 02828000 * THEN 0495 02829000 B @RC00493 0495 02830000 @RF00493 CLC ATTR(4,PARMPTR3),@CC00153 0495 02831000 BNE @RF00495 0495 02832000 * ACHKTUPD = ON; 0496 02833000 OI ACHKTUPD(ACHKPTR),B'00000100' 0496 02834000 * ELSE 0497 02835000 * IF ATTR = CONTROL 0497 02836000 * THEN 0497 02837000 B @RC00495 0497 02838000 @RF00495 CLC ATTR(4,PARMPTR3),@CC00155 0497 02839000 BNE @RF00497 0497 02840000 * ACHKTCTL = ON; 0498 02841000 OI ACHKTCTL(ACHKPTR),B'00001000' 0498 02842000 * ELSE 0499 02843000 * 0499 02844000 * /************************************/ 02845000 * /* NONE OF THE ABOVE AT- */ 02846000 * /* TRIBUTES WERE SPECIFIED, */ 02847000 * /* CALL THE UABORT ROUTINE. */ 02848000 * /************************************/ 02849000 * 0499 02850000 * DO; 0499 02851000 B @RC00497 0499 02852000 @RF00497 DS 0H 0500 02853000 * RESPECIFY(REG13,REG14,REG15) RSTD; 02854000 * REG15 = ARGERR; 0501 02855000 LA REG15,40 0501 02856000 * REG14 = GDTABT; 0502 02857000 L REG14,GDTABT(,GDTPT) 0502 02858000 * REG13 = GDTABH; 0503 02859000 L REG13,GDTABH(,GDTPT) 0503 02860000 * GEN(BR REG14); 0504 02861000 BR REG14 02862000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 02863000 * END; 0506 02864000 * END; 0507 02865000 @RC00497 DS 0H 0507 02866000 @RC00495 DS 0H 0507 02867000 @RC00493 DS 0H 0507 02868000 @RC00491 DS 0H 0508 02869000 * ; 0508 02870000 @RC00488 DS 0H 0509 02871000 EJECT 02872000 * /******************************************************/ 02873000 * /* */ 02874000 * /* THE RACHECK PARAMETER LIST IS COMPLETED. */ 02875000 * /* ISSUE THE RACHECK SVC 130. */ 02876000 * /* */ 02877000 * /******************************************************/ 02878000 * 0509 02879000 * RESPECIFY (REG1) RSTD; 0509 02880000 * REG1 = ADDR(ACHKLIST); 0510 02881000 * 0510 02882000 LR REG1,ACHKPTR 0510 02883000 *LRACK1: GEN (RACHECK MF=(E,(REG1))); 0511 02884000 * 0511 02885000 LRACK1 RACHECK MF=(E,(REG1)) 02886000 * /******************************************************/ 02887000 * /* */ 02888000 * /* RETURN FROM RACHECK SVC 130 - URACHECK MUST NOW */ 02889000 * /* TEST THE RETURN CODE AND DETERMINE WHICH */ 02890000 * /* RETURN CODE TO PASS BACK TO THE CALLER AND */ 02891000 * /* IF A MESSAGE IS TO BE PRINTED. THE FOLLOWING */ 02892000 * /* RETURN CODES ARE POSSIBLE FROM RACHECK: */ 02893000 * /* */ 02894000 * /* RACF URACHECK DEFINITION */ 02895000 * /* 0 0 USER AUTHORIZED */ 02896000 * /* 4 4 NO RACF PROFILE ON 'ENTITY' */ 02897000 * /* 8 8 INVALID RACF AUTHORIZATION */ 02898000 * /* */ 02899000 * /******************************************************/ 02900000 * 0512 02901000 * RESPECIFY RTNREG RSTD; 0512 02902000 * TESTRC = RTNREG; 0513 02903000 LR TESTRC,RTNREG 0513 02904000 * RESPECIFY RTNREG UNRSTD; 0514 02905000 * ; 0515 02906000 EJECT 02907000 SPACE 9 02908000 * /******************************************************/ 02909000 * /* THIS IS A DUMP POINT FOR UVOLCHK MACRO. */ 02910000 * /******************************************************/ 02911000 * IF GDTDBG = NULLPTR 0516 02912000 * THEN; 0516 02913000 L @09,GDTDBG(,GDTPT) 0516 02914000 LTR @09,@09 0516 02915000 BZ @RT00516 0516 02916000 * ELSE 0518 02917000 * CALL ICKDB010(GDTTBL,'SAV2'); 0518 02918000 ST GDTPT,@AL00001 0518 02919000 LA @09,@CC01340 0518 02920000 ST @09,@AL00001+4 0518 02921000 MVI @AL00001+4,X'80' 0518 02922000 L @15,GDTDBG(,GDTPT) 0518 02923000 LA @01,@AL00001 0518 02924000 BALR @14,@15 0518 02925000 * ; 0519 02926000 @RT00516 DS 0H 0520 02927000 EJECT 02928000 * /******************************************************/ 02929000 * /* */ 02930000 * /* PASS BACK THE RACHECK RETURN CODE TO THE CALLER */ 02931000 * /* */ 02932000 * /******************************************************/ 02933000 * 0520 02934000 * RACFRC = TESTRC; 0520 02935000 STH TESTRC,RACFRC 0520 02936000 * END; 0521 02937000 * 0521 02938000 * 0521 02939000 * /************************************************************/ 02940000 * /* */ 02941000 * /* RETURN TO THE UVOLCHK CALLER. */ 02942000 * /* */ 02943000 * /************************************************************/ 02944000 * 0522 02945000 * CALL ICKSAEP0(GDTTBL,MODID,RACFRC); 0522 02946000 @RC00478 ST GDTPT,@AL00001 0522 02947000 LA @09,MODID 0522 02948000 ST @09,@AL00001+4 0522 02949000 LA @09,RACFRC 0522 02950000 ST @09,@AL00001+8 0522 02951000 MVI @AL00001+8,X'80' 0522 02952000 L @15,GDTEPL(,GDTPT) 0522 02953000 LA @01,@AL00001 0522 02954000 BALR @14,@15 0522 02955000 * /************************************************************/ 02956000 * /************************************************************/ 02957000 * /* */ 02958000 * /* GENERATED DATA */ 02959000 * /* */ 02960000 * /************************************************************/ 02961000 * /************************************************************/ 02962000 * 0523 02963000 * /************************************************************/ 02964000 * /* */ 02965000 * /* LIST FORM OF CAMLIST MACRO (OVERRIDE) -- MOVED INTO */ 02966000 * /* A DYNAMIC AREA FOR USE. */ 02967000 * /* */ 02968000 * /************************************************************/ 02969000 * 0523 02970000 * GENERATE DATA; 0523 02971000 * 0523 02972000 * /************************************************************/ 02973000 * /* */ 02974000 * /* LIST FORM OF CAMLIST MACRO -- MOVED INTO A DYNAMIC AREA */ 02975000 * /* FOR USE. */ 02976000 * /* */ 02977000 * /************************************************************/ 02978000 * 0524 02979000 * GENERATE DATA; 0524 02980000 * 0524 02981000 * /************************************************************/ 02982000 * /* */ 02983000 * /* DECLARATION ALLOWING MODULE ICKSA01 ACCESS TO THIS */ 02984000 * /* MODULE'S AUTOMATIC STORAGE SIZE VALUE. */ 02985000 * /* */ 02986000 * /************************************************************/ 02987000 * 0525 02988000 * GENERATE DATA; 0525 02989000 * 0525 02990000 * RESPECIFY (GDTPT) UNRSTD; 0526 02991000 * END ICKSA08 0527 02992000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 02993000 */*%INCLUDE SYSLIB (DMSDF01 ) * 02994000 */*%INCLUDE SYSLIB (DMSDF00 ) * 02995000 */*@INCLUDE SYSLIB (DMSDF02 ) * 02996000 */*%INCLUDE SYSLIB (CVT ) * 02997000 */*%INCLUDE SYSLIB (ICHACHKL) * 02998000 *; 0527 02999000 @DATA DS 0H 03000000 @CH00241 DC H'10' 03001000 @CH00032 DC H'12' 03002000 @CH00514 DC H'44' 03003000 @SM01346 MVC WTOTEXT(0),TEXTMSG(@05) 03004000 @DATD DSECT 03005000 DS 0F 03006000 @SA00001 DS 18F 03007000 @PC00001 DS 12F 03008000 @AL00001 DS 4A 03009000 @TF00001 DS F 03010000 ICKSA08 CSECT 03011000 DS 0F 03012000 @CF00091 DC F'0' 03013000 @CF00037 DC F'1' 03014000 @CF00112 DC F'2' 03015000 @CF00132 DC F'3' 03016000 @CF00041 DC F'4' 03017000 @CH00041 EQU @CF00041+2 03018000 @CF00250 DC F'5' 03019000 @CF00115 DC F'6' 03020000 @CH00115 EQU @CF00115+2 03021000 @CF00180 DC F'7' 03022000 @CF00157 DC F'8' 03023000 @CH00157 EQU @CF00157+2 03024000 @CF00566 DC F'255' 03025000 @CF01341 DC F'-10' 03026000 @CF01342 DC F'-8' 03027000 @CF01345 DC F'-6' 03028000 @DATD DSECT 03029000 DS 0D 03030000 LISTSCAN DS A 03031000 IOCSPTR DS A 03032000 OPNPTR DS A 03033000 DDSTRU DS A 03034000 FSADDR DS A 03035000 DMPINDEX DS A 03036000 PARMPTR6 DS A 03037000 PARMPTR7 DS A 03038000 RTNPTR DS A 03039000 VLISTPTR DS A 03040000 VLISTLEN DS F 03041000 LISTPTR DS A 03042000 SETRC DS H 03043000 RACFRC DS H 03044000 @TS00001 DS CL95 03045000 DS CL1 03046000 MSGAREA DS CL20 03047000 STATFLG DS BL1 03048000 ONEVOLST DS CL14 03049000 DS CL1 03050000 SCRLIST DS CL16 03051000 ORG SCRLIST 03052000 SCRFLGS DS CL4 03053000 SCRDSN DS AL4 03054000 @NM00020 DS CL4 03055000 SCRVLIST DS AL4 03056000 ORG SCRLIST+16 03057000 ECBAREA DS BL4 03058000 WTOPARMS DS CL88 03059000 ORG WTOPARMS 03060000 WTORMSG DS CL8 03061000 ORG WTORMSG 03062000 WTORPYLN DS FL1 03063000 WTORPYPT DS AL3 03064000 WTORECBA DS AL4 03065000 ORG WTOPARMS+8 03066000 WTOMSG DS CL80 03067000 ORG WTOMSG 03068000 WTOHDR DS CL4 03069000 ORG WTOHDR 03070000 WTOPLEN DS FL2 03071000 WTOMCS DS BL2 03072000 ORG WTOMSG+4 03073000 WTOTEXT DS CL76 03074000 ORG WTOPARMS+88 03075000 ACHKCORE DS CL20 03076000 ICKSA08 CSECT 03077000 DS 0F 03078000 @SIZDATD DC AL1(0) 03079000 DC AL3(@ENDDATD-@DATD) 03080000 DS 0D 03081000 X DS FL1 03082000 Y DS FL1 03083000 @CC00141 DC C'ZERO' 03084000 @CC00147 DC C'OVRD' 03085000 @CC00149 DC C'READ' 03086000 @CC00151 DC C'ALTR' 03087000 @CC00153 DC C'UPDT' 03088000 @CC00155 DC C'CNTL' 03089000 @CC00565 DC C'SASC' 03090000 @CC00620 DC C'SAWO' 03091000 @CC01336 DC C'SAVC' 03092000 @CC01340 DC C'SAV2' 03093000 @CC00491 DC C'UV0' 03094000 @CC00495 DC C'SA0' 03095000 @CB00619 DC X'8000' 03096000 FIXAREA DS CL100 03097000 ORG FIXAREA 03098000 @NM00001 DC 100X'00' 03099000 ORG FIXAREA+100 03100000 MODID DC CL4'SA08' 03101000 VOLCLASS DS CL8 03102000 ORG VOLCLASS 03103000 @NM00032 DC AL1(7) 03104000 @NM00033 DC CL7'DASDVOL' 03105000 ORG VOLCLASS+8 03106000 @DATD DSECT 03107000 ICKSA08 CSECT 03108000 CAMLIST1 CAMLST SCRATCH,X,,Y,,OVRD 03109000 @DATD DSECT 03110000 ICKSA08 CSECT 03111000 CAMLIST2 CAMLST SCRATCH,X,,Y 03112000 @DATD DSECT 03113000 ICKSA08 CSECT 03114000 ENTRY ICKSAS8 03115000 ICKSAS8 DC A(@SIZDATD) 03116000 @DATD DSECT 03117000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03118000 @ENDDATD EQU * 03119000 ICKSA08 CSECT 03120000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03121000 @01 EQU 01 03122000 @02 EQU 02 03123000 @03 EQU 03 03124000 @04 EQU 04 03125000 @05 EQU 05 03126000 @06 EQU 06 03127000 @07 EQU 07 03128000 @08 EQU 08 03129000 @09 EQU 09 03130000 @10 EQU 10 03131000 @11 EQU 11 03132000 @12 EQU 12 03133000 @13 EQU 13 03134000 @14 EQU 14 03135000 @15 EQU 15 03136000 URACFRC EQU @02 03137000 ACHKPTR EQU @04 03138000 TEXTLEN EQU @02 03139000 VOLIDX EQU @02 03140000 PARMPTR5 EQU @06 03141000 PARMPTR4 EQU @04 03142000 PARMPTR3 EQU @07 03143000 PARMPTR2 EQU @09 03144000 TESTRC EQU @06 03145000 LISTLN EQU @03 03146000 RTNREG EQU @15 03147000 REG0 EQU @00 03148000 REG1 EQU @01 03149000 REG4 EQU @04 03150000 REG13 EQU @13 03151000 REG14 EQU @14 03152000 REG15 EQU @15 03153000 GDTPT EQU @08 03154000 REG1PTR EQU @01 03155000 REG10 EQU @10 03156000 REG11 EQU @11 03157000 REG12 EQU @12 03158000 REG2 EQU @02 03159000 REG3 EQU @03 03160000 REG5 EQU @05 03161000 REG6 EQU @06 03162000 REG7 EQU @07 03163000 REG8 EQU @08 03164000 REG9 EQU @09 03165000 CVTPTR EQU 16 03166000 GDTTBL EQU 0 03167000 GDTTR1 EQU GDTTBL+8 03168000 GDTTR2 EQU GDTTBL+12 03169000 GDTDIN EQU GDTTBL+44 03170000 GDTDOP EQU GDTTBL+48 03171000 GDTDBG EQU GDTTBL+52 03172000 GDTDVO EQU GDTTBL+56 03173000 GDTPRT EQU GDTTBL+60 03174000 GDTESS EQU GDTTBL+64 03175000 GDTESA EQU GDTTBL+68 03176000 GDTRST EQU GDTTBL+72 03177000 GDTRES EQU GDTTBL+76 03178000 GDTCAL EQU GDTTBL+80 03179000 GDTGSP EQU GDTTBL+84 03180000 GDTFSP EQU GDTTBL+88 03181000 GDTGPL EQU GDTTBL+92 03182000 GDTFPL EQU GDTTBL+96 03183000 GDTLOD EQU GDTTBL+100 03184000 GDTDEL EQU GDTTBL+104 03185000 GDTPRL EQU GDTTBL+108 03186000 GDTEPL EQU GDTTBL+112 03187000 GDTTIM EQU GDTTBL+116 03188000 GDTIIO EQU GDTTBL+120 03189000 GDTTIO EQU GDTTBL+124 03190000 GDTOPN EQU GDTTBL+136 03191000 GDTCLS EQU GDTTBL+140 03192000 GDTGET EQU GDTTBL+144 03193000 GDTPUT EQU GDTTBL+148 03194000 GDTABT EQU GDTTBL+152 03195000 GDTABH EQU GDTTBL+156 03196000 GDTSNP EQU GDTTBL+160 03197000 GDTWTO EQU GDTTBL+168 03198000 GDTSCR EQU GDTTBL+172 03199000 GDTVCK EQU GDTTBL+176 03200000 GDTDVC EQU GDTTBL+180 03201000 GDTSTE EQU GDTTBL+188 03202000 ICKSAEP0 EQU 0 03203000 ICKSAGS0 EQU 0 03204000 ICKSAFS0 EQU 0 03205000 TRACE1 EQU 0 03206000 OLDERID1 EQU TRACE1 03207000 TRACE2 EQU 0 03208000 OLDERID2 EQU TRACE2 03209000 NEWID2 EQU TRACE2+95 03210000 NEWERID2 EQU 5 03211000 STAEPARM EQU 0 03212000 STAEPFX EQU STAEPARM 03213000 LISTTEST EQU 0 03214000 IOCSTR EQU 0 03215000 IOCDSO EQU IOCSTR+13 03216000 IOCRFM EQU IOCSTR+14 03217000 IOCMAC EQU IOCSTR+15 03218000 IOCMSG EQU IOCSTR+16 03219000 OPNAGL EQU 0 03220000 OPNOPT EQU OPNAGL 03221000 OPNRFM EQU OPNAGL+1 03222000 OPNTYP EQU OPNAGL+2 03223000 OPNMOD EQU OPNAGL+3 03224000 UVOLLIST EQU 0 03225000 UVOLCNT EQU UVOLLIST 03226000 UVOLENT EQU UVOLLIST+2 03227000 ICKTPPR0 EQU 0 03228000 DARGLIST EQU 0 03229000 DARGDBP EQU DARGLIST 03230000 DARGSTID EQU DARGLIST+8 03231000 DARGSMOD EQU DARGSTID 03232000 DARGSENT EQU DARGSTID+3 03233000 DARGILP EQU DARGLIST+12 03234000 DARGARY EQU DARGLIST+20 03235000 DARGINS EQU DARGARY 03236000 DARGINL EQU DARGARY+2 03237000 FMTLIST EQU 0 03238000 FMTFLGS EQU FMTLIST 03239000 FMTSPF EQU FMTLIST+2 03240000 FMTRFNO EQU FMTSPF 03241000 FMTILEN EQU FMTRFNO 03242000 FMTIOFF EQU FMTLIST+4 03243000 FMTTRBC EQU FMTIOFF 03244000 FMTSTO EQU FMTTRBC 03245000 FMTOCOL EQU FMTLIST+6 03246000 FMTCNVF EQU FMTLIST+10 03247000 ICKDB010 EQU 0 03248000 DMPITM EQU 0 03249000 DMPARY EQU 0 03250000 ADDR1 EQU 0 03251000 ADDR2 EQU 0 03252000 ADDR3 EQU 0 03253000 ADDR4 EQU 0 03254000 ADDR5 EQU 0 03255000 ADDR6 EQU 0 03256000 ADDR7 EQU 0 03257000 SCDSNAM EQU 0 03258000 SCLISTP EQU 0 03259000 SCOVRD EQU 0 03260000 MYVOLIST EQU 0 03261000 MYVOLCNT EQU MYVOLIST 03262000 MYVOLENT EQU MYVOLIST+2 03263000 DEVVOL EQU MYVOLENT 03264000 VOLUME EQU DEVVOL+4 03265000 VOLSTAT EQU MYVOLENT+11 03266000 WOMSGLN EQU 0 03267000 WOMSGPT EQU 0 03268000 WORTECD EQU 0 03269000 WODESCD EQU 0 03270000 WORPYLN EQU 0 03271000 WORPYPT EQU 0 03272000 TEXTMSG EQU 0 03273000 VOLSER EQU 0 03274000 ATTR EQU 0 03275000 CVTMAP EQU 0 03276000 CVTDAR EQU CVTMAP+72 03277000 CVTFLGS1 EQU CVTDAR 03278000 CVTDCB EQU CVTMAP+116 03279000 CVTIOQET EQU CVTMAP+120 03280000 CVTIERLC EQU CVTMAP+144 03281000 CVTHEAD EQU CVTMAP+160 03282000 CVTSV76C EQU CVTHEAD 03283000 CVTOPTA EQU CVTMAP+182 03284000 CVTOPTB EQU CVTMAP+183 03285000 CVTGTF EQU CVTMAP+236 03286000 CVTGTFST EQU CVTGTF 03287000 CVTGTFS EQU CVTGTFST 03288000 CVTSTATE EQU CVTGTFST 03289000 CVTTMODE EQU CVTGTFST 03290000 CVTFORM EQU CVTGTFST 03291000 CVTAQAVT EQU CVTMAP+240 03292000 CVTTCMFG EQU CVTAQAVT 03293000 CVTVOLM2 EQU CVTMAP+244 03294000 CVTTATA EQU CVTVOLM2 03295000 CVTTSKS EQU CVTTATA 03296000 CVTVOLF2 EQU CVTTSKS 03297000 CVTTAT EQU CVTTATA+1 03298000 CVTATER EQU CVTMAP+248 03299000 CVTEXT1 EQU CVTMAP+252 03300000 CVTPURG EQU CVTMAP+260 03301000 CVTQMSG EQU CVTMAP+268 03302000 CVTDMSR EQU CVTMAP+272 03303000 CVTRSV37 EQU CVTDMSR 03304000 CVTDMSRF EQU CVTRSV37 03305000 CVTERPV EQU CVTMAP+316 03306000 CVTINTLA EQU CVTMAP+320 03307000 CVTAPF EQU CVTMAP+324 03308000 CVTEXT2 EQU CVTMAP+328 03309000 CVTHJES EQU CVTMAP+332 03310000 CVTPGSIA EQU CVTMAP+348 03311000 CVTA1F1 EQU CVTMAP+356 03312000 CVTSYSK EQU CVTMAP+357 03313000 CVTVOLM1 EQU CVTMAP+380 03314000 CVTVOLF1 EQU CVTVOLM1 03315000 CVTATMCT EQU CVTMAP+388 03316000 CVTXTNT1 EQU 0 03317000 CVTXTNT2 EQU 0 03318000 CVTDSSV EQU CVTXTNT2 03319000 CVTFLGBT EQU CVTXTNT2+5 03320000 CVTQID EQU CVTXTNT2+24 03321000 CVTRV400 EQU CVTXTNT2+52 03322000 CVTRV409 EQU CVTXTNT2+53 03323000 CVTATCVT EQU CVTXTNT2+64 03324000 CVTRV429 EQU CVTXTNT2+84 03325000 CVTRV438 EQU CVTXTNT2+85 03326000 CVTRV457 EQU CVTXTNT2+112 03327000 CVTRV466 EQU CVTXTNT2+113 03328000 CVTFIX EQU 0 03329000 CVTRELNO EQU CVTFIX+252 03330000 ACHKLIST EQU 0 03331000 ACHKINSW EQU ACHKLIST 03332000 ACHKLENG EQU ACHKINSW 03333000 ACHKENTW EQU ACHKLIST+4 03334000 ACHKFLG1 EQU ACHKENTW 03335000 ACHKENT EQU ACHKENTW+1 03336000 ACHKCLNW EQU ACHKLIST+8 03337000 ACHKFLG2 EQU ACHKCLNW 03338000 ACHKTALT EQU ACHKFLG2 03339000 ACHKTCTL EQU ACHKFLG2 03340000 ACHKTUPD EQU ACHKFLG2 03341000 ACHKTRD EQU ACHKFLG2 03342000 ACHKVOLW EQU ACHKLIST+12 03343000 ACHKFLG3 EQU ACHKVOLW 03344000 DMPTRM EQU 0 03345000 ICKDVCL0 EQU 0 03346000 ICKDVIN0 EQU 0 03347000 ICKDVON0 EQU 0 03348000 ICKDVOP0 EQU 0 03349000 ICKIOCL0 EQU 0 03350000 ICKIOGT0 EQU 0 03351000 ICKIOIT0 EQU 0 03352000 ICKIOOP0 EQU 0 03353000 ICKIOPT0 EQU 0 03354000 ICKIOTM0 EQU 0 03355000 ICKSACL0 EQU 0 03356000 ICKSADE0 EQU 0 03357000 ICKSAFP0 EQU 0 03358000 ICKSAGP0 EQU 0 03359000 ICKSALD0 EQU 0 03360000 ICKSAPR0 EQU 0 03361000 ICKSASC0 EQU 0 03362000 ICKSASN0 EQU 0 03363000 ICKSAST0 EQU 0 03364000 ICKSATI0 EQU 0 03365000 ICKSAVC0 EQU 0 03366000 ICKSAWO0 EQU 0 03367000 ICKTPEA0 EQU 0 03368000 ICKTPES0 EQU 0 03369000 ICKTPRE0 EQU 0 03370000 ICKTPRS0 EQU 0 03371000 NEWERID1 EQU 5 03372000 RTNCODE EQU 0 03373000 GDTTBLX EQU 0 03374000 SCDSNAMX EQU 0 03375000 SCLISTPX EQU 0 03376000 SCOVRDX EQU 0 03377000 WOMSGLNX EQU 0 03378000 WOMSGPTX EQU 0 03379000 WORTECDX EQU 0 03380000 WODESCDX EQU 0 03381000 WORPYLNX EQU 0 03382000 WORPYPTX EQU 0 03383000 VOLSERX EQU 0 03384000 ATTRX EQU 0 03385000 CVTS01 EQU CVTPGSIA 03386000 CVTLPDIA EQU CVTS01+12 03387000 CVTDIRST EQU CVTLPDIA 03388000 CVTSLIDA EQU CVTS01+24 03389000 CVTCTLFG EQU CVTS01+50 03390000 CVTRV210 EQU CVTS01+424 03391000 CVTRV219 EQU CVTS01+425 03392000 CVTRV228 EQU CVTS01+426 03393000 CVTRV237 EQU CVTS01+427 03394000 CVTMFRTR EQU CVTS01+452 03395000 CVTRV262 EQU CVTS01+468 03396000 CVTRV271 EQU CVTS01+469 03397000 CVTRV280 EQU CVTS01+470 03398000 CVTRV289 EQU CVTS01+471 03399000 CVTGSDA EQU CVTS01+600 03400000 CVTRAC EQU CVTS01+644 03401000 ACHKPROF EQU ACHKENT 03402000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03403000 CVTRV628 EQU CVTS01+728 03404000 CVTRV627 EQU CVTS01+724 03405000 CVTRV626 EQU CVTS01+720 03406000 CVTRV625 EQU CVTS01+716 03407000 CVTRV624 EQU CVTS01+712 03408000 CVTRV623 EQU CVTS01+708 03409000 CVTRV622 EQU CVTS01+704 03410000 CVTRV621 EQU CVTS01+700 03411000 CVTIHASU EQU CVTS01+696 03412000 CVTRV619 EQU CVTS01+692 03413000 CVTRV618 EQU CVTS01+688 03414000 CVTRV617 EQU CVTS01+684 03415000 CVTRV616 EQU CVTS01+680 03416000 CVTRV615 EQU CVTS01+676 03417000 CVTRV614 EQU CVTS01+672 03418000 CVTRV613 EQU CVTS01+668 03419000 CVTTCASP EQU CVTS01+664 03420000 CVT0PT03 EQU CVTS01+660 03421000 CVT0PT0E EQU CVTS01+656 03422000 CVTRV609 EQU CVTS01+652 03423000 CVTCGK EQU CVTS01+648 03424000 CVTRV606 EQU CVTS01+640 03425000 CVTRV605 EQU CVTS01+636 03426000 CVTRV604 EQU CVTS01+632 03427000 CVTEFF02 EQU CVTS01+628 03428000 CVTCBBR EQU CVTS01+624 03429000 CVTSSCR EQU CVTS01+620 03430000 CVTEVENT EQU CVTS01+616 03431000 CVTCRCA EQU CVTS01+612 03432000 CVTTPIO EQU CVTS01+608 03433000 CVTADV EQU CVTS01+604 03434000 CVTGSDAB EQU CVTGSDA 03435000 CVTQV3 EQU CVTS01+596 03436000 CVTQV2 EQU CVTS01+592 03437000 CVTQV1 EQU CVTS01+588 03438000 CVTRPT EQU CVTS01+584 03439000 CVTSSRB EQU CVTS01+580 03440000 CVTCSDRL EQU CVTS01+576 03441000 CVTEXP1 EQU CVTS01+572 03442000 CVTRMPMT EQU CVTS01+568 03443000 CVTRMPTT EQU CVTS01+564 03444000 CVTVPSA EQU CVTS01+560 03445000 CVTVSTOP EQU CVTS01+556 03446000 CVTGTFR8 EQU CVTS01+552 03447000 CVTQUIT EQU CVTS01+548 03448000 CVTVACR EQU CVTS01+544 03449000 CVTWTCB EQU CVTS01+540 03450000 CVTSTPRS EQU CVTS01+536 03451000 CVT0PT02 EQU CVTS01+532 03452000 CVTDARCM EQU CVTS01+528 03453000 CVTIRECM EQU CVTS01+524 03454000 CVTJRECM EQU CVTS01+520 03455000 CVTVEMS0 EQU CVTS01+516 03456000 CVTSPFRR EQU CVTS01+512 03457000 CVTRLSTG EQU CVTS01+508 03458000 CVT0TC0A EQU CVTS01+504 03459000 CVTGMBR EQU CVTS01+500 03460000 CVTLFRM EQU CVTS01+496 03461000 CVTRMBR EQU CVTS01+492 03462000 CVTVIOP EQU CVTS01+488 03463000 CVTRV307 EQU CVTS01+486 03464000 CVTRV306 EQU CVTS01+484 03465000 CVTRV305 EQU CVTS01+482 03466000 CVTRV304 EQU CVTS01+480 03467000 CVTRV303 EQU CVTS01+478 03468000 CVTRV302 EQU CVTS01+476 03469000 CVTTRCA EQU CVTS01+472 03470000 CVTRV297 EQU CVTRV289 03471000 CVTRV296 EQU CVTRV289 03472000 CVTRV295 EQU CVTRV289 03473000 CVTRV294 EQU CVTRV289 03474000 CVTRV293 EQU CVTRV289 03475000 CVTRV292 EQU CVTRV289 03476000 CVTRV291 EQU CVTRV289 03477000 CVTRV290 EQU CVTRV289 03478000 CVTRV288 EQU CVTRV280 03479000 CVTRV287 EQU CVTRV280 03480000 CVTRV286 EQU CVTRV280 03481000 CVTRV285 EQU CVTRV280 03482000 CVTRV284 EQU CVTRV280 03483000 CVTRV283 EQU CVTRV280 03484000 CVTRV282 EQU CVTRV280 03485000 CVTRV281 EQU CVTRV280 03486000 CVTRV279 EQU CVTRV271 03487000 CVTRV278 EQU CVTRV271 03488000 CVTRV277 EQU CVTRV271 03489000 CVTRV276 EQU CVTRV271 03490000 CVTRV275 EQU CVTRV271 03491000 CVTRV274 EQU CVTRV271 03492000 CVTRV273 EQU CVTRV271 03493000 CVTRV272 EQU CVTRV271 03494000 CVTRV270 EQU CVTRV262 03495000 CVTRV269 EQU CVTRV262 03496000 CVTRV268 EQU CVTRV262 03497000 CVTRV267 EQU CVTRV262 03498000 CVTRV266 EQU CVTRV262 03499000 CVTRV265 EQU CVTRV262 03500000 CVTRV264 EQU CVTRV262 03501000 CVTRV263 EQU CVTRV262 03502000 CVTVFP EQU CVTS01+464 03503000 CVTVSI EQU CVTS01+460 03504000 CVTVPSIB EQU CVTS01+456 03505000 CVTMFACT EQU CVTMFRTR 03506000 CVTMFCTL EQU CVTS01+448 03507000 CVTPVBP EQU CVTS01+444 03508000 CVTPWI EQU CVTS01+440 03509000 CVTRV254 EQU CVTS01+438 03510000 CVTRV253 EQU CVTS01+436 03511000 CVTRV252 EQU CVTS01+434 03512000 CVTRV251 EQU CVTS01+433 03513000 CVTRV250 EQU CVTS01+432 03514000 CVTRV249 EQU CVTS01+431 03515000 CVTRV248 EQU CVTS01+430 03516000 CVTRV247 EQU CVTS01+429 03517000 CVTRV246 EQU CVTS01+428 03518000 CVTRV245 EQU CVTRV237 03519000 CVTRV244 EQU CVTRV237 03520000 CVTRV243 EQU CVTRV237 03521000 CVTRV242 EQU CVTRV237 03522000 CVTRV241 EQU CVTRV237 03523000 CVTRV240 EQU CVTRV237 03524000 CVTRV239 EQU CVTRV237 03525000 CVTRV238 EQU CVTRV237 03526000 CVTRV236 EQU CVTRV228 03527000 CVTRV235 EQU CVTRV228 03528000 CVTRV234 EQU CVTRV228 03529000 CVTRV233 EQU CVTRV228 03530000 CVTRV232 EQU CVTRV228 03531000 CVTRV231 EQU CVTRV228 03532000 CVTRV230 EQU CVTRV228 03533000 CVTRV229 EQU CVTRV228 03534000 CVTRV227 EQU CVTRV219 03535000 CVTRV226 EQU CVTRV219 03536000 CVTRV225 EQU CVTRV219 03537000 CVTRV224 EQU CVTRV219 03538000 CVTRV223 EQU CVTRV219 03539000 CVTRV222 EQU CVTRV219 03540000 CVTRV221 EQU CVTRV219 03541000 CVTRV220 EQU CVTRV219 03542000 CVTRV218 EQU CVTRV210 03543000 CVTRV217 EQU CVTRV210 03544000 CVTRV216 EQU CVTRV210 03545000 CVTRV215 EQU CVTRV210 03546000 CVTRV214 EQU CVTRV210 03547000 CVTRV213 EQU CVTRV210 03548000 CVTRV212 EQU CVTRV210 03549000 CVTRV211 EQU CVTRV210 03550000 CVTLCCAT EQU CVTS01+420 03551000 CVTPCCAT EQU CVTS01+416 03552000 CVTIPCRP EQU CVTS01+412 03553000 CVTIPCRI EQU CVTS01+408 03554000 CVTIPCDS EQU CVTS01+404 03555000 CVTAIDVT EQU CVTS01+400 03556000 CVTSSAP EQU CVTS01+396 03557000 CVTEHCIR EQU CVTS01+392 03558000 CVTEHDEF EQU CVTS01+388 03559000 CVTDAIR EQU CVTS01+384 03560000 CVTPERFM EQU CVTS01+380 03561000 CVT044R2 EQU CVTS01+376 03562000 CVTFETCH EQU CVTS01+372 03563000 CVTRSTWD EQU CVTS01+368 03564000 CVTSPOST EQU CVTS01+364 03565000 CVTIOBP EQU CVTS01+360 03566000 CVTASMVT EQU CVTS01+356 03567000 CVTRECRQ EQU CVTS01+352 03568000 CVTWSAC EQU CVTS01+348 03569000 CVTRV149 EQU CVTS01+344 03570000 CVTWSAL EQU CVTS01+340 03571000 CVTSPSA EQU CVTS01+336 03572000 CVTGLMN EQU CVTS01+332 03573000 CVTVEAC0 EQU CVTS01+328 03574000 CVT062R1 EQU CVTS01+324 03575000 CVTRPOST EQU CVTS01+320 03576000 CVTDQIQE EQU CVTS01+316 03577000 CVTCSD EQU CVTS01+312 03578000 CVTLKRMA EQU CVTS01+308 03579000 CVTRSPIE EQU CVTS01+304 03580000 CVTRENQ EQU CVTS01+300 03581000 CVTLQCB EQU CVTS01+296 03582000 CVTFQCB EQU CVTS01+292 03583000 CVTQCS01 EQU CVTS01+288 03584000 CVTAPFT EQU CVTS01+284 03585000 CVTPARRL EQU CVTS01+280 03586000 CVTVWAIT EQU CVTS01+276 03587000 CVTGSPL EQU CVTS01+272 03588000 CVTLSMQ EQU CVTS01+268 03589000 CVTGSMQ EQU CVTS01+264 03590000 CVTEXPRO EQU CVTS01+260 03591000 CVTOPCTP EQU CVTS01+256 03592000 CVTSIC EQU CVTS01+252 03593000 CVTTPIOS EQU CVTS01+248 03594000 CVTRTMS EQU CVTS01+244 03595000 CVTSDBF EQU CVTS01+240 03596000 CVTSCBP EQU CVTS01+236 03597000 CVTSDMP EQU CVTS01+232 03598000 CVTSV60 EQU CVTS01+228 03599000 CVTRTMCT EQU CVTS01+224 03600000 CVTASCBL EQU CVTS01+220 03601000 CVTASCBH EQU CVTS01+216 03602000 CVTGDA EQU CVTS01+212 03603000 CVTASVT EQU CVTS01+208 03604000 CVTVVMDI EQU CVTS01+204 03605000 CVTAQTOP EQU CVTS01+200 03606000 CVTIOSCS EQU CVTS01+196 03607000 CVTSDRM EQU CVTS01+192 03608000 CVTOPTE EQU CVTS01+188 03609000 CVTSTXU EQU CVTS01+184 03610000 CVTQUIS EQU CVTS01+180 03611000 CVTPARS EQU CVTS01+176 03612000 CVTS1EE EQU CVTS01+172 03613000 CVTFRAS EQU CVTS01+168 03614000 CVTQSAS EQU CVTS01+164 03615000 CVTCRAS EQU CVTS01+160 03616000 CVTCRMN EQU CVTS01+156 03617000 CVTDELCP EQU CVTS01+152 03618000 CVTFRECL EQU CVTS01+148 03619000 CVTGETCL EQU CVTS01+144 03620000 CVTBLDCP EQU CVTS01+140 03621000 CVTAUTHL EQU CVTS01+136 03622000 CVTSCAN EQU CVTS01+132 03623000 CVTRV144 EQU CVTS01+130 03624000 CVTMAXMP EQU CVTS01+128 03625000 CVTSTCK EQU CVTS01+124 03626000 CVTRV139 EQU CVTS01+123 03627000 CVTDSSAC EQU CVTS01+122 03628000 CVTRV513 EQU CVTS01+121 03629000 CVTIOSPL EQU CVTS01+120 03630000 CVTPTGT EQU CVTS01+116 03631000 CVTCSPIE EQU CVTS01+112 03632000 CVTSMFEX EQU CVTS01+108 03633000 CVTOLT0A EQU CVTS01+104 03634000 CVTSRBRT EQU CVTS01+100 03635000 CVTPUTL EQU CVTS01+96 03636000 CVTASCRL EQU CVTS01+92 03637000 CVTASCRF EQU CVTS01+88 03638000 CVTRV326 EQU CVTS01+84 03639000 CVTRV325 EQU CVTS01+80 03640000 CVTRV324 EQU CVTS01+76 03641000 CVT0VL01 EQU CVTS01+72 03642000 CVTSHRVM EQU CVTS01+68 03643000 CVTRV332 EQU CVTS01+64 03644000 CVTTAS EQU CVTS01+60 03645000 CVTRSCN EQU CVTS01+56 03646000 CVTTRAC2 EQU CVTS01+54 03647000 CVTTRACE EQU CVTS01+52 03648000 CVTAPG EQU CVTS01+51 03649000 CVTSDTRC EQU CVTCTLFG 03650000 CVTGTRCE EQU CVTCTLFG 03651000 CVTNOMP EQU CVTCTLFG 03652000 CVTRSV79 EQU CVTCTLFG 03653000 CVTDSTAT EQU CVTCTLFG 03654000 CVTRSV78 EQU CVTCTLFG 03655000 CVTRV333 EQU CVTCTLFG 03656000 CVTRV323 EQU CVTCTLFG 03657000 CVTSPVLK EQU CVTS01+49 03658000 CVTRSV77 EQU CVTS01+48 03659000 CVTRV331 EQU CVTS01+44 03660000 CVTRV330 EQU CVTS01+40 03661000 CVTRV329 EQU CVTS01+36 03662000 CVTRV328 EQU CVTS01+32 03663000 CVTRV322 EQU CVTS01+28 03664000 CVTSLID EQU CVTSLIDA+1 03665000 CVTSYLK EQU CVTSLIDA 03666000 CVTRV321 EQU CVTS01+20 03667000 CVTRV320 EQU CVTS01+16 03668000 CVTLPDIR EQU CVTLPDIA+1 03669000 CVTRSV69 EQU CVTDIRST 03670000 CVTRSV68 EQU CVTDIRST 03671000 CVTRSV67 EQU CVTDIRST 03672000 CVTRSV66 EQU CVTDIRST 03673000 CVTRSV65 EQU CVTDIRST 03674000 CVTRSV64 EQU CVTDIRST 03675000 CVTRSV63 EQU CVTDIRST 03676000 CVTDICOM EQU CVTDIRST 03677000 CVTPVTP EQU CVTS01+8 03678000 CVTLPDSR EQU CVTS01+4 03679000 CVTGETL EQU CVTS01 03680000 ACHKOVOL EQU ACHKLIST+16 03681000 ACHKVOLS EQU ACHKVOLW+1 03682000 @NM00031 EQU ACHKFLG3 03683000 ACHKVOL EQU ACHKFLG3 03684000 @NM00030 EQU ACHKFLG3 03685000 ACHKPRF EQU ACHKFLG3 03686000 @NM00029 EQU ACHKFLG3 03687000 ACHKCLN EQU ACHKCLNW+1 03688000 @NM00028 EQU ACHKFLG2 03689000 @NM00027 EQU ACHKFLG2 03690000 ACHKCSA EQU ACHKFLG1 03691000 ACHKLOGN EQU ACHKFLG1 03692000 ACHKLOGF EQU ACHKFLG1 03693000 @NM00026 EQU ACHKFLG1 03694000 ACHKDSTV EQU ACHKFLG1 03695000 @NM00025 EQU ACHKFLG1 03696000 @NM00024 EQU ACHKFLG1 03697000 @NM00023 EQU ACHKFLG1 03698000 ACHKINST EQU ACHKINSW+1 03699000 CVTLEVL EQU CVTRELNO+2 03700000 CVTNUMB EQU CVTRELNO 03701000 CVTMDL EQU CVTFIX+250 03702000 @NM00022 EQU CVTFIX+248 03703000 @NM00021 EQU CVTFIX 03704000 CVTRV482 EQU CVTXTNT2+128 03705000 CVTRV481 EQU CVTXTNT2+124 03706000 CVTRV480 EQU CVTXTNT2+120 03707000 CVTRV479 EQU CVTXTNT2+118 03708000 CVTRV478 EQU CVTXTNT2+117 03709000 CVTRV477 EQU CVTXTNT2+116 03710000 CVTRV476 EQU CVTXTNT2+115 03711000 CVTRV475 EQU CVTXTNT2+114 03712000 CVTRV474 EQU CVTRV466 03713000 CVTRV473 EQU CVTRV466 03714000 CVTRV472 EQU CVTRV466 03715000 CVTRV471 EQU CVTRV466 03716000 CVTRV470 EQU CVTRV466 03717000 CVTRV469 EQU CVTRV466 03718000 CVTRV468 EQU CVTRV466 03719000 CVTRV467 EQU CVTRV466 03720000 CVTRV465 EQU CVTRV457 03721000 CVTRV464 EQU CVTRV457 03722000 CVTRV463 EQU CVTRV457 03723000 CVTRV462 EQU CVTRV457 03724000 CVTRV461 EQU CVTRV457 03725000 CVTRV460 EQU CVTRV457 03726000 CVTRV459 EQU CVTRV457 03727000 CVTRV458 EQU CVTRV457 03728000 CVTRV456 EQU CVTXTNT2+108 03729000 CVTRV455 EQU CVTXTNT2+104 03730000 CVTRV454 EQU CVTXTNT2+100 03731000 CVTRV453 EQU CVTXTNT2+96 03732000 CVTRV452 EQU CVTXTNT2+94 03733000 CVTRV451 EQU CVTXTNT2+92 03734000 CVTRV450 EQU CVTXTNT2+90 03735000 CVTRV449 EQU CVTXTNT2+88 03736000 CVTRV448 EQU CVTXTNT2+87 03737000 CVTRV447 EQU CVTXTNT2+86 03738000 CVTRV446 EQU CVTRV438 03739000 CVTRV445 EQU CVTRV438 03740000 CVTRV444 EQU CVTRV438 03741000 CVTRV443 EQU CVTRV438 03742000 CVTRV442 EQU CVTRV438 03743000 CVTRV441 EQU CVTRV438 03744000 CVTRV440 EQU CVTRV438 03745000 CVTRV439 EQU CVTRV438 03746000 CVTRV437 EQU CVTRV429 03747000 CVTRV436 EQU CVTRV429 03748000 CVTRV435 EQU CVTRV429 03749000 CVTRV434 EQU CVTRV429 03750000 CVTRV433 EQU CVTRV429 03751000 CVTRV432 EQU CVTRV429 03752000 CVTRV431 EQU CVTRV429 03753000 CVTRV430 EQU CVTRV429 03754000 CVTRV428 EQU CVTXTNT2+80 03755000 CVTRV427 EQU CVTXTNT2+76 03756000 CVTRV426 EQU CVTXTNT2+72 03757000 CVTRV425 EQU CVTXTNT2+68 03758000 CVTATACT EQU CVTATCVT 03759000 CVTRV423 EQU CVTXTNT2+62 03760000 CVTRV422 EQU CVTXTNT2+60 03761000 CVTRV421 EQU CVTXTNT2+58 03762000 CVTRV420 EQU CVTXTNT2+56 03763000 CVTRV419 EQU CVTXTNT2+55 03764000 CVTRV418 EQU CVTXTNT2+54 03765000 CVTRV417 EQU CVTRV409 03766000 CVTRV416 EQU CVTRV409 03767000 CVTRV415 EQU CVTRV409 03768000 CVTRV414 EQU CVTRV409 03769000 CVTRV413 EQU CVTRV409 03770000 CVTRV412 EQU CVTRV409 03771000 CVTRV411 EQU CVTRV409 03772000 CVTRV410 EQU CVTRV409 03773000 CVTRV408 EQU CVTRV400 03774000 CVTRV407 EQU CVTRV400 03775000 CVTRV406 EQU CVTRV400 03776000 CVTRV405 EQU CVTRV400 03777000 CVTRV404 EQU CVTRV400 03778000 CVTRV403 EQU CVTRV400 03779000 CVTRV402 EQU CVTRV400 03780000 CVTRV401 EQU CVTRV400 03781000 CVTICB EQU CVTXTNT2+48 03782000 CVTSKTA EQU CVTXTNT2+44 03783000 CVTRSV99 EQU CVTXTNT2+40 03784000 CVTRSV98 EQU CVTXTNT2+36 03785000 CVTRSV97 EQU CVTXTNT2+34 03786000 CVTRSV96 EQU CVTXTNT2+32 03787000 CVTOLTEP EQU CVTXTNT2+28 03788000 CVTQIDA EQU CVTQID+1 03789000 CVTRSV95 EQU CVTQID 03790000 CVTRSV94 EQU CVTXTNT2+20 03791000 CVTRSV93 EQU CVTXTNT2+16 03792000 CVTRSV92 EQU CVTXTNT2+12 03793000 CVTDEBVR EQU CVTXTNT2+8 03794000 CVTRSV91 EQU CVTXTNT2+6 03795000 CVTRSV9H EQU CVTFLGBT 03796000 CVTRSV9G EQU CVTFLGBT 03797000 CVTRSV9F EQU CVTFLGBT 03798000 CVTRSV9E EQU CVTFLGBT 03799000 CVTRSV9D EQU CVTFLGBT 03800000 CVTRSV9C EQU CVTFLGBT 03801000 CVTVME EQU CVTFLGBT 03802000 CVTNPE EQU CVTFLGBT 03803000 CVTNUCLS EQU CVTXTNT2+4 03804000 CVTDSSVA EQU CVTDSSV+1 03805000 CVTRSV89 EQU CVTDSSV 03806000 CVTRSV88 EQU CVTXTNT1+8 03807000 CVTRSV87 EQU CVTXTNT1+4 03808000 CVTFACHN EQU CVTXTNT1 03809000 CVTRV488 EQU CVTMAP+412 03810000 CVTRV487 EQU CVTMAP+408 03811000 CVTRV486 EQU CVTMAP+404 03812000 CVTRV485 EQU CVTMAP+400 03813000 CVTACTAP EQU CVTMAP+396 03814000 CVTAUTH EQU CVTMAP+392 03815000 CVTATMCA EQU CVTATMCT+1 03816000 CVTATMST EQU CVTATMCT 03817000 CVTRSV61 EQU CVTMAP+384 03818000 CVTVOLT1 EQU CVTVOLM1+1 03819000 CVTVOLI1 EQU CVTVOLF1 03820000 CVTSTOA EQU CVTMAP+376 03821000 CVTRSV58 EQU CVTMAP+374 03822000 CVTRSV57 EQU CVTMAP+372 03823000 CVTDDCE EQU CVTMAP+368 03824000 CVTPNWFR EQU CVTMAP+364 03825000 CVTSMF EQU CVTMAP+360 03826000 CVTSULK EQU CVTMAP+358 03827000 CVTSLKO EQU CVTSYSK 03828000 CVTSLKP EQU CVTSYSK 03829000 CVTSLKQ EQU CVTSYSK 03830000 CVTSLKR EQU CVTSYSK 03831000 CVTRSV56 EQU CVTSYSK 03832000 CVTRSV55 EQU CVTSYSK 03833000 CVTRSV54 EQU CVTSYSK 03834000 CVTRSV53 EQU CVTSYSK 03835000 CVTRSV52 EQU CVTA1F1 03836000 CVTRSV51 EQU CVTA1F1 03837000 CVTRSV50 EQU CVTA1F1 03838000 CVTRSV49 EQU CVTA1F1 03839000 CVTRSV48 EQU CVTA1F1 03840000 CVTRSV47 EQU CVTA1F1 03841000 CVTSRSW EQU CVTA1F1 03842000 CVTPFSW EQU CVTA1F1 03843000 CVTPCVT EQU CVTMAP+352 03844000 CVTRSV46 EQU CVTMAP+344 03845000 CVTRSV45 EQU CVTMAP+340 03846000 CVTRSV44 EQU CVTMAP+338 03847000 CVTRSV43 EQU CVTMAP+336 03848000 CVTHJESA EQU CVTHJES+1 03849000 CVTRSV42 EQU CVTHJES 03850000 CVTEXT2A EQU CVTEXT2+1 03851000 CVTRSV41 EQU CVTEXT2 03852000 CVTAPFA EQU CVTAPF+1 03853000 CVTRSV40 EQU CVTAPF 03854000 CVTRV518 EQU CVTINTLA 03855000 CVTRV517 EQU CVTERPV 03856000 CVTEORM EQU CVTMAP+312 03857000 CVTMCHPR EQU CVTMAP+308 03858000 CVTTZ EQU CVTMAP+304 03859000 CVTJEPS EQU CVTMAP+300 03860000 CVTJESCT EQU CVTMAP+296 03861000 CVTMODE EQU CVTMAP+292 03862000 CVTPTRV EQU CVTMAP+288 03863000 CVTREAL EQU CVTMAP+284 03864000 CVTRSV39 EQU CVTMAP+280 03865000 CVTRSV38 EQU CVTMAP+276 03866000 CVTDMSRA EQU CVTDMSR+1 03867000 CVTRV634 EQU CVTDMSRF 03868000 CVTRV633 EQU CVTDMSRF 03869000 CVTRV632 EQU CVTDMSRF 03870000 CVTRV631 EQU CVTDMSRF 03871000 CVTRV630 EQU CVTDMSRF 03872000 CVTRV629 EQU CVTDMSRF 03873000 CVTUDUMP EQU CVTDMSRF 03874000 CVTSDUMP EQU CVTDMSRF 03875000 CVTQMSGA EQU CVTQMSG+1 03876000 CVTRSV36 EQU CVTQMSG 03877000 CVTAMFF EQU CVTMAP+264 03878000 CVTPURGA EQU CVTPURG+1 03879000 CVTRSV35 EQU CVTPURG 03880000 CVTCBSP EQU CVTMAP+256 03881000 CVTATERA EQU CVTATER+1 03882000 CVTSYST EQU CVTATER 03883000 CVTVOLT2 EQU CVTTAT 03884000 CVTVOLI2 EQU CVTVOLF2 03885000 CVTAQAVB EQU CVTAQAVT+1 03886000 CVTRSV34 EQU CVTTCMFG 03887000 CVTRSV33 EQU CVTTCMFG 03888000 CVTRSV32 EQU CVTTCMFG 03889000 CVTRSV31 EQU CVTTCMFG 03890000 CVTRSV30 EQU CVTTCMFG 03891000 CVTRSV29 EQU CVTTCMFG 03892000 CVTRSV28 EQU CVTTCMFG 03893000 CVTTCRDY EQU CVTTCMFG 03894000 CVTGTFA EQU CVTGTF+1 03895000 CVTRSV27 EQU CVTGTFST 03896000 CVTRNIO EQU CVTGTFST 03897000 CVTUSR EQU CVTGTFST 03898000 CVTRV318 EQU CVTFORM 03899000 CVTRV317 EQU CVTTMODE 03900000 CVTRV316 EQU CVTSTATE 03901000 CVTRV315 EQU CVTGTFS 03902000 CVTGTFAV EQU CVTGTFS 03903000 CVT0SCR1 EQU CVTMAP+232 03904000 CVTRV515 EQU CVTMAP+228 03905000 CVTRMS EQU CVTMAP+224 03906000 CVTPATCH EQU CVTMAP+220 03907000 CVTTSCE EQU CVTMAP+216 03908000 CVTLNKSC EQU CVTMAP+214 03909000 CVTQABST EQU CVTMAP+212 03910000 CVTMDLDS EQU CVTMAP+208 03911000 CVTUSER EQU CVTMAP+204 03912000 CVTABEND EQU CVTMAP+200 03913000 CVTSMCA EQU CVTMAP+196 03914000 CVTRSV18 EQU CVTMAP+192 03915000 CVTQLPAQ EQU CVTMAP+188 03916000 CVTQCDSR EQU CVTMAP+184 03917000 CVTRSV17 EQU CVTOPTB 03918000 CVTRSV16 EQU CVTOPTB 03919000 CVTFP EQU CVTOPTB 03920000 CVTAPTHR EQU CVTOPTB 03921000 CVTNLOG EQU CVTOPTB 03922000 CVTTOD EQU CVTOPTB 03923000 CVTCTIMS EQU CVTOPTB 03924000 CVTPROT EQU CVTOPTB 03925000 CVTXPFP EQU CVTOPTA 03926000 CVTASCII EQU CVTOPTA 03927000 CVTRSV13 EQU CVTOPTA 03928000 CVTRSV12 EQU CVTOPTA 03929000 CVTNIP EQU CVTOPTA 03930000 CVTDDR EQU CVTOPTA 03931000 CVTAPR EQU CVTOPTA 03932000 CVTCCH EQU CVTOPTA 03933000 CVTSNCTR EQU CVTMAP+180 03934000 CVTQMWR EQU CVTMAP+176 03935000 CVTQOCR EQU CVTMAP+172 03936000 CVT1EF00 EQU CVTMAP+168 03937000 CVTMZ00 EQU CVTMAP+164 03938000 CVTSV76Q EQU CVTSV76C 03939000 CVTRSV11 EQU CVTMAP+156 03940000 CVT0PT01 EQU CVTMAP+152 03941000 CVTMSER EQU CVTMAP+148 03942000 CVTRV516 EQU CVTIERLC 03943000 CVTILCH EQU CVTMAP+140 03944000 CVT0DS EQU CVTMAP+136 03945000 CVTFBOSV EQU CVTMAP+132 03946000 CVTNUCB EQU CVTMAP+128 03947000 CVTIXAVL EQU CVTMAP+124 03948000 CVTSV76M EQU CVTIOQET 03949000 CVTDCBA EQU CVTMAP+117 03950000 CVTMVS2 EQU CVTDCB 03951000 CVT6DAT EQU CVTDCB 03952000 CVT4MPS EQU CVTDCB 03953000 CVTRSV09 EQU CVTDCB 03954000 CVT4MS1 EQU CVTDCB 03955000 CVT2SPS EQU CVTDCB 03956000 CVT1SSS EQU CVTDCB 03957000 CVTRSV08 EQU CVTDCB 03958000 CVTSTB EQU CVTMAP+112 03959000 CVTQTD00 EQU CVTMAP+108 03960000 CVTQTE00 EQU CVTMAP+104 03961000 CVTCUCB EQU CVTMAP+100 03962000 CVTSJQ EQU CVTMAP+96 03963000 CVTPBLDL EQU CVTMAP+92 03964000 CVTTPC EQU CVTMAP+88 03965000 CVTSVDCB EQU CVTMAP+84 03966000 CVTBRET EQU CVTMAP+82 03967000 CVTEXIT EQU CVTMAP+80 03968000 CVT0FN00 EQU CVTMAP+76 03969000 CVTDARA EQU CVTDAR+1 03970000 CVTRSV07 EQU CVTFLGS1 03971000 CVTRSV06 EQU CVTFLGS1 03972000 CVTRSV05 EQU CVTFLGS1 03973000 CVTRSV04 EQU CVTFLGS1 03974000 CVTRSV03 EQU CVTFLGS1 03975000 CVTRSV02 EQU CVTFLGS1 03976000 CVTRSV01 EQU CVTFLGS1 03977000 CVTDMPLK EQU CVTFLGS1 03978000 CVTXITP EQU CVTMAP+68 03979000 CVTZDTAB EQU CVTMAP+64 03980000 CVTMSLT EQU CVTMAP+60 03981000 CVTDATE EQU CVTMAP+56 03982000 CVTBTERM EQU CVTMAP+52 03983000 CVTSYSAD EQU CVTMAP+48 03984000 CVTXTLER EQU CVTMAP+44 03985000 CVTILK2 EQU CVTMAP+40 03986000 CVTILK1 EQU CVTMAP+36 03987000 CVTPRLTV EQU CVTMAP+32 03988000 CVTPCNVT EQU CVTMAP+28 03989000 CVT0VL00 EQU CVTMAP+24 03990000 CVTXAPG EQU CVTMAP+20 03991000 CVTBUF EQU CVTMAP+16 03992000 CVTJOB EQU CVTMAP+12 03993000 CVTLINK EQU CVTMAP+8 03994000 CVT0EF00 EQU CVTMAP+4 03995000 CVTTCBP EQU CVTMAP 03996000 CVT EQU CVTMAP 03997000 @NM00019 EQU MYVOLENT+10 03998000 DEVICE EQU DEVVOL 03999000 @NM00018 EQU DMPARY+15 04000000 DMPARYTP EQU DMPARY+14 04001000 DMPARYEX EQU DMPARY+12 04002000 DMPARYIC EQU DMPARY+10 04003000 DMPARYSZ EQU DMPARY+8 04004000 DMPARYNM EQU DMPARY 04005000 @NM00017 EQU DMPITM+15 04006000 DMPITMTP EQU DMPITM+14 04007000 DMPITMLN EQU DMPITM+12 04008000 DMPITMPT EQU DMPITM+8 04009000 DMPITMNM EQU DMPITM 04010000 @NM00016 EQU FMTCNVF+1 04011000 FMTBS EQU FMTCNVF+1 04012000 FMTSS EQU FMTCNVF+1 04013000 FMTAL EQU FMTCNVF+1 04014000 FMTZS EQU FMTCNVF+1 04015000 @NM00015 EQU FMTCNVF 04016000 FMTPU EQU FMTCNVF 04017000 FMTBD EQU FMTCNVF 04018000 FMTBHD EQU FMTCNVF 04019000 FMTBHA EQU FMTCNVF 04020000 FMTBH EQU FMTCNVF 04021000 FMTOLEN EQU FMTLIST+8 04022000 FMTRIO EQU FMTOCOL 04023000 FMTSPT EQU FMTSTO 04024000 FMTSTL EQU FMTILEN 04025000 @NM00014 EQU FMTFLGS+1 04026000 FMTHDF EQU FMTFLGS 04027000 FMTDFF EQU FMTFLGS 04028000 FMTSTF EQU FMTFLGS 04029000 FMTREPF EQU FMTFLGS 04030000 FMTBDF EQU FMTFLGS 04031000 FMTIDF EQU FMTFLGS 04032000 FMTSCF EQU FMTFLGS 04033000 FMTEOLF EQU FMTFLGS 04034000 DARGDTM EQU DARGARY+4 04035000 DARGPCT EQU DARGINL 04036000 DARGREP EQU DARGINS 04037000 @NM00013 EQU DARGLIST+19 04038000 DARGIND EQU DARGLIST+18 04039000 DARGRETL EQU DARGLIST+16 04040000 DARGCNT EQU DARGLIST+14 04041000 DARGRETP EQU DARGLIST+4 04042000 UVOLVOL EQU UVOLENT+4 04043000 UVOLDEV EQU UVOLENT 04044000 OPNRSVD EQU OPNAGL+28 04045000 OPNVOL EQU OPNAGL+24 04046000 OPNBLK EQU OPNAGL+20 04047000 OPNREC EQU OPNAGL+16 04048000 OPNDSN EQU OPNAGL+12 04049000 OPNDDN EQU OPNAGL+8 04050000 OPNIOC EQU OPNAGL+4 04051000 @NM00012 EQU OPNMOD 04052000 OPNMODRC EQU OPNMOD 04053000 OPNMODAC EQU OPNMOD 04054000 @NM00011 EQU OPNTYP 04055000 OPNTYPSO EQU OPNTYP 04056000 OPNTYPSI EQU OPNTYP 04057000 @NM00010 EQU OPNRFM 04058000 OPNRFMBK EQU OPNRFM 04059000 OPNRFMSF EQU OPNRFM 04060000 OPNRFMUN EQU OPNRFM 04061000 OPNRFMVR EQU OPNRFM 04062000 OPNRFMFX EQU OPNRFM 04063000 @NM00009 EQU OPNOPT 04064000 OPNOPTJM EQU OPNOPT 04065000 OPNOPTKS EQU OPNOPT 04066000 OPNOPTBK EQU OPNOPT 04067000 OPNOPTUP EQU OPNOPT 04068000 OPNOPTOT EQU OPNOPT 04069000 OPNOPTIN EQU OPNOPT 04070000 IOCEXT EQU IOCSTR+36 04071000 IOCRRN EQU IOCSTR+32 04072000 @NM00008 EQU IOCSTR+30 04073000 IOCPNM EQU IOCSTR+28 04074000 IOCCBP EQU IOCSTR+24 04075000 IOCDSN EQU IOCSTR+20 04076000 @NM00007 EQU IOCSTR+17 04077000 @NM00006 EQU IOCMSG 04078000 IOCMSGOP EQU IOCMSG 04079000 IOCMACPA EQU IOCMAC 04080000 @NM00005 EQU IOCMAC 04081000 IOCMACBK EQU IOCMAC 04082000 IOCMACUP EQU IOCMAC 04083000 IOCMACOT EQU IOCMAC 04084000 IOCMACIN EQU IOCMAC 04085000 @NM00004 EQU IOCRFM 04086000 IOCRFMBK EQU IOCRFM 04087000 IOCRFMSF EQU IOCRFM 04088000 IOCRFMUN EQU IOCRFM 04089000 IOCRFMVR EQU IOCRFM 04090000 IOCRFMFX EQU IOCRFM 04091000 @NM00003 EQU IOCDSO 04092000 IOCDSOPS EQU IOCDSO 04093000 IOCKYL EQU IOCSTR+12 04094000 IOCTRN EQU IOCSTR+8 04095000 IOCDLN EQU IOCSTR+4 04096000 IOCDAD EQU IOCSTR 04097000 STAEWORK EQU STAEPARM+32 04098000 STARPTR EQU STAEPFX+28 04099000 STASPTR EQU STAEPFX+24 04100000 STALEN EQU STAEPFX+20 04101000 STAID EQU STAEPFX+16 04102000 STAEPA EQU STAEPFX+12 04103000 STAGDT EQU STAEPFX+8 04104000 STABPTR EQU STAEPFX+4 04105000 STAFPTR EQU STAEPFX 04106000 NEWID1 EQU TRACE1+95 04107000 CALLID EQU OLDERID1+90 04108000 @NM00002 EQU OLDERID1 04109000 GDTCVR EQU GDTTBL+184 04110000 GDTSPR EQU GDTTBL+164 04111000 GDTTOH EQU GDTTBL+132 04112000 GDTRIP EQU GDTTBL+128 04113000 GDTDVH EQU GDTTBL+40 04114000 GDTIOH EQU GDTTBL+36 04115000 GDTSAH EQU GDTTBL+32 04116000 GDTTPH EQU GDTTBL+28 04117000 GDTRIH EQU GDTTBL+24 04118000 GDTSTH EQU GDTTBL+20 04119000 GDTDBH EQU GDTTBL+16 04120000 GDTPRM EQU GDTTBL+4 04121000 GDTHDR EQU GDTTBL 04122000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04123000 @RF00266 EQU @RC00259 04124000 @RF00353 EQU @RC00295 04125000 @ENDDATA EQU * 04126000 END ICKSA08,(C'PLS1743',0701,78192) 04127000