TITLE '************* IDCCH01: CHECKMSS FUNCTION **************00001000 * ' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 IDCCH01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCCH01 77.297' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @12,0 0002 00021000 @PSTART LA @10,4095(,@12) 0002 00022000 LA @09,4095(,@10) 0002 00023000 LA @08,4095(,@09) 0002 00024000 USING @PSTART,@12 0002 00025000 USING @PSTART+4095,@10 0002 00026000 USING @PSTART+8190,@09 0002 00027000 USING @PSTART+12285,@08 0002 00028000 L @00,@SIZDATD 0002 00029000 GETMAIN R,LV=(0) 00030000 LR @11,@01 0002 00031000 USING @DATD,@11 0002 00032000 ST @13,@SA00001+4 0002 00033000 LM @00,@01,20(@13) 0002 00034000 ST @11,8(,@13) 0002 00035000 LR @13,@11 0002 00036000 MVC @PC00001(12),0(@01) 0002 00037000 * 0461 00038000 */* ******************************************************* @Z40LB64*/ 00039000 */* @Z40LB64*/ 00040000 */* PROCEDURE NAME - IDCCH01 @Z40LB64*/ 00041000 */* @Z40LB64*/ 00042000 */* FUNCTION - THIS MAIN PROCEDURE OF CHECKMSS CONTROLS @Z40LB64*/ 00043000 */* THE INVOCATION OF VARIOUS SUBPROCEDURES @Z40LB64*/ 00044000 */* BASED UPON USER OPTIONS SPECIFIED AND UPON @Z40LB64*/ 00045000 */* INTERNAL CHECKMSS CONDITION CODES. @Z40LB64*/ 00046000 */* @Z40LB64*/ 00047000 */* INPUT - (1) AMS GLOBAL DATA TABLE. @Z40LB64*/ 00048000 */* (2) CHECKMSS FUNCTION DATA TABLE. @Z40LB64*/ 00049000 */* (3) CHECKMSS CONDITION CODE (INITIALLY ZERO). @Z40LB64*/ 00050000 */* @Z40LB64*/ 00051000 */* OUTPUT - (1) ANY DIAGNOSTIC OUTPUT FROM CHECKMSS @Z40LB64*/ 00052000 */* PROCESSING. @Z40LB64*/ 00053000 */* (2) THE FINAL CHECKMSS CONDITION CODE. @Z40LB64*/ 00054000 */* @Z40LB64*/ 00055000 */* ******************************************************* @Z40LB64*/ 00056000 * 0461 00057000 * OLDERID2=NEWERID2; 0461 00058000 L @15,@PC00001 0461 00059000 L @15,GDTTR2(,@15) 0461 00060000 MVC @TS00001(95),NEWERID2(@15) 0461 00061000 MVC OLDERID2(95,@15),@TS00001 0461 00062000 * NEWID2='CH1A'; /* @Z40LB64*/ 00063000 * 0462 00064000 MVC NEWID2(4,@15),@CC02430 0462 00065000 * /*****************************************************************/ 00066000 * /* */ 00067000 * /* INITIALIZE SUU CONDITION CODE ZERO. @ZA27324*/ 00068000 * /* */ 00069000 * /*****************************************************************/ 00070000 * 0463 00071000 * SUUCOND=0; /* @ZA27324*/ 00072000 SLR @15,@15 0463 00073000 STH @15,SUUCOND 0463 00074000 * DDSTRU=ADDR(PRNTLIST); /* @ZA27324*/ 00075000 * 0464 00076000 LA @14,PRNTLIST 0464 00077000 ST @14,DDSTRU 0464 00078000 * /*****************************************************************/ 00079000 * /* */ 00080000 * /* EXAMINE THE CHECKMSS OPTIONS REQUESTED TO DETERMINE @Z40LB64*/ 00081000 * /* WHICH PROCEDURES TO INVOKE. @Z40LB64*/ 00082000 * /* */ 00083000 * /*****************************************************************/ 00084000 * 0465 00085000 * MSVICHK=OFF; /* @Z40LB64*/ 00086000 * SACHK=OFF; /* @Z40LB64*/ 00087000 * MSCCHK=OFF; /* @Z40LB64*/ 00088000 NI MSVICHK,B'00011111' 0467 00089000 * IF(ADDR(MSVI)^=NULLPTR|ADDR(CHALL)^=NULLPTR) THEN 0468 00090000 L @14,@PC00001+4 0468 00091000 C @15,FDTPTR+16(,@14) 0468 00092000 BNE @RT00468 0468 00093000 C @15,FDTPTR+20(,@14) 0468 00094000 BE @RF00468 0468 00095000 @RT00468 DS 0H 0469 00096000 * MSVICHK=ON; /* @Z40LB64*/ 00097000 OI MSVICHK,B'00100000' 0469 00098000 * IF(ADDR(STGAD)^=NULLPTR|ADDR(CHALL)^=NULLPTR) THEN 0470 00099000 @RF00468 SLR @15,@15 0470 00100000 L @14,@PC00001+4 0470 00101000 C @15,FDTPTR+12(,@14) 0470 00102000 BNE @RT00470 0470 00103000 C @15,FDTPTR+20(,@14) 0470 00104000 BE @RF00470 0470 00105000 @RT00470 DS 0H 0471 00106000 * SACHK=ON; /* @Z40LB64*/ 00107000 OI SACHK,B'01000000' 0471 00108000 * IF(ADDR(MSC)^=NULLPTR|ADDR(CHALL)^=NULLPTR) THEN 0472 00109000 @RF00470 SLR @15,@15 0472 00110000 L @14,@PC00001+4 0472 00111000 C @15,FDTPTR+8(,@14) 0472 00112000 BNE @RT00472 0472 00113000 C @15,FDTPTR+20(,@14) 0472 00114000 BE @RF00472 0472 00115000 @RT00472 DS 0H 0473 00116000 * MSCCHK=ON; /* @Z40LB64*/ 00117000 * 0473 00118000 OI MSCCHK,B'10000000' 0473 00119000 * /*****************************************************************/ 00120000 * /* */ 00121000 * /* PERFORM CHECKMSS INITIALIZATION @Z40LB64*/ 00122000 * /* */ 00123000 * /*****************************************************************/ 00124000 * 0474 00125000 * CALL CHKINIT; /* @Z40LB64*/ 00126000 * 0474 00127000 @RF00472 BAL @14,CHKINIT 0474 00128000 * /*****************************************************************/ 00129000 * /* */ 00130000 * /* COPY THE MASS STORAGE CONTROL TABLES TO THE WORK @Z40LB64*/ 00131000 * /* DATA SET (UNLESS PREVIOUS ERRORS HAVE OCCURED). @Z40LB64*/ 00132000 * /* */ 00133000 * /*****************************************************************/ 00134000 * 0475 00135000 * IF LASTCOND=LASTCC00 THEN 0475 00136000 L @15,@PC00001+8 0475 00137000 LH @15,LASTCOND(,@15) 0475 00138000 LTR @15,@15 0475 00139000 BNZ @RF00475 0475 00140000 * CALL COPYMSC; /* @Z40LB64*/ 00141000 * 0476 00142000 BAL @14,COPYMSC 0476 00143000 * /*****************************************************************/ 00144000 * /* */ 00145000 * /* IF STAGING ADAPTER VS. MASS STORAGE CONTROL TABLE @Z40LB64*/ 00146000 * /* CHECKING HAS BEEN REQUESTED ('STAGINGADAPTERS' OR @Z40LB64*/ 00147000 * /* 'ALL' KEYWORDS), OBTAIN A COPY OF THE STAGING @Z40LB64*/ 00148000 * /* ADAPTERS' WORKING CONTROL STORAGE (UNLESS PREVIOUS @Z40LB64*/ 00149000 * /* ERRORS HAVE OCCURED). @Z40LB64*/ 00150000 * /* */ 00151000 * /*****************************************************************/ 00152000 * 0477 00153000 * IF LASTCOND=LASTCC00&SACHK=ON THEN 0477 00154000 @RF00475 L @06,@PC00001+8 0477 00155000 LH @06,LASTCOND(,@06) 0477 00156000 LTR @06,@06 0477 00157000 BNZ @RF00477 0477 00158000 TM SACHK,B'01000000' 0477 00159000 BNO @RF00477 0477 00160000 * CALL COPYSA; /* @Z40LB64*/ 00161000 BAL @14,COPYSA 0478 00162000 * IF GDTDBG=NULLPTR THEN 0479 00163000 @RF00477 L @06,@PC00001 0479 00164000 L @06,GDTDBG(,@06) 0479 00165000 LTR @06,@06 0479 00166000 BZ @RT00479 0479 00167000 * ; 0480 00168000 * ELSE 0481 00169000 * CALL IDCDB010(GDTTBL,'CH1X'); /* @Z40LB64*/ 00170000 * 0481 00171000 L @06,@PC00001 0481 00172000 ST @06,@AL00001 0481 00173000 LA @15,@CC02434 0481 00174000 ST @15,@AL00001+4 0481 00175000 MVI @AL00001+4,X'80' 0481 00176000 L @15,GDTDBG(,@06) 0481 00177000 LA @01,@AL00001 0481 00178000 BALR @14,@15 0481 00179000 * /*****************************************************************/ 00180000 * /* */ 00181000 * /* IF MASS STORAGE VOLUME INVENTORY VS. MASS STORAGE @Z40LB64*/ 00182000 * /* CONTROL TABLE CHECKING HAS BEEN REQUESTED, @Z40LB64*/ 00183000 * /* ('MSVINVENTORY' OR 'ALL' KEYWORDS), COMPARE MSVI @Z40LB64*/ 00184000 * /* RECORD FIELDS TO CORRESPONDING FIELDS IN THE MSC @Z40LB64*/ 00185000 * /* TABLES (UNLESS PREVIOUS ERRORS HAVE OCCURED). @Z40LB64*/ 00186000 * /* */ 00187000 * /*****************************************************************/ 00188000 * 0482 00189000 * IF LASTCOND=LASTCC00&MSVICHK=ON THEN 0482 00190000 @RT00479 L @06,@PC00001+8 0482 00191000 LH @06,LASTCOND(,@06) 0482 00192000 LTR @06,@06 0482 00193000 BNZ @RF00482 0482 00194000 TM MSVICHK,B'00100000' 0482 00195000 BNO @RF00482 0482 00196000 * CALL CHKMSVI; /* @Z40LB64*/ 00197000 * 0483 00198000 BAL @14,CHKMSVI 0483 00199000 * /*****************************************************************/ 00200000 * /* */ 00201000 * /* IF STAGING ADAPTER VS. MASS STORAGE CONTROL TABLE @Z40LB64*/ 00202000 * /* CHECKING OR INTER- MASS STORAGE CONTROL TABLE @Z40LB64*/ 00203000 * /* CHECKING HAS BEEN REQUESTED ('STAGINGADAPTERS', @Z40LB64*/ 00204000 * /* 'MASSSTORAGECONTROL' OR 'ALL' KEYWORDS), PERFORM @Z40LB64*/ 00205000 * /* THE REQUESTED COMPARISONS (UNLESS PREVIOUS ERRORS @Z40LB64*/ 00206000 * /* HAVE OCCURED). @Z40LB64*/ 00207000 * /* */ 00208000 * /*****************************************************************/ 00209000 * 0484 00210000 * IF LASTCOND=LASTCC00&(SACHK=ON|MSCCHK=ON) THEN 0484 00211000 @RF00482 L @06,@PC00001+8 0484 00212000 LH @15,LASTCOND(,@06) 0484 00213000 LTR @15,@15 0484 00214000 BNZ @RF00484 0484 00215000 TM SACHK,B'11000000' 0484 00216000 BZ @RF00484 0484 00217000 * CALL IDCCH02(GDTTBL,CDALIST,LASTCOND);/* @Z40LB64*/ 00218000 * 0485 00219000 L @15,@PC00001 0485 00220000 ST @15,@AL00001 0485 00221000 LA @15,CDALIST 0485 00222000 ST @15,@AL00001+4 0485 00223000 ST @06,@AL00001+8 0485 00224000 L @15,@CV02183 0485 00225000 LA @01,@AL00001 0485 00226000 BALR @14,@15 0485 00227000 * /*****************************************************************/ 00228000 * /* */ 00229000 * /* PERFORM CHECKMSS TERMINATION @Z40LB64*/ 00230000 * /* */ 00231000 * /*****************************************************************/ 00232000 * 0486 00233000 * CALL CHKTERM; /* @Z40LB64*/ 00234000 * 0486 00235000 @RF00484 BAL @14,CHKTERM 0486 00236000 * /*****************************************************************/ 00237000 * /* */ 00238000 * /* RETURN TO THE AMS EXECUTIVE @Z40LB64*/ 00239000 * /* */ 00240000 * /*****************************************************************/ 00241000 * 0487 00242000 * CALL IDCSAEP0(GDTTBL,MODID,LASTCOND); 0487 00243000 * 0487 00244000 L @15,@PC00001 0487 00245000 ST @15,@AL00001 0487 00246000 LA @14,MODID 0487 00247000 ST @14,@AL00001+4 0487 00248000 L @14,@PC00001+8 0487 00249000 ST @14,@AL00001+8 0487 00250000 MVI @AL00001+8,X'80' 0487 00251000 L @15,GDTEPL(,@15) 0487 00252000 LA @01,@AL00001 0487 00253000 BALR @14,@15 0487 00254000 * /*****************************************************************/ 00255000 * /* */ 00256000 * /* @Z40LB64*/ 00257000 * /* */ 00258000 * /*****************************************************************/ 00259000 * 0488 00260000 * 0488 00261000 */* ******************************************************* @Z40LB64*/ 00262000 */* @Z40LB64*/ 00263000 */* PROCEDURE NAME - CHKINIT @Z40LB64*/ 00264000 */* @Z40LB64*/ 00265000 */* FUNCTION - PERFORM CHECKMSS INITIALIZATION. @Z40LB64*/ 00266000 */* @Z40LB64*/ 00267000 */* PROCEDURE 'INITSPAC' IS INVOKED TO ACQUIRE @Z40LB64*/ 00268000 */* STORAGE REQUIRED FOR CHECKMSS PROCESSING. @Z40LB64*/ 00269000 */* @Z40LB64*/ 00270000 */* PROCEDURE 'INITWDS' IS INVOKED TO OPEN @Z40LB64*/ 00271000 */* THE WORK DATA SET. @Z40LB64*/ 00272000 */* @Z40LB64*/ 00273000 */* DATA VALUES AND POINTERS TO BE USED IN @Z40LB64*/ 00274000 */* SUBSEQUENT PROCESSING ARE INITIALIZED. @Z40LB64*/ 00275000 */* @Z40LB64*/ 00276000 */* INPUT - NONE @Z40LB64*/ 00277000 */* @Z40LB64*/ 00278000 */* OUTPUT - INITIALIZED DATA VALUES AND POINTERS. @Z40LB64*/ 00279000 */* @Z40LB64*/ 00280000 */* ******************************************************* @Z40LB64*/ 00281000 * 0488 00282000 *CHKINIT: 0488 00283000 * PROCEDURE; /* @Z40LB64*/ 00284000 @EL00001 L @13,4(,@13) 0488 00285000 @EF00001 L @00,@SIZDATD 0488 00286000 LR @01,@11 0488 00287000 FREEMAIN R,LV=(0),A=(1) 00288000 @ER00001 LM @14,@12,12(@13) 0488 00289000 BR @14 0488 00290000 CHKINIT STM @14,@05,@SA00002 0488 00291000 STM @08,@12,@SA00002+32 0488 00292000 * OLDERID2=NEWERID2; 0489 00293000 L @15,@PC00001 0489 00294000 L @15,GDTTR2(,@15) 0489 00295000 MVC @TS00001(95),NEWERID2(@15) 0489 00296000 MVC OLDERID2(95,@15),@TS00001 0489 00297000 * NEWID2='CH1B'; /* @Z40LB64*/ 00298000 MVC NEWID2(4,@15),@CC02440 0490 00299000 * WDSCBPTR=NULLPTR; /* @Z40LB64*/ 00300000 * 0491 00301000 SLR @15,@15 0491 00302000 ST @15,WDSCBPTR 0491 00303000 * /*****************************************************************/ 00304000 * /* */ 00305000 * /* ACQUIRE STORAGE REQUIRED FOR CHECKMSS PROCESSING @Z40LB64*/ 00306000 * /* */ 00307000 * /*****************************************************************/ 00308000 * 0492 00309000 * CALL INITSPAC; /* @Z40LB64*/ 00310000 * 0492 00311000 BAL @14,INITSPAC 0492 00312000 * /*****************************************************************/ 00313000 * /* */ 00314000 * /* OPEN AND VERIFY THE ATTRIBUTES OF THE WORK DATA SET @Z40LB64*/ 00315000 * /* (UNLESS PREVIOUS ERRORS HAVE OCCURED). @Z40LB64*/ 00316000 * /* */ 00317000 * /*****************************************************************/ 00318000 * 0493 00319000 * IF LASTCOND=LASTCC00 THEN 0493 00320000 L @15,@PC00001+8 0493 00321000 LH @15,LASTCOND(,@15) 0493 00322000 LTR @15,@15 0493 00323000 BNZ @RF00493 0493 00324000 * CALL INITWDS; /* @Z40LB64*/ 00325000 * 0494 00326000 BAL @14,INITWDS 0494 00327000 * /*****************************************************************/ 00328000 * /* */ 00329000 * /* INITIALIZE DATA VALUES AND POINTERS TO BE USED IN @Z40LB64*/ 00330000 * /* SUBSEQUENT PROCESSING (UNLESS PREVIOUS ERRORS HAVE @Z40LB64*/ 00331000 * /* OCCURED). @Z40LB64*/ 00332000 * /* */ 00333000 * /*****************************************************************/ 00334000 * 0495 00335000 * IF LASTCOND=LASTCC00 THEN 0495 00336000 @RF00493 L @15,@PC00001+8 0495 00337000 LH @15,LASTCOND(,@15) 0495 00338000 LTR @15,@15 0495 00339000 BNZ @RF00495 0495 00340000 * DO; /* @Z40LB64*/ 00341000 * 0496 00342000 * /*************************************************************/ 00343000 * /* */ 00344000 * /* INITIALIZE 'EXGARG' PARAMETER LIST FOR @Z40LB64*/ 00345000 * /* READING THE WORK DATA SET. @Z40LB64*/ 00346000 * /* */ 00347000 * /*************************************************************/ 00348000 * 0497 00349000 * RESPECIFY 0497 00350000 * EXGARG BASED(EXARGPTR); /* @Z40LB64*/ 00351000 * EXGARG=''B; /* @Z40LB64*/ 00352000 L @15,EXARGPTR 0498 00353000 XC EXGARG(32,@15),EXGARG(@15) 0498 00354000 * EXGCTLBK=WDSCBPTR; /* @Z40LB64*/ 00355000 L @14,WDSCBPTR 0499 00356000 ST @14,EXGCTLBK(,@15) 0499 00357000 * END; /* @Z40LB64*/ 00358000 * END CHKINIT; /* @Z40LB64*/ 00359000 @EL00002 DS 0H 0501 00360000 @EF00002 DS 0H 0501 00361000 @ER00002 LM @14,@05,@SA00002 0501 00362000 LM @08,@12,@SA00002+32 0501 00363000 BR @14 0501 00364000 * 0502 00365000 */* ******************************************************* @Z40LB64*/ 00366000 */* @Z40LB64*/ 00367000 */* PROCEDURE NAME - INITSPAC @Z40LB64*/ 00368000 */* @Z40LB64*/ 00369000 */* FUNCTION - TO ACQUIRE REQUIRED STORAGE FOR DATA @Z40LB64*/ 00370000 */* AREAS, I/O BUFFERS, AND CHECK-OFF TABLES. @Z40LB64*/ 00371000 */* @Z40LB64*/ 00372000 */* THE AMOUNT OF STORAGE REQUIRED DEPENDS UPON @Z40LB64*/ 00373000 */* THE CHECKMSS OPTIONS REQUESTED, AND THE @Z40LB64*/ 00374000 */* NUMBER OF VALID STAGING ADAPTERS. @Z40LB64*/ 00375000 */* @Z40LB64*/ 00376000 */* THE MSC CONFIGURATION BIT MAP IS READ FROM @Z40LB64*/ 00377000 */* THE MSC WORKING CONTROL STORAGE AND IS @Z40LB64*/ 00378000 */* USED TO DETERMINE THE NUMBER OF VALID @Z40LB64*/ 00379000 */* STAGING ADAPTERS. @Z40LB64*/ 00380000 */* @Z40LB64*/ 00381000 */* AREAS WITHIN ACQUIRED STORAGE WHICH ARE NOT @Z40LB64*/ 00382000 */* NEEDED FOR THE DURATION OF CHECKMSS ARE @Z40LB64*/ 00383000 */* OVERLAYED BY LATER-USED DATA AREAS IN ORDER @Z40LB64*/ 00384000 */* TO KEEP ACQUIRED STORAGE SIZE TO A MINIMUM. @Z40LB64*/ 00385000 */* @Z40LB64*/ 00386000 */* INPUT - (1) THE CHECKMSS OPTIONS REQUESTED @Z40LB64*/ 00387000 */* (2) THE MSC CONFIGURATION BIT MAP @Z40LB64*/ 00388000 */* @Z40LB64*/ 00389000 */* OUTPUT - THE REQUIRED AMOUNT OF STORAGE HAS BEEN @Z40LB64*/ 00390000 */* OBTAINED, AND BASE POINTERS INITIALIZED TO @Z40LB64*/ 00391000 */* THEIR RESPECTIVE LOCATIONS WITHIN THE @Z40LB64*/ 00392000 */* ACQUIRED SPACE. @Z40LB64*/ 00393000 */* @Z40LB64*/ 00394000 */* ******************************************************* @Z40LB64*/ 00395000 * 0502 00396000 *INITSPAC: 0502 00397000 * PROCEDURE; /* @Z40LB64*/ 00398000 INITSPAC STM @14,@05,@SA00003 0502 00399000 STM @08,@12,@SA00003+32 0502 00400000 * OLDERID2=NEWERID2; 0503 00401000 L @15,@PC00001 0503 00402000 L @15,GDTTR2(,@15) 0503 00403000 MVC @TS00001(95),NEWERID2(@15) 0503 00404000 MVC OLDERID2(95,@15),@TS00001 0503 00405000 * NEWID2='CH1C'; /* @Z40LB64*/ 00406000 MVC NEWID2(4,@15),@CC02448 0504 00407000 * NOSPACE=OFF; /* @Z40LB64*/ 00408000 * 0505 00409000 NI NOSPACE,B'01111111' 0505 00410000 * /*****************************************************************/ 00411000 * /* */ 00412000 * /* CALCULATE THE AMOUNT OF SPACE REQUIRED FOR ITEMS @Z40LB64*/ 00413000 * /* WHICH MUST REMAIN FOR THE DURATION OF CHECKMSS @Z40LB64*/ 00414000 * /* PROCESSING. ALL ITEMS ARE FULLWORD ALIGNED IN THE @Z40LB64*/ 00415000 * /* ACQUIRED AREA. BASE POINTERS OF INDIVIDUAL DATA @Z40LB64*/ 00416000 * /* ITEMS ARE INITIALLY USED TO CONTAIN THEIR OFFSET @Z40LB64*/ 00417000 * /* WITHIN THE ACQUIRED AREA UNTIL THE ACQUIRED AREA @Z40LB64*/ 00418000 * /* ADDRESS IS OBTAINED. @Z40LB64*/ 00419000 * /* CALCULATE THE SIZES OF THE TWO WORK DATA SET I/O @Z40LB64*/ 00420000 * /* BUFFERS AND THE WORKING CONTROL STORAGE BUFFER @Z40LB64*/ 00421000 * /* WHICH CAN OVERLAY THE WORK DATA SET I/O BUFFERS. @Z40LB64*/ 00422000 * /* */ 00423000 * /*****************************************************************/ 00424000 * 0506 00425000 * CHRADDR1=((LENGTH(IOBUF1)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 00426000 LA @15,264 0506 00427000 ST @15,CHRADDR1 0506 00428000 * CHRADDR2=((LENGTH(IOBUF2)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 00429000 ST @15,CHRADDR2 0507 00430000 * WCSBFPTR=((LENGTH(WCSBUF)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 00431000 LA @14,512 0508 00432000 ST @14,WCSBFPTR 0508 00433000 * SPACEAMT=MAX((CHRADDR1+CHRADDR2),WCSBFPTR);/* @Z40LB64*/ 00434000 LR @05,@15 0509 00435000 ALR @05,@15 0509 00436000 CR @05,@14 0509 00437000 BNL *+6 00438000 LR @05,@14 0509 00439000 ST @05,SPACEAMT 0509 00440000 * CHRADDR2=CHRADDR1; /* @Z40LB64*/ 00441000 ST @15,CHRADDR2 0510 00442000 * CHRADDR1=NULLPTR; /* @Z40LB64*/ 00443000 SLR @04,@04 0511 00444000 ST @04,CHRADDR1 0511 00445000 * WCSBFPTR=NULLPTR; /* @Z40LB64*/ 00446000 * 0512 00447000 ST @04,WCSBFPTR 0512 00448000 * /*****************************************************************/ 00449000 * /* */ 00450000 * /* IF STAGING ADAPTER VS. MASS STORAGE CONTROL (MSC) @Z40LB64*/ 00451000 * /* TABLE CHECKING OR MSC VS. MSC TABLE CHECKING IS @Z40LB64*/ 00452000 * /* REQUESTED, CALCULATE THE SIZES OF THE CONFIGURATION @Z40LB64*/ 00453000 * /* BIT MAP, AND INTERNAL MOUNT EQUALIZATION RECORD. @Z40LB64*/ 00454000 * /* */ 00455000 * /*****************************************************************/ 00456000 * 0513 00457000 * IF MSCCHK=ON|SACHK=ON THEN 0513 00458000 TM MSCCHK,B'11000000' 0513 00459000 BZ @RF00513 0513 00460000 * DO; /* @Z40LB64*/ 00461000 * CBMADDR=SPACEAMT; /* @Z40LB64*/ 00462000 ST @05,CBMADDR 0515 00463000 * SPACEAMT=SPACEAMT+2*(((LENGTH(CBMAP)+FWDALIGN)/FWDLEN)*FWDLEN); 00464000 AL @05,@CF02621 0516 00465000 ST @05,SPACEAMT 0516 00466000 * /* @Z40LB64*/ 00467000 * END; /* @Z40LB64*/ 00468000 * IF MSCCHK=ON THEN 0518 00469000 @RF00513 TM MSCCHK,B'10000000' 0518 00470000 BNO @RF00518 0518 00471000 * DO; /* @Z40LB64*/ 00472000 * IMERPTR=SPACEAMT; /* @Z40LB64*/ 00473000 L @15,SPACEAMT 0520 00474000 ST @15,IMERPTR 0520 00475000 * SPACEAMT=SPACEAMT+((LENGTH(IMERECRD)+FWDALIGN)/FWDLEN)*FWDLEN; 00476000 AL @15,@CF02209 0521 00477000 ST @15,SPACEAMT 0521 00478000 * /* @Z40LB64*/ 00479000 * END; /* @Z40LB64*/ 00480000 * 0522 00481000 * /*****************************************************************/ 00482000 * /* */ 00483000 * /* IF 'WORKDATASET' KEYWORD WAS SPECIFIED, CALCULATE @Z40LB64*/ 00484000 * /* THE SIZE OF THE 'UALLOC' MACRO ARGUMENT LIST. @Z40LB64*/ 00485000 * /* */ 00486000 * /*****************************************************************/ 00487000 * 0523 00488000 * IF ADDR(WDS)^=NULLPTR THEN 0523 00489000 @RF00518 L @15,@PC00001+4 0523 00490000 L @15,FDTPTR+4(,@15) 0523 00491000 LTR @15,@15 0523 00492000 BZ @RF00523 0523 00493000 * DO; /* @Z40LB64*/ 00494000 * ALLPTR=SPACEAMT; /* @Z40LB64*/ 00495000 L @15,SPACEAMT 0525 00496000 LR ALLPTR,@15 0525 00497000 * SPACEAMT=SPACEAMT+((LENGTH(ALLAGL)+FWDALIGN)/FWDLEN)*FWDLEN; 00498000 AL @15,@CF00223 0526 00499000 ST @15,SPACEAMT 0526 00500000 * /* @Z40LB64*/ 00501000 * END; /* @Z40LB64*/ 00502000 * 0527 00503000 * /*****************************************************************/ 00504000 * /* */ 00505000 * /* CALCULATE THE SIZES OF THE'UEXCP' MACRO ('OPEN' AND @Z40LB64*/ 00506000 * /* 'GET' OPTIONS) ARGUMENT LIST, THE 'USSC-READ WSC' @Z40LB64*/ 00507000 * /* ARGUMENT LIST, AND THE CCHHR TABLE. @Z40LB64*/ 00508000 * /* */ 00509000 * /*****************************************************************/ 00510000 * 0528 00511000 * EXARGPTR=SPACEAMT; /* @Z40LB64*/ 00512000 @RF00523 L @02,SPACEAMT 0528 00513000 ST @02,EXARGPTR 0528 00514000 * SPACEAMT=SPACEAMT+((MAX(LENGTH(EXOARG),LENGTH(EXGARG))+FWDALIGN)/ 00515000 * FWDLEN)*FWDLEN; /* @Z40LB64*/ 00516000 AL @02,@CF02625 0529 00517000 ST @02,SPACEAMT 0529 00518000 * RWCSPTR=SPACEAMT; /* @Z40LB64*/ 00519000 ST @02,RWCSPTR 0530 00520000 * SPACEAMT=SPACEAMT+((LENGTH(RWCSLIST)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00521000 * @Z40LB64*/ 00522000 AL @02,@CF00809 0531 00523000 ST @02,SPACEAMT 0531 00524000 * CCHHRPTR=SPACEAMT; /* @Z40LB64*/ 00525000 ST @02,CCHHRPTR 0532 00526000 * SPACEAMT=SPACEAMT+((LENGTH(CCHHRTBL)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00527000 * @Z40LB64*/ 00528000 * 0533 00529000 AL @02,@CF02630 0533 00530000 ST @02,SPACEAMT 0533 00531000 * /*****************************************************************/ 00532000 * /* */ 00533000 * /* CALCULATE THE SIZES OF THE 'ENTRYARG' AND 'MSGARG' @Z40LB64*/ 00534000 * /* ARGUMENT LISTS. @Z40LB64*/ 00535000 * /* */ 00536000 * /*****************************************************************/ 00537000 * 0534 00538000 * EARGPTR=SPACEAMT; /* @Z40LB64*/ 00539000 ST @02,EARGPTR 0534 00540000 * SPACEAMT=SPACEAMT+((LENGTH(ENTRYARG)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00541000 * @Z40LB64*/ 00542000 AL @02,@CF02607 0535 00543000 ST @02,SPACEAMT 0535 00544000 * MARGPTR=SPACEAMT; /* @Z40LB64*/ 00545000 ST @02,MARGPTR 0536 00546000 * SPACEAMT=SPACEAMT+((LENGTH(MSGARG)+FWDALIGN)/FWDLEN)*FWDLEN;/* 0537 00547000 * @Z40LB64*/ 00548000 * 0537 00549000 AL @02,@CF02633 0537 00550000 ST @02,SPACEAMT 0537 00551000 * /*****************************************************************/ 00552000 * /* */ 00553000 * /* OBTAIN THE CALCULATED AMOUNT OF STORAGE REQUIRED FOR @Z40LB64*/ 00554000 * /* THE DURATION OF CHECKMSS PROCESSING. @Z40LB64*/ 00555000 * /* */ 00556000 * /*****************************************************************/ 00557000 * 0538 00558000 * CALL IDCSAGP0(GDTTBL,SPACEAMT,SPACEPTR,CHPOOLID,SETZERO);/* 0538 00559000 * @Z40LB64*/ 00560000 L @02,@PC00001 0538 00561000 ST @02,@AL00001 0538 00562000 LA @15,SPACEAMT 0538 00563000 ST @15,@AL00001+4 0538 00564000 LA @15,SPACEPTR 0538 00565000 ST @15,@AL00001+8 0538 00566000 LA @15,@CC02193 0538 00567000 ST @15,@AL00001+12 0538 00568000 LA @15,SETZERO 0538 00569000 ST @15,@AL00001+16 0538 00570000 MVI @AL00001+16,X'80' 0538 00571000 L @15,GDTGPL(,@02) 0538 00572000 LA @01,@AL00001 0538 00573000 BALR @14,@15 0538 00574000 * RESPECIFY 0539 00575000 * RTNREG RSTD; 0539 00576000 * TESTRC=RTNREG; 0540 00577000 LR TESTRC,RTNREG 0540 00578000 * RESPECIFY 0541 00579000 * RTNREG UNRSTD; /* @Z40LB64*/ 00580000 * 0541 00581000 * /*****************************************************************/ 00582000 * /* */ 00583000 * /* IF THE REQUIRED STORAGE WAS NOT SUCCESSFULLY @Z40LB64*/ 00584000 * /* OBTAINED, TERMINATE CHECKMSS PROCESSING. @Z40LB64*/ 00585000 * /* */ 00586000 * /*****************************************************************/ 00587000 * 0542 00588000 * IF TESTRC^=0 THEN 0542 00589000 LTR TESTRC,TESTRC 0542 00590000 BZ @RF00542 0542 00591000 * DO; /* @Z40LB64*/ 00592000 * NOSPACE=ON; /* @Z40LB64*/ 00593000 OI NOSPACE,B'10000000' 0544 00594000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 00595000 L @15,@PC00001+8 0545 00596000 MVC LASTCOND(2,@15),@CH00567 0545 00597000 * RETURN; /* @Z40LB64*/ 00598000 @EL00003 DS 0H 0546 00599000 @EF00003 DS 0H 0546 00600000 @ER00003 LM @14,@05,@SA00003 0546 00601000 LM @08,@12,@SA00003+32 0546 00602000 BR @14 0546 00603000 * END; /* @Z40LB64*/ 00604000 * 0547 00605000 * /*****************************************************************/ 00606000 * /* */ 00607000 * /* REQUIRED STORAGE WAS SUCCESSFULLY OBTAINED. @Z40LB64*/ 00608000 * /* INITIALIZE BASE POINTERS WITHIN THE ACQUIRED AREA. @Z40LB64*/ 00609000 * /* */ 00610000 * /*****************************************************************/ 00611000 * 0548 00612000 * CHRADDR1=SPACEPTR+CHRADDR1; /* @Z40LB64*/ 00613000 @RF00542 L @15,SPACEPTR 0548 00614000 LR @14,@15 0548 00615000 AL @14,CHRADDR1 0548 00616000 ST @14,CHRADDR1 0548 00617000 * CHRADDR2=SPACEPTR+CHRADDR2; /* @Z40LB64*/ 00618000 LR @14,@15 0549 00619000 AL @14,CHRADDR2 0549 00620000 ST @14,CHRADDR2 0549 00621000 * WCSBFPTR=SPACEPTR+WCSBFPTR; /* @Z40LB64*/ 00622000 LR @14,@15 0550 00623000 AL @14,WCSBFPTR 0550 00624000 ST @14,WCSBFPTR 0550 00625000 * IF MSCCHK=ON|SACHK=ON THEN 0551 00626000 TM MSCCHK,B'11000000' 0551 00627000 BZ @RF00551 0551 00628000 * CBMADDR=SPACEPTR+CBMADDR; /* @Z40LB64*/ 00629000 AL @15,CBMADDR 0552 00630000 ST @15,CBMADDR 0552 00631000 * IF MSCCHK=ON THEN 0553 00632000 @RF00551 TM MSCCHK,B'10000000' 0553 00633000 BNO @RF00553 0553 00634000 * IMERPTR=SPACEPTR+IMERPTR; /* @Z40LB64*/ 00635000 L @15,SPACEPTR 0554 00636000 AL @15,IMERPTR 0554 00637000 ST @15,IMERPTR 0554 00638000 * IF ADDR(WDS)^=NULLPTR THEN 0555 00639000 @RF00553 L @15,@PC00001+4 0555 00640000 L @15,FDTPTR+4(,@15) 0555 00641000 LTR @15,@15 0555 00642000 BZ @RF00555 0555 00643000 * ALLPTR=SPACEPTR+ALLPTR; /* @Z40LB64*/ 00644000 AL ALLPTR,SPACEPTR 0556 00645000 * EXARGPTR=SPACEPTR+EXARGPTR; /* @Z40LB64*/ 00646000 @RF00555 L @15,SPACEPTR 0557 00647000 LR @14,@15 0557 00648000 AL @14,EXARGPTR 0557 00649000 ST @14,EXARGPTR 0557 00650000 * RWCSPTR=SPACEPTR+RWCSPTR; /* @Z40LB64*/ 00651000 LR @14,@15 0558 00652000 AL @14,RWCSPTR 0558 00653000 ST @14,RWCSPTR 0558 00654000 * CCHHRPTR=SPACEPTR+CCHHRPTR; /* @Z40LB64*/ 00655000 LR @14,@15 0559 00656000 AL @14,CCHHRPTR 0559 00657000 ST @14,CCHHRPTR 0559 00658000 * EARGPTR=SPACEPTR+EARGPTR; /* @Z40LB64*/ 00659000 LR @14,@15 0560 00660000 AL @14,EARGPTR 0560 00661000 ST @14,EARGPTR 0560 00662000 * MARGPTR=SPACEPTR+MARGPTR; /* @Z40LB64*/ 00663000 * 0561 00664000 AL @15,MARGPTR 0561 00665000 ST @15,MARGPTR 0561 00666000 * /*****************************************************************/ 00667000 * /* */ 00668000 * /* IF STAGING ADAPTER VS. MSC CHECKING OR MSC VS. MSC @Z40LB64*/ 00669000 * /* CHECKING HAS BEEN REQUESTED, OBTAIN THE MSC @Z40LB64*/ 00670000 * /* CONFIGURATION BIT MAP FROM THE MSC WORKING CONTROL @Z40LB64*/ 00671000 * /* STORAGE TO DETERMINE THE NUMBER OF VALID STAGING @Z40LB64*/ 00672000 * /* ADAPTERS AND MSFS. IF THE CONFIGURATION BIT MAP @Z40LB64*/ 00673000 * /* IS NOT SUCCESSFULLY OBTAINED, TERMINATE PROCESSING. @Z40LB64*/ 00674000 * /* */ 00675000 * /*****************************************************************/ 00676000 * 0562 00677000 * IF SACHK=ON|MSCCHK=ON THEN 0562 00678000 TM SACHK,B'11000000' 0562 00679000 BZ @RF00562 0562 00680000 *CBMDATA: 0563 00681000 * DO; /* @Z40LB64*/ 00682000 CBMDATA DS 0H 0564 00683000 * CBMPTR=CBMADDR; /* @Z40LB64*/ 00684000 L CBMPTR,CBMADDR 0564 00685000 * CBMFLAG=ON; /* @Z40LB64*/ 00686000 L @02,EARGPTR 0565 00687000 OI CBMFLAG(@02),B'01000000' 0565 00688000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 00689000 L @02,@PC00001 0566 00690000 ST @02,@AL00001 0566 00691000 LA @02,CDALIST 0566 00692000 ST @02,@AL00001+4 0566 00693000 L @15,@CV02184 0566 00694000 LA @01,@AL00001 0566 00695000 BALR @14,@15 0566 00696000 * IF GETRC^=0 THEN 0567 00697000 L @02,EARGPTR 0567 00698000 LH @02,GETRC(,@02) 0567 00699000 LTR @02,@02 0567 00700000 BZ @RF00567 0567 00701000 * DO; /* @Z40LB64*/ 00702000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 00703000 L @15,@PC00001+8 0569 00704000 MVC LASTCOND(2,@15),@CH00567 0569 00705000 * RETURN; /* @Z40LB64*/ 00706000 B @EL00003 0570 00707000 * END; /* @Z40LB64*/ 00708000 * 0571 00709000 * /*************************************************************/ 00710000 * /* */ 00711000 * /* COPY THE CONFIGURATION BIT MAP TO ITS PLACE @Z40LB64*/ 00712000 * /* IN THE ACQUIRED STORAGE AREA. @Z40LB64*/ 00713000 * /* */ 00714000 * /*************************************************************/ 00715000 * 0572 00716000 * CBMADDR->MOVEAREA(1:(LENGTH(CBMAP)*2))=TBLADDR->MOVEAREA(1:( 00717000 * LENGTH(CBMAP)*2)); /* @Z40LB64*/ 00718000 * 0572 00719000 @RF00567 L @06,CBMADDR 0572 00720000 L @02,EARGPTR 0572 00721000 L @02,TBLADDR(,@02) 0572 00722000 MVC MOVEAREA(80,@06),MOVEAREA(@02) 0572 00723000 * /*************************************************************/ 00724000 * /* */ 00725000 * /* DETERMINE THE NUMBER OF VALID @Z40LB64*/ 00726000 * /* STAGING ADAPTERS FROM THE MSC CONFIGURATION @Z40LB64*/ 00727000 * /* BIT MAP. @Z40LB64*/ 00728000 * /* */ 00729000 * /*************************************************************/ 00730000 * 0573 00731000 * TMPBYTE1=CBMSA(1); /* @Z40LB64*/ 00732000 MVC TMPBYTE1(1),CBMSA(CBMPTR) 0573 00733000 * TMPBYTE2=CBMSA(2); /* @Z40LB64*/ 00734000 MVC TMPBYTE2(1),CBMSA+1(CBMPTR) 0574 00735000 * MTCHMASK=HWRDMASK; /* @Z40LB64*/ 00736000 LH @06,HWRDMASK 0575 00737000 N @06,@CF02684 0575 00738000 STH @06,MTCHMASK 0575 00739000 * SAVLDCNT=0; /* @Z40LB64*/ 00740000 SLR @06,@06 0576 00741000 STH @06,SAVLDCNT 0576 00742000 * DO SA#=1 TO SAMAX; /* @Z40LB64*/ 00743000 LA SA#,1 0577 00744000 @DL00577 DS 0H 0578 00745000 * IF TEMPHWRD>MTCHMASK THEN 0578 00746000 CLC TEMPHWRD(2),MTCHMASK 0578 00747000 BNH @RF00578 0578 00748000 * DO; /* @Z40LB64*/ 00749000 * SAVLDCNT=SAVLDCNT+1; /* @Z40LB64*/ 00750000 LA @06,1 0580 00751000 AH @06,SAVLDCNT 0580 00752000 STH @06,SAVLDCNT 0580 00753000 * VLDSAID(SAVLDCNT)=SA#-1;/* @Z40LB64*/ 00754000 ALR @06,@06 0581 00755000 LR @04,SA# 0581 00756000 BCTR @04,0 0581 00757000 STH @04,VLDSAID-2(@06) 0581 00758000 * TEMPHWRD=TEMPHWRD&MTCHMASK;/* @Z40LB64*/ 00759000 LH @06,MTCHMASK 0582 00760000 N @06,@CF02684 0582 00761000 LH @04,TEMPHWRD 0582 00762000 N @04,@CF02684 0582 00763000 NR @06,@04 0582 00764000 STH @06,TEMPHWRD 0582 00765000 * END; /* @Z40LB64*/ 00766000 * MTCHMASK=MTCHMASK/2; /* @Z40LB64*/ 00767000 @RF00578 LH @06,MTCHMASK 0584 00768000 N @06,@CF02684 0584 00769000 SRL @06,1 0584 00770000 STH @06,MTCHMASK 0584 00771000 * VLDSSID(SA#)=NULLSSID; /* @ZA27324*/ 00772000 LR @06,SA# 0585 00773000 ALR @06,@06 0585 00774000 SLR @04,@04 0585 00775000 BCTR @04,0 0585 00776000 STH @04,VLDSSID-2(@06) 0585 00777000 * END; /* @Z40LB64*/ 00778000 * 0586 00779000 AL SA#,@CF00221 0586 00780000 C SA#,@CF00476 0586 00781000 BNH @DL00577 0586 00782000 * /*************************************************************/ 00783000 * /* */ 00784000 * /* DETERMINE THE NUMBER OF VALID MSFS FROM @Z40LB64*/ 00785000 * /* THE MSC CONFIGURATION BIT MAP. @Z40LB64*/ 00786000 * /* */ 00787000 * /*************************************************************/ 00788000 * 0587 00789000 * MSF#=0; /* @Z40LB64*/ 00790000 SLR @06,@06 0587 00791000 LR MSF#,@06 0587 00792000 * MSFVLCNT=0; /* @Z40LB64*/ 00793000 STH @06,MSFVLCNT 0588 00794000 * DO CBMBIT#=1 TO LENGTH(CBMMSF) BY 2;/* @Z40LB64*/ 00795000 LA CBMBIT#,1 0589 00796000 @DL00589 DS 0H 0590 00797000 * IF((CBMMSF&BITMASK(CBMBIT#))^='00'X)|((CBMMSF&BITMASK(CBMBIT# 00798000 * +1))^='00'X) THEN 0590 00799000 MVC @TS00001(1),CBMMSF(CBMPTR) 0590 00800000 LA @06,BITMASK-1(CBMBIT#) 0590 00801000 NC @TS00001(1),0(@06) 0590 00802000 CLI @TS00001,X'00' 0590 00803000 BNE @RT00590 0590 00804000 MVC @TS00001(1),CBMMSF(CBMPTR) 0590 00805000 LA @06,BITMASK(CBMBIT#) 0590 00806000 NC @TS00001(1),0(@06) 0590 00807000 CLI @TS00001,X'00' 0590 00808000 BE @RF00590 0590 00809000 @RT00590 DS 0H 0591 00810000 * DO; /* @Z40LB64*/ 00811000 * MSF#=MSF#+1; /* @Z40LB64*/ 00812000 LA @06,1 0592 00813000 ALR MSF#,@06 0592 00814000 * MSFVLCNT=MSFVLCNT+1; /* @Z40LB64*/ 00815000 AH @06,MSFVLCNT 0593 00816000 STH @06,MSFVLCNT 0593 00817000 * VLDMSFID(MSF#)=(CBMBIT#-1)/2;/* @Z40LB64*/ 00818000 LR @06,MSF# 0594 00819000 ALR @06,@06 0594 00820000 LR @00,CBMBIT# 0594 00821000 BCTR @00,0 0594 00822000 SRDA @00,32 0594 00823000 D @00,@CF00155 0594 00824000 STH @01,VLDMSFID-2(@06) 0594 00825000 * END; /* @Z40LB64*/ 00826000 * END; /* @Z40LB64*/ 00827000 @RF00590 AL CBMBIT#,@CF00155 0596 00828000 C CBMBIT#,@CF00181 0596 00829000 BNH @DL00589 0596 00830000 * END CBMDATA; /* @Z40LB64*/ 00831000 * 0597 00832000 * /*****************************************************************/ 00833000 * /* */ 00834000 * /* CALCULATE THE AMOUNT OF OVERLAYABLE SPACE REQUIRED @Z40LB64*/ 00835000 * /* BASED UPON CHECKMSS OPTIONS REQUESTED AND THE NUMBER @Z40LB64*/ 00836000 * /* OF VALID STAGING ADAPTERS. @Z40LB64*/ 00837000 * /* CALCULATE THE SIZE OF THE 'UIOINFO' MACRO ARGUMENT @Z40LB64*/ 00838000 * /* LIST, 'INFOAREA' BLOCK, 'UMSSUNIT' ARGUMENT LIST, @Z40LB64*/ 00839000 * /* WORK DATA SET CCHHR AREA, 'UCCS-ACQUIRE' ARGUMENT @Z40LB64*/ 00840000 * /* LIST, AND 'USSC-COPYTABL' ARGUMENT LIST. @Z40LB64*/ 00841000 * /* */ 00842000 * /*****************************************************************/ 00843000 * 0598 00844000 * IOINFPTR=NULLPTR; /* @Z40LB64*/ 00845000 @RF00562 SLR @15,@15 0598 00846000 ST @15,IOINFPTR 0598 00847000 * OVRLDAMT=((LENGTH(IOINFOPT)+FWDALIGN)/FWDLEN)*FWDLEN; 0599 00848000 LA OVRLDAMT,4 0599 00849000 * INFOAPTR=OVRLDAMT; /* @Z40LB64*/ 00850000 ST OVRLDAMT,INFOAPTR 0600 00851000 * OVRLDAMT=OVRLDAMT+((LENGTH(INFOAREA)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00852000 * @Z40LB64*/ 00853000 AL OVRLDAMT,@CF02619 0601 00854000 * CKAGLPTR=OVRLDAMT; /* @Z40LB64*/ 00855000 ST OVRLDAMT,CKAGLPTR 0602 00856000 * OVRLDAMT=OVRLDAMT+((LENGTH(CKAGL)+FWDALIGN)/FWDLEN)*FWDLEN;/* 0603 00857000 * @Z40LB64*/ 00858000 AL OVRLDAMT,@CF00223 0603 00859000 * WDSAPTR=OVRLDAMT; /* @Z40LB64*/ 00860000 LR WDSAPTR,OVRLDAMT 0604 00861000 * OVRLDAMT=OVRLDAMT+((LENGTH(WDSCCHHR)+FWDALIGN)+FWDLEN)*FWDLEN;/* 00862000 * @Z40LB64*/ 00863000 AL OVRLDAMT,@CF02630 0605 00864000 * ACQPTR=OVRLDAMT; /* @Z40LB64*/ 00865000 ST OVRLDAMT,ACQPTR 0606 00866000 * OVRLDAMT=OVRLDAMT+((LENGTH(ACQLIST)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00867000 * @Z40LB64*/ 00868000 AL OVRLDAMT,@CF02635 0607 00869000 * COTBPTR=OVRLDAMT; /* @Z40LB64*/ 00870000 ST OVRLDAMT,COTBPTR 0608 00871000 * OVRLDAMT=OVRLDAMT+((LENGTH(COTBLIST)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00872000 * @Z40LB64*/ 00873000 * 0609 00874000 AL OVRLDAMT,@CF00312 0609 00875000 * /*****************************************************************/ 00876000 * /* */ 00877000 * /* DETERMINE THE AMOUNT OF SPACE WHICH WILL OVERLAY @Z40LB64*/ 00878000 * /* THE PREVIOUSLY CALCULATED OVERLAYABLE SPACE. @Z40LB64*/ 00879000 * /* CALCULATE THE SIZES OF THE MESSAGE AREA, TEXT AREA, @Z40LB64*/ 00880000 * /* FORMAT AREA, AND BLOCK DATA AREA. @Z40LB64*/ 00881000 * /* */ 00882000 * /*****************************************************************/ 00883000 * 0610 00884000 * MSGAPTR=NULLPTR; /* @Z40LB64*/ 00885000 ST @15,MSGAPTR 0610 00886000 * OVRLYAMT=((LENGTH(MSGAREA)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 00887000 LA @15,120 0611 00888000 LR OVRLYAMT,@15 0611 00889000 * TEXTAPTR=OVRLYAMT; /* @Z40LB64*/ 00890000 ST OVRLYAMT,TEXTAPTR 0612 00891000 * OVRLYAMT=OVRLYAMT+((LENGTH(TEXTAREA)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00892000 * @Z40LB64*/ 00893000 ALR OVRLYAMT,@15 0613 00894000 * FMTAPTR=OVRLYAMT; /* @Z40LB64*/ 00895000 ST OVRLYAMT,FMTAPTR 0614 00896000 * OVRLYAMT=OVRLYAMT+((LENGTH(FMTAREA)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00897000 * @Z40LB64*/ 00898000 AL OVRLYAMT,@CF02213 0615 00899000 * BDATAPTR=OVRLYAMT; /* @Z40LB64*/ 00900000 ST OVRLYAMT,BDATAPTR 0616 00901000 * OVRLYAMT=OVRLYAMT+((LENGTH(BLKDATA)+FWDALIGN)/FWDLEN)*FWDLEN;/* 00902000 * @Z40LB64*/ 00903000 * 0617 00904000 ALR OVRLYAMT,@15 0617 00905000 * /*****************************************************************/ 00906000 * /* */ 00907000 * /* IF STAGING ADAPTER VS. MSC TABLE CHECKING IS @Z40LB64*/ 00908000 * /* REQUESTED, DETERMINE THE LENGTH OF THE INTERNAL @Z40LB64*/ 00909000 * /* STAGING ADAPTER TABLES. THE AMOUNT REQUIRED IS @Z40LB64*/ 00910000 * /* DETERMINED BY THE NUMBER OF VALID STAGING ADAPTERS. @Z40LB64*/ 00911000 * /* POINTERS TO THE INTERNAL SA TABLES FOR INVALID SA'S @Z40LB64*/ 00912000 * /* ARE SET TO ZERO AND VALID SA'S ARE SET NONZERO. @Z40LB64*/ 00913000 * /* IF MSC VS. MSC TABLE CHECKING IS REQUESTED, BUT @Z40LB64*/ 00914000 * /* SA VS. MSC CHECKING IS NOT REQUESTED, ONLY THE @Z40LB64*/ 00915000 * /* SA TABLE POINTER ARRAYS ARE INITIALIZED. @Z40LB64*/ 00916000 * /* */ 00917000 * /*****************************************************************/ 00918000 * 0618 00919000 * IF MSCCHK=ON|SACHK=ON THEN 0618 00920000 TM MSCCHK,B'11000000' 0618 00921000 BZ @RF00618 0618 00922000 * DO; /* @Z40LB64*/ 00923000 * DO SA#=1 TO SAMAX; /* @Z40LB64*/ 00924000 LA SA#,1 0620 00925000 @DL00620 DS 0H 0621 00926000 * IVADPTR(SA#)=NULLPTR; /* @Z40LB64*/ 00927000 SLR @04,@04 0621 00928000 LR @15,SA# 0621 00929000 SLA @15,2 0621 00930000 ST @04,IVADPTR-4(@15) 0621 00931000 * IVVITPTR(SA#)=NULLPTR; /* @Z40LB64*/ 00932000 ST @04,IVVITPTR-4(@15) 0622 00933000 * IPSTPTR(SA#)=NULLPTR; /* @Z40LB64*/ 00934000 ST @04,IPSTPTR-4(@15) 0623 00935000 * ILTRPTR(SA#)=NULLPTR; /* @Z40LB64*/ 00936000 ST @04,ILTRPTR-4(@15) 0624 00937000 * END; /* @Z40LB64*/ 00938000 AL SA#,@CF00221 0625 00939000 C SA#,@CF00476 0625 00940000 BNH @DL00620 0625 00941000 * DO SA#=1 TO SAVLDCNT; /* @Z40LB64*/ 00942000 LA SA#,1 0626 00943000 B @DE00626 0626 00944000 @DL00626 DS 0H 0627 00945000 * SAID#=VLDSAID(SA#)+1; /* @Z40LB64*/ 00946000 LR @15,SA# 0627 00947000 ALR @15,@15 0627 00948000 LA SAID#,1 0627 00949000 AH SAID#,VLDSAID-2(@15) 0627 00950000 * IVADPTR(SAID#)=OVRLYAMT; /* @Z40LB64*/ 00951000 LR @15,SAID# 0628 00952000 SLA @15,2 0628 00953000 ST OVRLYAMT,IVADPTR-4(@15) 0628 00954000 * IF SACHK=ON THEN 0629 00955000 TM SACHK,B'01000000' 0629 00956000 BNO @RF00629 0629 00957000 * OVRLYAMT=OVRLYAMT+((DIM(IVAD,1)*DIM(IVAD,2)*LENGTH(IVAD)+ 00958000 * FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 00959000 AL OVRLYAMT,@CF00377 0630 00960000 * IVVITPTR(SAID#)=OVRLYAMT; /* @Z40LB64*/ 00961000 @RF00629 LR @15,SAID# 0631 00962000 SLA @15,2 0631 00963000 ST OVRLYAMT,IVVITPTR-4(@15) 0631 00964000 * IF SACHK=ON THEN 0632 00965000 TM SACHK,B'01000000' 0632 00966000 BNO @RF00632 0632 00967000 * OVRLYAMT=OVRLYAMT+((DIM(IVVIT)*LENGTH(IVVIT)+FWDALIGN)/ 00968000 * FWDLEN)*FWDLEN; /* @Z40LB64*/ 00969000 AL OVRLYAMT,@CF00377 0633 00970000 * IPSTPTR(SAID#)=OVRLYAMT; /* @Z40LB64*/ 00971000 @RF00632 LR @15,SAID# 0634 00972000 SLA @15,2 0634 00973000 ST OVRLYAMT,IPSTPTR-4(@15) 0634 00974000 * IF SACHK=ON THEN 0635 00975000 TM SACHK,B'01000000' 0635 00976000 BNO @RF00635 0635 00977000 * OVRLYAMT=OVRLYAMT+((DIM(IPST,1)*DIM(IPST,2)*DIM(IPST,3)* 00978000 * LENGTH(IPST)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 00979000 AL OVRLYAMT,@CF02641 0636 00980000 * ILTRPTR(SAID#)=OVRLYAMT; /* @Z40LB64*/ 00981000 @RF00635 LR @15,SAID# 0637 00982000 SLA @15,2 0637 00983000 ST OVRLYAMT,ILTRPTR-4(@15) 0637 00984000 * IF SACHK=ON THEN 0638 00985000 TM SACHK,B'01000000' 0638 00986000 BNO @RF00638 0638 00987000 * OVRLYAMT=OVRLYAMT+((DIM(ILTR)*LENGTH(ILTR)+FWDALIGN)/FWDLEN 00988000 * )*FWDLEN; /* @Z40LB64*/ 00989000 AL OVRLYAMT,@CF00476 0639 00990000 * END; /* @Z40LB64*/ 00991000 @RF00638 AL SA#,@CF00221 0640 00992000 @DE00626 CH SA#,SAVLDCNT 0640 00993000 BNH @DL00626 0640 00994000 * END; /* @Z40LB64*/ 00995000 * 0641 00996000 * /*****************************************************************/ 00997000 * /* */ 00998000 * /* CALCULATE THE SIZE OF THE MSC MOUNTED VOLUME TABLE @Z40LB64*/ 00999000 * /* CONTROL BLOCK. @Z40LB64*/ 01000000 * /* */ 01001000 * /*****************************************************************/ 01002000 * 0642 01003000 * MVCBADDR=OVRLYAMT; /* @Z40LB64*/ 01004000 @RF00618 ST OVRLYAMT,MVCBADDR 0642 01005000 * OVRLYAMT=OVRLYAMT+((MVTCBTOT*RECLNGTH+FWDALIGN)/FWDLEN)*FWDLEN;/* 01006000 * @Z40LB64*/ 01007000 * 0643 01008000 AL OVRLYAMT,@CF02645 0643 01009000 * /*****************************************************************/ 01010000 * /* */ 01011000 * /* IF MSVI VS. MSC CHECKING IS REQUESTED, DETERMINE @Z40LB64*/ 01012000 * /* THE MSVI-RELATED STORAGE REQUIREMENT WHICH CANNOT @Z40LB64*/ 01013000 * /* BE OVERLAYED FOLLOWING 'CHECKMSVI' PROCESSING. @Z40LB64*/ 01014000 * /* */ 01015000 * /*****************************************************************/ 01016000 * 0644 01017000 * IF MSVICHK=ON THEN 0644 01018000 TM MSVICHK,B'00100000' 0644 01019000 BNO @RF00644 0644 01020000 * DO; /* @Z40LB64*/ 01021000 * 0645 01022000 * /*************************************************************/ 01023000 * /* */ 01024000 * /* CALCULATE THE SIZES OF THE MSC VOLUME @Z40LB64*/ 01025000 * /* INVENTORY CHECK-OFF TABLE, MSC TRANSIENT @Z40LB64*/ 01026000 * /* VOLUME LIST CHECK-OFF TABLE, AND THE @Z40LB64*/ 01027000 * /* MSC MOUNTED VOLUME TABLE CHECK-OFF TABLE. @Z40LB64*/ 01028000 * /* */ 01029000 * /*************************************************************/ 01030000 * 0646 01031000 * VICOPTR=OVRLYAMT; /* @Z40LB64*/ 01032000 ST OVRLYAMT,VICOPTR 0646 01033000 * OVRLYAMT=OVRLYAMT+((DIM(VICHKFF)+FWDALIGN)/FWDLEN)*FWDLEN;/* 01034000 * @Z40LB64*/ 01035000 AL OVRLYAMT,@CF01713 0647 01036000 * TVLCOPTR=OVRLYAMT; /* @Z40LB64*/ 01037000 ST OVRLYAMT,TVLCOPTR 0648 01038000 * OVRLYAMT=OVRLYAMT+((DIM(TVLCHKFF)+FWDALIGN)/FWDLEN)*FWDLEN;/* 01039000 * @Z40LB64*/ 01040000 AL OVRLYAMT,@CF01716 0649 01041000 * MVTCOPTR=OVRLYAMT; /* @Z40LB64*/ 01042000 ST OVRLYAMT,MVTCOPTR 0650 01043000 * OVRLYAMT=OVRLYAMT+((DIM(MVTCHKFF)+FWDALIGN)/FWDLEN)*FWDLEN;/* 01044000 * @Z40LB64*/ 01045000 AL OVRLYAMT,@CF01719 0651 01046000 * END; /* @Z40LB64*/ 01047000 * 0652 01048000 * /*****************************************************************/ 01049000 * /* */ 01050000 * /* THE REQUIRED ALLOCATABLE SPACE IS THE MAXIMUM OF @Z40LB64*/ 01051000 * /* THE OVERLAYABLE AREA AND THE OVERLAYING AREA. @Z40LB64*/ 01052000 * /* */ 01053000 * /*****************************************************************/ 01054000 * 0653 01055000 * SPACEAMT=MAX(OVRLDAMT,OVRLYAMT);/* @Z40LB64*/ 01056000 * 0653 01057000 @RF00644 LR @15,OVRLYAMT 0653 01058000 CR @15,OVRLDAMT 0653 01059000 BNL *+6 01060000 LR @15,OVRLDAMT 0653 01061000 ST @15,SPACEAMT 0653 01062000 * /*****************************************************************/ 01063000 * /* */ 01064000 * /* IF MSVI VS. MSC CHECKING IS REQUESTED, DETERMINE @Z40LB64*/ 01065000 * /* THE MSVI-RELATED STORAGE REQUIREMENT WHICH CAN BE @Z40LB64*/ 01066000 * /* OVERLAYED FOLLOWING 'CHECKMSVI' PROCESSING. @Z40LB64*/ 01067000 * /* */ 01068000 * /*****************************************************************/ 01069000 * 0654 01070000 * OVRLDAMT=0; /* @Z40LB64*/ 01071000 SLR OVRLDAMT,OVRLDAMT 0654 01072000 * IF MSVICHK=ON THEN 0655 01073000 TM MSVICHK,B'00100000' 0655 01074000 BNO @RF00655 0655 01075000 * DO; /* @Z40LB64*/ 01076000 * 0656 01077000 * /*************************************************************/ 01078000 * /* */ 01079000 * /* CALCULATE THE SIZES OF THE MSC MANUFACTURER'S @Z40LB64*/ 01080000 * /* ID CONVERSION TABLE, 'USSC-RVVI' MACRO @Z40LB64*/ 01081000 * /* ARGUMENT LIST, MSVI CPU RECORD, AND MSVI @Z40LB64*/ 01082000 * /* RECORD BUFFER. @Z40LB64*/ 01083000 * /* */ 01084000 * /*************************************************************/ 01085000 * 0657 01086000 * MICPTR=SPACEAMT; /* @Z40LB64*/ 01087000 ST @15,MICPTR 0657 01088000 * OVRLDAMT=((LENGTH(MICTABLE)+FWDALIGN)/FWDLEN)*FWDLEN;/* 0658 01089000 * @Z40LB64*/ 01090000 LA OVRLDAMT,128 0658 01091000 * RVVIPTR=SPACEAMT+OVRLDAMT; /* @Z40LB64*/ 01092000 LR @02,OVRLDAMT 0659 01093000 ALR @02,@15 0659 01094000 ST @02,RVVIPTR 0659 01095000 * OVRLDAMT=OVRLDAMT+((LENGTH(RVVI)+FWDALIGN)/FWDLEN)*FWDLEN;/* 01096000 * @Z40LB64*/ 01097000 AL OVRLDAMT,@CF02630 0660 01098000 * CPUIDPTR=SPACEAMT+OVRLDAMT; /* @Z40LB64*/ 01099000 LR @02,OVRLDAMT 0661 01100000 ALR @02,@15 0661 01101000 ST @02,CPUIDPTR 0661 01102000 * OVRLDAMT=OVRLDAMT+((LENGTH(CPUID)+FWDALIGN)/FWDLEN)*FWDLEN;/* 01103000 * @Z40LB64*/ 01104000 AL OVRLDAMT,@CF02656 0662 01105000 * MSVIAPTR=SPACEAMT+OVRLDAMT; /* @Z40LB64*/ 01106000 ALR @15,OVRLDAMT 0663 01107000 ST @15,MSVIAPTR 0663 01108000 * OVRLDAMT=OVRLDAMT+((LENGTH(MSVIREC)+FWDALIGN)/FWDLEN)*FWDLEN; 01109000 AL OVRLDAMT,@CF02657 0664 01110000 * /* @Z40LB64*/ 01111000 * END; /* @Z40LB64*/ 01112000 * 0665 01113000 * /*****************************************************************/ 01114000 * /* */ 01115000 * /* IF MSC VS. MSC CHECKING WAS REQUESTED, DETERMINE @Z40LB64*/ 01116000 * /* THE CELL MAP AND CELL MAP CHECK-OFF TABLE STORAGE @Z40LB64*/ 01117000 * /* REQUIREMENTS WHICH CAN BE OVERLAYED FOLLOWING @Z40LB64*/ 01118000 * /* 'CELLMAP' PROCESSING. @Z40LB64*/ 01119000 * /* */ 01120000 * /*****************************************************************/ 01121000 * 0666 01122000 * OVRLYAMT=0; /* @Z40LB64*/ 01123000 @RF00655 SLR OVRLYAMT,OVRLYAMT 0666 01124000 * IF MSCCHK=ON THEN 0667 01125000 TM MSCCHK,B'10000000' 0667 01126000 BNO @RF00667 0667 01127000 * DO; /* @Z40LB64*/ 01128000 * DO MSF#=1 TO MSFVLCNT+1; /* @Z40LB64*/ 01129000 LA MSF#,1 0669 01130000 B @DE00669 0669 01131000 @DL00669 DS 0H 0670 01132000 * DO CMBLK#=1 TO BLKSMSF; /* @Z40LB64*/ 01133000 LA CMBLK#,1 0670 01134000 @DL00670 DS 0H 0671 01135000 * CMBUFPTR(MSF#,CMBLK#)=SPACEAMT+OVRLYAMT;/* @Z40LB64*/ 01136000 LR @15,MSF# 0671 01137000 SLA @15,2 0671 01138000 ALR @15,CMBLK# 0671 01139000 SLA @15,2 0671 01140000 LR @14,OVRLYAMT 0671 01141000 AL @14,SPACEAMT 0671 01142000 ST @14,CMBUFPTR-20(@15) 0671 01143000 * OVRLYAMT=OVRLYAMT+CMBLKLEN;/* @Z40LB64*/ 01144000 AL OVRLYAMT,@CF01098 0672 01145000 * END; /* @Z40LB64*/ 01146000 AL CMBLK#,@CF00221 0673 01147000 C CMBLK#,@CF00044 0673 01148000 BNH @DL00670 0673 01149000 * END; /* @Z40LB64*/ 01150000 AL MSF#,@CF00221 0674 01151000 @DE00669 LA @05,1 0674 01152000 AH @05,MSFVLCNT 0674 01153000 CR MSF#,@05 0674 01154000 BNH @DL00669 0674 01155000 * DO MSF#=1 TO MSFVLCNT; /* @Z40LB64*/ 01156000 LA MSF#,1 0675 01157000 B @DE00675 0675 01158000 @DL00675 DS 0H 0676 01159000 * DO CMBLK#=1 TO BLKSMSF; /* @Z40LB64*/ 01160000 LA CMBLK#,1 0676 01161000 @DL00676 DS 0H 0677 01162000 * CMCOPTR(MSF#,CMBLK#)=SPACEAMT+OVRLYAMT;/* @Z40LB64*/ 01163000 LR @15,MSF# 0677 01164000 SLA @15,2 0677 01165000 ALR @15,CMBLK# 0677 01166000 SLA @15,2 0677 01167000 LR @14,OVRLYAMT 0677 01168000 AL @14,SPACEAMT 0677 01169000 ST @14,CMCOPTR-20(@15) 0677 01170000 * OVRLYAMT=OVRLYAMT+CMBLKLEN;/* @Z40LB64*/ 01171000 AL OVRLYAMT,@CF01098 0678 01172000 * END; /* @Z40LB64*/ 01173000 AL CMBLK#,@CF00221 0679 01174000 C CMBLK#,@CF00044 0679 01175000 BNH @DL00676 0679 01176000 * END; /* @Z40LB64*/ 01177000 AL MSF#,@CF00221 0680 01178000 @DE00675 CH MSF#,MSFVLCNT 0680 01179000 BNH @DL00675 0680 01180000 * END; /* @Z40LB64*/ 01181000 * 0681 01182000 * /*****************************************************************/ 01183000 * /* */ 01184000 * /* THE REQUIRED ALLOCATABLE SPACE IS THE MAXIMUM OF @Z40LB64*/ 01185000 * /* THE OVERLAYABLE AREA AND THE OVERLAYING AREA. @Z40LB64*/ 01186000 * /* */ 01187000 * /*****************************************************************/ 01188000 * 0682 01189000 * OVRLDAMT=MAX(OVRLDAMT,OVRLYAMT);/* @Z40LB64*/ 01190000 * 0682 01191000 @RF00667 CR OVRLDAMT,OVRLYAMT 0682 01192000 BNL *+6 01193000 LR OVRLDAMT,OVRLYAMT 0682 01194000 * /*****************************************************************/ 01195000 * /* */ 01196000 * /* IF STAGING ADAPTER VS. MSC CHECKING OR MSC VS. MSC @Z40LB64*/ 01197000 * /* TABLE CHECKING IS REQUESTED, DETERMINE THE MSC AND @Z40LB64*/ 01198000 * /* STAGING ADAPTER TABLES, AND CHECK-OFF TABLES @Z40LB64*/ 01199000 * /* STORAGE REQUIREMENTS. @Z40LB64*/ 01200000 * /* */ 01201000 * /*****************************************************************/ 01202000 * 0683 01203000 * OVRLYAMT=0; /* @Z40LB64*/ 01204000 SLR OVRLYAMT,OVRLYAMT 0683 01205000 * IF MSCCHK=ON|SACHK=ON THEN 0684 01206000 TM MSCCHK,B'11000000' 0684 01207000 BZ @RF00684 0684 01208000 * DO; /* @Z40LB64*/ 01209000 * IF MSCCHK=ON THEN 0686 01210000 TM MSCCHK,B'10000000' 0686 01211000 BNO @RF00686 0686 01212000 * DO; /* @Z40LB64*/ 01213000 * 0687 01214000 * /*********************************************************/ 01215000 * /* */ 01216000 * /* CALCULATE THE SIZE OF THE MSC @Z40LB64*/ 01217000 * /* CONFIGURATION INDEX TABLE. @Z40LB64*/ 01218000 * /* */ 01219000 * /*********************************************************/ 01220000 * 0688 01221000 * CIADDR=SPACEAMT; /* @Z40LB64*/ 01222000 L @15,SPACEAMT 0688 01223000 ST @15,CIADDR 0688 01224000 * OVRLYAMT=((SAMAX*LENGTH(CIENTRY)+FWDALIGN)/FWDLEN)*FWDLEN; 01225000 LA OVRLYAMT,128 0689 01226000 * /* @Z40LB64*/ 01227000 * END; /* @Z40LB64*/ 01228000 * 0690 01229000 * /*************************************************************/ 01230000 * /* */ 01231000 * /* CALCULATE THE SIZES OF THE MSC VIRTUAL VOLUME @Z40LB64*/ 01232000 * /* ADDRESS TABLE (VVAT) AND THE VVAT CHECK-OFF @Z40LB64*/ 01233000 * /* TABLE. @Z40LB64*/ 01234000 * /* */ 01235000 * /*************************************************************/ 01236000 * 0691 01237000 * VVATADDR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01238000 @RF00686 L @15,SPACEAMT 0691 01239000 LR @14,OVRLYAMT 0691 01240000 ALR @14,@15 0691 01241000 ST @14,VVATADDR 0691 01242000 * OVRLYAMT=OVRLYAMT+((SAMAX*LENGTH(VVAT)+FWDALIGN)/FWDLEN)*FWDLEN 01243000 * ; /* @Z40LB64*/ 01244000 AL OVRLYAMT,@CF02205 0692 01245000 * VVACOPTR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01246000 ALR @15,OVRLYAMT 0693 01247000 ST @15,VVACOPTR 0693 01248000 * OVRLYAMT=OVRLYAMT+((DIM(VVACHKFF,1)*DIM(VVACHKFF,2)+FWDALIGN)/ 01249000 * FWDLEN)*FWDLEN; /* @Z40LB64*/ 01250000 * 0694 01251000 AL OVRLYAMT,@CF00377 0694 01252000 * /*************************************************************/ 01253000 * /* */ 01254000 * /* CALCULATE THE SIZES OF CHECK-OFF TABLES @Z40LB64*/ 01255000 * /* FOR THE STAGING ADAPTER TABLES. @Z40LB64*/ 01256000 * /* */ 01257000 * /*************************************************************/ 01258000 * 0695 01259000 * DO SA#=1 TO SAMAX; /* @Z40LB64*/ 01260000 LA SA#,1 0695 01261000 @DL00695 DS 0H 0696 01262000 * VADCOPTR(SA#)=NULLPTR; /* @Z40LB64*/ 01263000 SLR @04,@04 0696 01264000 LR @15,SA# 0696 01265000 SLA @15,2 0696 01266000 ST @04,VADCOPTR-4(@15) 0696 01267000 * VVICOPTR(SA#)=NULLPTR; /* @Z40LB64*/ 01268000 ST @04,VVICOPTR-4(@15) 0697 01269000 * PSTCOPTR(SA#)=NULLPTR; /* @Z40LB64*/ 01270000 ST @04,PSTCOPTR-4(@15) 0698 01271000 * END; /* @Z40LB64*/ 01272000 AL SA#,@CF00221 0699 01273000 C SA#,@CF00476 0699 01274000 BNH @DL00695 0699 01275000 * IF SACHK=ON THEN 0700 01276000 TM SACHK,B'01000000' 0700 01277000 BNO @RF00700 0700 01278000 * DO SA#=1 TO SAVLDCNT; /* @Z40LB64*/ 01279000 LA SA#,1 0701 01280000 B @DE00701 0701 01281000 @DL00701 DS 0H 0702 01282000 * SAID#=VLDSAID(SA#)+1; /* @Z40LB64*/ 01283000 LR @15,SA# 0702 01284000 ALR @15,@15 0702 01285000 LA SAID#,1 0702 01286000 AH SAID#,VLDSAID-2(@15) 0702 01287000 * VADCOPTR(SAID#)=SPACEAMT+OVRLYAMT;/* @Z40LB64*/ 01288000 LR @15,SAID# 0703 01289000 SLA @15,2 0703 01290000 L @14,SPACEAMT 0703 01291000 LR @01,OVRLYAMT 0703 01292000 ALR @01,@14 0703 01293000 ST @01,VADCOPTR-4(@15) 0703 01294000 * OVRLYAMT=OVRLYAMT+((DIM(VADCHKFF,1)*DIM(VADCHKFF,2)+ 0704 01295000 * FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 01296000 LA @01,24 0704 01297000 ALR OVRLYAMT,@01 0704 01298000 * VVICOPTR(SAID#)=SPACEAMT+OVRLYAMT;/* @Z40LB64*/ 01299000 LR @00,OVRLYAMT 0705 01300000 ALR @00,@14 0705 01301000 ST @00,VVICOPTR-4(@15) 0705 01302000 * OVRLYAMT=OVRLYAMT+((DIM(VVICHKFF)+FWDALIGN)/FWDLEN)*FWDLEN; 01303000 ALR OVRLYAMT,@01 0706 01304000 * /* @Z40LB64*/ 01305000 * PSTCOPTR(SAID#)=SPACEAMT+OVRLYAMT;/* @Z40LB64*/ 01306000 ALR @14,OVRLYAMT 0707 01307000 ST @14,PSTCOPTR-4(@15) 0707 01308000 * OVRLYAMT=OVRLYAMT+((DIM(PSTCHKFF,1)*DIM(PSTCHKFF,2)*DIM( 01309000 * PSTCHKFF,3)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 01310000 AL OVRLYAMT,@CF02659 0708 01311000 * END; /* @Z40LB64*/ 01312000 * 0709 01313000 AL SA#,@CF00221 0709 01314000 @DE00701 CH SA#,SAVLDCNT 0709 01315000 BNH @DL00701 0709 01316000 * /*************************************************************/ 01317000 * /* */ 01318000 * /* CALCULATE THE SIZES OF THE CHECK-OFF TABLES @Z40LB64*/ 01319000 * /* FOR THE SDG DEMOUNTED VOLUMES BLOCK, SDG LRU @Z40LB64*/ 01320000 * /* PAGES BLOCK, MSC REAL PAGE MAP, MSC PAGE @Z40LB64*/ 01321000 * /* AVAILABILITY BLOCK, MSC VVA/MVT CROSS @Z40LB64*/ 01322000 * /* REFERENCE TABLE, AND MSC CONFIGURATION DATA @Z40LB64*/ 01323000 * /* BLOCK. @Z40LB64*/ 01324000 * /* */ 01325000 * /*************************************************************/ 01326000 * 0710 01327000 * DVBCOPTR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01328000 @RF00700 L @15,SPACEAMT 0710 01329000 LR @14,OVRLYAMT 0710 01330000 ALR @14,@15 0710 01331000 ST @14,DVBCOPTR 0710 01332000 * OVRLYAMT=OVRLYAMT+((DIM(DVBCHKFF,1)*DIM(DVBCHKFF,2)+FWDALIGN)/ 01333000 * FWDLEN)*FWDLEN; /* @Z40LB64*/ 01334000 LA @14,480 0711 01335000 ALR OVRLYAMT,@14 0711 01336000 * LPBCOPTR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01337000 LR @05,OVRLYAMT 0712 01338000 ALR @05,@15 0712 01339000 ST @05,LPBCOPTR 0712 01340000 * OVRLYAMT=OVRLYAMT+((DIM(LPBCHKFF,1)*DIM(LPBCHKFF,2)+FWDALIGN)/ 01341000 * FWDLEN)*FWDLEN; /* @Z40LB64*/ 01342000 ALR OVRLYAMT,@14 0713 01343000 * RPMCOPTR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01344000 LR @14,OVRLYAMT 0714 01345000 ALR @14,@15 0714 01346000 ST @14,RPMCOPTR 0714 01347000 * OVRLYAMT=OVRLYAMT+((DIM(RPMCHKFF,1)*DIM(RPMCHKFF,2)*DIM( 0715 01348000 * RPMCHKFF,3)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 01349000 AL OVRLYAMT,@CF02664 0715 01350000 * VMXCOPTR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01351000 LR @14,OVRLYAMT 0716 01352000 ALR @14,@15 0716 01353000 ST @14,VMXCOPTR 0716 01354000 * OVRLYAMT=OVRLYAMT+((DIM(VMXCHKFF,1)*DIM(VMXCHKFF,2)+FWDALIGN)/ 01355000 * FWDLEN)*FWDLEN; /* @Z40LB64*/ 01356000 LA @14,384 0717 01357000 ALR OVRLYAMT,@14 0717 01358000 * CDBCOPTR=SPACEAMT+OVRLYAMT; /* @Z40LB64*/ 01359000 ALR @15,OVRLYAMT 0718 01360000 ST @15,CDBCOPTR 0718 01361000 * OVRLYAMT=OVRLYAMT+((DIM(CDBCHKFF,1)*DIM(CDBCHKFF,2)*DIM( 0719 01362000 * CDBCHKFF,3)+FWDALIGN)/FWDLEN)*FWDLEN;/* @Z40LB64*/ 01363000 ALR OVRLYAMT,@14 0719 01364000 * END; /* @Z40LB64*/ 01365000 * 0720 01366000 * /*****************************************************************/ 01367000 * /* */ 01368000 * /* THE REQUIRED ALLOCATABLE SPACE IS THE MAXIMUM OF @Z40LB64*/ 01369000 * /* THE OVERLAYABLE AREA AND THE OVERLAYING AREA. @Z40LB64*/ 01370000 * /* */ 01371000 * /*****************************************************************/ 01372000 * 0721 01373000 * SPACEAMT=SPACEAMT+MAX(OVRLDAMT,OVRLYAMT);/* @Z40LB64*/ 01374000 * 0721 01375000 @RF00684 LR @15,OVRLYAMT 0721 01376000 CR @15,OVRLDAMT 0721 01377000 BNL *+6 01378000 LR @15,OVRLDAMT 0721 01379000 AL @15,SPACEAMT 0721 01380000 ST @15,SPACEAMT 0721 01381000 * /*****************************************************************/ 01382000 * /* */ 01383000 * /* ACQUIRE THE REMAINING REQUIRED STORAGE FOR THE @Z40LB64*/ 01384000 * /* REQUESTED CHECKMSS OPTIONS. IF THE REQUIRED STORAGE @Z40LB64*/ 01385000 * /* IS NOT SUCCESSFULLY OBTAINED, TERMINATE PROCESSING. @Z40LB64*/ 01386000 * /* */ 01387000 * /*****************************************************************/ 01388000 * 0722 01389000 * CALL IDCSAGP0(GDTTBL,SPACEAMT,SPACEPTR,CHPOOLID,SETZERO);/* 0722 01390000 * @Z40LB64*/ 01391000 L @02,@PC00001 0722 01392000 ST @02,@AL00001 0722 01393000 LA @15,SPACEAMT 0722 01394000 ST @15,@AL00001+4 0722 01395000 LA @15,SPACEPTR 0722 01396000 ST @15,@AL00001+8 0722 01397000 LA @15,@CC02193 0722 01398000 ST @15,@AL00001+12 0722 01399000 LA @15,SETZERO 0722 01400000 ST @15,@AL00001+16 0722 01401000 MVI @AL00001+16,X'80' 0722 01402000 L @15,GDTGPL(,@02) 0722 01403000 LA @01,@AL00001 0722 01404000 BALR @14,@15 0722 01405000 * RESPECIFY 0723 01406000 * RTNREG RSTD; 0723 01407000 * TESTRC=RTNREG; 0724 01408000 LR TESTRC,RTNREG 0724 01409000 * RESPECIFY 0725 01410000 * RTNREG UNRSTD; /* @Z40LB64*/ 01411000 * IF TESTRC^=0 THEN 0726 01412000 LTR TESTRC,TESTRC 0726 01413000 BZ @RF00726 0726 01414000 * DO; /* @Z40LB64*/ 01415000 * NOSPACE=ON; /* @Z40LB64*/ 01416000 OI NOSPACE,B'10000000' 0728 01417000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 01418000 L @15,@PC00001+8 0729 01419000 MVC LASTCOND(2,@15),@CH00567 0729 01420000 * RETURN; /* @Z40LB64*/ 01421000 B @EL00003 0730 01422000 * END; /* @Z40LB64*/ 01423000 * 0731 01424000 * /*****************************************************************/ 01425000 * /* */ 01426000 * /* REQUIRED STORAGE SUCCESSFULLY ALLOCATED. INITIALIZE @Z40LB64*/ 01427000 * /* ALL POINTERS WITHIN THE ACQUIRED AREA. @Z40LB64*/ 01428000 * /* */ 01429000 * /*****************************************************************/ 01430000 * 0732 01431000 * IOINFPTR=SPACEPTR+IOINFPTR; /* @Z40LB64*/ 01432000 @RF00726 L @15,SPACEPTR 0732 01433000 LR @14,@15 0732 01434000 AL @14,IOINFPTR 0732 01435000 ST @14,IOINFPTR 0732 01436000 * INFOAPTR=SPACEPTR+INFOAPTR; /* @Z40LB64*/ 01437000 LR @14,@15 0733 01438000 AL @14,INFOAPTR 0733 01439000 ST @14,INFOAPTR 0733 01440000 * CKAGLPTR=SPACEPTR+CKAGLPTR; /* @Z40LB64*/ 01441000 LR @14,@15 0734 01442000 AL @14,CKAGLPTR 0734 01443000 ST @14,CKAGLPTR 0734 01444000 * WDSAPTR=SPACEPTR+WDSAPTR; /* @Z40LB64*/ 01445000 ALR WDSAPTR,@15 0735 01446000 * ACQPTR=SPACEPTR+ACQPTR; /* @Z40LB64*/ 01447000 LR @14,@15 0736 01448000 AL @14,ACQPTR 0736 01449000 ST @14,ACQPTR 0736 01450000 * COTBPTR=SPACEPTR+COTBPTR; /* @Z40LB64*/ 01451000 LR @14,@15 0737 01452000 AL @14,COTBPTR 0737 01453000 ST @14,COTBPTR 0737 01454000 * MSGAPTR=SPACEPTR+MSGAPTR; /* @Z40LB64*/ 01455000 LR @14,@15 0738 01456000 AL @14,MSGAPTR 0738 01457000 ST @14,MSGAPTR 0738 01458000 * TEXTAPTR=SPACEPTR+TEXTAPTR; /* @Z40LB64*/ 01459000 LR @14,@15 0739 01460000 AL @14,TEXTAPTR 0739 01461000 ST @14,TEXTAPTR 0739 01462000 * FMTAPTR=SPACEPTR+FMTAPTR; /* @Z40LB64*/ 01463000 LR @14,@15 0740 01464000 AL @14,FMTAPTR 0740 01465000 ST @14,FMTAPTR 0740 01466000 * BDATAPTR=SPACEPTR+BDATAPTR; /* @Z40LB64*/ 01467000 AL @15,BDATAPTR 0741 01468000 ST @15,BDATAPTR 0741 01469000 * IF SACHK=ON THEN 0742 01470000 TM SACHK,B'01000000' 0742 01471000 BNO @RF00742 0742 01472000 * DO SA#=1 TO SAVLDCNT; /* @Z40LB64*/ 01473000 LA SA#,1 0743 01474000 B @DE00743 0743 01475000 @DL00743 DS 0H 0744 01476000 * SAID#=VLDSAID(SA#)+1; /* @Z40LB64*/ 01477000 LR @15,SA# 0744 01478000 ALR @15,@15 0744 01479000 LA SAID#,1 0744 01480000 AH SAID#,VLDSAID-2(@15) 0744 01481000 * IVADPTR(SAID#)=SPACEPTR+IVADPTR(SAID#);/* @Z40LB64*/ 01482000 LR @15,SAID# 0745 01483000 SLA @15,2 0745 01484000 L @14,SPACEPTR 0745 01485000 LR @03,@14 0745 01486000 AL @03,IVADPTR-4(@15) 0745 01487000 ST @03,IVADPTR-4(@15) 0745 01488000 * IVVITPTR(SAID#)=SPACEPTR+IVVITPTR(SAID#);/* @Z40LB64*/ 01489000 LR @03,@14 0746 01490000 AL @03,IVVITPTR-4(@15) 0746 01491000 ST @03,IVVITPTR-4(@15) 0746 01492000 * IPSTPTR(SAID#)=SPACEPTR+IPSTPTR(SAID#);/* @Z40LB64*/ 01493000 LR @03,@14 0747 01494000 AL @03,IPSTPTR-4(@15) 0747 01495000 ST @03,IPSTPTR-4(@15) 0747 01496000 * ILTRPTR(SAID#)=SPACEPTR+ILTRPTR(SAID#);/* @Z40LB64*/ 01497000 LR @03,@14 0748 01498000 AL @03,ILTRPTR-4(@15) 0748 01499000 ST @03,ILTRPTR-4(@15) 0748 01500000 * VADCOPTR(SAID#)=SPACEPTR+VADCOPTR(SAID#);/* @Z40LB64*/ 01501000 LR @03,@14 0749 01502000 AL @03,VADCOPTR-4(@15) 0749 01503000 ST @03,VADCOPTR-4(@15) 0749 01504000 * VVICOPTR(SAID#)=SPACEPTR+VVICOPTR(SAID#);/* @Z40LB64*/ 01505000 LR @03,@14 0750 01506000 AL @03,VVICOPTR-4(@15) 0750 01507000 ST @03,VVICOPTR-4(@15) 0750 01508000 * PSTCOPTR(SAID#)=SPACEPTR+PSTCOPTR(SAID#);/* @Z40LB64*/ 01509000 AL @14,PSTCOPTR-4(@15) 0751 01510000 ST @14,PSTCOPTR-4(@15) 0751 01511000 * END; /* @Z40LB64*/ 01512000 AL SA#,@CF00221 0752 01513000 @DE00743 CH SA#,SAVLDCNT 0752 01514000 BNH @DL00743 0752 01515000 * MVCBADDR=SPACEPTR+MVCBADDR; /* @Z40LB64*/ 01516000 @RF00742 L @15,SPACEPTR 0753 01517000 LR @14,@15 0753 01518000 AL @14,MVCBADDR 0753 01519000 ST @14,MVCBADDR 0753 01520000 * IF MSVICHK=ON THEN 0754 01521000 TM MSVICHK,B'00100000' 0754 01522000 BNO @RF00754 0754 01523000 * DO; /* @Z40LB64*/ 01524000 * MICPTR=SPACEPTR+MICPTR; /* @Z40LB64*/ 01525000 LR @14,@15 0756 01526000 AL @14,MICPTR 0756 01527000 ST @14,MICPTR 0756 01528000 * RVVIPTR=SPACEPTR+RVVIPTR; /* @Z40LB64*/ 01529000 LR @14,@15 0757 01530000 AL @14,RVVIPTR 0757 01531000 ST @14,RVVIPTR 0757 01532000 * CPUIDPTR=SPACEPTR+CPUIDPTR; /* @Z40LB64*/ 01533000 LR @14,@15 0758 01534000 AL @14,CPUIDPTR 0758 01535000 ST @14,CPUIDPTR 0758 01536000 * MSVIAPTR=SPACEPTR+MSVIAPTR; /* @Z40LB64*/ 01537000 LR @14,@15 0759 01538000 AL @14,MSVIAPTR 0759 01539000 ST @14,MSVIAPTR 0759 01540000 * VICOPTR=SPACEPTR+VICOPTR; /* @Z40LB64*/ 01541000 LR @14,@15 0760 01542000 AL @14,VICOPTR 0760 01543000 ST @14,VICOPTR 0760 01544000 * TVLCOPTR=SPACEPTR+TVLCOPTR; /* @Z40LB64*/ 01545000 LR @14,@15 0761 01546000 AL @14,TVLCOPTR 0761 01547000 ST @14,TVLCOPTR 0761 01548000 * MVTCOPTR=SPACEPTR+MVTCOPTR; /* @Z40LB64*/ 01549000 AL @15,MVTCOPTR 0762 01550000 ST @15,MVTCOPTR 0762 01551000 * END; /* @Z40LB64*/ 01552000 * IF MSCCHK=ON THEN 0764 01553000 @RF00754 TM MSCCHK,B'10000000' 0764 01554000 BNO @RF00764 0764 01555000 * DO MSF#=1 TO MSFVLCNT+1; /* @Z40LB64*/ 01556000 LA MSF#,1 0765 01557000 B @DE00765 0765 01558000 @DL00765 DS 0H 0766 01559000 * DO CMBLK#=1 TO BLKSMSF; /* @Z40LB64*/ 01560000 LA CMBLK#,1 0766 01561000 @DL00766 DS 0H 0767 01562000 * CMBUFPTR(MSF#,CMBLK#)=SPACEPTR+CMBUFPTR(MSF#,CMBLK#);/* 0767 01563000 * @Z40LB64*/ 01564000 LR @15,MSF# 0767 01565000 SLA @15,2 0767 01566000 ALR @15,CMBLK# 0767 01567000 SLA @15,2 0767 01568000 L @14,SPACEPTR 0767 01569000 LR @03,@14 0767 01570000 AL @03,CMBUFPTR-20(@15) 0767 01571000 ST @03,CMBUFPTR-20(@15) 0767 01572000 * IF MSF#<=MSFVLCNT THEN 0768 01573000 CH MSF#,MSFVLCNT 0768 01574000 BH @RF00768 0768 01575000 * CMCOPTR(MSF#,CMBLK#)=SPACEPTR+CMCOPTR(MSF#,CMBLK#);/* 0769 01576000 * @Z40LB64*/ 01577000 AL @14,CMCOPTR-20(@15) 0769 01578000 ST @14,CMCOPTR-20(@15) 0769 01579000 * END; /* @Z40LB64*/ 01580000 @RF00768 AL CMBLK#,@CF00221 0770 01581000 C CMBLK#,@CF00044 0770 01582000 BNH @DL00766 0770 01583000 * END; /* @Z40LB64*/ 01584000 AL MSF#,@CF00221 0771 01585000 @DE00765 LA @05,1 0771 01586000 AH @05,MSFVLCNT 0771 01587000 CR MSF#,@05 0771 01588000 BNH @DL00765 0771 01589000 * IF MSCCHK=ON|SACHK=ON THEN 0772 01590000 @RF00764 TM MSCCHK,B'11000000' 0772 01591000 BZ @RF00772 0772 01592000 * DO; /* @Z40LB64*/ 01593000 * IF MSCCHK=ON THEN 0774 01594000 TM MSCCHK,B'10000000' 0774 01595000 BNO @RF00774 0774 01596000 * CIADDR=SPACEPTR+CIADDR; /* @Z40LB64*/ 01597000 L @15,SPACEPTR 0775 01598000 AL @15,CIADDR 0775 01599000 ST @15,CIADDR 0775 01600000 * VVATADDR=SPACEPTR+VVATADDR; /* @Z40LB64*/ 01601000 @RF00774 L @15,SPACEPTR 0776 01602000 LR @14,@15 0776 01603000 AL @14,VVATADDR 0776 01604000 ST @14,VVATADDR 0776 01605000 * VVACOPTR=SPACEPTR+VVACOPTR; /* @Z40LB64*/ 01606000 LR @14,@15 0777 01607000 AL @14,VVACOPTR 0777 01608000 ST @14,VVACOPTR 0777 01609000 * DVBCOPTR=SPACEPTR+DVBCOPTR; /* @Z40LB64*/ 01610000 LR @14,@15 0778 01611000 AL @14,DVBCOPTR 0778 01612000 ST @14,DVBCOPTR 0778 01613000 * LPBCOPTR=SPACEPTR+LPBCOPTR; /* @Z40LB64*/ 01614000 LR @14,@15 0779 01615000 AL @14,LPBCOPTR 0779 01616000 ST @14,LPBCOPTR 0779 01617000 * RPMCOPTR=SPACEPTR+RPMCOPTR; /* @Z40LB64*/ 01618000 LR @14,@15 0780 01619000 AL @14,RPMCOPTR 0780 01620000 ST @14,RPMCOPTR 0780 01621000 * VMXCOPTR=SPACEPTR+VMXCOPTR; /* @Z40LB64*/ 01622000 LR @14,@15 0781 01623000 AL @14,VMXCOPTR 0781 01624000 ST @14,VMXCOPTR 0781 01625000 * CDBCOPTR=SPACEPTR+CDBCOPTR; /* @Z40LB64*/ 01626000 AL @15,CDBCOPTR 0782 01627000 ST @15,CDBCOPTR 0782 01628000 * END; /* @Z40LB64*/ 01629000 * END INITSPAC; /* @Z40LB64*/ 01630000 B @EL00003 0784 01631000 * 0785 01632000 */* ****************************************************** @Z40LB64*/ 01633000 */* @Z40LB64*/ 01634000 */* PROCEDURE NAME - INITWDS @Z40LB64*/ 01635000 */* @Z40LB64*/ 01636000 */* FUNCTION - ALLOCATES AND OPENS THE WORK DATA SET, @Z40LB64*/ 01637000 */* VERIFIES THAT IT IS ON A MASS STORAGE @Z40LB64*/ 01638000 */* VOLUME, AND BINDS THE SPACE FOR THE DATA @Z40LB64*/ 01639000 */* SET. @Z40LB64*/ 01640000 */* @Z40LB64*/ 01641000 */* INPUT - THE DDNAME OF THE WORK DATA SET (IF 'WORKFILE' @Z40LB64*/ 01642000 */* KEYWORD SPECIFIED), OR THE DATA SET NAME OF @Z40LB64*/ 01643000 */* THE WORK DATA SET ( IF 'WORKDATASET' KEYWORD @Z40LB64*/ 01644000 */* SPECIFIED). @Z40LB64*/ 01645000 */* @Z40LB64*/ 01646000 */* EACH 'UMACRO' PARAMETER LIST WAS ZEROED WHEN @Z40LB64*/ 01647000 */* STORAGE WAS ACQUIRED FOR THE PARAMETER LIST. @Z40LB64*/ 01648000 */* @Z40LB64*/ 01649000 */* OUTPUT - (1) THE OPEN AND BOUND WORK DATA SET. @Z40LB64*/ 01650000 */* (2) THE VOLUME SERIAL NUMBER AND THE @Z40LB64*/ 01651000 */* STARTING AND ENDING CCHHR OF THE @Z40LB64*/ 01652000 */* WORK DATA SET (FOR USE BY 'COPYMSC'). @Z40LB64*/ 01653000 */* @Z40LB64*/ 01654000 */* ******************************************************* @Z40LB64*/ 01655000 * 0785 01656000 *INITWDS: 0785 01657000 * PROCEDURE; /* @Z40LB64*/ 01658000 INITWDS STM @14,@12,@SA00004 0785 01659000 * OLDERID2=NEWERID2; 0786 01660000 L @15,@PC00001 0786 01661000 L @14,GDTTR2(,@15) 0786 01662000 MVC @TS00001(95),NEWERID2(@14) 0786 01663000 MVC OLDERID2(95,@14),@TS00001 0786 01664000 * NEWID2='CH1D'; /* @Z40LB64*/ 01665000 * 0787 01666000 MVC NEWID2(4,@14),@CC02455 0787 01667000 * /*****************************************************************/ 01668000 * /* */ 01669000 * /* IF THE 'WORKDATASET' KEYWORD IS SPECIFIED, @Z40LB64*/ 01670000 * /* DYNAMICALLY ALLOCATE THE WORK DATA SET ('UALLOC' @Z40LB64*/ 01671000 * /* MACRO) AND RETURN A DDNAME FOR THE DATA SET. @Z40LB64*/ 01672000 * /* IF THE 'WORKFILE' KEYWORD IS SPECIFIED, THE DDNAME @Z40LB64*/ 01673000 * /* IS PROVIDED BY THE USER. @Z40LB64*/ 01674000 * /* */ 01675000 * /*****************************************************************/ 01676000 * 0788 01677000 * IF ADDR(WDS)^=NULLPTR THEN 0788 01678000 L @14,@PC00001+4 0788 01679000 L @14,FDTPTR+4(,@14) 0788 01680000 LTR @14,@14 0788 01681000 BZ @RF00788 0788 01682000 * DO; /* @Z40LB64*/ 01683000 * RESPECIFY 0790 01684000 * ALLAGL BASED(ALLPTR); /* @Z40LB64*/ 01685000 * ALLDSN=ADDR(WDSVAL); /* @Z40LB64*/ 01686000 LA @02,WDSVAL(,@14) 0791 01687000 ST @02,ALLDSN(,ALLPTR) 0791 01688000 * ALLSTSOD=ON; /* @Z40LB64*/ 01689000 OI ALLSTSOD(ALLPTR),B'00000001' 0792 01690000 * ALLDSPKP=ON; /* @Z40LB64*/ 01691000 OI ALLDSPKP(ALLPTR),B'00001000' 0793 01692000 * ALLOPTDS=ON; /* @Z40LB64*/ 01693000 OI ALLOPTDS(ALLPTR),B'01000000' 0794 01694000 * ALLULP=ADDR(UNITLIST); /* @Z40LB64*/ 01695000 LA @02,UNITLIST 0795 01696000 ST @02,ALLULP(,ALLPTR) 0795 01697000 * UNITCNT=1; /* @Z40LB64*/ 01698000 MVC UNITCNT(2),@CH00221 0796 01699000 * UNITLEN=LENGTH(SDG00); /* @Z40LB64*/ 01700000 MVC UNITLEN(2),@CH00288 0797 01701000 * UNITTYPE=SDG00; /* @Z40LB64*/ 01702000 MVI UNITTYPE+5,C' ' 0798 01703000 MVC UNITTYPE+6(2),UNITTYPE+5 0798 01704000 MVC UNITTYPE(5),@CC02244 0798 01705000 * CALL IDCSAAL0(GDTTBL,ALLAGL);/* @Z40LB64*/ 01706000 ST @15,@AL00001 0799 01707000 ST ALLPTR,@AL00001+4 0799 01708000 MVI @AL00001+4,X'80' 0799 01709000 L @15,GDTALC(,@15) 0799 01710000 LA @01,@AL00001 0799 01711000 BALR @14,@15 0799 01712000 * RESPECIFY 0800 01713000 * RTNREG RSTD; 0800 01714000 * TESTRC=RTNREG; 0801 01715000 LR TESTRC,RTNREG 0801 01716000 * RESPECIFY 0802 01717000 * RTNREG UNRSTD; /* @Z40LB64*/ 01718000 * IF TESTRC=0 THEN 0803 01719000 LTR TESTRC,TESTRC 0803 01720000 BNZ @RF00803 0803 01721000 * WDSDDN=ALLDDN; /* @Z40LB64*/ 01722000 MVC WDSDDN(8),ALLDDN(ALLPTR) 0804 01723000 * ELSE 0805 01724000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 01725000 B @RC00803 0805 01726000 @RF00803 L @15,@PC00001+8 0805 01727000 MVC LASTCOND(2,@15),@CH00567 0805 01728000 * END; /* @Z40LB64*/ 01729000 * ELSE 0807 01730000 * WDSDDN=WFILEVAL; /* @Z40LB64*/ 01731000 * 0807 01732000 B @RC00788 0807 01733000 @RF00788 L @15,@PC00001+4 0807 01734000 L @01,FDTPTR(,@15) 0807 01735000 MVC WDSDDN(8),WFILEVAL(@01) 0807 01736000 * /*****************************************************************/ 01737000 * /* */ 01738000 * /* IF THE DDNAME WAS SUCCESSFULLY OBTAINED, RETRIEVE @Z40LB64*/ 01739000 * /* THE VOLUME SERIAL NUMBER FROM THE JFCB ('UIOINFO' @Z40LB64*/ 01740000 * /* MACRO) FOR USE BY THE 'UMSSUNIT' MACRO. @Z40LB64*/ 01741000 * /* */ 01742000 * /*****************************************************************/ 01743000 * 0808 01744000 * IF LASTCOND=LASTCC00 THEN 0808 01745000 @RC00788 L @15,@PC00001+8 0808 01746000 LH @15,LASTCOND(,@15) 0808 01747000 LTR @15,@15 0808 01748000 BNZ @RF00808 0808 01749000 * DO; /* @Z40LB64*/ 01750000 * RESPECIFY 0810 01751000 * IOINFOPT BASED(IOINFPTR); /* @Z40LB64*/ 01752000 * INFOWAL=LENGTH(INFOAREA); /* @Z40LB64*/ 01753000 L @02,INFOAPTR 0811 01754000 MVC INFOWAL(2,@02),@CH02250 0811 01755000 * IOINFVOL=ON; /* @Z40LB64*/ 01756000 L @02,IOINFPTR 0812 01757000 OI IOINFVOL(@02),B'01000000' 0812 01758000 * CALL IDCIOSI0(GDTTBL,IOINFOPT,ADDR(INFOAREA),WDSDDN);/* 0813 01759000 * @Z40LB64*/ 01760000 L @15,@PC00001 0813 01761000 ST @15,@AL00001 0813 01762000 ST @02,@AL00001+4 0813 01763000 LA @02,INFOAPTR 0813 01764000 ST @02,@AL00001+8 0813 01765000 LA @02,WDSDDN 0813 01766000 ST @02,@AL00001+12 0813 01767000 MVI @AL00001+12,X'80' 0813 01768000 L @15,GDTIFO(,@15) 0813 01769000 LA @01,@AL00001 0813 01770000 BALR @14,@15 0813 01771000 * RESPECIFY 0814 01772000 * RTNREG RSTD; 0814 01773000 * TESTRC=RTNREG; 0815 01774000 LR TESTRC,RTNREG 0815 01775000 * RESPECIFY 0816 01776000 * RTNREG UNRSTD; /* @Z40LB64*/ 01777000 * IF TESTRC^=0 THEN 0817 01778000 LTR TESTRC,TESTRC 0817 01779000 BZ @RF00817 0817 01780000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 01781000 L @15,@PC00001+8 0818 01782000 MVC LASTCOND(2,@15),@CH00567 0818 01783000 * END; /* @Z40LB64*/ 01784000 * 0819 01785000 @RF00817 DS 0H 0820 01786000 * /*****************************************************************/ 01787000 * /* */ 01788000 * /* IF THE VOLUME SERIAL NUMBER WAS SUCCESSFULLY @Z40LB64*/ 01789000 * /* OBTAINED, VERIFY THAT THE WORK DATA SET IS ON A @Z40LB64*/ 01790000 * /* MASS STORAGE VOLUME ('UMSSUNIT' MACRO). @Z40LB64*/ 01791000 * /* (IF THE WORK DATA SET WAS DYNAMICALLY ALLOCATED, @Z40LB64*/ 01792000 * /* PLACE THE VOLSER IN THE 'CKAGL' PARAMETER LIST SO @Z40LB64*/ 01793000 * /* IF AN ERROR OCCURS, THE VOLSER WILL BE USED INSTEAD @Z40LB64*/ 01794000 * /* OF THE DDNAME). @Z40LB64*/ 01795000 * /* */ 01796000 * /*****************************************************************/ 01797000 * 0820 01798000 * IF LASTCOND=LASTCC00 THEN 0820 01799000 @RF00808 SLR @15,@15 0820 01800000 L @14,@PC00001+8 0820 01801000 CH @15,LASTCOND(,@14) 0820 01802000 BNE @RF00820 0820 01803000 * DO; /* @Z40LB64*/ 01804000 * RESPECIFY 0822 01805000 * CKAGL BASED(CKAGLPTR); /* @Z40LB64*/ 01806000 * UCBPTR=NULLPTR; /* @Z40LB64*/ 01807000 ST @15,UCBPTR 0823 01808000 * CKUCBPTR=ADDR(UCBPTR); /* @Z40LB64*/ 01809000 L @14,CKAGLPTR 0824 01810000 LA @05,UCBPTR 0824 01811000 ST @05,CKUCBPTR(,@14) 0824 01812000 * CKDDNAME=WDSDDN; /* @Z40LB64*/ 01813000 MVC CKDDNAME(8,@14),WDSDDN 0825 01814000 * CKTESTVT=ON; /* @Z40LB64*/ 01815000 OI CKTESTVT(@14),B'10000000' 0826 01816000 * IF ADDR(WDS)^=NULLPTR THEN 0827 01817000 L @05,@PC00001+4 0827 01818000 C @15,FDTPTR+4(,@05) 0827 01819000 BE @RF00827 0827 01820000 * CKLABELP=ADDR(INFOVSN(1));/* @Z40LB64*/ 01821000 L @01,INFOAPTR 0828 01822000 LA @15,INFOVSN(,@01) 0828 01823000 ST @15,CKLABELP(,@14) 0828 01824000 * CALL IDCSA060(GDTTBL,CHECK,CKAGL);/* @Z40LB64*/ 01825000 @RF00827 L @02,@PC00001 0829 01826000 ST @02,@AL00001 0829 01827000 LA @15,CHECK 0829 01828000 ST @15,@AL00001+4 0829 01829000 L @01,CKAGLPTR 0829 01830000 ST @01,@AL00001+8 0829 01831000 MVI @AL00001+8,X'80' 0829 01832000 L @15,GDTUNT(,@02) 0829 01833000 LA @01,@AL00001 0829 01834000 BALR @14,@15 0829 01835000 * RESPECIFY 0830 01836000 * RTNREG RSTD; 0830 01837000 * TESTRC=RTNREG; 0831 01838000 LR TESTRC,RTNREG 0831 01839000 * RESPECIFY 0832 01840000 * RTNREG UNRSTD; /* @Z40LB64*/ 01841000 * IF TESTRC^=0 THEN 0833 01842000 LTR TESTRC,TESTRC 0833 01843000 BZ @RF00833 0833 01844000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 01845000 L @15,@PC00001+8 0834 01846000 MVC LASTCOND(2,@15),@CH00567 0834 01847000 * END; /* @Z40LB64*/ 01848000 * 0835 01849000 @RF00833 DS 0H 0836 01850000 * /*****************************************************************/ 01851000 * /* */ 01852000 * /* IF THE WORK DATA SET IS VERIFIED TO BE ON A MASS @Z40LB64*/ 01853000 * /* STORAGE VOLUME, OPEN THE WORK DATA SET ('UEXCP' @Z40LB64*/ 01854000 * /* MACRO). AFTER SUCCESSFULLY OPENING THE DATA SET, @Z40LB64*/ 01855000 * /* THE BEGINNING AND ENDING ADDRESS MUST BE ON A @Z40LB64*/ 01856000 * /* CYLINDER BOUNDARY. IF NOT CYLINDER ALIGNED, THE @Z40LB64*/ 01857000 * /* BEGINNING CYLINDER ADDRESS IS ROUNDED UP, AND THE @Z40LB64*/ 01858000 * /* ENDING CYLINDER ADDRESS IS ROUNDED DOWN. @Z40LB64*/ 01859000 * /* */ 01860000 * /*****************************************************************/ 01861000 * 0836 01862000 * IF LASTCOND=LASTCC00 THEN 0836 01863000 @RF00820 L @15,@PC00001+8 0836 01864000 LH @15,LASTCOND(,@15) 0836 01865000 LTR @15,@15 0836 01866000 BNZ @RF00836 0836 01867000 * DO; /* @Z40LB64*/ 01868000 * RESPECIFY 0838 01869000 * EXOARG BASED(EXARGPTR); /* @Z40LB64*/ 01870000 * EXODDN=ADDR(WDSDDN); /* @Z40LB64*/ 01871000 L @02,EXARGPTR 0839 01872000 LA @15,WDSDDN 0839 01873000 ST @15,EXODDN(,@02) 0839 01874000 * EXOEXT=ADDR(WDSCCHHR); /* @Z40LB64*/ 01875000 ST WDSAPTR,EXOEXT(,@02) 0840 01876000 * EXOCTLBK=ADDR(WDSCBPTR); /* @Z40LB64*/ 01877000 LA @15,WDSCBPTR 0841 01878000 ST @15,EXOCTLBK(,@02) 0841 01879000 * EXOTAB=ON; /* @Z40LB64*/ 01880000 OI EXOTAB(@02),B'10000000' 0842 01881000 * CALL IDCIO050(GDTTBL,OPEN,EXOARG);/* @Z40LB64*/ 01882000 L @15,@PC00001 0843 01883000 ST @15,@AL00001 0843 01884000 LA @14,OPEN 0843 01885000 ST @14,@AL00001+4 0843 01886000 ST @02,@AL00001+8 0843 01887000 MVI @AL00001+8,X'80' 0843 01888000 L @15,GDTEXP(,@15) 0843 01889000 LA @01,@AL00001 0843 01890000 BALR @14,@15 0843 01891000 * RESPECIFY 0844 01892000 * RTNREG RSTD; 0844 01893000 * TESTRC=RTNREG; 0845 01894000 LR TESTRC,RTNREG 0845 01895000 * RESPECIFY 0846 01896000 * RTNREG UNRSTD; /* @Z40LB64*/ 01897000 * IF TESTRC=0 THEN 0847 01898000 SLR @02,@02 0847 01899000 CR TESTRC,@02 0847 01900000 BNE @RF00847 0847 01901000 * DO; /* @Z40LB64*/ 01902000 * 0848 01903000 * /*********************************************************/ 01904000 * /* */ 01905000 * /* ALIGN WORK DATA SET BEGINNING ADDRESS @Z40LB64*/ 01906000 * /* TO CYLINDER BOUNDARY IF NECESSARY. @Z40LB64*/ 01907000 * /* */ 01908000 * /*********************************************************/ 01909000 * 0849 01910000 * IF WDSSTRK^=0 THEN 0849 01911000 SLR @03,@03 0849 01912000 ICM @03,3,WDSSTRK(WDSAPTR) 0849 01913000 CR @02,@03 0849 01914000 BE @RF00849 0849 01915000 * WDSSCYL=WDSSCYL+1; /* @Z40LB64*/ 01916000 LA @15,1 0850 01917000 SLR @14,@14 0850 01918000 ICM @14,3,WDSSCYL(WDSAPTR) 0850 01919000 ALR @15,@14 0850 01920000 STCM @15,3,WDSSCYL(WDSAPTR) 0850 01921000 * IF WDSETRK^=0 THEN 0851 01922000 @RF00849 ICM @15,3,WDSETRK(WDSAPTR) 0851 01923000 BZ @RF00851 0851 01924000 * WDSECYL=WDSECYL-1; /* @Z40LB64*/ 01925000 SLR @15,@15 0852 01926000 ICM @15,3,WDSECYL(WDSAPTR) 0852 01927000 BCTR @15,0 0852 01928000 STCM @15,3,WDSECYL(WDSAPTR) 0852 01929000 * END; /* @Z40LB64*/ 01930000 * ELSE 0854 01931000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 01932000 B @RC00847 0854 01933000 @RF00847 L @15,@PC00001+8 0854 01934000 MVC LASTCOND(2,@15),@CH00567 0854 01935000 * END; /* @Z40LB64*/ 01936000 * 0855 01937000 @RC00847 DS 0H 0856 01938000 * /*****************************************************************/ 01939000 * /* */ 01940000 * /* IF THE WORK DATA SET WAS SUCCESSFULLY OPENED, @Z40LB64*/ 01941000 * /* ACQUIRE AND BIND THE DATA SET SPACE ('USSC' MACRO - @Z40LB64*/ 01942000 * /* 'ACQUIRE' OPTION). @Z40LB64*/ 01943000 * /* */ 01944000 * /*****************************************************************/ 01945000 * 0856 01946000 * IF LASTCOND=LASTCC00 THEN 0856 01947000 @RF00836 L @15,@PC00001+8 0856 01948000 LH @15,LASTCOND(,@15) 0856 01949000 LTR @15,@15 0856 01950000 BNZ @RF00856 0856 01951000 * DO; /* @Z40LB64*/ 01952000 * ARLL=LENGTH(ACQLIST); /* @Z40LB64*/ 01953000 L @02,ACQPTR 0858 01954000 MVC ARLL(4,@02),@CF02635 0858 01955000 * AROP='02'X; /* @Z40LB64*/ 01956000 MVI AROP(@02),X'02' 0859 01957000 * ARBDUBD=ON; /* @Z40LB64*/ 01958000 * ARINH=ON; /* @Z40LB64*/ 01959000 OI ARBDUBD(@02),B'10100000' 0861 01960000 * ARNMEXT=1; /* @Z40LB64*/ 01961000 MVI ARNMEXT(@02),X'01' 0862 01962000 * ARVOL=INFOVSN(1); /* @Z40LB64*/ 01963000 L @15,INFOAPTR 0863 01964000 MVC ARVOL(6,@02),INFOVSN(@15) 0863 01965000 * AREXT(1,1:2)=WDSSCYL; /* @Z40LB64*/ 01966000 MVC AREXT(2,@02),WDSSCYL(WDSAPTR) 0864 01967000 * AREXT(1,3:4)=WDSECYL; /* @Z40LB64*/ 01968000 MVC AREXT+2(2,@02),WDSECYL(WDSAPTR) 0865 01969000 * SAVARVOL=INFOVSN(1); /* @ZA14727*/ 01970000 MVC SAVARVOL(6),INFOVSN(@15) 0866 01971000 * SAVREXT1=WDSSCYL; /* @ZA14727*/ 01972000 MVC SAVREXT1(2),WDSSCYL(WDSAPTR) 0867 01973000 * SAVREXT2=WDSECYL; /* @ZA14727*/ 01974000 MVC SAVREXT2(2),WDSECYL(WDSAPTR) 0868 01975000 * CALL IDCSASS0(GDTTBL,ACQUIRE,ACQPTR,RSNCODE);/* @Z40LB64*/ 01976000 L @02,@PC00001 0869 01977000 ST @02,@AL00001 0869 01978000 LA @15,ACQUIRE 0869 01979000 ST @15,@AL00001+4 0869 01980000 LA @15,ACQPTR 0869 01981000 ST @15,@AL00001+8 0869 01982000 LA @15,RSNCODE 0869 01983000 ST @15,@AL00001+12 0869 01984000 MVI @AL00001+12,X'80' 0869 01985000 L @15,GDTSSC(,@02) 0869 01986000 LA @01,@AL00001 0869 01987000 BALR @14,@15 0869 01988000 * RESPECIFY 0870 01989000 * RTNREG RSTD; 0870 01990000 * TESTRC=RTNREG; 0871 01991000 LR TESTRC,RTNREG 0871 01992000 * RESPECIFY 0872 01993000 * RTNREG UNRSTD; /* @Z40LB64*/ 01994000 * 0872 01995000 * /*************************************************************/ 01996000 * /* */ 01997000 * /* IF A NON-ZERO RETURN CODE WAS RETURNED BY @Z40LB64*/ 01998000 * /* THE 'USSC' MACRO, CALL 'SSCMSG' PROCEDURE @Z40LB64*/ 01999000 * /* TO ISSUE THE APPROPRIATE ERROR MESSAGE. @Z40LB64*/ 02000000 * /* */ 02001000 * /*************************************************************/ 02002000 * 0873 02003000 * IF TESTRC^=0 THEN 0873 02004000 LTR TESTRC,TESTRC 0873 02005000 BZ @RF00873 0873 02006000 * DO; /* @Z40LB64*/ 02007000 * CALL SSCMSG(RSNCODE); /* @Z40LB64*/ 02008000 LA @15,RSNCODE 0875 02009000 ST @15,@AL00001 0875 02010000 LA @01,@AL00001 0875 02011000 BAL @14,SSCMSG 0875 02012000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 02013000 L @15,@PC00001+8 0876 02014000 MVC LASTCOND(2,@15),@CH00567 0876 02015000 * END; /* @Z40LB64*/ 02016000 * ELSE /* @ZA14727*/ 02017000 * ACQSW=ON; /* @ZA14727*/ 02018000 B @RC00873 0878 02019000 @RF00873 OI ACQSW,B'01000000' 0878 02020000 * END; /* @Z40LB64*/ 02021000 * END INITWDS; /* @Z40LB64*/ 02022000 @EL00004 DS 0H 0880 02023000 @EF00004 DS 0H 0880 02024000 @ER00004 LM @14,@12,@SA00004 0880 02025000 BR @14 0880 02026000 * 0881 02027000 */* ******************************************************* @Z40LB64*/ 02028000 */* @Z40LB64*/ 02029000 */* PROCEDURE NAME - COPYMSC @Z40LB64*/ 02030000 */* @Z40LB64*/ 02031000 */* FUNCTION - OBTAINS A COPY OF THE MASS STORAGE CONTROL @Z40LB64*/ 02032000 */* TABLES IN THE WORK DATA SET FOR SUBSEQUENT @Z40LB64*/ 02033000 */* ANALYSIS. @Z40LB64*/ 02034000 */* @Z40LB64*/ 02035000 */* THE 'USSC' MACRO ('RDMSC' OPTION) IS USED @Z40LB64*/ 02036000 */* TO OBTAIN THE MSC TABLES COPY, AND RETURNS @Z40LB64*/ 02037000 */* A MESSAGE AREA CONTAINING THE BEGINNING @Z40LB64*/ 02038000 */* CHR OF EACH OF THE MSC TABLES COPIED. @Z40LB64*/ 02039000 */* @Z40LB64*/ 02040000 */* THE CHR INFORMATION RETURNED BY 'USSC' IS @Z40LB64*/ 02041000 */* USED TO BUILD A CCHHR TABLE REFERENCED BY @Z40LB64*/ 02042000 */* THE IDCCH03 ROUTINE TO INDEX INDIVIDUAL @Z40LB64*/ 02043000 */* MSC TABLES. @Z40LB64*/ 02044000 */* @Z40LB64*/ 02045000 */* THE MSC MOUNT EQUALIZATION RECORD IS READ @Z40LB64*/ 02046000 */* FROM THE MSC WORKING CONTROL STORAGE FOR @Z40LB64*/ 02047000 */* SUBSEQUENT PROCESSING. @Z40LB64*/ 02048000 */* @Z40LB64*/ 02049000 */* INPUT - THE WORK DATA SET VOLUME SERIAL NUMBER, AND @Z40LB64*/ 02050000 */* STARTING AND ENDING CYLINDER ADDRESSES. @Z40LB64*/ 02051000 */* @Z40LB64*/ 02052000 */* OUTPUT - (1) THE MSC TABLES HAVE BEEN COPIED TO THE @Z40LB64*/ 02053000 */* WORK DATA SET. @Z40LB64*/ 02054000 */* (2) THE CCHHR TABLE CONTAINING THE BEGINNING @Z40LB64*/ 02055000 */* CCHHR OF EACH MSC TABLE COPIED. @Z40LB64*/ 02056000 */* @Z40LB64*/ 02057000 */* *****************************************************************/ 02058000 * 0881 02059000 *COPYMSC: 0881 02060000 * PROCEDURE; /* @Z40LB64*/ 02061000 COPYMSC STM @14,@12,@SA00005 0881 02062000 * OLDERID2=NEWERID2; 0882 02063000 L @07,@PC00001 0882 02064000 L @02,GDTTR2(,@07) 0882 02065000 MVC @TS00001(95),NEWERID2(@02) 0882 02066000 MVC OLDERID2(95,@02),@TS00001 0882 02067000 * NEWID2='CH1E'; /* @Z40LB64*/ 02068000 * 0883 02069000 MVC NEWID2(4,@02),@CC02464 0883 02070000 * /*****************************************************************/ 02071000 * /* */ 02072000 * /* INITIALIZE THE 'COPY TABLES' PARAMETER LIST FOR THE @Z40LB64*/ 02073000 * /* 'COPYTABL' OPTION OF THE 'USSC' MACRO. THE @Z40LB64*/ 02074000 * /* PARAMETER LIST WAS ZEROED WHEN STORAGE WAS ACQUIRED @Z40LB64*/ 02075000 * /* FOR IT. @Z40LB64*/ 02076000 * /* */ 02077000 * /*****************************************************************/ 02078000 * 0884 02079000 * COTBTID='80'X; /* @Z40LB64*/ 02080000 L @02,COTBPTR 0884 02081000 NI COTBTID(@02),B'10001111' 0884 02082000 OI COTBTID(@02),B'10000000' 0884 02083000 * COTBEXTS(1:2)=WDSSCYL; /* @Z40LB64*/ 02084000 MVC COTBEXTS(2,@02),WDSSCYL(WDSAPTR) 0885 02085000 * COTBEXTS(3:4)=WDSECYL; /* @Z40LB64*/ 02086000 MVC COTBEXTS+2(2,@02),WDSECYL(WDSAPTR) 0886 02087000 * COTBVOL=INFOVSN(1); /* @Z40LB64*/ 02088000 * 0887 02089000 L @01,INFOAPTR 0887 02090000 MVC COTBVOL(6,@02),INFOVSN(@01) 0887 02091000 * /*****************************************************************/ 02092000 * /* */ 02093000 * /* COPY THE MSC TABLES TO THE WORK DATA SET ('USSC' @Z40LB64*/ 02094000 * /* MACRO - 'COPYTABL' OPTION). @Z40LB64*/ 02095000 * /* */ 02096000 * /*****************************************************************/ 02097000 * 0888 02098000 * CALL IDCSASS0(GDTTBL,COPYTABL,COTBPTR,RSNCODE,COPYECB,CTMSGPTR); 02099000 ST @07,@AL00001 0888 02100000 LA @02,COPYTABL 0888 02101000 ST @02,@AL00001+4 0888 02102000 LA @02,COTBPTR 0888 02103000 ST @02,@AL00001+8 0888 02104000 LA @02,RSNCODE 0888 02105000 ST @02,@AL00001+12 0888 02106000 LA @02,COPYECB 0888 02107000 ST @02,@AL00001+16 0888 02108000 LA @02,CTMSGPTR 0888 02109000 ST @02,@AL00001+20 0888 02110000 MVI @AL00001+20,X'80' 0888 02111000 L @15,GDTSSC(,@07) 0888 02112000 LA @01,@AL00001 0888 02113000 BALR @14,@15 0888 02114000 * /* @Z40LB64*/ 02115000 * RESPECIFY 0889 02116000 * RTNREG RSTD; 0889 02117000 * TESTRC=RTNREG; 0890 02118000 LR TESTRC,RTNREG 0890 02119000 * RESPECIFY 0891 02120000 * RTNREG UNRSTD; /* @Z40LB64*/ 02121000 * 0891 02122000 * /*****************************************************************/ 02123000 * /* */ 02124000 * /* TEST THE 'USSC' MACRO RETURN CODE. IF THE RETURN @Z40LB64*/ 02125000 * /* CODE INDICATES THAT THE 'COPYTABL' OPERATION WAS NOT @Z40LB64*/ 02126000 * /* SUCCESSFUL, CALL THE COMMON 'SSCMSG' PROCEDURE TO @Z40LB64*/ 02127000 * /* PRINT THE APPROPRIATE EXPLANATORY MESSAGE, AND @Z40LB64*/ 02128000 * /* TERMINATE CHECKMSS PROCESSING. @Z40LB64*/ 02129000 * /* */ 02130000 * /*****************************************************************/ 02131000 * 0892 02132000 * IF TESTRC^=0 THEN 0892 02133000 LTR TESTRC,TESTRC 0892 02134000 BZ @RF00892 0892 02135000 * DO; /* @Z40LB64*/ 02136000 * IF TESTRC=4 THEN 0894 02137000 C TESTRC,@CF00044 0894 02138000 BNE @RF00894 0894 02139000 * CALL SSCMSG(RSNCODE,COPYECB);/* @Z40LB64*/ 02140000 LA @02,RSNCODE 0895 02141000 ST @02,@AL00001 0895 02142000 LA @02,COPYECB 0895 02143000 ST @02,@AL00001+4 0895 02144000 LA @01,@AL00001 0895 02145000 BAL @14,SSCMSG 0895 02146000 * IF TESTRC=8 THEN 0896 02147000 @RF00894 C TESTRC,@CF00181 0896 02148000 BNE @RF00896 0896 02149000 * NOSPACE=ON; /* @Z40LB64*/ 02150000 OI NOSPACE,B'10000000' 0897 02151000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 02152000 @RF00896 L @15,@PC00001+8 0898 02153000 MVC LASTCOND(2,@15),@CH00567 0898 02154000 * RETURN; /* @Z40LB64*/ 02155000 @EL00005 DS 0H 0899 02156000 @EF00005 DS 0H 0899 02157000 @ER00005 LM @14,@12,@SA00005 0899 02158000 BR @14 0899 02159000 * END; /* @Z40LB64*/ 02160000 * 0900 02161000 * /*****************************************************************/ 02162000 * /* */ 02163000 * /* THE 'COPYTABL' OPERATION HAS COMPLETED SUCCESSFULLY. @Z40LB64*/ 02164000 * /* CONVERT THE CHR STARTING LOCATIONS OF MSC TABLES @Z40LB64*/ 02165000 * /* RETURNED BY THE 'USSC' MACRO INTO CCHHR ADDRESSES @Z40LB64*/ 02166000 * /* IN THE 'CCHHR TABLE' (FOR USE BY IDCCH03). @Z40LB64*/ 02167000 * /* */ 02168000 * /*****************************************************************/ 02169000 * 0901 02170000 * CTMSGPTR=CTMSGPTR+ECBLEN; /* @Z40LB64*/ 02171000 @RF00892 LA @15,4 0901 02172000 AL @15,CTMSGPTR 0901 02173000 ST @15,CTMSGPTR 0901 02174000 * DO CHRTBL#=1 TO DIM(TBLCCHHR); /* @Z40LB64*/ 02175000 LA CHRTBL#,1 0902 02176000 @DL00902 DS 0H 0903 02177000 * TBLCC(CHRTBL#)=CTTBLCC(CHRTBL#);/* @Z40LB64*/ 02178000 L @03,CCHHRPTR 0903 02179000 LR @15,CHRTBL# 0903 02180000 MH @15,@CH00158 0903 02181000 L @14,CTMSGPTR 0903 02182000 LR @07,CHRTBL# 0903 02183000 SLA @07,2 0903 02184000 SLR @06,@06 0903 02185000 IC @06,CTTBLCC-4(@07,@14) 0903 02186000 LA @01,0(@15,@03) 0903 02187000 AL @01,@CF02688 0903 02188000 STH @06,TBLCC-2(,@01) 0903 02189000 * TBLHH(CHRTBL#)=CTTBLHH(CHRTBL#);/* @Z40LB64*/ 02190000 SLR @06,@06 0904 02191000 IC @06,CTTBLHH-4(@07,@14) 0904 02192000 LA @01,0(@15,@03) 0904 02193000 AL @01,@CF02689 0904 02194000 STH @06,TBLHH-4(,@01) 0904 02195000 * TBLR(CHRTBL#)=CTTBLRR(CHRTBL#);/* @Z40LB64*/ 02196000 SLR @06,@06 0905 02197000 IC @06,CTTBLRR-4(@07,@14) 0905 02198000 STC @06,TBLR-6(@15,@03) 0905 02199000 * END; /* @Z40LB64*/ 02200000 * 0906 02201000 AL CHRTBL#,@CF00221 0906 02202000 C CHRTBL#,@CF00446 0906 02203000 BNH @DL00902 0906 02204000 * /*****************************************************************/ 02205000 * /* */ 02206000 * /* COMPUTE THE CYLINDER DIFFERENCE BETWEEN THE ORIGINAL @Z40LB64*/ 02207000 * /* MSC TABLES VOLUME AND THE WORK DATA SET VOLUME, AND @Z40LB64*/ 02208000 * /* PLACE THE DIFFERENCE IN THE 'CCHHR TABLE'. @Z40LB64*/ 02209000 * /* */ 02210000 * /*****************************************************************/ 02211000 * 0907 02212000 * CCOFFSET=CTREALCC-CTTBLCC(1); /* @Z40LB64*/ 02213000 * 0907 02214000 L @15,CTMSGPTR 0907 02215000 SLR @14,@14 0907 02216000 ICM @14,3,CTREALCC(@15) 0907 02217000 SLR @07,@07 0907 02218000 IC @07,CTTBLCC(,@15) 0907 02219000 SLR @14,@07 0907 02220000 L @01,CCHHRPTR 0907 02221000 STH @14,CCOFFSET(,@01) 0907 02222000 * /*****************************************************************/ 02223000 * /* */ 02224000 * /* RESET THE 'USSC' MESSAGE AREA POINTER TO THE @Z40LB64*/ 02225000 * /* BEGINNING OF THE MESSAGE AREA, AND FREE THE MESSAGE @Z40LB64*/ 02226000 * /* AREA ACQUIRED BY THE 'USSC' MACRO ('UFSPACE' MACRO). @Z40LB64*/ 02227000 * /* */ 02228000 * /*****************************************************************/ 02229000 * 0908 02230000 * CTMSGPTR=CTMSGPTR-ECBLEN; /* @Z40LB64*/ 02231000 SL @15,@CF00044 0908 02232000 ST @15,CTMSGPTR 0908 02233000 * CALL IDCSAFS0(GDTTBL,CTMSGPTR); /* @Z40LB64*/ 02234000 * 0909 02235000 L @15,@PC00001 0909 02236000 ST @15,@AL00001 0909 02237000 LA @14,CTMSGPTR 0909 02238000 ST @14,@AL00001+4 0909 02239000 L @15,GDTFSP(,@15) 0909 02240000 LA @01,@AL00001 0909 02241000 BALR @14,@15 0909 02242000 * /*****************************************************************/ 02243000 * /* */ 02244000 * /* READ (FROM THE MSC WORKING CONTROL STORAGE) THE MSC @Z40LB64*/ 02245000 * /* TABLES STARTING CHR LOCATIONS TO OBTAIN THE @Z40LB64*/ 02246000 * /* STARTING CHR ADDRESS OF THE MOUNTED VOLUME TABLE @Z40LB64*/ 02247000 * /* CONTROL BLOCK. @Z40LB64*/ 02248000 * /* */ 02249000 * /*****************************************************************/ 02250000 * 0910 02251000 * TCHRFLAG=ON; /* @Z40LB64*/ 02252000 L @01,EARGPTR 0910 02253000 OI TCHRFLAG(@01),B'00100000' 0910 02254000 * CALL IDCCH03(GDTTBL,CDALIST); /* @Z40LB64*/ 02255000 L @15,@PC00001 0911 02256000 ST @15,@AL00001 0911 02257000 LA @15,CDALIST 0911 02258000 ST @15,@AL00001+4 0911 02259000 L @15,@CV02184 0911 02260000 LA @01,@AL00001 0911 02261000 BALR @14,@15 0911 02262000 * IF GETRC^=0 THEN 0912 02263000 L @01,EARGPTR 0912 02264000 LH @15,GETRC(,@01) 0912 02265000 LTR @15,@15 0912 02266000 BZ @RF00912 0912 02267000 * DO; /* @Z40LB64*/ 02268000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 02269000 L @15,@PC00001+8 0914 02270000 MVC LASTCOND(2,@15),@CH00567 0914 02271000 * RETURN; /* @Z40LB64*/ 02272000 B @EL00005 0915 02273000 * END; /* @Z40LB64*/ 02274000 * 0916 02275000 * /*****************************************************************/ 02276000 * /* */ 02277000 * /* CONVERT THE CHR ADDRESS OF THE MVT CONTROL BLOCK @Z40LB64*/ 02278000 * /* TO A CCHHR ADDRESS AND PLACE IN THE 'CCHHR TABLE'. @Z40LB64*/ 02279000 * /* */ 02280000 * /*****************************************************************/ 02281000 * 0917 02282000 * VTR1PTR=NULLPTR; /* @Z40LB64*/ 02283000 @RF00912 SLR VTR1PTR,VTR1PTR 0917 02284000 * VTR1PTR=TBLADDR-(ADDR(VTTBLCHR)-ADDR(VTABLER1));/* @Z40LB64*/ 02285000 L @03,EARGPTR 0918 02286000 LA @15,VTTBLCHR(,VTR1PTR) 0918 02287000 SLR @15,VTR1PTR 0918 02288000 LCR @15,@15 0918 02289000 AL @15,TBLADDR(,@03) 0918 02290000 LR VTR1PTR,@15 0918 02291000 * MVTDBCC=VTTBLC(1); /* @Z40LB64*/ 02292000 L @15,CCHHRPTR 0919 02293000 SLR @14,@14 0919 02294000 IC @14,VTTBLC(,VTR1PTR) 0919 02295000 STH @14,MVTDBCC(,@15) 0919 02296000 * MVTDBHH=VTTBLH(1); /* @Z40LB64*/ 02297000 SLR @14,@14 0920 02298000 IC @14,VTTBLH(,VTR1PTR) 0920 02299000 STH @14,MVTDBHH(,@15) 0920 02300000 * MVTDBR=VTTBLR(1); /* @Z40LB64*/ 02301000 * 0921 02302000 MVC MVTDBR(1,@15),VTTBLR(VTR1PTR) 0921 02303000 * /*****************************************************************/ 02304000 * /* */ 02305000 * /* IF MSC VS. MSC CHECKING IS REQUESTED, @Z40LB64*/ 02306000 * /* OBTAIN THE MSC MOUNT EQUALIZATION RECORD FROM THE @Z40LB64*/ 02307000 * /* MSC WORKING CONTROL STORAGE. @Z40LB64*/ 02308000 * /* */ 02309000 * /*****************************************************************/ 02310000 * 0922 02311000 * IF MSCCHK=ON THEN 0922 02312000 TM MSCCHK,B'10000000' 0922 02313000 BNO @RF00922 0922 02314000 * DO; /* @Z40LB64*/ 02315000 * MEFLAG=ON; /* @Z40LB64*/ 02316000 OI MEFLAG(@03),B'10000000' 0924 02317000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 02318000 L @15,@PC00001 0925 02319000 ST @15,@AL00001 0925 02320000 LA @15,CDALIST 0925 02321000 ST @15,@AL00001+4 0925 02322000 L @15,@CV02184 0925 02323000 LA @01,@AL00001 0925 02324000 BALR @14,@15 0925 02325000 * IF GETRC^=0 THEN 0926 02326000 L @01,EARGPTR 0926 02327000 LH @15,GETRC(,@01) 0926 02328000 LTR @15,@15 0926 02329000 BZ @RF00926 0926 02330000 * DO; /* @Z40LB64*/ 02331000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 02332000 L @15,@PC00001+8 0928 02333000 MVC LASTCOND(2,@15),@CH00567 0928 02334000 * RETURN; /* @Z40LB64*/ 02335000 B @EL00005 0929 02336000 * END; /* @Z40LB64*/ 02337000 * 0930 02338000 * /*************************************************************/ 02339000 * /* */ 02340000 * /* COPY THE MOUNT EQUALIZATION RECORD MOUNTED @Z40LB64*/ 02341000 * /* VOLUME COUNTS FOR EACH STAGING DRIVE GROUP. @Z40LB64*/ 02342000 * /* */ 02343000 * /*************************************************************/ 02344000 * 0931 02345000 * MERPTR=TBLADDR; /* @Z40LB64*/ 02346000 @RF00926 L @01,EARGPTR 0931 02347000 L MERPTR,TBLADDR(,@01) 0931 02348000 * IMERECRD(1:LENGTH(IMERECRD))=MERECORD(1:LENGTH(IMERECRD));/* 02349000 * @Z40LB64*/ 02350000 L @03,IMERPTR 0932 02351000 MVC IMERECRD(120,@03),MERECORD(MERPTR) 0932 02352000 * END; /* @Z40LB64*/ 02353000 * END COPYMSC; /* @Z40LB64*/ 02354000 B @EL00005 0934 02355000 * 0935 02356000 */* ******************************************************* @Z40LB64*/ 02357000 */* @Z40LB64*/ 02358000 */* PROCEDURE NAME - COPYSA @Z40LB64*/ 02359000 */* @Z40LB64*/ 02360000 */* FUNCTION - CHECKS TO SEE WHICH, IF ANY, SAS ARE OFF- @ZA27324*/ 02361000 */* LINE OR SUU. IF THEY ARE, THE TABLES ARE @ZA27324*/ 02362000 */* NOT READ AND MESSAGE IDC21125I IS PRINTED. @ZA27324*/ 02363000 */* @ZA27324*/ 02364000 */* OBTAINS A COPY OF THE STAGING ADAPTER @Z40LB64*/ 02365000 */* TABLES FROM THE STAGING ADAPTER WORKING @Z40LB64*/ 02366000 */* CONTROL STORAGE FOR SUBSEQUENT ANALYSIS. @Z40LB64*/ 02367000 */* @Z40LB64*/ 02368000 */* THE STAGING ADAPTER DATA OBTAINED IS @Z40LB64*/ 02369000 */* REFORMATTED - UNREFERENCED FIELDS ARE @Z40LB64*/ 02370000 */* DELETED, AND REFERENCED FIELDS ARE @Z40LB64*/ 02371000 */* COMPRESSED WHERE POSSIBLE. @Z40LB64*/ 02372000 */* @Z40LB64*/ 02373000 */* INPUT - THE STAGING ADAPTER TABLES IN STAGING ADAPTER @Z40LB64*/ 02374000 */* WORKING CONTROL STORAGE. @Z40LB64*/ 02375000 */* @Z40LB64*/ 02376000 */* OUTPUT - THE REFORMATTED COPY OF THE STAGING ADAPTER @Z40LB64*/ 02377000 */* TABLES IN MAIN STORAGE. @Z40LB64*/ 02378000 */* @Z40LB64*/ 02379000 */* ******************************************************* @Z40LB64*/ 02380000 * 0935 02381000 *COPYSA: 0935 02382000 * PROCEDURE; /* @Z40LB64*/ 02383000 COPYSA STM @14,@12,@SA00006 0935 02384000 * DCL 0936 02385000 * DUMMYPTR FIXED(31) STATIC INIT(-1);/* @ZA27324*/ 02386000 * DCL 0937 02387000 * X FIXED(8); /* ITH INDEX @ZA27324*/ 02388000 * DCL 0938 02389000 * Y FIXED(8); /* JTH INDEX @ZA27324*/ 02390000 * OLDERID2=NEWERID2; 0939 02391000 L @15,@PC00001 0939 02392000 L @15,GDTTR2(,@15) 0939 02393000 MVC @TS00001(95),NEWERID2(@15) 0939 02394000 MVC OLDERID2(95,@15),@TS00001 0939 02395000 * NEWID2='CH1F'; /* @Z40LB64*/ 02396000 * 0940 02397000 MVC NEWID2(4,@15),@CC02471 0940 02398000 * /*****************************************************************/ 02399000 * /* */ 02400000 * /* READ THE 4 MSC WCS MAIN SECTORS (7C - 7F) MARK ONLY @ZA27324*/ 02401000 * /* VALID SAS WHICH ARE ONLINE AND READY AS OK. @ZA27324*/ 02402000 * /* */ 02403000 * /*****************************************************************/ 02404000 * 0941 02405000 * QUPTR=WCSBFPTR; /* @ZA27324*/ 02406000 L @15,RWCSPTR 0941 02407000 L @14,WCSBFPTR 0941 02408000 ST @14,QUPTR(,@15) 0941 02409000 * QWMEM=OFF; 0942 02410000 NI QWMEM(@15),B'01111111' 0942 02411000 * DO X=1 TO 4; /* @ZA27324*/ 02412000 LA X,1 0943 02413000 @DL00943 DS 0H 0944 02414000 * QUSECT=SECTRTBL(X); /* @ZA27324*/ 02415000 L @05,RWCSPTR 0944 02416000 LA @02,SECTRTBL-1(X) 0944 02417000 MVC QUSECT(1,@05),0(@02) 0944 02418000 * CALL IDCSASS0(GDTTBL,RDMSC,RWCSPTR,RSNCODE);/* @ZA27324*/ 02419000 L @05,@PC00001 0945 02420000 ST @05,@AL00001 0945 02421000 LA @02,RDMSC 0945 02422000 ST @02,@AL00001+4 0945 02423000 LA @02,RWCSPTR 0945 02424000 ST @02,@AL00001+8 0945 02425000 LA @02,RSNCODE 0945 02426000 ST @02,@AL00001+12 0945 02427000 MVI @AL00001+12,X'80' 0945 02428000 L @15,GDTSSC(,@05) 0945 02429000 LA @01,@AL00001 0945 02430000 BALR @14,@15 0945 02431000 * RESPECIFY 0946 02432000 * RTNREG RSTD; 0946 02433000 * TESTRC=RTNREG; 0947 02434000 LR TESTRC,RTNREG 0947 02435000 * RESPECIFY 0948 02436000 * RTNREG UNRSTD; /* @ZA27324*/ 02437000 * IF TESTRC^=0 THEN /* @ZA27324*/ 02438000 LTR TESTRC,TESTRC 0949 02439000 BZ @RF00949 0949 02440000 * DO; /* @ZA27324*/ 02441000 * CALL SSCMSG(RSNCODE); /* @ZA27324*/ 02442000 LA @15,RSNCODE 0951 02443000 ST @15,@AL00001 0951 02444000 LA @01,@AL00001 0951 02445000 BAL @14,SSCMSG 0951 02446000 * DARGLIST=''B; /* @ZA27324*/ 02447000 L @15,DDSTRU 0952 02448000 XC DARGLIST(20,@15),DARGLIST(@15) 0952 02449000 * DARGSMOD=CHMSGMOD; /* @ZA27324*/ 02450000 MVC DARGSMOD(3,@15),@CC02426 0953 02451000 * DARGSENT=MSG31126; /* @ZA27324*/ 02452000 MVI DARGSENT(@15),X'06' 0954 02453000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @ZA27324*/ 02454000 L @15,@PC00001 0955 02455000 ST @15,@AL00001 0955 02456000 LA @14,@CF00117 0955 02457000 ST @14,@AL00001+4 0955 02458000 LA @14,DDSTRU 0955 02459000 ST @14,@AL00001+8 0955 02460000 MVI @AL00001+8,X'80' 0955 02461000 L @15,GDTPRT(,@15) 0955 02462000 LA @01,@AL00001 0955 02463000 BALR @14,@15 0955 02464000 * LASTCOND=LASTCC12; /* @ZA27324*/ 02465000 L @15,@PC00001+8 0956 02466000 MVC LASTCOND(2,@15),@CH00567 0956 02467000 * RETURN; /* @ZA27324*/ 02468000 @EL00006 DS 0H 0957 02469000 @EF00006 DS 0H 0957 02470000 @ER00006 LM @14,@12,@SA00006 0957 02471000 BR @14 0957 02472000 * END; /* @ZA27324*/ 02473000 * ELSE /* @ZA27324*/ 02474000 * DO Y=1 TO 4; /* @ZA27324*/ 02475000 @RF00949 LA Y,1 0959 02476000 @DL00959 DS 0H 0960 02477000 * IF SAVALID(Y)=ON THEN /* @ZA27324*/ 02478000 L @05,WCSBFPTR 0960 02479000 LR @03,Y 0960 02480000 SLA @03,2 0960 02481000 ST @03,@TF00001 0960 02482000 ALR @03,@05 0960 02483000 TM SAVALID-4(@03),B'10000000' 0960 02484000 BNO @RF00960 0960 02485000 * IF SAREADY(Y)=ON& /* @ZA27324*/ 02486000 * SAONLINE(Y)=ON THEN /* @ZA27324*/ 02487000 AL @05,@TF00001 0961 02488000 TM SAREADY-4(@05),B'01100000' 0961 02489000 BNO @RF00961 0961 02490000 * SAARRAY(X,Y)=ON; /* @ZA27324*/ 02491000 LR @05,X 0962 02492000 SLA @05,2 0962 02493000 ALR @05,Y 0962 02494000 LA @03,SAARRAY-5(@05) 0962 02495000 OI 0(@03),B'10000000' 0962 02496000 * ELSE /* @ZA27324*/ 02497000 * SAARRAY(X,Y)=OFF; /* @ZA27324*/ 02498000 B @RC00961 0963 02499000 @RF00961 LR @05,X 0963 02500000 SLA @05,2 0963 02501000 ALR @05,Y 0963 02502000 LA @03,SAARRAY-5(@05) 0963 02503000 NI 0(@03),B'01111111' 0963 02504000 * ELSE /* @ZA27324*/ 02505000 * SAARRAY(X,Y)=OFF; /* @ZA27324*/ 02506000 B @RC00960 0964 02507000 @RF00960 LR @05,X 0964 02508000 SLA @05,2 0964 02509000 ALR @05,Y 0964 02510000 LA @03,SAARRAY-5(@05) 0964 02511000 NI 0(@03),B'01111111' 0964 02512000 * END; /* @ZA27324*/ 02513000 @RC00960 AL Y,@CF00221 0965 02514000 C Y,@CF00044 0965 02515000 BNH @DL00959 0965 02516000 * END; /* @ZA27324 02517000 * @ZA27324*/ 02518000 * 0966 02519000 AL X,@CF00221 0966 02520000 C X,@CF00044 0966 02521000 BNH @DL00943 0966 02522000 * /*****************************************************************/ 02523000 * /* */ 02524000 * /* INITIALIZE THE 'READ STAGING ADAPTER WORKING CONTROL @Z40LB64*/ 02525000 * /* STORAGE' PARAMETER LIST. THE PARAMETER LIST WAS @Z40LB64*/ 02526000 * /* ZEROED WHEN STORAGE WAS ACQUIRED FOR IT. @Z40LB64*/ 02527000 * /* */ 02528000 * /*****************************************************************/ 02529000 * 0967 02530000 * QUPTR=WCSBFPTR; /* @Z40LB64*/ 02531000 L @06,WCSBFPTR 0967 02532000 L @01,RWCSPTR 0967 02533000 ST @06,QUPTR(,@01) 0967 02534000 * SATBLPTR=WCSBFPTR+SECTRLEN; /* @Z40LB64*/ 02535000 * 0968 02536000 AL @06,@CF01098 0968 02537000 LR SATBLPTR,@06 0968 02538000 * /*****************************************************************/ 02539000 * /* */ 02540000 * /* COPY THE STAGING ADAPTER VIRTUAL ADDRESS DIRECTORY @Z40LB64*/ 02541000 * /* (VAD), VIRTUAL VOLUME INFORMATION TABLE (VVIT), @Z40LB64*/ 02542000 * /* PAGE STATUS TABLE (PST), AND LOGICAL TO REAL TABLE @Z40LB64*/ 02543000 * /* (LTR) FOR EACH VALID STAGING ADAPTER. @Z40LB64*/ 02544000 * /* */ 02545000 * /*****************************************************************/ 02546000 * 0969 02547000 *SACOPY: 0969 02548000 * DO SA#=1 TO SAVLDCNT; /* @Z40LB64*/ 02549000 * 0969 02550000 SACOPY LA SA#,1 0969 02551000 B @DE00969 0969 02552000 @DL00969 DS 0H 0970 02553000 * /***************************************************************/ 02554000 * /* */ 02555000 * /* INITIALIZE THE INDICES FOR EACH STAGING ADAPTER @Z40LB64*/ 02556000 * /* TABLE READING AND REFORMATTING. @Z40LB64*/ 02557000 * /* */ 02558000 * /***************************************************************/ 02559000 * 0970 02560000 * VADCHNL=0; /* @Z40LB64*/ 02561000 SLR @15,@15 0970 02562000 STH @15,VADCHNL 0970 02563000 * SDG#=1; /* @Z40LB64*/ 02564000 LA @15,1 0971 02565000 STH @15,SDG# 0971 02566000 * LUA#=1; /* @Z40LB64*/ 02567000 LR LUA#,@15 0972 02568000 * RPAGE#=1; /* @Z40LB64*/ 02569000 STH @15,RPAGE# 0973 02570000 * PSTFLAG=OFF; /* @Z40LB64*/ 02571000 NI PSTFLAG,B'01111111' 0974 02572000 * SAID#=VLDSAID(SA#)+1; /* @Z40LB64*/ 02573000 LR @14,SA# 0975 02574000 ALR @14,@14 0975 02575000 LH @14,VLDSAID-2(@14) 0975 02576000 ALR @15,@14 0975 02577000 LR SAID#,@15 0975 02578000 * QWSSID=SSIDBASE+(VLDSAID(SA#)*SAIDSHFT);/* @Z40LB64*/ 02579000 * 0976 02580000 SLA @14,4 0976 02581000 LH @15,SSIDBASE 0976 02582000 N @15,@CF02684 0976 02583000 ALR @14,@15 0976 02584000 L @15,RWCSPTR 0976 02585000 STH @14,QWSSID(,@15) 0976 02586000 * /***************************************************************/ 02587000 * /* */ 02588000 * /* READ EACH STAGING ADAPTER WORKING CONTROL STORAGE @Z40LB64*/ 02589000 * /* SECTOR CONTAINING A DESIRED STAGING ADAPTER TABLE @Z40LB64*/ 02590000 * /* (OR PORTION OF A TABLE). READ PST FROM EXTENDED @ZD00043*/ 02591000 * /* SA WCS -- READ THE OTHERS FROM MAIN SA WCS. @ZD00043*/ 02592000 * /* */ 02593000 * /***************************************************************/ 02594000 * 0977 02595000 *SECTCOPY: 0977 02596000 * DO SECT#=1 TO DIM(SASECTOR); /* @Z40LB64*/ 02597000 SECTCOPY LA @15,1 0977 02598000 STH @15,SECT# 0977 02599000 @DL00977 DS 0H 0978 02600000 * IF SARYOVLY(SAID#)=ON THEN /* @ZA27324*/ 02601000 LA @01,SARYOVLY-1(SAID#) 0978 02602000 TM 0(@01),B'10000000' 0978 02603000 BNO @RF00978 0978 02604000 * DO; /* @ZA27324*/ 02605000 * QUSECT=SASECTOR(SECT#); /* @Z40LB64*/ 02606000 L @14,RWCSPTR 0980 02607000 SLR @03,@03 0980 02608000 IC @03,SASECTOR-1(@15) 0980 02609000 STC @03,QUSECT(,@14) 0980 02610000 * IF SECT#>=PSTINDX1&SECT#<=PSTINDX2 THEN 0981 02611000 C @15,@CF01644 0981 02612000 BL @RF00981 0981 02613000 C @15,@CF02303 0981 02614000 BH @RF00981 0981 02615000 * QWMEM=ON; /* @ZD00043*/ 02616000 OI QWMEM(@14),B'10000000' 0982 02617000 * ELSE 0983 02618000 * QWMEM=OFF; /* @ZD00043*/ 02619000 B @RC00981 0983 02620000 @RF00981 L @01,RWCSPTR 0983 02621000 NI QWMEM(@01),B'01111111' 0983 02622000 * CALL IDCSASS0(GDTTBL,RDSTGAD,RWCSPTR,RSNCODE);/* @ZA27324*/ 02623000 @RC00981 L @02,@PC00001 0984 02624000 ST @02,@AL00001 0984 02625000 LA @15,RDSTGAD 0984 02626000 ST @15,@AL00001+4 0984 02627000 LA @15,RWCSPTR 0984 02628000 ST @15,@AL00001+8 0984 02629000 LA @15,RSNCODE 0984 02630000 ST @15,@AL00001+12 0984 02631000 MVI @AL00001+12,X'80' 0984 02632000 L @15,GDTSSC(,@02) 0984 02633000 LA @01,@AL00001 0984 02634000 BALR @14,@15 0984 02635000 * RESPECIFY 0985 02636000 * RTNREG RSTD; 0985 02637000 * TESTRC=RTNREG; 0986 02638000 LR TESTRC,RTNREG 0986 02639000 * RESPECIFY 0987 02640000 * RTNREG UNRSTD; /* @ZA27324*/ 02641000 * END; /* @ZA27324*/ 02642000 * ELSE /* @ZA27324*/ 02643000 * DO; /* @ZA27324*/ 02644000 B @RC00978 0989 02645000 @RF00978 DS 0H 0990 02646000 * RSNCODE=0; /* @ZA27324*/ 02647000 SLR @02,@02 0990 02648000 ST @02,RSNCODE 0990 02649000 * TESTRC=4; /* @ZA27324*/ 02650000 LA TESTRC,4 0991 02651000 * END; /* @ZA27324*/ 02652000 * 0992 02653000 * /*************************************************************/ 02654000 * /* */ 02655000 * /* IF THE REQUESTED STAGING ADAPTER WORKING CONTROL @Z40LB64*/ 02656000 * /* STORAGE SECTOR WAS NOT SUCCESSFULLY OBTAINED, OR @ZA27324*/ 02657000 * /* NOT READ, BYPASS THIS SA, SETUP DUMMY PTRS AND @ZA27324*/ 02658000 * /* CALL SSCMSG TO PROCESS THE REASON CODE. @ZA27324*/ 02659000 * /* */ 02660000 * /*************************************************************/ 02661000 * 0993 02662000 * IF TESTRC=4 THEN /* @ZA27324*/ 02663000 @RC00978 C TESTRC,@CF00044 0993 02664000 BNE @RF00993 0993 02665000 * DO; /* @ZA27324*/ 02666000 * IF RSNCODE^=0 THEN /* @ZA27324*/ 02667000 L @15,RSNCODE 0995 02668000 LTR @15,@15 0995 02669000 BZ @RF00995 0995 02670000 * DO; /* @ZA27324*/ 02671000 * CALL SSCMSG(RSNCODE);/* @ZA27324*/ 02672000 LA @15,RSNCODE 0997 02673000 ST @15,@AL00001 0997 02674000 LA @01,@AL00001 0997 02675000 BAL @14,SSCMSG 0997 02676000 * DARGLIST=''B; /* @ZA27324*/ 02677000 L @15,DDSTRU 0998 02678000 XC DARGLIST(20,@15),DARGLIST(@15) 0998 02679000 * DARGSENT=MSG21127; /* @ZA27324*/ 02680000 MVI DARGSENT(@15),X'07' 0999 02681000 * END; /* @ZA27324*/ 02682000 * ELSE /* @ZA27324*/ 02683000 * DO; /* @ZA27324*/ 02684000 B @RC00995 1001 02685000 @RF00995 DS 0H 1002 02686000 * DARGLIST=''B; /* @ZA27324*/ 02687000 L @15,DDSTRU 1002 02688000 XC DARGLIST(20,@15),DARGLIST(@15) 1002 02689000 * DARGSENT=MSG21125; /* @ZA27324*/ 02690000 MVI DARGSENT(@15),X'05' 1003 02691000 * DARGILP=LENGTH(SAUCB(SAID#));/* @ZA27324*/ 02692000 LA @14,3 1004 02693000 STH @14,DARGILP(,@15) 1004 02694000 * DARGDBP=ADDR(SAUCB(SAID#));/* @ZA27324*/ 02695000 LR @01,@14 1005 02696000 MR @00,SAID# 1005 02697000 LA @14,SAUCB-3(@01) 1005 02698000 ST @14,DARGDBP(,@15) 1005 02699000 * END; /* @ZA27324*/ 02700000 * DARGSMOD=CHMSGMOD; /* @ZA27324*/ 02701000 @RC00995 L @01,DDSTRU 1007 02702000 MVC DARGSMOD(3,@01),@CC02426 1007 02703000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @ZA27324*/ 02704000 L @15,@PC00001 1008 02705000 ST @15,@AL00001 1008 02706000 LA @14,@CF00117 1008 02707000 ST @14,@AL00001+4 1008 02708000 LA @14,DDSTRU 1008 02709000 ST @14,@AL00001+8 1008 02710000 MVI @AL00001+8,X'80' 1008 02711000 L @15,GDTPRT(,@15) 1008 02712000 LA @01,@AL00001 1008 02713000 BALR @14,@15 1008 02714000 * IVADPTR(SAID#)=DUMMYPTR;/* @ZA27324*/ 02715000 L @15,DUMMYPTR 1009 02716000 LR @14,SAID# 1009 02717000 SLA @14,2 1009 02718000 ST @15,IVADPTR-4(@14) 1009 02719000 * IVVITPTR(SAID#)=DUMMYPTR;/* @ZA27324*/ 02720000 ST @15,IVVITPTR-4(@14) 1010 02721000 * IPSTPTR(SAID#)=DUMMYPTR;/* @ZA27324*/ 02722000 ST @15,IPSTPTR-4(@14) 1011 02723000 * ILTRPTR(SAID#)=DUMMYPTR;/* @ZA27324*/ 02724000 ST @15,ILTRPTR-4(@14) 1012 02725000 * SECT#=DIM(SASECTOR); /* @ZA27324*/ 02726000 MVC SECT#(2),@CH01515 1013 02727000 * SUUCOND=LASTCC08; /* @ZA27324*/ 02728000 MVC SUUCOND(2),@CH00181 1014 02729000 * END; /* @ZA27324*/ 02730000 * ELSE /* @ZA27324*/ 02731000 * DO; /* @ZA27324*/ 02732000 * 1016 02733000 B @RC00993 1016 02734000 @RF00993 DS 0H 1017 02735000 * /*********************************************************/ 02736000 * /* */ 02737000 * /* SET VALID SA#S INTO THE VLDSSID TABLE FOR POS- */ 02738000 * /* @ZA27324*/ 02739000 * /* SIBLE LATER COMPARISON BY IDCCH02 AND/OR IDCCH04. */ 02740000 * /* @ZA27324*/ 02741000 * /* NOTE THAT THE TABLE WAS PRE-INITIALIZED TO -1. */ 02742000 * /* @ZA27324*/ 02743000 * /* VLDSSID THEN IS SIMPLY VLDSAID WITH INVALID, @ZA27324*/ 02744000 * /* OFFLINE AND SUU ENTRIES SET TO -1 FOR ALL POS- */ 02745000 * /* @ZA27324*/ 02746000 * /* SIBLE SAS. ONLY THE SAVLDCNT ENTRIES OF VLDSAID */ 02747000 * /* @ZA27324*/ 02748000 * /* ARE VALID. @ZA27324*/ 02749000 * /* */ 02750000 * /*********************************************************/ 02751000 * 1017 02752000 * VLDSSID(SA#)=VLDSAID(SA#);/* @ZA27324*/ 02753000 LR @15,SA# 1017 02754000 ALR @15,@15 1017 02755000 LH @14,VLDSAID-2(@15) 1017 02756000 STH @14,VLDSSID-2(@15) 1017 02757000 * IF GDTDBG=NULLPTR THEN 1018 02758000 L @15,@PC00001 1018 02759000 L @15,GDTDBG(,@15) 1018 02760000 LTR @15,@15 1018 02761000 BZ @RT01018 1018 02762000 * ; 1019 02763000 * ELSE 1020 02764000 * DO; 1020 02765000 * DMPINDEX=ADDR(DUMPLIST);/* @Z40LB64*/ 02766000 LA DMPINDEX,DUMPLIST 1021 02767000 * DMPITMNM='SAREC'; 1022 02768000 MVI DMPITMNM+5(DMPINDEX),C' ' 1022 02769000 MVC DMPITMNM+6(2,DMPINDEX),DMPITMNM+5(DMPINDEX) 1022 02770000 MVC DMPITMNM(5,DMPINDEX),@CC02476 1022 02771000 * DMPITMPT=ADDR(SATBLPTR->WCSBUF); 1023 02772000 ST SATBLPTR,DMPITMPT(,DMPINDEX) 1023 02773000 * DMPITMLN=256; 1024 02774000 MVC DMPITMLN(2,DMPINDEX),@CH01098 1024 02775000 * DMPITMTP='H'; 1025 02776000 MVI DMPITMTP(DMPINDEX),C'H' 1025 02777000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB64*/ 02778000 AL DMPINDEX,@CF00476 1026 02779000 * DMPTRM=DMPTRMVL; 1027 02780000 MVI DMPTRM(DMPINDEX),X'FF' 1027 02781000 * END; /* @Z40LB64*/ 02782000 * IF GDTDBG=NULLPTR THEN 1029 02783000 @RT01018 L @15,@PC00001 1029 02784000 L @15,GDTDBG(,@15) 1029 02785000 LTR @15,@15 1029 02786000 BZ @RT01029 1029 02787000 * ; 1030 02788000 * ELSE 1031 02789000 * CALL IDCDB010(GDTTBL,'CH1U',ADDR(DUMPLIST));/* @Z40LB64*/ 02790000 * 1031 02791000 L @15,@PC00001 1031 02792000 ST @15,@AL00001 1031 02793000 LA @14,@CC02478 1031 02794000 ST @14,@AL00001+4 1031 02795000 LA @14,DUMPLIST 1031 02796000 ST @14,@AFTEMPS 1031 02797000 LA @14,@AFTEMPS 1031 02798000 ST @14,@AL00001+8 1031 02799000 MVI @AL00001+8,X'80' 1031 02800000 L @15,GDTDBG(,@15) 1031 02801000 LA @01,@AL00001 1031 02802000 BALR @14,@15 1031 02803000 * /*********************************************************/ 02804000 * /* */ 02805000 * /* REQUESTED SECTOR WAS SUCCESSFULLY OBTAINED. @Z40LB64*/ 02806000 * /* PERFORM REFORMATTING OF OBTAINED TABLE OR TABLE */ 02807000 * /* @Z40LB64*/ 02808000 * /* PORTION IN THE SECTOR. THE SECTOR INDEX @Z40LB64*/ 02809000 * /* DETERMINES THE REFORMATTING TO BE PERFORMED. @Z40LB64*/ 02810000 * /* */ 02811000 * /*********************************************************/ 02812000 * 1032 02813000 * DO; /* CASE(SECT#)NAMES(VAD1CASE,VAD2 02814000 * CASE,VAD1CASE,VAD2CASE,VAD1CAS 02815000 * E,VAD2CASE,VVI1CASE,VVI2CASE,P 02816000 * STCASE,PSTCASE,PSTCASE,PSTCASE 02817000 * ,PSTCASE,PSTCASE,PSTCASE,PSTCA 02818000 * SE,PSTCASE,PSTCASE,PSTCASE,PST 02819000 * CASE,PSTCASE,LTRCASE) */ 02820000 @RT01029 DS 0H 1033 02821000 * DCL 1033 02822000 * CL0001@ LABEL BASED(CP0001@(SECT#)) VALUERANGE(VAD1CASE 02823000 * ,VAD2CASE,VAD1CASE,VAD2CASE,VAD1CASE,VAD2CASE, 1033 02824000 * VVI1CASE,VVI2CASE,PSTCASE,PSTCASE,PSTCASE,PSTCASE, 02825000 * PSTCASE,PSTCASE,PSTCASE,PSTCASE,PSTCASE,PSTCASE, 02826000 * PSTCASE,PSTCASE,PSTCASE,LTRCASE);/* BRANCH TARGET*/ 02827000 * DCL 1034 02828000 * CP0001@(22) PTR(31) INIT(ADDR(VAD1CASE),ADDR(VAD2CASE), 02829000 * ADDR(VAD1CASE),ADDR(VAD2CASE),ADDR(VAD1CASE),ADDR( 02830000 * VAD2CASE),ADDR(VVI1CASE),ADDR(VVI2CASE),ADDR( 1034 02831000 * PSTCASE),ADDR(PSTCASE),ADDR(PSTCASE),ADDR(PSTCASE), 02832000 * ADDR(PSTCASE),ADDR(PSTCASE),ADDR(PSTCASE),ADDR( 02833000 * PSTCASE),ADDR(PSTCASE),ADDR(PSTCASE),ADDR(PSTCASE), 02834000 * ADDR(PSTCASE),ADDR(PSTCASE),ADDR(LTRCASE)); 1034 02835000 * GOTO CL0001@; /* BRANCH TO SELECTED CASE */ 02836000 * 1035 02837000 LH @15,SECT# 1035 02838000 SLA @15,2 1035 02839000 L @01,CP0001@-4(@15) 1035 02840000 BR @01 1035 02841000 * /*******************************************************/ 02842000 * /* */ 02843000 * /* @Z40LB64*/ 02844000 * /* */ 02845000 * /*******************************************************/ 02846000 * 1036 02847000 *VAD1CASE: 1036 02848000 * DO; /* SUBCASE @Z40LB64*/ 02849000 * 1036 02850000 VAD1CASE DS 0H 1037 02851000 * /*****************************************************/ 02852000 * /* */ 02853000 * /* VIRTUAL ADDRESS DIRECTORY WORD 1 TO BE @Z40LB64*/ 02854000 * /* REFORMATTED. @Z40LB64*/ 02855000 * /* */ 02856000 * /*****************************************************/ 02857000 * 1037 02858000 * VADCHNL=VADCHNL+1; /* @Z40LB64*/ 02859000 LA @02,1 1037 02860000 LH @15,VADCHNL 1037 02861000 ALR @15,@02 1037 02862000 STH @15,VADCHNL 1037 02863000 * VADPTR1=SATBLPTR; /* @Z40LB64*/ 02864000 LR VADPTR1,SATBLPTR 1038 02865000 * DO VUA#=1 TO VUASINTF;/* @Z40LB64*/ 02866000 LA @15,1 1039 02867000 LR VUA#,@15 1039 02868000 @DL01039 DS 0H 1040 02869000 * IVADPTR(SAID#)->IVADVVA(VADCHNL,VUA#)=VADVVA(VUA#); 02870000 LH @15,VADCHNL 1040 02871000 SLA @15,6 1040 02872000 ALR @15,VUA# 1040 02873000 ALR @15,@15 1040 02874000 LR @14,SAID# 1040 02875000 SLA @14,2 1040 02876000 L @01,IVADPTR-4(@14) 1040 02877000 LR @14,VUA# 1040 02878000 SLA @14,2 1040 02879000 AL @14,@CF02690 1040 02880000 SLR @00,@00 1040 02881000 IC @00,VADVVA-1(@14,VADPTR1) 1040 02882000 AL @01,@CF02691 1040 02883000 STC @00,IVADVVA(@15,@01) 1040 02884000 * /* @Z40LB64*/ 02885000 * END; /* @Z40LB64*/ 02886000 AL VUA#,@CF00221 1041 02887000 C VUA#,@CF01072 1041 02888000 BNH @DL01039 1041 02889000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 02890000 B CE0001@ 1042 02891000 * END VAD1CASE; /* END OF SUBCASE */ 02892000 */* @Z40LB64 */ 02893000 * 1044 02894000 *VAD2CASE: 1044 02895000 * DO; /* SUBCASE @Z40LB64*/ 02896000 * 1044 02897000 VAD2CASE DS 0H 1045 02898000 * /*****************************************************/ 02899000 * /* */ 02900000 * /* VIRTUAL ADDRESS DIRECTORY WORD 2 TO BE @Z40LB64*/ 02901000 * /* REFORMATTED. @Z40LB64*/ 02902000 * /* */ 02903000 * /*****************************************************/ 02904000 * 1045 02905000 * VADPTR2=SATBLPTR; /* @Z40LB64*/ 02906000 LR VADPTR2,SATBLPTR 1045 02907000 * DO VUA#=1 TO VUASINTF;/* @Z40LB64*/ 02908000 LA VUA#,1 1046 02909000 @DL01046 DS 0H 1047 02910000 * IVADPTR(SAID#)->IVADFLG(VADCHNL,VUA#)=VADFLAGS(VUA#); 02911000 LH @15,VADCHNL 1047 02912000 SLA @15,6 1047 02913000 ALR @15,VUA# 1047 02914000 ALR @15,@15 1047 02915000 LR @14,SAID# 1047 02916000 SLA @14,2 1047 02917000 L @01,IVADPTR-4(@14) 1047 02918000 ALR @01,@15 1047 02919000 AL @01,@CF02692 1047 02920000 LR @15,VUA# 1047 02921000 SLA @15,2 1047 02922000 ALR @15,VADPTR2 1047 02923000 AL @15,@CF02349 1047 02924000 MVC IVADFLG-1(1,@01),VADFLAGS-3(@15) 1047 02925000 * /* @Z40LB64*/ 02926000 * END; /* @Z40LB64*/ 02927000 AL VUA#,@CF00221 1048 02928000 C VUA#,@CF01072 1048 02929000 BNH @DL01046 1048 02930000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 02931000 B CE0001@ 1049 02932000 * END VAD2CASE; /* END OF SUBCASE */ 02933000 */* @Z40LB64 */ 02934000 * 1051 02935000 *VVI1CASE: 1051 02936000 * DO; /* SUBCASE @Z40LB64*/ 02937000 * 1051 02938000 VVI1CASE DS 0H 1052 02939000 * /*****************************************************/ 02940000 * /* */ 02941000 * /* VIRTUAL VOLUME INFORMATION TABLE BYTE 1 @Z40LB64*/ 02942000 * /* TO BE REFORMATTED. @Z40LB64*/ 02943000 * /* */ 02944000 * /*****************************************************/ 02945000 * 1052 02946000 * VVITPTR1=SATBLPTR; /* @Z40LB64*/ 02947000 LR VVITPTR1,SATBLPTR 1052 02948000 * DO VVA#=LOWVVA TO HIGHVVA;/* @Z40LB64*/ 02949000 LA VVA#,64 1053 02950000 @DL01053 DS 0H 1054 02951000 * IVVITPTR(SAID#)->IVVI1(VVA#-LOWVVA+1)=VVITBYT1(VVA#+1 02952000 * ); /* @Z40LB64*/ 02953000 LR @15,VVA# 1054 02954000 ALR @15,@15 1054 02955000 LR @14,SAID# 1054 02956000 SLA @14,2 1054 02957000 L @01,IVVITPTR-4(@14) 1054 02958000 ALR @01,@15 1054 02959000 AL @01,@CF02693 1054 02960000 LR @15,VVITPTR1 1054 02961000 ALR @15,VVA# 1054 02962000 MVC IVVI1(1,@01),VVITBYT1(@15) 1054 02963000 * END; /* @Z40LB64*/ 02964000 AL VVA#,@CF00221 1055 02965000 C VVA#,@CF02305 1055 02966000 BNH @DL01053 1055 02967000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 02968000 B CE0001@ 1056 02969000 * END VVI1CASE; /* END OF SUBCASE */ 02970000 */* @Z40LB64 */ 02971000 * 1058 02972000 *VVI2CASE: 1058 02973000 * DO; /* SUBCASE @Z40LB64*/ 02974000 * 1058 02975000 VVI2CASE DS 0H 1059 02976000 * /*****************************************************/ 02977000 * /* */ 02978000 * /* VIRTUAL VOLUME INFORMATION TABLE BYTE 2 @Z40LB64*/ 02979000 * /* TO BE REFORMATTED. @Z40LB64*/ 02980000 * /* */ 02981000 * /*****************************************************/ 02982000 * 1059 02983000 * VVITPTR2=SATBLPTR; /* @Z40LB64*/ 02984000 LR VVITPTR2,SATBLPTR 1059 02985000 * DO VVA#=LOWVVA TO HIGHVVA;/* @Z40LB64*/ 02986000 LA VVA#,64 1060 02987000 @DL01060 DS 0H 1061 02988000 * IVVITPTR(SAID#)->IVVI2(VVA#-LOWVVA+1)=VVITBYT2(VVA#+1 02989000 * ); /* @Z40LB64*/ 02990000 LR @15,VVA# 1061 02991000 ALR @15,@15 1061 02992000 LR @14,SAID# 1061 02993000 SLA @14,2 1061 02994000 L @01,IVVITPTR-4(@14) 1061 02995000 ALR @01,@15 1061 02996000 AL @01,@CF02694 1061 02997000 LR @15,VVITPTR2 1061 02998000 ALR @15,VVA# 1061 02999000 MVC IVVI2-1(1,@01),VVITBYT2(@15) 1061 03000000 * END; /* @Z40LB64*/ 03001000 AL VVA#,@CF00221 1062 03002000 C VVA#,@CF02305 1062 03003000 BNH @DL01060 1062 03004000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 03005000 B CE0001@ 1063 03006000 * END VVI2CASE; /* END OF SUBCASE */ 03007000 */* @Z40LB64 */ 03008000 * 1065 03009000 *PSTCASE: 1065 03010000 * DO; /* SUBCASE @Z40LB64*/ 03011000 * 1065 03012000 PSTCASE DS 0H 1066 03013000 * /*****************************************************/ 03014000 * /* */ 03015000 * /* PAGE STATUS TABLE TO BE REFORMATTED. @Z40LB64*/ 03016000 * /* */ 03017000 * /*****************************************************/ 03018000 * 1066 03019000 * PSTPTR=SATBLPTR; /* @Z40LB64*/ 03020000 LR PSTPTR,SATBLPTR 1066 03021000 * DO PST#=1 TO(SECTRLEN/LENGTH(PST)) WHILE(PSTFLAG=OFF); 03022000 LA PST#,1 1067 03023000 @DL01067 TM PSTFLAG,B'10000000' 1067 03024000 BNZ @DC01067 1067 03025000 * /* @Z40LB64*/ 03026000 * IPSTPTR(SAID#)->IPSTVVA(SDG#,LUA#,RPAGE#)=PSTVVA;/* 03027000 * @Z40LB64*/ 03028000 LH @15,RPAGE# 1068 03029000 LA @14,52 1068 03030000 LH @01,SDG# 1068 03031000 ST @01,@TF00001 1068 03032000 SLA @01,3 1068 03033000 ALR @01,LUA# 1068 03034000 MR @00,@14 1068 03035000 ALR @01,@15 1068 03036000 ALR @01,@01 1068 03037000 LR @00,SAID# 1068 03038000 SLA @00,2 1068 03039000 LR @15,@00 1068 03040000 L @15,IPSTPTR-4(@15) 1068 03041000 SLR @00,@00 1068 03042000 IC @00,PSTVVA(,PSTPTR) 1068 03043000 LA @14,0(@01,@15) 1068 03044000 AL @14,@CF02695 1068 03045000 STC @00,IPSTVVA(,@14) 1068 03046000 * IPSTPTR(SAID#)->IPSTVP(SDG#,LUA#,RPAGE#)=PSTVPNUM; 03047000 SLR @14,@14 1069 03048000 IC @14,PSTVPNUM(,PSTPTR) 1069 03049000 AL @15,@CF02696 1069 03050000 STC @14,IPSTVP-1(@01,@15) 1069 03051000 * /* @Z40LB64*/ 03052000 * PSTPTR=PSTPTR+LENGTH(PST);/* @Z40LB64*/ 03053000 AL PSTPTR,@CF00044 1070 03054000 * IF RPAGE#=PAGESDEV THEN 1071 03055000 LH @15,RPAGE# 1071 03056000 LA @14,52 1071 03057000 CR @15,@14 1071 03058000 BNE @RF01071 1071 03059000 * IF LUA#=DEVSSDG THEN 1072 03060000 C LUA#,@CF00181 1072 03061000 BNE @RF01072 1072 03062000 * IF SDG#=SDGSSA THEN 1073 03063000 CLC @TF00001(4),@CF00155 1073 03064000 BNE @RF01073 1073 03065000 * PSTFLAG=ON; /* @Z40LB64*/ 03066000 OI PSTFLAG,B'10000000' 1074 03067000 * ELSE 1075 03068000 * DO; /* @Z40LB64*/ 03069000 B @RC01073 1075 03070000 @RF01073 DS 0H 1076 03071000 * SDG#=SDG#+1;/* @Z40LB64*/ 03072000 LA @15,1 1076 03073000 LH @14,SDG# 1076 03074000 ALR @14,@15 1076 03075000 STH @14,SDG# 1076 03076000 * LUA#=1; /* @Z40LB64*/ 03077000 LR LUA#,@15 1077 03078000 * RPAGE#=1; /* @Z40LB64*/ 03079000 STH @15,RPAGE# 1078 03080000 * END; /* @Z40LB64*/ 03081000 * ELSE 1080 03082000 * DO; /* @Z40LB64*/ 03083000 B @RC01072 1080 03084000 @RF01072 DS 0H 1081 03085000 * LUA#=LUA#+1;/* @Z40LB64*/ 03086000 LA @15,1 1081 03087000 ALR LUA#,@15 1081 03088000 * RPAGE#=1; /* @Z40LB64*/ 03089000 STH @15,RPAGE# 1082 03090000 * END; /* @Z40LB64*/ 03091000 * ELSE 1084 03092000 * RPAGE#=RPAGE#+1;/* @Z40LB64*/ 03093000 B @RC01071 1084 03094000 @RF01071 LA @15,1 1084 03095000 AH @15,RPAGE# 1084 03096000 STH @15,RPAGE# 1084 03097000 * END; /* @Z40LB64*/ 03098000 @RC01071 AL PST#,@CF00221 1085 03099000 C PST#,@CF01072 1085 03100000 BNH @DL01067 1085 03101000 @DC01067 DS 0H 1086 03102000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 03103000 B CE0001@ 1086 03104000 * END PSTCASE; /* END OF SUBCASE */ 03105000 */* @Z40LB64 */ 03106000 * 1088 03107000 *LTRCASE: 1088 03108000 * DO; /* SUBCASE @Z40LB64*/ 03109000 * 1088 03110000 LTRCASE DS 0H 1089 03111000 * /*****************************************************/ 03112000 * /* */ 03113000 * /* LOGICAL TO REAL TABLE TO BE REFORMATTED. @Z40LB64*/ 03114000 * /* */ 03115000 * /*****************************************************/ 03116000 * 1089 03117000 * LTRPTR=SATBLPTR+LTROFFST;/* @Z40LB64*/ 03118000 LR LTRPTR,SATBLPTR 1089 03119000 AH LTRPTR,LTROFFST 1089 03120000 * DO LUA#=1 TO DEVSSA;/* @Z40LB64*/ 03121000 LA LUA#,1 1090 03122000 @DL01090 DS 0H 1091 03123000 * ILTRPTR(SAID#)->ILTRRUA(LUA#)=LTRRUA(LUA#);/* 1091 03124000 * @Z40LB64*/ 03125000 LR @03,SAID# 1091 03126000 SLA @03,2 1091 03127000 L @03,ILTRPTR-4(@03) 1091 03128000 LR @01,LTRPTR 1091 03129000 AL @01,@CF02349 1091 03130000 SLR @00,@00 1091 03131000 IC @00,LTRRUA(LUA#,@01) 1091 03132000 AL @03,@CF02349 1091 03133000 STC @00,ILTRRUA(LUA#,@03) 1091 03134000 * END; /* @Z40LB64*/ 03135000 AL LUA#,@CF00221 1092 03136000 C LUA#,@CF00476 1092 03137000 BNH @DL01090 1092 03138000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 03139000 B CE0001@ 1093 03140000 * END LTRCASE; /* END OF SUBCASE */ 03141000 */* @Z40LB64 */ 03142000 * 1095 03143000 *CE0001@: 1095 03144000 * END; /* END OF CASE */ 03145000 CE0001@ DS 0H 1096 03146000 */*@Z40LB64 */ 03147000 * 1096 03148000 * END; /* @ZA27324*/ 03149000 * END SECTCOPY; /* @Z40LB64*/ 03150000 @RC00993 LA @15,1 1097 03151000 AH @15,SECT# 1097 03152000 STH @15,SECT# 1097 03153000 C @15,@CF01515 1097 03154000 BNH @DL00977 1097 03155000 * END SACOPY; /* @Z40LB64*/ 03156000 AL SA#,@CF00221 1098 03157000 @DE00969 CH SA#,SAVLDCNT 1098 03158000 BNH @DL00969 1098 03159000 * END COPYSA; /* @Z40LB64*/ 03160000 B @EL00006 1099 03161000 * 1100 03162000 */* ******************************************************* @Z40LB64*/ 03163000 */* @Z40LB64*/ 03164000 */* PROCEDURE NAME - CHKMSVI @Z40LB64*/ 03165000 */* @Z40LB64*/ 03166000 */* FUNCTION - COMPARES INFORMATION CONTAINED IN THE MSVI @Z40LB64*/ 03167000 */* RECORDS WITH CORRESPONDING INFORMATION IN @Z40LB64*/ 03168000 */* THE MSC TABLES. @Z40LB64*/ 03169000 */* @Z40LB64*/ 03170000 */* ACTIVE MSVI BASE VOLUME RECORDS ARE @Z40LB64*/ 03171000 */* COMPARED AGAINST THE MSC VOLUME INVENTORY. @Z40LB64*/ 03172000 */* @Z40LB64*/ 03173000 */* INACTIVE MSVI BASE VOLUME RECORDS, MSVI @Z40LB64*/ 03174000 */* COPY VOLUME RECORDS, AND MSVI DUPLICATE @Z40LB64*/ 03175000 */* VOLUME RECORDS ARE COMPARED AGAINST THE @Z40LB64*/ 03176000 */* MSC TRANSIENT VOLUME LIST. @Z40LB64*/ 03177000 */* @Z40LB64*/ 03178000 */* ACTIVE MSVI BASE VOLUME RECORDS ARE ALSO @Z40LB64*/ 03179000 */* COMPARED AGAINST THE MSC MOUNTED VOLUME @Z40LB64*/ 03180000 */* TABLE FOR MOUNTED VOLUMES. @Z40LB64*/ 03181000 */* @Z40LB64*/ 03182000 */* CHECKING OF SPECIFIC FIELDS IN THE ABOVE @Z40LB64*/ 03183000 */* CASES IS PERFORMED BY THE 'VOLREC' AND @Z40LB64*/ 03184000 */* 'CPUREC' PROCEDURES. @Z40LB64*/ 03185000 */* @Z40LB64*/ 03186000 */* INPUT - THE MASS STORAGE VOLUME INVENTORY (MSVI) @Z40LB64*/ 03187000 */* DATA SET. @Z40LB64*/ 03188000 */* @Z40LB64*/ 03189000 */* OUTPUT - INCONSISTENCIES IN CORRESPONDING FIELDS @Z40LB64*/ 03190000 */* BETWEEN THE MSVI AND MSC TABLES ARE PRINTED. @Z40LB64*/ 03191000 */* @Z40LB64*/ 03192000 */* ******************************************************* @Z40LB64*/ 03193000 * 1100 03194000 *CHKMSVI: 1100 03195000 * PROCEDURE; /* @Z40LB64*/ 03196000 CHKMSVI STM @14,@12,@SA00007 1100 03197000 * OLDERID2=NEWERID2; 1101 03198000 L @15,@PC00001 1101 03199000 L @15,GDTTR2(,@15) 1101 03200000 MVC @TS00001(95),NEWERID2(@15) 1101 03201000 MVC OLDERID2(95,@15),@TS00001 1101 03202000 * NEWID2='CH1G'; /* @Z40LB64*/ 03203000 * 1102 03204000 MVC NEWID2(4,@15),@CC02498 1102 03205000 * /*****************************************************************/ 03206000 * /* */ 03207000 * /* ZERO THE VOLUME INVENTORY CHECK-OFF TABLE, THE @Z40LB64*/ 03208000 * /* TRANSIENT VOLUME LIST CHECK-OFF TABLE, AND THE @Z40LB64*/ 03209000 * /* MOUNTED VOLUME TABLE CHECK-OFF TABLE. @Z40LB64*/ 03210000 * /* */ 03211000 * /*****************************************************************/ 03212000 * 1103 03213000 * COTLEN=DIM(VICHKFF); /* @Z40LB64*/ 03214000 L COTLEN,@CF01713 1103 03215000 * COTPTR=VICOPTR; /* @Z40LB64*/ 03216000 L COTPTR,VICOPTR 1104 03217000 * DO WHILE COTLEN>0; /* @Z40LB64*/ 03218000 B @DE01105 1105 03219000 @DL01105 DS 0H 1106 03220000 * COTPTR->MOVEAREA(1:MIN(ZEROAMT,COTLEN))=COTPTR->MOVEAREA(1:MIN( 03221000 * ZEROAMT,COTLEN))&&COTPTR->MOVEAREA(1:MIN(ZEROAMT,COTLEN)); 03222000 LA @15,256 1106 03223000 LR @14,@15 1106 03224000 CR @14,COTLEN 1106 03225000 BNH *+6 03226000 LR @14,COTLEN 1106 03227000 BCTR @14,0 1106 03228000 EX @14,@SX02697 1106 03229000 * /* @Z40LB64*/ 03230000 * COTPTR=COTPTR+ZEROAMT; /* @Z40LB64*/ 03231000 ALR COTPTR,@15 1107 03232000 * COTLEN=COTLEN-ZEROAMT; /* @Z40LB64*/ 03233000 SLR COTLEN,@15 1108 03234000 * END; /* @Z40LB64*/ 03235000 @DE01105 LTR COTLEN,COTLEN 1109 03236000 BP @DL01105 1109 03237000 * COTLEN=DIM(TVLCHKFF); /* @Z40LB64*/ 03238000 LA COTLEN,1280 1110 03239000 * COTPTR=TVLCOPTR; /* @Z40LB64*/ 03240000 L COTPTR,TVLCOPTR 1111 03241000 * DO WHILE COTLEN>0; /* @Z40LB64*/ 03242000 B @DE01112 1112 03243000 @DL01112 DS 0H 1113 03244000 * COTPTR->MOVEAREA(1:MIN(ZEROAMT,COTLEN))=COTPTR->MOVEAREA(1:MIN( 03245000 * ZEROAMT,COTLEN))&&COTPTR->MOVEAREA(1:MIN(ZEROAMT,COTLEN)); 03246000 LA @15,256 1113 03247000 LR @14,@15 1113 03248000 CR @14,COTLEN 1113 03249000 BNH *+6 03250000 LR @14,COTLEN 1113 03251000 BCTR @14,0 1113 03252000 EX @14,@SX02697 1113 03253000 * /* @Z40LB64*/ 03254000 * COTPTR=COTPTR+ZEROAMT; /* @Z40LB64*/ 03255000 ALR COTPTR,@15 1114 03256000 * COTLEN=COTLEN-ZEROAMT; /* @Z40LB64*/ 03257000 SLR COTLEN,@15 1115 03258000 * END; /* @Z40LB64*/ 03259000 @DE01112 LTR COTLEN,COTLEN 1116 03260000 BP @DL01112 1116 03261000 * COTLEN=DIM(MVTCHKFF); /* @Z40LB64*/ 03262000 LA COTLEN,1024 1117 03263000 * COTPTR=MVTCOPTR; /* @Z40LB64*/ 03264000 L COTPTR,MVTCOPTR 1118 03265000 * DO WHILE COTLEN>0; /* @Z40LB64*/ 03266000 B @DE01119 1119 03267000 @DL01119 DS 0H 1120 03268000 * COTPTR->MOVEAREA(1:MIN(ZEROAMT,COTLEN))=COTPTR->MOVEAREA(1:MIN( 03269000 * ZEROAMT,COTLEN))&&COTPTR->MOVEAREA(1:MIN(ZEROAMT,COTLEN)); 03270000 LA @15,256 1120 03271000 LR @14,@15 1120 03272000 CR @14,COTLEN 1120 03273000 BNH *+6 03274000 LR @14,COTLEN 1120 03275000 BCTR @14,0 1120 03276000 EX @14,@SX02697 1120 03277000 * /* @Z40LB64*/ 03278000 * COTPTR=COTPTR+ZEROAMT; /* @Z40LB64*/ 03279000 ALR COTPTR,@15 1121 03280000 * COTLEN=COTLEN-ZEROAMT; /* @Z40LB64*/ 03281000 SLR COTLEN,@15 1122 03282000 * END; /* @Z40LB64*/ 03283000 * 1123 03284000 @DE01119 SLR @15,@15 1123 03285000 CR COTLEN,@15 1123 03286000 BH @DL01119 1123 03287000 * /*****************************************************************/ 03288000 * /* */ 03289000 * /* INITIALIZE THE STATE OF 'GETREC' CONTROL VARIABLES @Z40LB64*/ 03290000 * /* AND THE 'RVVI' READ REQUEST LIST. @Z40LB64*/ 03291000 * /* */ 03292000 * /*****************************************************************/ 03293000 * 1124 03294000 * RECTYPE=0; /* @Z40LB64*/ 03295000 MVI RECTYPE,X'00' 1124 03296000 * LASTBASE=NEWBASE; /* @Z40LB64*/ 03297000 MVC LASTBASE(6),@CC02394 1125 03298000 * LASTCOPY=0; /* @Z40LB64*/ 03299000 LR LASTCOPY,@15 1126 03300000 * LASTDUP=0; /* @Z40LB64*/ 03301000 LR LASTDUP,@15 1127 03302000 * RVVLNGTH=RVVLEN; /* @Z40LB64*/ 03303000 L @15,RVVIPTR 1128 03304000 LH @14,RVVLEN 1128 03305000 ST @14,RVVLNGTH(,@15) 1128 03306000 * RVVOPCOD=RVVOP; /* @Z40LB64*/ 03307000 * 1129 03308000 XC RVVOPCOD+1(3,@15),RVVOPCOD+1(@15) 1129 03309000 MVI RVVOPCOD(@15),X'87' 1129 03310000 * /*****************************************************************/ 03311000 * /* */ 03312000 * /* OBTAIN THE MSC MANUFACTURER'S ID CONVERSION TABLE @Z40LB64*/ 03313000 * /* (MICT) TO ASSIST IN THE COMPARISON BETWEEN MSVI @Z40LB64*/ 03314000 * /* BASE VOLUME RECORDS FOR MOUNTED VOLUMES AND THE @Z40LB64*/ 03315000 * /* MSC VOLUME INVENTORY. SAVE THE MICT FOR REFERENCE @Z40LB64*/ 03316000 * /* BY THE 'CPUREC' PROCEDURE. @Z40LB64*/ 03317000 * /* */ 03318000 * /*****************************************************************/ 03319000 * 1130 03320000 * TABLEID=CFGTBLID; /* @Z40LB64*/ 03321000 L @15,EARGPTR 1130 03322000 MVC TABLEID(1,@15),CFGTBLID 1130 03323000 * MICTFLAG=ON; /* @Z40LB64*/ 03324000 OI MICTFLAG(@15),B'00000100' 1131 03325000 * CALL IDCCH03(GDTTBL,CDALIST); /* @Z40LB64*/ 03326000 L @15,@PC00001 1132 03327000 ST @15,@AL00001 1132 03328000 LA @15,CDALIST 1132 03329000 ST @15,@AL00001+4 1132 03330000 L @15,@CV02184 1132 03331000 LA @01,@AL00001 1132 03332000 BALR @14,@15 1132 03333000 * IF GETRC^=0 THEN 1133 03334000 L @01,EARGPTR 1133 03335000 LH @15,GETRC(,@01) 1133 03336000 LTR @15,@15 1133 03337000 BZ @RF01133 1133 03338000 * DO; /* @Z40LB64*/ 03339000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 03340000 L @15,@PC00001+8 1135 03341000 MVC LASTCOND(2,@15),@CH00567 1135 03342000 * RETURN; /* @Z40LB64*/ 03343000 @EL00007 DS 0H 1136 03344000 @EF00007 DS 0H 1136 03345000 @ER00007 LM @14,@12,@SA00007 1136 03346000 BR @14 1136 03347000 * END; /* @Z40LB64*/ 03348000 * MICPTR->MOVEAREA(1:LENGTH(MICTABLE))=TBLADDR->MOVEAREA(1:LENGTH( 03349000 * MICTABLE)); /* @Z40LB64*/ 03350000 @RF01133 L @01,MICPTR 1138 03351000 L @15,EARGPTR 1138 03352000 L @14,TBLADDR(,@15) 1138 03353000 MVC MOVEAREA(128,@01),MOVEAREA(@14) 1138 03354000 * MICTCHR=PREVCHR; /* @Z40LB64*/ 03355000 * 1139 03356000 MVC MICTCHR(5),PREVCHR(@15) 1139 03357000 * /*****************************************************************/ 03358000 * /* */ 03359000 * /* OBTAIN THE MSVI CPU RECORD TO ASSIST IN THE @Z40LB64*/ 03360000 * /* COMPARISON BETWEEN BASE VOLUME RECORDS FOR MOUNTED @Z40LB64*/ 03361000 * /* VOLUMES AND THE MSC MOUNTED VOLUME TABLE. THE CPU @Z40LB64*/ 03362000 * /* RECORD IS SAVED FOR REFERENCE BY 'CPUREC' PROCEDURE. @Z40LB64*/ 03363000 * /* */ 03364000 * /*****************************************************************/ 03365000 * 1140 03366000 * MSVICPU=ON; /* @Z40LB64*/ 03367000 OI MSVICPU,B'00010000' 1140 03368000 * RVVRDR=ON; /* @Z40LB64*/ 03369000 L @15,RVVIPTR 1141 03370000 OI RVVRDR(@15),B'10000000' 1141 03371000 * RVVBUFLN=LENGTH(CPUID); /* @Z40LB64*/ 03372000 MVC RVVBUFLN(2,@15),@CH02654 1142 03373000 * RVVRTBUF=ADDR(CPUID); /* @Z40LB64*/ 03374000 L @14,CPUIDPTR 1143 03375000 ST @14,RVVRTBUF(,@15) 1143 03376000 * CALL GETREC; /* @Z40LB64*/ 03377000 BAL @14,GETREC 1144 03378000 * IF RECCODE^=0 THEN 1145 03379000 CLI RECCODE,0 1145 03380000 BE @RF01145 1145 03381000 * DO; /* @Z40LB64*/ 03382000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 03383000 L @15,@PC00001+8 1147 03384000 MVC LASTCOND(2,@15),@CH00567 1147 03385000 * RETURN; /* @Z40LB64*/ 03386000 B @EL00007 1148 03387000 * END; /* @Z40LB64*/ 03388000 * 1149 03389000 * /*****************************************************************/ 03390000 * /* */ 03391000 * /* INDIVIDUALLY OBTAIN EACH MSVI BASE VOLUME RECORD @Z40LB64*/ 03392000 * /* FOR COMPARISON WITH MSC TABLES, AND FOR EACH MSVI @Z40LB64*/ 03393000 * /* BASE VOLUME RECORD, INDIVIDUALLY OBTAIN EACH @Z40LB64*/ 03394000 * /* CORRESPONDING COPY VOLUME RECORD AND DUPLICATE @Z40LB64*/ 03395000 * /* VOLUME RECORD. @Z40LB64*/ 03396000 * /* */ 03397000 * /*****************************************************************/ 03398000 * 1150 03399000 * RECTYPE=0; /* @Z40LB64*/ 03400000 @RF01145 MVI RECTYPE,X'00' 1150 03401000 * MSVIBASE=ON; /* @Z40LB64*/ 03402000 OI MSVIBASE,B'10000000' 1151 03403000 * RVVRDR=OFF; /* @Z40LB64*/ 03404000 * RVVRDNR=ON; /* @Z40LB64*/ 03405000 L @15,RVVIPTR 1153 03406000 OI RVVRDNR(@15),B'01000000' 1153 03407000 NI RVVRDR(@15),B'01111111' 1153 03408000 * RVVBUFLN=LENGTH(MSVIREC); /* @Z40LB64*/ 03409000 MVC RVVBUFLN(2,@15),@CH02657 1154 03410000 * RVVRTBUF=ADDR(MSVIREC); /* @Z40LB64*/ 03411000 L @14,MSVIAPTR 1155 03412000 ST @14,RVVRTBUF(,@15) 1155 03413000 * ENDFLAG=OFF; /* @Z40LB64*/ 03414000 NI ENDFLAG,B'01111111' 1156 03415000 *MSVILOOP: 1157 03416000 * DO WHILE ENDFLAG=OFF; /* @Z40LB64*/ 03417000 * 1157 03418000 MSVILOOP B @DE01157 1157 03419000 @DL01157 DS 0H 1158 03420000 * /***************************************************************/ 03421000 * /* */ 03422000 * /* OBTAIN THE NEXT MSVI VOLUME RECORD @Z40LB64*/ 03423000 * /* */ 03424000 * /***************************************************************/ 03425000 * 1158 03426000 * CALL GETREC; /* @Z40LB64*/ 03427000 BAL @14,GETREC 1158 03428000 * IF RECCODE=0 THEN 1159 03429000 CLI RECCODE,0 1159 03430000 BNE @RF01159 1159 03431000 * DO; /* @Z40LB64*/ 03432000 * 1160 03433000 * /***********************************************************/ 03434000 * /* */ 03435000 * /* MSVI RECORD SUCCESSFULLY OBTAINED. IF THE @Z40LB64*/ 03436000 * /* RECORD IS A BASE VOLUME RECORD FOR A VOLUME @Z40LB64*/ 03437000 * /* WHOSE CARTRIDGES HAVE BEEN REASSIGNED OR @Z40LB64*/ 03438000 * /* AT LEAST ONE CARTRIDGE HAS BEEN EJECTED FROM @Z40LB64*/ 03439000 * /* THE LIBRARY, NO CHECKING IS PERFORMED. @Z40LB64*/ 03440000 * /* OTHERWISE THE 'VOLREC' PROCEDURE IS INVOKED @Z40LB64*/ 03441000 * /* TO COMPARE INDIVIDUAL FIELDS AGAINST THE @Z40LB64*/ 03442000 * /* APPROPRIATE MSC TABLE. @Z40LB64*/ 03443000 * /* */ 03444000 * /***********************************************************/ 03445000 * 1161 03446000 * IF(BCDLIB1^='FF'X&BCDLIB2^='FF'X)&(BCDBASE=OFF|BASREASS=OFF) 03447000 * THEN 1161 03448000 CLI BCDLIB1(BCDVPTR),255 1161 03449000 BE @RF01161 1161 03450000 CLI BCDLIB2(BCDVPTR),255 1161 03451000 BE @RF01161 1161 03452000 TM BCDBASE(BCDVPTR),B'00100000' 1161 03453000 BZ @RT01161 1161 03454000 TM BASREASS(BASEVPTR),B'00100000' 1161 03455000 BNZ @RF01161 1161 03456000 @RT01161 DS 0H 1162 03457000 * DO; /* @Z40LB64*/ 03458000 * CALL VOLREC; /* @Z40LB64*/ 03459000 BAL @14,VOLREC 1163 03460000 * IF LASTCOND^=LASTCC00 THEN 1164 03461000 L @15,@PC00001+8 1164 03462000 LH @15,LASTCOND(,@15) 1164 03463000 LTR @15,@15 1164 03464000 BNZ @RT01164 1164 03465000 * RETURN; /* @Z40LB64*/ 03466000 * 1165 03467000 * /*******************************************************/ 03468000 * /* */ 03469000 * /* IF THE MSVI RECORD IS A BASE VOLUME @Z40LB64*/ 03470000 * /* RECORD FOR A MOUNTED VOLUME, INVOKE @Z40LB64*/ 03471000 * /* THE 'CPUREC' PROCEDURE TO COMPARE IT @Z40LB64*/ 03472000 * /* AGAINST THE MSC MOUNTED VOLUME TABLE. @Z40LB64*/ 03473000 * /* */ 03474000 * /*******************************************************/ 03475000 * 1166 03476000 * IF BCDBASE=ON&BASCPUID^=0 THEN 1166 03477000 TM BCDBASE(BCDVPTR),B'00100000' 1166 03478000 BNO @RF01166 1166 03479000 LH @15,BASCPUID(,BASEVPTR) 1166 03480000 N @15,@CF02684 1166 03481000 LTR @15,@15 1166 03482000 BZ @RF01166 1166 03483000 * DO; /* @Z40LB64*/ 03484000 * CALL CPUREC; /* @Z40LB64*/ 03485000 BAL @14,CPUREC 1168 03486000 * IF LASTCOND^=LASTCC00 THEN 1169 03487000 L @15,@PC00001+8 1169 03488000 LH @15,LASTCOND(,@15) 1169 03489000 LTR @15,@15 1169 03490000 BNZ @RT01169 1169 03491000 * RETURN; /* @Z40LB64*/ 03492000 * END; /* @Z40LB64*/ 03493000 * END; /* @Z40LB64*/ 03494000 * 1172 03495000 @RF01166 DS 0H 1173 03496000 * /***********************************************************/ 03497000 * /* */ 03498000 * /* IF MSVI RECORD IS A BASE VOLUME @Z40LB64*/ 03499000 * /* RECORD, PREPARE TO OBTAIN EACH @Z40LB64*/ 03500000 * /* CORRESPONDING COPY VOLUME RECORD @Z40LB64*/ 03501000 * /* */ 03502000 * /***********************************************************/ 03503000 * 1173 03504000 * IF MSVIBASE=ON THEN 1173 03505000 @RF01161 TM MSVIBASE,B'10000000' 1173 03506000 BNO @RF01173 1173 03507000 * DO; /* @Z40LB64*/ 03508000 * MSVIBASE=OFF; /* @Z40LB64*/ 03509000 * MSVICOPY=ON; /* @Z40LB64*/ 03510000 OI MSVICOPY,B'01000000' 1176 03511000 NI MSVIBASE,B'01111111' 1176 03512000 * END; /* @Z40LB64*/ 03513000 * END; /* @Z40LB64*/ 03514000 @RF01173 DS 0H 1179 03515000 * IF RECCODE=RECNFND THEN 1179 03516000 @RF01159 CLI RECCODE,4 1179 03517000 BNE @RF01179 1179 03518000 * DO; /* @Z40LB64*/ 03519000 * 1180 03520000 * /***********************************************************/ 03521000 * /* */ 03522000 * /* REQUESTED MSVI RECORD TYPE WAS NOT FOUND. @Z40LB64*/ 03523000 * /* IF REQUESTED TYPE WAS A BASE VOLUME RECORD @Z40LB64*/ 03524000 * /* THEN ALL MSVI RECORDS HAVE BEEN CHECKED AND @Z40LB64*/ 03525000 * /* 'CHKMSVI' PROCESSING IS COMPLETE. @Z40LB64*/ 03526000 * /* IF REQUESTED TYPE WAS A COPY VOLUME RECORD @Z40LB64*/ 03527000 * /* THEN ALL CORRESPONDING DUPLICATE VOLUME @Z40LB64*/ 03528000 * /* RECORDS MUST NOW BE CHECKED. @Z40LB64*/ 03529000 * /* IF REQUESTED TYPE WAS A DUPLICATE VOLUME @Z40LB64*/ 03530000 * /* RECORD THEN THE NEXT BASE VOLUME RECORD @Z40LB64*/ 03531000 * /* MUST BE CHECKED. @Z40LB64*/ 03532000 * /* */ 03533000 * /***********************************************************/ 03534000 * 1181 03535000 * IF MSVIBASE=ON THEN 1181 03536000 TM MSVIBASE,B'10000000' 1181 03537000 BNO @RF01181 1181 03538000 * ENDFLAG=ON; /* @Z40LB64*/ 03539000 OI ENDFLAG,B'10000000' 1182 03540000 * IF MSVIDUP=ON THEN 1183 03541000 @RF01181 TM MSVIDUP,B'00100000' 1183 03542000 BNO @RF01183 1183 03543000 * DO; /* @Z40LB64*/ 03544000 * MSVIDUP=OFF; /* @Z40LB64*/ 03545000 * MSVIBASE=ON; /* @Z40LB64*/ 03546000 OI MSVIBASE,B'10000000' 1186 03547000 NI MSVIDUP,B'11011111' 1186 03548000 * END; /* @Z40LB64*/ 03549000 * IF MSVICOPY=ON THEN 1188 03550000 @RF01183 TM MSVICOPY,B'01000000' 1188 03551000 BNO @RF01188 1188 03552000 * DO; /* @Z40LB64*/ 03553000 * MSVICOPY=OFF; /* @Z40LB64*/ 03554000 * MSVIDUP=ON; /* @Z40LB64*/ 03555000 OI MSVIDUP,B'00100000' 1191 03556000 NI MSVICOPY,B'10111111' 1191 03557000 * END; /* @Z40LB64*/ 03558000 * END; /* @Z40LB64*/ 03559000 @RF01188 DS 0H 1194 03560000 * IF RECCODE=RECERROR THEN 1194 03561000 @RF01179 CLI RECCODE,8 1194 03562000 BNE @RF01194 1194 03563000 * DO; /* @Z40LB64*/ 03564000 * 1195 03565000 * /***********************************************************/ 03566000 * /* */ 03567000 * /* REQUESTED MSVI RECORD WAS NOT OBTAINED DUE @Z40LB64*/ 03568000 * /* TO AN UNEXPECTED ERROR CONDITION. CHECKMSS @Z40LB64*/ 03569000 * /* PROCESSING IS TERMINATED. @Z40LB64*/ 03570000 * /* */ 03571000 * /***********************************************************/ 03572000 * 1196 03573000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 03574000 L @15,@PC00001+8 1196 03575000 MVC LASTCOND(2,@15),@CH00567 1196 03576000 * RETURN; /* @Z40LB64*/ 03577000 B @EL00007 1197 03578000 * END; /* @Z40LB64*/ 03579000 * END MSVILOOP; /* @Z40LB64*/ 03580000 * 1199 03581000 @RF01194 DS 0H 1199 03582000 @DE01157 TM ENDFLAG,B'10000000' 1199 03583000 BZ @DL01157 1199 03584000 * /*****************************************************************/ 03585000 * /* */ 03586000 * /* IF NO SEQUENTIAL SCANNING OF THE MSC VOLUME @Z40LB64*/ 03587000 * /* INVENTORY, TRANSIENT VOLUME LIST, AND MOUNTED @Z40LB64*/ 03588000 * /* VOLUME TABLE WILL LATER BE PERFORMED (IDCCH02 @Z40LB64*/ 03589000 * /* ROUTINE), VERIFY THAT THE MSVI RECORDS HAVE @Z40LB64*/ 03590000 * /* ACCOUNTED FOR ALL VOLUMES IN THE MSC VOLUME @Z40LB64*/ 03591000 * /* INVENTORY, TRANSIENT VOLUME LIST, AND MOUNTED @Z40LB64*/ 03592000 * /* VOLUME TABLE. @Z40LB64*/ 03593000 * /* */ 03594000 * /*****************************************************************/ 03595000 * 1200 03596000 * IF MSCCHK=OFF THEN 1200 03597000 TM MSCCHK,B'10000000' 1200 03598000 BNZ @RF01200 1200 03599000 *MSVISCAN: 1201 03600000 * DO; /* @Z40LB64*/ 03601000 * 1201 03602000 MSVISCAN DS 0H 1202 03603000 * /*************************************************************/ 03604000 * /* */ 03605000 * /* VERIFY THAT THE MSVI RECORDS HAVE ACCOUNTED @Z40LB64*/ 03606000 * /* FOR ALL VOLUMES IN THE MSC VOLUME INVENTORY. @Z40LB64*/ 03607000 * /* */ 03608000 * /*************************************************************/ 03609000 * 1202 03610000 * TBLADDR=0; /* @Z40LB64*/ 03611000 L @01,EARGPTR 1202 03612000 SLR @00,@00 1202 03613000 ST @00,TBLADDR(,@01) 1202 03614000 * ENDFLAG=OFF; /* @Z40LB64*/ 03615000 NI ENDFLAG,B'01111111' 1203 03616000 *VILOOP: 1204 03617000 * DO WHILE ENDFLAG=OFF; /* @Z40LB64*/ 03618000 VILOOP B @DE01204 1204 03619000 @DL01204 DS 0H 1205 03620000 * GETNEXT=ON; /* @Z40LB64*/ 03621000 L @15,EARGPTR 1205 03622000 OI GETNEXT(@15),B'10000000' 1205 03623000 * TABLEID=VITBLID; /* @Z40LB64*/ 03624000 MVC TABLEID(1,@15),VITBLID 1206 03625000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 03626000 * 1207 03627000 L @15,@PC00001 1207 03628000 ST @15,@AL00001 1207 03629000 LA @15,CDALIST 1207 03630000 ST @15,@AL00001+4 1207 03631000 L @15,@CV02184 1207 03632000 LA @01,@AL00001 1207 03633000 BALR @14,@15 1207 03634000 * /***********************************************************/ 03635000 * /* */ 03636000 * /* IF THE VOLUME INVENTORY ENTRY WAS @Z40LB64*/ 03637000 * /* SUCCESSFULLY OBTAINED, VERIFY THAT THE @Z40LB64*/ 03638000 * /* CORRESPONDING BIT IN THE VOLUME INVENTORY @Z40LB64*/ 03639000 * /* CHECK-OFF TABLE HAS BEEN CHECKED-OFF. @Z40LB64*/ 03640000 * /* */ 03641000 * /***********************************************************/ 03642000 * 1208 03643000 * IF GETRC=0 THEN 1208 03644000 SLR @15,@15 1208 03645000 L @14,EARGPTR 1208 03646000 CH @15,GETRC(,@14) 1208 03647000 BNE @RF01208 1208 03648000 * DO; /* @Z40LB64*/ 03649000 * VIENTPTR=TBLADDR; /* @Z40LB64*/ 03650000 L VIENTPTR,TBLADDR(,@14) 1210 03651000 * IF(VICHKFF(BYTE#)&BITMASK(BIT#))=0 THEN 1211 03652000 LH @03,BYTE#(,@14) 1211 03653000 LH @01,BIT#(,@14) 1211 03654000 L @07,VICOPTR 1211 03655000 AL @07,@CF02349 1211 03656000 SLR @06,@06 1211 03657000 IC @06,VICHKFF(@03,@07) 1211 03658000 SLR @03,@03 1211 03659000 IC @03,BITMASK-1(@01) 1211 03660000 NR @06,@03 1211 03661000 CR @06,@15 1211 03662000 BNE @RF01211 1211 03663000 * DO; /* @Z40LB64*/ 03664000 * 1212 03665000 * /***************************************************/ 03666000 * /* */ 03667000 * /* MSC VOLUME INVENTORY ENTRY WAS @Z40LB64*/ 03668000 * /* NOT CHECKED-OFF. PRINT AN @Z40LB64*/ 03669000 * /* ERROR MESSAGE. @Z40LB64*/ 03670000 * /* */ 03671000 * /***************************************************/ 03672000 * 1213 03673000 * MTCHMSG=ON; /* @Z40LB64*/ 03674000 L @03,MARGPTR 1213 03675000 OI MTCHMSG(@03),B'00010000' 1213 03676000 * MSVITBL(1)=ON; /* @Z40LB64*/ 03677000 OI MSVITBL(@03),B'00001000' 1214 03678000 * VITBL(2)=ON; /* @Z40LB64*/ 03679000 OI VITBL+4(@03),B'01000000' 1215 03680000 * VSNFLD=ON; /* @Z40LB64*/ 03681000 OI VSNFLD(@03),B'00000001' 1216 03682000 * FLDCHAR(1)=VIVOLID;/* @Z40LB64*/ 03683000 MVI FLDCHAR+6(@03),C' ' 1217 03684000 MVC FLDCHAR+7(5,@03),FLDCHAR+6(@03) 1217 03685000 MVC FLDCHAR(6,@03),VIVOLID(VIENTPTR) 1217 03686000 * VSNINDEX(2)=VIVOLID;/* @Z40LB64*/ 03687000 MVC VSNINDEX+24(6,@03),VIVOLID(VIENTPTR) 1218 03688000 * CHRINDEX(2)=PREVCHR;/* @Z40LB64*/ 03689000 MVC CHRINDEX+24(5,@03),PREVCHR(@14) 1219 03690000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 03691000 L @15,@PC00001 1220 03692000 ST @15,@AL00001 1220 03693000 LA @15,CDALIST 1220 03694000 ST @15,@AL00001+4 1220 03695000 L @15,@CV02185 1220 03696000 LA @01,@AL00001 1220 03697000 BALR @14,@15 1220 03698000 * END; /* @Z40LB64*/ 03699000 * END; /* @Z40LB64*/ 03700000 * 1222 03701000 @RF01211 DS 0H 1223 03702000 * /***********************************************************/ 03703000 * /* */ 03704000 * /* IF THE END OF THE VOLUME INVENTORY TABLE @Z40LB64*/ 03705000 * /* WAS REACHED, SET FLAG ENDING VOLUME @Z40LB64*/ 03706000 * /* INVENTORY SCAN. @Z40LB64*/ 03707000 * /* */ 03708000 * /***********************************************************/ 03709000 * 1223 03710000 * IF GETRC=ENDOFTBL THEN 1223 03711000 @RF01208 L @01,EARGPTR 1223 03712000 CLC GETRC(2,@01),@CH00044 1223 03713000 BNE @RF01223 1223 03714000 * ENDFLAG=ON; /* @Z40LB64*/ 03715000 * 1224 03716000 OI ENDFLAG,B'10000000' 1224 03717000 * /***********************************************************/ 03718000 * /* */ 03719000 * /* IF THE VOLUME INVENTORY ENTRY WAS NOT @Z40LB64*/ 03720000 * /* SUCCESSFULLY OBTAINED, TERMINATE CHECKMSS @Z40LB64*/ 03721000 * /* PROCESSING. @Z40LB64*/ 03722000 * /* */ 03723000 * /***********************************************************/ 03724000 * 1225 03725000 * IF GETRC=TABLERR THEN 1225 03726000 @RF01223 LA @15,12 1225 03727000 L @01,EARGPTR 1225 03728000 CH @15,GETRC(,@01) 1225 03729000 BNE @RF01225 1225 03730000 * DO; /* @Z40LB64*/ 03731000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 03732000 L @14,@PC00001+8 1227 03733000 STH @15,LASTCOND(,@14) 1227 03734000 * RETURN; /* @Z40LB64*/ 03735000 B @EL00007 1228 03736000 * END; /* @Z40LB64*/ 03737000 * END VILOOP; /* @Z40LB64*/ 03738000 * 1230 03739000 @RF01225 DS 0H 1230 03740000 @DE01204 TM ENDFLAG,B'10000000' 1230 03741000 BZ @DL01204 1230 03742000 * /*************************************************************/ 03743000 * /* */ 03744000 * /* VERIFY THAT THE MSVI RECORDS HAVE ACCOUNTED @Z40LB64*/ 03745000 * /* FOR ALL VOLUMES IN THE MSC TRANSIENT VOLUME @Z40LB64*/ 03746000 * /* LIST. @Z40LB64*/ 03747000 * /* */ 03748000 * /*************************************************************/ 03749000 * 1231 03750000 * TBLADDR=0; /* @Z40LB64*/ 03751000 L @01,EARGPTR 1231 03752000 SLR @00,@00 1231 03753000 ST @00,TBLADDR(,@01) 1231 03754000 * ENDFLAG=OFF; /* @Z40LB64*/ 03755000 NI ENDFLAG,B'01111111' 1232 03756000 *TVLLOOP: 1233 03757000 * DO WHILE ENDFLAG=OFF; /* @Z40LB64*/ 03758000 TVLLOOP B @DE01233 1233 03759000 @DL01233 DS 0H 1234 03760000 * GETNEXT=ON; /* @Z40LB64*/ 03761000 L @15,EARGPTR 1234 03762000 OI GETNEXT(@15),B'10000000' 1234 03763000 * TABLEID=TVLTBLID; /* @Z40LB64*/ 03764000 MVC TABLEID(1,@15),TVLTBLID 1235 03765000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 03766000 * 1236 03767000 L @15,@PC00001 1236 03768000 ST @15,@AL00001 1236 03769000 LA @15,CDALIST 1236 03770000 ST @15,@AL00001+4 1236 03771000 L @15,@CV02184 1236 03772000 LA @01,@AL00001 1236 03773000 BALR @14,@15 1236 03774000 * /***********************************************************/ 03775000 * /* */ 03776000 * /* IF THE TRANSIENT VOLUME LIST ENTRY WAS @Z40LB64*/ 03777000 * /* SUCCESSFULLY OBTAINED, VERIFY THAT THE @Z40LB64*/ 03778000 * /* CORRESPONDING BIT IN THE TRANSIENT VOLUME @Z40LB64*/ 03779000 * /* LIST CHECK-OFF TABLE HAS BEEN CHECKED-OFF. @Z40LB64*/ 03780000 * /* */ 03781000 * /***********************************************************/ 03782000 * 1237 03783000 * IF GETRC=0 THEN 1237 03784000 SLR @15,@15 1237 03785000 L @14,EARGPTR 1237 03786000 CH @15,GETRC(,@14) 1237 03787000 BNE @RF01237 1237 03788000 * DO; /* @Z40LB64*/ 03789000 * TVENTPTR=TBLADDR; /* @Z40LB64*/ 03790000 L TVENTPTR,TBLADDR(,@14) 1239 03791000 * IF(TVLCHKFF(BYTE#)&BITMASK(BIT#))=0 THEN 1240 03792000 LH @03,BYTE#(,@14) 1240 03793000 LH @01,BIT#(,@14) 1240 03794000 L @07,TVLCOPTR 1240 03795000 AL @07,@CF02349 1240 03796000 SLR @06,@06 1240 03797000 IC @06,TVLCHKFF(@03,@07) 1240 03798000 SLR @03,@03 1240 03799000 IC @03,BITMASK-1(@01) 1240 03800000 NR @06,@03 1240 03801000 CR @06,@15 1240 03802000 BNE @RF01240 1240 03803000 * DO; /* @Z40LB64*/ 03804000 * 1241 03805000 * /***************************************************/ 03806000 * /* */ 03807000 * /* MSC TRANSIENT VOLUME LIST ENTRY @Z40LB64*/ 03808000 * /* WAS NOT CHECKED-OFF. PRINT AN @Z40LB64*/ 03809000 * /* ERROR MESSAGE. @Z40LB64*/ 03810000 * /* */ 03811000 * /***************************************************/ 03812000 * 1242 03813000 * MTCHMSG=ON; /* @Z40LB64*/ 03814000 L @03,MARGPTR 1242 03815000 OI MTCHMSG(@03),B'00010000' 1242 03816000 * MSVITBL(1)=ON; /* @Z40LB64*/ 03817000 OI MSVITBL(@03),B'00001000' 1243 03818000 * TVLTBL(2)=ON; /* @Z40LB64*/ 03819000 OI TVLTBL+4(@03),B'00100000' 1244 03820000 * CSNFLD=ON; /* @Z40LB64*/ 03821000 OI CSNFLD(@03),B'10000000' 1245 03822000 * FLDCHAR(1)=TVCSN; /* @Z40LB64*/ 03823000 MVC FLDCHAR(12,@03),TVCSN(TVENTPTR) 1246 03824000 * CSNINDEX(2)=TVCSN;/* @Z40LB64*/ 03825000 MVC CSNINDEX+24(12,@03),TVCSN(TVENTPTR) 1247 03826000 * VSNINDEX(2)=TVVOLID;/* @Z40LB64*/ 03827000 MVC VSNINDEX+24(6,@03),TVVOLID(TVENTPTR) 1248 03828000 * CHRINDEX(2)=PREVCHR;/* @Z40LB64*/ 03829000 MVC CHRINDEX+24(5,@03),PREVCHR(@14) 1249 03830000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 03831000 L @15,@PC00001 1250 03832000 ST @15,@AL00001 1250 03833000 LA @15,CDALIST 1250 03834000 ST @15,@AL00001+4 1250 03835000 L @15,@CV02185 1250 03836000 LA @01,@AL00001 1250 03837000 BALR @14,@15 1250 03838000 * END; /* @Z40LB64*/ 03839000 * END; /* @Z40LB64*/ 03840000 * 1252 03841000 @RF01240 DS 0H 1253 03842000 * /***********************************************************/ 03843000 * /* */ 03844000 * /* IF THE END OF THE TRANSIENT VOLUME LIST @Z40LB64*/ 03845000 * /* WAS REACHED, SET FLAG ENDING TVL SCAN. @Z40LB64*/ 03846000 * /* */ 03847000 * /***********************************************************/ 03848000 * 1253 03849000 * IF GETRC=ENDOFTBL THEN 1253 03850000 @RF01237 L @01,EARGPTR 1253 03851000 CLC GETRC(2,@01),@CH00044 1253 03852000 BNE @RF01253 1253 03853000 * ENDFLAG=ON; /* @Z40LB64*/ 03854000 * 1254 03855000 OI ENDFLAG,B'10000000' 1254 03856000 * /***********************************************************/ 03857000 * /* */ 03858000 * /* IF THE TRANSIENT VOLUME LIST ENTRY WAS NOT @Z40LB64*/ 03859000 * /* OBTAINED, TERMINATE CHECKMSS PROCESSING. @Z40LB64*/ 03860000 * /* */ 03861000 * /***********************************************************/ 03862000 * 1255 03863000 * IF GETRC=TABLERR THEN 1255 03864000 @RF01253 LA @15,12 1255 03865000 L @01,EARGPTR 1255 03866000 CH @15,GETRC(,@01) 1255 03867000 BNE @RF01255 1255 03868000 * DO; /* @Z40LB64*/ 03869000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 03870000 L @14,@PC00001+8 1257 03871000 STH @15,LASTCOND(,@14) 1257 03872000 * RETURN; /* @Z40LB64*/ 03873000 B @EL00007 1258 03874000 * END; /* @Z40LB64*/ 03875000 * END TVLLOOP; /* @Z40LB64*/ 03876000 * 1260 03877000 @RF01255 DS 0H 1260 03878000 @DE01233 TM ENDFLAG,B'10000000' 1260 03879000 BZ @DL01233 1260 03880000 * /*************************************************************/ 03881000 * /* */ 03882000 * /* VERIFY THAT THE MSVI RECORDS HAVE ACCOUNTED @Z40LB64*/ 03883000 * /* FOR ALL VOLUMES IN THE MSC MOUNTED VOLUME @Z40LB64*/ 03884000 * /* TABLE. @Z40LB64*/ 03885000 * /* */ 03886000 * /*************************************************************/ 03887000 * 1261 03888000 * TBLADDR=0; /* @Z40LB64*/ 03889000 L @01,EARGPTR 1261 03890000 SLR @00,@00 1261 03891000 ST @00,TBLADDR(,@01) 1261 03892000 * ENDFLAG=OFF; /* @Z40LB64*/ 03893000 NI ENDFLAG,B'01111111' 1262 03894000 *MVTLOOP: 1263 03895000 * DO WHILE ENDFLAG=OFF; /* @Z40LB64*/ 03896000 MVTLOOP B @DE01263 1263 03897000 @DL01263 DS 0H 1264 03898000 * GETNEXT=ON; /* @Z40LB64*/ 03899000 L @15,EARGPTR 1264 03900000 OI GETNEXT(@15),B'10000000' 1264 03901000 * TABLEID=MVTBLID; /* @Z40LB64*/ 03902000 MVC TABLEID(1,@15),MVTBLID 1265 03903000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 03904000 * 1266 03905000 L @15,@PC00001 1266 03906000 ST @15,@AL00001 1266 03907000 LA @15,CDALIST 1266 03908000 ST @15,@AL00001+4 1266 03909000 L @15,@CV02184 1266 03910000 LA @01,@AL00001 1266 03911000 BALR @14,@15 1266 03912000 * /***********************************************************/ 03913000 * /* */ 03914000 * /* IF THE MOUNTED VOLUME TABLE ENTRY WAS @Z40LB64*/ 03915000 * /* SUCCESSFULLY OBTAINED, AND SPECIFIES THAT @Z40LB64*/ 03916000 * /* THE VOLUME IS MOUNTED, VERIFY THAT THE @Z40LB64*/ 03917000 * /* CORRESPONDING BIT IN THE MOUNTED VOLUME @Z40LB64*/ 03918000 * /* TABLE CHECK-OFF TABLE HAS BEEN CHECKED-OFF. @Z40LB64*/ 03919000 * /* */ 03920000 * /***********************************************************/ 03921000 * 1267 03922000 * IF GETRC=0 THEN 1267 03923000 SLR @15,@15 1267 03924000 L @14,EARGPTR 1267 03925000 CH @15,GETRC(,@14) 1267 03926000 BNE @RF01267 1267 03927000 * DO; /* @Z40LB64*/ 03928000 * MVENTPTR=TBLADDR; /* @Z40LB64*/ 03929000 L MVENTPTR,TBLADDR(,@14) 1269 03930000 * IF(MVMNTVOL=ON)&((MVTCHKFF(BYTE#)&BITMASK(BIT#))=0) THEN 03931000 TM MVMNTVOL(MVENTPTR),B'10000000' 1270 03932000 BNO @RF01270 1270 03933000 LH @03,BYTE#(,@14) 1270 03934000 LH @01,BIT#(,@14) 1270 03935000 L @07,MVTCOPTR 1270 03936000 AL @07,@CF02349 1270 03937000 SLR @06,@06 1270 03938000 IC @06,MVTCHKFF(@03,@07) 1270 03939000 SLR @03,@03 1270 03940000 IC @03,BITMASK-1(@01) 1270 03941000 NR @06,@03 1270 03942000 CR @06,@15 1270 03943000 BNE @RF01270 1270 03944000 * DO; /* @Z40LB64*/ 03945000 * 1271 03946000 * /***************************************************/ 03947000 * /* */ 03948000 * /* MSC MOUNTED VOLUME TABLE ENTRY @Z40LB64*/ 03949000 * /* WAS NOT CHECKED-OFF. PRINT AN @Z40LB64*/ 03950000 * /* ERROR MESSAGE. @Z40LB64*/ 03951000 * /* */ 03952000 * /***************************************************/ 03953000 * 1272 03954000 * MTCHMSG=ON; /* @Z40LB64*/ 03955000 L @03,MARGPTR 1272 03956000 OI MTCHMSG(@03),B'00010000' 1272 03957000 * MSVITBL(1)=ON; /* @Z40LB64*/ 03958000 OI MSVITBL(@03),B'00001000' 1273 03959000 * MVTTBL(2)=ON; /* @Z40LB64*/ 03960000 OI MVTTBL+4(@03),B'10000000' 1274 03961000 * VSNFLD=ON; /* @Z40LB64*/ 03962000 OI VSNFLD(@03),B'00000001' 1275 03963000 * FLDCHAR(1)=MVVOLID;/* @Z40LB64*/ 03964000 MVI FLDCHAR+6(@03),C' ' 1276 03965000 MVC FLDCHAR+7(5,@03),FLDCHAR+6(@03) 1276 03966000 MVC FLDCHAR(6,@03),MVVOLID(MVENTPTR) 1276 03967000 * VSNINDEX(2)=MVVOLID;/* @Z40LB64*/ 03968000 MVC VSNINDEX+24(6,@03),MVVOLID(MVENTPTR) 1277 03969000 * CHRINDEX(2)=PREVCHR;/* @Z40LB64*/ 03970000 MVC CHRINDEX+24(5,@03),PREVCHR(@14) 1278 03971000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 03972000 L @15,@PC00001 1279 03973000 ST @15,@AL00001 1279 03974000 LA @15,CDALIST 1279 03975000 ST @15,@AL00001+4 1279 03976000 L @15,@CV02185 1279 03977000 LA @01,@AL00001 1279 03978000 BALR @14,@15 1279 03979000 * END; /* @Z40LB64*/ 03980000 * END; /* @Z40LB64*/ 03981000 * 1281 03982000 @RF01270 DS 0H 1282 03983000 * /***********************************************************/ 03984000 * /* */ 03985000 * /* IF THE END OF THE MOUNTED VOLUME TABLE @Z40LB64*/ 03986000 * /* WAS REACHED, SET FLAG ENDING MVT SCAN. @Z40LB64*/ 03987000 * /* */ 03988000 * /***********************************************************/ 03989000 * 1282 03990000 * IF GETRC=ENDOFTBL THEN 1282 03991000 @RF01267 L @01,EARGPTR 1282 03992000 CLC GETRC(2,@01),@CH00044 1282 03993000 BNE @RF01282 1282 03994000 * ENDFLAG=ON; /* @Z40LB64*/ 03995000 * 1283 03996000 OI ENDFLAG,B'10000000' 1283 03997000 * /***********************************************************/ 03998000 * /* */ 03999000 * /* IF THE MOUNTED VOLUME TABLE ENTRY WAS NOT @Z40LB64*/ 04000000 * /* OBTAINED, TERMINATE CHECKMSS PROCESSING. @Z40LB64*/ 04001000 * /* */ 04002000 * /***********************************************************/ 04003000 * 1284 04004000 * IF GETRC=TABLERR THEN 1284 04005000 @RF01282 LA @15,12 1284 04006000 L @01,EARGPTR 1284 04007000 CH @15,GETRC(,@01) 1284 04008000 BNE @RF01284 1284 04009000 * DO; /* @Z40LB64*/ 04010000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 04011000 L @14,@PC00001+8 1286 04012000 STH @15,LASTCOND(,@14) 1286 04013000 * RETURN; /* @Z40LB64*/ 04014000 B @EL00007 1287 04015000 * END; /* @Z40LB64*/ 04016000 * END MVTLOOP; /* @Z40LB64*/ 04017000 @RF01284 DS 0H 1289 04018000 @DE01263 TM ENDFLAG,B'10000000' 1289 04019000 BZ @DL01263 1289 04020000 * END MSVISCAN; /* @Z40LB64*/ 04021000 * IF GDTDBG=NULLPTR THEN 1291 04022000 @RF01200 L @15,@PC00001 1291 04023000 L @15,GDTDBG(,@15) 1291 04024000 LTR @15,@15 1291 04025000 BZ @RT01291 1291 04026000 * ; 1292 04027000 * ELSE 1293 04028000 * CALL IDCDB010(GDTTBL,'CH1Y'); /* @Z40LB64*/ 04029000 L @15,@PC00001 1293 04030000 ST @15,@AL00001 1293 04031000 LA @14,@CC02513 1293 04032000 ST @14,@AL00001+4 1293 04033000 MVI @AL00001+4,X'80' 1293 04034000 L @15,GDTDBG(,@15) 1293 04035000 LA @01,@AL00001 1293 04036000 BALR @14,@15 1293 04037000 * END CHKMSVI; /* @Z40LB64*/ 04038000 B @EL00007 1294 04039000 * 1295 04040000 */* ******************************************************* @Z40LB64*/ 04041000 */* @Z40LB64*/ 04042000 */* PROCEDURE NAME - GETREC @Z40LB64*/ 04043000 */* @Z40LB64*/ 04044000 */* FUNCTION - OBTAINS A REUESTED MSVI VOLUME RECORD @Z40LB64*/ 04045000 */* (BASE, COPY, OR DUPLICATE), OR THE MSVI @Z40LB64*/ 04046000 */* CPU RECORD. @Z40LB64*/ 04047000 */* @Z40LB64*/ 04048000 */* VOLUME RECORDS OF THE REQUESTED TYPE ARE @Z40LB64*/ 04049000 */* OBTAINED (ONE PER INVOCATION) IN 'READ @Z40LB64*/ 04050000 */* NEXT' FASHION. @Z40LB64*/ 04051000 */* @Z40LB64*/ 04052000 */* INPUT - THE TYPE OF RECORD REQUESTED - @Z40LB64*/ 04053000 */* 1) NEXT BASE VOLUME RECORD @Z40LB64*/ 04054000 */* 2) NEXT COPY VOLUME RECORD @Z40LB64*/ 04055000 */* 3) NEXT DUPLICATE VOLUME RECORD @Z40LB64*/ 04056000 */* 4) MSVI CPU RECORD @Z40LB64*/ 04057000 */* @Z40LB64*/ 04058000 */* OUTPUT - THE REQUESTED MSVI RECORD IS PLACED IN A @Z40LB64*/ 04059000 */* BUFFER CALLED 'MSVIREC'. @Z40LB64*/ 04060000 */* @Z40LB64*/ 04061000 */* THE 'GETREC' RETURN CODE SPECIFIES - @Z40LB64*/ 04062000 */* 0 - RECORD SUCCESSFULLY OBTAINED @Z40LB64*/ 04063000 */* 4 - RECORD NOT FOUND @Z40LB64*/ 04064000 */* 8 - ERROR OBTAINING RECORD @Z40LB64*/ 04065000 */* @Z40LB64*/ 04066000 */* *****************************************************************/ 04067000 * 1295 04068000 *GETREC: 1295 04069000 * PROCEDURE; /* @Z40LB64*/ 04070000 GETREC STM @14,@03,@SA00008 1295 04071000 STM @08,@12,@SA00008+24 1295 04072000 * OLDERID2=NEWERID2; 1296 04073000 L @15,@PC00001 1296 04074000 L @15,GDTTR2(,@15) 1296 04075000 MVC @TS00001(95),NEWERID2(@15) 1296 04076000 MVC OLDERID2(95,@15),@TS00001 1296 04077000 * NEWID2='CH1H'; /* @Z40LB64*/ 04078000 * 1297 04079000 MVC NEWID2(4,@15),@CC02517 1297 04080000 * /*****************************************************************/ 04081000 * /* */ 04082000 * /* INITIALIZE 'GETREC' RETURN CODE AND 'RVVI' READ @Z40LB64*/ 04083000 * /* REQUEST LIST VARIABLE FIELDS. @Z40LB64*/ 04084000 * /* */ 04085000 * /*****************************************************************/ 04086000 * 1298 04087000 * RECCODE=0; /* @Z40LB64*/ 04088000 MVI RECCODE,X'00' 1298 04089000 * RVVRDRCD=''B; /* @Z40LB64*/ 04090000 L @15,RVVIPTR 1299 04091000 MVI RVVRDRCD(@15),X'00' 1299 04092000 * RVVRTEST=''B; /* @Z40LB64*/ 04093000 MVI RVVRTEST(@15),X'00' 1300 04094000 * RVVSPEC=''B; /* @Z40LB64*/ 04095000 MVI RVVSPEC(@15),X'00' 1301 04096000 * IF LASTBASE^=NEWBASE THEN 1302 04097000 CLC LASTBASE(6),@CC02394 1302 04098000 BE @RF01302 1302 04099000 * DO; /* @Z40LB64*/ 04100000 * RVVOLUME=LASTBASE; /* @Z40LB64*/ 04101000 MVC RVVOLUME(6,@15),LASTBASE 1304 04102000 * RVVSVOL=ON; /* @Z40LB64*/ 04103000 OI RVVSVOL(@15),B'00000001' 1305 04104000 * END; /* @Z40LB64*/ 04105000 * 1306 04106000 * /*****************************************************************/ 04107000 * /* */ 04108000 * /* DETERMINE THE TYPE OF MSVI RECORD REQUESTED AND @Z40LB64*/ 04109000 * /* COMPLETE THE 'RVVI' REQUEST LIST @Z40LB64*/ 04110000 * /* */ 04111000 * /*****************************************************************/ 04112000 * 1307 04113000 * IF MSVIBASE=ON THEN 1307 04114000 @RF01302 TM MSVIBASE,B'10000000' 1307 04115000 BNO @RF01307 1307 04116000 * DO; /* @Z40LB64*/ 04117000 * 1308 04118000 * /*************************************************************/ 04119000 * /* */ 04120000 * /* NEXT BASE VOLUME RECORD REQUESTED @Z40LB64*/ 04121000 * /* */ 04122000 * /*************************************************************/ 04123000 * 1309 04124000 * RVVBVRCD=ON; /* @Z40LB64*/ 04125000 L @01,RVVIPTR 1309 04126000 OI RVVBVRCD(@01),B'10000000' 1309 04127000 * END; /* @Z40LB64*/ 04128000 * IF MSVICOPY=ON THEN 1311 04129000 @RF01307 TM MSVICOPY,B'01000000' 1311 04130000 BNO @RF01311 1311 04131000 * DO; /* @Z40LB64*/ 04132000 * 1312 04133000 * /*************************************************************/ 04134000 * /* */ 04135000 * /* NEXT COPY VOLUME RECORD REQUESTED @Z40LB64*/ 04136000 * /* */ 04137000 * /*************************************************************/ 04138000 * 1313 04139000 * RVVCPYRC=ON; /* @Z40LB64*/ 04140000 L @15,RVVIPTR 1313 04141000 OI RVVCPYRC(@15),B'00100000' 1313 04142000 * RVVCPYID=LASTCOPY; /* @Z40LB64*/ 04143000 STC LASTCOPY,RVVCPYID(,@15) 1314 04144000 * RVVSCPY=ON; /* @Z40LB64*/ 04145000 OI RVVSCPY(@15),B'00000100' 1315 04146000 * END; /* @Z40LB64*/ 04147000 * IF MSVIDUP=ON THEN 1317 04148000 @RF01311 TM MSVIDUP,B'00100000' 1317 04149000 BNO @RF01317 1317 04150000 * DO; /* @Z40LB64*/ 04151000 * 1318 04152000 * /*************************************************************/ 04153000 * /* */ 04154000 * /* NEXT DUPLICATE VOLUME RECORD REQUESTED @Z40LB64*/ 04155000 * /* */ 04156000 * /*************************************************************/ 04157000 * 1319 04158000 * RVVDUPRC=ON; /* @Z40LB64*/ 04159000 L @15,RVVIPTR 1319 04160000 OI RVVDUPRC(@15),B'00010000' 1319 04161000 * RVVDUPID=LASTDUP; /* @Z40LB64*/ 04162000 STC LASTDUP,RVVDUPID(,@15) 1320 04163000 * RVVDVOL=ON; /* @Z40LB64*/ 04164000 OI RVVDVOL(@15),B'00000010' 1321 04165000 * RVVSDUP=ON; /* @Z40LB64*/ 04166000 OI RVVSDUP(@15),B'00000010' 1322 04167000 * END; /* @Z40LB64*/ 04168000 * IF MSVICPU=ON THEN 1324 04169000 @RF01317 TM MSVICPU,B'00010000' 1324 04170000 BNO @RF01324 1324 04171000 * DO; /* @Z40LB64*/ 04172000 * 1325 04173000 * /*************************************************************/ 04174000 * /* */ 04175000 * /* MSVI CPU RECORD REQUESTED @Z40LB64*/ 04176000 * /* */ 04177000 * /*************************************************************/ 04178000 * 1326 04179000 * RVVCPURC=ON; /* @Z40LB64*/ 04180000 L @01,RVVIPTR 1326 04181000 OI RVVCPURC(@01),B'00000010' 1326 04182000 * END; /* @Z40LB64*/ 04183000 * 1327 04184000 * /*****************************************************************/ 04185000 * /* */ 04186000 * /* OBTAIN THE REQUESTED MSVI RECORD ('USSC' MACRO - @Z40LB64*/ 04187000 * /* 'VVIC' OPTION). @Z40LB64*/ 04188000 * /* */ 04189000 * /*****************************************************************/ 04190000 * 1328 04191000 * CALL IDCSASS0(GDTTBL,VVIC,RVVIPTR,RSNCODE);/* @Z40LB64*/ 04192000 @RF01324 L @02,@PC00001 1328 04193000 ST @02,@AL00001 1328 04194000 LA @15,VVIC 1328 04195000 ST @15,@AL00001+4 1328 04196000 LA @15,RVVIPTR 1328 04197000 ST @15,@AL00001+8 1328 04198000 LA @15,RSNCODE 1328 04199000 ST @15,@AL00001+12 1328 04200000 MVI @AL00001+12,X'80' 1328 04201000 L @15,GDTSSC(,@02) 1328 04202000 LA @01,@AL00001 1328 04203000 BALR @14,@15 1328 04204000 * RESPECIFY 1329 04205000 * RTNREG RSTD; 1329 04206000 * TESTRC=RTNREG; 1330 04207000 LR TESTRC,RTNREG 1330 04208000 * RESPECIFY 1331 04209000 * RTNREG UNRSTD; /* @Z40LB64*/ 04210000 * IF TESTRC=0 THEN 1332 04211000 SLR @02,@02 1332 04212000 CR TESTRC,@02 1332 04213000 BNE @RF01332 1332 04214000 * DO; /* @Z40LB64*/ 04215000 * 1333 04216000 * /*************************************************************/ 04217000 * /* */ 04218000 * /* MSVI RECORD SUCCESSFULLY OBTAINED. UPDATE THE @Z40LB64*/ 04219000 * /* 'GETREC' INFORMATION TO REMEMBER VOLUME ID, @Z40LB64*/ 04220000 * /* COPY ID, OR DUP ID OF THE RECORD FOR THE NEXT @Z40LB64*/ 04221000 * /* 'GETREC' INVOCATION. SET THE BASE PTR FOR THE @Z40LB64*/ 04222000 * /* PARTICULAR MSVI RECORD TYPE OBTAINED. @Z40LB64*/ 04223000 * /* */ 04224000 * /*************************************************************/ 04225000 * 1334 04226000 * IF MSVIBASE=ON THEN 1334 04227000 TM MSVIBASE,B'10000000' 1334 04228000 BNO @RF01334 1334 04229000 * DO; /* @Z40LB64*/ 04230000 * BASEVPTR=ADDR(MSVIREC); /* @Z40LB64*/ 04231000 L BASEVPTR,MSVIAPTR 1336 04232000 * LASTBASE=BASSERNO; /* @Z40LB64*/ 04233000 MVC LASTBASE(6),BASSERNO(BASEVPTR) 1337 04234000 * LASTCOPY=0; /* @Z40LB64*/ 04235000 LR LASTCOPY,@02 1338 04236000 * LASTDUP=0; /* @Z40LB64*/ 04237000 LR LASTDUP,@02 1339 04238000 * END; /* @Z40LB64*/ 04239000 * IF MSVICOPY=ON THEN 1341 04240000 @RF01334 TM MSVICOPY,B'01000000' 1341 04241000 BNO @RF01341 1341 04242000 * DO; /* @Z40LB64*/ 04243000 * COPYVPTR=ADDR(MSVIREC); /* @Z40LB64*/ 04244000 L @15,MSVIAPTR 1343 04245000 ST @15,COPYVPTR 1343 04246000 * LASTCOPY=COPNO; /* @Z40LB64*/ 04247000 SLR LASTCOPY,LASTCOPY 1344 04248000 IC LASTCOPY,COPNO(,@15) 1344 04249000 * END; /* @Z40LB64*/ 04250000 * IF MSVIDUP=ON THEN 1346 04251000 @RF01341 TM MSVIDUP,B'00100000' 1346 04252000 BNO @RF01346 1346 04253000 * DO; /* @Z40LB64*/ 04254000 * DUPVPTR=ADDR(MSVIREC); /* @Z40LB64*/ 04255000 L DUPVPTR,MSVIAPTR 1348 04256000 * LASTDUP=DUPNO; /* @Z40LB64*/ 04257000 SLR LASTDUP,LASTDUP 1349 04258000 IC LASTDUP,DUPNO(,DUPVPTR) 1349 04259000 * END; /* @Z40LB64*/ 04260000 * IF MSVIBASE=ON|MSVICOPY=ON|MSVIDUP=ON THEN 1351 04261000 @RF01346 TM MSVIBASE,B'11100000' 1351 04262000 BZ @RF01351 1351 04263000 * BCDVPTR=ADDR(MSVIREC); /* @Z40LB64*/ 04264000 L BCDVPTR,MSVIAPTR 1352 04265000 * IF GDTDBG=NULLPTR THEN 1353 04266000 @RF01351 L @15,@PC00001 1353 04267000 L @15,GDTDBG(,@15) 1353 04268000 LTR @15,@15 1353 04269000 BZ @RT01353 1353 04270000 * ; 1354 04271000 * ELSE 1355 04272000 * DO; 1355 04273000 * DMPINDEX=ADDR(DUMPLIST);/* @Z40LB64*/ 04274000 LA DMPINDEX,DUMPLIST 1356 04275000 * IF MSVICPU=ON THEN 1357 04276000 TM MSVICPU,B'00010000' 1357 04277000 BNO @RF01357 1357 04278000 * DO; /* @Z40LB64*/ 04279000 * DMPITMNM='CPUID'; 1359 04280000 MVI DMPITMNM+5(DMPINDEX),C' ' 1359 04281000 MVC DMPITMNM+6(2,DMPINDEX),DMPITMNM+5(DMPINDEX) 1359 04282000 MVC DMPITMNM(5,DMPINDEX),@CC02518 1359 04283000 * DMPITMPT=ADDR(CPUID); 1360 04284000 L @03,CPUIDPTR 1360 04285000 ST @03,DMPITMPT(,DMPINDEX) 1360 04286000 * DMPITMLN=LENGTH(CPUID); 1361 04287000 MVC DMPITMLN(2,DMPINDEX),@CH02654 1361 04288000 * DMPITMTP='H'; 1362 04289000 MVI DMPITMTP(DMPINDEX),C'H' 1362 04290000 * DMPINDEX=DMPINDEX+DMPELEMT; 1363 04291000 * 1363 04292000 AL DMPINDEX,@CF00476 1363 04293000 * /*****************************************************/ 04294000 * /* */ 04295000 * /* @Z40LB64*/ 04296000 * /* */ 04297000 * /*****************************************************/ 04298000 * 1364 04299000 * END; /* @Z40LB64*/ 04300000 * ELSE 1365 04301000 * DO; /* @Z40LB64*/ 04302000 B @RC01357 1365 04303000 @RF01357 DS 0H 1366 04304000 * DMPITMNM='MSVIREC'; 1366 04305000 MVI DMPITMNM+7(DMPINDEX),C' ' 1366 04306000 MVC DMPITMNM(7,DMPINDEX),@CC02519 1366 04307000 * DMPITMPT=ADDR(MSVIREC); 1367 04308000 L @03,MSVIAPTR 1367 04309000 ST @03,DMPITMPT(,DMPINDEX) 1367 04310000 * DMPITMLN=LENGTH(MSVIREC); 1368 04311000 MVC DMPITMLN(2,DMPINDEX),@CH02657 1368 04312000 * DMPITMTP='H'; 1369 04313000 MVI DMPITMTP(DMPINDEX),C'H' 1369 04314000 * DMPINDEX=DMPINDEX+DMPELEMT; 1370 04315000 * 1370 04316000 AL DMPINDEX,@CF00476 1370 04317000 * /*****************************************************/ 04318000 * /* */ 04319000 * /* @Z40LB64*/ 04320000 * /* */ 04321000 * /*****************************************************/ 04322000 * 1371 04323000 * END; /* @Z40LB64*/ 04324000 * DMPTRM=DMPTRMVL; 1372 04325000 @RC01357 MVI DMPTRM(DMPINDEX),X'FF' 1372 04326000 * END; /* @Z40LB64 04327000 * @Z40LB64*/ 04328000 * IF GDTDBG=NULLPTR THEN 1374 04329000 @RT01353 L @15,@PC00001 1374 04330000 L @15,GDTDBG(,@15) 1374 04331000 LTR @15,@15 1374 04332000 BZ @RT01374 1374 04333000 * ; 1375 04334000 * ELSE 1376 04335000 * CALL IDCDB010(GDTTBL,'CH1W',ADDR(DUMPLIST));/* @Z40LB64*/ 04336000 L @15,@PC00001 1376 04337000 ST @15,@AL00001 1376 04338000 LA @14,@CC02520 1376 04339000 ST @14,@AL00001+4 1376 04340000 LA @14,DUMPLIST 1376 04341000 ST @14,@AFTEMPS+4 1376 04342000 LA @14,@AFTEMPS+4 1376 04343000 ST @14,@AL00001+8 1376 04344000 MVI @AL00001+8,X'80' 1376 04345000 L @15,GDTDBG(,@15) 1376 04346000 LA @01,@AL00001 1376 04347000 BALR @14,@15 1376 04348000 * END; /* @Z40LB64*/ 04349000 * ELSE 1378 04350000 * DO; /* @Z40LB64*/ 04351000 * 1378 04352000 B @RC01332 1378 04353000 @RF01332 DS 0H 1379 04354000 * /*************************************************************/ 04355000 * /* */ 04356000 * /* IF REASON CODE INDICATES THAT THE REQUESTED @Z40LB64*/ 04357000 * /* RECORD WAS NOT FOUND, THEN ALL RECORDS OF @Z40LB64*/ 04358000 * /* THE REQUESTED TYPE HAVE BEEN FOUND, AND A @Z40LB64*/ 04359000 * /* RETURN CODE OF 4 IS RETURNED TO THE INVOKING @Z40LB64*/ 04360000 * /* PROCEDURE. OTHERWISE, THE 'SSCMSG' PROCEDURE @Z40LB64*/ 04361000 * /* IS INVOKED TO PRINT THE APPROPRIATE MESSAGE. @Z40LB64*/ 04362000 * /* */ 04363000 * /*************************************************************/ 04364000 * 1379 04365000 * IF RSNCODE=MSVINFND THEN 1379 04366000 CLC RSNCODE(4),MSVINFND 1379 04367000 BNE @RF01379 1379 04368000 * RECCODE=RECNFND; /* @Z40LB64*/ 04369000 MVI RECCODE,X'04' 1380 04370000 * ELSE 1381 04371000 * DO; /* @Z40LB64*/ 04372000 B @RC01379 1381 04373000 @RF01379 DS 0H 1382 04374000 * CALL SSCMSG(RSNCODE); /* @Z40LB64*/ 04375000 LA @15,RSNCODE 1382 04376000 ST @15,@AL00001 1382 04377000 LA @01,@AL00001 1382 04378000 BAL @14,SSCMSG 1382 04379000 * RECCODE=RECERROR; /* @Z40LB64*/ 04380000 MVI RECCODE,X'08' 1383 04381000 * END; /* @Z40LB64*/ 04382000 * END; /* @Z40LB64*/ 04383000 * END GETREC; /* @Z40LB64*/ 04384000 @EL00008 DS 0H 1386 04385000 @EF00008 DS 0H 1386 04386000 @ER00008 LM @14,@03,@SA00008 1386 04387000 LM @08,@12,@SA00008+24 1386 04388000 BR @14 1386 04389000 * 1387 04390000 */* ******************************************************* @Z40LB64*/ 04391000 */* @Z40LB64*/ 04392000 */* PROCEDURE NAME - VOLREC @Z40LB64*/ 04393000 */* @Z40LB64*/ 04394000 */* FUNCTION - COMPARES MSVI BASE/COPY/DUPLICATE VOLUME @Z40LB64*/ 04395000 */* RECORDS AGAINST THE MSC VOLUME INVENTORY @Z40LB64*/ 04396000 */* OR MSC TRANSIENT VOLUME LIST. @Z40LB64*/ 04397000 */* @Z40LB64*/ 04398000 */* ACTIVE BASE VOLUME RECORDS ARE MATCHED @Z40LB64*/ 04399000 */* TO THE MSC VOLUME INVENTORY BY VOLUME @Z40LB64*/ 04400000 */* IDENTIFIER, AND VOLUME ATTRIBUTES AND @Z40LB64*/ 04401000 */* MSF IDENTIFIER FIELDS ARE COMPARED. @Z40LB64*/ 04402000 */* @Z40LB64*/ 04403000 */* INACTIVE BASE VOLUME RECORDS, COPY VOLUME @Z40LB64*/ 04404000 */* RECORDS, AND DUPLICATE VOLUME RECORDS ARE @Z40LB64*/ 04405000 */* MATCHED TO THE MSC TRANISENT VOLUME LIST @Z40LB64*/ 04406000 */* BY SEQUENCE #1 CARTRIDGE SERIAL NUMBER, @Z40LB64*/ 04407000 */* AND VOLUME IDENTIFIER, VOLUME ATTRIBUTES, @Z40LB64*/ 04408000 */* AND MSF IDENTIFIER FIELDS ARE COMPARED. @Z40LB64*/ 04409000 */* @Z40LB64*/ 04410000 */* IF A MATCHING VOLUME INVENTORY OR TRANSIENT @Z40LB64*/ 04411000 */* VOLUME LIST ENTRY IS NOT FOUND, OR IS FOUND @Z40LB64*/ 04412000 */* BUT ALREADY 'CHECKED-OFF' IN THE RESPECTIVE @Z40LB64*/ 04413000 */* CHECK-OFF TABLE, OR IF COMPARED FIELDS ARE @Z40LB64*/ 04414000 */* NOT EQUAL, AN ERROR MESSAGE IS PRINTED. @Z40LB64*/ 04415000 */* @Z40LB64*/ 04416000 */* INPUT - THE MSVI BASE/COPY/DUPLICATE VOLUME RECORDS @Z40LB64*/ 04417000 */* (OBTAINED BY THE 'CHKMSVI' PROCEDURE). @Z40LB64*/ 04418000 */* THE MATCHING MSC VOLUME INVENTORY OR TRANSIENT @Z40LB64*/ 04419000 */* VOLUME LIST ENTRY (OBTAINED BY 'VOLREC' @Z40LB64*/ 04420000 */* PROCEDURE). @Z40LB64*/ 04421000 */* @Z40LB64*/ 04422000 */* OUTPUT - IF A MATCHING UNCHECKED MSC VOLUME INVENTORY @Z40LB64*/ 04423000 */* OR TRANSIENT VOLUME LIST ENTRY IS FOUND AND @Z40LB64*/ 04424000 */* COMPARED FIELDS AGREE, THEN NO OUTPUT IS @Z40LB64*/ 04425000 */* PRODUCED. @Z40LB64*/ 04426000 */* @Z40LB64*/ 04427000 */* IF A MATCHING UNCHECKED MSC VOLUME INVENTORY @Z40LB64*/ 04428000 */* OR TRANSIENT VOLUME LIST ENTRY IS NOT FOUND @Z40LB64*/ 04429000 */* OR COMPARED FIELDS DO NOT AGREE, AN ERROR @Z40LB64*/ 04430000 */* MESSAGE TO THAT EFFECT IS PRINTED (BY THE @Z40LB64*/ 04431000 */* 'IDCCH04' ROUTINE). @Z40LB64*/ 04432000 */* @Z40LB64*/ 04433000 */* *****************************************************************/ 04434000 * 1387 04435000 *VOLREC: 1387 04436000 * PROCEDURE; /* @Z40LB64*/ 04437000 VOLREC STM @14,@12,@SA00009 1387 04438000 * OLDERID2=NEWERID2; 1388 04439000 L @15,@PC00001 1388 04440000 L @15,GDTTR2(,@15) 1388 04441000 MVC @TS00001(95),NEWERID2(@15) 1388 04442000 MVC OLDERID2(95,@15),@TS00001 1388 04443000 * NEWID2='CH1I'; /* @Z40LB64*/ 04444000 * 1389 04445000 MVC NEWID2(4,@15),@CC02524 1389 04446000 * /*****************************************************************/ 04447000 * /* */ 04448000 * /* IF MSVI VOLUME RECORD IS AN ACTIVE BASE VOLUME @Z40LB64*/ 04449000 * /* RECORD, OBTAIN THE MSC VOLUME INVENTORY ENTRY WITH @Z40LB64*/ 04450000 * /* THE SAME VOLUME IDENTIFIER. @Z40LB64*/ 04451000 * /* */ 04452000 * /*****************************************************************/ 04453000 * 1390 04454000 * IF BCDBASE=ON&BASINAC=OFF THEN 1390 04455000 TM BCDBASE(BCDVPTR),B'00100000' 1390 04456000 BNO @RF01390 1390 04457000 TM BASINAC(BASEVPTR),B'00000100' 1390 04458000 BNZ @RF01390 1390 04459000 *MSVIVI1: 1391 04460000 * DO; /* @Z40LB64*/ 04461000 MSVIVI1 DS 0H 1392 04462000 * TABLEID=VITBLID; /* @Z40LB64*/ 04463000 L @15,EARGPTR 1392 04464000 MVC TABLEID(1,@15),VITBLID 1392 04465000 * VOLID=BASSERNO; /* @Z40LB64*/ 04466000 MVC VOLID(6,@15),BASSERNO(BASEVPTR) 1393 04467000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 04468000 * 1394 04469000 L @15,@PC00001 1394 04470000 ST @15,@AL00001 1394 04471000 LA @15,CDALIST 1394 04472000 ST @15,@AL00001+4 1394 04473000 L @15,@CV02184 1394 04474000 LA @01,@AL00001 1394 04475000 BALR @14,@15 1394 04476000 * /*************************************************************/ 04477000 * /* */ 04478000 * /* IF MSC VOLUME INVENTORY ENTRY WAS SUCCESSFULLY @Z40LB64*/ 04479000 * /* OBTAINED, COMPARE CORRESPONDING FIELDS @Z40LB64*/ 04480000 * /* (VOLUME ATTRIBUTES AND MSF IDENTIFIER). @Z40LB64*/ 04481000 * /* */ 04482000 * /*************************************************************/ 04483000 * 1395 04484000 * IF GETRC=0 THEN 1395 04485000 L @01,EARGPTR 1395 04486000 LH @15,GETRC(,@01) 1395 04487000 LTR @15,@15 1395 04488000 BNZ @RF01395 1395 04489000 *MSVIVI2: 1396 04490000 * DO; /* @Z40LB64*/ 04491000 MSVIVI2 DS 0H 1397 04492000 * VIENTPTR=TBLADDR; /* @Z40LB64*/ 04493000 * 1397 04494000 L @07,EARGPTR 1397 04495000 L VIENTPTR,TBLADDR(,@07) 1397 04496000 * /*********************************************************/ 04497000 * /* */ 04498000 * /* COMPARE CORRESPONDING FIELDS BETWEEN @Z40LB64*/ 04499000 * /* THE VOLUME INVENTORY ENTRY AND THE @Z40LB64*/ 04500000 * /* MSVI BASE VOLUME RECORD. @Z40LB64*/ 04501000 * /* */ 04502000 * /*********************************************************/ 04503000 * 1398 04504000 * ERRFLAG=OFF; /* @Z40LB64*/ 04505000 NI ERRFLAG,B'01111111' 1398 04506000 * CASEFLAG=OFF; /* @Z40LB64*/ 04507000 NI CASEFLAG,B'01111111' 1399 04508000 * CASE#=0; /* @Z40LB64*/ 04509000 SLR CASE#,CASE# 1400 04510000 *VICASES: 1401 04511000 * DO WHILE CASEFLAG=OFF; /* @Z40LB64*/ 04512000 VICASES B @DE01401 1401 04513000 @DL01401 DS 0H 1402 04514000 * CASE#=CASE#+1; /* @Z40LB64*/ 04515000 AL CASE#,@CF00221 1402 04516000 * DO; /* CASE(CASE#)NAMES(VSECCASE,VEXC 04517000 * CASE,VBNDCASE,VWRTCASE,VMF1CAS 04518000 * E,VMF2CASE) */ 04519000 * DCL 1404 04520000 * CL0002@ LABEL BASED(CP0002@(CASE#)) VALUERANGE( 1404 04521000 * VSECCASE,VEXCCASE,VBNDCASE,VWRTCASE,VMF1CASE, 04522000 * VMF2CASE); /* BRANCH TARGET */ 04523000 * DCL 1405 04524000 * CP0002@(6) PTR(31) INIT(ADDR(VSECCASE),ADDR(VEXCCASE) 04525000 * ,ADDR(VBNDCASE),ADDR(VWRTCASE),ADDR(VMF1CASE), 04526000 * ADDR(VMF2CASE)); 1405 04527000 * GOTO CL0002@; /* BRANCH TO SELECTED CASE 1406 04528000 * @Z40LB64*/ 04529000 * 1406 04530000 LR @07,CASE# 1406 04531000 SLA @07,2 1406 04532000 L @07,CP0002@-4(@07) 1406 04533000 BR @07 1406 04534000 * /*****************************************************/ 04535000 * /* */ 04536000 * /* COMPARE 'VOLUME SECURE' ATTRIBUTE @Z40LB64*/ 04537000 * /* */ 04538000 * /*****************************************************/ 04539000 * 1407 04540000 *VSECCASE: 1407 04541000 * DO; /* SUBCASE @Z40LB64*/ 04542000 VSECCASE DS 0H 1408 04543000 * IF(VISECVOL=ON&BASDAERA=OFF) THEN 1408 04544000 TM VISECVOL(VIENTPTR),B'00100000' 1408 04545000 BNO @RF01408 1408 04546000 TM BASDAERA(BASEVPTR),B'10000000' 1408 04547000 BNZ @RF01408 1408 04548000 * DO; /* @Z40LB64*/ 04549000 * ERRFLAG=ON; /* @Z40LB64*/ 04550000 OI ERRFLAG,B'10000000' 1410 04551000 * VSSFLD=ON; /* @Z40LB64*/ 04552000 L @07,MARGPTR 1411 04553000 OI VSSFLD(@07),B'01000000' 1411 04554000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 04555000 MVI FLDCHAR+3(@07),C' ' 1412 04556000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1412 04557000 MVC FLDCHAR(3,@07),@CC02406 1412 04558000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 04559000 MVI FLDCHAR+15(@07),C' ' 1413 04560000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1413 04561000 MVC FLDCHAR+12(3,@07),@CC02408 1413 04562000 * END; /* @Z40LB64*/ 04563000 * IF(VISECVOL=OFF&BASDAERA=ON) THEN 1415 04564000 @RF01408 TM VISECVOL(VIENTPTR),B'00100000' 1415 04565000 BNZ @RF01415 1415 04566000 TM BASDAERA(BASEVPTR),B'10000000' 1415 04567000 BNO @RF01415 1415 04568000 * DO; /* @Z40LB64*/ 04569000 * ERRFLAG=ON; /* @Z40LB64*/ 04570000 OI ERRFLAG,B'10000000' 1417 04571000 * VSSFLD=ON; /* @Z40LB64*/ 04572000 L @07,MARGPTR 1418 04573000 OI VSSFLD(@07),B'01000000' 1418 04574000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 04575000 MVI FLDCHAR+3(@07),C' ' 1419 04576000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1419 04577000 MVC FLDCHAR(3,@07),@CC02408 1419 04578000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 04579000 MVI FLDCHAR+15(@07),C' ' 1420 04580000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1420 04581000 MVC FLDCHAR+12(3,@07),@CC02406 1420 04582000 * END; /* @Z40LB64*/ 04583000 * GOTO CE0002@; /* BRANCH TO END OF CASE */ 04584000 B CE0002@ 1422 04585000 * END VSECCASE; /* END OF SUBCASE */ 04586000 */* @Z40LB64 */ 04587000 * 1424 04588000 * /*****************************************************/ 04589000 * /* */ 04590000 * /* COMPARE 'VOLUME EXCLUSIVE' ATTRIBUTE @Z40LB64*/ 04591000 * /* */ 04592000 * /*****************************************************/ 04593000 * 1424 04594000 *VEXCCASE: 1424 04595000 * DO; /* SUBCASE @Z40LB64*/ 04596000 VEXCCASE DS 0H 1425 04597000 * IF(VIEXCVOL=ON&BASEXCL=OFF) THEN 1425 04598000 TM VIEXCVOL(VIENTPTR),B'00010000' 1425 04599000 BNO @RF01425 1425 04600000 TM BASEXCL(BASEVPTR),B'00000001' 1425 04601000 BNZ @RF01425 1425 04602000 * DO; /* @Z40LB64*/ 04603000 * ERRFLAG=ON; /* @Z40LB64*/ 04604000 OI ERRFLAG,B'10000000' 1427 04605000 * VESFLD=ON; /* @Z40LB64*/ 04606000 L @07,MARGPTR 1428 04607000 OI VESFLD(@07),B'00100000' 1428 04608000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 04609000 MVI FLDCHAR+3(@07),C' ' 1429 04610000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1429 04611000 MVC FLDCHAR(3,@07),@CC02406 1429 04612000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 04613000 MVI FLDCHAR+15(@07),C' ' 1430 04614000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1430 04615000 MVC FLDCHAR+12(3,@07),@CC02408 1430 04616000 * END; /* @Z40LB64*/ 04617000 * IF(VIEXCVOL=OFF&BASEXCL=ON) THEN 1432 04618000 @RF01425 TM VIEXCVOL(VIENTPTR),B'00010000' 1432 04619000 BNZ @RF01432 1432 04620000 TM BASEXCL(BASEVPTR),B'00000001' 1432 04621000 BNO @RF01432 1432 04622000 * DO; /* @Z40LB64*/ 04623000 * ERRFLAG=ON; /* @Z40LB64*/ 04624000 OI ERRFLAG,B'10000000' 1434 04625000 * VESFLD=ON; /* @Z40LB64*/ 04626000 L @07,MARGPTR 1435 04627000 OI VESFLD(@07),B'00100000' 1435 04628000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 04629000 MVI FLDCHAR+3(@07),C' ' 1436 04630000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1436 04631000 MVC FLDCHAR(3,@07),@CC02408 1436 04632000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 04633000 MVI FLDCHAR+15(@07),C' ' 1437 04634000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1437 04635000 MVC FLDCHAR+12(3,@07),@CC02406 1437 04636000 * END; /* @Z40LB64*/ 04637000 * GOTO CE0002@; /* BRANCH TO END OF CASE */ 04638000 B CE0002@ 1439 04639000 * END VEXCCASE; /* END OF SUBCASE */ 04640000 */* @Z40LB64 */ 04641000 * 1441 04642000 * /*****************************************************/ 04643000 * /* */ 04644000 * /* COMPARE 'VOLUME BOUND' ATTRIBUTE @Z40LB64*/ 04645000 * /* */ 04646000 * /*****************************************************/ 04647000 * 1441 04648000 *VBNDCASE: 1441 04649000 * DO; /* SUBCASE @Z40LB64*/ 04650000 VBNDCASE DS 0H 1442 04651000 * IF(VIBNDVOL=ON&BASBIND=OFF) THEN 1442 04652000 TM VIBNDVOL(VIENTPTR),B'00000100' 1442 04653000 BNO @RF01442 1442 04654000 TM BASBIND(BASEVPTR),B'00000010' 1442 04655000 BNZ @RF01442 1442 04656000 * DO; /* @Z40LB64*/ 04657000 * ERRFLAG=ON; /* @Z40LB64*/ 04658000 OI ERRFLAG,B'10000000' 1444 04659000 * VBSFLD=ON; /* @Z40LB64*/ 04660000 L @07,MARGPTR 1445 04661000 OI VBSFLD(@07),B'00010000' 1445 04662000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 04663000 MVI FLDCHAR+3(@07),C' ' 1446 04664000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1446 04665000 MVC FLDCHAR(3,@07),@CC02406 1446 04666000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 04667000 MVI FLDCHAR+15(@07),C' ' 1447 04668000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1447 04669000 MVC FLDCHAR+12(3,@07),@CC02408 1447 04670000 * END; /* @Z40LB64*/ 04671000 * IF(VIBNDVOL=OFF&BASBIND=ON) THEN 1449 04672000 @RF01442 TM VIBNDVOL(VIENTPTR),B'00000100' 1449 04673000 BNZ @RF01449 1449 04674000 TM BASBIND(BASEVPTR),B'00000010' 1449 04675000 BNO @RF01449 1449 04676000 * DO; /* @Z40LB64*/ 04677000 * ERRFLAG=ON; /* @Z40LB64*/ 04678000 OI ERRFLAG,B'10000000' 1451 04679000 * VBSFLD=ON; /* @Z40LB64*/ 04680000 L @07,MARGPTR 1452 04681000 OI VBSFLD(@07),B'00010000' 1452 04682000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 04683000 MVI FLDCHAR+3(@07),C' ' 1453 04684000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1453 04685000 MVC FLDCHAR(3,@07),@CC02408 1453 04686000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 04687000 MVI FLDCHAR+15(@07),C' ' 1454 04688000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1454 04689000 MVC FLDCHAR+12(3,@07),@CC02406 1454 04690000 * END; /* @Z40LB64*/ 04691000 * GOTO CE0002@; /* BRANCH TO END OF CASE */ 04692000 B CE0002@ 1456 04693000 * END VBNDCASE; /* END OF SUBCASE */ 04694000 */* @Z40LB64 */ 04695000 * 1458 04696000 * /*****************************************************/ 04697000 * /* */ 04698000 * /* COMPARE 'WRITE INHIBIT' ATTRIBUTE @Z40LB64*/ 04699000 * /* */ 04700000 * /*****************************************************/ 04701000 * 1458 04702000 *VWRTCASE: 1458 04703000 * DO; /* SUBCASE @Z40LB64*/ 04704000 VWRTCASE DS 0H 1459 04705000 * IF(VIWRTINH=ON&BASRONLY=OFF) THEN 1459 04706000 TM VIWRTINH(VIENTPTR),B'00000010' 1459 04707000 BNO @RF01459 1459 04708000 TM BASRONLY(BASEVPTR),B'01000000' 1459 04709000 BNZ @RF01459 1459 04710000 * DO; /* @Z40LB64*/ 04711000 * ERRFLAG=ON; /* @Z40LB64*/ 04712000 OI ERRFLAG,B'10000000' 1461 04713000 * WISFLD=ON; /* @Z40LB64*/ 04714000 L @07,MARGPTR 1462 04715000 OI WISFLD(@07),B'00000100' 1462 04716000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 04717000 MVI FLDCHAR+3(@07),C' ' 1463 04718000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1463 04719000 MVC FLDCHAR(3,@07),@CC02406 1463 04720000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 04721000 MVI FLDCHAR+15(@07),C' ' 1464 04722000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1464 04723000 MVC FLDCHAR+12(3,@07),@CC02408 1464 04724000 * END; /* @Z40LB64*/ 04725000 * IF(VIWRTINH=OFF&BASRONLY=ON) THEN 1466 04726000 @RF01459 TM VIWRTINH(VIENTPTR),B'00000010' 1466 04727000 BNZ @RF01466 1466 04728000 TM BASRONLY(BASEVPTR),B'01000000' 1466 04729000 BNO @RF01466 1466 04730000 * DO; /* @Z40LB64*/ 04731000 * ERRFLAG=ON; /* @Z40LB64*/ 04732000 OI ERRFLAG,B'10000000' 1468 04733000 * WISFLD=ON; /* @Z40LB64*/ 04734000 L @07,MARGPTR 1469 04735000 OI WISFLD(@07),B'00000100' 1469 04736000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 04737000 MVI FLDCHAR+3(@07),C' ' 1470 04738000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1470 04739000 MVC FLDCHAR(3,@07),@CC02408 1470 04740000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 04741000 MVI FLDCHAR+15(@07),C' ' 1471 04742000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1471 04743000 MVC FLDCHAR+12(3,@07),@CC02406 1471 04744000 * END; /* @Z40LB64*/ 04745000 * GOTO CE0002@; /* BRANCH TO END OF CASE */ 04746000 B CE0002@ 1473 04747000 * END VWRTCASE; /* END OF SUBCASE */ 04748000 */* @Z40LB64 */ 04749000 * 1475 04750000 * /*****************************************************/ 04751000 * /* */ 04752000 * /* COMPARE SEQ #1 CTG MSF IDENTIFIER @Z40LB64*/ 04753000 * /* */ 04754000 * /*****************************************************/ 04755000 * 1475 04756000 *VMF1CASE: 1475 04757000 * DO; /* SUBCASE @Z40LB64*/ 04758000 VMF1CASE DS 0H 1476 04759000 * TEMPBYTE=VILZYX1/LIBSHIFT;/* @Z40LB64*/ 04760000 LH TEMPBYTE,VILZYX1(,VIENTPTR) 1476 04761000 N TEMPBYTE,@CF02684 1476 04762000 SRL TEMPBYTE,14 1476 04763000 * IF TEMPBYTE^=BASLIB1 THEN 1477 04764000 SLR @07,@07 1477 04765000 IC @07,BASLIB1(,BASEVPTR) 1477 04766000 CR TEMPBYTE,@07 1477 04767000 BE @RF01477 1477 04768000 * DO; /* @Z40LB64*/ 04769000 * ERRFLAG=ON; /* @Z40LB64*/ 04770000 OI ERRFLAG,B'10000000' 1479 04771000 * MSFFLD=ON; /* @Z40LB64*/ 04772000 L @15,MARGPTR 1480 04773000 OI MSFFLD(@15),B'00000010' 1480 04774000 * FLDNUM(1)=TEMPBYTE;/* @Z40LB64*/ 04775000 ST TEMPBYTE,FLDNUM(,@15) 1481 04776000 * FLDNUM(2)=BASLIB1;/* @Z40LB64*/ 04777000 ST @07,FLDNUM+12(,@15) 1482 04778000 * END; /* @Z40LB64*/ 04779000 * GOTO CE0002@; /* BRANCH TO END OF CASE */ 04780000 B CE0002@ 1484 04781000 * END VMF1CASE; /* END OF SUBCASE */ 04782000 */* @Z40LB64 */ 04783000 * 1486 04784000 * /*****************************************************/ 04785000 * /* */ 04786000 * /* COMPARE SEQ #2 CTG MSF IDENTIFIER @Z40LB64*/ 04787000 * /* */ 04788000 * /*****************************************************/ 04789000 * 1486 04790000 *VMF2CASE: 1486 04791000 * DO; /* SUBCASE @Z40LB64*/ 04792000 VMF2CASE DS 0H 1487 04793000 * TEMPBYTE=VILZYX2/LIBSHIFT;/* @Z40LB64*/ 04794000 LH TEMPBYTE,VILZYX2(,VIENTPTR) 1487 04795000 N TEMPBYTE,@CF02684 1487 04796000 SRL TEMPBYTE,14 1487 04797000 * IF TEMPBYTE^=BASLIB2 THEN 1488 04798000 SLR @07,@07 1488 04799000 IC @07,BASLIB2(,BASEVPTR) 1488 04800000 CR TEMPBYTE,@07 1488 04801000 BE @RF01488 1488 04802000 * DO; /* @Z40LB64*/ 04803000 * ERRFLAG=ON; /* @Z40LB64*/ 04804000 OI ERRFLAG,B'10000000' 1490 04805000 * MSFFLD=ON; /* @Z40LB64*/ 04806000 L @15,MARGPTR 1491 04807000 OI MSFFLD(@15),B'00000010' 1491 04808000 * FLDNUM(1)=TEMPBYTE;/* @Z40LB64*/ 04809000 ST TEMPBYTE,FLDNUM(,@15) 1492 04810000 * FLDNUM(2)=BASLIB2;/* @Z40LB64*/ 04811000 ST @07,FLDNUM+12(,@15) 1493 04812000 * END; /* @Z40LB64*/ 04813000 * CASEFLAG=ON; /* @Z40LB64*/ 04814000 @RF01488 OI CASEFLAG,B'10000000' 1495 04815000 * GOTO CE0002@; /* BRANCH TO END OF CASE */ 04816000 B CE0002@ 1496 04817000 * END VMF2CASE; /* END OF SUBCASE */ 04818000 */* @Z40LB64 */ 04819000 * 1498 04820000 *CE0002@: 1498 04821000 * END; /* END OF CASE */ 04822000 CE0002@ DS 0H 1499 04823000 */*@Z40LB64 */ 04824000 * 1499 04825000 * /*******************************************************/ 04826000 * /* */ 04827000 * /* IF COMPARED FIELDS DID NOT MATCH, @Z40LB64*/ 04828000 * /* PRINT THE APPROPRIATE ERROR MESSAGE @Z40LB64*/ 04829000 * /* */ 04830000 * /*******************************************************/ 04831000 * 1499 04832000 * IF ERRFLAG=ON THEN 1499 04833000 TM ERRFLAG,B'10000000' 1499 04834000 BNO @RF01499 1499 04835000 * DO; /* @Z40LB64*/ 04836000 * INCNMSG=ON; /* @Z40LB64*/ 04837000 L @07,MARGPTR 1501 04838000 OI INCNMSG(@07),B'10000000' 1501 04839000 * VITBL(1)=ON; /* @Z40LB64*/ 04840000 OI VITBL(@07),B'01000000' 1502 04841000 * MSVITBL(2)=ON; /* @Z40LB64*/ 04842000 OI MSVITBL+4(@07),B'00001000' 1503 04843000 * CHRINDEX(1)=PREVCHR;/* @Z40LB64*/ 04844000 L @03,EARGPTR 1504 04845000 MVC CHRINDEX(5,@07),PREVCHR(@03) 1504 04846000 * VSNINDEX(1)=VIVOLID;/* @Z40LB64*/ 04847000 MVC VSNINDEX(6,@07),VIVOLID(VIENTPTR) 1505 04848000 * KEYINDEX(2)=BASNAME;/* @Z40LB64*/ 04849000 MVC KEYINDEX+24(13,@07),BASNAME(BASEVPTR) 1506 04850000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 04851000 L @07,@PC00001 1507 04852000 ST @07,@AL00001 1507 04853000 LA @07,CDALIST 1507 04854000 ST @07,@AL00001+4 1507 04855000 L @15,@CV02185 1507 04856000 LA @01,@AL00001 1507 04857000 BALR @14,@15 1507 04858000 * ERRFLAG=OFF; /* @Z40LB64*/ 04859000 NI ERRFLAG,B'01111111' 1508 04860000 * END; /* @Z40LB64*/ 04861000 * END VICASES; /* @Z40LB64*/ 04862000 * 1510 04863000 @RF01499 DS 0H 1510 04864000 @DE01401 TM CASEFLAG,B'10000000' 1510 04865000 BZ @DL01401 1510 04866000 * /*********************************************************/ 04867000 * /* */ 04868000 * /* CHECK-OFF THE VOLUME INVENTORY ENTRY. @Z40LB64*/ 04869000 * /* */ 04870000 * /*********************************************************/ 04871000 * 1511 04872000 * VICHKFF(BYTE#)=VICHKFF(BYTE#)|BITMASK(BIT#);/* @Z40LB64*/ 04873000 L @15,EARGPTR 1511 04874000 LH @01,BYTE#(,@15) 1511 04875000 L @14,VICOPTR 1511 04876000 ALR @14,@01 1511 04877000 AL @14,@CF02349 1511 04878000 LH @01,BIT#(,@15) 1511 04879000 LA @15,BITMASK-1(@01) 1511 04880000 OC VICHKFF(1,@14),0(@15) 1511 04881000 * END MSVIVI2; /* @Z40LB64*/ 04882000 * 1512 04883000 * /*************************************************************/ 04884000 * /* */ 04885000 * /* IF THE MSC VOLUME INVENTORY ENTRY WAS NOT @Z40LB64*/ 04886000 * /* FOUND, PRINT THE APPROPRIATE ERROR MESSAGE. @Z40LB64*/ 04887000 * /* */ 04888000 * /*************************************************************/ 04889000 * 1513 04890000 * IF GETRC=NOTFOUND THEN 1513 04891000 @RF01395 L @01,EARGPTR 1513 04892000 CLC GETRC(2,@01),@CH00181 1513 04893000 BNE @RF01513 1513 04894000 * DO; /* @Z40LB64*/ 04895000 * MTCHMSG=ON; /* @Z40LB64*/ 04896000 L @15,MARGPTR 1515 04897000 OI MTCHMSG(@15),B'00010000' 1515 04898000 * VSNFLD=ON; /* @Z40LB64*/ 04899000 OI VSNFLD(@15),B'00000001' 1516 04900000 * FLDCHAR(1)=BASSERNO; /* @Z40LB64*/ 04901000 MVI FLDCHAR+6(@15),C' ' 1517 04902000 MVC FLDCHAR+7(5,@15),FLDCHAR+6(@15) 1517 04903000 MVC FLDCHAR(6,@15),BASSERNO(BASEVPTR) 1517 04904000 * VITBL(1)=ON; /* @Z40LB64*/ 04905000 OI VITBL(@15),B'01000000' 1518 04906000 * MSVITBL(2)=ON; /* @Z40LB64*/ 04907000 OI MSVITBL+4(@15),B'00001000' 1519 04908000 * KEYINDEX(2)=BASNAME; /* @Z40LB64*/ 04909000 MVC KEYINDEX+24(13,@15),BASNAME(BASEVPTR) 1520 04910000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 04911000 L @15,@PC00001 1521 04912000 ST @15,@AL00001 1521 04913000 LA @15,CDALIST 1521 04914000 ST @15,@AL00001+4 1521 04915000 L @15,@CV02185 1521 04916000 LA @01,@AL00001 1521 04917000 BALR @14,@15 1521 04918000 * END; /* @Z40LB64*/ 04919000 * 1522 04920000 * /*************************************************************/ 04921000 * /* */ 04922000 * /* IF AN ERROR WAS ENCOUNTERED TRYING TO OBTAIN @Z40LB64*/ 04923000 * /* THE MSC VOLUME INVENTORY ENTRY, TERMINATE @Z40LB64*/ 04924000 * /* CHECKMSS PROCESSING. @Z40LB64*/ 04925000 * /* */ 04926000 * /*************************************************************/ 04927000 * 1523 04928000 * IF GETRC=TABLERR THEN 1523 04929000 @RF01513 LA @15,12 1523 04930000 L @01,EARGPTR 1523 04931000 CH @15,GETRC(,@01) 1523 04932000 BNE @RF01523 1523 04933000 * DO; /* @Z40LB64*/ 04934000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 04935000 L @14,@PC00001+8 1525 04936000 STH @15,LASTCOND(,@14) 1525 04937000 * RETURN; /* @Z40LB64*/ 04938000 @EL00009 DS 0H 1526 04939000 @EF00009 DS 0H 1526 04940000 @ER00009 LM @14,@12,@SA00009 1526 04941000 BR @14 1526 04942000 * END; /* @Z40LB64*/ 04943000 * END MSVIVI1; /* @Z40LB64*/ 04944000 * 1528 04945000 * /*****************************************************************/ 04946000 * /* */ 04947000 * /* IF MSVI VOLUME RECORD IS AN INACTIVE BASE VOLUME @Z40LB64*/ 04948000 * /* RECORD, COPY VOLUME RECORD, OR DUPLICATE VOLUME @Z40LB64*/ 04949000 * /* RECORD, OBTAIN THE MSC TRANSIENT VOLUME LIST @Z40LB64*/ 04950000 * /* ENTRY WITH THE SAME SEQUENCE #1 CARTRIDGE SERIAL @Z40LB64*/ 04951000 * /* NUMBER. @Z40LB64*/ 04952000 * /* */ 04953000 * /*****************************************************************/ 04954000 * 1529 04955000 * ELSE 1529 04956000 *MSVITVL1: 1529 04957000 * DO; /* @Z40LB64*/ 04958000 B @RC01390 1529 04959000 @RF01390 DS 0H 1529 04960000 MSVITVL1 DS 0H 1530 04961000 * TABLEID=TVLTBLID; /* @Z40LB64*/ 04962000 L @15,EARGPTR 1530 04963000 MVC TABLEID(1,@15),TVLTBLID 1530 04964000 * SEQ1CSN=BCDCSN1; /* @Z40LB64*/ 04965000 MVC SEQ1CSN(12,@15),BCDCSN1(BCDVPTR) 1531 04966000 * CALL IDCCH03(GDTTBL,CDALIST);/* @Z40LB64*/ 04967000 * 1532 04968000 L @15,@PC00001 1532 04969000 ST @15,@AL00001 1532 04970000 LA @15,CDALIST 1532 04971000 ST @15,@AL00001+4 1532 04972000 L @15,@CV02184 1532 04973000 LA @01,@AL00001 1532 04974000 BALR @14,@15 1532 04975000 * /*************************************************************/ 04976000 * /* */ 04977000 * /* IF THE MSC TRANSIENT VOLUME LIST ENTRY WAS @Z40LB64*/ 04978000 * /* SUCCESSFULLY OBTAINED, COMPARE CORRESPONDING @Z40LB64*/ 04979000 * /* FIELDS (VOLUME ATTRIBUTES, VOLUME IDENTIFIER, @Z40LB64*/ 04980000 * /* AND MSF IDENTIFIER). DUPLICATE VOLUME RECORDS @Z40LB64*/ 04981000 * /* DO NOT CONTAIN THE VOLUME ATTRIBUTE FIELDS. @Z40LB64*/ 04982000 * /* */ 04983000 * /*************************************************************/ 04984000 * 1533 04985000 * IF GETRC=0 THEN 1533 04986000 L @01,EARGPTR 1533 04987000 LH @15,GETRC(,@01) 1533 04988000 LTR @15,@15 1533 04989000 BNZ @RF01533 1533 04990000 *MSVITVL2: 1534 04991000 * DO; /* @Z40LB64*/ 04992000 MSVITVL2 DS 0H 1535 04993000 * TVENTPTR=TBLADDR; /* @Z40LB64*/ 04994000 * 1535 04995000 L @07,EARGPTR 1535 04996000 L TVENTPTR,TBLADDR(,@07) 1535 04997000 * /*********************************************************/ 04998000 * /* */ 04999000 * /* COMPARE CORRESPONDING FIELDS BETWEEN @Z40LB64*/ 05000000 * /* THE TRANSIENT VOLUME LIST ENTRY AND @Z40LB64*/ 05001000 * /* THE MSVI BASE/COPY/DUPLICATE VOLUME @Z40LB64*/ 05002000 * /* RECORD. @Z40LB64*/ 05003000 * /* */ 05004000 * /*********************************************************/ 05005000 * 1536 05006000 * ERRFLAG=OFF; /* @Z40LB64*/ 05007000 NI ERRFLAG,B'01111111' 1536 05008000 * CASEFLAG=OFF; /* @Z40LB64*/ 05009000 NI CASEFLAG,B'01111111' 1537 05010000 * CASE#=0; /* @Z40LB64*/ 05011000 SLR CASE#,CASE# 1538 05012000 *TVLCASES: 1539 05013000 * DO WHILE CASEFLAG=OFF; /* @Z40LB64*/ 05014000 TVLCASES B @DE01539 1539 05015000 @DL01539 DS 0H 1540 05016000 * CASE#=CASE#+1; /* @Z40LB64*/ 05017000 AL CASE#,@CF00221 1540 05018000 * DO; /* CASE(CASE#)NAMES(TSECCASE,TEXC 05019000 * CASE,TBNDCASE,TWRTCASE,TVOLCAS 05020000 * E,TMF1CASE,TMF2CASE) */ 05021000 * DCL 1542 05022000 * CL0003@ LABEL BASED(CP0003@(CASE#)) VALUERANGE( 1542 05023000 * TSECCASE,TEXCCASE,TBNDCASE,TWRTCASE,TVOLCASE, 05024000 * TMF1CASE,TMF2CASE);/* BRANCH TARGET */ 05025000 * DCL 1543 05026000 * CP0003@(7) PTR(31) INIT(ADDR(TSECCASE),ADDR(TEXCCASE) 05027000 * ,ADDR(TBNDCASE),ADDR(TWRTCASE),ADDR(TVOLCASE), 05028000 * ADDR(TMF1CASE),ADDR(TMF2CASE)); 1543 05029000 * GOTO CL0003@; /* BRANCH TO SELECTED CASE */ 05030000 LR @07,CASE# 1544 05031000 SLA @07,2 1544 05032000 L @07,CP0003@-4(@07) 1544 05033000 BR @07 1544 05034000 */* @Z40LB64 */ 05035000 * 1545 05036000 * /*****************************************************/ 05037000 * /* */ 05038000 * /* COMPARE 'VOLUME SECURE' ATTRIBUTE @Z40LB64*/ 05039000 * /* */ 05040000 * /*****************************************************/ 05041000 * 1545 05042000 *TSECCASE: 1545 05043000 * DO; /* SUBCASE @Z40LB64*/ 05044000 TSECCASE DS 0H 1546 05045000 * IF BCDBASE=ON THEN 1546 05046000 TM BCDBASE(BCDVPTR),B'00100000' 1546 05047000 BNO @RF01546 1546 05048000 * DO; /* @Z40LB64*/ 05049000 * IF(TVSECVOL=ON&BASDAERA=OFF) THEN 1548 05050000 TM TVSECVOL(TVENTPTR),B'00100000' 1548 05051000 BNO @RF01548 1548 05052000 TM BASDAERA(BASEVPTR),B'10000000' 1548 05053000 BNZ @RF01548 1548 05054000 * DO; /* @Z40LB64*/ 05055000 * ERRFLAG=ON;/* @Z40LB64*/ 05056000 OI ERRFLAG,B'10000000' 1550 05057000 * VSSFLD=ON;/* @Z40LB64*/ 05058000 L @07,MARGPTR 1551 05059000 OI VSSFLD(@07),B'01000000' 1551 05060000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05061000 MVI FLDCHAR+3(@07),C' ' 1552 05062000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1552 05063000 MVC FLDCHAR(3,@07),@CC02406 1552 05064000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05065000 MVI FLDCHAR+15(@07),C' ' 1553 05066000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1553 05067000 MVC FLDCHAR+12(3,@07),@CC02408 1553 05068000 * END; /* @Z40LB64*/ 05069000 * IF(TVSECVOL=OFF&BASDAERA=ON) THEN 1555 05070000 @RF01548 TM TVSECVOL(TVENTPTR),B'00100000' 1555 05071000 BNZ @RF01555 1555 05072000 TM BASDAERA(BASEVPTR),B'10000000' 1555 05073000 BNO @RF01555 1555 05074000 * DO; /* @Z40LB64*/ 05075000 * ERRFLAG=ON;/* @Z40LB64*/ 05076000 OI ERRFLAG,B'10000000' 1557 05077000 * VSSFLD=ON;/* @Z40LB64*/ 05078000 L @07,MARGPTR 1558 05079000 OI VSSFLD(@07),B'01000000' 1558 05080000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05081000 MVI FLDCHAR+3(@07),C' ' 1559 05082000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1559 05083000 MVC FLDCHAR(3,@07),@CC02408 1559 05084000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05085000 MVI FLDCHAR+15(@07),C' ' 1560 05086000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1560 05087000 MVC FLDCHAR+12(3,@07),@CC02406 1560 05088000 * END; /* @Z40LB64*/ 05089000 * END; /* @Z40LB64*/ 05090000 @RF01555 DS 0H 1563 05091000 * IF BCDCOPY=ON THEN 1563 05092000 @RF01546 TM BCDCOPY(BCDVPTR),B'00010000' 1563 05093000 BNO @RF01563 1563 05094000 * DO; /* @Z40LB64*/ 05095000 * IF(TVSECVOL=ON&COPDAERA=OFF) THEN 1565 05096000 TM TVSECVOL(TVENTPTR),B'00100000' 1565 05097000 BNO @RF01565 1565 05098000 L @07,COPYVPTR 1565 05099000 TM COPDAERA(@07),B'00000001' 1565 05100000 BNZ @RF01565 1565 05101000 * DO; /* @Z40LB64*/ 05102000 * ERRFLAG=ON;/* @Z40LB64*/ 05103000 OI ERRFLAG,B'10000000' 1567 05104000 * VSSFLD=ON;/* @Z40LB64*/ 05105000 L @07,MARGPTR 1568 05106000 OI VSSFLD(@07),B'01000000' 1568 05107000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05108000 MVI FLDCHAR+3(@07),C' ' 1569 05109000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1569 05110000 MVC FLDCHAR(3,@07),@CC02406 1569 05111000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05112000 MVI FLDCHAR+15(@07),C' ' 1570 05113000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1570 05114000 MVC FLDCHAR+12(3,@07),@CC02408 1570 05115000 * END; /* @Z40LB64*/ 05116000 * IF(TVSECVOL=OFF&COPDAERA=ON) THEN 1572 05117000 @RF01565 TM TVSECVOL(TVENTPTR),B'00100000' 1572 05118000 BNZ @RF01572 1572 05119000 L @07,COPYVPTR 1572 05120000 TM COPDAERA(@07),B'00000001' 1572 05121000 BNO @RF01572 1572 05122000 * DO; /* @Z40LB64*/ 05123000 * ERRFLAG=ON;/* @Z40LB64*/ 05124000 OI ERRFLAG,B'10000000' 1574 05125000 * VSSFLD=ON;/* @Z40LB64*/ 05126000 L @07,MARGPTR 1575 05127000 OI VSSFLD(@07),B'01000000' 1575 05128000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05129000 MVI FLDCHAR+3(@07),C' ' 1576 05130000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1576 05131000 MVC FLDCHAR(3,@07),@CC02408 1576 05132000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05133000 MVI FLDCHAR+15(@07),C' ' 1577 05134000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1577 05135000 MVC FLDCHAR+12(3,@07),@CC02406 1577 05136000 * END; /* @Z40LB64*/ 05137000 * END; /* @Z40LB64*/ 05138000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05139000 B CE0003@ 1580 05140000 * END TSECCASE; /* END OF SUBCASE */ 05141000 */* @Z40LB64 */ 05142000 * 1582 05143000 * /*****************************************************/ 05144000 * /* */ 05145000 * /* COMPARE 'VOLUME EXCLUSIVE' ATTRIBUTE @Z40LB64*/ 05146000 * /* */ 05147000 * /*****************************************************/ 05148000 * 1582 05149000 *TEXCCASE: 1582 05150000 * DO; /* SUBCASE @Z40LB64*/ 05151000 TEXCCASE DS 0H 1583 05152000 * IF BCDBASE=ON THEN 1583 05153000 TM BCDBASE(BCDVPTR),B'00100000' 1583 05154000 BNO @RF01583 1583 05155000 * DO; /* @Z40LB64*/ 05156000 * IF(TVEXCVOL=ON&BASEXCL=OFF) THEN 1585 05157000 TM TVEXCVOL(TVENTPTR),B'00010000' 1585 05158000 BNO @RF01585 1585 05159000 TM BASEXCL(BASEVPTR),B'00000001' 1585 05160000 BNZ @RF01585 1585 05161000 * DO; /* @Z40LB64*/ 05162000 * ERRFLAG=ON;/* @Z40LB64*/ 05163000 OI ERRFLAG,B'10000000' 1587 05164000 * VESFLD=ON;/* @Z40LB64*/ 05165000 L @07,MARGPTR 1588 05166000 OI VESFLD(@07),B'00100000' 1588 05167000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05168000 MVI FLDCHAR+3(@07),C' ' 1589 05169000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1589 05170000 MVC FLDCHAR(3,@07),@CC02406 1589 05171000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05172000 MVI FLDCHAR+15(@07),C' ' 1590 05173000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1590 05174000 MVC FLDCHAR+12(3,@07),@CC02408 1590 05175000 * END; /* @Z40LB64*/ 05176000 * IF(TVEXCVOL=OFF&BASEXCL=ON) THEN 1592 05177000 @RF01585 TM TVEXCVOL(TVENTPTR),B'00010000' 1592 05178000 BNZ @RF01592 1592 05179000 TM BASEXCL(BASEVPTR),B'00000001' 1592 05180000 BNO @RF01592 1592 05181000 * DO; /* @Z40LB64*/ 05182000 * ERRFLAG=ON;/* @Z40LB64*/ 05183000 OI ERRFLAG,B'10000000' 1594 05184000 * VESFLD=ON;/* @Z40LB64*/ 05185000 L @07,MARGPTR 1595 05186000 OI VESFLD(@07),B'00100000' 1595 05187000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05188000 MVI FLDCHAR+3(@07),C' ' 1596 05189000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1596 05190000 MVC FLDCHAR(3,@07),@CC02408 1596 05191000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05192000 MVI FLDCHAR+15(@07),C' ' 1597 05193000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1597 05194000 MVC FLDCHAR+12(3,@07),@CC02406 1597 05195000 * END; /* @Z40LB64*/ 05196000 * END; /* @Z40LB64*/ 05197000 @RF01592 DS 0H 1600 05198000 * IF BCDCOPY=ON THEN 1600 05199000 @RF01583 TM BCDCOPY(BCDVPTR),B'00010000' 1600 05200000 BNO @RF01600 1600 05201000 * DO; /* @Z40LB64*/ 05202000 * IF(TVEXCVOL=ON&COPEXCL=OFF) THEN 1602 05203000 TM TVEXCVOL(TVENTPTR),B'00010000' 1602 05204000 BNO @RF01602 1602 05205000 L @07,COPYVPTR 1602 05206000 TM COPEXCL(@07),B'00000010' 1602 05207000 BNZ @RF01602 1602 05208000 * DO; /* @Z40LB64*/ 05209000 * ERRFLAG=ON;/* @Z40LB64*/ 05210000 OI ERRFLAG,B'10000000' 1604 05211000 * VESFLD=ON;/* @Z40LB64*/ 05212000 L @07,MARGPTR 1605 05213000 OI VESFLD(@07),B'00100000' 1605 05214000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05215000 MVI FLDCHAR+3(@07),C' ' 1606 05216000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1606 05217000 MVC FLDCHAR(3,@07),@CC02406 1606 05218000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05219000 MVI FLDCHAR+15(@07),C' ' 1607 05220000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1607 05221000 MVC FLDCHAR+12(3,@07),@CC02408 1607 05222000 * END; /* @Z40LB64*/ 05223000 * IF(TVEXCVOL=OFF&COPEXCL=ON) THEN 1609 05224000 @RF01602 TM TVEXCVOL(TVENTPTR),B'00010000' 1609 05225000 BNZ @RF01609 1609 05226000 L @07,COPYVPTR 1609 05227000 TM COPEXCL(@07),B'00000010' 1609 05228000 BNO @RF01609 1609 05229000 * DO; /* @Z40LB64*/ 05230000 * ERRFLAG=ON;/* @Z40LB64*/ 05231000 OI ERRFLAG,B'10000000' 1611 05232000 * VESFLD=ON;/* @Z40LB64*/ 05233000 L @07,MARGPTR 1612 05234000 OI VESFLD(@07),B'00100000' 1612 05235000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05236000 MVI FLDCHAR+3(@07),C' ' 1613 05237000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1613 05238000 MVC FLDCHAR(3,@07),@CC02408 1613 05239000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05240000 MVI FLDCHAR+15(@07),C' ' 1614 05241000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1614 05242000 MVC FLDCHAR+12(3,@07),@CC02406 1614 05243000 * END; /* @Z40LB64*/ 05244000 * END; /* @Z40LB64*/ 05245000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05246000 B CE0003@ 1617 05247000 * END TEXCCASE; /* END OF SUBCASE */ 05248000 */* @Z40LB64 */ 05249000 * 1619 05250000 * /*****************************************************/ 05251000 * /* */ 05252000 * /* COMPARE 'VOLUME BOUND' ATTRIBUTE @Z40LB64*/ 05253000 * /* */ 05254000 * /*****************************************************/ 05255000 * 1619 05256000 *TBNDCASE: 1619 05257000 * DO; /* SUBCASE @Z40LB64*/ 05258000 TBNDCASE DS 0H 1620 05259000 * IF BCDBASE=ON THEN 1620 05260000 TM BCDBASE(BCDVPTR),B'00100000' 1620 05261000 BNO @RF01620 1620 05262000 * DO; /* @Z40LB64*/ 05263000 * IF(TVBNDVOL=ON&BASBIND=OFF) THEN 1622 05264000 TM TVBNDVOL(TVENTPTR),B'00000100' 1622 05265000 BNO @RF01622 1622 05266000 TM BASBIND(BASEVPTR),B'00000010' 1622 05267000 BNZ @RF01622 1622 05268000 * DO; /* @Z40LB64*/ 05269000 * ERRFLAG=ON;/* @Z40LB64*/ 05270000 OI ERRFLAG,B'10000000' 1624 05271000 * VBSFLD=ON;/* @Z40LB64*/ 05272000 L @07,MARGPTR 1625 05273000 OI VBSFLD(@07),B'00010000' 1625 05274000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05275000 MVI FLDCHAR+3(@07),C' ' 1626 05276000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1626 05277000 MVC FLDCHAR(3,@07),@CC02406 1626 05278000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05279000 MVI FLDCHAR+15(@07),C' ' 1627 05280000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1627 05281000 MVC FLDCHAR+12(3,@07),@CC02408 1627 05282000 * END; /* @Z40LB64*/ 05283000 * IF(TVBNDVOL=OFF&BASBIND=ON) THEN 1629 05284000 @RF01622 TM TVBNDVOL(TVENTPTR),B'00000100' 1629 05285000 BNZ @RF01629 1629 05286000 TM BASBIND(BASEVPTR),B'00000010' 1629 05287000 BNO @RF01629 1629 05288000 * DO; /* @Z40LB64*/ 05289000 * ERRFLAG=ON;/* @Z40LB64*/ 05290000 OI ERRFLAG,B'10000000' 1631 05291000 * VBSFLD=ON;/* @Z40LB64*/ 05292000 L @07,MARGPTR 1632 05293000 OI VBSFLD(@07),B'00010000' 1632 05294000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05295000 MVI FLDCHAR+3(@07),C' ' 1633 05296000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1633 05297000 MVC FLDCHAR(3,@07),@CC02408 1633 05298000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05299000 MVI FLDCHAR+15(@07),C' ' 1634 05300000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1634 05301000 MVC FLDCHAR+12(3,@07),@CC02406 1634 05302000 * END; /* @Z40LB64*/ 05303000 * END; /* @Z40LB64*/ 05304000 @RF01629 DS 0H 1637 05305000 * IF BCDCOPY=ON THEN 1637 05306000 @RF01620 TM BCDCOPY(BCDVPTR),B'00010000' 1637 05307000 BNO @RF01637 1637 05308000 * DO; /* @Z40LB64*/ 05309000 * IF(TVBNDVOL=ON&COPBIND=OFF) THEN 1639 05310000 TM TVBNDVOL(TVENTPTR),B'00000100' 1639 05311000 BNO @RF01639 1639 05312000 L @07,COPYVPTR 1639 05313000 TM COPBIND(@07),B'00000100' 1639 05314000 BNZ @RF01639 1639 05315000 * DO; /* @Z40LB64*/ 05316000 * ERRFLAG=ON;/* @Z40LB64*/ 05317000 OI ERRFLAG,B'10000000' 1641 05318000 * VBSFLD=ON;/* @Z40LB64*/ 05319000 L @07,MARGPTR 1642 05320000 OI VBSFLD(@07),B'00010000' 1642 05321000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05322000 MVI FLDCHAR+3(@07),C' ' 1643 05323000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1643 05324000 MVC FLDCHAR(3,@07),@CC02406 1643 05325000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05326000 MVI FLDCHAR+15(@07),C' ' 1644 05327000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1644 05328000 MVC FLDCHAR+12(3,@07),@CC02408 1644 05329000 * END; /* @Z40LB64*/ 05330000 * IF(TVBNDVOL=OFF&COPBIND=ON) THEN 1646 05331000 @RF01639 TM TVBNDVOL(TVENTPTR),B'00000100' 1646 05332000 BNZ @RF01646 1646 05333000 L @07,COPYVPTR 1646 05334000 TM COPBIND(@07),B'00000100' 1646 05335000 BNO @RF01646 1646 05336000 * DO; /* @Z40LB64*/ 05337000 * ERRFLAG=ON;/* @Z40LB64*/ 05338000 OI ERRFLAG,B'10000000' 1648 05339000 * VBSFLD=ON;/* @Z40LB64*/ 05340000 L @07,MARGPTR 1649 05341000 OI VBSFLD(@07),B'00010000' 1649 05342000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05343000 MVI FLDCHAR+3(@07),C' ' 1650 05344000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1650 05345000 MVC FLDCHAR(3,@07),@CC02408 1650 05346000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05347000 MVI FLDCHAR+15(@07),C' ' 1651 05348000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1651 05349000 MVC FLDCHAR+12(3,@07),@CC02406 1651 05350000 * END; /* @Z40LB64*/ 05351000 * END; /* @Z40LB64*/ 05352000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05353000 B CE0003@ 1654 05354000 * END TBNDCASE; /* END OF SUBCASE */ 05355000 */* @Z40LB64 */ 05356000 * 1656 05357000 * /*****************************************************/ 05358000 * /* */ 05359000 * /* COMPARE 'WRITE INHIBIT' ATTRIBUTE @Z40LB64*/ 05360000 * /* */ 05361000 * /*****************************************************/ 05362000 * 1656 05363000 *TWRTCASE: 1656 05364000 * DO; /* SUBCASE @Z40LB64*/ 05365000 TWRTCASE DS 0H 1657 05366000 * IF BCDBASE=ON THEN 1657 05367000 TM BCDBASE(BCDVPTR),B'00100000' 1657 05368000 BNO @RF01657 1657 05369000 * DO; /* @Z40LB64*/ 05370000 * IF(TVWRTINH=ON&BASRONLY=OFF) THEN 1659 05371000 TM TVWRTINH(TVENTPTR),B'00000010' 1659 05372000 BNO @RF01659 1659 05373000 TM BASRONLY(BASEVPTR),B'01000000' 1659 05374000 BNZ @RF01659 1659 05375000 * DO; /* @Z40LB64*/ 05376000 * ERRFLAG=ON;/* @Z40LB64*/ 05377000 OI ERRFLAG,B'10000000' 1661 05378000 * WISFLD=ON;/* @Z40LB64*/ 05379000 L @07,MARGPTR 1662 05380000 OI WISFLD(@07),B'00000100' 1662 05381000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05382000 MVI FLDCHAR+3(@07),C' ' 1663 05383000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1663 05384000 MVC FLDCHAR(3,@07),@CC02406 1663 05385000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05386000 MVI FLDCHAR+15(@07),C' ' 1664 05387000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1664 05388000 MVC FLDCHAR+12(3,@07),@CC02408 1664 05389000 * END; /* @Z40LB64*/ 05390000 * IF(TVWRTINH=OFF&BASRONLY=ON) THEN 1666 05391000 @RF01659 TM TVWRTINH(TVENTPTR),B'00000010' 1666 05392000 BNZ @RF01666 1666 05393000 TM BASRONLY(BASEVPTR),B'01000000' 1666 05394000 BNO @RF01666 1666 05395000 * DO; /* @Z40LB64*/ 05396000 * ERRFLAG=ON;/* @Z40LB64*/ 05397000 OI ERRFLAG,B'10000000' 1668 05398000 * WISFLD=ON;/* @Z40LB64*/ 05399000 L @07,MARGPTR 1669 05400000 OI WISFLD(@07),B'00000100' 1669 05401000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05402000 MVI FLDCHAR+3(@07),C' ' 1670 05403000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1670 05404000 MVC FLDCHAR(3,@07),@CC02408 1670 05405000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05406000 MVI FLDCHAR+15(@07),C' ' 1671 05407000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1671 05408000 MVC FLDCHAR+12(3,@07),@CC02406 1671 05409000 * END; /* @Z40LB64*/ 05410000 * END; /* @Z40LB64*/ 05411000 @RF01666 DS 0H 1674 05412000 * IF BCDCOPY=ON THEN 1674 05413000 @RF01657 TM BCDCOPY(BCDVPTR),B'00010000' 1674 05414000 BNO @RF01674 1674 05415000 * DO; /* @Z40LB64*/ 05416000 * IF(TVWRTINH=ON&COPRONLY=OFF) THEN 1676 05417000 TM TVWRTINH(TVENTPTR),B'00000010' 1676 05418000 BNO @RF01676 1676 05419000 L @07,COPYVPTR 1676 05420000 TM COPRONLY(@07),B'10000000' 1676 05421000 BNZ @RF01676 1676 05422000 * DO; /* @Z40LB64*/ 05423000 * ERRFLAG=ON;/* @Z40LB64*/ 05424000 OI ERRFLAG,B'10000000' 1678 05425000 * WISFLD=ON;/* @Z40LB64*/ 05426000 L @07,MARGPTR 1679 05427000 OI WISFLD(@07),B'00000100' 1679 05428000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05429000 MVI FLDCHAR+3(@07),C' ' 1680 05430000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1680 05431000 MVC FLDCHAR(3,@07),@CC02406 1680 05432000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05433000 MVI FLDCHAR+15(@07),C' ' 1681 05434000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1681 05435000 MVC FLDCHAR+12(3,@07),@CC02408 1681 05436000 * END; /* @Z40LB64*/ 05437000 * IF(TVWRTINH=OFF&COPRONLY=ON) THEN 1683 05438000 @RF01676 TM TVWRTINH(TVENTPTR),B'00000010' 1683 05439000 BNZ @RF01683 1683 05440000 L @07,COPYVPTR 1683 05441000 TM COPRONLY(@07),B'10000000' 1683 05442000 BNO @RF01683 1683 05443000 * DO; /* @Z40LB64*/ 05444000 * ERRFLAG=ON;/* @Z40LB64*/ 05445000 OI ERRFLAG,B'10000000' 1685 05446000 * WISFLD=ON;/* @Z40LB64*/ 05447000 L @07,MARGPTR 1686 05448000 OI WISFLD(@07),B'00000100' 1686 05449000 * FLDCHAR(1)=STATNO;/* @Z40LB64*/ 05450000 MVI FLDCHAR+3(@07),C' ' 1687 05451000 MVC FLDCHAR+4(8,@07),FLDCHAR+3(@07) 1687 05452000 MVC FLDCHAR(3,@07),@CC02408 1687 05453000 * FLDCHAR(2)=STATYES;/* @Z40LB64*/ 05454000 MVI FLDCHAR+15(@07),C' ' 1688 05455000 MVC FLDCHAR+16(8,@07),FLDCHAR+15(@07) 1688 05456000 MVC FLDCHAR+12(3,@07),@CC02406 1688 05457000 * END; /* @Z40LB64*/ 05458000 * END; /* @Z40LB64*/ 05459000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05460000 B CE0003@ 1691 05461000 * END TWRTCASE; /* END OF SUBCASE */ 05462000 */* @Z40LB64 */ 05463000 * 1693 05464000 * /*****************************************************/ 05465000 * /* */ 05466000 * /* COMPARE VOLUME IDENTIFIER @Z40LB64*/ 05467000 * /* */ 05468000 * /*****************************************************/ 05469000 * 1693 05470000 *TVOLCASE: 1693 05471000 * DO; /* SUBCASE @Z40LB64*/ 05472000 TVOLCASE DS 0H 1694 05473000 * IF TVVOLID^=BCDSERNO THEN 1694 05474000 CLC TVVOLID(6,TVENTPTR),BCDSERNO(BCDVPTR) 1694 05475000 BE @RF01694 1694 05476000 * DO; /* @Z40LB64*/ 05477000 * ERRFLAG=ON; /* @Z40LB64*/ 05478000 OI ERRFLAG,B'10000000' 1696 05479000 * VSNFLD=ON; /* @Z40LB64*/ 05480000 L @07,MARGPTR 1697 05481000 OI VSNFLD(@07),B'00000001' 1697 05482000 * FLDCHAR(1)=TVVOLID;/* @Z40LB64*/ 05483000 MVI FLDCHAR+6(@07),C' ' 1698 05484000 MVC FLDCHAR+7(5,@07),FLDCHAR+6(@07) 1698 05485000 MVC FLDCHAR(6,@07),TVVOLID(TVENTPTR) 1698 05486000 * FLDCHAR(2)=BCDSERNO;/* @Z40LB64*/ 05487000 MVI FLDCHAR+18(@07),C' ' 1699 05488000 MVC FLDCHAR+19(5,@07),FLDCHAR+18(@07) 1699 05489000 MVC FLDCHAR+12(6,@07),BCDSERNO(BCDVPTR) 1699 05490000 * END; /* @Z40LB64*/ 05491000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05492000 B CE0003@ 1701 05493000 * END TVOLCASE; /* END OF SUBCASE */ 05494000 */* @Z40LB64 */ 05495000 * 1703 05496000 * /*****************************************************/ 05497000 * /* */ 05498000 * /* COMPARE SEQ #1 CTG MSF IDENTIFIER @Z40LB64*/ 05499000 * /* */ 05500000 * /*****************************************************/ 05501000 * 1703 05502000 *TMF1CASE: 1703 05503000 * DO; /* SUBCASE @Z40LB64*/ 05504000 TMF1CASE DS 0H 1704 05505000 * TEMPBYTE=TVLZYX1/LIBSHIFT;/* @Z40LB64*/ 05506000 LH TEMPBYTE,TVLZYX1(,TVENTPTR) 1704 05507000 N TEMPBYTE,@CF02684 1704 05508000 SRL TEMPBYTE,14 1704 05509000 * IF TEMPBYTE^=BCDLIB1 THEN 1705 05510000 SLR @07,@07 1705 05511000 IC @07,BCDLIB1(,BCDVPTR) 1705 05512000 CR TEMPBYTE,@07 1705 05513000 BE @RF01705 1705 05514000 * DO; /* @Z40LB64*/ 05515000 * ERRFLAG=ON; /* @Z40LB64*/ 05516000 OI ERRFLAG,B'10000000' 1707 05517000 * MSFFLD=ON; /* @Z40LB64*/ 05518000 L @15,MARGPTR 1708 05519000 OI MSFFLD(@15),B'00000010' 1708 05520000 * FLDNUM(1)=TEMPBYTE;/* @Z40LB64*/ 05521000 ST TEMPBYTE,FLDNUM(,@15) 1709 05522000 * FLDNUM(2)=BCDLIB1;/* @Z40LB64*/ 05523000 ST @07,FLDNUM+12(,@15) 1710 05524000 * END; /* @Z40LB64*/ 05525000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05526000 B CE0003@ 1712 05527000 * END TMF1CASE; /* END OF SUBCASE */ 05528000 */* @Z40LB64 */ 05529000 * 1714 05530000 * /*****************************************************/ 05531000 * /* */ 05532000 * /* COMPARE SEQ #2 CTG MSF IDENTIFIER @Z40LB64*/ 05533000 * /* */ 05534000 * /*****************************************************/ 05535000 * 1714 05536000 *TMF2CASE: 1714 05537000 * DO; /* SUBCASE @Z40LB64*/ 05538000 TMF2CASE DS 0H 1715 05539000 * TEMPBYTE=TVLZYX2/LIBSHIFT;/* @Z40LB64*/ 05540000 LH TEMPBYTE,TVLZYX2(,TVENTPTR) 1715 05541000 N TEMPBYTE,@CF02684 1715 05542000 SRL TEMPBYTE,14 1715 05543000 * IF TEMPBYTE^=BCDLIB2 THEN 1716 05544000 SLR @07,@07 1716 05545000 IC @07,BCDLIB2(,BCDVPTR) 1716 05546000 CR TEMPBYTE,@07 1716 05547000 BE @RF01716 1716 05548000 * DO; /* @Z40LB64*/ 05549000 * ERRFLAG=ON; /* @Z40LB64*/ 05550000 OI ERRFLAG,B'10000000' 1718 05551000 * MSFFLD=ON; /* @Z40LB64*/ 05552000 L @15,MARGPTR 1719 05553000 OI MSFFLD(@15),B'00000010' 1719 05554000 * FLDNUM(1)=TEMPBYTE;/* @Z40LB64*/ 05555000 ST TEMPBYTE,FLDNUM(,@15) 1720 05556000 * FLDNUM(2)=BCDLIB2;/* @Z40LB64*/ 05557000 ST @07,FLDNUM+12(,@15) 1721 05558000 * END; /* @Z40LB64*/ 05559000 * CASEFLAG=ON; /* @Z40LB64*/ 05560000 @RF01716 OI CASEFLAG,B'10000000' 1723 05561000 * GOTO CE0003@; /* BRANCH TO END OF CASE */ 05562000 B CE0003@ 1724 05563000 * END TMF2CASE; /* END OF SUBCASE */ 05564000 */* @Z40LB64 */ 05565000 * 1726 05566000 *CE0003@: 1726 05567000 * END; /* END OF CASE */ 05568000 CE0003@ DS 0H 1727 05569000 */*@Z40LB64 */ 05570000 * 1727 05571000 * /*******************************************************/ 05572000 * /* */ 05573000 * /* IF COMPARED FIELDS DID NOT MATCH, @Z40LB64*/ 05574000 * /* PRINT THE APPROPRIATE ERROR MESSAGE @Z40LB64*/ 05575000 * /* */ 05576000 * /*******************************************************/ 05577000 * 1727 05578000 * IF ERRFLAG=ON THEN 1727 05579000 TM ERRFLAG,B'10000000' 1727 05580000 BNO @RF01727 1727 05581000 * DO; /* @Z40LB64*/ 05582000 * INCNMSG=ON; /* @Z40LB64*/ 05583000 L @07,MARGPTR 1729 05584000 OI INCNMSG(@07),B'10000000' 1729 05585000 * TVLTBL(1)=ON; /* @Z40LB64*/ 05586000 OI TVLTBL(@07),B'00100000' 1730 05587000 * MSVITBL(2)=ON; /* @Z40LB64*/ 05588000 OI MSVITBL+4(@07),B'00001000' 1731 05589000 * CHRINDEX(1)=PREVCHR;/* @Z40LB64*/ 05590000 L @03,EARGPTR 1732 05591000 MVC CHRINDEX(5,@07),PREVCHR(@03) 1732 05592000 * VSNINDEX(1)=TVVOLID;/* @Z40LB64*/ 05593000 MVC VSNINDEX(6,@07),TVVOLID(TVENTPTR) 1733 05594000 * CSNINDEX(1)=TVCSN;/* @Z40LB64*/ 05595000 MVC CSNINDEX(12,@07),TVCSN(TVENTPTR) 1734 05596000 * KEYINDEX(2)=BCDNAME;/* @Z40LB64*/ 05597000 MVC KEYINDEX+24(13,@07),BCDNAME(BCDVPTR) 1735 05598000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 05599000 L @07,@PC00001 1736 05600000 ST @07,@AL00001 1736 05601000 LA @07,CDALIST 1736 05602000 ST @07,@AL00001+4 1736 05603000 L @15,@CV02185 1736 05604000 LA @01,@AL00001 1736 05605000 BALR @14,@15 1736 05606000 * ERRFLAG=OFF; /* @Z40LB64*/ 05607000 NI ERRFLAG,B'01111111' 1737 05608000 * END; /* @Z40LB64*/ 05609000 * END TVLCASES; /* @Z40LB64*/ 05610000 * 1739 05611000 @RF01727 DS 0H 1739 05612000 @DE01539 TM CASEFLAG,B'10000000' 1739 05613000 BZ @DL01539 1739 05614000 * /*********************************************************/ 05615000 * /* */ 05616000 * /* DETERMINE IF THE TRANSIENT VOLUME LIST @Z40LB64*/ 05617000 * /* ENTRY IS ALREADY CHECKED-OFF. IF SO, @Z40LB64*/ 05618000 * /* PRINT AN ERROR MESSAGE. @Z40LB64*/ 05619000 * /* */ 05620000 * /*********************************************************/ 05621000 * 1740 05622000 * IF(TVVOLID=BCDSERNO)&((TVLCHKFF(BYTE#)&BITMASK(BIT#))^=0) 05623000 * THEN 1740 05624000 CLC TVVOLID(6,TVENTPTR),BCDSERNO(BCDVPTR) 1740 05625000 BNE @RF01740 1740 05626000 L @03,EARGPTR 1740 05627000 LH @01,BYTE#(,@03) 1740 05628000 LH @03,BIT#(,@03) 1740 05629000 L @15,TVLCOPTR 1740 05630000 AL @15,@CF02349 1740 05631000 SLR @14,@14 1740 05632000 IC @14,TVLCHKFF(@01,@15) 1740 05633000 SLR @15,@15 1740 05634000 IC @15,BITMASK-1(@03) 1740 05635000 NR @14,@15 1740 05636000 LTR @14,@14 1740 05637000 BZ @RF01740 1740 05638000 * DO; /* @Z40LB64*/ 05639000 * 1741 05640000 * /*****************************************************/ 05641000 * /* */ 05642000 * /* TRANSIENT VOLUME LIST ENTRY IS @Z40LB64*/ 05643000 * /* ALREADY CHECKED-OFF. @Z40LB64*/ 05644000 * /* */ 05645000 * /*****************************************************/ 05646000 * 1742 05647000 * DUPLMSG=ON; /* @Z40LB64*/ 05648000 L @03,MARGPTR 1742 05649000 OI DUPLMSG(@03),B'01000000' 1742 05650000 * MSVITBL(1)=ON; /* @Z40LB64*/ 05651000 OI MSVITBL(@03),B'00001000' 1743 05652000 * CSNFLD=ON; /* @Z40LB64*/ 05653000 OI CSNFLD(@03),B'10000000' 1744 05654000 * FLDCHAR(1)=TVCSN; /* @Z40LB64*/ 05655000 MVC FLDCHAR(12,@03),TVCSN(TVENTPTR) 1745 05656000 * KEYINDEX(1)=BCDNAME;/* @Z40LB64*/ 05657000 MVC KEYINDEX(13,@03),BCDNAME(BCDVPTR) 1746 05658000 * CALL IDCCH04(GDTTBL,CDALIST,LASTCOND); 1747 05659000 L @15,@PC00001 1747 05660000 ST @15,@AL00001 1747 05661000 LA @15,CDALIST 1747 05662000 ST @15,@AL00001+4 1747 05663000 L @15,@PC00001+8 1747 05664000 ST @15,@AL00001+8 1747 05665000 L @15,@CV02185 1747 05666000 LA @01,@AL00001 1747 05667000 BALR @14,@15 1747 05668000 * IF LASTCOND^=0 THEN 1748 05669000 L @15,@PC00001+8 1748 05670000 LH @15,LASTCOND(,@15) 1748 05671000 LTR @15,@15 1748 05672000 BNZ @RT01748 1748 05673000 * RETURN; /* @Z40LB64*/ 05674000 * END; /* @Z40LB64*/ 05675000 * ELSE 1751 05676000 * 1751 05677000 * /*******************************************************/ 05678000 * /* */ 05679000 * /* TRANSIENT VOLUME LIST ENTRY IS NOT @Z40LB64*/ 05680000 * /* ALREADY CHECKED-OFF. CHECK-OFF THE @Z40LB64*/ 05681000 * /* TRANSIENT VOLUME LIST ENTRY. @Z40LB64*/ 05682000 * /* */ 05683000 * /*******************************************************/ 05684000 * 1751 05685000 * TVLCHKFF(BYTE#)=TVLCHKFF(BYTE#)|BITMASK(BIT#);/* 1751 05686000 * @Z40LB64*/ 05687000 B @RC01740 1751 05688000 @RF01740 L @15,EARGPTR 1751 05689000 LH @01,BYTE#(,@15) 1751 05690000 L @14,TVLCOPTR 1751 05691000 ALR @14,@01 1751 05692000 AL @14,@CF02349 1751 05693000 LH @01,BIT#(,@15) 1751 05694000 LA @15,BITMASK-1(@01) 1751 05695000 OC TVLCHKFF(1,@14),0(@15) 1751 05696000 * END MSVITVL2; /* @Z40LB64*/ 05697000 * 1752 05698000 @RC01740 DS 0H 1753 05699000 * /*************************************************************/ 05700000 * /* */ 05701000 * /* IF THE MSC TRANSIENT VOLUME LIST ENTRY WAS NOT @Z40LB64*/ 05702000 * /* FOUND, PRINT THE APPROPRIATE ERROR MESSAGE. @Z40LB64*/ 05703000 * /* */ 05704000 * /*************************************************************/ 05705000 * 1753 05706000 * IF GETRC=NOTFOUND THEN 1753 05707000 @RF01533 L @01,EARGPTR 1753 05708000 CLC GETRC(2,@01),@CH00181 1753 05709000 BNE @RF01753 1753 05710000 * DO; /* @Z40LB64*/ 05711000 * MTCHMSG=ON; /* @Z40LB64*/ 05712000 L @15,MARGPTR 1755 05713000 OI MTCHMSG(@15),B'00010000' 1755 05714000 * CSNFLD=ON; /* @Z40LB64*/ 05715000 OI CSNFLD(@15),B'10000000' 1756 05716000 * FLDCHAR(1)=BCDCSN1; /* @Z40LB64*/ 05717000 MVC FLDCHAR(12,@15),BCDCSN1(BCDVPTR) 1757 05718000 * TVLTBL(1)=ON; /* @Z40LB64*/ 05719000 OI TVLTBL(@15),B'00100000' 1758 05720000 * MSVITBL(2)=ON; /* @Z40LB64*/ 05721000 OI MSVITBL+4(@15),B'00001000' 1759 05722000 * KEYINDEX(2)=BCDNAME; /* @Z40LB64*/ 05723000 MVC KEYINDEX+24(13,@15),BCDNAME(BCDVPTR) 1760 05724000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 05725000 L @15,@PC00001 1761 05726000 ST @15,@AL00001 1761 05727000 LA @15,CDALIST 1761 05728000 ST @15,@AL00001+4 1761 05729000 L @15,@CV02185 1761 05730000 LA @01,@AL00001 1761 05731000 BALR @14,@15 1761 05732000 * END; /* @Z40LB64*/ 05733000 * 1762 05734000 * /*************************************************************/ 05735000 * /* */ 05736000 * /* IF AN ERROR WAS ENCOUNTERED TRYING TO OBTAIN @Z40LB64*/ 05737000 * /* THE MSC TRANSIENT VOLUME LIST ENTRY, TERMINATE @Z40LB64*/ 05738000 * /* CHECKMSS PROCESSING. @Z40LB64*/ 05739000 * /* */ 05740000 * /*************************************************************/ 05741000 * 1763 05742000 * IF GETRC=TABLERR THEN 1763 05743000 @RF01753 LA @15,12 1763 05744000 L @01,EARGPTR 1763 05745000 CH @15,GETRC(,@01) 1763 05746000 BNE @RF01763 1763 05747000 * DO; /* @Z40LB64*/ 05748000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 05749000 L @14,@PC00001+8 1765 05750000 STH @15,LASTCOND(,@14) 1765 05751000 * RETURN; /* @Z40LB64*/ 05752000 B @EL00009 1766 05753000 * END; /* @Z40LB64*/ 05754000 * END MSVITVL1; /* @Z40LB64*/ 05755000 * END VOLREC; /* @Z40LB64*/ 05756000 B @EL00009 1769 05757000 * 1770 05758000 */* ******************************************************* @Z40LB64*/ 05759000 */* @Z40LB64*/ 05760000 */* PROCEDURE NAME - CPUREC @Z40LB64*/ 05761000 */* @Z40LB64*/ 05762000 */* FUNCTION - COMPARES THE MSVI BASE VOLUME RECORD FOR @Z40LB64*/ 05763000 */* MOUNTED VOLUMES AGAINST THE MSC MOUNTED @Z40LB64*/ 05764000 */* VOLUME TABLE VIA THE MSVI CPU RECORD AND @Z40LB64*/ 05765000 */* THE MSC MANUFACTURER'S ID CONVERSION TABLE. @Z40LB64*/ 05766000 */* @Z40LB64*/ 05767000 */* THE CPU IDENTIFIERS FOR EACH INTERFACE IN @Z40LB64*/ 05768000 */* THE MOUNTED VOLUME TABLE IS MATCHED TO A @Z40LB64*/ 05769000 */* MANUFACTURER'S IDENTIFIER IN THE @Z40LB64*/ 05770000 */* MANUFACTURER'S ID CONVERSION TABLE WHICH @Z40LB64*/ 05771000 */* IS THEN COMPARED AGAINST THE LIST OF @Z40LB64*/ 05772000 */* MANUFACTURER'S IDENTIFIERS IN THE MSVI CPU @Z40LB64*/ 05773000 */* RECORD. @Z40LB64*/ 05774000 */* @Z40LB64*/ 05775000 */* INPUT - (1) THE MSVI BASE VOLUME RECORD FOR A MOUNTED @Z40LB64*/ 05776000 */* VOLUME. @Z40LB64*/ 05777000 */* (2) THE MATCHING MOUNTED VOLUME TABLE ENTRY @Z40LB64*/ 05778000 */* (OBTAINED BY THE 'CPUREC' PROCEDURE). @Z40LB64*/ 05779000 */* (3) THE MSVI CPU RECORD. @Z40LB64*/ 05780000 */* (4) THE MSC MANUFACTURER'S ID CONVERSION @Z40LB64*/ 05781000 */* TABLE. @Z40LB64*/ 05782000 */* @Z40LB64*/ 05783000 */* OUTPUT - ERROR MESSAGES ARE PRINTED IF - @Z40LB64*/ 05784000 */* (1) A MATCHING MOUNTED VOLUME TABLE ENTRY @Z40LB64*/ 05785000 */* WAS NOT FOUND. @Z40LB64*/ 05786000 */* (2) THE MANUFACTURER'S ID CONVERSION TABLE @Z40LB64*/ 05787000 */* ENTRY WAS INCONSISTENT WITH THE MOUNTED @Z40LB64*/ 05788000 */* VOLUME TABLE ENTRY. @Z40LB64*/ 05789000 */* (3) A MATCHING MANUFACTURER'S ID WAS NOT @Z40LB64*/ 05790000 */* FOUND FOR THE MSVI BASE VOLUME RECORD @Z40LB64*/ 05791000 */* TO MATCH THE MOUNTED VOLUME TABLE. @Z40LB64*/ 05792000 */* @Z40LB64*/ 05793000 */* ******************************************************* @Z40LB64*/ 05794000 * 1770 05795000 *CPUREC: 1770 05796000 * PROCEDURE; /* @Z40LB64*/ 05797000 CPUREC STM @14,@12,@SA00010 1770 05798000 * OLDERID2=NEWERID2; 1771 05799000 L @05,@PC00001 1771 05800000 L @15,GDTTR2(,@05) 1771 05801000 MVC @TS00001(95),NEWERID2(@15) 1771 05802000 MVC OLDERID2(95,@15),@TS00001 1771 05803000 * NEWID2='CH1J'; /* @Z40LB64*/ 05804000 * 1772 05805000 MVC NEWID2(4,@15),@CC02574 1772 05806000 * /*****************************************************************/ 05807000 * /* */ 05808000 * /* OBTAIN THE MSC MOUNTED VOLUME TABLE ENTRY WITH THE @Z40LB64*/ 05809000 * /* SAME VOLUME IDENTIFIER AS THE MSVI BASE VOLUME @Z40LB64*/ 05810000 * /* RECORD. @Z40LB64*/ 05811000 * /* */ 05812000 * /*****************************************************************/ 05813000 * 1773 05814000 * TABLEID=MVTBLID; /* @Z40LB64*/ 05815000 L @15,EARGPTR 1773 05816000 MVC TABLEID(1,@15),MVTBLID 1773 05817000 * VOLID=BASSERNO; /* @Z40LB64*/ 05818000 MVC VOLID(6,@15),BASSERNO(BASEVPTR) 1774 05819000 * CALL IDCCH03(GDTTBL,CDALIST); /* @Z40LB64*/ 05820000 * 1775 05821000 ST @05,@AL00001 1775 05822000 LA @05,CDALIST 1775 05823000 ST @05,@AL00001+4 1775 05824000 L @15,@CV02184 1775 05825000 LA @01,@AL00001 1775 05826000 BALR @14,@15 1775 05827000 * /*****************************************************************/ 05828000 * /* */ 05829000 * /* IF THE MATCHING MOUNTED VOLUME TABLE ENTRY WAS @Z40LB64*/ 05830000 * /* SUCCESSFULLY OBTAINED, COMPARE THE MANUFACTURER'S @Z40LB64*/ 05831000 * /* IDENTIFIERS OF THE ASSOCIATED CPUS BETWEEN THE MSVI @Z40LB64*/ 05832000 * /* BASE VOLUME RECORD AND MOUNTED VOLUME TABLE ENTRY. @Z40LB64*/ 05833000 * /* */ 05834000 * /*****************************************************************/ 05835000 * 1776 05836000 * IF GETRC=0 THEN 1776 05837000 L @05,EARGPTR 1776 05838000 LH @05,GETRC(,@05) 1776 05839000 LTR @05,@05 1776 05840000 BNZ @RF01776 1776 05841000 *MFRIDCHK: 1777 05842000 * DO; /* @Z40LB64*/ 05843000 * 1777 05844000 MFRIDCHK DS 0H 1778 05845000 * /*************************************************************/ 05846000 * /* */ 05847000 * /* MOUNTED VOLUME TABLE ENTRY SUCCESSFULLY @Z40LB64*/ 05848000 * /* OBTAINED. CHECK-OFF THE CORRESPONDING ENTRY @Z40LB64*/ 05849000 * /* IN THE MOUNTED VOLUME TABLE CHECK-OFF TABLE. @Z40LB64*/ 05850000 * /* */ 05851000 * /*************************************************************/ 05852000 * 1778 05853000 * MVENTPTR=TBLADDR; /* @Z40LB64*/ 05854000 L @05,EARGPTR 1778 05855000 L MVENTPTR,TBLADDR(,@05) 1778 05856000 * MVTCHKFF(BYTE#)=MVTCHKFF(BYTE#)|BITMASK(BIT#);/* @Z40LB64*/ 05857000 * 1779 05858000 LH @03,BYTE#(,@05) 1779 05859000 L @01,MVTCOPTR 1779 05860000 ALR @01,@03 1779 05861000 AL @01,@CF02349 1779 05862000 LH @05,BIT#(,@05) 1779 05863000 LA @03,BITMASK-1(@05) 1779 05864000 OC MVTCHKFF(1,@01),0(@03) 1779 05865000 * /*************************************************************/ 05866000 * /* */ 05867000 * /* FOR EACH VALID AND ACTIVE INTERFACE (B,C,D) @Z40LB64*/ 05868000 * /* IN THE MOUNTED VOLUME TABLE ENTRY, USE THE @Z40LB64*/ 05869000 * /* CPU IDENTIFIER TO INDEX INTO THE MSC @Z40LB64*/ 05870000 * /* MANUFACTURER'S ID CONVERSION TABLE. @Z40LB64*/ 05871000 * /* */ 05872000 * /*************************************************************/ 05873000 * 1780 05874000 * CPUCHKFF=0; /* @Z40LB64*/ 05875000 SLR @05,@05 1780 05876000 STCM @05,3,CPUCHKFF 1780 05877000 *SAVLDCHK: 1781 05878000 * DO MVPATH#=1 TO INTFSSA; /* @Z40LB64*/ 05879000 SAVLDCHK LA MVPATH#,1 1781 05880000 @DL01781 DS 0H 1782 05881000 * IF MVVLDSA(MVPATH#)=ON THEN 1782 05882000 LR @05,MVPATH# 1782 05883000 SLA @05,3 1782 05884000 ALR @05,MVENTPTR 1782 05885000 TM MVVLDSA-8(@05),B'10000000' 1782 05886000 BNO @RF01782 1782 05887000 *MVTINTF: 1783 05888000 * DO INTF#=1 TO DIM(MVCPUID);/* @Z40LB64*/ 05889000 MVTINTF LA INTF#,1 1783 05890000 @DL01783 DS 0H 1784 05891000 * IF(INTF#=1&MVACTB(MVPATH#)=ON)|(INTF#=2&MVACTC(MVPATH#)= 05892000 * ON)|(INTF#=3&MVACTD(MVPATH#)=ON) THEN 1784 05893000 C INTF#,@CF00221 1784 05894000 BNE @GL00041 1784 05895000 LR @15,MVPATH# 1784 05896000 SLA @15,3 1784 05897000 ALR @15,MVENTPTR 1784 05898000 TM MVACTB-8(@15),B'01000000' 1784 05899000 BO @RT01784 1784 05900000 @GL00041 C INTF#,@CF00155 1784 05901000 BNE @GL00040 1784 05902000 LR @15,MVPATH# 1784 05903000 SLA @15,3 1784 05904000 ALR @15,MVENTPTR 1784 05905000 TM MVACTC-8(@15),B'00100000' 1784 05906000 BO @RT01784 1784 05907000 @GL00040 C INTF#,@CF00164 1784 05908000 BNE @RF01784 1784 05909000 LR @15,MVPATH# 1784 05910000 SLA @15,3 1784 05911000 ALR @15,MVENTPTR 1784 05912000 TM MVACTD-8(@15),B'00010000' 1784 05913000 BNO @RF01784 1784 05914000 @RT01784 DS 0H 1785 05915000 *INTFOKAY: 1785 05916000 * DO; /* @Z40LB64*/ 05917000 INTFOKAY DS 0H 1786 05918000 * MFRID#=MVCPUID(INTF#)&CPUIDMSK;/* @Z40LB64*/ 05919000 * 1786 05920000 LR @15,MVPATH# 1786 05921000 SLA @15,3 1786 05922000 LA @15,MVCPUIDS-8(@15,MVENTPTR) 1786 05923000 AL @15,@CF02349 1786 05924000 SLR @14,@14 1786 05925000 IC @14,MVCPUID(INTF#,@15) 1786 05926000 SLR MFRID#,MFRID# 1786 05927000 IC MFRID#,CPUIDMSK 1786 05928000 NR MFRID#,@14 1786 05929000 * /***************************************************/ 05930000 * /* */ 05931000 * /* IF THE MANUFACTURER'S ID CONVERSION @Z40LB64*/ 05932000 * /* TABLE ENTRY IS NOT VALID, PRINT AN @Z40LB64*/ 05933000 * /* ERROR MESSAGE. @Z40LB64*/ 05934000 * /* */ 05935000 * /***************************************************/ 05936000 * 1787 05937000 * IF MICVALID(MFRID#+1)=OFF THEN 1787 05938000 LR @06,MFRID# 1787 05939000 SLA @06,3 1787 05940000 L @01,MICPTR 1787 05941000 ALR @01,@06 1787 05942000 TM MICVALID(@01),B'10000000' 1787 05943000 BNZ @RF01787 1787 05944000 * DO; /* @Z40LB64*/ 05945000 * INCNMSG=ON; /* @Z40LB64*/ 05946000 L @15,MARGPTR 1789 05947000 OI INCNMSG(@15),B'10000000' 1789 05948000 * MVTTBL(1)=ON; /* @Z40LB64*/ 05949000 OI MVTTBL(@15),B'10000000' 1790 05950000 * MICTTBL(2)=ON;/* @Z40LB64*/ 05951000 OI MICTTBL+4(@15),B'00000010' 1791 05952000 * IUSFLD=ON; /* @Z40LB64*/ 05953000 OI IUSFLD(@15),B'00000001' 1792 05954000 * FLDCHAR(1)=STATYES;/* @Z40LB64*/ 05955000 MVI FLDCHAR+3(@15),C' ' 1793 05956000 MVC FLDCHAR+4(8,@15),FLDCHAR+3(@15) 1793 05957000 MVC FLDCHAR(3,@15),@CC02406 1793 05958000 * FLDCHAR(2)=STATNO;/* @Z40LB64*/ 05959000 MVI FLDCHAR+15(@15),C' ' 1794 05960000 MVC FLDCHAR+16(8,@15),FLDCHAR+15(@15) 1794 05961000 MVC FLDCHAR+12(3,@15),@CC02408 1794 05962000 * VSNINDEX(1)=MVVOLID;/* @Z40LB64*/ 05963000 MVC VSNINDEX(6,@15),MVVOLID(MVENTPTR) 1795 05964000 * CHRINDEX(1)=PREVCHR;/* @Z40LB64*/ 05965000 L @01,EARGPTR 1796 05966000 MVC CHRINDEX(5,@15),PREVCHR(@01) 1796 05967000 * CPUINDEX(2)=MVCPUID(INTF#);/* @Z40LB64*/ 05968000 STC @14,CPUINDEX+24(,@15) 1797 05969000 * CHRINDEX(2)=MICTCHR;/* @Z40LB64*/ 05970000 MVC CHRINDEX+24(5,@15),MICTCHR 1798 05971000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 05972000 L @15,@PC00001 1799 05973000 ST @15,@AL00001 1799 05974000 LA @15,CDALIST 1799 05975000 ST @15,@AL00001+4 1799 05976000 L @15,@CV02185 1799 05977000 LA @01,@AL00001 1799 05978000 BALR @14,@15 1799 05979000 * END; /* @Z40LB64*/ 05980000 * ELSE 1801 05981000 *MICTOKAY: 1801 05982000 * DO; /* @Z40LB64*/ 05983000 * 1801 05984000 B @RC01787 1801 05985000 @RF01787 DS 0H 1801 05986000 MICTOKAY DS 0H 1802 05987000 * /***********************************************/ 05988000 * /* */ 05989000 * /* THE MANUFACTURER'S ID CONVERSION @Z40LB64*/ 05990000 * /* TABLE (MICT) ENTRY IS VALID. COMPARE */ 05991000 * /* @Z40LB64*/ 05992000 * /* THE MICT MANUFACTURER'S IDENTIFIER @Z40LB64*/ 05993000 * /* WITH THE LIST OF IDENTIFIERS IN THE @Z40LB64*/ 05994000 * /* MSVI CPU RECORD ENTRIES WHICH ARE @Z40LB64*/ 05995000 * /* FLAGGED IN THE BASE VOLUME RECORD. @Z40LB64*/ 05996000 * /* */ 05997000 * /***********************************************/ 05998000 * 1802 05999000 * CPUFLAG=OFF; /* @Z40LB64*/ 06000000 NI CPUFLAG,B'01111111' 1802 06001000 * TEMPHWRD=BASCPUID;/* @Z40LB64*/ 06002000 LH @06,BASCPUID(,BASEVPTR) 1803 06003000 N @06,@CF02684 1803 06004000 STH @06,TEMPHWRD 1803 06005000 * MTCHMASK=HWRDMASK;/* @Z40LB64*/ 06006000 LH @06,HWRDMASK 1804 06007000 N @06,@CF02684 1804 06008000 STH @06,MTCHMASK 1804 06009000 *CPULOOP: 1805 06010000 * DO CPUID#=1 TO DIM(CPUMAP) WHILE CPUFLAG=OFF;/* 06011000 * @Z40LB64*/ 06012000 CPULOOP LA CPUID#,1 1805 06013000 @DL01805 TM CPUFLAG,B'10000000' 1805 06014000 BNZ @DC01805 1805 06015000 * IF TEMPHWRD>MTCHMASK THEN 1806 06016000 CLC TEMPHWRD(2),MTCHMASK 1806 06017000 BNH @RF01806 1806 06018000 * DO; /* @Z40LB64*/ 06019000 * 1807 06020000 * /*****************************************/ 06021000 * /* */ 06022000 * /* CPU ASSOCIATION FLAGGED IN @Z40LB64*/ 06023000 * /* MSIV BASE VOLUME RECORD. @Z40LB64*/ 06024000 * /* */ 06025000 * /*****************************************/ 06026000 * 1808 06027000 * IF MICMFID(MFRID#+1)=CPUIDREC(CPUID#) THEN 06028000 LR @15,MFRID# 1808 06029000 SLA @15,3 1808 06030000 LR @14,CPUID# 1808 06031000 SLA @14,3 1808 06032000 L @01,MICPTR 1808 06033000 ALR @01,@15 1808 06034000 L @15,CPUIDPTR 1808 06035000 ALR @15,@14 1808 06036000 CLC MICMFID(5,@01),CPUIDREC-8(@15) 1808 06037000 BNE @RF01808 1808 06038000 * DO; /* @Z40LB64*/ 06039000 * 1809 06040000 * /*************************************/ 06041000 * /* */ 06042000 * /* MATCHING MFR IDENTIFIER @Z40LB64*/ 06043000 * /* FOUND IN MSVI CPU RECORD. @Z40LB64*/ 06044000 * /* CHECK-OFF THE CPU @Z40LB64*/ 06045000 * /* ASSOCIATION FOR THE @Z40LB64*/ 06046000 * /* BASE VOLUME RECORD. @Z40LB64*/ 06047000 * /* */ 06048000 * /*************************************/ 06049000 * 1810 06050000 * CPUCHKFF=CPUCHKFF|(TEMPHWRD&(MTCHMASK+1 06051000 * ));/* @Z40LB64*/ 06052000 LA @15,1 1810 06053000 LH @14,MTCHMASK 1810 06054000 N @14,@CF02684 1810 06055000 ALR @15,@14 1810 06056000 LH @14,TEMPHWRD 1810 06057000 N @14,@CF02684 1810 06058000 NR @15,@14 1810 06059000 SLR @14,@14 1810 06060000 ICM @14,3,CPUCHKFF 1810 06061000 OR @15,@14 1810 06062000 STCM @15,3,CPUCHKFF 1810 06063000 * CPUFLAG=ON;/* @Z40LB64*/ 06064000 OI CPUFLAG,B'10000000' 1811 06065000 * END; /* @Z40LB64*/ 06066000 * TEMPHWRD=TEMPHWRD&MTCHMASK;/* @Z40LB64*/ 06067000 @RF01808 LH @15,MTCHMASK 1813 06068000 N @15,@CF02684 1813 06069000 LH @14,TEMPHWRD 1813 06070000 N @14,@CF02684 1813 06071000 NR @15,@14 1813 06072000 STH @15,TEMPHWRD 1813 06073000 * END; /* @Z40LB64*/ 06074000 * MTCHMASK=MTCHMASK/2;/* @Z40LB64*/ 06075000 @RF01806 LH @15,MTCHMASK 1815 06076000 N @15,@CF02684 1815 06077000 SRL @15,1 1815 06078000 STH @15,MTCHMASK 1815 06079000 * END CPULOOP; /* @Z40LB64*/ 06080000 * 1816 06081000 AL CPUID#,@CF00221 1816 06082000 C CPUID#,@CF00476 1816 06083000 BNH @DL01805 1816 06084000 @DC01805 DS 0H 1817 06085000 * /***********************************************/ 06086000 * /* */ 06087000 * /* IF A MATCHING MFR IDENTIFIER WAS @Z40LB64*/ 06088000 * /* NOT FOUND IN THE MSVI CPU RECORD, @Z40LB64*/ 06089000 * /* PRINT AN ERROR MESSAGE. @Z40LB64*/ 06090000 * /* */ 06091000 * /***********************************************/ 06092000 * 1817 06093000 * IF CPUFLAG=OFF THEN 1817 06094000 TM CPUFLAG,B'10000000' 1817 06095000 BNZ @RF01817 1817 06096000 * DO; /* @Z40LB64*/ 06097000 * MTCHMSG=ON;/* @Z40LB64*/ 06098000 L @06,MARGPTR 1819 06099000 OI MTCHMSG(@06),B'00010000' 1819 06100000 * MSVITBL(1)=ON;/* @Z40LB64*/ 06101000 OI MSVITBL(@06),B'00001000' 1820 06102000 * MVTTBL(2)=ON;/* @Z40LB64*/ 06103000 OI MVTTBL+4(@06),B'10000000' 1821 06104000 * MIFLD=ON; /* @Z40LB64*/ 06105000 OI MIFLD(@06),B'10000000' 1822 06106000 * FLDCHAR(1)=MICMFID(MFRID#+1);/* @Z40LB64*/ 06107000 MVI FLDCHAR+5(@06),C' ' 1823 06108000 MVC FLDCHAR+6(6,@06),FLDCHAR+5(@06) 1823 06109000 LR @15,MFRID# 1823 06110000 SLA @15,3 1823 06111000 L @01,MICPTR 1823 06112000 ALR @01,@15 1823 06113000 MVC FLDCHAR(5,@06),MICMFID(@01) 1823 06114000 * VSNINDEX(2)=MVVOLID;/* @Z40LB64*/ 06115000 MVC VSNINDEX+24(6,@06),MVVOLID(MVENTPTR) 1824 06116000 * CHRINDEX(2)=PREVCHR;/* @Z40LB64*/ 06117000 L @07,EARGPTR 1825 06118000 MVC CHRINDEX+24(5,@06),PREVCHR(@07) 1825 06119000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 06120000 L @15,@PC00001 1826 06121000 ST @15,@AL00001 1826 06122000 LA @15,CDALIST 1826 06123000 ST @15,@AL00001+4 1826 06124000 L @15,@CV02185 1826 06125000 LA @01,@AL00001 1826 06126000 BALR @14,@15 1826 06127000 * END; /* @Z40LB64*/ 06128000 * END MICTOKAY; /* @Z40LB64*/ 06129000 @RF01817 DS 0H 1829 06130000 * END INTFOKAY; /* @Z40LB64*/ 06131000 @RC01787 DS 0H 1830 06132000 * END MVTINTF; /* @Z40LB64*/ 06133000 @RF01784 AL INTF#,@CF00221 1830 06134000 C INTF#,@CF00164 1830 06135000 BNH @DL01783 1830 06136000 * END SAVLDCHK; /* @Z40LB64*/ 06137000 * 1831 06138000 @RF01782 AL MVPATH#,@CF00221 1831 06139000 C MVPATH#,@CF00155 1831 06140000 BNH @DL01781 1831 06141000 * /*************************************************************/ 06142000 * /* */ 06143000 * /* VERIFY THAT ALL CPU ASSOCIATIONS FLAGGED IN @Z40LB64*/ 06144000 * /* THE BASE VOLUME RECORD HAVE BEEN REFERENCED @Z40LB64*/ 06145000 * /* BY THE MOUNTED VOLUME TABLE ENTRY. @Z40LB64*/ 06146000 * /* */ 06147000 * /*************************************************************/ 06148000 * 1832 06149000 * TEMPHWRD=BASCPUID; /* @Z40LB64*/ 06150000 LH @05,BASCPUID(,BASEVPTR) 1832 06151000 N @05,@CF02684 1832 06152000 STH @05,TEMPHWRD 1832 06153000 * MTCHMASK=HWRDMASK; /* @Z40LB64*/ 06154000 LH @05,HWRDMASK 1833 06155000 N @05,@CF02684 1833 06156000 STH @05,MTCHMASK 1833 06157000 *CPUCHECK: 1834 06158000 * DO CPUID#=1 TO DIM(CPUMAP); /* @Z40LB64*/ 06159000 CPUCHECK LA CPUID#,1 1834 06160000 @DL01834 DS 0H 1835 06161000 * IF TEMPHWRD>MTCHMASK THEN 1835 06162000 CLC TEMPHWRD(2),MTCHMASK 1835 06163000 BNH @RF01835 1835 06164000 * DO; /* @Z40LB64*/ 06165000 * 1836 06166000 * /*******************************************************/ 06167000 * /* */ 06168000 * /* CPU ASSOCIATION FLAGGED IN BASE @Z40LB64*/ 06169000 * /* VOLUME RECORD. @Z40LB64*/ 06170000 * /* */ 06171000 * /*******************************************************/ 06172000 * 1837 06173000 * IF CPUCHKFF<=MTCHMASK THEN 1837 06174000 CLC CPUCHKFF(2),MTCHMASK 1837 06175000 BH @RF01837 1837 06176000 * DO; /* @Z40LB64*/ 06177000 * 1838 06178000 * /***************************************************/ 06179000 * /* */ 06180000 * /* CPU ASSOCIATION WAS NOT @Z40LB64*/ 06181000 * /* REFERENCED BY THE MOUNTED @Z40LB64*/ 06182000 * /* VOLUME TABLE ENTRY. PRINT @Z40LB64*/ 06183000 * /* ERROR MESSAGE. @Z40LB64*/ 06184000 * /* */ 06185000 * /***************************************************/ 06186000 * 1839 06187000 * MTCHMSG=ON; /* @Z40LB64*/ 06188000 L @07,MARGPTR 1839 06189000 OI MTCHMSG(@07),B'00010000' 1839 06190000 * MVTTBL(1)=ON; /* @Z40LB64*/ 06191000 OI MVTTBL(@07),B'10000000' 1840 06192000 * MSVITBL(2)=ON; /* @Z40LB64*/ 06193000 OI MSVITBL+4(@07),B'00001000' 1841 06194000 * MIFLD=ON; /* @Z40LB64*/ 06195000 OI MIFLD(@07),B'10000000' 1842 06196000 * FLDCHAR(1)= /* @Z40LB64*/ 06197000 * CPUIDREC(CPUID#);/* @Z40LB64*/ 06198000 MVI FLDCHAR+5(@07),C' ' 1843 06199000 MVC FLDCHAR+6(6,@07),FLDCHAR+5(@07) 1843 06200000 LR @05,CPUID# 1843 06201000 SLA @05,3 1843 06202000 L @01,CPUIDPTR 1843 06203000 ALR @01,@05 1843 06204000 MVC FLDCHAR(5,@07),CPUIDREC-8(@01) 1843 06205000 * KEYINDEX(2)=BASNAME;/* @Z40LB64*/ 06206000 MVC KEYINDEX+24(13,@07),BASNAME(BASEVPTR) 1844 06207000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 06208000 L @07,@PC00001 1845 06209000 ST @07,@AL00001 1845 06210000 LA @07,CDALIST 1845 06211000 ST @07,@AL00001+4 1845 06212000 L @15,@CV02185 1845 06213000 LA @01,@AL00001 1845 06214000 BALR @14,@15 1845 06215000 * END; /* @Z40LB64*/ 06216000 * TEMPHWRD=TEMPHWRD&MTCHMASK;/* @Z40LB64*/ 06217000 @RF01837 LH @07,MTCHMASK 1847 06218000 N @07,@CF02684 1847 06219000 LH @05,TEMPHWRD 1847 06220000 N @05,@CF02684 1847 06221000 NR @07,@05 1847 06222000 STH @07,TEMPHWRD 1847 06223000 * CPUCHKFF=CPUCHKFF&MTCHMASK;/* @Z40LB64*/ 06224000 NC CPUCHKFF(2),MTCHMASK 1848 06225000 * END; /* @Z40LB64*/ 06226000 * MTCHMASK=MTCHMASK/2; /* @Z40LB64*/ 06227000 @RF01835 LH @07,MTCHMASK 1850 06228000 N @07,@CF02684 1850 06229000 SRL @07,1 1850 06230000 STH @07,MTCHMASK 1850 06231000 * END CPUCHECK; /* @Z40LB64*/ 06232000 AL CPUID#,@CF00221 1851 06233000 C CPUID#,@CF00476 1851 06234000 BNH @DL01834 1851 06235000 * END MFRIDCHK; /* @Z40LB64*/ 06236000 * 1852 06237000 * /*****************************************************************/ 06238000 * /* */ 06239000 * /* IF A MATCHING MOUNTED VOLUME TABLE ENTRY WAS NOT @Z40LB64*/ 06240000 * /* FOUND, PRINT AN ERROR MESSAGE. @Z40LB64*/ 06241000 * /* */ 06242000 * /*****************************************************************/ 06243000 * 1853 06244000 * IF GETRC=NOTFOUND THEN 1853 06245000 @RF01776 L @05,EARGPTR 1853 06246000 CLC GETRC(2,@05),@CH00181 1853 06247000 BNE @RF01853 1853 06248000 * DO; /* @Z40LB64*/ 06249000 * MTCHMSG=ON; /* @Z40LB64*/ 06250000 L @05,MARGPTR 1855 06251000 OI MTCHMSG(@05),B'00010000' 1855 06252000 * MVTTBL(1)=ON; /* @Z40LB64*/ 06253000 OI MVTTBL(@05),B'10000000' 1856 06254000 * MSVITBL(2)=ON; /* @Z40LB64*/ 06255000 OI MSVITBL+4(@05),B'00001000' 1857 06256000 * VSNFLD=ON; /* @Z40LB64*/ 06257000 OI VSNFLD(@05),B'00000001' 1858 06258000 * FLDCHAR(1)=BASSERNO; /* @Z40LB64*/ 06259000 MVI FLDCHAR+6(@05),C' ' 1859 06260000 MVC FLDCHAR+7(5,@05),FLDCHAR+6(@05) 1859 06261000 MVC FLDCHAR(6,@05),BASSERNO(BASEVPTR) 1859 06262000 * KEYINDEX(2)=BASNAME; /* @Z40LB64*/ 06263000 MVC KEYINDEX+24(13,@05),BASNAME(BASEVPTR) 1860 06264000 * CALL IDCCH04(GDTTBL,CDALIST);/* @Z40LB64*/ 06265000 L @05,@PC00001 1861 06266000 ST @05,@AL00001 1861 06267000 LA @05,CDALIST 1861 06268000 ST @05,@AL00001+4 1861 06269000 L @15,@CV02185 1861 06270000 LA @01,@AL00001 1861 06271000 BALR @14,@15 1861 06272000 * END; /* @Z40LB64*/ 06273000 * 1862 06274000 * /*****************************************************************/ 06275000 * /* */ 06276000 * /* IF AN ERROR OCCURED WHILE OBTAINING THE MOUNTED @Z40LB64*/ 06277000 * /* VOLUME TABLE ENTRY, TERMINATE CHECKMSS PROCESSING. @Z40LB64*/ 06278000 * /* */ 06279000 * /*****************************************************************/ 06280000 * 1863 06281000 * IF GETRC=TABLERR THEN 1863 06282000 @RF01853 LA @05,12 1863 06283000 L @01,EARGPTR 1863 06284000 CH @05,GETRC(,@01) 1863 06285000 BNE @RF01863 1863 06286000 * DO; /* @Z40LB64*/ 06287000 * LASTCOND=LASTCC12; /* @Z40LB64*/ 06288000 L @15,@PC00001+8 1865 06289000 STH @05,LASTCOND(,@15) 1865 06290000 * RETURN; /* @Z40LB64*/ 06291000 @EL00010 DS 0H 1866 06292000 @EF00010 DS 0H 1866 06293000 @ER00010 LM @14,@12,@SA00010 1866 06294000 BR @14 1866 06295000 * END; /* @Z40LB64*/ 06296000 * END CPUREC; /* @Z40LB64*/ 06297000 B @EL00010 1868 06298000 * 1869 06299000 */* ******************************************************* @Z40LB64*/ 06300000 */* @Z40LB64*/ 06301000 */* PROCEDURE NAME - CHKTERM @Z40LB64*/ 06302000 */* @Z40LB64*/ 06303000 */* FUNCTION - PERFORM CHECKMSS TERMINATION. @Z40LB64*/ 06304000 */* @Z40LB64*/ 06305000 */* THE WORK DATA SET IS CLOSED AND DEALLOCATED @Z40LB64*/ 06306000 */* (IF NECESSARY). @Z40LB64*/ 06307000 */* @Z40LB64*/ 06308000 */* ALL ACQUIRED STORAGE IS RELEASED. @Z40LB64*/ 06309000 */* @Z40LB64*/ 06310000 */* THE FUNCTION COMPLETION OR TERMINATION @Z40LB64*/ 06311000 */* MESSAGE IS PRINTED. @Z40LB64*/ 06312000 */* @Z40LB64*/ 06313000 */* INPUT - (1) THE WORK DATA SET CONTROL BLOCK POINTER @Z40LB64*/ 06314000 */* (USED BY 'UEXCP' TO CLOSE THE DATA SET). @Z40LB64*/ 06315000 */* (2) THE CHECKMSS POOL IDENTIFIER @Z40LB64*/ 06316000 */* (USED BY 'UFPOOL' TO FREE ACQUIRED SPACE). @Z40LB64*/ 06317000 */* (3) THECHECKMSS CONDITION CODE ('LASTCOND'). @Z40LB64*/ 06318000 */* @Z40LB64*/ 06319000 */* OUTPUT - THE CHECKMSS FINAL COMPLETION OR TERMINATION @Z40LB64*/ 06320000 */* MESSAGE IS PRINTED CONTAINING THE CHECKMSS @Z40LB64*/ 06321000 */* FINAL CONDITION CODE. @Z40LB64*/ 06322000 */* @Z40LB64*/ 06323000 */* ******************************************************* @Z40LB64*/ 06324000 * 1869 06325000 *CHKTERM: 1869 06326000 * PROCEDURE; /* @Z40LB64*/ 06327000 CHKTERM STM @14,@12,@SA00011 1869 06328000 * OLDERID2=NEWERID2; 1870 06329000 L @06,@PC00001 1870 06330000 L @15,GDTTR2(,@06) 1870 06331000 MVC @TS00001(95),NEWERID2(@15) 1870 06332000 MVC OLDERID2(95,@15),@TS00001 1870 06333000 * NEWID2='CH1K'; /* @Z40LB64*/ 06334000 MVC NEWID2(4,@15),@CC02592 1871 06335000 * IF GDTDBG=NULLPTR THEN 1872 06336000 L @06,GDTDBG(,@06) 1872 06337000 LTR @06,@06 1872 06338000 BZ @RT01872 1872 06339000 * ; 1873 06340000 * ELSE 1874 06341000 * CALL IDCDB010(GDTTBL,'CH1Z'); /* @Z40LB64*/ 06342000 * 1874 06343000 L @06,@PC00001 1874 06344000 ST @06,@AL00001 1874 06345000 LA @15,@CC02593 1874 06346000 ST @15,@AL00001+4 1874 06347000 MVI @AL00001+4,X'80' 1874 06348000 L @15,GDTDBG(,@06) 1874 06349000 LA @01,@AL00001 1874 06350000 BALR @14,@15 1874 06351000 * /*****************************************************************/ 06352000 * /* */ 06353000 * /* BEFORE CLOSING THE WDS, ISSUE RELINQUISH TO UNBIND @ZA14727*/ 06354000 * /* THE SPACE BOUND WITH THE ACQUIRE ORDER. @ZA14727*/ 06355000 * /* */ 06356000 * /*****************************************************************/ 06357000 * 1875 06358000 * IF ACQSW=ON THEN /* @ZA14727*/ 06359000 @RT01872 TM ACQSW,B'01000000' 1875 06360000 BNO @RF01875 1875 06361000 * DO; /* @ZA14727*/ 06362000 * ACQLIST=ACQLIST&&ACQLIST; /* @ZA14727*/ 06363000 L @06,ACQPTR 1877 06364000 XC ACQLIST(96,@06),ACQLIST(@06) 1877 06365000 * ARLL=LENGTH(ACQLIST); /* @ZA14727*/ 06366000 MVC ARLL(4,@06),@CF02635 1878 06367000 * AROP='04'X; /* @ZA14727*/ 06368000 MVI AROP(@06),X'04' 1879 06369000 * ARBDUBD=ON; /* @ZA14727*/ 06370000 OI ARBDUBD(@06),B'10000000' 1880 06371000 * ARNMEXT=1; /* @ZA14727*/ 06372000 MVI ARNMEXT(@06),X'01' 1881 06373000 * ARVOL=SAVARVOL; /* @ZA14727*/ 06374000 MVC ARVOL(6,@06),SAVARVOL 1882 06375000 * AREXT(1,1:2)=SAVREXT1; /* @ZA14727*/ 06376000 MVC AREXT(2,@06),SAVREXT1 1883 06377000 * AREXT(1,3:4)=SAVREXT2; /* @ZA14727*/ 06378000 MVC AREXT+2(2,@06),SAVREXT2 1884 06379000 * CALL IDCSASS0(GDTTBL,RELINQ,ACQPTR,RSNCODE);/* @ZA14727*/ 06380000 L @06,@PC00001 1885 06381000 ST @06,@AL00001 1885 06382000 LA @02,RELINQ 1885 06383000 ST @02,@AL00001+4 1885 06384000 LA @02,ACQPTR 1885 06385000 ST @02,@AL00001+8 1885 06386000 LA @02,RSNCODE 1885 06387000 ST @02,@AL00001+12 1885 06388000 MVI @AL00001+12,X'80' 1885 06389000 L @15,GDTSSC(,@06) 1885 06390000 LA @01,@AL00001 1885 06391000 BALR @14,@15 1885 06392000 * RESPECIFY 1886 06393000 * RTNREG RSTD; 1886 06394000 * TESTRC=RTNREG; 1887 06395000 LR TESTRC,RTNREG 1887 06396000 * RESPECIFY 1888 06397000 * RTNREG UNRSTD; /* @ZA14727*/ 06398000 * 1888 06399000 * /*************************************************************/ 06400000 * /* */ 06401000 * /* IF A NON-ZERO RETURN CODE WAS RETURNED BY @ZA14727*/ 06402000 * /* THE 'USSC' MACRO, CALL 'SSCMSG' PROCEDURE @ZA14727*/ 06403000 * /* TO ISSUE THE APPROPRIATE ERROR MESSAGE. @ZA14727*/ 06404000 * /* */ 06405000 * /*************************************************************/ 06406000 * 1889 06407000 * IF TESTRC^=0 THEN /* @ZA14727*/ 06408000 LTR TESTRC,TESTRC 1889 06409000 BZ @RF01889 1889 06410000 * DO; /* @ZA14727*/ 06411000 * CALL SSCMSG(RSNCODE); /* @ZA14727*/ 06412000 LA @06,RSNCODE 1891 06413000 ST @06,@AL00001 1891 06414000 LA @01,@AL00001 1891 06415000 BAL @14,SSCMSG 1891 06416000 * LASTCOND=LASTCC04; /* @ZA14727*/ 06417000 L @06,@PC00001+8 1892 06418000 MVC LASTCOND(2,@06),@CH00044 1892 06419000 * END; /* @ZA14727*/ 06420000 * ELSE /* @ZA14727*/ 06421000 * ACQSW=OFF; /* @ZA14727*/ 06422000 B @RC01889 1894 06423000 @RF01889 NI ACQSW,B'10111111' 1894 06424000 * END; /* @ZA14727*/ 06425000 * 1895 06426000 @RC01889 DS 0H 1896 06427000 * /*****************************************************************/ 06428000 * /* */ 06429000 * /* CLOSE THE WORK DATA SET ('UEXCP' MACRO) IF IT WAS @Z40LB64*/ 06430000 * /* SUCCESSFULLY OPENED. @Z40LB64*/ 06431000 * /* */ 06432000 * /*****************************************************************/ 06433000 * 1896 06434000 * IF WDSCBPTR^=NULLPTR THEN 1896 06435000 @RF01875 L @06,WDSCBPTR 1896 06436000 LTR @06,@06 1896 06437000 BZ @RF01896 1896 06438000 * DO; /* @Z40LB64*/ 06439000 * CALL IDCIO050(GDTTBL,CLOSE,WDSCBPTR);/* @Z40LB64*/ 06440000 L @06,@PC00001 1898 06441000 ST @06,@AL00001 1898 06442000 LA @02,CLOSE 1898 06443000 ST @02,@AL00001+4 1898 06444000 LA @02,WDSCBPTR 1898 06445000 ST @02,@AL00001+8 1898 06446000 MVI @AL00001+8,X'80' 1898 06447000 L @15,GDTEXP(,@06) 1898 06448000 LA @01,@AL00001 1898 06449000 BALR @14,@15 1898 06450000 * RESPECIFY 1899 06451000 * RTNREG RSTD; 1899 06452000 * TESTRC=RTNREG; 1900 06453000 LR TESTRC,RTNREG 1900 06454000 * RESPECIFY 1901 06455000 * RTNREG UNRSTD; /* @Z40LB64*/ 06456000 * IF TESTRC^=0 THEN 1902 06457000 LTR TESTRC,TESTRC 1902 06458000 BZ @RF01902 1902 06459000 * LASTCOND=MAX(LASTCOND,LASTCC04);/* @Z40LB64*/ 06460000 L @06,@PC00001+8 1903 06461000 LH @15,LASTCOND(,@06) 1903 06462000 LA @14,4 1903 06463000 CR @15,@14 1903 06464000 BNL *+6 06465000 LR @15,@14 1903 06466000 STH @15,LASTCOND(,@06) 1903 06467000 * END; /* @Z40LB64*/ 06468000 * 1904 06469000 @RF01902 DS 0H 1905 06470000 * /*****************************************************************/ 06471000 * /* */ 06472000 * /* DEALLOCATE THE WORK DATA SET ('UDEALLOC' MACRO) @Z40LB64*/ 06473000 * /* IF DYNAMICALLY ALLOCATED BY CHECKMSS. @Z40LB64*/ 06474000 * /* */ 06475000 * /*****************************************************************/ 06476000 * 1905 06477000 * IF(ADDR(WDS)^=NULLPTR)&(ALLDDN^=INITDDN) THEN 1905 06478000 @RF01896 L @06,@PC00001+4 1905 06479000 L @06,FDTPTR+4(,@06) 1905 06480000 LTR @06,@06 1905 06481000 BZ @RF01905 1905 06482000 CLC ALLDDN(8,ALLPTR),INITDDN 1905 06483000 BE @RF01905 1905 06484000 * DO; /* @Z40LB64*/ 06485000 * CALL IDCSADL0(GDTTBL,ALLAGL);/* @Z40LB64*/ 06486000 L @06,@PC00001 1907 06487000 ST @06,@AL00001 1907 06488000 ST ALLPTR,@AL00001+4 1907 06489000 MVI @AL00001+4,X'80' 1907 06490000 L @15,GDTDLC(,@06) 1907 06491000 LA @01,@AL00001 1907 06492000 BALR @14,@15 1907 06493000 * RESPECIFY 1908 06494000 * RTNREG RSTD; 1908 06495000 * TESTRC=RTNREG; 1909 06496000 LR TESTRC,RTNREG 1909 06497000 * RESPECIFY 1910 06498000 * RTNREG UNRSTD; /* @Z40LB64*/ 06499000 * IF TESTRC^=0 THEN 1911 06500000 LTR TESTRC,TESTRC 1911 06501000 BZ @RF01911 1911 06502000 * LASTCOND=MAX(LASTCOND,LASTCC04);/* @Z40LB64*/ 06503000 L @15,@PC00001+8 1912 06504000 LH @14,LASTCOND(,@15) 1912 06505000 LA @07,4 1912 06506000 CR @14,@07 1912 06507000 BNL *+6 06508000 LR @14,@07 1912 06509000 STH @14,LASTCOND(,@15) 1912 06510000 * END; /* @Z40LB64*/ 06511000 * 1913 06512000 @RF01911 DS 0H 1914 06513000 * /*****************************************************************/ 06514000 * /* */ 06515000 * /* FREE ALL STORAGE ACQUIRED BY THE CHECKMSS FUNCTION @Z40LB64*/ 06516000 * /* ('UFPOOL' MACRO). @Z40LB64*/ 06517000 * /* */ 06518000 * /*****************************************************************/ 06519000 * 1914 06520000 * CALL IDCSAFP0(GDTTBL,CHPOOLID); /* @Z40LB64*/ 06521000 * 1914 06522000 @RF01905 L @15,@PC00001 1914 06523000 ST @15,@AL00001 1914 06524000 LA @14,@CC02193 1914 06525000 ST @14,@AL00001+4 1914 06526000 MVI @AL00001+4,X'80' 1914 06527000 L @15,GDTFPL(,@15) 1914 06528000 LA @01,@AL00001 1914 06529000 BALR @14,@15 1914 06530000 * /*****************************************************************/ 06531000 * /* */ 06532000 * /* PRINT THE PROPER CHECKMSS FUNCTION COMPLETION, @Z40LB64*/ 06533000 * /* FUNCTION TERMINATED, OR INSUFFICIENT STORAGE @Z40LB64*/ 06534000 * /* MESSAGE ('UPRINT' MACRO). @Z40LB64*/ 06535000 * /* */ 06536000 * /*****************************************************************/ 06537000 * 1915 06538000 * DARGLIST=''B; /* @Z40LB64*/ 06539000 L @15,DDSTRU 1915 06540000 XC DARGLIST(20,@15),DARGLIST(@15) 1915 06541000 * DARGSMOD=UNIVMSG; /* @Z40LB64*/ 06542000 MVC DARGSMOD(3,@15),@CC02418 1916 06543000 * LASTCOND=MAX(LASTCOND,SUUCOND); /* @ZA27324*/ 06544000 L @14,@PC00001+8 1917 06545000 LH @07,LASTCOND(,@14) 1917 06546000 LH @06,SUUCOND 1917 06547000 CR @07,@06 1917 06548000 BNL *+6 06549000 LR @07,@06 1917 06550000 STH @07,LASTCOND(,@14) 1917 06551000 * IF LASTCOND0 THEN 1943 06816000 L @07,@PC00012 1943 06817000 L @07,SSRCODE(,@07) 1943 06818000 LTR @07,@07 1943 06819000 BNP @RF01943 1943 06820000 * DO; /* @Y30LB39 06821000 * @Y30LB39*/ 06822000 * 1944 06823000 * /*************************************************************/ 06824000 * /* */ 06825000 * /* @Y30LB39*/ 06826000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND @Y30LB39*/ 06827000 * /* INITIALIZE THE PRINT ARGUMENT LIST TO READ @Y30LB39*/ 06828000 * /* IN THE ARRAY WHICH CONTAINS THE MSSC REASON @Y30LB39*/ 06829000 * /* CODES. @Y30LB39*/ 06830000 * /* @Y30LB39*/ 06831000 * /* */ 06832000 * /*************************************************************/ 06833000 * 1945 06834000 * /* @Y30LB39*/ 06835000 * SSDRGLT=''B; /* @Y30LB39*/ 06836000 XC SSDRGLT(20),SSDRGLT 1945 06837000 * SSDLPTR->DARGRETP=ADDR(SSINXLST);/* @Y30LB39*/ 06838000 LA @03,SSINXLST 1946 06839000 ST @03,DARGRETP(,@14) 1946 06840000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 06841000 MVC DARGSMOD(3,@14),SSMODSS0 1947 06842000 * SSDLPTR->DARGSENT=1; /* @Y30LB39*/ 06843000 MVI DARGSENT(@14),X'01' 1948 06844000 * SSDLPTR->DARGRETL=LENGTH(SSINXLST);/* @Y30LB39 06845000 * @Y30LB39*/ 06846000 * 1949 06847000 MVC DARGRETL(2,@14),@CH02209 1949 06848000 * /*************************************************************/ 06849000 * /* */ 06850000 * /* @Y30LB39*/ 06851000 * /* ISSUE UPRINT MACRO TO READ IN THE SEARCH @Y30LB39*/ 06852000 * /* ARRAY. @Y30LB39*/ 06853000 * /* @Y30LB39*/ 06854000 * /* */ 06855000 * /*************************************************************/ 06856000 * 1950 06857000 * /* @Y30LB39*/ 06858000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 06859000 * @Y30LB39*/ 06860000 * 1950 06861000 ST @15,@AL00001 1950 06862000 LA @03,@CF00117 1950 06863000 ST @03,@AL00001+4 1950 06864000 LA @03,SSDLPTR 1950 06865000 ST @03,@AL00001+8 1950 06866000 MVI @AL00001+8,X'80' 1950 06867000 L @15,GDTPRT(,@15) 1950 06868000 LA @01,@AL00001 1950 06869000 BALR @14,@15 1950 06870000 * /*************************************************************/ 06871000 * /* */ 06872000 * /* @Y30LB39*/ 06873000 * /* BEGIN DO LOOP TO SEARCH FOR THE MESSAGE @Y30LB39*/ 06874000 * /* INDEX CORRESPONDING TO THE REASON CODE @Y30LB39*/ 06875000 * /* PASSED AS THE FIRST ARGUMENT. @Y30LB39*/ 06876000 * /* THE DO LOOP BEGINS WITH THE SECOND ARRAY @Y30LB39*/ 06877000 * /* ENTRY SINCE THE FIRST IS REQUIRED BY THE @Y30LB39*/ 06878000 * /* SEARCH ARRAY ITSELF. @Y30LB39*/ 06879000 * /* THE SEARCH CONTINUES UNTIL THE REASON CODE @Y30LB39*/ 06880000 * /* IS FOUND, AT WHICH TIME THE SEARCH INDEX @Y30LB39*/ 06881000 * /* IS PASSED TO THE PRINT MODULE TO PRINT @Y30LB39*/ 06882000 * /* THE MESSAGE ASSOCIATED WITH THAT PARTICULAR @Y30LB39*/ 06883000 * /* REASON CODE. @Y30LB39*/ 06884000 * /* IF THERE IS NO MATCH FOUND IN THE ARRAY, @Y30LB39*/ 06885000 * /* THEN THE INDEX WILL BE THE LAST POSITION IN @Y30LB39*/ 06886000 * /* ARRAY. THIS WILL BE THE INDICATION THAT @Y30LB39*/ 06887000 * /* THE REASON CODE ITSELF SHOULD BE PRINTED. @Y30LB39*/ 06888000 * /* @Y30LB39*/ 06889000 * /* */ 06890000 * /*************************************************************/ 06891000 * 1951 06892000 * /* @Y30LB39*/ 06893000 * ENTRYNUM=1; /* @Y30LB39*/ 06894000 LA ENTRYNUM,1 1951 06895000 * DO UNTIL(SSRHALF=SSARRAY(ENTRYNUM)|SSARRAY(ENTRYNUM)=0); 1952 06896000 @DL01952 DS 0H 1953 06897000 * ENTRYNUM=ENTRYNUM+1; /* @Y30LB39*/ 06898000 AL ENTRYNUM,@CF00221 1953 06899000 * END; /* @Y30LB39 06900000 * @Y30LB39*/ 06901000 * 1954 06902000 @DE01952 L @03,@PC00012 1954 06903000 LR @15,ENTRYNUM 1954 06904000 ALR @15,@15 1954 06905000 LH @15,SSARRAY-2(@15) 1954 06906000 CH @15,SSRHALF(,@03) 1954 06907000 BE @DC01952 1954 06908000 SLR @14,@14 1954 06909000 CR @15,@14 1954 06910000 BNE @DL01952 1954 06911000 @DC01952 DS 0H 1955 06912000 * /*************************************************************/ 06913000 * /* */ 06914000 * /* @Y30LB39*/ 06915000 * /* THE CORRECT INDEX HAS BEEN FOUND @Y30LB39*/ 06916000 * /* @Y30LB39*/ 06917000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND FILL @Y30LB39*/ 06918000 * /* OUT THE PRINT ARGUMENT FIELDS WITH EITHER: @Y30LB39*/ 06919000 * /* 1) THE INDEX CORRESPONDING TO THE REASON @Y30LB39*/ 06920000 * /* CODE OR @Y30LB39*/ 06921000 * /* 2) THE LAST INDEX AND THE REASON CODE @Y30LB39*/ 06922000 * /* ITSELF AS A STATIC TEXT INSERT. @Y30LB39*/ 06923000 * /* @Y30LB39*/ 06924000 * /* */ 06925000 * /*************************************************************/ 06926000 * 1955 06927000 * /* @Y30LB39*/ 06928000 * SSDRGLT=''B; /* @Y30LB39*/ 06929000 XC SSDRGLT(20),SSDRGLT 1955 06930000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 06931000 L @07,SSDLPTR 1956 06932000 MVC DARGSMOD(3,@07),SSMODSS0 1956 06933000 * SSDLPTR->DARGSENT=ENTRYNUM; /* @Y30LB39*/ 06934000 STC ENTRYNUM,DARGSENT(,@07) 1957 06935000 * IF SSARRAY(ENTRYNUM)=0 THEN /* @Y30LB39*/ 06936000 CR @15,@14 1958 06937000 BNE @RF01958 1958 06938000 * DO; /* @Y30LB39*/ 06939000 * SSDLPTR->DARGDBP=ADDR(SSRCODE);/* @Y30LB39*/ 06940000 ST @03,DARGDBP(,@07) 1960 06941000 * SSDLPTR->DARGILP=LENGTH(SSRCODE);/* @Y30LB39*/ 06942000 MVC DARGILP(2,@07),@CH00044 1961 06943000 * END; /* @Y30LB39*/ 06944000 * END; /* @Y30LB39*/ 06945000 * /* @Y30LB39*/ 06946000 * 1964 06947000 * /*****************************************************************/ 06948000 * /* */ 06949000 * /* @Y30LB39*/ 06950000 * /* THE FIRST ARGUMENT WAS ZERO, INDICATING THAT @Y30LB39*/ 06951000 * /* THIS ROUTINE IS TO PRINT OUT THE ECB POST @Y30LB39*/ 06952000 * /* CODE. THEREFORE, CLEAR THE DYNAMIC ARGUMENT @Y30LB39*/ 06953000 * /* LIST AND FILL OUT THE PRINT ARGUMENT FIELDS @Y30LB39*/ 06954000 * /* SO THE STATIC TEXT MODULE, IDCTSCM0, WILL @Y30LB39*/ 06955000 * /* PRINT OUT THE MESSAGE ASSOCIATED WITH THE @Y30LB39*/ 06956000 * /* POST CODE. @Y30LB39*/ 06957000 * /* @Y30LB39*/ 06958000 * /* */ 06959000 * /*****************************************************************/ 06960000 * 1964 06961000 * /* @Y30LB39*/ 06962000 * ELSE /* @Y30LB39*/ 06963000 * DO; /* @Y30LB39*/ 06964000 B @RC01943 1964 06965000 @RF01943 DS 0H 1965 06966000 * SSDRGLT=''B; /* @Y30LB39*/ 06967000 XC SSDRGLT(20),SSDRGLT 1965 06968000 * SSDLPTR->DARGSMOD=SSMODCM0; /* @Y30LB39*/ 06969000 L @15,SSDLPTR 1966 06970000 MVC DARGSMOD(3,@15),SSMODCM0 1966 06971000 * SSDLPTR->DARGSENT=SSMSGNUM; /* @Y30LB39*/ 06972000 MVC DARGSENT(1,@15),SSMSGNUM 1967 06973000 * SSDLPTR->DARGDBP=ADDR(SSECBCD);/* @Y30LB39*/ 06974000 L @14,@PC00012+4 1968 06975000 ST @14,DARGDBP(,@15) 1968 06976000 * SSDLPTR->DARGILP=LENGTH(SSECBCD);/* @Y30LB39*/ 06977000 MVC DARGILP(2,@15),@CH00221 1969 06978000 * END; /* @Y30LB39 06979000 * @Y30LB39*/ 06980000 * 1970 06981000 * /*****************************************************************/ 06982000 * /* */ 06983000 * /* @Y30LB39*/ 06984000 * /* ISSUE UPRINT MACRO TO PRINT THE REASON @Y30LB39*/ 06985000 * /* CODE MESSAGE OR THE ECB POST CODE MESSAGE. @Y30LB39*/ 06986000 * /* @Y30LB39*/ 06987000 * /* */ 06988000 * /*****************************************************************/ 06989000 * 1971 06990000 * /* @Y30LB39*/ 06991000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 06992000 * @Y30LB39*/ 06993000 * 1971 06994000 @RC01943 L @15,@PC00001 1971 06995000 ST @15,@AL00001 1971 06996000 LA @14,@CF00117 1971 06997000 ST @14,@AL00001+4 1971 06998000 LA @14,SSDLPTR 1971 06999000 ST @14,@AL00001+8 1971 07000000 MVI @AL00001+8,X'80' 1971 07001000 L @15,GDTPRT(,@15) 1971 07002000 LA @01,@AL00001 1971 07003000 BALR @14,@15 1971 07004000 * /*****************************************************************/ 07005000 * /* */ 07006000 * /* @Y30LB39*/ 07007000 * /* RETURN TO CALLER WITH A RETURN CODE OF ZERO @Y30LB39*/ 07008000 * /* @Y30LB39*/ 07009000 * /* */ 07010000 * /*****************************************************************/ 07011000 * 1972 07012000 * /* @Y30LB39 07013000 * @Y30LB39*/ 07014000 * RETURN CODE(0); /* @Y30LB39 07015000 * @Y30LB39*/ 07016000 SLR @15,@15 1972 07017000 L @14,@SA00012 1972 07018000 LM @00,@12,@SA00012+8 1972 07019000 BR @14 1972 07020000 * END SSCMSG; /* @Y30LB39*/ 07021000 * END IDCCH01 /* @Z40LB64*/ 07022000 * 1974 07023000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 07024000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 07025000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 07026000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 07027000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 07028000 */*%INCLUDE SYSLIB (IDCDF11 ) */ 07029000 */*%INCLUDE SYSLIB (IDCDF56 ) */ 07030000 */*%INCLUDE SYSLIB (IEZBASEV) */ 07031000 */*%INCLUDE SYSLIB (IEZCOPYV) */ 07032000 */*%INCLUDE SYSLIB (IEZDUPV ) */ 07033000 */*%INCLUDE SYSLIB (IEZBCDV ) */ 07034000 */*%INCLUDE SYSLIB (IEZCPUID) */ 07035000 */*%INCLUDE SYSLIB (IEZRVVI ) */ 07036000 */*%INCLUDE SYSLIB (IDCCSCH ) */ 07037000 */*%INCLUDE SYSLIB (IDCDF52 ) */ 07038000 * 1974 07039000 * ; 1974 07040000 @DATA DS 0H 07041000 @CH00288 DC H'5' 07042000 @CH00158 DC H'6' 07043000 @CH00567 DC H'12' 07044000 @CH02250 DC H'38' 07045000 @CH02654 DC H'151' 07046000 @SX02697 XC MOVEAREA(0,COTPTR),MOVEAREA(COTPTR) 07047000 @DATD DSECT 07048000 DS 0F 07049000 @SA00001 DS 18F 07050000 @PC00001 DS 3F 07051000 @SA00002 DS 13F 07052000 @SA00005 DS 15F 07053000 @SA00006 DS 15F 07054000 @SA00007 DS 15F 07055000 @SA00011 DS 15F 07056000 @SA00003 DS 13F 07057000 @SA00004 DS 15F 07058000 @SA00012 DS 15F 07059000 @PC00012 DS 2F 07060000 @SA00008 DS 11F 07061000 @SA00010 DS 0F 07062000 @SA00009 DS 0F 07063000 DS 15F 07064000 @AL00001 DS 6A 07065000 @TF00001 DS F 07066000 @AFTEMPS DS 2F 07067000 IDCCH01 CSECT 07068000 DS 0F 07069000 @CF00117 DC F'0' 07070000 @CF00221 DC F'1' 07071000 @CH00221 EQU @CF00221+2 07072000 @CF00155 DC F'2' 07073000 @CH00155 EQU @CF00155+2 07074000 @CF00164 DC F'3' 07075000 @CF00044 DC F'4' 07076000 @CH00044 EQU @CF00044+2 07077000 @CF00181 DC F'8' 07078000 @CH00181 EQU @CF00181+2 07079000 @CF01644 DC F'9' 07080000 @CF00446 DC F'10' 07081000 @CF00476 DC F'16' 07082000 @CF02303 DC F'21' 07083000 @CF01515 DC F'22' 07084000 @CH01515 EQU @CF01515+2 07085000 @CF00312 DC F'24' 07086000 @CF00223 DC F'32' 07087000 @CF02625 DC F'36' 07088000 @CF02619 DC F'40' 07089000 @CF00809 DC F'44' 07090000 @CF02607 DC F'56' 07091000 @CF01072 DC F'64' 07092000 @CF02630 DC F'68' 07093000 @CF02621 DC F'80' 07094000 @CF02633 DC F'92' 07095000 @CF02635 DC F'96' 07096000 @CF02659 DC F'112' 07097000 @CF02209 DC F'120' 07098000 @CH02209 EQU @CF02209+2 07099000 @CF02656 DC F'152' 07100000 @CF02213 DC F'200' 07101000 @CF02657 DC F'224' 07102000 @CH02657 EQU @CF02657+2 07103000 @CF02305 DC F'255' 07104000 @CF01098 DC F'256' 07105000 @CH01098 EQU @CF01098+2 07106000 @CF00377 DC F'384' 07107000 @CF02205 DC F'512' 07108000 @CF01719 DC F'1024' 07109000 @CF02645 DC F'1056' 07110000 @CF01716 DC F'1280' 07111000 @CF02641 DC F'1664' 07112000 @CF02664 DC F'1680' 07113000 @CF01713 DC F'4560' 07114000 @CF02695 DC F'-938' 07115000 @CF02696 DC F'-937' 07116000 @CF02691 DC F'-130' 07117000 @CF02692 DC F'-129' 07118000 @CF02693 DC F'-128' 07119000 @CF02694 DC F'-127' 07120000 @CF02688 DC F'-4' 07121000 @CF02690 DC F'-3' 07122000 @CF02689 DC F'-2' 07123000 @CF02349 DC F'-1' 07124000 @CF02684 DC XL4'0000FFFF' 07125000 @DATD DSECT 07126000 DS 0D 07127000 LISTSCAN DS A 07128000 IOCSPTR DS A 07129000 OPNPTR DS A 07130000 DDSTRU DS A 07131000 FSADDR DS A 07132000 ERCNVADR DS A 07133000 CCMSGPTR DS A 07134000 CMMSGPTR DS A 07135000 CTMSGPTR DS A 07136000 ELEMENT DS F 07137000 RPMPTR DS A 07138000 PABPTR DS A 07139000 DVBPTR DS A 07140000 LPBPTR DS A 07141000 VMXPTR DS A 07142000 VVATPTR DS A 07143000 MVCBPTR DS A 07144000 MVIBPTR DS A 07145000 SCCFPTR DS A 07146000 SCENTPTR DS A 07147000 VICFPTR DS A 07148000 TVCFPTR DS A 07149000 CIENTPTR DS A 07150000 MICPTR DS A 07151000 CDBPTR DS A 07152000 CMCBPTR DS A 07153000 CMENTPTR DS A 07154000 COPYVPTR DS A 07155000 CPUIDPTR DS A 07156000 COTBPTR DS A 07157000 ACQPTR DS A 07158000 SPACEPTR DS A 07159000 SPACEAMT DS F 07160000 IOINFPTR DS A 07161000 INFOAPTR DS A 07162000 CKAGLPTR DS A 07163000 WDSCBPTR DS A 07164000 UCBPTR DS A 07165000 RSNCODE DS F 07166000 SSDLPTR DS A 07167000 LISTPTR DS A 07168000 CISA# DS H 07169000 SUUCOND DS H 07170000 TEMPHWRD DS FL2 07171000 ORG TEMPHWRD 07172000 TMPBYTE1 DS FL1 07173000 TMPBYTE2 DS FL1 07174000 ORG TEMPHWRD+2 07175000 SDG# DS H 07176000 SECT# DS H 07177000 VADCHNL DS H 07178000 RPAGE# DS H 07179000 RECARG DS FL2 07180000 ORG RECARG 07181000 RECTYPE DS BL1 07182000 ORG RECTYPE 07183000 MSVIBASE DS BL1 07184000 MSVICOPY EQU RECTYPE+0 07185000 MSVIDUP EQU RECTYPE+0 07186000 MSVICPU EQU RECTYPE+0 07187000 @NM00201 EQU RECTYPE+0 07188000 ORG RECARG+1 07189000 RECCODE DS FL1 07190000 ORG RECARG+2 07191000 CDBVUA# DS H 07192000 SETRC DS H 07193000 COPYECB DS FL1 07194000 LISTLN DS FL1 07195000 @TS00001 DS CL95 07196000 DS CL3 07197000 CDALIST DS CL781 07198000 ORG CDALIST 07199000 IVADPTR DS 16A 07200000 IVVITPTR DS 16A 07201000 IPSTPTR DS 16A 07202000 ILTRPTR DS 16A 07203000 IMERPTR DS AL4 07204000 CCHHRPTR DS AL4 07205000 EARGPTR DS AL4 07206000 MARGPTR DS AL4 07207000 VICOPTR DS AL4 07208000 TVLCOPTR DS AL4 07209000 MVTCOPTR DS AL4 07210000 CMCOPTR DS 16A 07211000 CDBCOPTR DS AL4 07212000 VVACOPTR DS AL4 07213000 VMXCOPTR DS AL4 07214000 RPMCOPTR DS AL4 07215000 DVBCOPTR DS AL4 07216000 LPBCOPTR DS AL4 07217000 VVICOPTR DS 16A 07218000 VADCOPTR DS 16A 07219000 PSTCOPTR DS 16A 07220000 VVATADDR DS AL4 07221000 CBMADDR DS AL4 07222000 CIADDR DS AL4 07223000 MVCBADDR DS AL4 07224000 CMBUFPTR DS 20A 07225000 RWCSPTR DS AL4 07226000 EXARGPTR DS AL4 07227000 WCSBFPTR DS AL4 07228000 CHRADDR1 DS AL4 07229000 CHRADDR2 DS AL4 07230000 RVVIPTR DS AL4 07231000 MSVIAPTR DS AL4 07232000 MSGAPTR DS AL4 07233000 TEXTAPTR DS AL4 07234000 FMTAPTR DS AL4 07235000 BDATAPTR DS AL4 07236000 SAVLDCNT DS FL2 07237000 VLDSAID DS 16H 07238000 VLDSSID DS 16H 07239000 MSFVLCNT DS FL2 07240000 VLDMSFID DS 4H 07241000 @NM00162 DS BL1 07242000 ORG @NM00162 07243000 MSCCHK DS BL1 07244000 SACHK EQU @NM00162+0 07245000 MSVICHK EQU @NM00162+0 07246000 @NM00163 EQU @NM00162+0 07247000 ORG CDALIST+781 07248000 PRNTLIST DS CL20 07249000 NOSPACE DS BL1 07250000 DS CL2 07251000 MTCHMASK DS BL2 07252000 UNITLIST DS CL12 07253000 ORG UNITLIST 07254000 UNITCNT DS FL2 07255000 UNITLEN DS FL2 07256000 UNITTYPE DS CL8 07257000 ORG UNITLIST+12 07258000 WDSDDN DS CL8 07259000 SWITCHES DS BL1 07260000 ORG SWITCHES 07261000 PSTFLAG DS BL1 07262000 ACQSW EQU SWITCHES+0 07263000 @NM00197 EQU SWITCHES+0 07264000 ORG SWITCHES+1 07265000 SAVARVOL DS CL6 07266000 SAVREXT1 DS CL2 07267000 SAVREXT2 DS CL2 07268000 MICTCHR DS CL5 07269000 ENDFLAG DS BL1 07270000 LASTBASE DS CL6 07271000 DS CL3 07272000 DUMPLIST DS CL17 07273000 ERRFLAG DS BL1 07274000 CASEFLAG DS BL1 07275000 CPUFLAG DS BL1 07276000 CPUCHKFF DS BL2 07277000 SSDRGLT DS CL20 07278000 DS CL2 07279000 SSINXLST DS CL120 07280000 ORG SSINXLST 07281000 SSARRAY DS 60H 07282000 ORG SSINXLST+120 07283000 SAARRAY DS 16BL1 07284000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 07285000 @ENDDATD EQU * 07286000 IDCCH01 CSECT 07287000 DS 0F 07288000 @SIZDATD DC AL1(0) 07289000 DC AL3(@ENDDATD-@DATD) 07290000 @CV02183 DC V(IDCCH02) 07291000 @CV02184 DC V(IDCCH03) 07292000 @CV02185 DC V(IDCCH04) 07293000 DS 0D 07294000 MSVINFND DC XL4'208' 07295000 DUMMYPTR DC F'-1' 07296000 RVVLEN DC AL2(68) 07297000 HWRDMASK DC XL2'7FFF' 07298000 SSIDBASE DC XL2'0800' 07299000 LTROFFST DC XL2'B0' 07300000 MVTBLID DC XL1'20' 07301000 VITBLID DC XL1'40' 07302000 TVLTBLID DC XL1'50' 07303000 CFGTBLID DC XL1'70' 07304000 CPUIDMSK DC XL1'0F' 07305000 SSMSGNUM DC AL1(56) 07306000 @CC02519 DC C'MSVIREC' 07307000 @CC02394 DC C' ' 07308000 @CC02244 DC C'SDG00' 07309000 @CC02476 DC C'SAREC' 07310000 @CC02518 DC C'CPUID' 07311000 @CC02193 DC C'CH00' 07312000 @CC02430 DC C'CH1A' 07313000 @CC02434 DC C'CH1X' 07314000 @CC02440 DC C'CH1B' 07315000 @CC02448 DC C'CH1C' 07316000 @CC02455 DC C'CH1D' 07317000 @CC02464 DC C'CH1E' 07318000 @CC02471 DC C'CH1F' 07319000 @CC02478 DC C'CH1U' 07320000 @CC02498 DC C'CH1G' 07321000 @CC02513 DC C'CH1Y' 07322000 @CC02517 DC C'CH1H' 07323000 @CC02520 DC C'CH1W' 07324000 @CC02524 DC C'CH1I' 07325000 @CC02574 DC C'CH1J' 07326000 @CC02592 DC C'CH1K' 07327000 @CC02593 DC C'CH1Z' 07328000 @CC02614 DC C'SSAA' 07329000 @CC02406 DC C'YES' 07330000 @CC02408 DC C'NO ' 07331000 @CC02418 DC C'UV0' 07332000 @CC02426 EQU @CC02193 07333000 ALL DC CL3'ALL' 07334000 FORMAT DC CL4'FORM' 07335000 HSECOND DC CL4'HSEC' 07336000 CLOCK DC CL4'KLOK' 07337000 SETZERO DC CL4'ZERO' 07338000 SETBLANK DC CL4'BLNK' 07339000 NOSET DC CL4'NSET' 07340000 OVERRIDE DC CL4'OVRD' 07341000 ACQUIRE DC CL8'ACQUIRE ' 07342000 RELINQ DC CL8'RELINQ ' 07343000 MOUNT DC CL8'MOUNT ' 07344000 DEMOUNT DC CL8'DEMOUNT ' 07345000 DEFINE DC CL8'DEFINE ' 07346000 MOVE DC CL8'MOVE ' 07347000 TRACEQ DC CL8'TRACEQ ' 07348000 COPYTABL DC CL8'COPYTABL' 07349000 COPYCRTG DC CL8'COPYCRTG' 07350000 COPYVOL DC CL8'COPYVOL ' 07351000 VVIC DC CL8'VVIC ' 07352000 TUNE DC CL8'TUNE ' 07353000 NAMES DC CL4'NAME' 07354000 UNIT DC CL4'UNIT' 07355000 SHR DC CL4'SHR ' 07356000 EXCL DC CL4'EXCL' 07357000 NOWAIT DC CL4'NWAI' 07358000 WAIT DC CL4'WAIT' 07359000 SECCHECK DC CL8'SECCHECK' 07360000 SCRVTOC DC CL8'SCRVTOC ' 07361000 GETVTOC DC CL8'GETVTOC ' 07362000 PUTVTOC DC CL8'PUTVTOC ' 07363000 RECATLG DC CL8'RECATLG ' 07364000 INITVOL DC CL8'INITVOL ' 07365000 CHECK DC CL8'CHECK ' 07366000 POSTUCB DC CL8'POSTUCB ' 07367000 GET DC CL8'GET ' 07368000 PUT DC CL8'PUT ' 07369000 CLOSE DC CL8'CLOSE ' 07370000 OPEN DC CL8'OPEN ' 07371000 RVOPENR DC CL8'OPENR ' 07372000 RVRDCNT DC CL8'READCNT ' 07373000 RVREADKD DC CL8'READKD ' 07374000 RVSPACCR DC CL8'SPACCR ' 07375000 RVFWRITE DC CL8'FWRITE ' 07376000 RVWRITER DC CL8'WRITEREC' 07377000 PUTLABEL DC CL8'PUTLABEL' 07378000 GETLABEL DC CL8'GETLABEL' 07379000 CANCEL DC CL8'CANCEL ' 07380000 SET DC CL8'SET ' 07381000 SELECTX DC CL8'SELECTX ' 07382000 CHANGEX DC CL8'CHANGEX ' 07383000 SELECTDD DC CL8'SELECTDD' 07384000 SELECTDS DC CL8'SELECTDS' 07385000 TBLREST DC CL8'TBLREST ' 07386000 NULLIFYC DC CL8'NULLIFYC' 07387000 RDMSC DC CL8'RDMSC ' 07388000 RDMSCTBL DC CL8'RDMSCTBL' 07389000 RDCARTLB DC CL8'RDCARTLB' 07390000 AUDITCEL DC CL8'AUDITCEL' 07391000 RDSTGAD DC CL8'RDSTGAD ' 07392000 MODID DC CL4'CH01' 07393000 FIXAREA DS CL768 07394000 ORG FIXAREA 07395000 @NM00191 DS CL256 07396000 ORG @NM00191 07397000 @NM00192 DC 256X'00' 07398000 ORG FIXAREA+256 07399000 @NM00193 DS CL256 07400000 ORG @NM00193 07401000 @NM00194 DC 256X'00' 07402000 ORG FIXAREA+512 07403000 @NM00195 DS CL256 07404000 ORG @NM00195 07405000 @NM00196 DC 256X'00' 07406000 ORG FIXAREA+768 07407000 INITDDN DC X'0000000000000000' 07408000 SSMODSS0 DC CL3'SS0' 07409000 SSMODCM0 DC CL3'CM0' 07410000 BITMASK DC X'80' 07411000 DC X'40' 07412000 DC X'20' 07413000 DC X'10' 07414000 DC X'08' 07415000 DC X'04' 07416000 DC X'02' 07417000 DC X'01' 07418000 SASECTOR DC XL1'5F' 07419000 DC XL1'60' 07420000 DC XL1'61' 07421000 DC XL1'62' 07422000 DC XL1'63' 07423000 DC XL1'64' 07424000 DC XL1'69' 07425000 DC XL1'6B' 07426000 DC XL1'C0' 07427000 DC XL1'C1' 07428000 DC XL1'C2' 07429000 DC XL1'C3' 07430000 DC XL1'C4' 07431000 DC XL1'C5' 07432000 DC XL1'C6' 07433000 DC XL1'C7' 07434000 DC XL1'C8' 07435000 DC XL1'C9' 07436000 DC XL1'CA' 07437000 DC XL1'CB' 07438000 DC XL1'CC' 07439000 DC XL1'06' 07440000 SECTRTBL DC X'7C' 07441000 DC X'7D' 07442000 DC X'7E' 07443000 DC X'7F' 07444000 SAUCB DC CL3'800' 07445000 DC CL3'810' 07446000 DC CL3'820' 07447000 DC CL3'830' 07448000 DC CL3'840' 07449000 DC CL3'850' 07450000 DC CL3'860' 07451000 DC CL3'870' 07452000 DC CL3'880' 07453000 DC CL3'890' 07454000 DC CL3'8A0' 07455000 DC CL3'8B0' 07456000 DC CL3'8C0' 07457000 DC CL3'8D0' 07458000 DC CL3'8E0' 07459000 DC CL3'8F0' 07460000 DS CL2 07461000 CP0001@ DC AL4(VAD1CASE) 07462000 DC AL4(VAD2CASE) 07463000 DC AL4(VAD1CASE) 07464000 DC AL4(VAD2CASE) 07465000 DC AL4(VAD1CASE) 07466000 DC AL4(VAD2CASE) 07467000 DC AL4(VVI1CASE) 07468000 DC AL4(VVI2CASE) 07469000 DC AL4(PSTCASE) 07470000 DC AL4(PSTCASE) 07471000 DC AL4(PSTCASE) 07472000 DC AL4(PSTCASE) 07473000 DC AL4(PSTCASE) 07474000 DC AL4(PSTCASE) 07475000 DC AL4(PSTCASE) 07476000 DC AL4(PSTCASE) 07477000 DC AL4(PSTCASE) 07478000 DC AL4(PSTCASE) 07479000 DC AL4(PSTCASE) 07480000 DC AL4(PSTCASE) 07481000 DC AL4(PSTCASE) 07482000 DC AL4(LTRCASE) 07483000 CP0002@ DC AL4(VSECCASE) 07484000 DC AL4(VEXCCASE) 07485000 DC AL4(VBNDCASE) 07486000 DC AL4(VWRTCASE) 07487000 DC AL4(VMF1CASE) 07488000 DC AL4(VMF2CASE) 07489000 CP0003@ DC AL4(TSECCASE) 07490000 DC AL4(TEXCCASE) 07491000 DC AL4(TBNDCASE) 07492000 DC AL4(TWRTCASE) 07493000 DC AL4(TVOLCASE) 07494000 DC AL4(TMF1CASE) 07495000 DC AL4(TMF2CASE) 07496000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 07497000 @01 EQU 01 07498000 @02 EQU 02 07499000 @03 EQU 03 07500000 @04 EQU 04 07501000 @05 EQU 05 07502000 @06 EQU 06 07503000 @07 EQU 07 07504000 @08 EQU 08 07505000 @09 EQU 09 07506000 @10 EQU 10 07507000 @11 EQU 11 07508000 @12 EQU 12 07509000 @13 EQU 13 07510000 @14 EQU 14 07511000 @15 EQU 15 07512000 ENTRYNUM EQU @02 07513000 Y EQU @02 07514000 X EQU @04 07515000 INTF# EQU @05 07516000 CPUID# EQU @06 07517000 MFRID# EQU @07 07518000 CASE# EQU @06 07519000 TEMPBYTE EQU @03 07520000 LASTDUP EQU @07 07521000 LASTCOPY EQU @06 07522000 COTPTR EQU @03 07523000 COTLEN EQU @02 07524000 SATBLPTR EQU @07 07525000 VVA# EQU @02 07526000 VUA# EQU @02 07527000 PST# EQU @03 07528000 SAID# EQU @04 07529000 LUA# EQU @06 07530000 CHRTBL# EQU @02 07531000 CBMBIT# EQU @02 07532000 CMBLK# EQU @05 07533000 MSF# EQU @04 07534000 WDSAPTR EQU @06 07535000 ALLPTR EQU @07 07536000 OVRLYAMT EQU @02 07537000 OVRLDAMT EQU @03 07538000 BCDVPTR EQU @05 07539000 DUPVPTR EQU @02 07540000 BASEVPTR EQU @04 07541000 SA# EQU @05 07542000 TVENTPTR EQU @02 07543000 VIENTPTR EQU @02 07544000 MVPATH# EQU @03 07545000 MVENTPTR EQU @02 07546000 MERPTR EQU @02 07547000 CBMPTR EQU @03 07548000 VTR1PTR EQU @02 07549000 LTRPTR EQU @02 07550000 PSTPTR EQU @02 07551000 VVITPTR2 EQU @03 07552000 VVITPTR1 EQU @03 07553000 VADPTR2 EQU @03 07554000 VADPTR1 EQU @03 07555000 DMPINDEX EQU @02 07556000 TESTRC EQU @03 07557000 REG11 EQU @11 07558000 REG12 EQU @12 07559000 REG10 EQU @10 07560000 REG9 EQU @09 07561000 REG8 EQU @08 07562000 RTNREG EQU @15 07563000 ARR1 EQU @01 07564000 COTBR1 EQU @01 07565000 QUERR1 EQU @01 07566000 REG0 EQU @00 07567000 REG1 EQU @01 07568000 REG13 EQU @13 07569000 REG14 EQU @14 07570000 REG15 EQU @15 07571000 REG2 EQU @02 07572000 REG3 EQU @03 07573000 REG4 EQU @04 07574000 REG5 EQU @05 07575000 REG6 EQU @06 07576000 REG7 EQU @07 07577000 IDCSAEP0 EQU 0 07578000 IDCSAFS0 EQU 0 07579000 IDCSAGP0 EQU 0 07580000 IDCSAFP0 EQU 0 07581000 IDCSAAL0 EQU 0 07582000 IDCSADL0 EQU 0 07583000 IDCSASS0 EQU 0 07584000 IDCSA060 EQU 0 07585000 TRACE1 EQU 0 07586000 OLDERID1 EQU TRACE1 07587000 TRACE2 EQU 0 07588000 OLDERID2 EQU TRACE2 07589000 NEWID2 EQU TRACE2+95 07590000 NEWERID2 EQU 5 07591000 CIRAGL EQU 0 07592000 CIRTYPE EQU CIRAGL 07593000 ALLAGL EQU 0 07594000 ALLDSN EQU ALLAGL 07595000 ALLDDN EQU ALLAGL+4 07596000 ALLULP EQU ALLAGL+12 07597000 ALLSTS EQU ALLAGL+24 07598000 ALLSTSOD EQU ALLSTS 07599000 ALLDSP EQU ALLAGL+25 07600000 ALLDSPKP EQU ALLDSP 07601000 ALLORG EQU ALLAGL+26 07602000 ALLOPT EQU ALLAGL+28 07603000 ALLOPTDS EQU ALLOPT 07604000 UNITABL EQU 0 07605000 UNITADR EQU UNITABL+4 07606000 @NM00010 EQU UNITADR 07607000 UNITSTAT EQU UNITABL+6 07608000 IDCIOSI0 EQU 0 07609000 IDCIO050 EQU 0 07610000 IOCSTR EQU 0 07611000 IOCDSO EQU IOCSTR+16 07612000 IOCRFM EQU IOCSTR+17 07613000 IOCMAC EQU IOCSTR+18 07614000 IOCMAC2 EQU IOCSTR+19 07615000 IOCCHP EQU IOCSTR+20 07616000 IOCMSG EQU IOCSTR+21 07617000 IOCRBA EQU IOCSTR+40 07618000 IOCTTR EQU IOCRBA 07619000 IOCMEM EQU IOCSTR+44 07620000 IOCNWM EQU IOCSTR+48 07621000 OPNAGL EQU 0 07622000 OPNOPT EQU OPNAGL 07623000 OPNRFM EQU OPNAGL+1 07624000 OPNTYP EQU OPNAGL+2 07625000 OPNMOD EQU OPNAGL+3 07626000 OPNDEV EQU OPNAGL+24 07627000 OPNDSO EQU OPNAGL+41 07628000 OPNOPT2 EQU OPNAGL+42 07629000 IOINFOPT EQU 0 07630000 IOINFVOL EQU IOINFOPT 07631000 UVOLLIST EQU 0 07632000 UVOLENT EQU UVOLLIST+2 07633000 AMSTP011 EQU 0 07634000 DARGLIST EQU 0 07635000 DARGDBP EQU DARGLIST 07636000 DARGRETP EQU DARGLIST+4 07637000 DARGSTID EQU DARGLIST+8 07638000 DARGSMOD EQU DARGSTID 07639000 DARGSENT EQU DARGSTID+3 07640000 DARGILP EQU DARGLIST+12 07641000 DARGRETL EQU DARGLIST+16 07642000 DARGARY EQU DARGLIST+20 07643000 DARGINS EQU DARGARY 07644000 DARGINL EQU DARGARY+2 07645000 FMTLIST EQU 0 07646000 FMTFLGS EQU FMTLIST 07647000 FMTSPF EQU FMTLIST+2 07648000 FMTRFNO EQU FMTSPF 07649000 FMTILEN EQU FMTRFNO 07650000 FMTIOFF EQU FMTLIST+4 07651000 FMTTRBC EQU FMTIOFF 07652000 FMTSTO EQU FMTTRBC 07653000 FMTOCOL EQU FMTLIST+6 07654000 FMTCNVF EQU FMTLIST+10 07655000 ERCNVTAB EQU 0 07656000 ERTYPE EQU ERCNVTAB 07657000 EROPER EQU ERCNVTAB+1 07658000 EROSOPER EQU ERCNVTAB+2 07659000 IDCDB010 EQU 0 07660000 DMPITM EQU 0 07661000 DMPITMNM EQU DMPITM 07662000 DMPITMPT EQU DMPITM+8 07663000 DMPITMLN EQU DMPITM+12 07664000 DMPITMTP EQU DMPITM+14 07665000 DMPARY EQU 0 07666000 DMPTRM EQU 0 07667000 CCMSG EQU 0 07668000 CMMSG EQU 0 07669000 CMVOLFLG EQU CMMSG+6 07670000 CTMSG EQU 0 07671000 CTREALCC EQU CTMSG+1 07672000 CTARRAY EQU CTMSG+4 07673000 CTTBLCC EQU CTARRAY+1 07674000 CTTBLHH EQU CTARRAY+2 07675000 CTTBLRR EQU CTARRAY+3 07676000 MDAGL EQU 0 07677000 MDFLAGS EQU MDAGL+30 07678000 MDVTOC EQU MDAGL+32 07679000 PUAGL EQU 0 07680000 CKAGL EQU 0 07681000 CKUCBPTR EQU CKAGL+8 07682000 CKDDNAME EQU CKAGL+12 07683000 CKLABELP EQU CKAGL+24 07684000 CKFLAGS EQU CKAGL+28 07685000 CKTESTVT EQU CKFLAGS 07686000 EXCLAGL EQU 0 07687000 EXCLFLAG EQU EXCLAGL+22 07688000 EXOARG EQU 0 07689000 EXODDN EQU EXOARG+8 07690000 EXOEXT EQU EXOARG+24 07691000 EXOCTLBK EQU EXOARG+28 07692000 EXOPT EQU EXOARG+32 07693000 EXOTAB EQU EXOPT 07694000 EXFLG EQU EXOARG+33 07695000 EXGARG EQU 0 07696000 EXGCTLBK EQU EXGARG+8 07697000 EXWRARG EQU 0 07698000 EXRWCHR EQU EXWRARG+26 07699000 EXSPACE EQU EXWRARG+36 07700000 EXPARG EQU 0 07701000 EXPDATA EQU EXPARG+12 07702000 EXPDATAB EQU 0 07703000 EXPARRAY EQU EXPDATAB+4 07704000 VS2AGL EQU 0 07705000 VSLABOPT EQU VS2AGL+28 07706000 VS2MSG EQU VS2AGL+35 07707000 VS2RESOP EQU VS2AGL+36 07708000 VS1AGL EQU 0 07709000 VSSECOPT EQU VS1AGL+68 07710000 VSVTOPT EQU VS1AGL+69 07711000 VSCATOPT EQU VS1AGL+70 07712000 VSRETURN EQU VS1AGL+71 07713000 VSMSG EQU VS1AGL+72 07714000 VSRESOPT EQU VS1AGL+73 07715000 RCTAGL EQU 0 07716000 RCTOPT EQU RCTAGL+8 07717000 STAEPARM EQU 0 07718000 STARCVY EQU STAEPARM+52 07719000 STARETRY EQU STAEPARM+53 07720000 VOLLABEL EQU 0 07721000 SV82LIST EQU 0 07722000 @NM00072 EQU SV82LIST+4 07723000 SV82DCBP EQU @NM00072 07724000 @NM00073 EQU SV82LIST+12 07725000 SV82WRKP EQU @NM00073 07726000 SRTAGL EQU 0 07727000 LCTINFO EQU 0 07728000 LCTFLAGS EQU LCTINFO+32 07729000 UCTAGL EQU 0 07730000 UCTFLAGS EQU UCTAGL+68 07731000 SELAGL EQU 0 07732000 SELFLAGS EQU SELAGL+22 07733000 DATESAGL EQU 0 07734000 DATESOPT EQU DATESAGL+20 07735000 VS3AGL EQU 0 07736000 VS3FLAGS EQU VS3AGL+58 07737000 VSDVTOC EQU 0 07738000 VSDSTAT EQU 0 07739000 VSDSFLG1 EQU VSDSTAT+16 07740000 VSDFLG2 EQU VSDSTAT+17 07741000 VSDSCR EQU 0 07742000 VSDSCRFL EQU VSDSCR+4 07743000 VSDUSAGE EQU 0 07744000 VSDDORG EQU VSDUSAGE+9 07745000 VSDALLOC EQU VSDUSAGE+10 07746000 VSDUSEF EQU VSDUSAGE+11 07747000 VSDDSORG EQU VSDUSAGE+16 07748000 VSDBLOCK EQU 0 07749000 VSDSPACE EQU VSDBLOCK+12 07750000 VSDARRAY EQU VSDBLOCK+16 07751000 VSDVARY EQU VSDARRAY+48 07752000 VADWORD1 EQU 0 07753000 VADVVA EQU VADWORD1+1 07754000 VADRUA EQU VADWORD1+2 07755000 VADWORD2 EQU 0 07756000 VADRPNUM EQU VADWORD2 07757000 VADLUA EQU VADWORD2+1 07758000 VADFLAGS EQU VADWORD2+3 07759000 VVITBYT1 EQU 0 07760000 VVITBYT2 EQU 0 07761000 PST EQU 0 07762000 PSTVVA EQU PST 07763000 PSTVPNUM EQU PST+1 07764000 LTR EQU 0 07765000 LTRRUA EQU LTR 07766000 VTABLER1 EQU 0 07767000 @NM00091 EQU VTABLER1+8 07768000 VTTBLCHR EQU VTABLER1+16 07769000 VTTBLC EQU VTTBLCHR+1 07770000 VTTBLH EQU VTTBLCHR+2 07771000 VTTBLR EQU VTTBLCHR+3 07772000 VTSDGID EQU VTABLER1+80 07773000 VTUCB EQU VTABLER1+144 07774000 VTFLAGS EQU VTUCB 07775000 VTTRCCHR EQU VTABLER1+220 07776000 VTLRUCW EQU VTABLER1+236 07777000 VTRVPAGE EQU VTABLER1+240 07778000 RPM EQU 0 07779000 RPMFLAGS EQU RPM 07780000 PAB EQU 0 07781000 PABSA EQU PAB+16 07782000 @NM00101 EQU PAB+32 07783000 @NM00102 EQU PAB+192 07784000 PABFLAGS EQU @NM00102 07785000 PABRINTF EQU @NM00102+1 07786000 PABORUA EQU @NM00102+2 07787000 DVB EQU 0 07788000 DVBMVT EQU DVB+4 07789000 LPB EQU 0 07790000 LPBMVT EQU LPB+4 07791000 VMX EQU 0 07792000 VMXFLAGS EQU VMX 07793000 VVAT EQU 0 07794000 CBMAP EQU 0 07795000 CBMSA EQU CBMAP+4 07796000 CBMMSF EQU CBMAP+39 07797000 MERECORD EQU 0 07798000 @NM00108 EQU MERECORD 07799000 MEFLAGS EQU @NM00108 07800000 @NM00110 EQU MERECORD+128 07801000 MVCTLBLK EQU 0 07802000 MVIDXBLK EQU 0 07803000 MVIFLAGS EQU MVIDXBLK 07804000 @NM00113 EQU MVIDXBLK+8 07805000 MVENTRY EQU 0 07806000 MVVOLID EQU MVENTRY 07807000 MVVFLAGS EQU MVENTRY+6 07808000 MVMFLAGS EQU MVENTRY+12 07809000 MVMNTVOL EQU MVMFLAGS 07810000 MVRESRVE EQU MVENTRY+14 07811000 MVVAMSG EQU MVENTRY+17 07812000 @NM00122 EQU MVENTRY+20 07813000 MVSA EQU @NM00122 07814000 MVVLDSA EQU MVSA 07815000 MVACTB EQU MVSA 07816000 MVACTC EQU MVSA 07817000 MVACTD EQU MVSA 07818000 MVCPUIDS EQU @NM00122+1 07819000 MVVUAS EQU @NM00122+5 07820000 @NM00124 EQU MVENTRY+52 07821000 MVLOGDEV EQU @NM00124 07822000 MVCPUID EQU 0 07823000 MVVUA EQU 0 07824000 SCCTLFLD EQU 0 07825000 SCCOMLEN EQU SCCTLFLD 07826000 SCCFLAGS EQU SCCOMLEN 07827000 SCTRKPTR EQU SCCTLFLD+4 07828000 SCENTRY EQU 0 07829000 VICTLFLD EQU 0 07830000 VICFLAGS EQU VICTLFLD 07831000 VITRKPTR EQU VICTLFLD+4 07832000 VIENTRY EQU 0 07833000 VIVOLID EQU VIENTRY 07834000 VIVFLAGS EQU VIENTRY+6 07835000 VISECVOL EQU VIVFLAGS 07836000 VIEXCVOL EQU VIVFLAGS 07837000 VIBNDVOL EQU VIVFLAGS 07838000 VIWRTINH EQU VIVFLAGS 07839000 VILZYX1 EQU VIENTRY+8 07840000 VILZYX2 EQU VIENTRY+10 07841000 TVCTLFLD EQU 0 07842000 TVCOMLEN EQU TVCTLFLD 07843000 TVCFLAGS EQU TVCOMLEN 07844000 TVTRKPTR EQU TVCTLFLD+4 07845000 TVENTRY EQU 0 07846000 TVLZYX1 EQU TVENTRY 07847000 TVLZYX2 EQU TVENTRY+2 07848000 TVCSN EQU TVENTRY+4 07849000 TVVOLID EQU TVENTRY+16 07850000 TVVFLAGS EQU TVENTRY+22 07851000 TVSECVOL EQU TVVFLAGS 07852000 TVEXCVOL EQU TVVFLAGS 07853000 TVBNDVOL EQU TVVFLAGS 07854000 TVWRTINH EQU TVVFLAGS 07855000 CIENTRY EQU 0 07856000 CICSCNCT EQU CIENTRY 07857000 CISACHNL EQU CIENTRY+2 07858000 @NM00139 EQU 0 07859000 CICUCHL EQU @NM00139+1 07860000 MICTABLE EQU 0 07861000 @NM00141 EQU MICTABLE 07862000 MICMFID EQU @NM00141 07863000 MICFLAG1 EQU @NM00141+6 07864000 MICFLAG2 EQU @NM00141+7 07865000 MICVALID EQU MICFLAG2 07866000 CDBLOCK EQU 0 07867000 @NM00145 EQU CDBLOCK 07868000 CDBSDG EQU @NM00145 07869000 CDBCNFIG EQU CDBSDG 07870000 CDBPATHS EQU @NM00145+1 07871000 CMCTLBLK EQU 0 07872000 CMENTRY EQU 0 07873000 IVAD EQU 0 07874000 IVADVVA EQU IVAD 07875000 IVADFLG EQU IVAD+1 07876000 IVVIT EQU 0 07877000 IVVI1 EQU IVVIT 07878000 IVVI2 EQU IVVIT+1 07879000 IPST EQU 0 07880000 IPSTVVA EQU IPST 07881000 IPSTVP EQU IPST+1 07882000 ILTR EQU 0 07883000 ILTRRUA EQU ILTR 07884000 CCHHRTBL EQU 0 07885000 CCOFFSET EQU CCHHRTBL 07886000 TBLCCHHR EQU CCHHRTBL+2 07887000 TBLCC EQU TBLCCHHR 07888000 TBLHH EQU TBLCCHHR+2 07889000 TBLR EQU TBLCCHHR+4 07890000 MVTDBCHR EQU CCHHRTBL+62 07891000 MVTDBCC EQU MVTDBCHR 07892000 MVTDBHH EQU MVTDBCHR+2 07893000 MVTDBR EQU MVTDBCHR+4 07894000 ENTRYARG EQU 0 07895000 RDOPTION EQU ENTRYARG 07896000 GETNEXT EQU RDOPTION 07897000 TABLEID EQU ENTRYARG+1 07898000 TBLFLAGS EQU ENTRYARG+2 07899000 MEFLAG EQU TBLFLAGS 07900000 CBMFLAG EQU TBLFLAGS 07901000 TCHRFLAG EQU TBLFLAGS 07902000 TBLPARTS EQU ENTRYARG+3 07903000 MICTFLAG EQU TBLPARTS 07904000 ENTRYID EQU ENTRYARG+4 07905000 TBLADDR EQU ENTRYID 07906000 PREVCHR EQU ENTRYID+4 07907000 VOLID EQU ENTRYARG+30 07908000 SEQ1CSN EQU ENTRYARG+36 07909000 BYTE# EQU ENTRYARG+48 07910000 BIT# EQU ENTRYARG+50 07911000 GETRC EQU ENTRYARG+52 07912000 MSGARG EQU 0 07913000 MSGTYPE EQU MSGARG 07914000 INCNMSG EQU MSGTYPE 07915000 DUPLMSG EQU MSGTYPE 07916000 MTCHMSG EQU MSGTYPE 07917000 TBLTYPE EQU MSGARG+4 07918000 MVTTBL EQU TBLTYPE 07919000 VITBL EQU TBLTYPE 07920000 TVLTBL EQU TBLTYPE 07921000 MSVITBL EQU TBLTYPE 07922000 MICTTBL EQU TBLTYPE 07923000 FLDTYPE1 EQU MSGARG+12 07924000 VSSFLD EQU FLDTYPE1 07925000 VESFLD EQU FLDTYPE1 07926000 VBSFLD EQU FLDTYPE1 07927000 WISFLD EQU FLDTYPE1 07928000 MSFFLD EQU FLDTYPE1 07929000 VSNFLD EQU FLDTYPE1 07930000 MIFLD EQU FLDTYPE1+1 07931000 CSNFLD EQU FLDTYPE1+3 07932000 IUSFLD EQU FLDTYPE1+3 07933000 FLDTYPE2 EQU MSGARG+16 07934000 TBLINDEX EQU MSGARG+20 07935000 KEYINDEX EQU TBLINDEX 07936000 CSNINDEX EQU KEYINDEX 07937000 CPUINDEX EQU CSNINDEX+2 07938000 VSNINDEX EQU TBLINDEX+13 07939000 CHRINDEX EQU TBLINDEX+19 07940000 FLDVALUE EQU MSGARG+68 07941000 FLDCHAR EQU FLDVALUE 07942000 FLDNUM EQU FLDCHAR 07943000 VICHKFF EQU 0 07944000 TVLCHKFF EQU 0 07945000 MVTCHKFF EQU 0 07946000 CDBCHKFF EQU 0 07947000 VVACHKFF EQU 0 07948000 VMXCHKFF EQU 0 07949000 RPMCHKFF EQU 0 07950000 DVBCHKFF EQU 0 07951000 LPBCHKFF EQU 0 07952000 VVICOT EQU 0 07953000 VVICHKFF EQU VVICOT 07954000 VADCOT EQU 0 07955000 VADCHKFF EQU VADCOT 07956000 PSTCOT EQU 0 07957000 PSTCHKFF EQU PSTCOT 07958000 BASEV EQU 0 07959000 BASNAME EQU BASEV 07960000 BASSERNO EQU BASNAME+5 07961000 BASID EQU BASNAME+11 07962000 BASFLAGA EQU BASEV+14 07963000 BASTYPE EQU BASFLAGA 07964000 BASINAC EQU BASFLAGA+2 07965000 BASBIND EQU BASFLAGA+2 07966000 BASEXCL EQU BASFLAGA+2 07967000 BASDAERA EQU BASFLAGA+3 07968000 BASRONLY EQU BASFLAGA+3 07969000 BASREASS EQU BASFLAGA+3 07970000 BASCPUID EQU BASEV+18 07971000 BASRCVYF EQU BASEV+20 07972000 BASSATIA EQU BASRCVYF 07973000 BASMISCF EQU BASRCVYF+2 07974000 BASLIB1 EQU BASEV+36 07975000 BASLID1 EQU BASLIB1 07976000 BASLIB2 EQU BASEV+49 07977000 BASLID2 EQU BASLIB2 07978000 BASKLCPY EQU BASEV+76 07979000 BASCOPID EQU BASKLCPY+11 07980000 COPYV EQU 0 07981000 COPNAME EQU COPYV 07982000 COPID EQU COPNAME+11 07983000 COPNO EQU COPID+1 07984000 COPFLAGA EQU COPYV+14 07985000 COPTYPE EQU COPFLAGA 07986000 COPBIND EQU COPFLAGA+2 07987000 COPEXCL EQU COPFLAGA+2 07988000 COPDAERA EQU COPFLAGA+2 07989000 COPRONLY EQU COPFLAGA+3 07990000 COPRCVYF EQU COPYV+20 07991000 COPSATIA EQU COPRCVYF 07992000 COPMISCF EQU COPRCVYF+2 07993000 COPLIB1 EQU COPYV+36 07994000 COPLID1 EQU COPLIB1 07995000 COPLIB2 EQU COPYV+49 07996000 COPLID2 EQU COPLIB2 07997000 DUPV EQU 0 07998000 DUPNAME EQU DUPV 07999000 DUPID EQU DUPNAME+11 08000000 DUPNO EQU DUPID+1 08001000 DUPFLAGA EQU DUPV+14 08002000 DUPTYPE EQU DUPFLAGA 08003000 DUPRCVYF EQU DUPV+20 08004000 DUPLIB1 EQU DUPV+36 08005000 DUPLID1 EQU DUPLIB1 08006000 DUPLIB2 EQU DUPV+49 08007000 DUPLID2 EQU DUPLIB2 08008000 BCDV EQU 0 08009000 BCDNAME EQU BCDV 08010000 BCDPREFX EQU BCDNAME 08011000 BCDSERNO EQU BCDNAME+5 08012000 BCDID EQU BCDNAME+11 08013000 BCDFLAGA EQU BCDV+14 08014000 BCDTYPE EQU BCDFLAGA 08015000 BCDBASE EQU BCDTYPE 08016000 BCDCOPY EQU BCDTYPE 08017000 BCDFLAGB EQU BCDFLAGA+2 08018000 BCDRCVYF EQU BCDV+20 08019000 BCDSATIA EQU BCDRCVYF 08020000 BCDMISCF EQU BCDRCVYF+2 08021000 BCDCSN1 EQU BCDV+24 08022000 BCDLIB1 EQU BCDV+36 08023000 BCDLID1 EQU BCDLIB1 08024000 BCDLIB2 EQU BCDV+49 08025000 BCDLID2 EQU BCDLIB2 08026000 CPUID EQU 0 08027000 CPUTYPE EQU CPUID+18 08028000 CPUMAP EQU CPUID+20 08029000 CPUIDREC EQU CPUMAP 08030000 RVVI EQU 0 08031000 RVVLNGTH EQU RVVI 08032000 RVVOPCOD EQU RVVI+4 08033000 RVVOLUME EQU RVVI+8 08034000 RVVBUFLN EQU RVVI+30 08035000 RVVRTBUF EQU RVVI+32 08036000 RVVCPYID EQU RVVI+56 08037000 RVVDUPID EQU RVVI+57 08038000 RVVFLAGA EQU RVVI+58 08039000 RVVRMODE EQU RVVFLAGA 08040000 RVVRDR EQU RVVRMODE 08041000 RVVRDNR EQU RVVRMODE 08042000 RVVCHAIN EQU RVVFLAGA+1 08043000 RVVRDRCD EQU RVVFLAGA+2 08044000 RVVBVRCD EQU RVVRDRCD 08045000 RVVCPYRC EQU RVVRDRCD 08046000 RVVDUPRC EQU RVVRDRCD 08047000 RVVCPURC EQU RVVRDRCD 08048000 RVVRTEST EQU RVVFLAGA+3 08049000 RVVDVOL EQU RVVRTEST 08050000 RVVCPYTP EQU RVVFLAGA+4 08051000 RVVSPEC EQU RVVFLAGA+5 08052000 RVVSCPY EQU RVVSPEC 08053000 RVVSDUP EQU RVVSPEC 08054000 RVVSVOL EQU RVVSPEC 08055000 WFILE EQU 0 08056000 WFILEVAL EQU WFILE+1 08057000 WDS EQU 0 08058000 WDSFLG EQU WDS+10 08059000 WDSVAL EQU WDS+21 08060000 MSC EQU 0 08061000 STGAD EQU 0 08062000 MSVI EQU 0 08063000 CHALL EQU 0 08064000 COTBLIST EQU 0 08065000 COTBFLG EQU COTBLIST+6 08066000 COTBTID EQU COTBFLG 08067000 COTBEXTS EQU COTBLIST+8 08068000 COTBVOL EQU COTBLIST+12 08069000 ACQLIST EQU 0 08070000 ARLL EQU ACQLIST 08071000 AROP EQU ACQLIST+4 08072000 ARFLG EQU ACQLIST+6 08073000 ARBDUBD EQU ARFLG 08074000 ARINH EQU ARFLG 08075000 ARNMEXT EQU ACQLIST+7 08076000 ARVOL EQU ACQLIST+8 08077000 AREXT EQU ACQLIST+28 08078000 RWCSLIST EQU 0 08079000 QUCODE EQU RWCSLIST+6 08080000 QUSECT EQU RWCSLIST+7 08081000 QUXADDR EQU QUSECT 08082000 QUFLAG EQU QUXADDR 08083000 QUPARM EQU RWCSLIST+8 08084000 QUPTR EQU RWCSLIST+40 08085000 IOBUF1 EQU 0 08086000 IOBUF2 EQU 0 08087000 WCSBUF EQU 0 08088000 WCSBF1 EQU WCSBUF 08089000 IMERECRD EQU 0 08090000 MSGAREA EQU 0 08091000 TEXTAREA EQU 0 08092000 FMTAREA EQU 0 08093000 BLKDATA EQU 0 08094000 MOVEAREA EQU 0 08095000 INFOAREA EQU 0 08096000 INFOHDR EQU INFOAREA 08097000 INFOWAL EQU INFOHDR 08098000 INFOVSN EQU INFOAREA+8 08099000 WDSCCHHR EQU 0 08100000 WDSSTART EQU WDSCCHHR 08101000 WDSSCYL EQU WDSSTART 08102000 WDSSTRK EQU WDSSTART+2 08103000 WDSEND EQU WDSCCHHR+5 08104000 WDSECYL EQU WDSEND 08105000 WDSETRK EQU WDSEND+2 08106000 MSVIREC EQU 0 08107000 CL0001@ EQU 0 08108000 CL0002@ EQU 0 08109000 CL0003@ EQU 0 08110000 AMSTP041 EQU 0 08111000 AMSTP042 EQU 0 08112000 AMSTP043 EQU 0 08113000 AMSTP044 EQU 0 08114000 CDBCOT EQU 0 08115000 DVBCOT EQU 0 08116000 IDCIOCL0 EQU 0 08117000 IDCIOCO0 EQU 0 08118000 IDCIOGT0 EQU 0 08119000 IDCIOIT0 EQU 0 08120000 IDCIOOP0 EQU 0 08121000 IDCIOPO0 EQU 0 08122000 IDCIOPT0 EQU 0 08123000 IDCIOST0 EQU 0 08124000 IDCIOTM0 EQU 0 08125000 IDCIOVY0 EQU 0 08126000 IDCSACA0 EQU 0 08127000 IDCSACL0 EQU 0 08128000 IDCSACR0 EQU 0 08129000 IDCSADE0 EQU 0 08130000 IDCSADQ0 EQU 0 08131000 IDCSAGS0 EQU 0 08132000 IDCSAID0 EQU 0 08133000 IDCSALC0 EQU 0 08134000 IDCSALD0 EQU 0 08135000 IDCSALK0 EQU 0 08136000 IDCSANQ0 EQU 0 08137000 IDCSAPR0 EQU 0 08138000 IDCSAPT0 EQU 0 08139000 IDCSAQL0 EQU 0 08140000 IDCSARC0 EQU 0 08141000 IDCSARV0 EQU 0 08142000 IDCSASC0 EQU 0 08143000 IDCSASI0 EQU 0 08144000 IDCSASN0 EQU 0 08145000 IDCSAST0 EQU 0 08146000 IDCSATI0 EQU 0 08147000 IDCSAUC0 EQU 0 08148000 IDCSAWO0 EQU 0 08149000 IDCST010 EQU 0 08150000 IDCTPER0 EQU 0 08151000 LISTTEST EQU 0 08152000 LPBCOT EQU 0 08153000 NEWERID1 EQU 5 08154000 RPMCOT EQU 0 08155000 VMXCOT EQU 0 08156000 VVACOT EQU 0 08157000 GDTTBL EQU 0 08158000 GDTTR1 EQU GDTTBL+8 08159000 GDTTR2 EQU GDTTBL+12 08160000 GDTDBG EQU GDTTBL+40 08161000 GDTSTC EQU GDTTBL+44 08162000 GDTPRT EQU GDTTBL+48 08163000 GDTESS EQU GDTTBL+52 08164000 GDTESA EQU GDTTBL+56 08165000 GDTRST EQU GDTTBL+60 08166000 GDTRES EQU GDTTBL+64 08167000 GDTCAL EQU GDTTBL+68 08168000 GDTGSP EQU GDTTBL+72 08169000 GDTFSP EQU GDTTBL+76 08170000 GDTGPL EQU GDTTBL+80 08171000 GDTFPL EQU GDTTBL+84 08172000 GDTLOD EQU GDTTBL+88 08173000 GDTDEL EQU GDTTBL+92 08174000 GDTPRL EQU GDTTBL+96 08175000 GDTEPL EQU GDTTBL+100 08176000 GDTTIM EQU GDTTBL+104 08177000 GDTIIO EQU GDTTBL+108 08178000 GDTTIO EQU GDTTBL+112 08179000 GDTOPN EQU GDTTBL+124 08180000 GDTCLS EQU GDTTBL+128 08181000 GDTGET EQU GDTTBL+132 08182000 GDTPUT EQU GDTTBL+136 08183000 GDTPOS EQU GDTTBL+140 08184000 GDTCPY EQU GDTTBL+144 08185000 GDTCAT EQU GDTTBL+148 08186000 GDTSNP EQU GDTTBL+164 08187000 GDTVFY EQU GDTTBL+172 08188000 GDTUID EQU GDTTBL+192 08189000 GDTPMT EQU GDTTBL+196 08190000 GDTCIR EQU GDTTBL+200 08191000 GDTLNK EQU GDTTBL+204 08192000 GDTALC EQU GDTTBL+208 08193000 GDTDLC EQU GDTTBL+212 08194000 GDTQAL EQU GDTTBL+216 08195000 GDTSTW EQU GDTTBL+220 08196000 GDTSSC EQU GDTTBL+224 08197000 GDTENQ EQU GDTTBL+228 08198000 GDTRSV EQU GDTTBL+232 08199000 GDTDEQ EQU GDTTBL+236 08200000 GDTSFO EQU GDTTBL+240 08201000 GDTWTO EQU GDTTBL+244 08202000 GDTSCR EQU GDTTBL+248 08203000 GDTUNT EQU GDTTBL+252 08204000 GDTRCT EQU GDTTBL+256 08205000 GDTIFO EQU GDTTBL+260 08206000 GDTEXP EQU GDTTBL+264 08207000 GDTSTA EQU GDTTBL+268 08208000 GDTERR EQU GDTTBL+272 08209000 GDTUNC EQU GDTTBL+276 08210000 GDTLOC EQU GDTTBL+280 08211000 FDTTBL EQU 0 08212000 FDTPTR EQU FDTTBL+8 08213000 LASTCOND EQU 0 08214000 SSRCODE EQU 0 08215000 SSRHALF EQU SSRCODE+2 08216000 SSECBCD EQU 0 08217000 QWPARM EQU QUPARM 08218000 QWRES1 EQU QWPARM 08219000 QWSSID EQU QWRES1 08220000 QWFLAG EQU QWPARM+2 08221000 QWMEM EQU QWFLAG 08222000 QTPARM EQU QUPARM 08223000 QTID EQU QTPARM 08224000 QLPARM EQU QUPARM 08225000 QCPARM EQU QUPARM 08226000 SARYOVLY EQU SAARRAY 08227000 SAOVLY EQU WCSBF1 08228000 SAFLAGS EQU SAOVLY+208 08229000 SAVALID EQU SAFLAGS 08230000 SAONLINE EQU SAFLAGS 08231000 SAREADY EQU SAFLAGS 08232000 * START UNREFERENCED COMPONENTS 08233000 @NM00200 EQU SAOVLY+224 08234000 SAPOST EQU SAFLAGS+3 08235000 SAACTIVE EQU SAFLAGS+2 08236000 SAWORK EQU SAFLAGS+1 08237000 @NM00199 EQU SAFLAGS 08238000 SABUSY EQU SAFLAGS 08239000 @NM00198 EQU SAOVLY 08240000 QCMAD3Z1 EQU QCPARM+28 08241000 QCMAD3Z0 EQU QCPARM+24 08242000 QCMAD2Z1 EQU QCPARM+20 08243000 QCMAD2Z0 EQU QCPARM+16 08244000 QCMAD1Z1 EQU QCPARM+12 08245000 QCMAD1Z0 EQU QCPARM+8 08246000 QCMAD0Z1 EQU QCPARM+4 08247000 QCMAD0Z0 EQU QCPARM 08248000 QLRES EQU QLPARM+2 08249000 QLZYX EQU QLPARM 08250000 QTRES EQU QTPARM+24 08251000 QTDASCHR EQU QTPARM+20 08252000 QTDATA EQU QTPARM+2 08253000 QTFLAG EQU QTPARM+1 08254000 QTTABID EQU QTID 08255000 QWRES2 EQU QWPARM+3 08256000 @NM00190 EQU QWFLAG 08257000 @NM00202 EQU SSRCODE 08258000 FDTVERB EQU FDTTBL 08259000 GDTECT EQU GDTTBL+188 08260000 GDTPSB EQU GDTTBL+184 08261000 GDTUPT EQU GDTTBL+180 08262000 GDTCMB EQU GDTTBL+176 08263000 GDTSPR EQU GDTTBL+168 08264000 @NM00001 EQU GDTTBL+160 08265000 GDTABH EQU GDTTBL+156 08266000 GDTABT EQU GDTTBL+152 08267000 GDTTOH EQU GDTTBL+120 08268000 GDTRIP EQU GDTTBL+116 08269000 GDTIOH EQU GDTTBL+36 08270000 GDTSAH EQU GDTTBL+32 08271000 GDTTPH EQU GDTTBL+28 08272000 GDTRIH EQU GDTTBL+24 08273000 GDTSTH EQU GDTTBL+20 08274000 GDTDBH EQU GDTTBL+16 08275000 GDTPRM EQU GDTTBL+4 08276000 GDTHDR EQU GDTTBL 08277000 WDSEREC EQU WDSEND+4 08278000 WDSSREC EQU WDSSTART+4 08279000 INFODTL EQU INFOAREA+6 08280000 INFOTYPE EQU INFOAREA+4 08281000 INFORTL EQU INFOHDR+2 08282000 WCSBF2 EQU WCSBUF+256 08283000 QURES1 EQU QUFLAG 08284000 QULIB EQU QUCODE 08285000 QURES EQU RWCSLIST+5 08286000 QUORD EQU RWCSLIST+4 08287000 QULEN EQU RWCSLIST 08288000 ARNEDB EQU ACQLIST+92 08289000 @NM00189 EQU AREXT 08290000 ARCOMPC EQU ACQLIST+26 08291000 @NM00188 EQU ACQLIST+25 08292000 ARHOST EQU ACQLIST+20 08293000 ARECB EQU ACQLIST+16 08294000 ARASID EQU ACQLIST+14 08295000 @NM00187 EQU ARFLG 08296000 ARSEC EQU ARFLG 08297000 ARDRES EQU ARFLG 08298000 @NM00186 EQU ACQLIST+5 08299000 COTBECB EQU COTBLIST+20 08300000 COTBASID EQU COTBLIST+18 08301000 @NM00185 EQU COTBFLG+1 08302000 COTBTRI EQU COTBFLG+1 08303000 COTBTRA EQU COTBFLG+1 08304000 COTBTRY EQU COTBFLG+1 08305000 COTBTRX EQU COTBFLG+1 08306000 @NM00184 EQU COTBFLG 08307000 @NM00183 EQU COTBLIST+5 08308000 COTBOP EQU COTBLIST+4 08309000 COTBLL EQU COTBLIST 08310000 WDSLEN EQU WDS+20 08311000 WDSMEM EQU WDS+12 08312000 WDSMLN EQU WDS+11 08313000 WDSFUQ EQU WDSFLG 08314000 WDSPOS EQU WDS+9 08315000 WDSPAS EQU WDS+1 08316000 WDSPLN EQU WDS 08317000 WFILELEN EQU WFILE 08318000 @NM00182 EQU RVVI+64 08319000 RVVSCSN EQU RVVSPEC 08320000 RVVSSEQ EQU RVVSPEC 08321000 RVVSDTE EQU RVVSPEC 08322000 RVVSEXP EQU RVVSPEC 08323000 RVVSGRP EQU RVVSPEC 08324000 @NM00181 EQU RVVCPYTP 08325000 RVVCPLHD EQU RVVCPYTP 08326000 RVVLCOPY EQU RVVCPYTP 08327000 RVVOBKUP EQU RVVCPYTP 08328000 RVVLBKUP EQU RVVCPYTP 08329000 RVVBPLHD EQU RVVRTEST 08330000 RVVACTV EQU RVVRTEST 08331000 RVVINACT EQU RVVRTEST 08332000 RVVRSTD EQU RVVRTEST 08333000 RVVGSVOL EQU RVVRTEST 08334000 RVVTHOLD EQU RVVRTEST 08335000 RVVEXPDT EQU RVVRTEST 08336000 RVVALL EQU RVVRDRCD 08337000 RVVCIRCD EQU RVVRDRCD 08338000 RVVRUNKN EQU RVVRDRCD 08339000 RVVGRPRC EQU RVVRDRCD 08340000 @NM00180 EQU RVVCHAIN 08341000 RVVNGVOL EQU RVVCHAIN 08342000 RVVGPVOL EQU RVVCHAIN 08343000 @NM00179 EQU RVVRMODE 08344000 RVVRDCH EQU RVVRMODE 08345000 RVVRDCSN EQU RVVI+44 08346000 RVVRDSEQ EQU RVVI+43 08347000 RVVBLNK1 EQU RVVI+42 08348000 RVVCDATE EQU RVVI+38 08349000 RVVEXPIR EQU RVVI+36 08350000 @NM00178 EQU RVVI+28 08351000 RVVAREA EQU RVVI+24 08352000 RVVARLN EQU RVVI+22 08353000 RVVGROUP EQU RVVI+14 08354000 @NM00177 EQU RVVOPCOD+1 08355000 RVVCODE EQU RVVOPCOD 08356000 @NM00176 EQU CPUID+150 08357000 CPUPURGE EQU CPUID+148 08358000 CPUMASK EQU CPUMAP+6 08359000 @NM00175 EQU CPUMAP+5 08360000 CPURES2 EQU CPUTYPE 08361000 CPUASSOC EQU CPUTYPE 08362000 CPURES1 EQU CPUTYPE 08363000 CPUDNEXT EQU CPUID+16 08364000 CPUINEXT EQU CPUID+14 08365000 @NM00174 EQU CPUID+13 08366000 CPUNAME EQU CPUID 08367000 BCD2BIT2 EQU BCDLID2 08368000 BCD2BIT1 EQU BCDLID2 08369000 BCDRES8 EQU BCDLIB2 08370000 BCDCSN2 EQU BCDV+37 08371000 BCD1BIT2 EQU BCDLID1 08372000 BCD1BIT1 EQU BCDLID1 08373000 BCDRE10 EQU BCDLIB1 08374000 BCDRES7A EQU BCDMISCF 08375000 BCDHOLD EQU BCDMISCF 08376000 BCDRES7 EQU BCDSATIA 08377000 BCDVSMIS EQU BCDSATIA 08378000 BCDIVCPY EQU BCDSATIA 08379000 BCDIVCRE EQU BCDSATIA 08380000 BCDCPUID EQU BCDV+18 08381000 BCDRES5 EQU BCDFLAGB+1 08382000 BCDREASS EQU BCDFLAGB+1 08383000 BCDRES4 EQU BCDFLAGB 08384000 BCDRES3 EQU BCDTYPE 08385000 BCDDUP EQU BCDTYPE 08386000 BCDRES2 EQU BCDTYPE 08387000 BCDRES1 EQU BCDTYPE 08388000 BCDRES9 EQU BCDV+13 08389000 BCDINDEX EQU BCDID+1 08390000 BCDBLNK2 EQU BCDID 08391000 BCDBLNK1 EQU BCDPREFX+1 08392000 BCDALPHA EQU BCDPREFX 08393000 @NM00173 EQU DUPV+50 08394000 DUP2BIT2 EQU DUPLID2 08395000 DUP2BIT1 EQU DUPLID2 08396000 DUPRES4 EQU DUPLIB2 08397000 DUPCSN2 EQU DUPV+37 08398000 DUP1BIT2 EQU DUPLID1 08399000 DUP1BIT1 EQU DUPLID1 08400000 DUPRES3 EQU DUPLIB1 08401000 DUPCSN1 EQU DUPV+24 08402000 DUPMISCF EQU DUPRCVYF+2 08403000 DUPSATIA EQU DUPRCVYF 08404000 @NM00172 EQU DUPV+18 08405000 @NM00171 EQU DUPFLAGA+2 08406000 DUPRES2 EQU DUPTYPE 08407000 DUPDUPLR EQU DUPTYPE 08408000 DUPRES1 EQU DUPTYPE 08409000 DUPRES5 EQU DUPV+13 08410000 DUPBLANK EQU DUPID 08411000 DUPSERNO EQU DUPNAME+5 08412000 DUPD EQU DUPNAME 08413000 @NM00170 EQU COPYV+136 08414000 COPFREXT EQU COPYV+132 08415000 COPLEXT EQU COPYV+130 08416000 COPFRESP EQU COPYV+128 08417000 COPOWNER EQU COPYV+118 08418000 COPDEST EQU COPYV+88 08419000 COPDESCR EQU COPYV+58 08420000 COPDTREM EQU COPYV+54 08421000 COPDATE EQU COPYV+50 08422000 COP2BIT2 EQU COPLID2 08423000 COP2BIT1 EQU COPLID2 08424000 COPRES5 EQU COPLIB2 08425000 COPCSN2 EQU COPYV+37 08426000 COP1BIT2 EQU COPLID1 08427000 COP1BIT1 EQU COPLID1 08428000 COPRES4 EQU COPLIB1 08429000 COPCSN1 EQU COPYV+24 08430000 @NM00169 EQU COPMISCF 08431000 COPHOLD EQU COPMISCF 08432000 COPRES3 EQU COPSATIA 08433000 COPVSMIS EQU COPSATIA 08434000 COPIVCPY EQU COPSATIA 08435000 COPIVCRE EQU COPSATIA 08436000 @NM00168 EQU COPYV+18 08437000 @NM00167 EQU COPFLAGA+3 08438000 COPDLSPF EQU COPFLAGA+3 08439000 COPBKUP EQU COPFLAGA+2 08440000 COPRSTD EQU COPFLAGA+2 08441000 COPGENUS EQU COPFLAGA+2 08442000 COPVSAM EQU COPFLAGA+2 08443000 COPGROUP EQU COPFLAGA+2 08444000 COPRES2 EQU COPTYPE 08445000 COPCOPYV EQU COPTYPE 08446000 COPRES1 EQU COPTYPE 08447000 COPRES6 EQU COPYV+13 08448000 COPBLANK EQU COPID 08449000 COPSERNO EQU COPNAME+5 08450000 COPV EQU COPNAME 08451000 @NM00166 EQU BASEV+192 08452000 BASXPDT2 EQU BASEV+188 08453000 BASGROUP EQU BASEV+180 08454000 BASRECOV EQU BASEV+174 08455000 BASDEST EQU BASEV+144 08456000 BASOWNER EQU BASEV+134 08457000 BASDESCR EQU BASEV+104 08458000 BASDTREM EQU BASEV+100 08459000 BASEXPDT EQU BASEV+96 08460000 BASDLMTD EQU BASEV+92 08461000 BASRES6 EQU BASEV+89 08462000 BASCOPNO EQU BASCOPID+1 08463000 BASCOPBK EQU BASCOPID 08464000 BASCOPSN EQU BASKLCPY+5 08465000 BASCOPV EQU BASKLCPY 08466000 BASFREXT EQU BASEV+72 08467000 BASLEXT EQU BASEV+70 08468000 BASFRESP EQU BASEV+68 08469000 @NM00165 EQU BASEV+65 08470000 BASBKLMT EQU BASEV+64 08471000 BASNBKUP EQU BASEV+63 08472000 BASNCOPY EQU BASEV+62 08473000 BASNEXTV EQU BASEV+56 08474000 BASPREV EQU BASEV+50 08475000 BAS2BIT2 EQU BASLID2 08476000 BAS2BIT1 EQU BASLID2 08477000 BASRES5 EQU BASLIB2 08478000 BASCSN2 EQU BASEV+37 08479000 BAS1BIT2 EQU BASLID1 08480000 BAS1BIT1 EQU BASLID1 08481000 BASRES4 EQU BASLIB1 08482000 BASCSN1 EQU BASEV+24 08483000 BASRES3 EQU BASMISCF 08484000 BASHOLD EQU BASMISCF 08485000 BASRES8 EQU BASSATIA 08486000 BASVSMIS EQU BASSATIA 08487000 BASIVCPY EQU BASSATIA 08488000 BASIVCRE EQU BASSATIA 08489000 @NM00164 EQU BASFLAGA+3 08490000 BASLAST EQU BASFLAGA+3 08491000 BASFIRST EQU BASFLAGA+3 08492000 BASRSTD EQU BASFLAGA+2 08493000 BASGENUS EQU BASFLAGA+2 08494000 BASGRPV EQU BASFLAGA+2 08495000 BASNOCPY EQU BASFLAGA+2 08496000 BASDLSF EQU BASFLAGA+2 08497000 BASRES2 EQU BASTYPE 08498000 BASBASVR EQU BASTYPE 08499000 BASRES1 EQU BASTYPE 08500000 BASRES7 EQU BASEV+13 08501000 BASZERO EQU BASID+1 08502000 BASBLANK EQU BASID 08503000 BASEVKEY EQU BASNAME 08504000 MSFINDEX EQU KEYINDEX+12 08505000 @NM00161 EQU CSNINDEX+11 08506000 @NM00160 EQU CSNINDEX+10 08507000 SDGINDEX EQU CSNINDEX+9 08508000 RPINDEX EQU CSNINDEX+8 08509000 LUAINDEX EQU CSNINDEX+7 08510000 VVAINDEX EQU CSNINDEX+6 08511000 VUAINDEX EQU CSNINDEX+5 08512000 INFINDEX EQU CSNINDEX+4 08513000 SAINDEX EQU CSNINDEX+3 08514000 XYZINDEX EQU CSNINDEX 08515000 @NM00159 EQU FLDTYPE2+1 08516000 BPFLD EQU FLDTYPE2+1 08517000 IPFLD EQU FLDTYPE2 08518000 APFLD EQU FLDTYPE2 08519000 FPFLD EQU FLDTYPE2 08520000 IPASFLD EQU FLDTYPE2 08521000 APASFLD EQU FLDTYPE2 08522000 RPFLD EQU FLDTYPE2 08523000 VSHSFLD EQU FLDTYPE2 08524000 APSFLD EQU FLDTYPE2 08525000 DOSFLD EQU FLDTYPE1+3 08526000 DVSFLD EQU FLDTYPE1+3 08527000 BPASFLD EQU FLDTYPE1+3 08528000 VUAFLD EQU FLDTYPE1+3 08529000 MVFLD EQU FLDTYPE1+3 08530000 LRUDFLD EQU FLDTYPE1+3 08531000 L3AFLD EQU FLDTYPE1+2 08532000 SDGFLD EQU FLDTYPE1+2 08533000 CPUFLD EQU FLDTYPE1+2 08534000 COSFLD EQU FLDTYPE1+2 08535000 CAFLD EQU FLDTYPE1+2 08536000 MVTPFLD EQU FLDTYPE1+2 08537000 BPCFLD EQU FLDTYPE1+2 08538000 IPCFLD EQU FLDTYPE1+2 08539000 APCFLD EQU FLDTYPE1+1 08540000 FPCFLD EQU FLDTYPE1+1 08541000 FPASFLD EQU FLDTYPE1+1 08542000 SAFLD EQU FLDTYPE1+1 08543000 RUAFLD EQU FLDTYPE1+1 08544000 VPFLD EQU FLDTYPE1+1 08545000 VVAFLD EQU FLDTYPE1+1 08546000 VRSFLD EQU FLDTYPE1 08547000 VMSFLD EQU FLDTYPE1 08548000 TBLNRSET EQU TBLTYPE+3 08549000 @NM00158 EQU TBLTYPE+2 08550000 VTSTBL EQU TBLTYPE+2 08551000 CBMTBL EQU TBLTYPE+2 08552000 METBL EQU TBLTYPE+2 08553000 CDBTBL EQU TBLTYPE+2 08554000 CITBL EQU TBLTYPE+2 08555000 VVATTBL EQU TBLTYPE+2 08556000 VMXTBL EQU TBLTYPE+1 08557000 RPMTBL EQU TBLTYPE+1 08558000 LPBTBL EQU TBLTYPE+1 08559000 DVBTBL EQU TBLTYPE+1 08560000 PABTBL EQU TBLTYPE+1 08561000 VVITTBL EQU TBLTYPE+1 08562000 LTRTBL EQU TBLTYPE+1 08563000 PSTTBL EQU TBLTYPE+1 08564000 VADTBL EQU TBLTYPE 08565000 CMTBL EQU TBLTYPE 08566000 SCLTBL EQU TBLTYPE 08567000 MSGNRSET EQU MSGTYPE+3 08568000 @NM00157 EQU MSGTYPE 08569000 SUMSMSG EQU MSGTYPE 08570000 MSFID EQU ENTRYARG+28 08571000 CELLBLK EQU ENTRYARG+26 08572000 DEVICEID EQU ENTRYARG+24 08573000 VVADDR EQU ENTRYARG+22 08574000 INTFID EQU ENTRYARG+20 08575000 SDGNUM EQU ENTRYARG+18 08576000 SANUM EQU ENTRYARG+16 08577000 RECNUM EQU ENTRYID+10 08578000 ENTNUM EQU ENTRYID+9 08579000 RECREC EQU PREVCHR+4 08580000 RECHEAD EQU PREVCHR+2 08581000 RECCYL EQU PREVCHR 08582000 @NM00156 EQU TBLPARTS 08583000 CDBFLAG EQU TBLPARTS 08584000 CIFLAG EQU TBLPARTS 08585000 LPBFLAG EQU TBLPARTS 08586000 DVBFLAG EQU TBLPARTS 08587000 PABFLAG EQU TBLPARTS 08588000 RPMFLAG EQU TBLPARTS 08589000 @NM00155 EQU TBLFLAGS 08590000 @NM00154 EQU RDOPTION 08591000 BUFFER2 EQU RDOPTION 08592000 @NM00153 EQU TBLCCHHR+5 08593000 ILTRM11 EQU ILTRRUA 08594000 @NM00152 EQU IVVI2 08595000 IVVIRSVD EQU IVVI2 08596000 IVVIINTF EQU IVVI2 08597000 @NM00151 EQU IVVI2 08598000 IVVISHR EQU IVVI1 08599000 IVVIWI EQU IVVI1 08600000 IVVI1STR EQU IVVI1 08601000 @NM00150 EQU IVVI1 08602000 @NM00149 EQU IVADFLG 08603000 IVADWI EQU IVADFLG 08604000 @NM00148 EQU IVADFLG 08605000 CMX3Z1 EQU CMENTRY 08606000 CMX3Z0 EQU CMENTRY 08607000 CMX2Z1 EQU CMENTRY 08608000 CMX2Z0 EQU CMENTRY 08609000 CMX1Z1 EQU CMENTRY 08610000 CMX1Z0 EQU CMENTRY 08611000 CMX0Z1 EQU CMENTRY 08612000 CMX0Z0 EQU CMENTRY 08613000 CMCPTRS EQU CMCTLBLK+22 08614000 CMCFLAGS EQU CMCTLBLK 08615000 CDBMVTP EQU @NM00145+2 08616000 CDBSA2D EQU CDBPATHS 08617000 CDBSA2C EQU CDBPATHS 08618000 CDBSA2B EQU CDBPATHS 08619000 @NM00147 EQU CDBPATHS 08620000 CDBSA1D EQU CDBPATHS 08621000 CDBSA1C EQU CDBPATHS 08622000 CDBSA1B EQU CDBPATHS 08623000 @NM00146 EQU CDBPATHS 08624000 CDB3333 EQU CDBCNFIG 08625000 CDBINUSE EQU CDBCNFIG 08626000 CDBNOSHR EQU CDBCNFIG 08627000 MICAINTF EQU MICFLAG2 08628000 @NM00144 EQU MICFLAG2 08629000 MICCMB EQU MICFLAG2 08630000 MICCURMP EQU MICFLAG2 08631000 MICINTF EQU MICFLAG1 08632000 @NM00143 EQU MICFLAG1 08633000 MICAPATH EQU MICFLAG1 08634000 MICPOTMP EQU MICFLAG1 08635000 @NM00142 EQU MICFLAG1 08636000 MICMPCPU EQU @NM00141+5 08637000 CICHL EQU CICUCHL 08638000 @NM00140 EQU CICUCHL 08639000 CICU EQU CICUCHL 08640000 CICPUID EQU @NM00139 08641000 @NM00138 EQU CIENTRY+1 08642000 CIMSF3 EQU CICSCNCT 08643000 CIMSF2 EQU CICSCNCT 08644000 CIMSF1 EQU CICSCNCT 08645000 CIMSF0 EQU CICSCNCT 08646000 @NM00137 EQU CICSCNCT 08647000 CIMSF EQU CICSCNCT 08648000 @NM00136 EQU TVENTRY+23 08649000 @NM00135 EQU TVVFLAGS 08650000 TVSCRCTG EQU TVVFLAGS 08651000 @NM00134 EQU TVVFLAGS 08652000 TVCECTG EQU TVVFLAGS 08653000 TVREC EQU TVTRKPTR+3 08654000 TVHEAD EQU TVTRKPTR+2 08655000 TVCYL EQU TVTRKPTR+1 08656000 @NM00133 EQU TVTRKPTR 08657000 TVENTNUM EQU TVCTLFLD+3 08658000 TVENTMAX EQU TVCTLFLD+2 08659000 TVENTLEN EQU TVCTLFLD+1 08660000 TVLSTTRK EQU TVCFLAGS 08661000 TVENDTRK EQU TVCFLAGS 08662000 TVLSTACT EQU TVCFLAGS 08663000 TVLSTBLK EQU TVCFLAGS 08664000 @NM00132 EQU VIENTRY+7 08665000 @NM00131 EQU VIVFLAGS 08666000 VISCRCTG EQU VIVFLAGS 08667000 @NM00130 EQU VIVFLAGS 08668000 VICECTG EQU VIVFLAGS 08669000 VIREC EQU VITRKPTR+3 08670000 VIHEAD EQU VITRKPTR+2 08671000 VICYL EQU VITRKPTR+1 08672000 @NM00129 EQU VITRKPTR 08673000 VIENTNUM EQU VICTLFLD+3 08674000 VIENTMAX EQU VICTLFLD+2 08675000 VIENTLEN EQU VICTLFLD+1 08676000 VIOFBLK EQU VICFLAGS 08677000 VIAREA EQU VICFLAGS 08678000 VIUSEBLK EQU VICFLAGS 08679000 VILSTTRK EQU VICFLAGS 08680000 VIENDTRK EQU VICFLAGS 08681000 VILSTACT EQU VICFLAGS 08682000 VILSTBLK EQU VICFLAGS 08683000 @NM00128 EQU SCENTRY+18 08684000 SCLZYX EQU SCENTRY+16 08685000 SCCSN EQU SCENTRY+4 08686000 @NM00127 EQU SCENTRY 08687000 SCREC EQU SCTRKPTR+3 08688000 SCHEAD EQU SCTRKPTR+2 08689000 SCCYL EQU SCTRKPTR+1 08690000 @NM00126 EQU SCTRKPTR 08691000 SCENTNUM EQU SCCTLFLD+3 08692000 SCENTMAX EQU SCCTLFLD+2 08693000 SCENTLEN EQU SCCTLFLD+1 08694000 SCLSTTRK EQU SCCFLAGS 08695000 SCENDTRK EQU SCCFLAGS 08696000 SCLSTACT EQU SCCFLAGS 08697000 SCLSTBLK EQU SCCFLAGS 08698000 MVVUAI# EQU MVVUA 08699000 MVCYLMAP EQU @NM00124+3 08700000 MVRPNUM EQU @NM00124+2 08701000 MVBNDCNT EQU @NM00124+1 08702000 @NM00125 EQU MVLOGDEV 08703000 MVDSTGC2 EQU MVLOGDEV 08704000 MVDSTGC1 EQU MVLOGDEV 08705000 MVPINACT EQU MVLOGDEV 08706000 @NM00123 EQU MVENTRY+44 08707000 MVPFI EQU MVENTRY+36 08708000 MVVVA EQU @NM00122+4 08709000 @NM00121 EQU MVENTRY+18 08710000 @NM00120 EQU MVVAMSG 08711000 MVINTFD EQU MVVAMSG 08712000 MVINTFC EQU MVVAMSG 08713000 MVINTFB EQU MVVAMSG 08714000 MVINTFA EQU MVVAMSG 08715000 MV3333 EQU MVENTRY+16 08716000 MVSDG EQU MVENTRY+15 08717000 @NM00119 EQU MVRESRVE 08718000 MVSA2RSV EQU MVRESRVE 08719000 @NM00118 EQU MVRESRVE 08720000 MVPINCNT EQU MVENTRY+13 08721000 @NM00117 EQU MVMFLAGS 08722000 MVREMNT EQU MVMFLAGS 08723000 MVMNTBND EQU MVMFLAGS 08724000 MVMNTEXC EQU MVMFLAGS 08725000 MVLZYX2 EQU MVENTRY+10 08726000 MVLZYX1 EQU MVENTRY+8 08727000 @NM00116 EQU MVENTRY+7 08728000 @NM00115 EQU MVVFLAGS 08729000 MVWRTINH EQU MVVFLAGS 08730000 MVBNDVOL EQU MVVFLAGS 08731000 MVSCRCTG EQU MVVFLAGS 08732000 MVEXCVOL EQU MVVFLAGS 08733000 MVSECVOL EQU MVVFLAGS 08734000 @NM00114 EQU MVVFLAGS 08735000 MVCECTG EQU MVVFLAGS 08736000 MVMVTPTR EQU @NM00113+6 08737000 MVIVOLID EQU @NM00113 08738000 @NM00112 EQU MVIDXBLK+4 08739000 MVENTNUM EQU MVIDXBLK+3 08740000 MVENTMAX EQU MVIDXBLK+2 08741000 MVENTLEN EQU MVIDXBLK+1 08742000 @NM00111 EQU MVIFLAGS 08743000 MVLSTBLK EQU MVIFLAGS 08744000 MVOFBLK EQU MVIFLAGS 08745000 MVOFOUT EQU MVIFLAGS 08746000 MVCTLBIT EQU MVCTLBLK 08747000 MEUCBCNT EQU @NM00110+2 08748000 MEDRVCNT EQU @NM00110+1 08749000 MELRUCNT EQU @NM00110 08750000 @NM00109 EQU MERECORD+120 08751000 MEMNTCNT EQU @NM00108+2 08752000 MEVOCNT EQU @NM00108+1 08753000 MEMVD2 EQU MEFLAGS 08754000 MEMVI2 EQU MEFLAGS 08755000 MEMVD1 EQU MEFLAGS 08756000 MEMVI1 EQU MEFLAGS 08757000 MEVOD2 EQU MEFLAGS 08758000 MEVOI2 EQU MEFLAGS 08759000 MEVOD1 EQU MEFLAGS 08760000 MEVOI1 EQU MEFLAGS 08761000 CBMFLAGS EQU CBMAP+38 08762000 CBMDRIVE EQU CBMAP+8 08763000 CBMDRC EQU CBMAP+6 08764000 CBMDRD EQU CBMAP 08765000 VVATVVA EQU VVAT 08766000 VMXMVT EQU VMX+2 08767000 @NM00107 EQU VMX+1 08768000 @NM00106 EQU VMXFLAGS 08769000 VMXVALID EQU VMXFLAGS 08770000 LPBPFI EQU LPBMVT 08771000 LPBMSFID EQU LPBMVT 08772000 @NM00105 EQU LPB+2 08773000 LPBCURR EQU LPB+1 08774000 LPBNEXT EQU LPB 08775000 DVBPFI EQU DVBMVT 08776000 DVBMSFID EQU DVBMVT 08777000 @NM00104 EQU DVB+2 08778000 DVBCURR EQU DVB+1 08779000 DVBNEXT EQU DVB 08780000 PABRUA EQU @NM00102+3 08781000 PABORUAV EQU PABORUA 08782000 PABSA2D EQU PABRINTF 08783000 PABSA2C EQU PABRINTF 08784000 PABSA2B EQU PABRINTF 08785000 @NM00103 EQU PABRINTF 08786000 PABSA1D EQU PABRINTF 08787000 PABSA1C EQU PABRINTF 08788000 PABSA1B EQU PABRINTF 08789000 PABRAI EQU PABRINTF 08790000 PAB2M11 EQU PABFLAGS 08791000 PABVARN EQU PABFLAGS 08792000 PABVBND EQU PABFLAGS 08793000 PABMSCT EQU PABFLAGS 08794000 PABMOD11 EQU PABFLAGS 08795000 PABVARR EQU PABFLAGS 08796000 PABVARV EQU PABFLAGS 08797000 PABDEX EQU PABFLAGS 08798000 PABAMAP EQU PAB+128 08799000 PABFMAP EQU PAB+64 08800000 PABBCNT EQU @NM00101+3 08801000 PABICNT EQU @NM00101+2 08802000 PABACNT EQU @NM00101+1 08803000 PABFCNT EQU @NM00101 08804000 @NM00100 EQU PAB+24 08805000 PABSRZ EQU PAB+23 08806000 PABSRY EQU PAB+22 08807000 PABSRX EQU PAB+21 08808000 PABSRW EQU PAB+20 08809000 @NM00099 EQU PAB+18 08810000 PAB3333 EQU PABSA 08811000 @NM00098 EQU PABSA 08812000 PABVLDSA EQU PABSA 08813000 PABLOTH EQU PAB+14 08814000 PABLODEL EQU PAB+13 08815000 @NM00097 EQU PAB+12 08816000 PABUPTH EQU PAB+10 08817000 PABUPDEL EQU PAB+9 08818000 PABPPD EQU PAB+8 08819000 PABBTOT EQU PAB+6 08820000 PABITOT EQU PAB+4 08821000 PABATOT EQU PAB+2 08822000 PABFTOT EQU PAB 08823000 RPMMVT EQU RPM+2 08824000 RPMVPNUM EQU RPM+1 08825000 RPMNA EQU RPMFLAGS 08826000 RPMMSCT EQU RPMFLAGS 08827000 @NM00096 EQU RPMFLAGS 08828000 RPMIOERR EQU RPMFLAGS 08829000 RPMVBND EQU RPMFLAGS 08830000 RPMBND EQU RPMFLAGS 08831000 RPMINACT EQU RPMFLAGS 08832000 RPMACT EQU RPMFLAGS 08833000 VTVOLPFX EQU VTABLER1+252 08834000 @NM00095 EQU VTRVPAGE+4 08835000 VT20TO27 EQU VTRVPAGE+3 08836000 VT18TO1F EQU VTRVPAGE+2 08837000 VT10TO17 EQU VTRVPAGE+1 08838000 VT08TO0F EQU VTRVPAGE 08839000 VTLRUIOS EQU VTLRUCW+2 08840000 VTLRUTIM EQU VTLRUCW+1 08841000 VTLRUCLK EQU VTLRUCW 08842000 VTTRCR EQU VTTRCCHR+3 08843000 VTTRCH EQU VTTRCCHR+2 08844000 VTTRCC EQU VTTRCCHR+1 08845000 VTXY EQU VTTRCCHR 08846000 @NM00094 EQU VTABLER1+160 08847000 VTSADDR EQU VTUCB+6 08848000 VTPADDR EQU VTUCB+4 08849000 VTPOST EQU VTUCB+3 08850000 VTACTIVE EQU VTUCB+2 08851000 VTWORK EQU VTUCB+1 08852000 VTSBUSY EQU VTFLAGS 08853000 VTSREADY EQU VTFLAGS 08854000 VTSONLIN EQU VTFLAGS 08855000 VTSVALID EQU VTFLAGS 08856000 VTPBUSY EQU VTFLAGS 08857000 VTPREADY EQU VTFLAGS 08858000 VTPONLIN EQU VTFLAGS 08859000 VTPVALID EQU VTFLAGS 08860000 VTLRU1 EQU VTSDGID+3 08861000 VTLRU0 EQU VTSDGID+2 08862000 VTL33331 EQU VTSDGID+1 08863000 VTL33330 EQU VTSDGID 08864000 @NM00093 EQU VTTBLCHR 08865000 @NM00092 EQU @NM00091+2 08866000 VTIMPLS EQU @NM00091 08867000 VTPACKID EQU VTABLER1 08868000 LTRMOD11 EQU LTRRUA 08869000 PSTCYLW EQU PST+3 08870000 PSTCYLV EQU PST+2 08871000 VVITPCDD EQU VVITBYT2 08872000 VVITPCDC EQU VVITBYT2 08873000 VVITPCDB EQU VVITBYT2 08874000 VVITRSVD EQU VVITBYT2 08875000 VVITINTF EQU VVITBYT2 08876000 VVITVVB EQU VVITBYT2 08877000 VVITCC EQU VVITBYT2 08878000 VVITVVS EQU VVITBYT1 08879000 VVITVVWI EQU VVITBYT1 08880000 VVITFR EQU VVITBYT1 08881000 VVITNBM EQU VVITBYT1 08882000 VVITDEDD EQU VVITBYT1 08883000 VVITDEDC EQU VVITBYT1 08884000 VVITDEDB EQU VVITBYT1 08885000 VVITDEDA EQU VVITBYT1 08886000 VADRM EQU VADFLAGS 08887000 VADVSI EQU VADFLAGS 08888000 VADRDED EQU VADFLAGS 08889000 VADRB EQU VADFLAGS 08890000 VADRR EQU VADFLAGS 08891000 VADVWI EQU VADFLAGS 08892000 VADVWG EQU VADFLAGS 08893000 VADVRW EQU VADFLAGS 08894000 VADPOH EQU VADWORD2+2 08895000 VADUDE EQU VADLUA 08896000 VADMOD11 EQU VADRPNUM 08897000 VADLINK EQU VADWORD1+3 08898000 VADUCS EQU VADRUA 08899000 VADCCR EQU VADRUA 08900000 VADEDI EQU VADRUA 08901000 VADVFM EQU VADWORD1 08902000 VSDDSN EQU VSDARRAY+4 08903000 VSDVOLCT EQU VSDARRAY 08904000 VSDFMT0 EQU VSDBLOCK+8 08905000 VSDVTOCS EQU VSDBLOCK+4 08906000 VSDELEM EQU VSDBLOCK 08907000 VSDFREE EQU VSDUSAGE+24 08908000 VSDALLC EQU VSDUSAGE+19 08909000 VSDDSOR3 EQU VSDDSORG+2 08910000 @NM00090 EQU VSDDSORG 08911000 VSDSCAL EQU VSDUSAGE+12 08912000 @NM00089 EQU VSDUSEF 08913000 VSDCALFR EQU VSDUSEF 08914000 @NM00088 EQU VSDALLOC 08915000 VSDABSTR EQU VSDALLOC 08916000 VSDABLK EQU VSDALLOC 08917000 VSDATRK EQU VSDALLOC 08918000 VSDACYL EQU VSDALLOC 08919000 @NM00087 EQU VSDDORG 08920000 VSDOU EQU VSDDORG 08921000 VSDOIS EQU VSDDORG 08922000 VSDODA EQU VSDDORG 08923000 VSDOUN EQU VSDDORG 08924000 VSDOPS EQU VSDDORG 08925000 VSDOPO EQU VSDDORG 08926000 VSDEXTS EQU VSDUSAGE+8 08927000 VSDSECAL EQU VSDUSAGE+4 08928000 VSDFTRK EQU VSDUSAGE+2 08929000 VSDTRKS EQU VSDUSAGE 08930000 @NM00086 EQU VSDSCR+5 08931000 @NM00085 EQU VSDSCRFL 08932000 VSDVSAM EQU VSDSCRFL 08933000 VSDCATLC EQU VSDSCRFL 08934000 VSDACBPT EQU VSDSCR 08935000 VSDPRTC EQU VSDSTAT+25 08936000 VSDCAT EQU VSDSTAT+22 08937000 VSDEXP EQU VSDSTAT+20 08938000 VSDCRE EQU VSDSTAT+18 08939000 @NM00084 EQU VSDFLG2 08940000 VSDERROR EQU VSDFLG2 08941000 VSDPROT EQU VSDFLG2 08942000 VSDPWW EQU VSDFLG2 08943000 VSDPWR EQU VSDFLG2 08944000 @NM00083 EQU VSDSFLG1 08945000 VSDCVSAM EQU VSDSFLG1 08946000 VSDCATLG EQU VSDSFLG1 08947000 VSDVSAME EQU VSDSFLG1 08948000 VSDVSAMC EQU VSDSFLG1 08949000 VSDVTOCE EQU VSDSFLG1 08950000 VSDVTOCC EQU VSDSFLG1 08951000 VSDOWNER EQU VSDSTAT+8 08952000 VSDEXPIR EQU VSDSTAT+4 08953000 VSDCREAT EQU VSDSTAT 08954000 VSDFRCCL EQU VSDVTOC+21 08955000 @NM00082 EQU VSDVTOC+20 08956000 VSDFREXT EQU VSDVTOC+16 08957000 @NM00081 EQU VSDVTOC+15 08958000 VSDFRTRK EQU VSDVTOC+11 08959000 @NM00080 EQU VSDVTOC+10 08960000 VSDFRCYL EQU VSDVTOC+6 08961000 @NM00079 EQU VSDVTOC 08962000 @NM00078 EQU VS3FLAGS 08963000 VS3SYSNM EQU VS3FLAGS 08964000 VS3UNCAT EQU VS3FLAGS 08965000 VS3SCR EQU VS3FLAGS 08966000 VS3USAGE EQU VS3FLAGS 08967000 VS3STAT EQU VS3FLAGS 08968000 VS3DD EQU VS3AGL+50 08969000 VS3VOL EQU VS3AGL+44 08970000 VS3POOL EQU VS3AGL+40 08971000 VS3DEV EQU VS3AGL+36 08972000 VS3UCBP EQU VS3AGL+32 08973000 VS3CREAT EQU VS3AGL+28 08974000 VS3EXPIR EQU VS3AGL+24 08975000 VS3AST EQU VS3AGL+22 08976000 VS3LEVLN EQU VS3AGL+20 08977000 VS3LEVP EQU VS3AGL+16 08978000 VS3EXDSP EQU VS3AGL+12 08979000 VS3LISTP EQU VS3AGL+8 08980000 VS3HEAD EQU VS3AGL 08981000 @NM00077 EQU DATESOPT 08982000 DATDAYOP EQU DATESOPT 08983000 DATDTEOP EQU DATESOPT 08984000 DATSUB EQU DATESOPT 08985000 DATADD EQU DATESOPT 08986000 DATRETRN EQU DATESAGL+16 08987000 DATDAYS EQU DATESAGL+12 08988000 DATDATE EQU DATESAGL+8 08989000 DATHEAD EQU DATESAGL 08990000 @NM00076 EQU SELFLAGS 08991000 SELVOL EQU SELAGL+16 08992000 SELDDNP EQU SELAGL+12 08993000 SELUCBP EQU SELAGL+8 08994000 SELHEAD EQU SELAGL 08995000 @NM00075 EQU UCTFLAGS 08996000 UCTVSCAT EQU UCTFLAGS 08997000 UCTDD EQU UCTAGL+60 08998000 UCTVOLP EQU UCTAGL+56 08999000 UCTACBP EQU UCTAGL+52 09000000 UCTDSN EQU UCTAGL+8 09001000 UCTHEAD EQU UCTAGL 09002000 @NM00074 EQU LCTFLAGS 09003000 LCTVSCAT EQU LCTFLAGS 09004000 LCTOWNER EQU LCTINFO+24 09005000 LCTEXPIR EQU LCTINFO+20 09006000 LCTCREAT EQU LCTINFO+16 09007000 LCTACBP EQU LCTINFO+12 09008000 LCTMULVC EQU LCTINFO+8 09009000 LCTHEAD EQU LCTINFO 09010000 SRTWORKP EQU SRTAGL+28 09011000 SRTFLDLN EQU SRTAGL+24 09012000 SRTPOSIT EQU SRTAGL+20 09013000 SRTLEN EQU SRTAGL+16 09014000 SRTNUM EQU SRTAGL+12 09015000 SRTADDR EQU SRTAGL+8 09016000 SRTHEAD EQU SRTAGL 09017000 SV82DEBP EQU SV82WRKP 09018000 SV82TTRP EQU SV82LIST+8 09019000 SV82VOLP EQU SV82DCBP 09020000 SV82UCBP EQU SV82LIST+1 09021000 SV82CODE EQU SV82LIST 09022000 VOLRESV3 EQU VOLLABEL+55 09023000 VOLOWNER EQU VOLLABEL+45 09024000 VOLRESV1 EQU VOLLABEL+20 09025000 VOLVTOC EQU VOLLABEL+15 09026000 VOLSECTY EQU VOLLABEL+14 09027000 VOLSERNO EQU VOLLABEL+8 09028000 VOLNO EQU VOLLABEL+7 09029000 VOLLABI EQU VOLLABEL+4 09030000 VOLKEY EQU VOLLABEL 09031000 STAVTTR EQU STAEPARM+54 09032000 @NM00071 EQU STARETRY 09033000 STAVTOC EQU STARETRY 09034000 STAOFF EQU STARETRY 09035000 STAIO05 EQU STARETRY 09036000 @NM00070 EQU STARCVY 09037000 STACLEAR EQU STARCVY 09038000 STAVPOST EQU STARCVY 09039000 STAVENQ EQU STARCVY 09040000 STAVDMNT EQU STARCVY 09041000 STAVMNT EQU STARCVY 09042000 STATCB EQU STAEPARM+48 09043000 STARTADD EQU STAEPARM+44 09044000 STAEXSAV EQU STAEPARM+40 09045000 STARTSAV EQU STAEPARM+36 09046000 STARTTR EQU STAEPARM+32 09047000 @NM00069 EQU STAEPARM+30 09048000 STARVOL EQU STAEPARM+24 09049000 STARUCB EQU STAEPARM+20 09050000 @NM00068 EQU STAEPARM+18 09051000 STAVVOL EQU STAEPARM+12 09052000 STAVUCB EQU STAEPARM+8 09053000 STAHEAD EQU STAEPARM 09054000 RCTDSET EQU RCTAGL+32 09055000 RCTNVOL EQU RCTAGL+26 09056000 RCTOVOL EQU RCTAGL+20 09057000 RCTNDEV EQU RCTAGL+16 09058000 RCTODEV EQU RCTAGL+12 09059000 @NM00067 EQU RCTAGL+10 09060000 @NM00066 EQU RCTOPT 09061000 RCTVOL EQU RCTOPT 09062000 RCTDEV EQU RCTOPT 09063000 RCTHEAD EQU RCTAGL 09064000 @NM00065 EQU VSRESOPT 09065000 VSREAL EQU VSRESOPT 09066000 VSRES EQU VSRESOPT 09067000 @NM00064 EQU VSMSG 09068000 VSTOV EQU VSMSG 09069000 VSFROMV EQU VSMSG 09070000 @NM00063 EQU VSRETURN 09071000 VSUCAT EQU VSRETURN 09072000 VSVSAM EQU VSRETURN 09073000 @NM00062 EQU VSCATOPT 09074000 VSLIST EQU VSCATOPT 09075000 VSSERIAL EQU VSCATOPT 09076000 VSDEVICE EQU VSCATOPT 09077000 @NM00061 EQU VSVTOPT 09078000 VSVSFLAG EQU VSVTOPT 09079000 VSALTTRK EQU VSVTOPT 09080000 VSTIME EQU VSVTOPT 09081000 VSUCMAST EQU VSSECOPT 09082000 VSOPCAT EQU VSSECOPT 09083000 VSUCTEST EQU VSSECOPT 09084000 VSWRITE EQU VSSECOPT 09085000 VSREAD EQU VSSECOPT 09086000 VSNONONV EQU VSSECOPT 09087000 VSMASTER EQU VSSECOPT 09088000 VSNOVSAM EQU VSSECOPT 09089000 VSODEVP EQU VS1AGL+64 09090000 VSOSERP EQU VS1AGL+60 09091000 VSDEVP EQU VS1AGL+56 09092000 VSSERP EQU VS1AGL+52 09093000 VSPFILEP EQU VS1AGL+48 09094000 VSPSWDP EQU VS1AGL+44 09095000 VSCATDDP EQU VS1AGL+40 09096000 VSACBP EQU VS1AGL+36 09097000 VSCATP EQU VS1AGL+32 09098000 VSNXTATP EQU VS1AGL+28 09099000 VSNUMATP EQU VS1AGL+24 09100000 VSIOP EQU VS1AGL+20 09101000 VSFILEP EQU VS1AGL+16 09102000 VSVOLP EQU VS1AGL+12 09103000 VSUCBP EQU VS1AGL+8 09104000 VSHEAD EQU VS1AGL 09105000 VSVTOCPT EQU VS2AGL+48 09106000 @NM00060 EQU VS2AGL+45 09107000 VSDDNAME EQU VS2AGL+37 09108000 @NM00059 EQU VS2RESOP 09109000 VS2REAL EQU VS2RESOP 09110000 VS2RES EQU VS2RESOP 09111000 @NM00058 EQU VS2MSG 09112000 VS2TOV EQU VS2MSG 09113000 VSVOLUME EQU VS2AGL+29 09114000 @NM00057 EQU VSLABOPT 09115000 VSNOVTOC EQU VSLABOPT 09116000 VSVOLSER EQU VSLABOPT 09117000 VSOWNER EQU VSLABOPT 09118000 VSIOBKPT EQU VS2AGL+24 09119000 VSVOLPTR EQU VS2AGL+20 09120000 VSOWNPTR EQU VS2AGL+16 09121000 VSVTOCSZ EQU VS2AGL+12 09122000 VSUCBPTR EQU VS2AGL+8 09123000 VS2HEAD EQU VS2AGL 09124000 EXPDATAL EQU EXPARRAY+6 09125000 @NM00056 EQU EXPARRAY+5 09126000 EXPKEYLN EQU EXPARRAY+4 09127000 EXPDATAP EQU EXPARRAY 09128000 EXPRECNO EQU EXPDATAB 09129000 EXPCCHHR EQU EXPARG+16 09130000 EXPCTLBK EQU EXPARG+8 09131000 EXPHEAD EQU EXPARG 09132000 EXRWFUN EQU EXWRARG+46 09133000 @NM00055 EQU EXSPACE+8 09134000 @NM00054 EQU EXSPACE+6 09135000 @NM00053 EQU EXSPACE+4 09136000 @NM00052 EQU EXSPACE+1 09137000 @NM00051 EQU EXSPACE 09138000 EXRWKDLN EQU EXWRARG+32 09139000 @NM00050 EQU EXWRARG+31 09140000 EXRECNUM EQU EXRWCHR+4 09141000 EXHH EQU EXRWCHR+2 09142000 EXCC EQU EXRWCHR 09143000 EXCCWCNT EQU EXWRARG+24 09144000 EXLOCPTR EQU EXWRARG+20 09145000 EXRWDARE EQU EXWRARG+16 09146000 EXRWIOAR EQU EXWRARG+12 09147000 EXRWCTBL EQU EXWRARG+8 09148000 EXRWRES EQU EXWRARG 09149000 EXGDATAL EQU EXGARG+30 09150000 @NM00049 EQU EXGARG+29 09151000 EXGKEYLN EQU EXGARG+28 09152000 EXGDATAP EQU EXGARG+24 09153000 EXGRECNO EQU EXGARG+20 09154000 EXGCCHH2 EQU EXGARG+16 09155000 EXGCCHH1 EQU EXGARG+12 09156000 EXGHEAD EQU EXGARG 09157000 EXOVTH EQU EXFLG 09158000 EXORVT EQU EXFLG 09159000 EXORDS EQU EXFLG 09160000 EXOSPK EQU EXFLG 09161000 EXORVS EQU EXFLG 09162000 @NM00048 EQU EXFLG 09163000 EXOREAD EQU EXFLG 09164000 @NM00047 EQU EXOPT 09165000 EXOREP EQU EXOPT 09166000 EXOVTOC EQU EXOPT 09167000 EXONEW EQU EXOPT 09168000 EXOPASS EQU EXOPT 09169000 EXOLAB EQU EXOPT 09170000 EXOUCB EQU EXOARG+20 09171000 EXOVSN EQU EXOARG+16 09172000 EXODSN EQU EXOARG+12 09173000 EXOHEAD EQU EXOARG 09174000 @NM00046 EQU EXCLFLAG 09175000 EXCLMNT EQU EXCLFLAG 09176000 EXCLVOL EQU EXCLAGL+16 09177000 EXCLDDP EQU EXCLAGL+12 09178000 EXCLUCBP EQU EXCLAGL+8 09179000 EXCLHEAD EQU EXCLAGL 09180000 @NM00045 EQU CKFLAGS 09181000 CKDMTABL EQU CKFLAGS 09182000 CKRETTYP EQU CKFLAGS 09183000 CKDATYPE EQU CKAGL+20 09184000 CKHEAD EQU CKAGL 09185000 PULABELP EQU PUAGL+16 09186000 PUTTRPTR EQU PUAGL+12 09187000 PUUCBPTR EQU PUAGL+8 09188000 PUHEAD EQU PUAGL 09189000 MDR EQU MDVTOC+4 09190000 MDHH EQU MDVTOC+2 09191000 MDCC EQU MDVTOC 09192000 @NM00044 EQU MDAGL+31 09193000 MDVTOCTR EQU MDFLAGS 09194000 MDFORCE EQU MDFLAGS 09195000 MDDEQ EQU MDFLAGS 09196000 MDENQ EQU MDFLAGS 09197000 MDWAIT EQU MDFLAGS 09198000 MDPOST EQU MDFLAGS 09199000 MDCLEAR EQU MDFLAGS 09200000 MDNEWVOL EQU MDFLAGS 09201000 MDLABEL EQU MDAGL+24 09202000 MDPUAGL EQU MDAGL+20 09203000 MDDDNAME EQU MDAGL+12 09204000 MDUCBPTR EQU MDAGL+8 09205000 MDHEAD EQU MDAGL 09206000 CTTBLID EQU CTARRAY 09207000 CTREALH EQU CTMSG+3 09208000 @NM00043 EQU CTMSG 09209000 CMCSN2 EQU CMMSG+28 09210000 CMCSN1 EQU CMMSG+16 09211000 CMNUMCRT EQU CMMSG+15 09212000 @NM00042 EQU CMMSG+14 09213000 CMNEWVOL EQU CMMSG+8 09214000 @NM00041 EQU CMMSG+7 09215000 @NM00040 EQU CMVOLFLG 09216000 CMRONLY EQU CMVOLFLG 09217000 CMBIND EQU CMVOLFLG 09218000 CMSCRCRT EQU CMVOLFLG 09219000 CMEXCL EQU CMVOLFLG 09220000 CMDERAS EQU CMVOLFLG 09221000 CMSCRVOL EQU CMVOLFLG 09222000 CMCECART EQU CMVOLFLG 09223000 CMOLDVOL EQU CMMSG 09224000 CCOLDCSN EQU CCMSG+24 09225000 CCNEWCSN EQU CCMSG+12 09226000 @NM00039 EQU CCMSG+10 09227000 CCVOL EQU CCMSG+4 09228000 @NM00038 EQU CCMSG+2 09229000 CCEJCODE EQU CCMSG+1 09230000 CCPSTCDE EQU CCMSG 09231000 @NM00037 EQU DMPARY+15 09232000 DMPARYTP EQU DMPARY+14 09233000 DMPARYEX EQU DMPARY+12 09234000 DMPARYIC EQU DMPARY+10 09235000 DMPARYSZ EQU DMPARY+8 09236000 DMPARYNM EQU DMPARY 09237000 @NM00036 EQU DMPITM+15 09238000 @NM00035 EQU ERCNVTAB+24 09239000 ERCPLPT EQU ERCNVTAB+20 09240000 ERCATRC EQU ERCNVTAB+16 09241000 ERDSNM EQU ERCNVTAB+12 09242000 @NM00034 EQU ERCNVTAB+4 09243000 @NM00033 EQU ERCNVTAB+3 09244000 @NM00032 EQU EROSOPER 09245000 EROSUCDX EQU EROSOPER 09246000 EROSCATL EQU EROSOPER 09247000 @NM00031 EQU EROPER 09248000 ERCATAL EQU EROPER 09249000 ERCATDL EQU EROPER 09250000 ERCATDE EQU EROPER 09251000 ERCATLC EQU EROPER 09252000 @NM00030 EQU ERTYPE 09253000 EROSCAT EQU ERTYPE 09254000 ERCATLG EQU ERTYPE 09255000 @NM00029 EQU FMTCNVF+1 09256000 FMTAR EQU FMTCNVF+1 09257000 FMTBS EQU FMTCNVF+1 09258000 FMTSS EQU FMTCNVF+1 09259000 FMTAL EQU FMTCNVF+1 09260000 FMTZS EQU FMTCNVF+1 09261000 @NM00028 EQU FMTCNVF 09262000 FMTPU EQU FMTCNVF 09263000 FMTBD EQU FMTCNVF 09264000 FMTBHD EQU FMTCNVF 09265000 FMTBHA EQU FMTCNVF 09266000 FMTBH EQU FMTCNVF 09267000 FMTOLEN EQU FMTLIST+8 09268000 FMTRIO EQU FMTOCOL 09269000 FMTSPT EQU FMTSTO 09270000 FMTSTL EQU FMTILEN 09271000 @NM00027 EQU FMTFLGS+1 09272000 FMTHDF EQU FMTFLGS 09273000 FMTDFF EQU FMTFLGS 09274000 FMTSTF EQU FMTFLGS 09275000 FMTREPF EQU FMTFLGS 09276000 FMTBDF EQU FMTFLGS 09277000 FMTIDF EQU FMTFLGS 09278000 FMTSCF EQU FMTFLGS 09279000 FMTEOLF EQU FMTFLGS 09280000 DARGDTM EQU DARGARY+4 09281000 DARGPCT EQU DARGINL 09282000 DARGREP EQU DARGINS 09283000 @NM00026 EQU DARGLIST+19 09284000 DARGIND EQU DARGLIST+18 09285000 DARGCNT EQU DARGLIST+14 09286000 UVOLVOL EQU UVOLENT+4 09287000 UVOLDEV EQU UVOLENT 09288000 UVOLCNT EQU UVOLLIST 09289000 @NM00025 EQU IOINFOPT 09290000 IOINFTMS EQU IOINFOPT 09291000 IOINFSUP EQU IOINFOPT 09292000 IOINFDSN EQU IOINFOPT 09293000 IOINFDVT EQU IOINFOPT 09294000 OPNVOL EQU OPNAGL+44 09295000 @NM00024 EQU OPNAGL+43 09296000 @NM00023 EQU OPNOPT2 09297000 OPNOPTJM EQU OPNOPT2 09298000 @NM00022 EQU OPNOPT2 09299000 OPNOPTAS EQU OPNOPT2 09300000 @NM00021 EQU OPNDSO 09301000 OPNDSOPO EQU OPNDSO 09302000 OPNDSOIS EQU OPNDSO 09303000 OPNDSOPS EQU OPNDSO 09304000 OPNDSOAM EQU OPNDSO 09305000 OPNKYL EQU OPNAGL+40 09306000 OPNBLK EQU OPNAGL+36 09307000 OPNREC EQU OPNAGL+32 09308000 OPNDEVIX EQU OPNDEV+4 09309000 OPNDEVDT EQU OPNDEV 09310000 OPNCBP EQU OPNAGL+20 09311000 OPNDSN EQU OPNAGL+16 09312000 OPNPWA EQU OPNAGL+12 09313000 OPNDDN EQU OPNAGL+8 09314000 OPNIOC EQU OPNAGL+4 09315000 OPNMODRP EQU OPNMOD 09316000 OPNMODUB EQU OPNMOD 09317000 OPNMODRS EQU OPNMOD 09318000 OPNMODAX EQU OPNMOD 09319000 OPNMODRR EQU OPNMOD 09320000 OPNMODRC EQU OPNMOD 09321000 OPNMODAC EQU OPNMOD 09322000 OPNMODPD EQU OPNMOD 09323000 @NM00020 EQU OPNTYP 09324000 OPNTYPRV EQU OPNTYP 09325000 OPNTYPEX EQU OPNTYP 09326000 OPNTYPRA EQU OPNTYP 09327000 OPNTYPXM EQU OPNTYP 09328000 OPNTYPCI EQU OPNTYP 09329000 OPNTYPSO EQU OPNTYP 09330000 OPNTYPSI EQU OPNTYP 09331000 @NM00019 EQU OPNRFM 09332000 OPNRFMBK EQU OPNRFM 09333000 OPNRFMSF EQU OPNRFM 09334000 OPNRFMUN EQU OPNRFM 09335000 OPNRFMVR EQU OPNRFM 09336000 OPNRFMFX EQU OPNRFM 09337000 OPNOPTSK EQU OPNOPT 09338000 OPNOPTDR EQU OPNOPT 09339000 OPNOPTCR EQU OPNOPT 09340000 OPNOPTKS EQU OPNOPT 09341000 OPNOPTBK EQU OPNOPT 09342000 OPNOPTUP EQU OPNOPT 09343000 OPNOPTOT EQU OPNOPT 09344000 OPNOPTIN EQU OPNOPT 09345000 IOCEXT EQU IOCSTR+64 09346000 IOCREL EQU IOCSTR+60 09347000 IOCWORK EQU IOCSTR+56 09348000 IOCRRN EQU IOCSTR+52 09349000 IOCPNM EQU IOCNWM+2 09350000 IOCPTL EQU IOCNWM 09351000 IOCKYA EQU IOCMEM 09352000 IOCVRC EQU IOCTTR 09353000 IOCCBP EQU IOCSTR+36 09354000 IOCDSN EQU IOCSTR+32 09355000 IOCHURBA EQU IOCSTR+28 09356000 IOCVOLSR EQU IOCSTR+22 09357000 @NM00018 EQU IOCMSG 09358000 IOCMSGAE EQU IOCMSG 09359000 IOCMSGCE EQU IOCMSG 09360000 IOCMSGOE EQU IOCMSG 09361000 IOCMSGOP EQU IOCMSG 09362000 @NM00017 EQU IOCMSG 09363000 IOCCHPSY EQU IOCCHP 09364000 IOCCHPAS EQU IOCCHP 09365000 IOCCHPBK EQU IOCCHP 09366000 IOCCHPCR EQU IOCCHP 09367000 IOCCHPKS EQU IOCCHP 09368000 IOCCHPSK EQU IOCCHP 09369000 IOCCHPDR EQU IOCCHP 09370000 IOCCHPSQ EQU IOCCHP 09371000 @NM00016 EQU IOCMAC2 09372000 IOCMACPA EQU IOCMAC2 09373000 @NM00015 EQU IOCMAC2 09374000 IOCMACCP EQU IOCMAC2 09375000 IOCMACRR EQU IOCMAC2 09376000 IOCMACAS EQU IOCMAC2 09377000 IOCMACSK EQU IOCMAC2 09378000 @NM00014 EQU IOCMAC 09379000 IOCMACCC EQU IOCMAC 09380000 IOCMACDR EQU IOCMAC 09381000 IOCMACBK EQU IOCMAC 09382000 IOCMACCR EQU IOCMAC 09383000 IOCMACUP EQU IOCMAC 09384000 IOCMACOT EQU IOCMAC 09385000 IOCMACIN EQU IOCMAC 09386000 @NM00013 EQU IOCRFM 09387000 IOCRFMBK EQU IOCRFM 09388000 IOCRFMSF EQU IOCRFM 09389000 IOCRFMUN EQU IOCRFM 09390000 IOCRFMVR EQU IOCRFM 09391000 IOCRFMFX EQU IOCRFM 09392000 @NM00012 EQU IOCDSO 09393000 IOCDSOPO EQU IOCDSO 09394000 IOCDSOIS EQU IOCDSO 09395000 IOCDSOPS EQU IOCDSO 09396000 IOCDSOAM EQU IOCDSO 09397000 IOCRKP EQU IOCSTR+13 09398000 IOCKYL EQU IOCSTR+12 09399000 IOCTRN EQU IOCSTR+8 09400000 IOCDLN EQU IOCSTR+4 09401000 IOCDAD EQU IOCSTR 09402000 UNITVTOC EQU UNITABL+7 09403000 @NM00011 EQU UNITSTAT 09404000 UNITUSHR EQU UNITSTAT 09405000 UNITXSHR EQU UNITSTAT 09406000 UNITISHR EQU UNITSTAT 09407000 UNITUA EQU @NM00010+1 09408000 UNITCHA EQU @NM00010 09409000 UNITUCB EQU UNITABL 09410000 ALLUNCNT EQU ALLAGL+30 09411000 ALLVLCNT EQU ALLAGL+29 09412000 @NM00009 EQU ALLOPT 09413000 ALLOPTUN EQU ALLOPT 09414000 ALLOPTPV EQU ALLOPT 09415000 ALLOPTVL EQU ALLOPT 09416000 @NM00008 EQU ALLORG+1 09417000 ALLORGVS EQU ALLORG+1 09418000 @NM00007 EQU ALLORG+1 09419000 ALLORGGS EQU ALLORG+1 09420000 ALLORGUN EQU ALLORG 09421000 ALLORGPO EQU ALLORG 09422000 ALLORGMQ EQU ALLORG 09423000 ALLORGCQ EQU ALLORG 09424000 ALLORGCX EQU ALLORG 09425000 ALLORGDA EQU ALLORG 09426000 ALLORGPS EQU ALLORG 09427000 ALLORGIS EQU ALLORG 09428000 ALLDSPUN EQU ALLDSP 09429000 ALLDSPCG EQU ALLDSP 09430000 ALLDSPDE EQU ALLDSP 09431000 @NM00006 EQU ALLDSP 09432000 ALLSTSMD EQU ALLSTS 09433000 ALLSTSNW EQU ALLSTS 09434000 ALLSTSSR EQU ALLSTS 09435000 @NM00005 EQU ALLSTS 09436000 ALLPWD EQU ALLAGL+20 09437000 ALLVLP EQU ALLAGL+16 09438000 CIRPID EQU CIRAGL+28 09439000 CIRPWD EQU CIRAGL+24 09440000 CIRCAT EQU CIRAGL+20 09441000 CIRWKP EQU CIRAGL+16 09442000 CIRTLR EQU CIRAGL+12 09443000 CIRHDR EQU CIRAGL+8 09444000 CIRTLN EQU CIRAGL+6 09445000 CIRHLN EQU CIRAGL+4 09446000 @NM00004 EQU CIRAGL+1 09447000 @NM00003 EQU CIRTYPE 09448000 CIRTYPAQ EQU CIRTYPE 09449000 CIRTYP1Q EQU CIRTYPE 09450000 NEWID1 EQU TRACE1+95 09451000 CALLID EQU OLDERID1+90 09452000 @NM00002 EQU OLDERID1 09453000 * END UNREFERENCED COMPONENTS 09454000 @RF00495 EQU @EL00002 09455000 @RF00772 EQU @EL00003 09456000 @RC00803 EQU @RC00788 09457000 @RF00851 EQU @RC00847 09458000 @RF00856 EQU @EL00004 09459000 @RC00873 EQU @EL00004 09460000 @RF00922 EQU @EL00005 09461000 @RC00961 EQU @RC00960 09462000 @RC01072 EQU @RC01071 09463000 @RT01164 EQU @EL00007 09464000 @RT01169 EQU @EL00007 09465000 @RT01291 EQU @EL00007 09466000 @RC01332 EQU @EL00008 09467000 @RC01379 EQU @EL00008 09468000 @RF01415 EQU CE0002@ 09469000 @RF01432 EQU CE0002@ 09470000 @RF01449 EQU CE0002@ 09471000 @RF01466 EQU CE0002@ 09472000 @RF01477 EQU CE0002@ 09473000 @RF01563 EQU CE0003@ 09474000 @RF01572 EQU CE0003@ 09475000 @RF01600 EQU CE0003@ 09476000 @RF01609 EQU CE0003@ 09477000 @RF01637 EQU CE0003@ 09478000 @RF01646 EQU CE0003@ 09479000 @RF01674 EQU CE0003@ 09480000 @RF01683 EQU CE0003@ 09481000 @RF01694 EQU CE0003@ 09482000 @RF01705 EQU CE0003@ 09483000 @RT01748 EQU @EL00009 09484000 @RC01390 EQU @EL00009 09485000 @RF01763 EQU @EL00009 09486000 @RF01863 EQU @EL00010 09487000 @RF01958 EQU @RC01943 09488000 @PB00012 EQU @EL00001 09489000 @RC01073 EQU @RC01072 09490000 @RT01374 EQU @RC01332 09491000 @RF01523 EQU @RC01390 09492000 @PB00011 EQU @PB00012 09493000 @PB00010 EQU @PB00011 09494000 @PB00009 EQU @PB00010 09495000 @PB00008 EQU @PB00009 09496000 @PB00007 EQU @PB00008 09497000 @PB00006 EQU @PB00007 09498000 @PB00005 EQU @PB00006 09499000 @PB00004 EQU @PB00005 09500000 @PB00003 EQU @PB00004 09501000 @PB00002 EQU @PB00003 09502000 @ENDDATA EQU * 09503000 END IDCCH01,(C'PLS1344',0603,77297) 09504000