TITLE '************* IDCCH03: CHECKMSS GET-ENTRY ROUTINE *****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 IDCCH03 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCCH03 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 USING @PSTART,@12 0002 00023000 USING @PSTART+4095,@10 0002 00024000 L @00,@SIZDATD 0002 00025000 GETMAIN R,LV=(0) 00026000 LR @11,@01 0002 00027000 USING @DATD,@11 0002 00028000 ST @13,@SA00001+4 0002 00029000 LM @00,@01,20(@13) 0002 00030000 ST @11,8(,@13) 0002 00031000 LR @13,@11 0002 00032000 MVC @PC00001(8),0(@01) 0002 00033000 * 0369 00034000 */********************************************************************/ 00035000 */* @Z40LB61*/ 00036000 */* PROCEDURE NAME - IDCCH03 @Z40LB61*/ 00037000 */* @Z40LB61*/ 00038000 */* FUNCTION - TO PERFORM THE INITIALIZATION AND CLEANUP FOR @ZA27324*/ 00039000 */* IDCCH03 ROUTINE. @ZA27324*/ 00040000 */* @Z40LB61*/ 00041000 */* INPUT - @Z40LB61*/ 00042000 */* (1) 'GETENTRY' ARGUMENT LIST @Z40LB61*/ 00043000 */* (2) TABLE OF STARTING CCHHR'S FOR MSC TABLES @Z40LB61*/ 00044000 */* (3) ADDRESSES OF BUFFER AREAS TO BE USED @Z40LB61*/ 00045000 */* (4) CONTROL BLOCKS WITHIN MSC TABLES @Z40LB61*/ 00046000 */* @Z40LB61*/ 00047000 */* OUTPUT - @Z40LB61*/ 00048000 */* (1) LASTCOND IS NOT RETURNED @ZA27324*/ 00049000 */* (2) EXIT VIA UEPIL @ZA27324*/ 00050000 */* @Z40LB61*/ 00051000 */********************************************************************/ 00052000 * 0369 00053000 * OLDERID2=NEWERID2; 0369 00054000 L @05,@PC00001 0369 00055000 L @15,GDTTR2(,@05) 0369 00056000 MVC @TS00001(95),NEWERID2(@15) 0369 00057000 MVC OLDERID2(95,@15),@TS00001 0369 00058000 * NEWID2='CH3A'; /* @Z40LB61*/ 00059000 * 0370 00060000 MVC NEWID2(4,@15),@CC01959 0370 00061000 * /*****************************************************************/ 00062000 * /* */ 00063000 * /* DUMP THE INPUT PARAMETER LIST 'ENTRYARG' @Z40LB61*/ 00064000 * /* */ 00065000 * /*****************************************************************/ 00066000 * 0371 00067000 * IF GDTDBG=NULLPTR THEN 0371 00068000 L @05,GDTDBG(,@05) 0371 00069000 LTR @05,@05 0371 00070000 BZ @RT00371 0371 00071000 * ; 0372 00072000 * ELSE 0373 00073000 * DO; 0373 00074000 * DMPINDEX=ADDR(DUMPLIST); /* @Z40LB61*/ 00075000 LA DMPINDEX,DUMPLIST 0374 00076000 * DMPITMNM='ENTRYARG'; 0375 00077000 MVC DMPITMNM(8,DMPINDEX),@CC01960 0375 00078000 * DMPITMPT=ADDR(ENTRYARG); 0376 00079000 L @05,@PC00001+4 0376 00080000 L @05,EARGPTR(,@05) 0376 00081000 ST @05,DMPITMPT(,DMPINDEX) 0376 00082000 * DMPITMLN=LENGTH(ENTRYARG); 0377 00083000 MVC DMPITMLN(2,DMPINDEX),@CH01896 0377 00084000 * DMPITMTP='H'; 0378 00085000 MVI DMPITMTP(DMPINDEX),C'H' 0378 00086000 * DMPINDEX=DMPINDEX+DMPELEMT; 0379 00087000 * 0379 00088000 AL DMPINDEX,@CF00472 0379 00089000 * /*************************************************************/ 00090000 * /* */ 00091000 * /* @Z40LB61*/ 00092000 * /* */ 00093000 * /*************************************************************/ 00094000 * 0380 00095000 * DMPTRM=DMPTRMVL; 0380 00096000 MVI DMPTRM(DMPINDEX),X'FF' 0380 00097000 * END; /* @Z40LB61*/ 00098000 * IF GDTDBG=NULLPTR THEN 0382 00099000 @RT00371 L @05,@PC00001 0382 00100000 L @05,GDTDBG(,@05) 0382 00101000 LTR @05,@05 0382 00102000 BZ @RT00382 0382 00103000 * ; 0383 00104000 * ELSE 0384 00105000 * CALL IDCDB010(GDTTBL,'CH3X',ADDR(DUMPLIST));/* @Z40LB61*/ 00106000 * 0384 00107000 L @05,@PC00001 0384 00108000 ST @05,@AL00001 0384 00109000 LA @15,@CC01962 0384 00110000 ST @15,@AL00001+4 0384 00111000 LA @15,DUMPLIST 0384 00112000 ST @15,@AFTEMPS+4 0384 00113000 LA @15,@AFTEMPS+4 0384 00114000 ST @15,@AL00001+8 0384 00115000 MVI @AL00001+8,X'80' 0384 00116000 L @15,GDTDBG(,@05) 0384 00117000 LA @01,@AL00001 0384 00118000 BALR @14,@15 0384 00119000 * /*****************************************************************/ 00120000 * /* */ 00121000 * /* INITIALIZE VARIABLES IN PREPARATION FOR EXAMINING @Z40LB61*/ 00122000 * /* THE REQUESTED TABLE. @Z40LB61*/ 00123000 * /* */ 00124000 * /*****************************************************************/ 00125000 * 0385 00126000 * RFY 0385 00127000 * EXGARG BASED(EXARGPTR); /* @Z40LB61*/ 00128000 @RT00382 DS 0H 0386 00129000 * TBLIO=OFF; /* @Z40LB61*/ 00130000 NI TBLIO,B'01111111' 0386 00131000 * GETRC=0; /* @Z40LB61*/ 00132000 L @08,@PC00001+4 0387 00133000 L @08,EARGPTR(,@08) 0387 00134000 SLR @05,@05 0387 00135000 STH @05,GETRC(,@08) 0387 00136000 * SKIPGET=OFF; /* @Z40LB61*/ 00137000 NI SKIPGET,B'01111111' 0388 00138000 * RECFOUND=OFF; /* @Z40LB61*/ 00139000 NI RECFOUND,B'01111111' 0389 00140000 * TABLE#=TABLEID/SHIFT4; /* @Z40LB61*/ 00141000 * 0390 00142000 SLR TABLE#,TABLE# 0390 00143000 IC TABLE#,TABLEID(,@08) 0390 00144000 SRL TABLE#,4 0390 00145000 * /*****************************************************************/ 00146000 * /* */ 00147000 * /* DETERMINE WHETHER THE TABLE TO BE ACCESSED IS FIXED @Z40LB61*/ 00148000 * /* FORMAT OR FREE FORMAT. @Z40LB61*/ 00149000 * /* */ 00150000 * /*****************************************************************/ 00151000 * 0391 00152000 * IF TABLEID=SCLTBLID|TABLEID=TVLTBLID|TABLEID=VITBLID THEN 0391 00153000 CLC TABLEID(1,@08),SCLTBLID 0391 00154000 BE @RT00391 0391 00155000 CLC TABLEID(1,@08),TVLTBLID 0391 00156000 BE @RT00391 0391 00157000 CLC TABLEID(1,@08),VITBLID 0391 00158000 BNE @RF00391 0391 00159000 @RT00391 DS 0H 0392 00160000 * FREEFORM=ON; /* @Z40LB61*/ 00161000 OI FREEFORM,B'10000000' 0392 00162000 * ELSE 0393 00163000 * FREEFORM=OFF; /* @Z40LB61*/ 00164000 * 0393 00165000 B @RC00391 0393 00166000 @RF00391 NI FREEFORM,B'01111111' 0393 00167000 * /*****************************************************************/ 00168000 * /* */ 00169000 * /* SET UP TO USE THE REQUESTED I/O BUFFER AREA @Z40LB61*/ 00170000 * /* */ 00171000 * /*****************************************************************/ 00172000 * 0394 00173000 * IF BUFFER2=ON THEN 0394 00174000 @RC00391 L @08,@PC00001+4 0394 00175000 L @05,EARGPTR(,@08) 0394 00176000 TM BUFFER2(@05),B'01000000' 0394 00177000 BNO @RF00394 0394 00178000 * RECADDR=CHRADDR2; /* @Z40LB61*/ 00179000 L RECADDR,CHRADDR2(,@08) 0395 00180000 * ELSE 0396 00181000 * RECADDR=CHRADDR1; /* @Z40LB61*/ 00182000 * 0396 00183000 B @RC00394 0396 00184000 @RF00394 L @08,@PC00001+4 0396 00185000 L RECADDR,CHRADDR1(,@08) 0396 00186000 * /*****************************************************************/ 00187000 * /* */ 00188000 * /* CALL ENTRY MODULE TO PERFORM MAJOR FUNCTION AND @ZA27324*/ 00189000 * /* ALLOW MAIN PROCEDURE TO PERFORM INITIALIZATION @ZA27324*/ 00190000 * /* AND CLEANUP. @ZA27324*/ 00191000 * /* */ 00192000 * /*****************************************************************/ 00193000 * 0397 00194000 * CALL CH03NTRY; /* @ZA27324*/ 00195000 * 0397 00196000 @RC00394 BAL @14,CH03NTRY 0397 00197000 * /*****************************************************************/ 00198000 * /* */ 00199000 * /* PREPARE TO RETURN VIA UEPIL @ZA27324*/ 00200000 * /* */ 00201000 * /*****************************************************************/ 00202000 * 0398 00203000 * CALL IDCSAEP0(GDTTBL,MODID); 0398 00204000 * 0398 00205000 L @15,@PC00001 0398 00206000 ST @15,@AL00001 0398 00207000 LA @14,MODID 0398 00208000 ST @14,@AL00001+4 0398 00209000 MVI @AL00001+4,X'80' 0398 00210000 L @15,GDTEPL(,@15) 0398 00211000 LA @01,@AL00001 0398 00212000 BALR @14,@15 0398 00213000 * /*****************************************************************/ 00214000 * /* */ 00215000 * /* @ZA27324*/ 00216000 * /* */ 00217000 * /*****************************************************************/ 00218000 * 0399 00219000 * 0399 00220000 */********************************************************************/ 00221000 */* @Z40LB61*/ 00222000 */* PROCEDURE NAME - CH03NTRY @Z40LB61*/ 00223000 */* @Z40LB61*/ 00224000 */* FUNCTION - A RECORD OR ENTRY OF AN MSC TABLE IS OBTAINED @Z40LB61*/ 00225000 */* BASED UPON THE INPUT REQUEST PARAMETERS FROM @Z40LB61*/ 00226000 */* THE 'ENTRYARG' PARAMETER LIST. THE NEXT @Z40LB61*/ 00227000 */* (OR FIRST) RECORD OR ENTRY OF A PARTICULAR @Z40LB61*/ 00228000 */* TABLE MAY BE REQUESTED, IN WHICH CASE THE @Z40LB61*/ 00229000 */* LOCATION OF THE PREVIOUS RECORD OR ENTRY @Z40LB61*/ 00230000 */* REQUESTED FOR THAT TABLE IS USED. OR, A @Z40LB61*/ 00231000 */* SPECIFIC RECORD OR ENTRY MAY BE REQUESTED BY @Z40LB61*/ 00232000 */* IDENTIFYING THE NECESSARY INDICES NEEDED TO @Z40LB61*/ 00233000 */* LOCATE IT. @Z40LB61*/ 00234000 */* @Z40LB61*/ 00235000 */* INPUT - @Z40LB61*/ 00236000 */* (1) 'GETENTRY' ARGUMENT LIST @Z40LB61*/ 00237000 */* (2) TABLE OF STARTING CCHHR'S FOR MSC TABLES @Z40LB61*/ 00238000 */* (3) ADDRESSES OF BUFFER AREAS TO BE USED @Z40LB61*/ 00239000 */* (4) CONTROL BLOCKS WITHIN MSC TABLES @Z40LB61*/ 00240000 */* @Z40LB61*/ 00241000 */* OUTPUT - @Z40LB61*/ 00242000 */* (1) MSC TABLE RECORD REQUESTED @Z40LB61*/ 00243000 */* (2) 'GETENTRY' ARGUMENT LIST, CONTAINING THE @Z40LB61*/ 00244000 */* RECORD OR ENTRY LOCATION AND THE 'GETENTRY' @Z40LB61*/ 00245000 */* RETURN CODE @Z40LB61*/ 00246000 */* @Z40LB61*/ 00247000 */********************************************************************/ 00248000 * 0399 00249000 *CH03NTRY: 0399 00250000 * PROCEDURE; /* @ZA27324*/ 00251000 @EL00001 L @13,4(,@13) 0399 00252000 @EF00001 L @00,@SIZDATD 0399 00253000 LR @01,@11 0399 00254000 FREEMAIN R,LV=(0),A=(1) 00255000 @ER00001 LM @14,@12,12(@13) 0399 00256000 BR @14 0399 00257000 CH03NTRY STM @14,@12,@SA00002 0399 00258000 * 0400 00259000 * /*****************************************************************/ 00260000 * /* */ 00261000 * /* IF THE NEXT (FIRST) RECORD IS REQUESTED FOR THE @Z40LB61*/ 00262000 * /* IDENTIFIED TABLE, COMPUTE THE NECESSARY CCHHR AND/OR @Z40LB61*/ 00263000 * /* BLOCK OFFSET AND SCAN TABLE ENTRIES UNTIL THE NEXT @Z40LB61*/ 00264000 * /* VALID ONE IS FOUND. @Z40LB61*/ 00265000 * /* */ 00266000 * /*****************************************************************/ 00267000 * 0400 00268000 * IF GETNEXT=ON THEN 0400 00269000 L @08,@PC00001+4 0400 00270000 L @08,EARGPTR(,@08) 0400 00271000 TM GETNEXT(@08),B'10000000' 0400 00272000 BNO @RF00400 0400 00273000 *GETLOOP1: 0401 00274000 * DO WHILE(RECFOUND=OFF); /* @Z40LB61*/ 00275000 GETLOOP1 B @DE00401 0401 00276000 @DL00401 DS 0H 0402 00277000 * IF TBLADDR=0 THEN 0402 00278000 * 0402 00279000 L @08,@PC00001+4 0402 00280000 L @08,EARGPTR(,@08) 0402 00281000 L @08,TBLADDR(,@08) 0402 00282000 LTR @08,@08 0402 00283000 BNZ @RF00402 0402 00284000 * /***********************************************************/ 00285000 * /* */ 00286000 * /* THE FIRST RECORD IS REQUESTED, SO OBTAIN THE @Z40LB61*/ 00287000 * /* CCHHR LOCATION OF THE BEGINNING OF THE TABLE. @Z40LB61*/ 00288000 * /* */ 00289000 * /***********************************************************/ 00290000 * 0403 00291000 *FIRSTREC: 0403 00292000 * DO; /* @Z40LB61*/ 00293000 FIRSTREC DS 0H 0404 00294000 * OLDERID2=NEWERID2; 0404 00295000 L @08,@PC00001 0404 00296000 L @08,GDTTR2(,@08) 0404 00297000 MVC @TS00001(95),NEWERID2(@08) 0404 00298000 MVC OLDERID2(95,@08),@TS00001 0404 00299000 * NEWID2='CH3B'; /* @Z40LB61*/ 00300000 MVC NEWID2(4,@08),@CC01972 0405 00301000 * ORIGCHR=TBLCCHHR(TABLE#);/* @Z40LB61*/ 00302000 LR @08,TABLE# 0406 00303000 MH @08,@CH00154 0406 00304000 L @02,@PC00001+4 0406 00305000 L @01,CCHHRPTR(,@02) 0406 00306000 ALR @01,@08 0406 00307000 AL @01,@CF02054 0406 00308000 MVC ORIGCHR(5),TBLCCHHR-2(@01) 0406 00309000 * RECNUM=0; /* @Z40LB61*/ 00310000 SLR @08,@08 0407 00311000 L @02,EARGPTR(,@02) 0407 00312000 STH @08,RECNUM(,@02) 0407 00313000 * RECBUMP=0; /* @Z40LB61*/ 00314000 * 0408 00315000 LR RECBUMP,@08 0408 00316000 * /*********************************************************/ 00317000 * /* */ 00318000 * /* IF THE FIRST MOUNTED VOLUME TABLE (MVT) RECORD */ 00319000 * /* @Z40LB61*/ 00320000 * /* IS REQUESTED, THE MVT CONTROL BLOCKS MUST @Z40LB61*/ 00321000 * /* FIRST BE OBTAINED. @Z40LB61*/ 00322000 * /* */ 00323000 * /*********************************************************/ 00324000 * 0409 00325000 * IF TABLEID=MVTBLID THEN 0409 00326000 CLC TABLEID(1,@02),MVTBLID 0409 00327000 BNE @RF00409 0409 00328000 *FIRSTMVT: 0410 00329000 * DO; /* @Z40LB61*/ 00330000 FIRSTMVT DS 0H 0411 00331000 * MVTDB=OFF; /* @Z40LB61*/ 00332000 NI MVTDB,B'01111111' 0411 00333000 * EXGRECNO=MVTCBTOT; /* @Z40LB61*/ 00334000 L @08,@PC00001+4 0412 00335000 L @04,EXARGPTR(,@08) 0412 00336000 MVC EXGRECNO(4,@04),@CF00040 0412 00337000 * EXGDATAP=MVCBADDR; /* @Z40LB61*/ 00338000 L @08,MVCBADDR(,@08) 0413 00339000 ST @08,EXGDATAP(,@04) 0413 00340000 * CALL GTMSCREC; /* @Z40LB61*/ 00341000 BAL @14,GTMSCREC 0414 00342000 * IF GETRC^=0 THEN 0415 00343000 L @08,@PC00001+4 0415 00344000 L @04,EARGPTR(,@08) 0415 00345000 LH @04,GETRC(,@04) 0415 00346000 LTR @04,@04 0415 00347000 BNZ @RT00415 0415 00348000 * RETURN; /* @Z40LB61*/ 00349000 * 0416 00350000 * /*****************************************************/ 00351000 * /* */ 00352000 * /* SHIFT THE MVT CONTROL BLOCKS INTO THEIR @Z40LB61*/ 00353000 * /* PERMANENT IN-STORAGE FORMAT. @Z40LB61*/ 00354000 * /* */ 00355000 * /*****************************************************/ 00356000 * 0417 00357000 * MVCBPTR=MVCBADDR; /* @Z40LB61*/ 00358000 L MVCBPTR,MVCBADDR(,@08) 0417 00359000 * MOVEPTR=MVCBPTR; /* @Z40LB61*/ 00360000 LR MOVEPTR,MVCBPTR 0418 00361000 * DO BLOCK#=1 TO MVTCBTOT;/* @Z40LB61*/ 00362000 LA BLOCK#,1 0419 00363000 @DL00419 DS 0H 0420 00364000 * MOVEAREA(1:LENGTH(TBLBLOCK))=TBLBLOCK;/* @Z40LB61*/ 00365000 L @08,@PC00001+4 0420 00366000 L @08,EXARGPTR(,@08) 0420 00367000 L @07,EXGDATAP(,@08) 0420 00368000 MVC MOVEAREA(256,MOVEPTR),TBLBLOCK(@07) 0420 00369000 * MOVEPTR=MOVEPTR+LENGTH(TBLBLOCK);/* @Z40LB61*/ 00370000 AL MOVEPTR,@CF01096 0421 00371000 * EXGDATAP=EXGDATAP+RECLNGTH;/* @Z40LB61*/ 00372000 AL @07,@CF01842 0422 00373000 ST @07,EXGDATAP(,@08) 0422 00374000 * END; /* @Z40LB61*/ 00375000 * 0423 00376000 AL BLOCK#,@CF00217 0423 00377000 C BLOCK#,@CF00040 0423 00378000 BNH @DL00419 0423 00379000 * /*****************************************************/ 00380000 * /* */ 00381000 * /* SET UP TO ACCESS THE MVT DATA BLOCKS NOW @Z40LB61*/ 00382000 * /* */ 00383000 * /*****************************************************/ 00384000 * 0424 00385000 * ORIGCHR=MVTDBCHR; /* @Z40LB61*/ 00386000 L @08,@PC00001+4 0424 00387000 L @02,CCHHRPTR(,@08) 0424 00388000 MVC ORIGCHR(5),MVTDBCHR(@02) 0424 00389000 * RECNUM=0; /* @Z40LB61*/ 00390000 L @08,EARGPTR(,@08) 0425 00391000 SLR @02,@02 0425 00392000 STH @02,RECNUM(,@08) 0425 00393000 * END FIRSTMVT; /* @Z40LB61*/ 00394000 * 0426 00395000 * /*********************************************************/ 00396000 * /* */ 00397000 * /* IF THE FIRST SCRATCH CARTRIDGE LIST ENTRY IS @Z40LB61*/ 00398000 * /* REQUESTED, ADD IN THE RECORD OFFSET TO THE @Z40LB61*/ 00399000 * /* FIRST RECORD FOR THE PROPER MSF. @Z40LB61*/ 00400000 * /* */ 00401000 * /*********************************************************/ 00402000 * 0427 00403000 * IF TABLEID=SCLTBLID THEN 0427 00404000 @RF00409 L @08,@PC00001+4 0427 00405000 L @08,EARGPTR(,@08) 0427 00406000 CLC TABLEID(1,@08),SCLTBLID 0427 00407000 BNE @RF00427 0427 00408000 * RECBUMP=RECSTRK*MSFID;/* @Z40LB61*/ 00409000 LH RECBUMP,MSFID(,@08) 0428 00410000 SLA RECBUMP,5 0428 00411000 * END FIRSTREC; /* @Z40LB61*/ 00412000 * ELSE 0430 00413000 * 0430 00414000 * /***********************************************************/ 00415000 * /* */ 00416000 * /* THE NEXT RECORD IS REQUESTED FOR THE TABLE @Z40LB61*/ 00417000 * /* IDENTIFIED SO DETERMINE THE LOCATION OF THE @Z40LB61*/ 00418000 * /* NEXT TABLE ENTRY. @Z40LB61*/ 00419000 * /* IN MOST CASES, OBTAINING THE NEXT ENTRY MEANS @Z40LB61*/ 00420000 * /* BUMPING TO THE VERY NEXT RECORD OF THE TABLE. @Z40LB61*/ 00421000 * /* */ 00422000 * /***********************************************************/ 00423000 * 0430 00424000 *NEXTREC: 0430 00425000 * DO; /* @Z40LB61*/ 00426000 B @RC00402 0430 00427000 @RF00402 DS 0H 0430 00428000 NEXTREC DS 0H 0431 00429000 * OLDERID2=NEWERID2; 0431 00430000 L @08,@PC00001 0431 00431000 L @08,GDTTR2(,@08) 0431 00432000 MVC @TS00001(95),NEWERID2(@08) 0431 00433000 MVC OLDERID2(95,@08),@TS00001 0431 00434000 * NEWID2='CH3C'; /* @Z40LB61*/ 00435000 MVC NEWID2(4,@08),@CC01978 0432 00436000 * ORIGCHR=PREVCHR; /* @Z40LB61*/ 00437000 L @08,@PC00001+4 0433 00438000 L @08,EARGPTR(,@08) 0433 00439000 MVC ORIGCHR(5),PREVCHR(@08) 0433 00440000 * RECBUMP=1; /* @Z40LB61*/ 00441000 * 0434 00442000 LA RECBUMP,1 0434 00443000 * /*********************************************************/ 00444000 * /* */ 00445000 * /* IF THE NEXT ENTRY IS REQUESTED FOR A FREE @Z40LB61*/ 00446000 * /* FORMAT TABLE -- VOLUME INVENTORY (VI), SCRATCH */ 00447000 * /* @Z40LB61*/ 00448000 * /* CARTRIDGE LIST (SCL), OR TRANSIENT VOLUME @Z40LB61*/ 00449000 * /* LIST (TVL) -- THEN THE NEXT RECORD MAY NOT @Z40LB61*/ 00450000 * /* HAVE TO BE OBTAINED IN ORDER TO OBTAIN THE @Z40LB61*/ 00451000 * /* NEXT ENTRY. @Z40LB61*/ 00452000 * /* */ 00453000 * /*********************************************************/ 00454000 * 0435 00455000 * IF FREEFORM=ON THEN 0435 00456000 TM FREEFORM,B'10000000' 0435 00457000 BNO @RF00435 0435 00458000 *NEXTVTS: 0436 00459000 * DO; /* @Z40LB61*/ 00460000 NEXTVTS DS 0H 0437 00461000 * OLDERID2=NEWERID2; 0437 00462000 L @08,@PC00001 0437 00463000 L @08,GDTTR2(,@08) 0437 00464000 MVC @TS00001(95),NEWERID2(@08) 0437 00465000 MVC OLDERID2(95,@08),@TS00001 0437 00466000 * NEWID2='CH3D'; /* @Z40LB61*/ 00467000 * 0438 00468000 MVC NEWID2(4,@08),@CC01981 0438 00469000 * /*****************************************************/ 00470000 * /* */ 00471000 * /* CHECK TO SEE IF THERE IS ANOTHER VALID ENTRY */ 00472000 * /* @Z40LB61*/ 00473000 * /* IN THE CURRENT RECORD. IF SO, NO NEW RECORD */ 00474000 * /* @Z40LB61*/ 00475000 * /* MUST BE READ IN. @Z40LB61*/ 00476000 * /* */ 00477000 * /*****************************************************/ 00478000 * 0439 00479000 * TBLADDR=TBLADDR+ENTLEN;/* @Z40LB61*/ 00480000 L @08,@PC00001+4 0439 00481000 L @08,EARGPTR(,@08) 0439 00482000 SLR @02,@02 0439 00483000 IC @02,ENTLEN(,RECADDR) 0439 00484000 AL @02,TBLADDR(,@08) 0439 00485000 ST @02,TBLADDR(,@08) 0439 00486000 * ENTNUM=ENTNUM+1; /* @Z40LB61*/ 00487000 LA @02,1 0440 00488000 SLR @15,@15 0440 00489000 IC @15,ENTNUM(,@08) 0440 00490000 ALR @02,@15 0440 00491000 STC @02,ENTNUM(,@08) 0440 00492000 * IF ENTNUM<=ENTCOUNT THEN 0441 00493000 CLC ENTNUM(1,@08),ENTCOUNT(RECADDR) 0441 00494000 BH @RF00441 0441 00495000 * SKIPGET=ON; /* @Z40LB61*/ 00496000 * 0442 00497000 OI SKIPGET,B'10000000' 0442 00498000 * /*****************************************************/ 00499000 * /* */ 00500000 * /* THE NEXT RECORD MUST BE OBTAINED. IF WE'VE */ 00501000 * /* @Z40LB61*/ 00502000 * /* JUST FINISHED WITH THE LAST RECORD OF THE @Z40LB61*/ 00503000 * /* TABLE, THEN THERE ARE NO MORE ENTRIES. @Z40LB61*/ 00504000 * /* */ 00505000 * /*****************************************************/ 00506000 * 0443 00507000 * ELSE 0443 00508000 * IF LSTBLK=ON THEN 0443 00509000 B @RC00441 0443 00510000 @RF00441 TM LSTBLK(RECADDR),B'10000000' 0443 00511000 BNO @RF00443 0443 00512000 * DO; /* @Z40LB61*/ 00513000 * GETRC=ENDOFTBL;/* @Z40LB61*/ 00514000 L @15,@PC00001+4 0445 00515000 L @15,EARGPTR(,@15) 0445 00516000 MVC GETRC(2,@15),@CH00040 0445 00517000 * RDOPTION=''B; /* @Z40LB61*/ 00518000 MVI RDOPTION(@15),X'00' 0446 00519000 * TBLFLAGS=''B; /* @Z40LB61*/ 00520000 MVI TBLFLAGS(@15),X'00' 0447 00521000 * TBLPARTS=''B; /* @Z40LB61*/ 00522000 MVI TBLPARTS(@15),X'00' 0448 00523000 * RETURN; /* @Z40LB61*/ 00524000 @EL00002 DS 0H 0449 00525000 @EF00002 DS 0H 0449 00526000 @ER00002 LM @14,@12,@SA00002 0449 00527000 BR @14 0449 00528000 * END; /* @Z40LB61*/ 00529000 * 0450 00530000 * /*****************************************************/ 00531000 * /* */ 00532000 * /* IF WE'RE AT THE END OF A TRACK BUT @Z40LB61*/ 00533000 * /* MORE TRACKS REMAIN IN THE TABLE THEN @Z40LB61*/ 00534000 * /* OBTAIN THE BUILT-IN NEXT CCHHR PTR FROM @Z40LB61*/ 00535000 * /* THE TVL AND SCL. FOR THE NEXT VI @Z40LB61*/ 00536000 * /* RECORD, JUST POINT TO THE NEXT TRACK. @Z40LB61*/ 00537000 * /* */ 00538000 * /*****************************************************/ 00539000 * 0451 00540000 * ELSE 0451 00541000 * IF ENDTRK=ON THEN 0451 00542000 @RF00443 TM ENDTRK(RECADDR),B'00100000' 0451 00543000 BNO @RF00451 0451 00544000 * IF TABLEID=VITBLID THEN 0452 00545000 L @08,@PC00001+4 0452 00546000 L @08,EARGPTR(,@08) 0452 00547000 CLC TABLEID(1,@08),VITBLID 0452 00548000 BNE @RF00452 0452 00549000 * DO; /* @Z40LB61*/ 00550000 * ORIGHH=ORIGHH+1;/* @Z40LB61*/ 00551000 LA @08,1 0454 00552000 AH @08,ORIGHH 0454 00553000 STH @08,ORIGHH 0454 00554000 * ORIGR=0; /* @Z40LB61*/ 00555000 MVI ORIGR,X'00' 0455 00556000 * END; /* @Z40LB61*/ 00557000 * ELSE 0457 00558000 * DO; /* @Z40LB61*/ 00559000 B @RC00452 0457 00560000 @RF00452 DS 0H 0458 00561000 * ORIGCC=CBCYL;/* @Z40LB61*/ 00562000 SLR @08,@08 0458 00563000 IC @08,CBCYL(,RECADDR) 0458 00564000 STH @08,ORIGCC 0458 00565000 * ORIGHH=CBHEAD;/* @Z40LB61*/ 00566000 SLR @08,@08 0459 00567000 IC @08,CBHEAD(,RECADDR) 0459 00568000 STH @08,ORIGHH 0459 00569000 * ORIGR=CBREC-1;/* @Z40LB61*/ 00570000 SLR @08,@08 0460 00571000 IC @08,CBREC(,RECADDR) 0460 00572000 BCTR @08,0 0460 00573000 STC @08,ORIGR 0460 00574000 * END; /* @Z40LB61*/ 00575000 * END NEXTVTS; /* @Z40LB61*/ 00576000 * 0462 00577000 @RC00452 DS 0H 0462 00578000 @RF00451 DS 0H 0462 00579000 @RC00441 DS 0H 0463 00580000 * /*********************************************************/ 00581000 * /* */ 00582000 * /* IF THE NEXT MVT RECORD IS REQUESTED, SET UP @Z40LB61*/ 00583000 * /* ADDRESSABILITY TO THE MVT CONTROL BLOCKS. @Z40LB61*/ 00584000 * /* */ 00585000 * /*********************************************************/ 00586000 * 0463 00587000 * IF TABLEID=MVTBLID THEN 0463 00588000 @RF00435 L @08,@PC00001+4 0463 00589000 L @02,EARGPTR(,@08) 0463 00590000 CLC TABLEID(1,@02),MVTBLID 0463 00591000 BNE @RF00463 0463 00592000 * MVCBPTR=MVCBADDR; /* @Z40LB61*/ 00593000 L MVCBPTR,MVCBADDR(,@08) 0464 00594000 * END NEXTREC; /* @Z40LB61*/ 00595000 * 0465 00596000 @RF00463 DS 0H 0466 00597000 * /*************************************************************/ 00598000 * /* */ 00599000 * /* IF THE FIRST OR NEXT MVT RECORD WAS REQUESTED, @Z40LB61*/ 00600000 * /* THE RECORD LOCATION JUST COMPUTED MUST BE BUMPED @Z40LB61*/ 00601000 * /* TO THE FIRST VALID RECORD AT OR BEYOND THE @Z40LB61*/ 00602000 * /* COMPUTED LOCATION. @Z40LB61*/ 00603000 * /* */ 00604000 * /*************************************************************/ 00605000 * 0466 00606000 * IF TABLEID=MVTBLID THEN 0466 00607000 @RC00402 L @08,@PC00001+4 0466 00608000 L @08,EARGPTR(,@08) 0466 00609000 CLC TABLEID(1,@08),MVTBLID 0466 00610000 BNE @RF00466 0466 00611000 * DO WHILE(RECFOUND=OFF); /* @Z40LB61*/ 00612000 B @DE00467 0467 00613000 @DL00467 DS 0H 0468 00614000 * IF RECNUM=MVTMAX THEN 0468 00615000 L @08,@PC00001+4 0468 00616000 L @08,EARGPTR(,@08) 0468 00617000 CLC RECNUM(2,@08),@CH01851 0468 00618000 BNE @RF00468 0468 00619000 * DO; /* @Z40LB61*/ 00620000 * GETRC=ENDOFTBL; /* @Z40LB61*/ 00621000 MVC GETRC(2,@08),@CH00040 0470 00622000 * RDOPTION=''B; /* @Z40LB61*/ 00623000 MVI RDOPTION(@08),X'00' 0471 00624000 * TBLFLAGS=''B; /* @Z40LB61*/ 00625000 MVI TBLFLAGS(@08),X'00' 0472 00626000 * TBLPARTS=''B; /* @Z40LB61*/ 00627000 MVI TBLPARTS(@08),X'00' 0473 00628000 * RETURN; /* @Z40LB61*/ 00629000 B @EL00002 0474 00630000 * END; /* @Z40LB61*/ 00631000 * BYTE#=RECNUM/8+1; /* @Z40LB61*/ 00632000 @RF00468 L @08,@PC00001+4 0476 00633000 L @08,EARGPTR(,@08) 0476 00634000 LA @02,1 0476 00635000 LH @15,RECNUM(,@08) 0476 00636000 LR @00,@15 0476 00637000 SRDA @00,32 0476 00638000 D @00,@CF00177 0476 00639000 ALR @01,@02 0476 00640000 STH @01,BYTE#(,@08) 0476 00641000 * BIT#=RECNUM//8+1; /* @Z40LB61*/ 00642000 LR @06,@15 0477 00643000 SRDA @06,32 0477 00644000 D @06,@CF00177 0477 00645000 ALR @06,@02 0477 00646000 STH @06,BIT#(,@08) 0477 00647000 * IF(MVCTLBIT(BYTE#)&BITMASK(BIT#))='00'X THEN 0478 00648000 ALR @01,MVCBPTR 0478 00649000 AL @01,@CF02055 0478 00650000 MVC @TS00001(1),MVCTLBIT(@01) 0478 00651000 LA @08,BITMASK-1(@06) 0478 00652000 NC @TS00001(1),0(@08) 0478 00653000 CLI @TS00001,X'00' 0478 00654000 BNE @RF00478 0478 00655000 * DO; /* @Z40LB61*/ 00656000 * RECFOUND=ON; /* @Z40LB61*/ 00657000 OI RECFOUND,B'10000000' 0480 00658000 * MVTDB=ON; /* @Z40LB61*/ 00659000 OI MVTDB,B'10000000' 0481 00660000 * END; /* @Z40LB61*/ 00661000 * ELSE 0483 00662000 * DO; /* @Z40LB61*/ 00663000 B @RC00478 0483 00664000 @RF00478 DS 0H 0484 00665000 * RECNUM=RECNUM+1; /* @Z40LB61*/ 00666000 L @08,@PC00001+4 0484 00667000 L @08,EARGPTR(,@08) 0484 00668000 LA @02,1 0484 00669000 LH @15,RECNUM(,@08) 0484 00670000 ALR @15,@02 0484 00671000 STH @15,RECNUM(,@08) 0484 00672000 * RECBUMP=RECBUMP+1; /* @Z40LB61*/ 00673000 ALR RECBUMP,@02 0485 00674000 * END; /* @Z40LB61*/ 00675000 * END; /* @Z40LB61*/ 00676000 * 0487 00677000 @RC00478 DS 0H 0487 00678000 @DE00467 TM RECFOUND,B'10000000' 0487 00679000 BZ @DL00467 0487 00680000 * /*************************************************************/ 00681000 * /* */ 00682000 * /* IF THE NEXT TABLE ENTRY WAS NOT IN THE CURRENT @Z40LB61*/ 00683000 * /* RECORD, READ IN THE NEXT RECORD. @Z40LB61*/ 00684000 * /* */ 00685000 * /*************************************************************/ 00686000 * 0488 00687000 * IF SKIPGET=OFF THEN 0488 00688000 @RF00466 TM SKIPGET,B'10000000' 0488 00689000 BNZ @RF00488 0488 00690000 * DO; /* @Z40LB61*/ 00691000 * EXGDATAP=RECADDR; /* @Z40LB61*/ 00692000 L @08,@PC00001+4 0490 00693000 L @08,EXARGPTR(,@08) 0490 00694000 ST RECADDR,EXGDATAP(,@08) 0490 00695000 * EXGRECNO=1; /* @Z40LB61*/ 00696000 MVC EXGRECNO(4,@08),@CF00217 0491 00697000 * CALL GTMSCREC; /* @Z40LB61*/ 00698000 BAL @14,GTMSCREC 0492 00699000 * IF GETRC^=0 THEN 0493 00700000 L @08,@PC00001+4 0493 00701000 L @08,EARGPTR(,@08) 0493 00702000 LH @08,GETRC(,@08) 0493 00703000 LTR @08,@08 0493 00704000 BNZ @RT00493 0493 00705000 * RETURN; /* @Z40LB61*/ 00706000 * END; /* @Z40LB61*/ 00707000 * 0495 00708000 * /*************************************************************/ 00709000 * /* */ 00710000 * /* UNLESS THE NEW RECORD IS FROM A FREEFORM TABLE @Z40LB61*/ 00711000 * /* AND SHOWS NO VALID ENTRIES, WE'VE GOT THE @Z40LB61*/ 00712000 * /* RECORD REQUESTED. @Z40LB61*/ 00713000 * /* */ 00714000 * /*************************************************************/ 00715000 * 0496 00716000 * IF FREEFORM=ON&ENTCOUNT=0 THEN 0496 00717000 @RF00488 TM FREEFORM,B'10000000' 0496 00718000 BNO @RF00496 0496 00719000 CLI ENTCOUNT(RECADDR),0 0496 00720000 BE @RT00496 0496 00721000 * ; /* @Z40LB61*/ 00722000 * ELSE 0498 00723000 * RECFOUND=ON; /* @Z40LB61*/ 00724000 @RF00496 OI RECFOUND,B'10000000' 0498 00725000 * END GETLOOP1; /* @Z40LB61*/ 00726000 @RT00496 DS 0H 0499 00727000 @DE00401 TM RECFOUND,B'10000000' 0499 00728000 BZ @DL00401 0499 00729000 * ELSE 0500 00730000 * 0500 00731000 * /***************************************************************/ 00732000 * /* */ 00733000 * /* A PARTRICULAR RECORD OR ENTRY FROM A PARTICULAR @Z40LB61*/ 00734000 * /* TABLE HAS BEEN REQUESTED. INITIALIZE VARIABLES @Z40LB61*/ 00735000 * /* COMMON TO THE ACCESS OF ANY TABLE RECORD. @Z40LB61*/ 00736000 * /* */ 00737000 * /***************************************************************/ 00738000 * 0500 00739000 *SPECREC: /* @Z40LB61*/ 00740000 * DO; /* @Z40LB61*/ 00741000 B @RC00400 0500 00742000 @RF00400 DS 0H 0500 00743000 SPECREC DS 0H 0501 00744000 * OLDERID2=NEWERID2; 0501 00745000 L @08,@PC00001 0501 00746000 L @08,GDTTR2(,@08) 0501 00747000 MVC @TS00001(95),NEWERID2(@08) 0501 00748000 MVC OLDERID2(95,@08),@TS00001 0501 00749000 * NEWID2='CH3G'; /* @Z40LB61*/ 00750000 MVC NEWID2(4,@08),@CC01985 0502 00751000 * ORIGCHR=TBLCCHHR(TABLE#); /* @Z40LB61*/ 00752000 LR @08,TABLE# 0503 00753000 MH @08,@CH00154 0503 00754000 L @04,@PC00001+4 0503 00755000 L @02,CCHHRPTR(,@04) 0503 00756000 ALR @02,@08 0503 00757000 AL @02,@CF02054 0503 00758000 MVC ORIGCHR(5),TBLCCHHR-2(@02) 0503 00759000 * EXGDATAP=RECADDR; /* @Z40LB61*/ 00760000 L @08,EXARGPTR(,@04) 0504 00761000 ST RECADDR,EXGDATAP(,@08) 0504 00762000 * EXGRECNO=1; /* @Z40LB61*/ 00763000 MVC EXGRECNO(4,@08),@CF00217 0505 00764000 * RECBUMP=0; /* @Z40LB61*/ 00765000 * 0506 00766000 SLR RECBUMP,RECBUMP 0506 00767000 * /*************************************************************/ 00768000 * /* */ 00769000 * /* IF THE TABLE IS THE MOUNT EQUALIZATION BLOCK, THE @Z40LB61*/ 00770000 * /* CONFIGURATION BIT MAP, OR THE TABLE CHR'S THEN @Z40LB61*/ 00771000 * /* NO DASD I/O MUST BE DONE. THESE TABLES WILL BE @Z40LB61*/ 00772000 * /* OBTAINED FROM THE MSC WORKING CONTROL STORAGE. @Z40LB61*/ 00773000 * /* */ 00774000 * /*************************************************************/ 00775000 * 0507 00776000 * IF MEFLAG=ON|CBMFLAG=ON|TCHRFLAG=ON THEN 0507 00777000 * 0507 00778000 L @08,EARGPTR(,@04) 0507 00779000 TM MEFLAG(@08),B'11100000' 0507 00780000 BZ @RF00507 0507 00781000 * /***********************************************************/ 00782000 * /* */ 00783000 * /* SET UP THE PARAMETERS FOR READING MSC WCS VIA @Z40LB61*/ 00784000 * /* THE USSC MACRO. IF ANY ERROR IS RETURNED, CALL @Z40LB61*/ 00785000 * /* THE COMMON SSCMSG ROUTINE TO PRINT THE ERROR. @Z40LB61*/ 00786000 * /* */ 00787000 * /***********************************************************/ 00788000 * 0508 00789000 *INCORE: 0508 00790000 * DO; /* @Z40LB61*/ 00791000 INCORE DS 0H 0509 00792000 * OLDERID2=NEWERID2; 0509 00793000 L @08,@PC00001 0509 00794000 L @08,GDTTR2(,@08) 0509 00795000 MVC @TS00001(95),NEWERID2(@08) 0509 00796000 MVC OLDERID2(95,@08),@TS00001 0509 00797000 * NEWID2='CH3H'; /* @Z40LB61*/ 00798000 MVC NEWID2(4,@08),@CC01988 0510 00799000 * IF MEFLAG=ON THEN 0511 00800000 L @08,@PC00001+4 0511 00801000 L @04,EARGPTR(,@08) 0511 00802000 TM MEFLAG(@04),B'10000000' 0511 00803000 BNO @RF00511 0511 00804000 * QUSECT=MESECT; /* @Z40LB61*/ 00805000 L @08,RWCSPTR(,@08) 0512 00806000 MVC QUSECT(1,@08),MESECT+1 0512 00807000 * ELSE 0513 00808000 * IF CBMFLAG=ON THEN 0513 00809000 B @RC00511 0513 00810000 @RF00511 L @08,@PC00001+4 0513 00811000 L @04,EARGPTR(,@08) 0513 00812000 TM CBMFLAG(@04),B'01000000' 0513 00813000 BNO @RF00513 0513 00814000 * QUSECT=CBMSECT; /* @Z40LB61*/ 00815000 L @08,RWCSPTR(,@08) 0514 00816000 MVC QUSECT(1,@08),CBMSECT+1 0514 00817000 * ELSE 0515 00818000 * QUSECT=TCHRSECT; /* @Z40LB61*/ 00819000 B @RC00513 0515 00820000 @RF00513 L @08,@PC00001+4 0515 00821000 L @08,RWCSPTR(,@08) 0515 00822000 MVC QUSECT(1,@08),TCHRSECT+1 0515 00823000 * QUPARM=''B; /* @Z40LB61*/ 00824000 @RC00513 DS 0H 0516 00825000 @RC00511 L @08,@PC00001+4 0516 00826000 L @02,RWCSPTR(,@08) 0516 00827000 XC QUPARM(32,@02),QUPARM(@02) 0516 00828000 * QUPTR=WCSBFPTR; /* @Z40LB61*/ 00829000 L @15,WCSBFPTR(,@08) 0517 00830000 ST @15,QUPTR(,@02) 0517 00831000 * CALL IDCSASS0(GDTTBL,RDMSC,RWCSPTR,RSNCODE);/* @Z40LB61*/ 00832000 L @02,@PC00001 0518 00833000 ST @02,@AL00001 0518 00834000 LA @15,RDMSC 0518 00835000 ST @15,@AL00001+4 0518 00836000 LA @08,RWCSPTR(,@08) 0518 00837000 ST @08,@AL00001+8 0518 00838000 LA @08,RSNCODE 0518 00839000 ST @08,@AL00001+12 0518 00840000 MVI @AL00001+12,X'80' 0518 00841000 L @15,GDTSSC(,@02) 0518 00842000 LA @01,@AL00001 0518 00843000 BALR @14,@15 0518 00844000 * RESPECIFY 0519 00845000 * RTNREG RSTD; 0519 00846000 * TESTRC=RTNREG; 0520 00847000 LR TESTRC,RTNREG 0520 00848000 * RESPECIFY 0521 00849000 * RTNREG UNRSTD; /* @Z40LB61*/ 00850000 * IF TESTRC^=0 THEN 0522 00851000 LTR TESTRC,TESTRC 0522 00852000 BZ @RF00522 0522 00853000 * DO; /* @Z40LB61*/ 00854000 * IF TESTRC=4 THEN 0524 00855000 C TESTRC,@CF00040 0524 00856000 BNE @RF00524 0524 00857000 * CALL SSCMSG(RSNCODE);/* @Z40LB61*/ 00858000 LA @15,RSNCODE 0525 00859000 ST @15,@AL00001 0525 00860000 LA @01,@AL00001 0525 00861000 BAL @14,SSCMSG 0525 00862000 * GETRC=TABLERR; /* @Z40LB61*/ 00863000 @RF00524 L @15,@PC00001+4 0526 00864000 L @01,EARGPTR(,@15) 0526 00865000 MVC GETRC(2,@01),@CH00565 0526 00866000 * RETURN; /* @Z40LB61*/ 00867000 B @EL00002 0527 00868000 * END; /* @Z40LB61*/ 00869000 * 0528 00870000 * /*********************************************************/ 00871000 * /* */ 00872000 * /* COMPUTE THE OFFSET TO THE BEGINNING OF THE TABLE */ 00873000 * /* @Z40LB61*/ 00874000 * /* */ 00875000 * /*********************************************************/ 00876000 * 0529 00877000 * IF CBMFLAG=ON THEN 0529 00878000 @RF00522 L @08,@PC00001+4 0529 00879000 L @04,EARGPTR(,@08) 0529 00880000 TM CBMFLAG(@04),B'01000000' 0529 00881000 BNO @RF00529 0529 00882000 * TBLADDR=QUPTR+CBMOFFST;/* @Z40LB61*/ 00883000 L @08,RWCSPTR(,@08) 0530 00884000 LA @02,72 0530 00885000 AL @02,QUPTR(,@08) 0530 00886000 ST @02,TBLADDR(,@04) 0530 00887000 * ELSE 0531 00888000 * TBLADDR=QUPTR; /* @Z40LB61*/ 00889000 * 0531 00890000 B @RC00529 0531 00891000 @RF00529 L @08,@PC00001+4 0531 00892000 L @04,EARGPTR(,@08) 0531 00893000 L @08,RWCSPTR(,@08) 0531 00894000 L @08,QUPTR(,@08) 0531 00895000 ST @08,TBLADDR(,@04) 0531 00896000 * /*********************************************************/ 00897000 * /* */ 00898000 * /* DUMP THE RECORD JUST READ IF REQUESTED @Z40LB61*/ 00899000 * /* */ 00900000 * /*********************************************************/ 00901000 * 0532 00902000 * IF GDTDBG=NULLPTR THEN 0532 00903000 @RC00529 L @08,@PC00001 0532 00904000 L @08,GDTDBG(,@08) 0532 00905000 LTR @08,@08 0532 00906000 BZ @RT00532 0532 00907000 * ; 0533 00908000 * ELSE 0534 00909000 * DO; 0534 00910000 * DMPINDEX=ADDR(DUMPLIST);/* @Z40LB61*/ 00911000 LA DMPINDEX,DUMPLIST 0535 00912000 * DMPITMNM='MSCREC'; 0536 00913000 MVI DMPITMNM+6(DMPINDEX),C' ' 0536 00914000 MVI DMPITMNM+7(DMPINDEX),C' ' 0536 00915000 MVC DMPITMNM(6,DMPINDEX),@CC01990 0536 00916000 * DMPITMPT=ADDR(CBPREFIX); 0537 00917000 ST RECADDR,DMPITMPT(,DMPINDEX) 0537 00918000 * DMPITMLN=256; 0538 00919000 MVC DMPITMLN(2,DMPINDEX),@CH01096 0538 00920000 * DMPITMTP='H'; 0539 00921000 MVI DMPITMTP(DMPINDEX),C'H' 0539 00922000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB61*/ 00923000 AL DMPINDEX,@CF00472 0540 00924000 * DMPTRM=DMPTRMVL; 0541 00925000 MVI DMPTRM(DMPINDEX),X'FF' 0541 00926000 * END; /* @Z40LB61*/ 00927000 * IF GDTDBG=NULLPTR THEN 0543 00928000 @RT00532 L @08,@PC00001 0543 00929000 L @08,GDTDBG(,@08) 0543 00930000 LTR @08,@08 0543 00931000 BZ @RT00543 0543 00932000 * ; 0544 00933000 * ELSE 0545 00934000 * CALL IDCDB010(GDTTBL,'CH3Z',ADDR(DUMPLIST));/* @Z40LB61*/ 00935000 L @08,@PC00001 0545 00936000 ST @08,@AL00001 0545 00937000 LA @04,@CC01991 0545 00938000 ST @04,@AL00001+4 0545 00939000 LA @04,DUMPLIST 0545 00940000 ST @04,@AFTEMPS 0545 00941000 LA @04,@AFTEMPS 0545 00942000 ST @04,@AL00001+8 0545 00943000 MVI @AL00001+8,X'80' 0545 00944000 L @15,GDTDBG(,@08) 0545 00945000 LA @01,@AL00001 0545 00946000 BALR @14,@15 0545 00947000 * END INCORE; /* @Z40LB61*/ 00948000 * 0546 00949000 @RT00543 DS 0H 0547 00950000 * /*************************************************************/ 00951000 * /* */ 00952000 * /* IF A PARTICULAR STAGING DRIVE GROUP (SDG) RECORD @Z40LB61*/ 00953000 * /* IS REQUESTED, COMPUTE THE RECORD OFFSET USING THE @Z40LB61*/ 00954000 * /* SDG INDEX TOGETHER WITH THE INDICATION OF TYPE OF @Z40LB61*/ 00955000 * /* SDG BLOCK WANTED -- REAL PAGE MAP (RPM), PAGE @Z40LB61*/ 00956000 * /* AVAILABILITY BLOCK (PAB), DEMOUNTED VOLUME BLOCK @Z40LB61*/ 00957000 * /* (DVB), OR LRU PAGES BLOCK (LPB). @Z40LB61*/ 00958000 * /* */ 00959000 * /*************************************************************/ 00960000 * 0547 00961000 * IF TABLEID=SDGTBLID THEN 0547 00962000 @RF00507 L @08,@PC00001+4 0547 00963000 L @08,EARGPTR(,@08) 0547 00964000 CLC TABLEID(1,@08),SDGTBLID 0547 00965000 BNE @RF00547 0547 00966000 *SPECSDG: 0548 00967000 * DO; /* @Z40LB61*/ 00968000 SPECSDG DS 0H 0549 00969000 * RECBUMP=SDGNUM*RECSSDG; /* @Z40LB61*/ 00970000 L @08,@PC00001+4 0549 00971000 L @08,EARGPTR(,@08) 0549 00972000 LH RECBUMP,SDGNUM(,@08) 0549 00973000 MH RECBUMP,@CH01847 0549 00974000 * IF RPMFLAG=ON THEN 0550 00975000 TM RPMFLAG(@08),B'10000000' 0550 00976000 BNO @RF00550 0550 00977000 * RECBUMP=RECBUMP+DEVICEID;/* @Z40LB61*/ 00978000 AH RECBUMP,DEVICEID(,@08) 0551 00979000 * ELSE 0552 00980000 * IF PABFLAG=ON THEN 0552 00981000 B @RC00550 0552 00982000 @RF00550 L @08,@PC00001+4 0552 00983000 L @08,EARGPTR(,@08) 0552 00984000 TM PABFLAG(@08),B'01000000' 0552 00985000 BNO @RF00552 0552 00986000 * RECBUMP=RECBUMP+PABOFFST;/* @Z40LB61*/ 00987000 AL RECBUMP,@CF00177 0553 00988000 * ELSE 0554 00989000 * IF DVBFLAG=ON THEN 0554 00990000 B @RC00552 0554 00991000 @RF00552 L @08,@PC00001+4 0554 00992000 L @08,EARGPTR(,@08) 0554 00993000 TM DVBFLAG(@08),B'00100000' 0554 00994000 BNO @RF00554 0554 00995000 * RECBUMP=RECBUMP+DVBOFFST;/* @Z40LB61*/ 00996000 AL RECBUMP,@CF01642 0555 00997000 * ELSE 0556 00998000 * RECBUMP=RECBUMP+LPBOFFST;/* @Z40LB61*/ 00999000 * 0556 01000000 B @RC00554 0556 01001000 @RF00554 AL RECBUMP,@CF00442 0556 01002000 * /*********************************************************/ 01003000 * /* */ 01004000 * /* OBTAIN THE SDG RECORD AND CHECK FOR AN ERROR @Z40LB61*/ 01005000 * /* */ 01006000 * /*********************************************************/ 01007000 * 0557 01008000 * CALL GTMSCREC; /* @Z40LB61*/ 01009000 @RC00554 DS 0H 0557 01010000 @RC00552 DS 0H 0557 01011000 @RC00550 BAL @14,GTMSCREC 0557 01012000 * IF GETRC^=0 THEN 0558 01013000 L @08,@PC00001+4 0558 01014000 L @08,EARGPTR(,@08) 0558 01015000 LH @08,GETRC(,@08) 0558 01016000 LTR @08,@08 0558 01017000 BNZ @RT00558 0558 01018000 * RETURN; /* @Z40LB61*/ 01019000 * END SPECSDG; /* @Z40LB61*/ 01020000 * 0561 01021000 * /*************************************************************/ 01022000 * /* */ 01023000 * /* IF A PARTICULAR ENTRY FROM THE VVA/MVT XREF (VMX) @Z40LB61*/ 01024000 * /* TABLE IS REQUESTED, COMPUTE THE ENTRY OFFSET BY @Z40LB61*/ 01025000 * /* FIRST USING THE SA ID @Z40LB61*/ 01026000 * /* */ 01027000 * /*************************************************************/ 01028000 * 0561 01029000 * IF TABLEID=VMXTBLID THEN 0561 01030000 @RF00547 L @08,@PC00001+4 0561 01031000 L @08,EARGPTR(,@08) 0561 01032000 CLC TABLEID(1,@08),VMXTBLID 0561 01033000 BNE @RF00561 0561 01034000 *SPECVMX: 0562 01035000 * DO; /* @Z40LB61*/ 01036000 SPECVMX DS 0H 0563 01037000 * RECBUMP=SANUM*RECSSA; /* @Z40LB61*/ 01038000 * 0563 01039000 L @08,@PC00001+4 0563 01040000 L @08,EARGPTR(,@08) 0563 01041000 LH RECBUMP,SANUM(,@08) 0563 01042000 MH RECBUMP,@CH00160 0563 01043000 * /*********************************************************/ 01044000 * /* */ 01045000 * /* THERE ARE THREE VMX RECORDS PER SA. COMPUTE THE */ 01046000 * /* @Z40LB61*/ 01047000 * /* NUMBER OF VVA'S PER RECORD AND DETERMINE WHICH */ 01048000 * /* @Z40LB61*/ 01049000 * /* RECORD CONTAINS THE ENTRY FOR THE VVA REQUESTED. */ 01050000 * /* @Z40LB61*/ 01051000 * /* ALSO COMPUTE THE ENTRY OFFSET INTO THE RECORD. */ 01052000 * /* @Z40LB61*/ 01053000 * /* */ 01054000 * /*********************************************************/ 01055000 * 0564 01056000 * VVASREC=(HIGHVVA-LOWVVA+1)/RECSSA;/* @Z40LB61*/ 01057000 LA @04,64 0564 01058000 LR VVASREC,@04 0564 01059000 * IF VVADDR<(LOWVVA+VVASREC) THEN 0565 01060000 LH @08,VVADDR(,@08) 0565 01061000 LR @15,VVASREC 0565 01062000 ALR @15,@04 0565 01063000 CR @08,@15 0565 01064000 BNL @RF00565 0565 01065000 * VVAOFFST=VVADDR-LOWVVA;/* @Z40LB61*/ 01066000 LA @02,64 0566 01067000 SLR @08,@02 0566 01068000 LR VVAOFFST,@08 0566 01069000 * ELSE 0567 01070000 * IF VVADDR<(LOWVVA+2*VVASREC) THEN 0567 01071000 B @RC00565 0567 01072000 @RF00565 L @08,@PC00001+4 0567 01073000 L @08,EARGPTR(,@08) 0567 01074000 LH @08,VVADDR(,@08) 0567 01075000 LA @04,64 0567 01076000 LR @15,VVASREC 0567 01077000 ALR @15,@15 0567 01078000 ALR @15,@04 0567 01079000 CR @08,@15 0567 01080000 BNL @RF00567 0567 01081000 * DO; /* @Z40LB61*/ 01082000 * RECBUMP=RECBUMP+1;/* @Z40LB61*/ 01083000 AL RECBUMP,@CF00217 0569 01084000 * VVAOFFST=VVADDR-LOWVVA-VVASREC;/* @Z40LB61*/ 01085000 LA @15,64 0570 01086000 SLR @08,@15 0570 01087000 SLR @08,VVASREC 0570 01088000 LR VVAOFFST,@08 0570 01089000 * END; /* @Z40LB61*/ 01090000 * ELSE 0572 01091000 * DO; /* @Z40LB61*/ 01092000 B @RC00567 0572 01093000 @RF00567 DS 0H 0573 01094000 * RECBUMP=RECBUMP+2;/* @Z40LB61*/ 01095000 AL RECBUMP,@CF00151 0573 01096000 * VVAOFFST=VVADDR-LOWVVA-2*VVASREC;/* @Z40LB61*/ 01097000 L @08,@PC00001+4 0574 01098000 L @08,EARGPTR(,@08) 0574 01099000 LH VVAOFFST,VVADDR(,@08) 0574 01100000 SL VVAOFFST,@CF01070 0574 01101000 LR @08,VVASREC 0574 01102000 ALR @08,@08 0574 01103000 SLR VVAOFFST,@08 0574 01104000 * END; /* @Z40LB61*/ 01105000 * 0575 01106000 * /*********************************************************/ 01107000 * /* */ 01108000 * /* OBTAIN THE VMX RECORD AND SET UP THE POINTER TO */ 01109000 * /* @Z40LB61*/ 01110000 * /* THE ENTRY FOR THE REQUESTED VVA. @Z40LB61*/ 01111000 * /* */ 01112000 * /*********************************************************/ 01113000 * 0576 01114000 * CALL GTMSCREC; /* @Z40LB61*/ 01115000 @RC00567 DS 0H 0576 01116000 @RC00565 BAL @14,GTMSCREC 0576 01117000 * IF GETRC^=0 THEN 0577 01118000 L @08,@PC00001+4 0577 01119000 L @08,EARGPTR(,@08) 0577 01120000 LH @02,GETRC(,@08) 0577 01121000 LTR @02,@02 0577 01122000 BNZ @RT00577 0577 01123000 * RETURN; /* @Z40LB61*/ 01124000 * TBLADDR=TBLADDR+VVAOFFST*LENGTH(VMX);/* @Z40LB61*/ 01125000 LR @02,VVAOFFST 0579 01126000 SLA @02,2 0579 01127000 AL @02,TBLADDR(,@08) 0579 01128000 ST @02,TBLADDR(,@08) 0579 01129000 * ENTNUM=VVAOFFST+1; /* @Z40LB61*/ 01130000 LA @02,1 0580 01131000 ALR @02,VVAOFFST 0580 01132000 STC @02,ENTNUM(,@08) 0580 01133000 * END SPECVMX; /* @Z40LB61*/ 01134000 * 0581 01135000 * /*************************************************************/ 01136000 * /* */ 01137000 * /* IF A PARTICULAR RECORD OF THE CONFIGURATION TABLE @Z40LB61*/ 01138000 * /* IS REQUESTED THEN OBTAIN IT, MAKING SPECIAL OFFSET */ 01139000 * /* @Z40LB61*/ 01140000 * /* ADJUSTMENTS BASED UPON WHETHER REQUEST WAS FOR @Z40LB61*/ 01141000 * /* THE CONFIGURATION INDEX, THE MANUFACTURER'S ID @Z40LB61*/ 01142000 * /* CONVERSION TABLE, OR FOR THE CONFIGURATION DATA @Z40LB61*/ 01143000 * /* BLOCK FOR A PARTICULAR INTERFACE OF AN SA. @Z40LB61*/ 01144000 * /* */ 01145000 * /*************************************************************/ 01146000 * 0582 01147000 * IF TABLEID=CFGTBLID THEN 0582 01148000 @RF00561 L @08,@PC00001+4 0582 01149000 L @08,EARGPTR(,@08) 0582 01150000 CLC TABLEID(1,@08),CFGTBLID 0582 01151000 BNE @RF00582 0582 01152000 *SPECCFG: 0583 01153000 * DO; /* @Z40LB61*/ 01154000 SPECCFG DS 0H 0584 01155000 * IF CDBFLAG=ON THEN 0584 01156000 L @08,@PC00001+4 0584 01157000 L @08,EARGPTR(,@08) 0584 01158000 TM CDBFLAG(@08),B'00000010' 0584 01159000 BNO @RF00584 0584 01160000 * RECBUMP=INTFID+(RECSSA+1)*SANUM;/* @Z40LB61*/ 01161000 LH RECBUMP,SANUM(,@08) 0585 01162000 SLA RECBUMP,2 0585 01163000 AH RECBUMP,INTFID(,@08) 0585 01164000 * CALL GTMSCREC; /* @Z40LB61*/ 01165000 @RF00584 BAL @14,GTMSCREC 0586 01166000 * IF GETRC^=0 THEN 0587 01167000 L @08,@PC00001+4 0587 01168000 L @08,EARGPTR(,@08) 0587 01169000 LH @04,GETRC(,@08) 0587 01170000 LTR @04,@04 0587 01171000 BNZ @RT00587 0587 01172000 * RETURN; /* @Z40LB61*/ 01173000 * IF MICTFLAG=ON THEN 0589 01174000 TM MICTFLAG(@08),B'00000100' 0589 01175000 BNO @RF00589 0589 01176000 * TBLADDR=TBLADDR+MICOFFST;/* @Z40LB61*/ 01177000 LA @04,128 0590 01178000 AL @04,TBLADDR(,@08) 0590 01179000 ST @04,TBLADDR(,@08) 0590 01180000 * END SPECCFG; /* @Z40LB61*/ 01181000 * 0591 01182000 @RF00589 DS 0H 0592 01183000 * /*************************************************************/ 01184000 * /* */ 01185000 * /* IF A RECORD OF THE CELL MAP IS REQUESTED THEN @Z40LB61*/ 01186000 * /* OBTAIN IT AFTER COMPUTING THE BLOCK OFFSET. @Z40LB61*/ 01187000 * /* */ 01188000 * /*************************************************************/ 01189000 * 0592 01190000 * IF TABLEID=CMTBLID THEN 0592 01191000 @RF00582 L @08,@PC00001+4 0592 01192000 L @08,EARGPTR(,@08) 0592 01193000 CLC TABLEID(1,@08),CMTBLID 0592 01194000 BNE @RF00592 0592 01195000 *SPECCM: 0593 01196000 * DO; /* @Z40LB61*/ 01197000 SPECCM DS 0H 0594 01198000 * RECBUMP=CELLBLK-1; /* @Z40LB61*/ 01199000 L @08,@PC00001+4 0594 01200000 L @08,EARGPTR(,@08) 0594 01201000 LH RECBUMP,CELLBLK(,@08) 0594 01202000 BCTR RECBUMP,0 0594 01203000 * CALL GTMSCREC; /* @Z40LB61*/ 01204000 BAL @14,GTMSCREC 0595 01205000 * IF GETRC^=0 THEN 0596 01206000 L @08,@PC00001+4 0596 01207000 L @08,EARGPTR(,@08) 0596 01208000 LH @08,GETRC(,@08) 0596 01209000 LTR @08,@08 0596 01210000 BNZ @RT00596 0596 01211000 * RETURN; /* @Z40LB61*/ 01212000 * END SPECCM; /* @Z40LB61*/ 01213000 * 0599 01214000 * /*************************************************************/ 01215000 * /* */ 01216000 * /* IF A PARTICULAR ENTRY OF THE TVL IS REQUESTED, @Z40LB61*/ 01217000 * /* EACH RECORD MUST BE READ SEQUENTIALLY UNTIL THE @Z40LB61*/ 01218000 * /* REQUESTED ENTRY IS FOUND. @Z40LB61*/ 01219000 * /* */ 01220000 * /*************************************************************/ 01221000 * 0599 01222000 * IF TABLEID=TVLTBLID THEN 0599 01223000 @RF00592 L @08,@PC00001+4 0599 01224000 L @08,EARGPTR(,@08) 0599 01225000 CLC TABLEID(1,@08),TVLTBLID 0599 01226000 BNE @RF00599 0599 01227000 *SPECTVL: 0600 01228000 * DO WHILE(RECFOUND=OFF); /* @Z40LB61*/ 01229000 SPECTVL B @DE00600 0600 01230000 @DL00600 DS 0H 0601 01231000 * OLDERID2=NEWERID2; 0601 01232000 L @08,@PC00001 0601 01233000 L @08,GDTTR2(,@08) 0601 01234000 MVC @TS00001(95),NEWERID2(@08) 0601 01235000 MVC OLDERID2(95,@08),@TS00001 0601 01236000 * NEWID2='CH3I'; /* @Z40LB61*/ 01237000 MVC NEWID2(4,@08),@CC02002 0602 01238000 * CALL GTMSCREC; /* @Z40LB61*/ 01239000 BAL @14,GTMSCREC 0603 01240000 * IF GETRC^=0 THEN 0604 01241000 L @08,@PC00001+4 0604 01242000 L @08,EARGPTR(,@08) 0604 01243000 LH @08,GETRC(,@08) 0604 01244000 LTR @08,@08 0604 01245000 BNZ @RT00604 0604 01246000 * RETURN; /* @Z40LB61*/ 01247000 * 0605 01248000 * /*********************************************************/ 01249000 * /* */ 01250000 * /* SCAN EACH ENTRY OF THE RECORD, CHECKING FOR A @Z40LB61*/ 01251000 * /* MATCH ON SEQUENCE#1 CARTRIDGE SERIAL NUMBER @Z40LB61*/ 01252000 * /* */ 01253000 * /*********************************************************/ 01254000 * 0606 01255000 * TVCFPTR=RECADDR+LENGTH(PREFIX);/* @Z40LB61*/ 01256000 LA TVCFPTR,8 0606 01257000 ALR TVCFPTR,RECADDR 0606 01258000 * RFY 0607 01259000 * TVENTRY BASED(TBLADDR);/* @Z40LB61*/ 01260000 * DO ENTRY#=1 TO TVENTNUM WHILE(RECFOUND=OFF);/* @Z40LB61*/ 01261000 LA ENTRY#,1 0608 01262000 B @DE00608 0608 01263000 @DL00608 TM RECFOUND,B'10000000' 0608 01264000 BNZ @DC00608 0608 01265000 * IF TVCSN=SEQ1CSN THEN 0609 01266000 L @08,@PC00001+4 0609 01267000 L @08,EARGPTR(,@08) 0609 01268000 L @07,TBLADDR(,@08) 0609 01269000 CLC TVCSN(12,@07),SEQ1CSN(@08) 0609 01270000 BNE @RF00609 0609 01271000 * RECFOUND=ON; /* @Z40LB61*/ 01272000 OI RECFOUND,B'10000000' 0610 01273000 * ELSE 0611 01274000 * DO; /* @Z40LB61*/ 01275000 B @RC00609 0611 01276000 @RF00609 DS 0H 0612 01277000 * ENTNUM=ENTNUM+1; /* @Z40LB61*/ 01278000 L @08,@PC00001+4 0612 01279000 L @08,EARGPTR(,@08) 0612 01280000 LA @07,1 0612 01281000 SLR @04,@04 0612 01282000 IC @04,ENTNUM(,@08) 0612 01283000 ALR @07,@04 0612 01284000 STC @07,ENTNUM(,@08) 0612 01285000 * TBLADDR=TBLADDR+TVENTLEN;/* @Z40LB61*/ 01286000 SLR @07,@07 0613 01287000 IC @07,TVENTLEN(,TVCFPTR) 0613 01288000 AL @07,TBLADDR(,@08) 0613 01289000 ST @07,TBLADDR(,@08) 0613 01290000 * END; /* @Z40LB61*/ 01291000 * END; /* @Z40LB61*/ 01292000 @RC00609 AL ENTRY#,@CF00217 0615 01293000 @DE00608 SLR @08,@08 0615 01294000 IC @08,TVENTNUM(,TVCFPTR) 0615 01295000 CR ENTRY#,@08 0615 01296000 BNH @DL00608 0615 01297000 @DC00608 DS 0H 0616 01298000 * RFY 0616 01299000 * TVENTRY BASED(TVENTPTR);/* @Z40LB61*/ 01300000 * 0616 01301000 * /*********************************************************/ 01302000 * /* */ 01303000 * /* IF A MATCH WAS FOUND, WE'RE DONE. IF NOT, @Z40LB61*/ 01304000 * /* SET-UP MUST BE DONE TO OBTAIN THE NEXT RECORD @Z40LB61*/ 01305000 * /* */ 01306000 * /*********************************************************/ 01307000 * 0617 01308000 * IF RECFOUND=OFF THEN 0617 01309000 TM RECFOUND,B'10000000' 0617 01310000 BNZ @RF00617 0617 01311000 * DO; /* @Z40LB61*/ 01312000 * RECBUMP=RECBUMP+1; /* @Z40LB61*/ 01313000 * 0619 01314000 AL RECBUMP,@CF00217 0619 01315000 * /*****************************************************/ 01316000 * /* */ 01317000 * /* IF WE JUST FINISHED THE LAST BLOCK @Z40LB61*/ 01318000 * /* OF LAST TVL TRACK, THE REQUESTED ENTRY @Z40LB61*/ 01319000 * /* COULD NOT BE FOUND. HOWEVER, IF ANOTHER @Z40LB61*/ 01320000 * /* TRACK REMAINS, SET UP TO CONTINUE WITH IT. */ 01321000 * /* @Z40LB61*/ 01322000 * /* */ 01323000 * /*****************************************************/ 01324000 * 0620 01325000 * IF TVENDTRK=ON THEN 0620 01326000 TM TVENDTRK(TVCFPTR),B'00100000' 0620 01327000 BNO @RF00620 0620 01328000 * IF TVLSTTRK=ON THEN 0621 01329000 TM TVLSTTRK(TVCFPTR),B'00010000' 0621 01330000 BNO @RF00621 0621 01331000 * DO; /* @Z40LB61*/ 01332000 * GETRC=NOTFOUND;/* @Z40LB61*/ 01333000 L @15,@PC00001+4 0623 01334000 L @15,EARGPTR(,@15) 0623 01335000 MVC GETRC(2,@15),@CH00177 0623 01336000 * RDOPTION=''B; /* @Z40LB61*/ 01337000 MVI RDOPTION(@15),X'00' 0624 01338000 * TBLFLAGS=''B; /* @Z40LB61*/ 01339000 MVI TBLFLAGS(@15),X'00' 0625 01340000 * TBLPARTS=''B; /* @Z40LB61*/ 01341000 MVI TBLPARTS(@15),X'00' 0626 01342000 * RETURN; /* @Z40LB61*/ 01343000 B @EL00002 0627 01344000 * END; /* @Z40LB61*/ 01345000 * ELSE 0629 01346000 * DO; /* @Z40LB61*/ 01347000 @RF00621 DS 0H 0630 01348000 * ORIGCC=TVCYL; /* @Z40LB61*/ 01349000 SLR @08,@08 0630 01350000 IC @08,TVCYL(,TVCFPTR) 0630 01351000 STH @08,ORIGCC 0630 01352000 * ORIGHH=TVHEAD;/* @Z40LB61*/ 01353000 SLR @08,@08 0631 01354000 IC @08,TVHEAD(,TVCFPTR) 0631 01355000 STH @08,ORIGHH 0631 01356000 * ORIGR=TVREC; /* @Z40LB61*/ 01357000 MVC ORIGR(1),TVREC(TVCFPTR) 0632 01358000 * RECBUMP=0; /* @Z40LB61*/ 01359000 SLR RECBUMP,RECBUMP 0633 01360000 * END; /* @Z40LB61*/ 01361000 * END; /* @Z40LB61*/ 01362000 @RF00620 DS 0H 0636 01363000 * END SPECTVL; /* @Z40LB61*/ 01364000 @RF00617 DS 0H 0636 01365000 @DE00600 TM RECFOUND,B'10000000' 0636 01366000 BZ @DL00600 0636 01367000 * 0637 01368000 * /*************************************************************/ 01369000 * /* */ 01370000 * /* IF A PARTICULAR ENTRY OF THE MOUNTED VOLUME TABLE @Z40LB61*/ 01371000 * /* OR THE VOLUME INVENTORY IS REQUESTED, A HASHING @Z40LB61*/ 01372000 * /* FUNCTION IS USED TO LOCATE THE BLOCK CONTAINING @Z40LB61*/ 01373000 * /* THE ENTRY. @Z40LB61*/ 01374000 * /* */ 01375000 * /*************************************************************/ 01376000 * 0637 01377000 * IF TABLEID=MVTBLID|TABLEID=VITBLID THEN 0637 01378000 @RF00599 L @08,@PC00001+4 0637 01379000 L @08,EARGPTR(,@08) 0637 01380000 CLC TABLEID(1,@08),MVTBLID 0637 01381000 BE @RT00637 0637 01382000 CLC TABLEID(1,@08),VITBLID 0637 01383000 BNE @RF00637 0637 01384000 @RT00637 DS 0H 0638 01385000 *SPECMVVI: 0638 01386000 * DO; /* @Z40LB61*/ 01387000 * 0638 01388000 SPECMVVI DS 0H 0639 01389000 * /*********************************************************/ 01390000 * /* */ 01391000 * /* SET UP BLOCK OFFSETS TO THE PRIMARY AND OVERFLOW */ 01392000 * /* @Z40LB61*/ 01393000 * /* AREAS OF EACH TABLE AND SET HASH AREA TOTAL @Z40LB61*/ 01394000 * /* */ 01395000 * /*********************************************************/ 01396000 * 0639 01397000 * IF TABLEID=MVTBLID THEN 0639 01398000 L @08,@PC00001+4 0639 01399000 L @08,EARGPTR(,@08) 0639 01400000 CLC TABLEID(1,@08),MVTBLID 0639 01401000 BNE @RF00639 0639 01402000 * DO; /* @Z40LB61*/ 01403000 * ORIGR=ORIGR+MVTCBTOT;/* @Z40LB61*/ 01404000 LA @06,4 0641 01405000 SLR @04,@04 0641 01406000 IC @04,ORIGR 0641 01407000 ALR @06,@04 0641 01408000 STC @06,ORIGR 0641 01409000 * HASHTOT=1; /* @Z40LB61*/ 01410000 LA HASHTOT,1 0642 01411000 * OFLODISP=RECSHASH; /* @Z40LB61*/ 01412000 LA OFLODISP,442 0643 01413000 * END; /* @Z40LB61*/ 01414000 * ELSE 0645 01415000 * DO; /* @Z40LB61*/ 01416000 B @RC00639 0645 01417000 @RF00639 DS 0H 0646 01418000 * HASHTOT=HASHMAX; /* @Z40LB61*/ 01419000 LA HASHTOT,3 0646 01420000 * OFLODISP=RECSHASH*HASHMAX;/* @Z40LB61*/ 01421000 LA OFLODISP,1326 0647 01422000 * END; /* @Z40LB61*/ 01423000 * 0648 01424000 * /*********************************************************/ 01425000 * /* */ 01426000 * /* USE THE FIXED HASHING TABLE TO ARRIVE AT A @Z40LB61*/ 01427000 * /* NUMBER REPRESENTING EACH CHARACTER OF THE @Z40LB61*/ 01428000 * /* INPUT VOLID WHOSE ENTRY IS TO BE LOCATED. @Z40LB61*/ 01429000 * /* */ 01430000 * /*********************************************************/ 01431000 * 0649 01432000 * VOLCHARS=VOLID; /* @Z40LB61*/ 01433000 @RC00639 L @06,@PC00001+4 0649 01434000 L @06,EARGPTR(,@06) 0649 01435000 MVC VOLCHARS(6),VOLID(@06) 0649 01436000 * DO CHAR#=1 TO LENGTH(VOLCHARS);/* @Z40LB61*/ 01437000 LA CHAR#,1 0650 01438000 @DL00650 DS 0H 0651 01439000 * VOLCHAR(CHAR#)=(VOLCHAR(CHAR#)&HASHMASK)+1;/* @Z40LB61*/ 01440000 SLR @06,@06 0651 01441000 IC @06,VOLCHAR-1(CHAR#) 0651 01442000 SLR @04,@04 0651 01443000 IC @04,HASHMASK 0651 01444000 NR @06,@04 0651 01445000 AL @06,@CF00217 0651 01446000 STC @06,VOLCHAR-1(CHAR#) 0651 01447000 * IF CHAR#<=HASHMAX THEN 0652 01448000 C CHAR#,@CF00160 0652 01449000 BH @RF00652 0652 01450000 * VOLCHAR(CHAR#)=HASHMAP(2,VOLCHAR(CHAR#));/* @Z40LB61*/ 01451000 SLR @04,@04 0653 01452000 IC @04,HASHMAP+63(@06) 0653 01453000 STC @04,VOLCHAR-1(CHAR#) 0653 01454000 * ELSE 0654 01455000 * VOLCHAR(CHAR#)=HASHMAP(1,VOLCHAR(CHAR#));/* @Z40LB61*/ 01456000 B @RC00652 0654 01457000 @RF00652 SLR @06,@06 0654 01458000 IC @06,VOLCHAR-1(CHAR#) 0654 01459000 SLR @04,@04 0654 01460000 IC @04,HASHMAP-1(@06) 0654 01461000 STC @04,VOLCHAR-1(CHAR#) 0654 01462000 * END; /* @Z40LB61*/ 01463000 * 0655 01464000 @RC00652 AL CHAR#,@CF00217 0655 01465000 C CHAR#,@CF00154 0655 01466000 BNH @DL00650 0655 01467000 * /*********************************************************/ 01468000 * /* */ 01469000 * /* TRANSFORM THE VALUES INTO A BLOCK OFFSET INTO @Z40LB61*/ 01470000 * /* EACH POSSIBLE HASH AREA. @Z40LB61*/ 01471000 * /* */ 01472000 * /*********************************************************/ 01473000 * 0656 01474000 * DO CHAR#=1 TO HASHMAX; /* @Z40LB61*/ 01475000 LA CHAR#,1 0656 01476000 @DL00656 DS 0H 0657 01477000 * VOLCHAR(CHAR#)=VOLCHAR(CHAR#)&&VOLCHAR(CHAR#+HASHMAX); 01478000 SLR @06,@06 0657 01479000 IC @06,VOLCHAR-1(CHAR#) 0657 01480000 SLR @04,@04 0657 01481000 IC @04,VOLCHAR+2(CHAR#) 0657 01482000 XR @06,@04 0657 01483000 STC @06,VOLCHAR-1(CHAR#) 0657 01484000 * /* @Z40LB61*/ 01485000 * END; /* @Z40LB61*/ 01486000 AL CHAR#,@CF00217 0658 01487000 C CHAR#,@CF00160 0658 01488000 BNH @DL00656 0658 01489000 * DO HASH#=1 TO HASHMAX; /* @Z40LB61*/ 01490000 LA HASH#,1 0659 01491000 @DL00659 DS 0H 0660 01492000 * HASHVAL(HASH#)=FACTOR(HASH#,1)*VOLCHAR(1)+FACTOR(HASH#,2) 01493000 * *VOLCHAR(2)+FACTOR(HASH#,3)*VOLCHAR(3)+RECSHASH*( 01494000 * HASH#-1); /* @Z40LB61*/ 01495000 LR @06,HASH# 0660 01496000 ALR @06,@06 0660 01497000 LR @02,HASH# 0660 01498000 MH @02,@CH00154 0660 01499000 SLR @15,@15 0660 01500000 IC @15,VOLCHAR 0660 01501000 MH @15,FACTOR-6(@02) 0660 01502000 SLR @14,@14 0660 01503000 IC @14,VOLCHAR+1 0660 01504000 MH @14,FACTOR-4(@02) 0660 01505000 ALR @15,@14 0660 01506000 SLR @14,@14 0660 01507000 IC @14,VOLCHAR+2 0660 01508000 MH @14,FACTOR-2(@02) 0660 01509000 ALR @15,@14 0660 01510000 LR @02,HASH# 0660 01511000 BCTR @02,0 0660 01512000 MH @02,@CH01909 0660 01513000 ALR @15,@02 0660 01514000 STH @15,HASHVAL-2(@06) 0660 01515000 * END; /* @Z40LB61*/ 01516000 AL HASH#,@CF00217 0661 01517000 C HASH#,@CF00160 0661 01518000 BNH @DL00659 0661 01519000 * 0662 01520000 * /*********************************************************/ 01521000 * /* */ 01522000 * /* USING THE RECORD OFFSETS, THE HASH AREA RECORD */ 01523000 * /* @Z40LB61*/ 01524000 * /* FROM EACH HASH AREA IS CHECKED FOR THE REQUESTED */ 01525000 * /* @Z40LB61*/ 01526000 * /* VOLUME SERIAL NUMBER. IF NO MATCH IS FOUND, THE */ 01527000 * /* @Z40LB61*/ 01528000 * /* RECORDS OF THE OVERFLOW AREA ARE ALL CHECKED FOR */ 01529000 * /* @Z40LB61*/ 01530000 * /* THE MATCH. CHECKING CONTINUES UNTIL A MATCH IS */ 01531000 * /* @Z40LB61*/ 01532000 * /* FOUND OR UNTIL THE LAST VALID ENTRY IS CHECKED. */ 01533000 * /* @Z40LB61*/ 01534000 * /* */ 01535000 * /*********************************************************/ 01536000 * 0662 01537000 * MVTDB=OFF; /* @Z40LB61*/ 01538000 NI MVTDB,B'01111111' 0662 01539000 * HASH#=1; /* @Z40LB61*/ 01540000 LA HASH#,1 0663 01541000 *GETLOOP2: 0664 01542000 * DO WHILE(RECFOUND=OFF); /* @Z40LB61*/ 01543000 GETLOOP2 B @DE00664 0664 01544000 @DL00664 DS 0H 0665 01545000 * OLDERID2=NEWERID2; 0665 01546000 L @06,@PC00001 0665 01547000 L @06,GDTTR2(,@06) 0665 01548000 MVC @TS00001(95),NEWERID2(@06) 0665 01549000 MVC OLDERID2(95,@06),@TS00001 0665 01550000 * NEWID2='CH3J'; /* @Z40LB61*/ 01551000 * 0666 01552000 MVC NEWID2(4,@06),@CC02009 0666 01553000 * /*******************************************************/ 01554000 * /* */ 01555000 * /* POINT TO THE NEXT HASH AREA RECORD, OR IF ALL */ 01556000 * /* @Z40LB61*/ 01557000 * /* THOSE HAVE BEEN CHECKED THEN POINT TO THE NEXT */ 01558000 * /* @Z40LB61*/ 01559000 * /* OVERFLOW RECORD. OBTAIN THE RECORD. @Z40LB61*/ 01560000 * /* */ 01561000 * /*******************************************************/ 01562000 * 0667 01563000 * IF HASH#<=HASHTOT THEN 0667 01564000 CR HASH#,HASHTOT 0667 01565000 BH @RF00667 0667 01566000 * RECBUMP=HASHVAL(HASH#);/* @Z40LB61*/ 01567000 LR @06,HASH# 0668 01568000 ALR @06,@06 0668 01569000 LH RECBUMP,HASHVAL-2(@06) 0668 01570000 * ELSE 0669 01571000 * RECBUMP=RECBUMP+1; /* @Z40LB61*/ 01572000 B @RC00667 0669 01573000 @RF00667 AL RECBUMP,@CF00217 0669 01574000 * CALL GTMSCREC; /* @Z40LB61*/ 01575000 @RC00667 BAL @14,GTMSCREC 0670 01576000 * IF GETRC^=0 THEN 0671 01577000 L @06,@PC00001+4 0671 01578000 L @06,EARGPTR(,@06) 0671 01579000 LH @02,GETRC(,@06) 0671 01580000 LTR @02,@02 0671 01581000 BNZ @RT00671 0671 01582000 * RETURN; /* @Z40LB61*/ 01583000 * IF TABLEID=MVTBLID THEN 0673 01584000 * 0673 01585000 CLC TABLEID(1,@06),MVTBLID 0673 01586000 BNE @RF00673 0673 01587000 * /*****************************************************/ 01588000 * /* */ 01589000 * /* IF SEARCHING FOR AN MVT ENTRY, CHECK EACH @Z40LB61*/ 01590000 * /* ENTRY OF THE CURRENT RECORD FOR A MATCH. @Z40LB61*/ 01591000 * /* EXTRACT THE MVT DATA BLOCK OFFSET TO THE @Z40LB61*/ 01592000 * /* MVT ENTRY FROM A MATCHING INDEX ENTRY. @Z40LB61*/ 01593000 * /* */ 01594000 * /*****************************************************/ 01595000 * 0674 01596000 *SCANMVT: 0674 01597000 * DO; /* @Z40LB61*/ 01598000 SCANMVT DS 0H 0675 01599000 * MVIBPTR=RECADDR+LENGTH(PREFIX);/* @Z40LB61*/ 01600000 LA MVIBPTR,8 0675 01601000 ALR MVIBPTR,RECADDR 0675 01602000 * DO ENTRY#=1 TO MVENTNUM WHILE(RECFOUND=OFF);/* 0676 01603000 * @Z40LB61*/ 01604000 LA ENTRY#,1 0676 01605000 B @DE00676 0676 01606000 @DL00676 TM RECFOUND,B'10000000' 0676 01607000 BNZ @DC00676 0676 01608000 * IF MVIVOLID(ENTRY#)=VOLID THEN 0677 01609000 LR @15,ENTRY# 0677 01610000 SLA @15,3 0677 01611000 L @14,@PC00001+4 0677 01612000 L @01,EARGPTR(,@14) 0677 01613000 ST @15,@TF00001 0677 01614000 ALR @15,MVIBPTR 0677 01615000 CLC MVIVOLID-8(6,@15),VOLID(@01) 0677 01616000 BNE @RF00677 0677 01617000 * DO; /* @Z40LB61*/ 01618000 * RECFOUND=ON;/* @Z40LB61*/ 01619000 OI RECFOUND,B'10000000' 0679 01620000 * RECBUMP=MVMVTPTR(ENTRY#);/* @Z40LB61*/ 01621000 L @01,@TF00001 0680 01622000 LH RECBUMP,MVMVTPTR-8(@01,MVIBPTR) 0680 01623000 N RECBUMP,@CF02056 0680 01624000 * END; /* @Z40LB61*/ 01625000 * END; /* @Z40LB61*/ 01626000 * 0682 01627000 @RF00677 AL ENTRY#,@CF00217 0682 01628000 @DE00676 SLR @15,@15 0682 01629000 IC @15,MVENTNUM(,MVIBPTR) 0682 01630000 CR ENTRY#,@15 0682 01631000 BNH @DL00676 0682 01632000 @DC00676 DS 0H 0683 01633000 * /***************************************************/ 01634000 * /* */ 01635000 * /* IF NO MATCH WAS FOUND AND WE'VE FINISHED THE */ 01636000 * /* @Z40LB61*/ 01637000 * /* LAST BLOCK CONTAINING ANY ENTRIES, THEN THE */ 01638000 * /* @Z40LB61*/ 01639000 * /* REQUESTED MVT ENTRY CANNOT BE FOUND. @Z40LB61*/ 01640000 * /* */ 01641000 * /***************************************************/ 01642000 * 0683 01643000 * IF RECFOUND=OFF THEN 0683 01644000 TM RECFOUND,B'10000000' 0683 01645000 BNZ @RF00683 0683 01646000 * IF MVOFBLK=OFF&MVOFOUT=OFF|MVOFBLK=ON&MVLSTBLK=ON 01647000 * THEN 0684 01648000 TM MVOFBLK(MVIBPTR),B'11000000' 0684 01649000 BZ @RT00684 0684 01650000 TM MVOFBLK(MVIBPTR),B'01100000' 0684 01651000 BNO @RF00684 0684 01652000 @RT00684 DS 0H 0685 01653000 * DO; /* @Z40LB61*/ 01654000 * GETRC=NOTFOUND;/* @Z40LB61*/ 01655000 L @15,@PC00001+4 0686 01656000 L @15,EARGPTR(,@15) 0686 01657000 MVC GETRC(2,@15),@CH00177 0686 01658000 * RDOPTION=''B;/* @Z40LB61*/ 01659000 MVI RDOPTION(@15),X'00' 0687 01660000 * TBLFLAGS=''B;/* @Z40LB61*/ 01661000 MVI TBLFLAGS(@15),X'00' 0688 01662000 * TBLPARTS=''B;/* @Z40LB61*/ 01663000 MVI TBLPARTS(@15),X'00' 0689 01664000 * RETURN; /* @Z40LB61*/ 01665000 B @EL00002 0690 01666000 * END; /* @Z40LB61*/ 01667000 * ELSE 0692 01668000 * 0692 01669000 * /***********************************************/ 01670000 * /* */ 01671000 * /* HOWEVER, IF OVERFLOW RECORDS REMAIN @Z40LB61*/ 01672000 * /* WHICH MAY CONTAIN THE REQUESTED ENTRY, */ 01673000 * /* @Z40LB61*/ 01674000 * /* THEN CONTINUE THE SEARCH. @Z40LB61*/ 01675000 * /* */ 01676000 * /***********************************************/ 01677000 * 0692 01678000 * IF MVOFBLK=OFF&MVOFOUT=ON THEN 0692 01679000 @RF00684 TM MVOFOUT(MVIBPTR),B'10000000' 0692 01680000 BNO @RF00692 0692 01681000 TM MVOFBLK(MVIBPTR),B'01000000' 0692 01682000 BNZ @RF00692 0692 01683000 * DO; /* @Z40LB61*/ 01684000 * RECBUMP=OFLODISP-1;/* @Z40LB61*/ 01685000 LR RECBUMP,OFLODISP 0694 01686000 BCTR RECBUMP,0 0694 01687000 * HASH#=HASH#+1;/* @Z40LB61*/ 01688000 AL HASH#,@CF00217 0695 01689000 * END; /* @Z40LB61*/ 01690000 * END SCANMVT; /* @Z40LB61*/ 01691000 * ELSE 0698 01692000 * 0698 01693000 * /*****************************************************/ 01694000 * /* */ 01695000 * /* IF WE'RE SEARCHING FOR A VI ENTRY, EXAMINE */ 01696000 * /* @Z40LB61*/ 01697000 * /* EACH ENTRY OF CURRENT RECORD FOR A MATCH. @Z40LB61*/ 01698000 * /* */ 01699000 * /*****************************************************/ 01700000 * 0698 01701000 *SCANVI: 0698 01702000 * DO; /* @Z40LB61*/ 01703000 B @RC00673 0698 01704000 @RF00673 DS 0H 0698 01705000 SCANVI DS 0H 0699 01706000 * VICFPTR=RECADDR+LENGTH(PREFIX);/* @Z40LB61*/ 01707000 LA VICFPTR,8 0699 01708000 ALR VICFPTR,RECADDR 0699 01709000 * RFY 0700 01710000 * VIENTRY BASED(TBLADDR);/* @Z40LB61*/ 01711000 * DO ENTRY#=1 TO VIENTNUM WHILE(RECFOUND=OFF);/* 0701 01712000 * @Z40LB61*/ 01713000 LA ENTRY#,1 0701 01714000 B @DE00701 0701 01715000 @DL00701 TM RECFOUND,B'10000000' 0701 01716000 BNZ @DC00701 0701 01717000 * IF VIVOLID=VOLID THEN 0702 01718000 L @15,@PC00001+4 0702 01719000 L @15,EARGPTR(,@15) 0702 01720000 L @01,TBLADDR(,@15) 0702 01721000 CLC VIVOLID(6,@01),VOLID(@15) 0702 01722000 BNE @RF00702 0702 01723000 * RECFOUND=ON; /* @Z40LB61*/ 01724000 OI RECFOUND,B'10000000' 0703 01725000 * ELSE 0704 01726000 * DO; /* @Z40LB61*/ 01727000 B @RC00702 0704 01728000 @RF00702 DS 0H 0705 01729000 * ENTNUM=ENTNUM+1;/* @Z40LB61*/ 01730000 L @15,@PC00001+4 0705 01731000 L @15,EARGPTR(,@15) 0705 01732000 LA @14,1 0705 01733000 SLR @01,@01 0705 01734000 IC @01,ENTNUM(,@15) 0705 01735000 ALR @14,@01 0705 01736000 STC @14,ENTNUM(,@15) 0705 01737000 * TBLADDR=TBLADDR+VIENTLEN;/* @Z40LB61*/ 01738000 SLR @14,@14 0706 01739000 IC @14,VIENTLEN(,VICFPTR) 0706 01740000 AL @14,TBLADDR(,@15) 0706 01741000 ST @14,TBLADDR(,@15) 0706 01742000 * END; /* @Z40LB61*/ 01743000 * END; /* @Z40LB61*/ 01744000 @RC00702 AL ENTRY#,@CF00217 0708 01745000 @DE00701 SLR @15,@15 0708 01746000 IC @15,VIENTNUM(,VICFPTR) 0708 01747000 CR ENTRY#,@15 0708 01748000 BNH @DL00701 0708 01749000 @DC00701 DS 0H 0709 01750000 * RFY 0709 01751000 * VIENTRY BASED(VIENTPTR);/* @Z40LB61*/ 01752000 * IF RECFOUND=OFF THEN 0710 01753000 * 0710 01754000 TM RECFOUND,B'10000000' 0710 01755000 BNZ @RF00710 0710 01756000 * /*************************************************/ 01757000 * /* */ 01758000 * /* IF NO MATCH WAS FOUND AND WE'VE FINISHED */ 01759000 * /* @Z40LB61*/ 01760000 * /* THE LAST ACTIVE BLOCK OF THE LAST TRACK OF */ 01761000 * /* @Z40LB61*/ 01762000 * /* THE VI OVERFLOW AREA, THE REQUESTED VI */ 01763000 * /* @Z40LB61*/ 01764000 * /* ENTRY CANNOT BE FOUND. HOWEVER, IF MORE */ 01765000 * /* @Z40LB61*/ 01766000 * /* TRACKS EXIST, CONTINUE CHECKING WITH THEM. */ 01767000 * /* @Z40LB61*/ 01768000 * /* */ 01769000 * /*************************************************/ 01770000 * 0711 01771000 * IF VIOFBLK=ON&VILSTACT=ON THEN 0711 01772000 TM VIOFBLK(VICFPTR),B'01000001' 0711 01773000 BNO @RF00711 0711 01774000 * IF VILSTTRK=ON THEN 0712 01775000 TM VILSTTRK(VICFPTR),B'00010000' 0712 01776000 BNO @RF00712 0712 01777000 * DO; /* @Z40LB61*/ 01778000 * GETRC=NOTFOUND;/* @Z40LB61*/ 01779000 L @15,@PC00001+4 0714 01780000 L @15,EARGPTR(,@15) 0714 01781000 MVC GETRC(2,@15),@CH00177 0714 01782000 * RDOPTION=''B;/* @Z40LB61*/ 01783000 MVI RDOPTION(@15),X'00' 0715 01784000 * TBLFLAGS=''B;/* @Z40LB61*/ 01785000 MVI TBLFLAGS(@15),X'00' 0716 01786000 * TBLPARTS=''B;/* @Z40LB61*/ 01787000 MVI TBLPARTS(@15),X'00' 0717 01788000 * RETURN; /* @Z40LB61*/ 01789000 B @EL00002 0718 01790000 * END; /* @Z40LB61*/ 01791000 * ELSE 0720 01792000 * DO; /* @Z40LB61*/ 01793000 @RF00712 DS 0H 0721 01794000 * ORIGCC=VICYL;/* @Z40LB61*/ 01795000 SLR @06,@06 0721 01796000 IC @06,VICYL(,VICFPTR) 0721 01797000 STH @06,ORIGCC 0721 01798000 * ORIGHH=VIHEAD;/* @Z40LB61*/ 01799000 SLR @06,@06 0722 01800000 IC @06,VIHEAD(,VICFPTR) 0722 01801000 STH @06,ORIGHH 0722 01802000 * ORIGR=VIREC-1;/* @Z40LB61*/ 01803000 SLR @06,@06 0723 01804000 IC @06,VIREC(,VICFPTR) 0723 01805000 BCTR @06,0 0723 01806000 STC @06,ORIGR 0723 01807000 * RECBUMP=0;/* @Z40LB61*/ 01808000 SLR RECBUMP,RECBUMP 0724 01809000 * END; /* @Z40LB61*/ 01810000 * 0725 01811000 * /***************************************************/ 01812000 * /* */ 01813000 * /* IF NO MATCH WAS FOUND, BUT WE AREN'T AT @Z40LB61*/ 01814000 * /* END OF A TRACK IN THE OVERFLOW AREA, @Z40LB61*/ 01815000 * /* SET UP TO GET THE NEXT HASH AREA RECORD @Z40LB61*/ 01816000 * /* OR THE FIRST OVERFLOW AREA RECORD. @Z40LB61*/ 01817000 * /* */ 01818000 * /***************************************************/ 01819000 * 0726 01820000 * ELSE 0726 01821000 * IF VIOFBLK=OFF THEN 0726 01822000 B @RC00711 0726 01823000 @RF00711 TM VIOFBLK(VICFPTR),B'00000001' 0726 01824000 BNZ @RF00726 0726 01825000 * DO; /* @Z40LB61*/ 01826000 * IF HASH#=HASHTOT THEN 0728 01827000 CR HASH#,HASHTOT 0728 01828000 BNE @RF00728 0728 01829000 * RECBUMP=OFLODISP-1;/* @Z40LB61*/ 01830000 LR RECBUMP,OFLODISP 0729 01831000 BCTR RECBUMP,0 0729 01832000 * HASH#=HASH#+1;/* @Z40LB61*/ 01833000 @RF00728 AL HASH#,@CF00217 0730 01834000 * END; /* @Z40LB61*/ 01835000 * END SCANVI; /* @Z40LB61*/ 01836000 @RF00726 DS 0H 0732 01837000 @RC00711 DS 0H 0732 01838000 @RF00710 DS 0H 0733 01839000 * END GETLOOP2; /* @Z40LB61*/ 01840000 @RC00673 DS 0H 0733 01841000 @DE00664 TM RECFOUND,B'10000000' 0733 01842000 BZ @DL00664 0733 01843000 * 0734 01844000 * /*********************************************************/ 01845000 * /* */ 01846000 * /* IF MVT ENTRY HAS BEEN REQUESTED, USE THE MVT @Z40LB61*/ 01847000 * /* DATA BLOCK OFFSET OBTAINED ABOVE FROM THE MVT @Z40LB61*/ 01848000 * /* INDEX ENTRY IN ORDER TO OBTAIN THE DATA BLOCK @Z40LB61*/ 01849000 * /* */ 01850000 * /*********************************************************/ 01851000 * 0734 01852000 * IF TABLEID=MVTBLID THEN 0734 01853000 L @08,@PC00001+4 0734 01854000 L @04,EARGPTR(,@08) 0734 01855000 CLC TABLEID(1,@04),MVTBLID 0734 01856000 BNE @RF00734 0734 01857000 * DO; /* @Z40LB61*/ 01858000 * MVTDB=ON; /* @Z40LB61*/ 01859000 OI MVTDB,B'10000000' 0736 01860000 * ORIGCHR=MVTDBCHR; /* @Z40LB61*/ 01861000 L @08,CCHHRPTR(,@08) 0737 01862000 MVC ORIGCHR(5),MVTDBCHR(@08) 0737 01863000 * CALL GTMSCREC; /* @Z40LB61*/ 01864000 BAL @14,GTMSCREC 0738 01865000 * IF GETRC^=0 THEN 0739 01866000 L @04,@PC00001+4 0739 01867000 L @04,EARGPTR(,@04) 0739 01868000 LH @04,GETRC(,@04) 0739 01869000 LTR @04,@04 0739 01870000 BNZ @RT00739 0739 01871000 * RETURN; /* @Z40LB61*/ 01872000 * END; /* @Z40LB61*/ 01873000 * END SPECMVVI; /* @Z40LB61*/ 01874000 @RF00734 DS 0H 0743 01875000 * END SPECREC; /* @Z40LB61*/ 01876000 * 0743 01877000 @RF00637 DS 0H 0744 01878000 * /*****************************************************************/ 01879000 * /* */ 01880000 * /* FOR THE MVT, TVL, VI, AND SCL, COMPUTE THE BYTE# AND @Z40LB61*/ 01881000 * /* BIT# OFFSET OF THE BIT IN THE RESPECTIVE CHECK-OFF @Z40LB61*/ 01882000 * /* TABLE THAT CORRESPONDS TO THE ENTRY OBTAINED. @Z40LB61*/ 01883000 * /* */ 01884000 * /*****************************************************************/ 01885000 * 0744 01886000 * IF TABLEID=MVTBLID|FREEFORM=ON THEN 0744 01887000 @RC00400 L @04,@PC00001+4 0744 01888000 L @04,EARGPTR(,@04) 0744 01889000 CLC TABLEID(1,@04),MVTBLID 0744 01890000 BE @RT00744 0744 01891000 TM FREEFORM,B'10000000' 0744 01892000 BNO @RF00744 0744 01893000 @RT00744 DS 0H 0745 01894000 * DO; /* @Z40LB61*/ 01895000 * IF FREEFORM=ON THEN 0746 01896000 TM FREEFORM,B'10000000' 0746 01897000 BNO @RF00746 0746 01898000 * ENTRY#=(RECNUM-1)*ENTMAX+ENTNUM;/* @Z40LB61*/ 01899000 L @04,@PC00001+4 0747 01900000 L @04,EARGPTR(,@04) 0747 01901000 LH @01,RECNUM(,@04) 0747 01902000 BCTR @01,0 0747 01903000 SLR ENTRY#,ENTRY# 0747 01904000 IC ENTRY#,ENTMAX(,RECADDR) 0747 01905000 MR @00,ENTRY# 0747 01906000 SLR ENTRY#,ENTRY# 0747 01907000 IC ENTRY#,ENTNUM(,@04) 0747 01908000 ALR @01,ENTRY# 0747 01909000 LR ENTRY#,@01 0747 01910000 * ELSE 0748 01911000 * ENTRY#=RECNUM; /* @Z40LB61*/ 01912000 B @RC00746 0748 01913000 @RF00746 L @04,@PC00001+4 0748 01914000 L @04,EARGPTR(,@04) 0748 01915000 LH ENTRY#,RECNUM(,@04) 0748 01916000 * BYTE#=(ENTRY#-1)/8+1; /* @Z40LB61*/ 01917000 @RC00746 L @07,@PC00001+4 0749 01918000 L @07,EARGPTR(,@07) 0749 01919000 LA @04,1 0749 01920000 LR @15,ENTRY# 0749 01921000 BCTR @15,0 0749 01922000 LR @00,@15 0749 01923000 SRDA @00,32 0749 01924000 D @00,@CF00177 0749 01925000 ALR @01,@04 0749 01926000 STH @01,BYTE#(,@07) 0749 01927000 * BIT#=(ENTRY#-1)//8+1; /* @Z40LB61*/ 01928000 LR @00,@15 0750 01929000 SRDA @00,32 0750 01930000 D @00,@CF00177 0750 01931000 ALR @00,@04 0750 01932000 STH @00,BIT#(,@07) 0750 01933000 * END; /* @Z40LB61*/ 01934000 * 0751 01935000 * /*****************************************************************/ 01936000 * /* */ 01937000 * /* IF FORMATTED DUMPING IS REQUESTED AND TABLE I/O ON @Z40LB61*/ 01938000 * /* THE WORK DATA SET WAS DONE TO OBTAIN THE REQUESTED @Z40LB61*/ 01939000 * /* RECORD OR ENTRY, DUMP THE RECORD AND ITS PREFIX. @Z40LB61*/ 01940000 * /* */ 01941000 * /*****************************************************************/ 01942000 * 0752 01943000 * IF TBLIO=ON&GETRC=0 THEN 0752 01944000 @RF00744 TM TBLIO,B'10000000' 0752 01945000 BNO @RF00752 0752 01946000 SLR @04,@04 0752 01947000 L @15,@PC00001+4 0752 01948000 L @01,EARGPTR(,@15) 0752 01949000 CH @04,GETRC(,@01) 0752 01950000 BNE @RF00752 0752 01951000 * DO; /* @Z40LB61*/ 01952000 * IF GDTDBG=NULLPTR THEN 0754 01953000 L @15,@PC00001 0754 01954000 C @04,GDTDBG(,@15) 0754 01955000 BE @RT00754 0754 01956000 * ; 0755 01957000 * ELSE 0756 01958000 * DO; 0756 01959000 * DMPINDEX=ADDR(DUMPLIST);/* @Z40LB61*/ 01960000 LA DMPINDEX,DUMPLIST 0757 01961000 * DMPITMNM='PREFIX'; 0758 01962000 MVI DMPITMNM+6(DMPINDEX),C' ' 0758 01963000 MVI DMPITMNM+7(DMPINDEX),C' ' 0758 01964000 MVC DMPITMNM(6,DMPINDEX),@CC02016 0758 01965000 * DMPITMPT=ADDR(CBPREFIX); 0759 01966000 ST RECADDR,DMPITMPT(,DMPINDEX) 0759 01967000 * DMPITMLN=LENGTH(CBPREFIX); 0760 01968000 MVC DMPITMLN(2,DMPINDEX),@CH00177 0760 01969000 * DMPITMTP='H'; 0761 01970000 MVI DMPITMTP(DMPINDEX),C'H' 0761 01971000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB61*/ 01972000 LA @04,16 0762 01973000 ALR DMPINDEX,@04 0762 01974000 * DMPITMNM='MSCREC'; 0763 01975000 MVI DMPITMNM+6(DMPINDEX),C' ' 0763 01976000 MVI DMPITMNM+7(DMPINDEX),C' ' 0763 01977000 MVC DMPITMNM(6,DMPINDEX),@CC01990 0763 01978000 * DMPITMPT=ADDR(CBLOCK); 0764 01979000 LA @03,CBLOCK(,RECADDR) 0764 01980000 ST @03,DMPITMPT(,DMPINDEX) 0764 01981000 * DMPITMLN=256; 0765 01982000 MVC DMPITMLN(2,DMPINDEX),@CH01096 0765 01983000 * DMPITMTP='H'; 0766 01984000 MVI DMPITMTP(DMPINDEX),C'H' 0766 01985000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB61*/ 01986000 ALR DMPINDEX,@04 0767 01987000 * DMPTRM=DMPTRMVL; 0768 01988000 MVI DMPTRM(DMPINDEX),X'FF' 0768 01989000 * END; /* @Z40LB61*/ 01990000 * IF GDTDBG=NULLPTR THEN 0770 01991000 @RT00754 L @15,@PC00001 0770 01992000 L @15,GDTDBG(,@15) 0770 01993000 LTR @15,@15 0770 01994000 BZ @RT00770 0770 01995000 * ; 0771 01996000 * ELSE 0772 01997000 * CALL IDCDB010(GDTTBL,'CH3Y',ADDR(DUMPLIST));/* @Z40LB61*/ 01998000 L @15,@PC00001 0772 01999000 ST @15,@AL00001 0772 02000000 LA @14,@CC02017 0772 02001000 ST @14,@AL00001+4 0772 02002000 LA @14,DUMPLIST 0772 02003000 ST @14,@AFTEMPS 0772 02004000 LA @14,@AFTEMPS 0772 02005000 ST @14,@AL00001+8 0772 02006000 MVI @AL00001+8,X'80' 0772 02007000 L @15,GDTDBG(,@15) 0772 02008000 LA @01,@AL00001 0772 02009000 BALR @14,@15 0772 02010000 * END; /* @Z40LB61*/ 02011000 * 0773 02012000 @RT00770 DS 0H 0774 02013000 * /*****************************************************************/ 02014000 * /* */ 02015000 * /* RESET THE OPTION FLAGS OF THE INPUT PARAMETER LIST @Z40LB61*/ 02016000 * /* */ 02017000 * /*****************************************************************/ 02018000 * 0774 02019000 * RDOPTION=''B; /* @Z40LB61*/ 02020000 @RF00752 L @15,@PC00001+4 0774 02021000 L @15,EARGPTR(,@15) 0774 02022000 MVI RDOPTION(@15),X'00' 0774 02023000 * TBLFLAGS=''B; /* @Z40LB61*/ 02024000 MVI TBLFLAGS(@15),X'00' 0775 02025000 * TBLPARTS=''B; /* @Z40LB61*/ 02026000 MVI TBLPARTS(@15),X'00' 0776 02027000 * END CH03NTRY; /* @ZA27324*/ 02028000 B @EL00002 0777 02029000 * 0778 02030000 */********************************************************************/ 02031000 */* @Z40LB61*/ 02032000 */* PROCEDURE NAME - GTMSCREC @Z40LB61*/ 02033000 */* @Z40LB61*/ 02034000 */* FUNCTION - A SPECIFIC MSC TABLE RECORD IS OBTAINED @Z40LB61*/ 02035000 */* USING THE CCHHR VALUE AND RECORD OFFSET @Z40LB61*/ 02036000 */* PROVIDED AS INPUT. @Z40LB61*/ 02037000 */* @Z40LB61*/ 02038000 */* INPUT - @Z40LB61*/ 02039000 */* (1) CCHHR OF STARTING LOCATION WITHIN THE MSC @Z40LB61*/ 02040000 */* TABLE TO BE ACCESSED. @Z40LB61*/ 02041000 */* (2) RECORD OFFSET TO BE ADDED TO THE STARTING @Z40LB61*/ 02042000 */* CCHHR VALUE TO OBTAIN THE LOCATION OF THE @Z40LB61*/ 02043000 */* SPECIFIC RECORD @Z40LB61*/ 02044000 */* (3) TABLE OF STARTING CCHHR'S FOR MSC TABLES @Z40LB61*/ 02045000 */* (4) 'GETENTRY' ARGUMENT LIST @Z40LB61*/ 02046000 */* @Z40LB61*/ 02047000 */* OUTPUT - @Z40LB61*/ 02048000 */* (1) 'GETENTRY' ARGUMENT LIST, IDENTIFYING THE @Z40LB61*/ 02049000 */* RECORD'S LOCATION @Z40LB61*/ 02050000 */* @Z40LB61*/ 02051000 */********************************************************************/ 02052000 * 0778 02053000 *GTMSCREC: 0778 02054000 * PROCEDURE; /* @Z40LB61*/ 02055000 * 0778 02056000 GTMSCREC STM @14,@12,@SA00003 0778 02057000 * /*****************************************************************/ 02058000 * /* */ 02059000 * /* COMPUTE THE CCHHR LOCATIONS (BOTH ORIGINAL TABLE @Z40LB61*/ 02060000 * /* CCHHR AND THE CCHHR OF THE COPIED TABLE RECORD) @Z40LB61*/ 02061000 * /* OF THE RECORD TO BE OBTAINED. DO THIS BY ADDING @Z40LB61*/ 02062000 * /* THE RECORD OFFSET TO THE ORIGINAL STARTING CCHHR @Z40LB61*/ 02063000 * /* VALUE FOR THE TABLE. @Z40LB61*/ 02064000 * /* */ 02065000 * /*****************************************************************/ 02066000 * 0779 02067000 * SAVECHR=ORIGCHR; /* @Z40LB61*/ 02068000 MVC SAVECHR(5),ORIGCHR 0779 02069000 * ORIGR=ORIGR+RECBUMP-1; /* @Z40LB61*/ 02070000 SLR @08,@08 0780 02071000 IC @08,ORIGR 0780 02072000 ALR @08,RECBUMP 0780 02073000 BCTR @08,0 0780 02074000 STC @08,ORIGR 0780 02075000 * CHRCARRY=ORIGR/RECSTRK; /* @Z40LB61*/ 02076000 LR CHRCARRY,@08 0781 02077000 SRL CHRCARRY,5 0781 02078000 * ORIGR=ORIGR//RECSTRK+1; /* @Z40LB61*/ 02079000 LR @00,@08 0782 02080000 SRDA @00,32 0782 02081000 D @00,@CF00219 0782 02082000 AL @00,@CF00217 0782 02083000 STC @00,ORIGR 0782 02084000 * ORIGHH=ORIGHH+CHRCARRY; /* @Z40LB61*/ 02085000 LR @08,CHRCARRY 0783 02086000 AH @08,ORIGHH 0783 02087000 STH @08,ORIGHH 0783 02088000 * CHRCARRY=ORIGHH/TRKSCYL; /* @Z40LB61*/ 02089000 LA @04,19 0784 02090000 LR @00,@08 0784 02091000 SRDA @00,32 0784 02092000 DR @00,@04 0784 02093000 LR CHRCARRY,@01 0784 02094000 * ORIGHH=ORIGHH//TRKSCYL; /* @Z40LB61*/ 02095000 LR @00,@08 0785 02096000 SRDA @00,32 0785 02097000 DR @00,@04 0785 02098000 STH @00,ORIGHH 0785 02099000 * ORIGCC=ORIGCC+CHRCARRY; /* @Z40LB61*/ 02100000 LR @08,CHRCARRY 0786 02101000 AH @08,ORIGCC 0786 02102000 STH @08,ORIGCC 0786 02103000 * COPYCHR=ORIGCHR; /* @Z40LB61*/ 02104000 MVC COPYCHR(5),ORIGCHR 0787 02105000 * COPYCC=COPYCC+CCOFFSET; /* @Z40LB61*/ 02106000 * 0788 02107000 L @08,@PC00001+4 0788 02108000 L @04,CCHHRPTR(,@08) 0788 02109000 LH @02,COPYCC 0788 02110000 AH @02,CCOFFSET(,@04) 0788 02111000 STH @02,COPYCC 0788 02112000 * /*****************************************************************/ 02113000 * /* */ 02114000 * /* IF THE RECORD TO BE OBTAINED IS NOT ALREADY IN THE @Z40LB61*/ 02115000 * /* I/O BUFFER IN STORAGE, ISSUE THE UEXCP MACRO TO READ @Z40LB61*/ 02116000 * /* THE RECORD. CHECK FOR AN ERROR READING IT. @Z40LB61*/ 02117000 * /* */ 02118000 * /*****************************************************************/ 02119000 * 0789 02120000 * IF ORIGCHR^=PREVCHR THEN 0789 02121000 L @04,EARGPTR(,@08) 0789 02122000 CLC ORIGCHR(5),PREVCHR(@04) 0789 02123000 BE @RF00789 0789 02124000 * DO; /* @Z40LB61*/ 02125000 * OLDERID2=NEWERID2; 0791 02126000 L @02,@PC00001 0791 02127000 L @15,GDTTR2(,@02) 0791 02128000 MVC @TS00001(95),NEWERID2(@15) 0791 02129000 MVC OLDERID2(95,@15),@TS00001 0791 02130000 * NEWID2='CH3K'; /* @Z40LB61*/ 02131000 MVC NEWID2(4,@15),@CC02021 0792 02132000 * EXGKEYLN=0; /* @Z40LB61*/ 02133000 L @08,EXARGPTR(,@08) 0793 02134000 MVI EXGKEYLN(@08),X'00' 0793 02135000 * EXGDATAL=RECLNGTH; /* @Z40LB61*/ 02136000 MVC EXGDATAL(2,@08),@CH01842 0794 02137000 * EXGCCHH1=ADDR(COPYCHR); /* @Z40LB61*/ 02138000 LA @15,COPYCHR 0795 02139000 ST @15,EXGCCHH1(,@08) 0795 02140000 * EXGCCHH2=ADDR(ORIGCHR); /* @Z40LB61*/ 02141000 LA @15,ORIGCHR 0796 02142000 ST @15,EXGCCHH2(,@08) 0796 02143000 * CALL IDCIO050(GDTTBL,GET,EXGARG);/* @Z40LB61*/ 02144000 ST @02,@AL00001 0797 02145000 LA @15,GET 0797 02146000 ST @15,@AL00001+4 0797 02147000 ST @08,@AL00001+8 0797 02148000 MVI @AL00001+8,X'80' 0797 02149000 L @15,GDTEXP(,@02) 0797 02150000 LA @01,@AL00001 0797 02151000 BALR @14,@15 0797 02152000 * RESPECIFY 0798 02153000 * RTNREG RSTD; 0798 02154000 * TESTRC=RTNREG; 0799 02155000 LR TESTRC,RTNREG 0799 02156000 * RESPECIFY 0800 02157000 * RTNREG UNRSTD; /* @Z40LB61*/ 02158000 * IF TESTRC^=0 THEN 0801 02159000 LTR TESTRC,TESTRC 0801 02160000 BZ @RF00801 0801 02161000 * DO; /* @Z40LB61*/ 02162000 * GETRC=TABLERR; /* @Z40LB61*/ 02163000 L @08,@PC00001+4 0803 02164000 L @08,EARGPTR(,@08) 0803 02165000 MVC GETRC(2,@08),@CH00565 0803 02166000 * RETURN; /* @Z40LB61*/ 02167000 @EL00003 DS 0H 0804 02168000 @EF00003 DS 0H 0804 02169000 @ER00003 LM @14,@12,@SA00003 0804 02170000 BR @14 0804 02171000 * END; /* @Z40LB61*/ 02172000 * PREVCHR=ORIGCHR; /* @Z40LB61*/ 02173000 @RF00801 L @08,@PC00001+4 0806 02174000 L @08,EARGPTR(,@08) 0806 02175000 MVC PREVCHR(5,@08),ORIGCHR 0806 02176000 * TBLIO=ON; /* @Z40LB61*/ 02177000 OI TBLIO,B'10000000' 0807 02178000 * END; /* @Z40LB61*/ 02179000 * 0808 02180000 * /*****************************************************************/ 02181000 * /* */ 02182000 * /* SET THE POINTER TO THE FIRST ENTRY OF THE RECORD. @Z40LB61*/ 02183000 * /* */ 02184000 * /*****************************************************************/ 02185000 * 0809 02186000 * TBLADDR=RECADDR+LENGTH(PREFIX); /* @Z40LB61*/ 02187000 @RF00789 L @08,@PC00001+4 0809 02188000 L @08,EARGPTR(,@08) 0809 02189000 LA @04,8 0809 02190000 LR @02,RECADDR 0809 02191000 ALR @02,@04 0809 02192000 ST @02,TBLADDR(,@08) 0809 02193000 * IF FREEFORM=ON THEN 0810 02194000 TM FREEFORM,B'10000000' 0810 02195000 BNO @RF00810 0810 02196000 * DO; /* @Z40LB61*/ 02197000 * TBLADDR=TBLADDR+LENGTH(CBLOCK);/* @Z40LB61*/ 02198000 ALR @02,@04 0812 02199000 ST @02,TBLADDR(,@08) 0812 02200000 * ENTNUM=1; /* @Z40LB61*/ 02201000 MVI ENTNUM(@08),X'01' 0813 02202000 * END; /* @Z40LB61*/ 02203000 * 0814 02204000 * /*****************************************************************/ 02205000 * /* */ 02206000 * /* COMPUTE THE RECORD OFFSET OF THIS RECORD FROM THE @Z40LB61*/ 02207000 * /* BEGINNING OF THE PARTICULAR TABLE. DO THIS BY @Z40LB61*/ 02208000 * /* OBTAINING THE CCHHR OF THE BEGINNING OF THE TABLE, @Z40LB61*/ 02209000 * /* CONVERTING BOTH THE BEGINNING CCHHR AND CCHHR OF THE @Z40LB61*/ 02210000 * /* CURRENT RECORD INTO RECORD OFFSETS, AND THEN TAKING @Z40LB61*/ 02211000 * /* THEIR DIFFERENCE. @Z40LB61*/ 02212000 * /* */ 02213000 * /*****************************************************************/ 02214000 * 0815 02215000 * IF TABLEID=MVTBLID&MVTDB=ON THEN 0815 02216000 @RF00810 L @08,@PC00001+4 0815 02217000 L @04,EARGPTR(,@08) 0815 02218000 CLC TABLEID(1,@04),MVTBLID 0815 02219000 BNE @RF00815 0815 02220000 TM MVTDB,B'10000000' 0815 02221000 BNO @RF00815 0815 02222000 * COPYCHR=MVTDBCHR; /* @Z40LB61*/ 02223000 L @08,CCHHRPTR(,@08) 0816 02224000 MVC COPYCHR(5),MVTDBCHR(@08) 0816 02225000 * ELSE 0817 02226000 * COPYCHR=TBLCCHHR(TABLE#); /* @Z40LB61*/ 02227000 B @RC00815 0817 02228000 @RF00815 LR @08,TABLE# 0817 02229000 MH @08,@CH00154 0817 02230000 L @04,@PC00001+4 0817 02231000 L @04,CCHHRPTR(,@04) 0817 02232000 ALR @04,@08 0817 02233000 AL @04,@CF02054 0817 02234000 MVC COPYCHR(5),TBLCCHHR-2(@04) 0817 02235000 * RECNUM=(RECCYL-COPYCC)*TRKSCYL*RECSTRK+(RECHEAD-COPYHH)*RECSTRK+( 02236000 * RECREC-COPYR)+1; /* @Z40LB61*/ 02237000 @RC00815 L @08,@PC00001+4 0818 02238000 L @08,EARGPTR(,@08) 0818 02239000 LH @04,RECCYL(,@08) 0818 02240000 SH @04,COPYCC 0818 02241000 MH @04,@CH02045 0818 02242000 LH @02,RECHEAD(,@08) 0818 02243000 SH @02,COPYHH 0818 02244000 SLA @02,5 0818 02245000 ALR @04,@02 0818 02246000 SLR @02,@02 0818 02247000 IC @02,RECREC(,@08) 0818 02248000 SLR @15,@15 0818 02249000 IC @15,COPYR 0818 02250000 SLR @02,@15 0818 02251000 ALR @04,@02 0818 02252000 AL @04,@CF00217 0818 02253000 STH @04,RECNUM(,@08) 0818 02254000 * ORIGCHR=SAVECHR; /* @Z40LB61*/ 02255000 MVC ORIGCHR(5),SAVECHR 0819 02256000 * END GTMSCREC; /* @Z40LB61*/ 02257000 B @EL00003 0820 02258000 * 0821 02259000 */***********************************************************@Y30LB39*/ 02260000 */* PROCEDURE NAME - SSCMSG @Y30LB39*/ 02261000 */* @Y30LB39*/ 02262000 */* FUNCTION - THIS ROUTINE PRINTS MESSAGES @Y30LB39*/ 02263000 */* FROM IDCTSSS0 OR IDCTSCM0 AS DICTATED BY THE MSSC @Y30LB39*/ 02264000 */* REASON CODE OR THE ECB POST CODE, EITHER ONE PASSED AS @Y30LB39*/ 02265000 */* INPUT ARGUMENTS. @Y30LB39*/ 02266000 */* @Y30LB39*/ 02267000 */* THE REASON CODE IS PASSED TO THIS ROUTINE FROM THE @Y30LB39*/ 02268000 */* CALLER IN SSRCODE, AND THE ECB POST CODE IS PASSED @Y30LB39*/ 02269000 */* IN SSECBCD. @Y30LB39*/ 02270000 */* @Y30LB39*/ 02271000 */* ONLY ONE MESSAGE IS PRINTED. IF THE REASON CODE @Y30LB39*/ 02272000 */* CONTAINS A NUMBER GREATER THAN ZERO, IT IS USED AS @Y30LB39*/ 02273000 */* THE INDICATION TO CALL UPRINT TO READ IN THE FIRST @Y30LB39*/ 02274000 */* STATIC TEXT ENTRY FROM IDCTSSS0. THAT ENTRY CONTAINS @Y30LB39*/ 02275000 */* AN ARRAY OF THE MESSAGE INDICES USED TO PRINT THE @Y30LB39*/ 02276000 */* MSSC REASON CODE MESSAGE. THE ARRAY IS SCANNED FOR THE @Y30LB39*/ 02277000 */* REASON CODE THAT WAS PASSED AS THE FIRST PARAMETER. @Y30LB39*/ 02278000 */* IF THE ARRAY CONTAINS AN ENTRY WITH THAT VALUE, THE @Y30LB39*/ 02279000 */* ARRAY INDEX IS USED TO PRINT THE MESSAGE. IF THE @Y30LB39*/ 02280000 */* REASON CODE IS NOT FOUND IN THE ARRAY, THE REASON @Y30LB39*/ 02281000 */* CODE IS USED AS BLOCK DATA WHEN PRINTING THE "LAST" @Y30LB39*/ 02282000 */* STATIC TEXT ENTRY IN THE TEXT MODULE. @Y30LB39*/ 02283000 */* @Y30LB39*/ 02284000 */* IF THE REASON CODE FIELD IS ZERO, THE ECB POST CODE @Y30LB39*/ 02285000 */* IS INSERTED AS BLOCK DATA INTO A GENERAL MESSAGE IN @Y30LB39*/ 02286000 */* STATIC TEXT MODULE IDCTSCM0. @Y30LB39*/ 02287000 */* @Y30LB39*/ 02288000 */* INPUT - REASON CODE AS FIRST ARGUMENT, OPTIONALLY THE @Y30LB39*/ 02289000 */* ECB CODE AS THE SECOND ARGUMENT. @Y30LB39*/ 02290000 */* @Y30LB39*/ 02291000 */* OUTPUT - PRINTED MESSAGE AND RETURN CODE OF ZERO. @Y30LB39*/ 02292000 */* @Y30LB39*/ 02293000 */***********************************************************@Y30LB39*/ 02294000 * 0821 02295000 * /* @Y30LB39*/ 02296000 *SSCMSG: 0821 02297000 * PROCEDURE(SSRCODE, /* SSC RETURN CODE @Y30LB39*/ 02298000 * SSECBCD); /* ECB POST CODE @Y30LB39 02299000 * @Y30LB39*/ 02300000 SSCMSG STM @14,@12,@SA00004 0821 02301000 MVC @PC00004(8),0(@01) 0821 02302000 * /* @Y30LB39*/ 02303000 * 0822 02304000 * /*****************************************************************/ 02305000 * /* */ 02306000 * /* @Y30LB39*/ 02307000 * /* DECLARATIONS FOR THE SSCMSG PROCEDURE @Y30LB39*/ 02308000 * /* @Y30LB39*/ 02309000 * /* */ 02310000 * /*****************************************************************/ 02311000 * 0822 02312000 * /* @Y30LB39 02313000 * @Y30LB39*/ 02314000 * 0822 02315000 * /*****************************************************************/ 02316000 * /* */ 02317000 * /* @Y30LB39*/ 02318000 * /* THE NEXT TWO DECLARES ARE FOR THE TWO INPUT @Y30LB39*/ 02319000 * /* ARGUMENTS. 1ST - MSSC REASON CODE OR @Y30LB39*/ 02320000 * /* 2ND - MSSC POST CODE @Y30LB39*/ 02321000 * /* @Y30LB39*/ 02322000 * /* */ 02323000 * /*****************************************************************/ 02324000 * 0822 02325000 * /* @Y30LB39*/ 02326000 * DCL 0822 02327000 * 1 SSRCODE FIXED(31), /* @Y30LB39*/ 02328000 * 3 * FIXED(15), /* @Y30LB39*/ 02329000 * 3 SSRHALF FIXED(15); /* 1ST ARG REASON CODE @Y30LB39*/ 02330000 * DCL 0823 02331000 * SSECBCD PTR(8); /* 2ND ARG POST CODE @Y30LB39 02332000 * @Y30LB39 02333000 * @Y30LB39*/ 02334000 * 0823 02335000 * /*****************************************************************/ 02336000 * /* */ 02337000 * /* @Y30LB39*/ 02338000 * /* DECLARE THE DYNAMIC AREA NEEDED TO POINT TO AND @Y30LB39*/ 02339000 * /* CONTAIN THE "LOCAL" PRINT ARGUMENT LIST @Y30LB39*/ 02340000 * /* @Y30LB39*/ 02341000 * /* */ 02342000 * /*****************************************************************/ 02343000 * 0824 02344000 * /* @Y30LB39*/ 02345000 * DCL 0824 02346000 * SSDLPTR PTR(31); /* @Y30LB39*/ 02347000 * DCL 0825 02348000 * SSDRGLT CHAR(LENGTH(DARGLIST));/* @Y30LB39 02349000 * @Y30LB39*/ 02350000 * 0825 02351000 * /*****************************************************************/ 02352000 * /* */ 02353000 * /* @Y30LB39*/ 02354000 * /* THE NEXT DECLARE IS FOR THE INDEX WHICH IS @Y30LB39*/ 02355000 * /* INCREMENTED WHILE SEARCHING THE ARRAY OF @Y30LB39*/ 02356000 * /* REASON CODES AND, UPON FINDING THE CORRECT @Y30LB39*/ 02357000 * /* REASON CODE, IS PASSED TO PRINT MODULE AS THE @Y30LB39*/ 02358000 * /* INDEX OF THE MESSAGE NUMBER TO BE PRINTED. @Y30LB39*/ 02359000 * /* @Y30LB39*/ 02360000 * /* */ 02361000 * /*****************************************************************/ 02362000 * 0826 02363000 * /* @Y30LB39*/ 02364000 * DECLARE 0826 02365000 * ENTRYNUM FIXED(8) UNSIGNED; /* @Y30LB39 02366000 * @Y30LB39*/ 02367000 * 0826 02368000 * /*****************************************************************/ 02369000 * /* */ 02370000 * /* @Y30LB39*/ 02371000 * /* THE NEXT DECLARE IS FOR THE COMMON MESSAGE @Y30LB39*/ 02372000 * /* NUMBER TO IDENTIFY THE ECB POST CODE @Y30LB39*/ 02373000 * /* MESSAGE CONTAINED IN STATIC TEXT MODULE @Y30LB39*/ 02374000 * /* IDCTSCM0. @Y30LB39*/ 02375000 * /* @Y30LB39*/ 02376000 * /* */ 02377000 * /*****************************************************************/ 02378000 * 0827 02379000 * /* @Y30LB39*/ 02380000 * DECLARE 0827 02381000 * SSMSGNUM FIXED(8) STATIC LOCAL INIT(56);/* @Y30LB39 02382000 * @Y30LB39*/ 02383000 * 0827 02384000 * /*****************************************************************/ 02385000 * /* */ 02386000 * /* @Y30LB39*/ 02387000 * /* THE NEXT DECLARE IS FOR THE ARRAY WHICH IS @Y30LB39*/ 02388000 * /* SEARCHED FOR THE REASON CODE CORRESPONDING @Y30LB39*/ 02389000 * /* TO THE MESSAGE INDEX AND ULTIMATELY, THE @Y30LB39*/ 02390000 * /* MESSAGE TEXT TO BE PRINTED TO THE USER TELLING @Y30LB39*/ 02391000 * /* HIM OF THE EXACT REASON FOR THE MSSC FAILURE. @Y30LB39*/ 02392000 * /* @Y30LB39*/ 02393000 * /* */ 02394000 * /*****************************************************************/ 02395000 * 0828 02396000 * /* @Y30LB39*/ 02397000 * DECLARE 0828 02398000 * 1 SSINXLST BDY(WORD), /* @Y30LB39*/ 02399000 * 3 SSARRAY(60) FIXED(15); /* @Y30LB39 02400000 * @Y30LB39*/ 02401000 * 0828 02402000 * /*****************************************************************/ 02403000 * /* */ 02404000 * /* @Y30LB39*/ 02405000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 02406000 * /* USED BY THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 02407000 * /* @Y30LB39*/ 02408000 * /* */ 02409000 * /*****************************************************************/ 02410000 * 0829 02411000 * /* @Y30LB39*/ 02412000 * DECLARE 0829 02413000 * SSMODSS0 CHAR(3) STATIC INIT('SS0');/* @Y30LB39 02414000 * @Y30LB39*/ 02415000 * 0829 02416000 * /*****************************************************************/ 02417000 * /* */ 02418000 * /* @Y30LB39*/ 02419000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 02420000 * /* USED BY THE STATIC TEXT MODULE - IDCTSCMO. @Y30LB39*/ 02421000 * /* @Y30LB39*/ 02422000 * /* */ 02423000 * /*****************************************************************/ 02424000 * 0830 02425000 * /* @Y30LB39*/ 02426000 * DECLARE 0830 02427000 * SSMODCM0 CHAR(3) STATIC INIT('CM0');/* @Y30LB39 02428000 * @Y30LB39*/ 02429000 * /* @Y30LB39*/ 02430000 * 0831 02431000 * /*****************************************************************/ 02432000 * /* */ 02433000 * /* ISSUE UTRACE MACRO TO PROVIDE A TRACK OF FLOW @Y30LB39*/ 02434000 * /* ON CONTROL WITHIN THE SSMSG MODULE. @Y30LB39*/ 02435000 * /* THIS WILL PLACE THE IDENTIFIER SPECIFIED IN @Y30LB39*/ 02436000 * /* A SEPARATE INTRA-MODULE TRACE TABLE. @Y30LB39*/ 02437000 * /* @Y30LB39*/ 02438000 * /* */ 02439000 * /*****************************************************************/ 02440000 * 0831 02441000 * /* @Y30LB39*/ 02442000 * OLDERID2=NEWERID2; 0831 02443000 L @15,@PC00001 0831 02444000 L @14,GDTTR2(,@15) 0831 02445000 MVC @TS00001(95),NEWERID2(@14) 0831 02446000 MVC OLDERID2(95,@14),@TS00001 0831 02447000 * NEWID2='SSAA'; /* @Y30LB39 02448000 * @Y30LB39*/ 02449000 * 0832 02450000 MVC NEWID2(4,@14),@CC02041 0832 02451000 * /*****************************************************************/ 02452000 * /* */ 02453000 * /* @Y30LB39*/ 02454000 * /* ESTABLISH ADDRESSABILITY TO THE DYNAMIC @Y30LB39*/ 02455000 * /* ARGUMENT LIST. @Y30LB39*/ 02456000 * /* @Y30LB39*/ 02457000 * /* */ 02458000 * /*****************************************************************/ 02459000 * 0833 02460000 * /* @Y30LB39*/ 02461000 * SSDLPTR=ADDR(SSDRGLT); /* @Y30LB39 02462000 * @Y30LB39*/ 02463000 * 0833 02464000 LA @14,SSDRGLT 0833 02465000 ST @14,SSDLPTR 0833 02466000 * /*****************************************************************/ 02467000 * /* */ 02468000 * /* @Y30LB39*/ 02469000 * /* IF THE REASON CODE IS NOT ZERO, READ IN THE @Y30LB39*/ 02470000 * /* ARRAY FROM THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 02471000 * /* @Y30LB39*/ 02472000 * /* */ 02473000 * /*****************************************************************/ 02474000 * 0834 02475000 * /* @Y30LB39*/ 02476000 * IF SSRCODE>0 THEN 0834 02477000 L @09,@PC00004 0834 02478000 L @09,SSRCODE(,@09) 0834 02479000 LTR @09,@09 0834 02480000 BNP @RF00834 0834 02481000 * DO; /* @Y30LB39 02482000 * @Y30LB39*/ 02483000 * 0835 02484000 * /*************************************************************/ 02485000 * /* */ 02486000 * /* @Y30LB39*/ 02487000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND @Y30LB39*/ 02488000 * /* INITIALIZE THE PRINT ARGUMENT LIST TO READ @Y30LB39*/ 02489000 * /* IN THE ARRAY WHICH CONTAINS THE MSSC REASON @Y30LB39*/ 02490000 * /* CODES. @Y30LB39*/ 02491000 * /* @Y30LB39*/ 02492000 * /* */ 02493000 * /*************************************************************/ 02494000 * 0836 02495000 * /* @Y30LB39*/ 02496000 * SSDRGLT=''B; /* @Y30LB39*/ 02497000 XC SSDRGLT(20),SSDRGLT 0836 02498000 * SSDLPTR->DARGRETP=ADDR(SSINXLST);/* @Y30LB39*/ 02499000 LA @03,SSINXLST 0837 02500000 ST @03,DARGRETP(,@14) 0837 02501000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 02502000 MVC DARGSMOD(3,@14),SSMODSS0 0838 02503000 * SSDLPTR->DARGSENT=1; /* @Y30LB39*/ 02504000 MVI DARGSENT(@14),X'01' 0839 02505000 * SSDLPTR->DARGRETL=LENGTH(SSINXLST);/* @Y30LB39 02506000 * @Y30LB39*/ 02507000 * 0840 02508000 MVC DARGRETL(2,@14),@CH02046 0840 02509000 * /*************************************************************/ 02510000 * /* */ 02511000 * /* @Y30LB39*/ 02512000 * /* ISSUE UPRINT MACRO TO READ IN THE SEARCH @Y30LB39*/ 02513000 * /* ARRAY. @Y30LB39*/ 02514000 * /* @Y30LB39*/ 02515000 * /* */ 02516000 * /*************************************************************/ 02517000 * 0841 02518000 * /* @Y30LB39*/ 02519000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 02520000 * @Y30LB39*/ 02521000 * 0841 02522000 ST @15,@AL00001 0841 02523000 LA @03,@CF00113 0841 02524000 ST @03,@AL00001+4 0841 02525000 LA @03,SSDLPTR 0841 02526000 ST @03,@AL00001+8 0841 02527000 MVI @AL00001+8,X'80' 0841 02528000 L @15,GDTPRT(,@15) 0841 02529000 LA @01,@AL00001 0841 02530000 BALR @14,@15 0841 02531000 * /*************************************************************/ 02532000 * /* */ 02533000 * /* @Y30LB39*/ 02534000 * /* BEGIN DO LOOP TO SEARCH FOR THE MESSAGE @Y30LB39*/ 02535000 * /* INDEX CORRESPONDING TO THE REASON CODE @Y30LB39*/ 02536000 * /* PASSED AS THE FIRST ARGUMENT. @Y30LB39*/ 02537000 * /* THE DO LOOP BEGINS WITH THE SECOND ARRAY @Y30LB39*/ 02538000 * /* ENTRY SINCE THE FIRST IS REQUIRED BY THE @Y30LB39*/ 02539000 * /* SEARCH ARRAY ITSELF. @Y30LB39*/ 02540000 * /* THE SEARCH CONTINUES UNTIL THE REASON CODE @Y30LB39*/ 02541000 * /* IS FOUND, AT WHICH TIME THE SEARCH INDEX @Y30LB39*/ 02542000 * /* IS PASSED TO THE PRINT MODULE TO PRINT @Y30LB39*/ 02543000 * /* THE MESSAGE ASSOCIATED WITH THAT PARTICULAR @Y30LB39*/ 02544000 * /* REASON CODE. @Y30LB39*/ 02545000 * /* IF THERE IS NO MATCH FOUND IN THE ARRAY, @Y30LB39*/ 02546000 * /* THEN THE INDEX WILL BE THE LAST POSITION IN @Y30LB39*/ 02547000 * /* ARRAY. THIS WILL BE THE INDICATION THAT @Y30LB39*/ 02548000 * /* THE REASON CODE ITSELF SHOULD BE PRINTED. @Y30LB39*/ 02549000 * /* @Y30LB39*/ 02550000 * /* */ 02551000 * /*************************************************************/ 02552000 * 0842 02553000 * /* @Y30LB39*/ 02554000 * ENTRYNUM=1; /* @Y30LB39*/ 02555000 LA ENTRYNUM,1 0842 02556000 * DO UNTIL(SSRHALF=SSARRAY(ENTRYNUM)|SSARRAY(ENTRYNUM)=0); 0843 02557000 @DL00843 DS 0H 0844 02558000 * ENTRYNUM=ENTRYNUM+1; /* @Y30LB39*/ 02559000 AL ENTRYNUM,@CF00217 0844 02560000 * END; /* @Y30LB39 02561000 * @Y30LB39*/ 02562000 * 0845 02563000 @DE00843 L @03,@PC00004 0845 02564000 LR @15,ENTRYNUM 0845 02565000 ALR @15,@15 0845 02566000 LH @15,SSARRAY-2(@15) 0845 02567000 CH @15,SSRHALF(,@03) 0845 02568000 BE @DC00843 0845 02569000 SLR @14,@14 0845 02570000 CR @15,@14 0845 02571000 BNE @DL00843 0845 02572000 @DC00843 DS 0H 0846 02573000 * /*************************************************************/ 02574000 * /* */ 02575000 * /* @Y30LB39*/ 02576000 * /* THE CORRECT INDEX HAS BEEN FOUND @Y30LB39*/ 02577000 * /* @Y30LB39*/ 02578000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND FILL @Y30LB39*/ 02579000 * /* OUT THE PRINT ARGUMENT FIELDS WITH EITHER: @Y30LB39*/ 02580000 * /* 1) THE INDEX CORRESPONDING TO THE REASON @Y30LB39*/ 02581000 * /* CODE OR @Y30LB39*/ 02582000 * /* 2) THE LAST INDEX AND THE REASON CODE @Y30LB39*/ 02583000 * /* ITSELF AS A STATIC TEXT INSERT. @Y30LB39*/ 02584000 * /* @Y30LB39*/ 02585000 * /* */ 02586000 * /*************************************************************/ 02587000 * 0846 02588000 * /* @Y30LB39*/ 02589000 * SSDRGLT=''B; /* @Y30LB39*/ 02590000 XC SSDRGLT(20),SSDRGLT 0846 02591000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 02592000 L @09,SSDLPTR 0847 02593000 MVC DARGSMOD(3,@09),SSMODSS0 0847 02594000 * SSDLPTR->DARGSENT=ENTRYNUM; /* @Y30LB39*/ 02595000 STC ENTRYNUM,DARGSENT(,@09) 0848 02596000 * IF SSARRAY(ENTRYNUM)=0 THEN /* @Y30LB39*/ 02597000 CR @15,@14 0849 02598000 BNE @RF00849 0849 02599000 * DO; /* @Y30LB39*/ 02600000 * SSDLPTR->DARGDBP=ADDR(SSRCODE);/* @Y30LB39*/ 02601000 ST @03,DARGDBP(,@09) 0851 02602000 * SSDLPTR->DARGILP=LENGTH(SSRCODE);/* @Y30LB39*/ 02603000 MVC DARGILP(2,@09),@CH00040 0852 02604000 * END; /* @Y30LB39*/ 02605000 * END; /* @Y30LB39*/ 02606000 * /* @Y30LB39*/ 02607000 * 0855 02608000 * /*****************************************************************/ 02609000 * /* */ 02610000 * /* @Y30LB39*/ 02611000 * /* THE FIRST ARGUMENT WAS ZERO, INDICATING THAT @Y30LB39*/ 02612000 * /* THIS ROUTINE IS TO PRINT OUT THE ECB POST @Y30LB39*/ 02613000 * /* CODE. THEREFORE, CLEAR THE DYNAMIC ARGUMENT @Y30LB39*/ 02614000 * /* LIST AND FILL OUT THE PRINT ARGUMENT FIELDS @Y30LB39*/ 02615000 * /* SO THE STATIC TEXT MODULE, IDCTSCM0, WILL @Y30LB39*/ 02616000 * /* PRINT OUT THE MESSAGE ASSOCIATED WITH THE @Y30LB39*/ 02617000 * /* POST CODE. @Y30LB39*/ 02618000 * /* @Y30LB39*/ 02619000 * /* */ 02620000 * /*****************************************************************/ 02621000 * 0855 02622000 * /* @Y30LB39*/ 02623000 * ELSE /* @Y30LB39*/ 02624000 * DO; /* @Y30LB39*/ 02625000 B @RC00834 0855 02626000 @RF00834 DS 0H 0856 02627000 * SSDRGLT=''B; /* @Y30LB39*/ 02628000 XC SSDRGLT(20),SSDRGLT 0856 02629000 * SSDLPTR->DARGSMOD=SSMODCM0; /* @Y30LB39*/ 02630000 L @15,SSDLPTR 0857 02631000 MVC DARGSMOD(3,@15),SSMODCM0 0857 02632000 * SSDLPTR->DARGSENT=SSMSGNUM; /* @Y30LB39*/ 02633000 MVC DARGSENT(1,@15),SSMSGNUM 0858 02634000 * SSDLPTR->DARGDBP=ADDR(SSECBCD);/* @Y30LB39*/ 02635000 L @14,@PC00004+4 0859 02636000 ST @14,DARGDBP(,@15) 0859 02637000 * SSDLPTR->DARGILP=LENGTH(SSECBCD);/* @Y30LB39*/ 02638000 MVC DARGILP(2,@15),@CH00217 0860 02639000 * END; /* @Y30LB39 02640000 * @Y30LB39*/ 02641000 * 0861 02642000 * /*****************************************************************/ 02643000 * /* */ 02644000 * /* @Y30LB39*/ 02645000 * /* ISSUE UPRINT MACRO TO PRINT THE REASON @Y30LB39*/ 02646000 * /* CODE MESSAGE OR THE ECB POST CODE MESSAGE. @Y30LB39*/ 02647000 * /* @Y30LB39*/ 02648000 * /* */ 02649000 * /*****************************************************************/ 02650000 * 0862 02651000 * /* @Y30LB39*/ 02652000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 02653000 * @Y30LB39*/ 02654000 * 0862 02655000 @RC00834 L @15,@PC00001 0862 02656000 ST @15,@AL00001 0862 02657000 LA @14,@CF00113 0862 02658000 ST @14,@AL00001+4 0862 02659000 LA @14,SSDLPTR 0862 02660000 ST @14,@AL00001+8 0862 02661000 MVI @AL00001+8,X'80' 0862 02662000 L @15,GDTPRT(,@15) 0862 02663000 LA @01,@AL00001 0862 02664000 BALR @14,@15 0862 02665000 * /*****************************************************************/ 02666000 * /* */ 02667000 * /* @Y30LB39*/ 02668000 * /* RETURN TO CALLER WITH A RETURN CODE OF ZERO @Y30LB39*/ 02669000 * /* @Y30LB39*/ 02670000 * /* */ 02671000 * /*****************************************************************/ 02672000 * 0863 02673000 * /* @Y30LB39 02674000 * @Y30LB39*/ 02675000 * RETURN CODE(0); /* @Y30LB39 02676000 * @Y30LB39*/ 02677000 SLR @15,@15 0863 02678000 L @14,@SA00004 0863 02679000 LM @00,@12,@SA00004+8 0863 02680000 BR @14 0863 02681000 * END SSCMSG; /* @Y30LB39*/ 02682000 * END IDCCH03 /* @Z40LB61*/ 02683000 * 0865 02684000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02685000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 02686000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 02687000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 02688000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 02689000 */*%INCLUDE SYSLIB (IDCDF11 ) */ 02690000 */*%INCLUDE SYSLIB (IDCDF56 ) */ 02691000 */*%INCLUDE SYSLIB (IDCDF52 ) */ 02692000 * 0865 02693000 * ; 0865 02694000 @DATA DS 0H 02695000 @CH01847 DC H'11' 02696000 @CH00565 DC H'12' 02697000 @CH01896 DC H'54' 02698000 @CH02046 DC H'120' 02699000 @CH01909 DC H'442' 02700000 @CH02045 DC H'608' 02701000 @CH01851 DC H'5774' 02702000 @DATD DSECT 02703000 DS 0F 02704000 @SA00001 DS 18F 02705000 @PC00001 DS 2F 02706000 @SA00002 DS 15F 02707000 @SA00003 DS 15F 02708000 @SA00004 DS 15F 02709000 @PC00004 DS 2F 02710000 @AL00001 DS 4A 02711000 @TF00001 DS F 02712000 @AFTEMPS DS 2F 02713000 IDCCH03 CSECT 02714000 DS 0F 02715000 @CF00113 DC F'0' 02716000 @CF00217 DC F'1' 02717000 @CH00217 EQU @CF00217+2 02718000 @CF00151 DC F'2' 02719000 @CF00160 DC F'3' 02720000 @CH00160 EQU @CF00160+2 02721000 @CF00040 DC F'4' 02722000 @CH00040 EQU @CF00040+2 02723000 @CF00154 DC F'6' 02724000 @CH00154 EQU @CF00154+2 02725000 @CF00177 DC F'8' 02726000 @CH00177 EQU @CF00177+2 02727000 @CF01642 DC F'9' 02728000 @CF00442 DC F'10' 02729000 @CF00472 DC F'16' 02730000 @CF00219 DC F'32' 02731000 @CF01070 DC F'64' 02732000 @CF01096 DC F'256' 02733000 @CH01096 EQU @CF01096+2 02734000 @CF01842 DC F'264' 02735000 @CH01842 EQU @CF01842+2 02736000 @CF02054 DC F'-4' 02737000 @CF02055 DC F'-1' 02738000 @CF02056 DC XL4'0000FFFF' 02739000 @DATD DSECT 02740000 DS 0D 02741000 LISTSCAN DS A 02742000 IOCSPTR DS A 02743000 OPNPTR DS A 02744000 DDSTRU DS A 02745000 FSADDR DS A 02746000 ERCNVADR DS A 02747000 CCMSGPTR DS A 02748000 CMMSGPTR DS A 02749000 CTMSGPTR DS A 02750000 ELEMENT DS F 02751000 VADPTR1 DS A 02752000 VADPTR2 DS A 02753000 VVITPTR1 DS A 02754000 VVITPTR2 DS A 02755000 PSTPTR DS A 02756000 LTRPTR DS A 02757000 VTR1PTR DS A 02758000 RPMPTR DS A 02759000 PABPTR DS A 02760000 DVBPTR DS A 02761000 LPBPTR DS A 02762000 VMXPTR DS A 02763000 VVATPTR DS A 02764000 CBMPTR DS A 02765000 MERPTR DS A 02766000 MVENTPTR DS A 02767000 SCCFPTR DS A 02768000 SCENTPTR DS A 02769000 VIENTPTR DS A 02770000 TVENTPTR DS A 02771000 CIENTPTR DS A 02772000 MICPTR DS A 02773000 CDBPTR DS A 02774000 CMCBPTR DS A 02775000 CMENTPTR DS A 02776000 RSNCODE DS F 02777000 SSDLPTR DS A 02778000 LISTPTR DS A 02779000 MVPATH# DS H 02780000 CISA# DS H 02781000 SA# DS H 02782000 CDBVUA# DS H 02783000 SETRC DS H 02784000 LISTLN DS FL1 02785000 @TS00001 DS CL95 02786000 VOLCHARS DS CL6 02787000 ORG VOLCHARS 02788000 VOLCHAR DS 6AL1 02789000 ORG VOLCHARS+6 02790000 ORIGCHR DS CL5 02791000 ORG ORIGCHR 02792000 ORIGCC DS FL2 02793000 ORIGHH DS FL2 02794000 ORIGR DS FL1 02795000 ORG ORIGCHR+5 02796000 DS CL1 02797000 COPYCHR DS CL5 02798000 ORG COPYCHR 02799000 COPYCC DS FL2 02800000 COPYHH DS FL2 02801000 COPYR DS FL1 02802000 ORG COPYCHR+5 02803000 SAVECHR DS CL5 02804000 FREEFORM DS BL1 02805000 SKIPGET DS BL1 02806000 RECFOUND DS BL1 02807000 MVTDB DS BL1 02808000 TBLIO DS BL1 02809000 DS CL3 02810000 DUMPLIST DS CL33 02811000 SSDRGLT DS CL20 02812000 DS CL3 02813000 SSINXLST DS CL120 02814000 ORG SSINXLST 02815000 SSARRAY DS 60H 02816000 ORG SSINXLST+120 02817000 HASHVAL DS 3H 02818000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02819000 @ENDDATD EQU * 02820000 IDCCH03 CSECT 02821000 DS 0F 02822000 @SIZDATD DC AL1(0) 02823000 DC AL3(@ENDDATD-@DATD) 02824000 DS 0D 02825000 MESECT DC XL2'C9' 02826000 TCHRSECT DC XL2'50' 02827000 CBMSECT DC XL2'48' 02828000 SDGTBLID DC XL1'10' 02829000 MVTBLID DC XL1'20' 02830000 SCLTBLID DC XL1'30' 02831000 VITBLID DC XL1'40' 02832000 TVLTBLID DC XL1'50' 02833000 VMXTBLID DC XL1'60' 02834000 CFGTBLID DC XL1'70' 02835000 CMTBLID DC XL1'90' 02836000 VVATBLID DC XL1'A0' 02837000 HASHMASK DC XL1'3F' 02838000 SSMSGNUM DC AL1(56) 02839000 @CC01960 DC C'ENTRYARG' 02840000 @CC01990 DC C'MSCREC' 02841000 @CC02016 DC C'PREFIX' 02842000 @CC01959 DC C'CH3A' 02843000 @CC01962 DC C'CH3X' 02844000 @CC01972 DC C'CH3B' 02845000 @CC01978 DC C'CH3C' 02846000 @CC01981 DC C'CH3D' 02847000 @CC01985 DC C'CH3G' 02848000 @CC01988 DC C'CH3H' 02849000 @CC01991 DC C'CH3Z' 02850000 @CC02002 DC C'CH3I' 02851000 @CC02009 DC C'CH3J' 02852000 @CC02017 DC C'CH3Y' 02853000 @CC02021 DC C'CH3K' 02854000 @CC02041 DC C'SSAA' 02855000 ALL DC CL3'ALL' 02856000 FORMAT DC CL4'FORM' 02857000 HSECOND DC CL4'HSEC' 02858000 CLOCK DC CL4'KLOK' 02859000 SETZERO DC CL4'ZERO' 02860000 SETBLANK DC CL4'BLNK' 02861000 NOSET DC CL4'NSET' 02862000 OVERRIDE DC CL4'OVRD' 02863000 ACQUIRE DC CL8'ACQUIRE ' 02864000 RELINQ DC CL8'RELINQ ' 02865000 MOUNT DC CL8'MOUNT ' 02866000 DEMOUNT DC CL8'DEMOUNT ' 02867000 DEFINE DC CL8'DEFINE ' 02868000 MOVE DC CL8'MOVE ' 02869000 TRACEQ DC CL8'TRACEQ ' 02870000 COPYTABL DC CL8'COPYTABL' 02871000 COPYCRTG DC CL8'COPYCRTG' 02872000 COPYVOL DC CL8'COPYVOL ' 02873000 VVIC DC CL8'VVIC ' 02874000 TUNE DC CL8'TUNE ' 02875000 NAMES DC CL4'NAME' 02876000 UNIT DC CL4'UNIT' 02877000 SHR DC CL4'SHR ' 02878000 EXCL DC CL4'EXCL' 02879000 NOWAIT DC CL4'NWAI' 02880000 WAIT DC CL4'WAIT' 02881000 SECCHECK DC CL8'SECCHECK' 02882000 SCRVTOC DC CL8'SCRVTOC ' 02883000 GETVTOC DC CL8'GETVTOC ' 02884000 PUTVTOC DC CL8'PUTVTOC ' 02885000 RECATLG DC CL8'RECATLG ' 02886000 INITVOL DC CL8'INITVOL ' 02887000 CHECK DC CL8'CHECK ' 02888000 POSTUCB DC CL8'POSTUCB ' 02889000 GET DC CL8'GET ' 02890000 PUT DC CL8'PUT ' 02891000 CLOSE DC CL8'CLOSE ' 02892000 OPEN DC CL8'OPEN ' 02893000 RVOPENR DC CL8'OPENR ' 02894000 RVRDCNT DC CL8'READCNT ' 02895000 RVREADKD DC CL8'READKD ' 02896000 RVSPACCR DC CL8'SPACCR ' 02897000 RVFWRITE DC CL8'FWRITE ' 02898000 RVWRITER DC CL8'WRITEREC' 02899000 PUTLABEL DC CL8'PUTLABEL' 02900000 GETLABEL DC CL8'GETLABEL' 02901000 CANCEL DC CL8'CANCEL ' 02902000 SET DC CL8'SET ' 02903000 SELECTX DC CL8'SELECTX ' 02904000 CHANGEX DC CL8'CHANGEX ' 02905000 SELECTDD DC CL8'SELECTDD' 02906000 SELECTDS DC CL8'SELECTDS' 02907000 TBLREST DC CL8'TBLREST ' 02908000 NULLIFYC DC CL8'NULLIFYC' 02909000 RDMSC DC CL8'RDMSC ' 02910000 RDMSCTBL DC CL8'RDMSCTBL' 02911000 RDCARTLB DC CL8'RDCARTLB' 02912000 AUDITCEL DC CL8'AUDITCEL' 02913000 RDSTGAD DC CL8'RDSTGAD ' 02914000 MODID DC CL4'CH03' 02915000 FIXAREA DS CL256 02916000 ORG FIXAREA 02917000 @NM00165 DS CL256 02918000 ORG @NM00165 02919000 @NM00166 DC 256X'00' 02920000 ORG FIXAREA+256 02921000 SSMODSS0 DC CL3'SS0' 02922000 SSMODCM0 DC CL3'CM0' 02923000 BITMASK DC X'80' 02924000 DC X'40' 02925000 DC X'20' 02926000 DC X'10' 02927000 DC X'08' 02928000 DC X'04' 02929000 DC X'02' 02930000 DC X'01' 02931000 HASHMAP DC AL1(0) 02932000 DC AL1(1) 02933000 DC AL1(2) 02934000 DC AL1(3) 02935000 DC AL1(4) 02936000 DC AL1(5) 02937000 DC AL1(6) 02938000 DC AL1(7) 02939000 DC AL1(8) 02940000 DC AL1(9) 02941000 DC AL1(10) 02942000 DC AL1(11) 02943000 DC AL1(12) 02944000 DC AL1(13) 02945000 DC AL1(14) 02946000 DC AL1(15) 02947000 DC AL1(9) 02948000 DC AL1(10) 02949000 DC AL1(11) 02950000 DC AL1(12) 02951000 DC AL1(13) 02952000 DC AL1(14) 02953000 DC AL1(15) 02954000 DC AL1(16) 02955000 DC AL1(17) 02956000 DC AL1(18) 02957000 DC AL1(19) 02958000 DC AL1(20) 02959000 DC AL1(21) 02960000 DC AL1(22) 02961000 DC AL1(23) 02962000 DC AL1(24) 02963000 DC AL1(17) 02964000 DC AL1(18) 02965000 DC AL1(19) 02966000 DC AL1(20) 02967000 DC AL1(21) 02968000 DC AL1(22) 02969000 DC AL1(23) 02970000 DC AL1(24) 02971000 DC AL1(25) 02972000 DC AL1(26) 02973000 DC AL1(27) 02974000 DC AL1(28) 02975000 DC AL1(29) 02976000 DC AL1(30) 02977000 DC AL1(31) 02978000 DC AL1(32) 02979000 DC AL1(27) 02980000 DC AL1(28) 02981000 DC AL1(29) 02982000 DC AL1(30) 02983000 DC AL1(31) 02984000 DC AL1(32) 02985000 DC AL1(33) 02986000 DC AL1(34) 02987000 DC AL1(35) 02988000 DC AL1(36) 02989000 DC AL1(37) 02990000 DC AL1(38) 02991000 DC AL1(39) 02992000 DC AL1(40) 02993000 DC AL1(41) 02994000 DC AL1(42) 02995000 DC AL1(0) 02996000 DC AL1(32) 02997000 DC AL1(16) 02998000 DC AL1(48) 02999000 DC AL1(8) 03000000 DC AL1(40) 03001000 DC AL1(24) 03002000 DC AL1(56) 03003000 DC AL1(4) 03004000 DC AL1(36) 03005000 DC AL1(20) 03006000 DC AL1(52) 03007000 DC AL1(12) 03008000 DC AL1(44) 03009000 DC AL1(28) 03010000 DC AL1(60) 03011000 DC AL1(36) 03012000 DC AL1(20) 03013000 DC AL1(52) 03014000 DC AL1(12) 03015000 DC AL1(44) 03016000 DC AL1(28) 03017000 DC AL1(60) 03018000 DC AL1(2) 03019000 DC AL1(34) 03020000 DC AL1(18) 03021000 DC AL1(50) 03022000 DC AL1(10) 03023000 DC AL1(42) 03024000 DC AL1(26) 03025000 DC AL1(58) 03026000 DC AL1(6) 03027000 DC AL1(34) 03028000 DC AL1(18) 03029000 DC AL1(50) 03030000 DC AL1(10) 03031000 DC AL1(42) 03032000 DC AL1(26) 03033000 DC AL1(58) 03034000 DC AL1(6) 03035000 DC AL1(38) 03036000 DC AL1(22) 03037000 DC AL1(54) 03038000 DC AL1(14) 03039000 DC AL1(46) 03040000 DC AL1(30) 03041000 DC AL1(62) 03042000 DC AL1(1) 03043000 DC AL1(54) 03044000 DC AL1(14) 03045000 DC AL1(46) 03046000 DC AL1(30) 03047000 DC AL1(62) 03048000 DC AL1(1) 03049000 DC AL1(33) 03050000 DC AL1(17) 03051000 DC AL1(49) 03052000 DC AL1(9) 03053000 DC AL1(41) 03054000 DC AL1(25) 03055000 DC AL1(57) 03056000 DC AL1(5) 03057000 DC AL1(37) 03058000 DC AL1(21) 03059000 FACTOR DC H'4' 03060000 DC H'2' 03061000 DC H'1' 03062000 DC H'1' 03063000 DC H'2' 03064000 DC H'4' 03065000 DC H'1' 03066000 DC H'4' 03067000 DC H'2' 03068000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03069000 @01 EQU 01 03070000 @02 EQU 02 03071000 @03 EQU 03 03072000 @04 EQU 04 03073000 @05 EQU 05 03074000 @06 EQU 06 03075000 @07 EQU 07 03076000 @08 EQU 08 03077000 @09 EQU 09 03078000 @10 EQU 10 03079000 @11 EQU 11 03080000 @12 EQU 12 03081000 @13 EQU 13 03082000 @14 EQU 14 03083000 @15 EQU 15 03084000 ENTRYNUM EQU @02 03085000 ENTRY# EQU @06 03086000 CHAR# EQU @02 03087000 HASH# EQU @04 03088000 BLOCK# EQU @06 03089000 TABLE# EQU @09 03090000 RECBUMP EQU @03 03091000 VVAOFFST EQU @04 03092000 VVASREC EQU @02 03093000 CHRCARRY EQU @02 03094000 RECADDR EQU @05 03095000 MOVEPTR EQU @02 03096000 OFLODISP EQU @08 03097000 HASHTOT EQU @07 03098000 TVCFPTR EQU @02 03099000 VICFPTR EQU @02 03100000 MVIBPTR EQU @02 03101000 MVCBPTR EQU @04 03102000 DMPINDEX EQU @02 03103000 TESTRC EQU @04 03104000 REG11 EQU @11 03105000 REG12 EQU @12 03106000 REG10 EQU @10 03107000 RTNREG EQU @15 03108000 QUERR1 EQU @01 03109000 REG0 EQU @00 03110000 REG1 EQU @01 03111000 REG13 EQU @13 03112000 REG14 EQU @14 03113000 REG15 EQU @15 03114000 REG2 EQU @02 03115000 REG3 EQU @03 03116000 REG4 EQU @04 03117000 REG5 EQU @05 03118000 REG6 EQU @06 03119000 REG7 EQU @07 03120000 REG8 EQU @08 03121000 REG9 EQU @09 03122000 IDCSAEP0 EQU 0 03123000 IDCSASS0 EQU 0 03124000 TRACE1 EQU 0 03125000 OLDERID1 EQU TRACE1 03126000 TRACE2 EQU 0 03127000 OLDERID2 EQU TRACE2 03128000 NEWID2 EQU TRACE2+95 03129000 NEWERID2 EQU 5 03130000 CIRAGL EQU 0 03131000 CIRTYPE EQU CIRAGL 03132000 ALLAGL EQU 0 03133000 ALLSTS EQU ALLAGL+24 03134000 ALLDSP EQU ALLAGL+25 03135000 ALLORG EQU ALLAGL+26 03136000 ALLOPT EQU ALLAGL+28 03137000 UNITABL EQU 0 03138000 UNITADR EQU UNITABL+4 03139000 @NM00010 EQU UNITADR 03140000 UNITSTAT EQU UNITABL+6 03141000 IDCIO050 EQU 0 03142000 IOCSTR EQU 0 03143000 IOCDSO EQU IOCSTR+16 03144000 IOCRFM EQU IOCSTR+17 03145000 IOCMAC EQU IOCSTR+18 03146000 IOCMAC2 EQU IOCSTR+19 03147000 IOCCHP EQU IOCSTR+20 03148000 IOCMSG EQU IOCSTR+21 03149000 IOCRBA EQU IOCSTR+40 03150000 IOCTTR EQU IOCRBA 03151000 IOCMEM EQU IOCSTR+44 03152000 IOCNWM EQU IOCSTR+48 03153000 OPNAGL EQU 0 03154000 OPNOPT EQU OPNAGL 03155000 OPNRFM EQU OPNAGL+1 03156000 OPNTYP EQU OPNAGL+2 03157000 OPNMOD EQU OPNAGL+3 03158000 OPNDEV EQU OPNAGL+24 03159000 OPNDSO EQU OPNAGL+41 03160000 OPNOPT2 EQU OPNAGL+42 03161000 IOINFOPT EQU 0 03162000 UVOLLIST EQU 0 03163000 UVOLENT EQU UVOLLIST+2 03164000 AMSTP011 EQU 0 03165000 DARGLIST EQU 0 03166000 DARGDBP EQU DARGLIST 03167000 DARGRETP EQU DARGLIST+4 03168000 DARGSTID EQU DARGLIST+8 03169000 DARGSMOD EQU DARGSTID 03170000 DARGSENT EQU DARGSTID+3 03171000 DARGILP EQU DARGLIST+12 03172000 DARGRETL EQU DARGLIST+16 03173000 DARGARY EQU DARGLIST+20 03174000 DARGINS EQU DARGARY 03175000 DARGINL EQU DARGARY+2 03176000 FMTLIST EQU 0 03177000 FMTFLGS EQU FMTLIST 03178000 FMTSPF EQU FMTLIST+2 03179000 FMTRFNO EQU FMTSPF 03180000 FMTILEN EQU FMTRFNO 03181000 FMTIOFF EQU FMTLIST+4 03182000 FMTTRBC EQU FMTIOFF 03183000 FMTSTO EQU FMTTRBC 03184000 FMTOCOL EQU FMTLIST+6 03185000 FMTCNVF EQU FMTLIST+10 03186000 ERCNVTAB EQU 0 03187000 ERTYPE EQU ERCNVTAB 03188000 EROPER EQU ERCNVTAB+1 03189000 EROSOPER EQU ERCNVTAB+2 03190000 IDCDB010 EQU 0 03191000 DMPITM EQU 0 03192000 DMPITMNM EQU DMPITM 03193000 DMPITMPT EQU DMPITM+8 03194000 DMPITMLN EQU DMPITM+12 03195000 DMPITMTP EQU DMPITM+14 03196000 DMPARY EQU 0 03197000 DMPTRM EQU 0 03198000 CCMSG EQU 0 03199000 CMMSG EQU 0 03200000 CMVOLFLG EQU CMMSG+6 03201000 CTMSG EQU 0 03202000 CTARRAY EQU CTMSG+4 03203000 MDAGL EQU 0 03204000 MDFLAGS EQU MDAGL+30 03205000 MDVTOC EQU MDAGL+32 03206000 PUAGL EQU 0 03207000 CKAGL EQU 0 03208000 CKFLAGS EQU CKAGL+28 03209000 EXCLAGL EQU 0 03210000 EXCLFLAG EQU EXCLAGL+22 03211000 EXOARG EQU 0 03212000 EXOPT EQU EXOARG+32 03213000 EXFLG EQU EXOARG+33 03214000 EXGARG EQU 0 03215000 EXGCCHH1 EQU EXGARG+12 03216000 EXGCCHH2 EQU EXGARG+16 03217000 EXGRECNO EQU EXGARG+20 03218000 EXGDATAP EQU EXGARG+24 03219000 EXGKEYLN EQU EXGARG+28 03220000 EXGDATAL EQU EXGARG+30 03221000 EXWRARG EQU 0 03222000 EXRWCHR EQU EXWRARG+26 03223000 EXSPACE EQU EXWRARG+36 03224000 EXPARG EQU 0 03225000 EXPDATA EQU EXPARG+12 03226000 EXPDATAB EQU 0 03227000 EXPARRAY EQU EXPDATAB+4 03228000 VS2AGL EQU 0 03229000 VSLABOPT EQU VS2AGL+28 03230000 VS2MSG EQU VS2AGL+35 03231000 VS2RESOP EQU VS2AGL+36 03232000 VS1AGL EQU 0 03233000 VSSECOPT EQU VS1AGL+68 03234000 VSVTOPT EQU VS1AGL+69 03235000 VSCATOPT EQU VS1AGL+70 03236000 VSRETURN EQU VS1AGL+71 03237000 VSMSG EQU VS1AGL+72 03238000 VSRESOPT EQU VS1AGL+73 03239000 RCTAGL EQU 0 03240000 RCTOPT EQU RCTAGL+8 03241000 STAEPARM EQU 0 03242000 STARCVY EQU STAEPARM+52 03243000 STARETRY EQU STAEPARM+53 03244000 VOLLABEL EQU 0 03245000 SV82LIST EQU 0 03246000 @NM00072 EQU SV82LIST+4 03247000 SV82DCBP EQU @NM00072 03248000 @NM00073 EQU SV82LIST+12 03249000 SV82WRKP EQU @NM00073 03250000 SRTAGL EQU 0 03251000 LCTINFO EQU 0 03252000 LCTFLAGS EQU LCTINFO+32 03253000 UCTAGL EQU 0 03254000 UCTFLAGS EQU UCTAGL+68 03255000 SELAGL EQU 0 03256000 SELFLAGS EQU SELAGL+22 03257000 DATESAGL EQU 0 03258000 DATESOPT EQU DATESAGL+20 03259000 VS3AGL EQU 0 03260000 VS3FLAGS EQU VS3AGL+58 03261000 VSDVTOC EQU 0 03262000 VSDSTAT EQU 0 03263000 VSDSFLG1 EQU VSDSTAT+16 03264000 VSDFLG2 EQU VSDSTAT+17 03265000 VSDSCR EQU 0 03266000 VSDSCRFL EQU VSDSCR+4 03267000 VSDUSAGE EQU 0 03268000 VSDDORG EQU VSDUSAGE+9 03269000 VSDALLOC EQU VSDUSAGE+10 03270000 VSDUSEF EQU VSDUSAGE+11 03271000 VSDDSORG EQU VSDUSAGE+16 03272000 VSDBLOCK EQU 0 03273000 VSDSPACE EQU VSDBLOCK+12 03274000 VSDARRAY EQU VSDBLOCK+16 03275000 VSDVARY EQU VSDARRAY+48 03276000 VADWORD1 EQU 0 03277000 VADRUA EQU VADWORD1+2 03278000 VADWORD2 EQU 0 03279000 VADRPNUM EQU VADWORD2 03280000 VADLUA EQU VADWORD2+1 03281000 VADFLAGS EQU VADWORD2+3 03282000 VVITBYT1 EQU 0 03283000 VVITBYT2 EQU 0 03284000 PST EQU 0 03285000 LTR EQU 0 03286000 LTRRUA EQU LTR 03287000 VTABLER1 EQU 0 03288000 @NM00091 EQU VTABLER1+8 03289000 VTTBLCHR EQU VTABLER1+16 03290000 VTSDGID EQU VTABLER1+80 03291000 VTUCB EQU VTABLER1+144 03292000 VTFLAGS EQU VTUCB 03293000 VTTRCCHR EQU VTABLER1+220 03294000 VTLRUCW EQU VTABLER1+236 03295000 VTRVPAGE EQU VTABLER1+240 03296000 RPM EQU 0 03297000 RPMFLAGS EQU RPM 03298000 PAB EQU 0 03299000 PABSA EQU PAB+16 03300000 @NM00101 EQU PAB+32 03301000 @NM00102 EQU PAB+192 03302000 PABFLAGS EQU @NM00102 03303000 PABRINTF EQU @NM00102+1 03304000 PABORUA EQU @NM00102+2 03305000 DVB EQU 0 03306000 DVBMVT EQU DVB+4 03307000 LPB EQU 0 03308000 LPBMVT EQU LPB+4 03309000 VMX EQU 0 03310000 VMXFLAGS EQU VMX 03311000 VVAT EQU 0 03312000 CBMAP EQU 0 03313000 MERECORD EQU 0 03314000 @NM00108 EQU MERECORD 03315000 MEFLAGS EQU @NM00108 03316000 @NM00110 EQU MERECORD+128 03317000 MVCTLBLK EQU 0 03318000 MVCTLBIT EQU MVCTLBLK 03319000 MVIDXBLK EQU 0 03320000 MVIFLAGS EQU MVIDXBLK 03321000 MVOFOUT EQU MVIFLAGS 03322000 MVOFBLK EQU MVIFLAGS 03323000 MVLSTBLK EQU MVIFLAGS 03324000 MVENTNUM EQU MVIDXBLK+3 03325000 @NM00113 EQU MVIDXBLK+8 03326000 MVIVOLID EQU @NM00113 03327000 MVMVTPTR EQU @NM00113+6 03328000 MVENTRY EQU 0 03329000 MVVFLAGS EQU MVENTRY+6 03330000 MVMFLAGS EQU MVENTRY+12 03331000 MVRESRVE EQU MVENTRY+14 03332000 MVVAMSG EQU MVENTRY+17 03333000 @NM00122 EQU MVENTRY+20 03334000 MVSA EQU @NM00122 03335000 MVCPUIDS EQU @NM00122+1 03336000 MVVUAS EQU @NM00122+5 03337000 @NM00124 EQU MVENTRY+52 03338000 MVLOGDEV EQU @NM00124 03339000 MVVUA EQU 0 03340000 SCCTLFLD EQU 0 03341000 SCCOMLEN EQU SCCTLFLD 03342000 SCCFLAGS EQU SCCOMLEN 03343000 SCTRKPTR EQU SCCTLFLD+4 03344000 SCENTRY EQU 0 03345000 VICTLFLD EQU 0 03346000 VICFLAGS EQU VICTLFLD 03347000 VILSTACT EQU VICFLAGS 03348000 VILSTTRK EQU VICFLAGS 03349000 VIOFBLK EQU VICFLAGS 03350000 VIENTLEN EQU VICTLFLD+1 03351000 VIENTNUM EQU VICTLFLD+3 03352000 VITRKPTR EQU VICTLFLD+4 03353000 VICYL EQU VITRKPTR+1 03354000 VIHEAD EQU VITRKPTR+2 03355000 VIREC EQU VITRKPTR+3 03356000 VIENTRY EQU 0 03357000 VIVOLID EQU VIENTRY 03358000 VIVFLAGS EQU VIENTRY+6 03359000 TVCTLFLD EQU 0 03360000 TVCOMLEN EQU TVCTLFLD 03361000 TVCFLAGS EQU TVCOMLEN 03362000 TVENDTRK EQU TVCFLAGS 03363000 TVLSTTRK EQU TVCFLAGS 03364000 TVENTLEN EQU TVCTLFLD+1 03365000 TVENTNUM EQU TVCTLFLD+3 03366000 TVTRKPTR EQU TVCTLFLD+4 03367000 TVCYL EQU TVTRKPTR+1 03368000 TVHEAD EQU TVTRKPTR+2 03369000 TVREC EQU TVTRKPTR+3 03370000 TVENTRY EQU 0 03371000 TVCSN EQU TVENTRY+4 03372000 TVVFLAGS EQU TVENTRY+22 03373000 CIENTRY EQU 0 03374000 CICSCNCT EQU CIENTRY 03375000 CISACHNL EQU CIENTRY+2 03376000 @NM00139 EQU 0 03377000 CICUCHL EQU @NM00139+1 03378000 MICTABLE EQU 0 03379000 @NM00141 EQU MICTABLE 03380000 MICFLAG1 EQU @NM00141+6 03381000 MICFLAG2 EQU @NM00141+7 03382000 CDBLOCK EQU 0 03383000 @NM00145 EQU CDBLOCK 03384000 CDBSDG EQU @NM00145 03385000 CDBCNFIG EQU CDBSDG 03386000 CDBPATHS EQU @NM00145+1 03387000 CMCTLBLK EQU 0 03388000 CMENTRY EQU 0 03389000 IVAD EQU 0 03390000 IVADFLG EQU IVAD+1 03391000 IVVIT EQU 0 03392000 IVVI1 EQU IVVIT 03393000 IVVI2 EQU IVVIT+1 03394000 IPST EQU 0 03395000 ILTR EQU 0 03396000 ILTRRUA EQU ILTR 03397000 CCHHRTBL EQU 0 03398000 CCOFFSET EQU CCHHRTBL 03399000 TBLCCHHR EQU CCHHRTBL+2 03400000 MVTDBCHR EQU CCHHRTBL+62 03401000 ENTRYARG EQU 0 03402000 RDOPTION EQU ENTRYARG 03403000 GETNEXT EQU RDOPTION 03404000 BUFFER2 EQU RDOPTION 03405000 TABLEID EQU ENTRYARG+1 03406000 TBLFLAGS EQU ENTRYARG+2 03407000 MEFLAG EQU TBLFLAGS 03408000 CBMFLAG EQU TBLFLAGS 03409000 TCHRFLAG EQU TBLFLAGS 03410000 TBLPARTS EQU ENTRYARG+3 03411000 RPMFLAG EQU TBLPARTS 03412000 PABFLAG EQU TBLPARTS 03413000 DVBFLAG EQU TBLPARTS 03414000 MICTFLAG EQU TBLPARTS 03415000 CDBFLAG EQU TBLPARTS 03416000 ENTRYID EQU ENTRYARG+4 03417000 TBLADDR EQU ENTRYID 03418000 PREVCHR EQU ENTRYID+4 03419000 RECCYL EQU PREVCHR 03420000 RECHEAD EQU PREVCHR+2 03421000 RECREC EQU PREVCHR+4 03422000 ENTNUM EQU ENTRYID+9 03423000 RECNUM EQU ENTRYID+10 03424000 SANUM EQU ENTRYARG+16 03425000 SDGNUM EQU ENTRYARG+18 03426000 INTFID EQU ENTRYARG+20 03427000 VVADDR EQU ENTRYARG+22 03428000 DEVICEID EQU ENTRYARG+24 03429000 CELLBLK EQU ENTRYARG+26 03430000 MSFID EQU ENTRYARG+28 03431000 VOLID EQU ENTRYARG+30 03432000 SEQ1CSN EQU ENTRYARG+36 03433000 BYTE# EQU ENTRYARG+48 03434000 BIT# EQU ENTRYARG+50 03435000 GETRC EQU ENTRYARG+52 03436000 MSGARG EQU 0 03437000 MSGTYPE EQU MSGARG 03438000 TBLTYPE EQU MSGARG+4 03439000 FLDTYPE1 EQU MSGARG+12 03440000 FLDTYPE2 EQU MSGARG+16 03441000 TBLINDEX EQU MSGARG+20 03442000 KEYINDEX EQU TBLINDEX 03443000 CSNINDEX EQU KEYINDEX 03444000 FLDVALUE EQU MSGARG+68 03445000 FLDCHAR EQU FLDVALUE 03446000 VVICOT EQU 0 03447000 VADCOT EQU 0 03448000 PSTCOT EQU 0 03449000 RWCSLIST EQU 0 03450000 QUCODE EQU RWCSLIST+6 03451000 QUSECT EQU RWCSLIST+7 03452000 QUXADDR EQU QUSECT 03453000 QUFLAG EQU QUXADDR 03454000 QUPARM EQU RWCSLIST+8 03455000 QUPTR EQU RWCSLIST+40 03456000 MOVEAREA EQU 0 03457000 RECORD EQU 0 03458000 PREFIX EQU RECORD 03459000 TBLBLOCK EQU RECORD+8 03460000 CBRECORD EQU 0 03461000 CBPREFIX EQU CBRECORD 03462000 CBLOCK EQU CBRECORD+8 03463000 CBFLAGS EQU CBLOCK 03464000 LSTBLK EQU CBFLAGS 03465000 ENDTRK EQU CBFLAGS 03466000 ENTLEN EQU CBLOCK+1 03467000 ENTMAX EQU CBLOCK+2 03468000 ENTCOUNT EQU CBLOCK+3 03469000 CBCYL EQU CBLOCK+5 03470000 CBHEAD EQU CBLOCK+6 03471000 CBREC EQU CBLOCK+7 03472000 AMSTP041 EQU 0 03473000 AMSTP042 EQU 0 03474000 AMSTP043 EQU 0 03475000 AMSTP044 EQU 0 03476000 CDBCHKFF EQU 0 03477000 CDBCOT EQU 0 03478000 DVBCHKFF EQU 0 03479000 DVBCOT EQU 0 03480000 IDCIOCL0 EQU 0 03481000 IDCIOCO0 EQU 0 03482000 IDCIOGT0 EQU 0 03483000 IDCIOIT0 EQU 0 03484000 IDCIOOP0 EQU 0 03485000 IDCIOPO0 EQU 0 03486000 IDCIOPT0 EQU 0 03487000 IDCIOSI0 EQU 0 03488000 IDCIOST0 EQU 0 03489000 IDCIOTM0 EQU 0 03490000 IDCIOVY0 EQU 0 03491000 IDCSAAL0 EQU 0 03492000 IDCSACA0 EQU 0 03493000 IDCSACL0 EQU 0 03494000 IDCSACR0 EQU 0 03495000 IDCSADE0 EQU 0 03496000 IDCSADL0 EQU 0 03497000 IDCSADQ0 EQU 0 03498000 IDCSAFP0 EQU 0 03499000 IDCSAFS0 EQU 0 03500000 IDCSAGP0 EQU 0 03501000 IDCSAGS0 EQU 0 03502000 IDCSAID0 EQU 0 03503000 IDCSALC0 EQU 0 03504000 IDCSALD0 EQU 0 03505000 IDCSALK0 EQU 0 03506000 IDCSANQ0 EQU 0 03507000 IDCSAPR0 EQU 0 03508000 IDCSAPT0 EQU 0 03509000 IDCSAQL0 EQU 0 03510000 IDCSARC0 EQU 0 03511000 IDCSARV0 EQU 0 03512000 IDCSASC0 EQU 0 03513000 IDCSASI0 EQU 0 03514000 IDCSASN0 EQU 0 03515000 IDCSAST0 EQU 0 03516000 IDCSATI0 EQU 0 03517000 IDCSAUC0 EQU 0 03518000 IDCSAWO0 EQU 0 03519000 IDCSA060 EQU 0 03520000 IDCST010 EQU 0 03521000 IDCTPER0 EQU 0 03522000 LISTTEST EQU 0 03523000 LPBCHKFF EQU 0 03524000 LPBCOT EQU 0 03525000 MVCPUID EQU 0 03526000 MVTCHKFF EQU 0 03527000 NEWERID1 EQU 5 03528000 RPMCHKFF EQU 0 03529000 RPMCOT EQU 0 03530000 TVLCHKFF EQU 0 03531000 VICHKFF EQU 0 03532000 VMXCHKFF EQU 0 03533000 VMXCOT EQU 0 03534000 VVACHKFF EQU 0 03535000 VVACOT EQU 0 03536000 GDTTBL EQU 0 03537000 GDTTR1 EQU GDTTBL+8 03538000 GDTTR2 EQU GDTTBL+12 03539000 GDTDBG EQU GDTTBL+40 03540000 GDTSTC EQU GDTTBL+44 03541000 GDTPRT EQU GDTTBL+48 03542000 GDTESS EQU GDTTBL+52 03543000 GDTESA EQU GDTTBL+56 03544000 GDTRST EQU GDTTBL+60 03545000 GDTRES EQU GDTTBL+64 03546000 GDTCAL EQU GDTTBL+68 03547000 GDTGSP EQU GDTTBL+72 03548000 GDTFSP EQU GDTTBL+76 03549000 GDTGPL EQU GDTTBL+80 03550000 GDTFPL EQU GDTTBL+84 03551000 GDTLOD EQU GDTTBL+88 03552000 GDTDEL EQU GDTTBL+92 03553000 GDTPRL EQU GDTTBL+96 03554000 GDTEPL EQU GDTTBL+100 03555000 GDTTIM EQU GDTTBL+104 03556000 GDTIIO EQU GDTTBL+108 03557000 GDTTIO EQU GDTTBL+112 03558000 GDTOPN EQU GDTTBL+124 03559000 GDTCLS EQU GDTTBL+128 03560000 GDTGET EQU GDTTBL+132 03561000 GDTPUT EQU GDTTBL+136 03562000 GDTPOS EQU GDTTBL+140 03563000 GDTCPY EQU GDTTBL+144 03564000 GDTCAT EQU GDTTBL+148 03565000 GDTSNP EQU GDTTBL+164 03566000 GDTVFY EQU GDTTBL+172 03567000 GDTUID EQU GDTTBL+192 03568000 GDTPMT EQU GDTTBL+196 03569000 GDTCIR EQU GDTTBL+200 03570000 GDTLNK EQU GDTTBL+204 03571000 GDTALC EQU GDTTBL+208 03572000 GDTDLC EQU GDTTBL+212 03573000 GDTQAL EQU GDTTBL+216 03574000 GDTSTW EQU GDTTBL+220 03575000 GDTSSC EQU GDTTBL+224 03576000 GDTENQ EQU GDTTBL+228 03577000 GDTRSV EQU GDTTBL+232 03578000 GDTDEQ EQU GDTTBL+236 03579000 GDTSFO EQU GDTTBL+240 03580000 GDTWTO EQU GDTTBL+244 03581000 GDTSCR EQU GDTTBL+248 03582000 GDTUNT EQU GDTTBL+252 03583000 GDTRCT EQU GDTTBL+256 03584000 GDTIFO EQU GDTTBL+260 03585000 GDTEXP EQU GDTTBL+264 03586000 GDTSTA EQU GDTTBL+268 03587000 GDTERR EQU GDTTBL+272 03588000 GDTUNC EQU GDTTBL+276 03589000 GDTLOC EQU GDTTBL+280 03590000 CDALIST EQU 0 03591000 IVADPTR EQU CDALIST 03592000 IVVITPTR EQU CDALIST+64 03593000 IPSTPTR EQU CDALIST+128 03594000 ILTRPTR EQU CDALIST+192 03595000 CCHHRPTR EQU CDALIST+260 03596000 EARGPTR EQU CDALIST+264 03597000 MARGPTR EQU CDALIST+268 03598000 VICOPTR EQU CDALIST+272 03599000 TVLCOPTR EQU CDALIST+276 03600000 MVTCOPTR EQU CDALIST+280 03601000 CDBCOPTR EQU CDALIST+348 03602000 VVACOPTR EQU CDALIST+352 03603000 VMXCOPTR EQU CDALIST+356 03604000 RPMCOPTR EQU CDALIST+360 03605000 DVBCOPTR EQU CDALIST+364 03606000 LPBCOPTR EQU CDALIST+368 03607000 VVICOPTR EQU CDALIST+372 03608000 VADCOPTR EQU CDALIST+436 03609000 PSTCOPTR EQU CDALIST+500 03610000 MVCBADDR EQU CDALIST+576 03611000 RWCSPTR EQU CDALIST+660 03612000 EXARGPTR EQU CDALIST+664 03613000 WCSBFPTR EQU CDALIST+668 03614000 CHRADDR1 EQU CDALIST+672 03615000 CHRADDR2 EQU CDALIST+676 03616000 @NM00162 EQU CDALIST+780 03617000 SSRCODE EQU 0 03618000 SSRHALF EQU SSRCODE+2 03619000 SSECBCD EQU 0 03620000 QWPARM EQU QUPARM 03621000 QWRES1 EQU QWPARM 03622000 QWFLAG EQU QWPARM+2 03623000 QTPARM EQU QUPARM 03624000 QTID EQU QTPARM 03625000 QLPARM EQU QUPARM 03626000 QCPARM EQU QUPARM 03627000 * START UNREFERENCED COMPONENTS 03628000 QCMAD3Z1 EQU QCPARM+28 03629000 QCMAD3Z0 EQU QCPARM+24 03630000 QCMAD2Z1 EQU QCPARM+20 03631000 QCMAD2Z0 EQU QCPARM+16 03632000 QCMAD1Z1 EQU QCPARM+12 03633000 QCMAD1Z0 EQU QCPARM+8 03634000 QCMAD0Z1 EQU QCPARM+4 03635000 QCMAD0Z0 EQU QCPARM 03636000 QLRES EQU QLPARM+2 03637000 QLZYX EQU QLPARM 03638000 QTRES EQU QTPARM+24 03639000 QTDASCHR EQU QTPARM+20 03640000 QTDATA EQU QTPARM+2 03641000 QTFLAG EQU QTPARM+1 03642000 QTTABID EQU QTID 03643000 QWRES2 EQU QWPARM+3 03644000 @NM00164 EQU QWFLAG 03645000 QWMEM EQU QWFLAG 03646000 QWSSID EQU QWRES1 03647000 @NM00169 EQU SSRCODE 03648000 @NM00163 EQU @NM00162 03649000 MSVICHK EQU @NM00162 03650000 SACHK EQU @NM00162 03651000 MSCCHK EQU @NM00162 03652000 VLDMSFID EQU CDALIST+772 03653000 MSFVLCNT EQU CDALIST+770 03654000 VLDSSID EQU CDALIST+738 03655000 VLDSAID EQU CDALIST+706 03656000 SAVLDCNT EQU CDALIST+704 03657000 BDATAPTR EQU CDALIST+700 03658000 FMTAPTR EQU CDALIST+696 03659000 TEXTAPTR EQU CDALIST+692 03660000 MSGAPTR EQU CDALIST+688 03661000 MSVIAPTR EQU CDALIST+684 03662000 RVVIPTR EQU CDALIST+680 03663000 CMBUFPTR EQU CDALIST+580 03664000 CIADDR EQU CDALIST+572 03665000 CBMADDR EQU CDALIST+568 03666000 VVATADDR EQU CDALIST+564 03667000 CMCOPTR EQU CDALIST+284 03668000 IMERPTR EQU CDALIST+256 03669000 GDTECT EQU GDTTBL+188 03670000 GDTPSB EQU GDTTBL+184 03671000 GDTUPT EQU GDTTBL+180 03672000 GDTCMB EQU GDTTBL+176 03673000 GDTSPR EQU GDTTBL+168 03674000 @NM00001 EQU GDTTBL+160 03675000 GDTABH EQU GDTTBL+156 03676000 GDTABT EQU GDTTBL+152 03677000 GDTTOH EQU GDTTBL+120 03678000 GDTRIP EQU GDTTBL+116 03679000 GDTIOH EQU GDTTBL+36 03680000 GDTSAH EQU GDTTBL+32 03681000 GDTTPH EQU GDTTBL+28 03682000 GDTRIH EQU GDTTBL+24 03683000 GDTSTH EQU GDTTBL+20 03684000 GDTDBH EQU GDTTBL+16 03685000 GDTPRM EQU GDTTBL+4 03686000 GDTHDR EQU GDTTBL 03687000 @NM00168 EQU CBLOCK+4 03688000 @NM00167 EQU CBFLAGS 03689000 LSTTRK EQU CBFLAGS 03690000 LSTACT EQU CBFLAGS 03691000 QURES1 EQU QUFLAG 03692000 QULIB EQU QUCODE 03693000 QURES EQU RWCSLIST+5 03694000 QUORD EQU RWCSLIST+4 03695000 QULEN EQU RWCSLIST 03696000 PSTCHKFF EQU PSTCOT 03697000 VADCHKFF EQU VADCOT 03698000 VVICHKFF EQU VVICOT 03699000 FLDNUM EQU FLDCHAR 03700000 CHRINDEX EQU TBLINDEX+19 03701000 VSNINDEX EQU TBLINDEX+13 03702000 MSFINDEX EQU KEYINDEX+12 03703000 @NM00161 EQU CSNINDEX+11 03704000 @NM00160 EQU CSNINDEX+10 03705000 SDGINDEX EQU CSNINDEX+9 03706000 RPINDEX EQU CSNINDEX+8 03707000 LUAINDEX EQU CSNINDEX+7 03708000 VVAINDEX EQU CSNINDEX+6 03709000 VUAINDEX EQU CSNINDEX+5 03710000 INFINDEX EQU CSNINDEX+4 03711000 SAINDEX EQU CSNINDEX+3 03712000 CPUINDEX EQU CSNINDEX+2 03713000 XYZINDEX EQU CSNINDEX 03714000 @NM00159 EQU FLDTYPE2+1 03715000 BPFLD EQU FLDTYPE2+1 03716000 IPFLD EQU FLDTYPE2 03717000 APFLD EQU FLDTYPE2 03718000 FPFLD EQU FLDTYPE2 03719000 IPASFLD EQU FLDTYPE2 03720000 APASFLD EQU FLDTYPE2 03721000 RPFLD EQU FLDTYPE2 03722000 VSHSFLD EQU FLDTYPE2 03723000 APSFLD EQU FLDTYPE2 03724000 IUSFLD EQU FLDTYPE1+3 03725000 DOSFLD EQU FLDTYPE1+3 03726000 DVSFLD EQU FLDTYPE1+3 03727000 BPASFLD EQU FLDTYPE1+3 03728000 VUAFLD EQU FLDTYPE1+3 03729000 MVFLD EQU FLDTYPE1+3 03730000 LRUDFLD EQU FLDTYPE1+3 03731000 CSNFLD EQU FLDTYPE1+3 03732000 L3AFLD EQU FLDTYPE1+2 03733000 SDGFLD EQU FLDTYPE1+2 03734000 CPUFLD EQU FLDTYPE1+2 03735000 COSFLD EQU FLDTYPE1+2 03736000 CAFLD EQU FLDTYPE1+2 03737000 MVTPFLD EQU FLDTYPE1+2 03738000 BPCFLD EQU FLDTYPE1+2 03739000 IPCFLD EQU FLDTYPE1+2 03740000 APCFLD EQU FLDTYPE1+1 03741000 FPCFLD EQU FLDTYPE1+1 03742000 FPASFLD EQU FLDTYPE1+1 03743000 SAFLD EQU FLDTYPE1+1 03744000 RUAFLD EQU FLDTYPE1+1 03745000 VPFLD EQU FLDTYPE1+1 03746000 VVAFLD EQU FLDTYPE1+1 03747000 MIFLD EQU FLDTYPE1+1 03748000 VSNFLD EQU FLDTYPE1 03749000 MSFFLD EQU FLDTYPE1 03750000 WISFLD EQU FLDTYPE1 03751000 VRSFLD EQU FLDTYPE1 03752000 VBSFLD EQU FLDTYPE1 03753000 VESFLD EQU FLDTYPE1 03754000 VSSFLD EQU FLDTYPE1 03755000 VMSFLD EQU FLDTYPE1 03756000 TBLNRSET EQU TBLTYPE+3 03757000 @NM00158 EQU TBLTYPE+2 03758000 VTSTBL EQU TBLTYPE+2 03759000 CBMTBL EQU TBLTYPE+2 03760000 METBL EQU TBLTYPE+2 03761000 CDBTBL EQU TBLTYPE+2 03762000 CITBL EQU TBLTYPE+2 03763000 VVATTBL EQU TBLTYPE+2 03764000 VMXTBL EQU TBLTYPE+1 03765000 RPMTBL EQU TBLTYPE+1 03766000 LPBTBL EQU TBLTYPE+1 03767000 DVBTBL EQU TBLTYPE+1 03768000 PABTBL EQU TBLTYPE+1 03769000 VVITTBL EQU TBLTYPE+1 03770000 LTRTBL EQU TBLTYPE+1 03771000 PSTTBL EQU TBLTYPE+1 03772000 VADTBL EQU TBLTYPE 03773000 MICTTBL EQU TBLTYPE 03774000 CMTBL EQU TBLTYPE 03775000 MSVITBL EQU TBLTYPE 03776000 SCLTBL EQU TBLTYPE 03777000 TVLTBL EQU TBLTYPE 03778000 VITBL EQU TBLTYPE 03779000 MVTTBL EQU TBLTYPE 03780000 MSGNRSET EQU MSGTYPE+3 03781000 @NM00157 EQU MSGTYPE 03782000 MTCHMSG EQU MSGTYPE 03783000 SUMSMSG EQU MSGTYPE 03784000 DUPLMSG EQU MSGTYPE 03785000 INCNMSG EQU MSGTYPE 03786000 @NM00156 EQU TBLPARTS 03787000 CIFLAG EQU TBLPARTS 03788000 LPBFLAG EQU TBLPARTS 03789000 @NM00155 EQU TBLFLAGS 03790000 @NM00154 EQU RDOPTION 03791000 MVTDBR EQU MVTDBCHR+4 03792000 MVTDBHH EQU MVTDBCHR+2 03793000 MVTDBCC EQU MVTDBCHR 03794000 @NM00153 EQU TBLCCHHR+5 03795000 TBLR EQU TBLCCHHR+4 03796000 TBLHH EQU TBLCCHHR+2 03797000 TBLCC EQU TBLCCHHR 03798000 ILTRM11 EQU ILTRRUA 03799000 IPSTVP EQU IPST+1 03800000 IPSTVVA EQU IPST 03801000 @NM00152 EQU IVVI2 03802000 IVVIRSVD EQU IVVI2 03803000 IVVIINTF EQU IVVI2 03804000 @NM00151 EQU IVVI2 03805000 IVVISHR EQU IVVI1 03806000 IVVIWI EQU IVVI1 03807000 IVVI1STR EQU IVVI1 03808000 @NM00150 EQU IVVI1 03809000 @NM00149 EQU IVADFLG 03810000 IVADWI EQU IVADFLG 03811000 @NM00148 EQU IVADFLG 03812000 IVADVVA EQU IVAD 03813000 CMX3Z1 EQU CMENTRY 03814000 CMX3Z0 EQU CMENTRY 03815000 CMX2Z1 EQU CMENTRY 03816000 CMX2Z0 EQU CMENTRY 03817000 CMX1Z1 EQU CMENTRY 03818000 CMX1Z0 EQU CMENTRY 03819000 CMX0Z1 EQU CMENTRY 03820000 CMX0Z0 EQU CMENTRY 03821000 CMCPTRS EQU CMCTLBLK+22 03822000 CMCFLAGS EQU CMCTLBLK 03823000 CDBMVTP EQU @NM00145+2 03824000 CDBSA2D EQU CDBPATHS 03825000 CDBSA2C EQU CDBPATHS 03826000 CDBSA2B EQU CDBPATHS 03827000 @NM00147 EQU CDBPATHS 03828000 CDBSA1D EQU CDBPATHS 03829000 CDBSA1C EQU CDBPATHS 03830000 CDBSA1B EQU CDBPATHS 03831000 @NM00146 EQU CDBPATHS 03832000 CDB3333 EQU CDBCNFIG 03833000 CDBINUSE EQU CDBCNFIG 03834000 CDBNOSHR EQU CDBCNFIG 03835000 MICAINTF EQU MICFLAG2 03836000 @NM00144 EQU MICFLAG2 03837000 MICCMB EQU MICFLAG2 03838000 MICCURMP EQU MICFLAG2 03839000 MICVALID EQU MICFLAG2 03840000 MICINTF EQU MICFLAG1 03841000 @NM00143 EQU MICFLAG1 03842000 MICAPATH EQU MICFLAG1 03843000 MICPOTMP EQU MICFLAG1 03844000 @NM00142 EQU MICFLAG1 03845000 MICMPCPU EQU @NM00141+5 03846000 MICMFID EQU @NM00141 03847000 CICHL EQU CICUCHL 03848000 @NM00140 EQU CICUCHL 03849000 CICU EQU CICUCHL 03850000 CICPUID EQU @NM00139 03851000 @NM00138 EQU CIENTRY+1 03852000 CIMSF3 EQU CICSCNCT 03853000 CIMSF2 EQU CICSCNCT 03854000 CIMSF1 EQU CICSCNCT 03855000 CIMSF0 EQU CICSCNCT 03856000 @NM00137 EQU CICSCNCT 03857000 CIMSF EQU CICSCNCT 03858000 @NM00136 EQU TVENTRY+23 03859000 @NM00135 EQU TVVFLAGS 03860000 TVWRTINH EQU TVVFLAGS 03861000 TVBNDVOL EQU TVVFLAGS 03862000 TVSCRCTG EQU TVVFLAGS 03863000 TVEXCVOL EQU TVVFLAGS 03864000 TVSECVOL EQU TVVFLAGS 03865000 @NM00134 EQU TVVFLAGS 03866000 TVCECTG EQU TVVFLAGS 03867000 TVVOLID EQU TVENTRY+16 03868000 TVLZYX2 EQU TVENTRY+2 03869000 TVLZYX1 EQU TVENTRY 03870000 @NM00133 EQU TVTRKPTR 03871000 TVENTMAX EQU TVCTLFLD+2 03872000 TVLSTACT EQU TVCFLAGS 03873000 TVLSTBLK EQU TVCFLAGS 03874000 VILZYX2 EQU VIENTRY+10 03875000 VILZYX1 EQU VIENTRY+8 03876000 @NM00132 EQU VIENTRY+7 03877000 @NM00131 EQU VIVFLAGS 03878000 VIWRTINH EQU VIVFLAGS 03879000 VIBNDVOL EQU VIVFLAGS 03880000 VISCRCTG EQU VIVFLAGS 03881000 VIEXCVOL EQU VIVFLAGS 03882000 VISECVOL EQU VIVFLAGS 03883000 @NM00130 EQU VIVFLAGS 03884000 VICECTG EQU VIVFLAGS 03885000 @NM00129 EQU VITRKPTR 03886000 VIENTMAX EQU VICTLFLD+2 03887000 VIAREA EQU VICFLAGS 03888000 VIUSEBLK EQU VICFLAGS 03889000 VIENDTRK EQU VICFLAGS 03890000 VILSTBLK EQU VICFLAGS 03891000 @NM00128 EQU SCENTRY+18 03892000 SCLZYX EQU SCENTRY+16 03893000 SCCSN EQU SCENTRY+4 03894000 @NM00127 EQU SCENTRY 03895000 SCREC EQU SCTRKPTR+3 03896000 SCHEAD EQU SCTRKPTR+2 03897000 SCCYL EQU SCTRKPTR+1 03898000 @NM00126 EQU SCTRKPTR 03899000 SCENTNUM EQU SCCTLFLD+3 03900000 SCENTMAX EQU SCCTLFLD+2 03901000 SCENTLEN EQU SCCTLFLD+1 03902000 SCLSTTRK EQU SCCFLAGS 03903000 SCENDTRK EQU SCCFLAGS 03904000 SCLSTACT EQU SCCFLAGS 03905000 SCLSTBLK EQU SCCFLAGS 03906000 MVVUAI# EQU MVVUA 03907000 MVCYLMAP EQU @NM00124+3 03908000 MVRPNUM EQU @NM00124+2 03909000 MVBNDCNT EQU @NM00124+1 03910000 @NM00125 EQU MVLOGDEV 03911000 MVDSTGC2 EQU MVLOGDEV 03912000 MVDSTGC1 EQU MVLOGDEV 03913000 MVPINACT EQU MVLOGDEV 03914000 @NM00123 EQU MVENTRY+44 03915000 MVPFI EQU MVENTRY+36 03916000 MVVVA EQU @NM00122+4 03917000 MVACTD EQU MVSA 03918000 MVACTC EQU MVSA 03919000 MVACTB EQU MVSA 03920000 MVVLDSA EQU MVSA 03921000 @NM00121 EQU MVENTRY+18 03922000 @NM00120 EQU MVVAMSG 03923000 MVINTFD EQU MVVAMSG 03924000 MVINTFC EQU MVVAMSG 03925000 MVINTFB EQU MVVAMSG 03926000 MVINTFA EQU MVVAMSG 03927000 MV3333 EQU MVENTRY+16 03928000 MVSDG EQU MVENTRY+15 03929000 @NM00119 EQU MVRESRVE 03930000 MVSA2RSV EQU MVRESRVE 03931000 @NM00118 EQU MVRESRVE 03932000 MVPINCNT EQU MVENTRY+13 03933000 @NM00117 EQU MVMFLAGS 03934000 MVREMNT EQU MVMFLAGS 03935000 MVMNTBND EQU MVMFLAGS 03936000 MVMNTEXC EQU MVMFLAGS 03937000 MVMNTVOL EQU MVMFLAGS 03938000 MVLZYX2 EQU MVENTRY+10 03939000 MVLZYX1 EQU MVENTRY+8 03940000 @NM00116 EQU MVENTRY+7 03941000 @NM00115 EQU MVVFLAGS 03942000 MVWRTINH EQU MVVFLAGS 03943000 MVBNDVOL EQU MVVFLAGS 03944000 MVSCRCTG EQU MVVFLAGS 03945000 MVEXCVOL EQU MVVFLAGS 03946000 MVSECVOL EQU MVVFLAGS 03947000 @NM00114 EQU MVVFLAGS 03948000 MVCECTG EQU MVVFLAGS 03949000 MVVOLID EQU MVENTRY 03950000 @NM00112 EQU MVIDXBLK+4 03951000 MVENTMAX EQU MVIDXBLK+2 03952000 MVENTLEN EQU MVIDXBLK+1 03953000 @NM00111 EQU MVIFLAGS 03954000 MEUCBCNT EQU @NM00110+2 03955000 MEDRVCNT EQU @NM00110+1 03956000 MELRUCNT EQU @NM00110 03957000 @NM00109 EQU MERECORD+120 03958000 MEMNTCNT EQU @NM00108+2 03959000 MEVOCNT EQU @NM00108+1 03960000 MEMVD2 EQU MEFLAGS 03961000 MEMVI2 EQU MEFLAGS 03962000 MEMVD1 EQU MEFLAGS 03963000 MEMVI1 EQU MEFLAGS 03964000 MEVOD2 EQU MEFLAGS 03965000 MEVOI2 EQU MEFLAGS 03966000 MEVOD1 EQU MEFLAGS 03967000 MEVOI1 EQU MEFLAGS 03968000 CBMMSF EQU CBMAP+39 03969000 CBMFLAGS EQU CBMAP+38 03970000 CBMDRIVE EQU CBMAP+8 03971000 CBMDRC EQU CBMAP+6 03972000 CBMSA EQU CBMAP+4 03973000 CBMDRD EQU CBMAP 03974000 VVATVVA EQU VVAT 03975000 VMXMVT EQU VMX+2 03976000 @NM00107 EQU VMX+1 03977000 @NM00106 EQU VMXFLAGS 03978000 VMXVALID EQU VMXFLAGS 03979000 LPBPFI EQU LPBMVT 03980000 LPBMSFID EQU LPBMVT 03981000 @NM00105 EQU LPB+2 03982000 LPBCURR EQU LPB+1 03983000 LPBNEXT EQU LPB 03984000 DVBPFI EQU DVBMVT 03985000 DVBMSFID EQU DVBMVT 03986000 @NM00104 EQU DVB+2 03987000 DVBCURR EQU DVB+1 03988000 DVBNEXT EQU DVB 03989000 PABRUA EQU @NM00102+3 03990000 PABORUAV EQU PABORUA 03991000 PABSA2D EQU PABRINTF 03992000 PABSA2C EQU PABRINTF 03993000 PABSA2B EQU PABRINTF 03994000 @NM00103 EQU PABRINTF 03995000 PABSA1D EQU PABRINTF 03996000 PABSA1C EQU PABRINTF 03997000 PABSA1B EQU PABRINTF 03998000 PABRAI EQU PABRINTF 03999000 PAB2M11 EQU PABFLAGS 04000000 PABVARN EQU PABFLAGS 04001000 PABVBND EQU PABFLAGS 04002000 PABMSCT EQU PABFLAGS 04003000 PABMOD11 EQU PABFLAGS 04004000 PABVARR EQU PABFLAGS 04005000 PABVARV EQU PABFLAGS 04006000 PABDEX EQU PABFLAGS 04007000 PABAMAP EQU PAB+128 04008000 PABFMAP EQU PAB+64 04009000 PABBCNT EQU @NM00101+3 04010000 PABICNT EQU @NM00101+2 04011000 PABACNT EQU @NM00101+1 04012000 PABFCNT EQU @NM00101 04013000 @NM00100 EQU PAB+24 04014000 PABSRZ EQU PAB+23 04015000 PABSRY EQU PAB+22 04016000 PABSRX EQU PAB+21 04017000 PABSRW EQU PAB+20 04018000 @NM00099 EQU PAB+18 04019000 PAB3333 EQU PABSA 04020000 @NM00098 EQU PABSA 04021000 PABVLDSA EQU PABSA 04022000 PABLOTH EQU PAB+14 04023000 PABLODEL EQU PAB+13 04024000 @NM00097 EQU PAB+12 04025000 PABUPTH EQU PAB+10 04026000 PABUPDEL EQU PAB+9 04027000 PABPPD EQU PAB+8 04028000 PABBTOT EQU PAB+6 04029000 PABITOT EQU PAB+4 04030000 PABATOT EQU PAB+2 04031000 PABFTOT EQU PAB 04032000 RPMMVT EQU RPM+2 04033000 RPMVPNUM EQU RPM+1 04034000 RPMNA EQU RPMFLAGS 04035000 RPMMSCT EQU RPMFLAGS 04036000 @NM00096 EQU RPMFLAGS 04037000 RPMIOERR EQU RPMFLAGS 04038000 RPMVBND EQU RPMFLAGS 04039000 RPMBND EQU RPMFLAGS 04040000 RPMINACT EQU RPMFLAGS 04041000 RPMACT EQU RPMFLAGS 04042000 VTVOLPFX EQU VTABLER1+252 04043000 @NM00095 EQU VTRVPAGE+4 04044000 VT20TO27 EQU VTRVPAGE+3 04045000 VT18TO1F EQU VTRVPAGE+2 04046000 VT10TO17 EQU VTRVPAGE+1 04047000 VT08TO0F EQU VTRVPAGE 04048000 VTLRUIOS EQU VTLRUCW+2 04049000 VTLRUTIM EQU VTLRUCW+1 04050000 VTLRUCLK EQU VTLRUCW 04051000 VTTRCR EQU VTTRCCHR+3 04052000 VTTRCH EQU VTTRCCHR+2 04053000 VTTRCC EQU VTTRCCHR+1 04054000 VTXY EQU VTTRCCHR 04055000 @NM00094 EQU VTABLER1+160 04056000 VTSADDR EQU VTUCB+6 04057000 VTPADDR EQU VTUCB+4 04058000 VTPOST EQU VTUCB+3 04059000 VTACTIVE EQU VTUCB+2 04060000 VTWORK EQU VTUCB+1 04061000 VTSBUSY EQU VTFLAGS 04062000 VTSREADY EQU VTFLAGS 04063000 VTSONLIN EQU VTFLAGS 04064000 VTSVALID EQU VTFLAGS 04065000 VTPBUSY EQU VTFLAGS 04066000 VTPREADY EQU VTFLAGS 04067000 VTPONLIN EQU VTFLAGS 04068000 VTPVALID EQU VTFLAGS 04069000 VTLRU1 EQU VTSDGID+3 04070000 VTLRU0 EQU VTSDGID+2 04071000 VTL33331 EQU VTSDGID+1 04072000 VTL33330 EQU VTSDGID 04073000 VTTBLR EQU VTTBLCHR+3 04074000 VTTBLH EQU VTTBLCHR+2 04075000 VTTBLC EQU VTTBLCHR+1 04076000 @NM00093 EQU VTTBLCHR 04077000 @NM00092 EQU @NM00091+2 04078000 VTIMPLS EQU @NM00091 04079000 VTPACKID EQU VTABLER1 04080000 LTRMOD11 EQU LTRRUA 04081000 PSTCYLW EQU PST+3 04082000 PSTCYLV EQU PST+2 04083000 PSTVPNUM EQU PST+1 04084000 PSTVVA EQU PST 04085000 VVITPCDD EQU VVITBYT2 04086000 VVITPCDC EQU VVITBYT2 04087000 VVITPCDB EQU VVITBYT2 04088000 VVITRSVD EQU VVITBYT2 04089000 VVITINTF EQU VVITBYT2 04090000 VVITVVB EQU VVITBYT2 04091000 VVITCC EQU VVITBYT2 04092000 VVITVVS EQU VVITBYT1 04093000 VVITVVWI EQU VVITBYT1 04094000 VVITFR EQU VVITBYT1 04095000 VVITNBM EQU VVITBYT1 04096000 VVITDEDD EQU VVITBYT1 04097000 VVITDEDC EQU VVITBYT1 04098000 VVITDEDB EQU VVITBYT1 04099000 VVITDEDA EQU VVITBYT1 04100000 VADRM EQU VADFLAGS 04101000 VADVSI EQU VADFLAGS 04102000 VADRDED EQU VADFLAGS 04103000 VADRB EQU VADFLAGS 04104000 VADRR EQU VADFLAGS 04105000 VADVWI EQU VADFLAGS 04106000 VADVWG EQU VADFLAGS 04107000 VADVRW EQU VADFLAGS 04108000 VADPOH EQU VADWORD2+2 04109000 VADUDE EQU VADLUA 04110000 VADMOD11 EQU VADRPNUM 04111000 VADLINK EQU VADWORD1+3 04112000 VADUCS EQU VADRUA 04113000 VADCCR EQU VADRUA 04114000 VADEDI EQU VADRUA 04115000 VADVVA EQU VADWORD1+1 04116000 VADVFM EQU VADWORD1 04117000 VSDDSN EQU VSDARRAY+4 04118000 VSDVOLCT EQU VSDARRAY 04119000 VSDFMT0 EQU VSDBLOCK+8 04120000 VSDVTOCS EQU VSDBLOCK+4 04121000 VSDELEM EQU VSDBLOCK 04122000 VSDFREE EQU VSDUSAGE+24 04123000 VSDALLC EQU VSDUSAGE+19 04124000 VSDDSOR3 EQU VSDDSORG+2 04125000 @NM00090 EQU VSDDSORG 04126000 VSDSCAL EQU VSDUSAGE+12 04127000 @NM00089 EQU VSDUSEF 04128000 VSDCALFR EQU VSDUSEF 04129000 @NM00088 EQU VSDALLOC 04130000 VSDABSTR EQU VSDALLOC 04131000 VSDABLK EQU VSDALLOC 04132000 VSDATRK EQU VSDALLOC 04133000 VSDACYL EQU VSDALLOC 04134000 @NM00087 EQU VSDDORG 04135000 VSDOU EQU VSDDORG 04136000 VSDOIS EQU VSDDORG 04137000 VSDODA EQU VSDDORG 04138000 VSDOUN EQU VSDDORG 04139000 VSDOPS EQU VSDDORG 04140000 VSDOPO EQU VSDDORG 04141000 VSDEXTS EQU VSDUSAGE+8 04142000 VSDSECAL EQU VSDUSAGE+4 04143000 VSDFTRK EQU VSDUSAGE+2 04144000 VSDTRKS EQU VSDUSAGE 04145000 @NM00086 EQU VSDSCR+5 04146000 @NM00085 EQU VSDSCRFL 04147000 VSDVSAM EQU VSDSCRFL 04148000 VSDCATLC EQU VSDSCRFL 04149000 VSDACBPT EQU VSDSCR 04150000 VSDPRTC EQU VSDSTAT+25 04151000 VSDCAT EQU VSDSTAT+22 04152000 VSDEXP EQU VSDSTAT+20 04153000 VSDCRE EQU VSDSTAT+18 04154000 @NM00084 EQU VSDFLG2 04155000 VSDERROR EQU VSDFLG2 04156000 VSDPROT EQU VSDFLG2 04157000 VSDPWW EQU VSDFLG2 04158000 VSDPWR EQU VSDFLG2 04159000 @NM00083 EQU VSDSFLG1 04160000 VSDCVSAM EQU VSDSFLG1 04161000 VSDCATLG EQU VSDSFLG1 04162000 VSDVSAME EQU VSDSFLG1 04163000 VSDVSAMC EQU VSDSFLG1 04164000 VSDVTOCE EQU VSDSFLG1 04165000 VSDVTOCC EQU VSDSFLG1 04166000 VSDOWNER EQU VSDSTAT+8 04167000 VSDEXPIR EQU VSDSTAT+4 04168000 VSDCREAT EQU VSDSTAT 04169000 VSDFRCCL EQU VSDVTOC+21 04170000 @NM00082 EQU VSDVTOC+20 04171000 VSDFREXT EQU VSDVTOC+16 04172000 @NM00081 EQU VSDVTOC+15 04173000 VSDFRTRK EQU VSDVTOC+11 04174000 @NM00080 EQU VSDVTOC+10 04175000 VSDFRCYL EQU VSDVTOC+6 04176000 @NM00079 EQU VSDVTOC 04177000 @NM00078 EQU VS3FLAGS 04178000 VS3SYSNM EQU VS3FLAGS 04179000 VS3UNCAT EQU VS3FLAGS 04180000 VS3SCR EQU VS3FLAGS 04181000 VS3USAGE EQU VS3FLAGS 04182000 VS3STAT EQU VS3FLAGS 04183000 VS3DD EQU VS3AGL+50 04184000 VS3VOL EQU VS3AGL+44 04185000 VS3POOL EQU VS3AGL+40 04186000 VS3DEV EQU VS3AGL+36 04187000 VS3UCBP EQU VS3AGL+32 04188000 VS3CREAT EQU VS3AGL+28 04189000 VS3EXPIR EQU VS3AGL+24 04190000 VS3AST EQU VS3AGL+22 04191000 VS3LEVLN EQU VS3AGL+20 04192000 VS3LEVP EQU VS3AGL+16 04193000 VS3EXDSP EQU VS3AGL+12 04194000 VS3LISTP EQU VS3AGL+8 04195000 VS3HEAD EQU VS3AGL 04196000 @NM00077 EQU DATESOPT 04197000 DATDAYOP EQU DATESOPT 04198000 DATDTEOP EQU DATESOPT 04199000 DATSUB EQU DATESOPT 04200000 DATADD EQU DATESOPT 04201000 DATRETRN EQU DATESAGL+16 04202000 DATDAYS EQU DATESAGL+12 04203000 DATDATE EQU DATESAGL+8 04204000 DATHEAD EQU DATESAGL 04205000 @NM00076 EQU SELFLAGS 04206000 SELVOL EQU SELAGL+16 04207000 SELDDNP EQU SELAGL+12 04208000 SELUCBP EQU SELAGL+8 04209000 SELHEAD EQU SELAGL 04210000 @NM00075 EQU UCTFLAGS 04211000 UCTVSCAT EQU UCTFLAGS 04212000 UCTDD EQU UCTAGL+60 04213000 UCTVOLP EQU UCTAGL+56 04214000 UCTACBP EQU UCTAGL+52 04215000 UCTDSN EQU UCTAGL+8 04216000 UCTHEAD EQU UCTAGL 04217000 @NM00074 EQU LCTFLAGS 04218000 LCTVSCAT EQU LCTFLAGS 04219000 LCTOWNER EQU LCTINFO+24 04220000 LCTEXPIR EQU LCTINFO+20 04221000 LCTCREAT EQU LCTINFO+16 04222000 LCTACBP EQU LCTINFO+12 04223000 LCTMULVC EQU LCTINFO+8 04224000 LCTHEAD EQU LCTINFO 04225000 SRTWORKP EQU SRTAGL+28 04226000 SRTFLDLN EQU SRTAGL+24 04227000 SRTPOSIT EQU SRTAGL+20 04228000 SRTLEN EQU SRTAGL+16 04229000 SRTNUM EQU SRTAGL+12 04230000 SRTADDR EQU SRTAGL+8 04231000 SRTHEAD EQU SRTAGL 04232000 SV82DEBP EQU SV82WRKP 04233000 SV82TTRP EQU SV82LIST+8 04234000 SV82VOLP EQU SV82DCBP 04235000 SV82UCBP EQU SV82LIST+1 04236000 SV82CODE EQU SV82LIST 04237000 VOLRESV3 EQU VOLLABEL+55 04238000 VOLOWNER EQU VOLLABEL+45 04239000 VOLRESV1 EQU VOLLABEL+20 04240000 VOLVTOC EQU VOLLABEL+15 04241000 VOLSECTY EQU VOLLABEL+14 04242000 VOLSERNO EQU VOLLABEL+8 04243000 VOLNO EQU VOLLABEL+7 04244000 VOLLABI EQU VOLLABEL+4 04245000 VOLKEY EQU VOLLABEL 04246000 STAVTTR EQU STAEPARM+54 04247000 @NM00071 EQU STARETRY 04248000 STAVTOC EQU STARETRY 04249000 STAOFF EQU STARETRY 04250000 STAIO05 EQU STARETRY 04251000 @NM00070 EQU STARCVY 04252000 STACLEAR EQU STARCVY 04253000 STAVPOST EQU STARCVY 04254000 STAVENQ EQU STARCVY 04255000 STAVDMNT EQU STARCVY 04256000 STAVMNT EQU STARCVY 04257000 STATCB EQU STAEPARM+48 04258000 STARTADD EQU STAEPARM+44 04259000 STAEXSAV EQU STAEPARM+40 04260000 STARTSAV EQU STAEPARM+36 04261000 STARTTR EQU STAEPARM+32 04262000 @NM00069 EQU STAEPARM+30 04263000 STARVOL EQU STAEPARM+24 04264000 STARUCB EQU STAEPARM+20 04265000 @NM00068 EQU STAEPARM+18 04266000 STAVVOL EQU STAEPARM+12 04267000 STAVUCB EQU STAEPARM+8 04268000 STAHEAD EQU STAEPARM 04269000 RCTDSET EQU RCTAGL+32 04270000 RCTNVOL EQU RCTAGL+26 04271000 RCTOVOL EQU RCTAGL+20 04272000 RCTNDEV EQU RCTAGL+16 04273000 RCTODEV EQU RCTAGL+12 04274000 @NM00067 EQU RCTAGL+10 04275000 @NM00066 EQU RCTOPT 04276000 RCTVOL EQU RCTOPT 04277000 RCTDEV EQU RCTOPT 04278000 RCTHEAD EQU RCTAGL 04279000 @NM00065 EQU VSRESOPT 04280000 VSREAL EQU VSRESOPT 04281000 VSRES EQU VSRESOPT 04282000 @NM00064 EQU VSMSG 04283000 VSTOV EQU VSMSG 04284000 VSFROMV EQU VSMSG 04285000 @NM00063 EQU VSRETURN 04286000 VSUCAT EQU VSRETURN 04287000 VSVSAM EQU VSRETURN 04288000 @NM00062 EQU VSCATOPT 04289000 VSLIST EQU VSCATOPT 04290000 VSSERIAL EQU VSCATOPT 04291000 VSDEVICE EQU VSCATOPT 04292000 @NM00061 EQU VSVTOPT 04293000 VSVSFLAG EQU VSVTOPT 04294000 VSALTTRK EQU VSVTOPT 04295000 VSTIME EQU VSVTOPT 04296000 VSUCMAST EQU VSSECOPT 04297000 VSOPCAT EQU VSSECOPT 04298000 VSUCTEST EQU VSSECOPT 04299000 VSWRITE EQU VSSECOPT 04300000 VSREAD EQU VSSECOPT 04301000 VSNONONV EQU VSSECOPT 04302000 VSMASTER EQU VSSECOPT 04303000 VSNOVSAM EQU VSSECOPT 04304000 VSODEVP EQU VS1AGL+64 04305000 VSOSERP EQU VS1AGL+60 04306000 VSDEVP EQU VS1AGL+56 04307000 VSSERP EQU VS1AGL+52 04308000 VSPFILEP EQU VS1AGL+48 04309000 VSPSWDP EQU VS1AGL+44 04310000 VSCATDDP EQU VS1AGL+40 04311000 VSACBP EQU VS1AGL+36 04312000 VSCATP EQU VS1AGL+32 04313000 VSNXTATP EQU VS1AGL+28 04314000 VSNUMATP EQU VS1AGL+24 04315000 VSIOP EQU VS1AGL+20 04316000 VSFILEP EQU VS1AGL+16 04317000 VSVOLP EQU VS1AGL+12 04318000 VSUCBP EQU VS1AGL+8 04319000 VSHEAD EQU VS1AGL 04320000 VSVTOCPT EQU VS2AGL+48 04321000 @NM00060 EQU VS2AGL+45 04322000 VSDDNAME EQU VS2AGL+37 04323000 @NM00059 EQU VS2RESOP 04324000 VS2REAL EQU VS2RESOP 04325000 VS2RES EQU VS2RESOP 04326000 @NM00058 EQU VS2MSG 04327000 VS2TOV EQU VS2MSG 04328000 VSVOLUME EQU VS2AGL+29 04329000 @NM00057 EQU VSLABOPT 04330000 VSNOVTOC EQU VSLABOPT 04331000 VSVOLSER EQU VSLABOPT 04332000 VSOWNER EQU VSLABOPT 04333000 VSIOBKPT EQU VS2AGL+24 04334000 VSVOLPTR EQU VS2AGL+20 04335000 VSOWNPTR EQU VS2AGL+16 04336000 VSVTOCSZ EQU VS2AGL+12 04337000 VSUCBPTR EQU VS2AGL+8 04338000 VS2HEAD EQU VS2AGL 04339000 EXPDATAL EQU EXPARRAY+6 04340000 @NM00056 EQU EXPARRAY+5 04341000 EXPKEYLN EQU EXPARRAY+4 04342000 EXPDATAP EQU EXPARRAY 04343000 EXPRECNO EQU EXPDATAB 04344000 EXPCCHHR EQU EXPARG+16 04345000 EXPCTLBK EQU EXPARG+8 04346000 EXPHEAD EQU EXPARG 04347000 EXRWFUN EQU EXWRARG+46 04348000 @NM00055 EQU EXSPACE+8 04349000 @NM00054 EQU EXSPACE+6 04350000 @NM00053 EQU EXSPACE+4 04351000 @NM00052 EQU EXSPACE+1 04352000 @NM00051 EQU EXSPACE 04353000 EXRWKDLN EQU EXWRARG+32 04354000 @NM00050 EQU EXWRARG+31 04355000 EXRECNUM EQU EXRWCHR+4 04356000 EXHH EQU EXRWCHR+2 04357000 EXCC EQU EXRWCHR 04358000 EXCCWCNT EQU EXWRARG+24 04359000 EXLOCPTR EQU EXWRARG+20 04360000 EXRWDARE EQU EXWRARG+16 04361000 EXRWIOAR EQU EXWRARG+12 04362000 EXRWCTBL EQU EXWRARG+8 04363000 EXRWRES EQU EXWRARG 04364000 @NM00049 EQU EXGARG+29 04365000 EXGCTLBK EQU EXGARG+8 04366000 EXGHEAD EQU EXGARG 04367000 EXOVTH EQU EXFLG 04368000 EXORVT EQU EXFLG 04369000 EXORDS EQU EXFLG 04370000 EXOSPK EQU EXFLG 04371000 EXORVS EQU EXFLG 04372000 @NM00048 EQU EXFLG 04373000 EXOREAD EQU EXFLG 04374000 @NM00047 EQU EXOPT 04375000 EXOREP EQU EXOPT 04376000 EXOVTOC EQU EXOPT 04377000 EXONEW EQU EXOPT 04378000 EXOPASS EQU EXOPT 04379000 EXOLAB EQU EXOPT 04380000 EXOTAB EQU EXOPT 04381000 EXOCTLBK EQU EXOARG+28 04382000 EXOEXT EQU EXOARG+24 04383000 EXOUCB EQU EXOARG+20 04384000 EXOVSN EQU EXOARG+16 04385000 EXODSN EQU EXOARG+12 04386000 EXODDN EQU EXOARG+8 04387000 EXOHEAD EQU EXOARG 04388000 @NM00046 EQU EXCLFLAG 04389000 EXCLMNT EQU EXCLFLAG 04390000 EXCLVOL EQU EXCLAGL+16 04391000 EXCLDDP EQU EXCLAGL+12 04392000 EXCLUCBP EQU EXCLAGL+8 04393000 EXCLHEAD EQU EXCLAGL 04394000 @NM00045 EQU CKFLAGS 04395000 CKDMTABL EQU CKFLAGS 04396000 CKRETTYP EQU CKFLAGS 04397000 CKTESTVT EQU CKFLAGS 04398000 CKLABELP EQU CKAGL+24 04399000 CKDATYPE EQU CKAGL+20 04400000 CKDDNAME EQU CKAGL+12 04401000 CKUCBPTR EQU CKAGL+8 04402000 CKHEAD EQU CKAGL 04403000 PULABELP EQU PUAGL+16 04404000 PUTTRPTR EQU PUAGL+12 04405000 PUUCBPTR EQU PUAGL+8 04406000 PUHEAD EQU PUAGL 04407000 MDR EQU MDVTOC+4 04408000 MDHH EQU MDVTOC+2 04409000 MDCC EQU MDVTOC 04410000 @NM00044 EQU MDAGL+31 04411000 MDVTOCTR EQU MDFLAGS 04412000 MDFORCE EQU MDFLAGS 04413000 MDDEQ EQU MDFLAGS 04414000 MDENQ EQU MDFLAGS 04415000 MDWAIT EQU MDFLAGS 04416000 MDPOST EQU MDFLAGS 04417000 MDCLEAR EQU MDFLAGS 04418000 MDNEWVOL EQU MDFLAGS 04419000 MDLABEL EQU MDAGL+24 04420000 MDPUAGL EQU MDAGL+20 04421000 MDDDNAME EQU MDAGL+12 04422000 MDUCBPTR EQU MDAGL+8 04423000 MDHEAD EQU MDAGL 04424000 CTTBLRR EQU CTARRAY+3 04425000 CTTBLHH EQU CTARRAY+2 04426000 CTTBLCC EQU CTARRAY+1 04427000 CTTBLID EQU CTARRAY 04428000 CTREALH EQU CTMSG+3 04429000 CTREALCC EQU CTMSG+1 04430000 @NM00043 EQU CTMSG 04431000 CMCSN2 EQU CMMSG+28 04432000 CMCSN1 EQU CMMSG+16 04433000 CMNUMCRT EQU CMMSG+15 04434000 @NM00042 EQU CMMSG+14 04435000 CMNEWVOL EQU CMMSG+8 04436000 @NM00041 EQU CMMSG+7 04437000 @NM00040 EQU CMVOLFLG 04438000 CMRONLY EQU CMVOLFLG 04439000 CMBIND EQU CMVOLFLG 04440000 CMSCRCRT EQU CMVOLFLG 04441000 CMEXCL EQU CMVOLFLG 04442000 CMDERAS EQU CMVOLFLG 04443000 CMSCRVOL EQU CMVOLFLG 04444000 CMCECART EQU CMVOLFLG 04445000 CMOLDVOL EQU CMMSG 04446000 CCOLDCSN EQU CCMSG+24 04447000 CCNEWCSN EQU CCMSG+12 04448000 @NM00039 EQU CCMSG+10 04449000 CCVOL EQU CCMSG+4 04450000 @NM00038 EQU CCMSG+2 04451000 CCEJCODE EQU CCMSG+1 04452000 CCPSTCDE EQU CCMSG 04453000 @NM00037 EQU DMPARY+15 04454000 DMPARYTP EQU DMPARY+14 04455000 DMPARYEX EQU DMPARY+12 04456000 DMPARYIC EQU DMPARY+10 04457000 DMPARYSZ EQU DMPARY+8 04458000 DMPARYNM EQU DMPARY 04459000 @NM00036 EQU DMPITM+15 04460000 @NM00035 EQU ERCNVTAB+24 04461000 ERCPLPT EQU ERCNVTAB+20 04462000 ERCATRC EQU ERCNVTAB+16 04463000 ERDSNM EQU ERCNVTAB+12 04464000 @NM00034 EQU ERCNVTAB+4 04465000 @NM00033 EQU ERCNVTAB+3 04466000 @NM00032 EQU EROSOPER 04467000 EROSUCDX EQU EROSOPER 04468000 EROSCATL EQU EROSOPER 04469000 @NM00031 EQU EROPER 04470000 ERCATAL EQU EROPER 04471000 ERCATDL EQU EROPER 04472000 ERCATDE EQU EROPER 04473000 ERCATLC EQU EROPER 04474000 @NM00030 EQU ERTYPE 04475000 EROSCAT EQU ERTYPE 04476000 ERCATLG EQU ERTYPE 04477000 @NM00029 EQU FMTCNVF+1 04478000 FMTAR EQU FMTCNVF+1 04479000 FMTBS EQU FMTCNVF+1 04480000 FMTSS EQU FMTCNVF+1 04481000 FMTAL EQU FMTCNVF+1 04482000 FMTZS EQU FMTCNVF+1 04483000 @NM00028 EQU FMTCNVF 04484000 FMTPU EQU FMTCNVF 04485000 FMTBD EQU FMTCNVF 04486000 FMTBHD EQU FMTCNVF 04487000 FMTBHA EQU FMTCNVF 04488000 FMTBH EQU FMTCNVF 04489000 FMTOLEN EQU FMTLIST+8 04490000 FMTRIO EQU FMTOCOL 04491000 FMTSPT EQU FMTSTO 04492000 FMTSTL EQU FMTILEN 04493000 @NM00027 EQU FMTFLGS+1 04494000 FMTHDF EQU FMTFLGS 04495000 FMTDFF EQU FMTFLGS 04496000 FMTSTF EQU FMTFLGS 04497000 FMTREPF EQU FMTFLGS 04498000 FMTBDF EQU FMTFLGS 04499000 FMTIDF EQU FMTFLGS 04500000 FMTSCF EQU FMTFLGS 04501000 FMTEOLF EQU FMTFLGS 04502000 DARGDTM EQU DARGARY+4 04503000 DARGPCT EQU DARGINL 04504000 DARGREP EQU DARGINS 04505000 @NM00026 EQU DARGLIST+19 04506000 DARGIND EQU DARGLIST+18 04507000 DARGCNT EQU DARGLIST+14 04508000 UVOLVOL EQU UVOLENT+4 04509000 UVOLDEV EQU UVOLENT 04510000 UVOLCNT EQU UVOLLIST 04511000 @NM00025 EQU IOINFOPT 04512000 IOINFTMS EQU IOINFOPT 04513000 IOINFSUP EQU IOINFOPT 04514000 IOINFDSN EQU IOINFOPT 04515000 IOINFVOL EQU IOINFOPT 04516000 IOINFDVT EQU IOINFOPT 04517000 OPNVOL EQU OPNAGL+44 04518000 @NM00024 EQU OPNAGL+43 04519000 @NM00023 EQU OPNOPT2 04520000 OPNOPTJM EQU OPNOPT2 04521000 @NM00022 EQU OPNOPT2 04522000 OPNOPTAS EQU OPNOPT2 04523000 @NM00021 EQU OPNDSO 04524000 OPNDSOPO EQU OPNDSO 04525000 OPNDSOIS EQU OPNDSO 04526000 OPNDSOPS EQU OPNDSO 04527000 OPNDSOAM EQU OPNDSO 04528000 OPNKYL EQU OPNAGL+40 04529000 OPNBLK EQU OPNAGL+36 04530000 OPNREC EQU OPNAGL+32 04531000 OPNDEVIX EQU OPNDEV+4 04532000 OPNDEVDT EQU OPNDEV 04533000 OPNCBP EQU OPNAGL+20 04534000 OPNDSN EQU OPNAGL+16 04535000 OPNPWA EQU OPNAGL+12 04536000 OPNDDN EQU OPNAGL+8 04537000 OPNIOC EQU OPNAGL+4 04538000 OPNMODRP EQU OPNMOD 04539000 OPNMODUB EQU OPNMOD 04540000 OPNMODRS EQU OPNMOD 04541000 OPNMODAX EQU OPNMOD 04542000 OPNMODRR EQU OPNMOD 04543000 OPNMODRC EQU OPNMOD 04544000 OPNMODAC EQU OPNMOD 04545000 OPNMODPD EQU OPNMOD 04546000 @NM00020 EQU OPNTYP 04547000 OPNTYPRV EQU OPNTYP 04548000 OPNTYPEX EQU OPNTYP 04549000 OPNTYPRA EQU OPNTYP 04550000 OPNTYPXM EQU OPNTYP 04551000 OPNTYPCI EQU OPNTYP 04552000 OPNTYPSO EQU OPNTYP 04553000 OPNTYPSI EQU OPNTYP 04554000 @NM00019 EQU OPNRFM 04555000 OPNRFMBK EQU OPNRFM 04556000 OPNRFMSF EQU OPNRFM 04557000 OPNRFMUN EQU OPNRFM 04558000 OPNRFMVR EQU OPNRFM 04559000 OPNRFMFX EQU OPNRFM 04560000 OPNOPTSK EQU OPNOPT 04561000 OPNOPTDR EQU OPNOPT 04562000 OPNOPTCR EQU OPNOPT 04563000 OPNOPTKS EQU OPNOPT 04564000 OPNOPTBK EQU OPNOPT 04565000 OPNOPTUP EQU OPNOPT 04566000 OPNOPTOT EQU OPNOPT 04567000 OPNOPTIN EQU OPNOPT 04568000 IOCEXT EQU IOCSTR+64 04569000 IOCREL EQU IOCSTR+60 04570000 IOCWORK EQU IOCSTR+56 04571000 IOCRRN EQU IOCSTR+52 04572000 IOCPNM EQU IOCNWM+2 04573000 IOCPTL EQU IOCNWM 04574000 IOCKYA EQU IOCMEM 04575000 IOCVRC EQU IOCTTR 04576000 IOCCBP EQU IOCSTR+36 04577000 IOCDSN EQU IOCSTR+32 04578000 IOCHURBA EQU IOCSTR+28 04579000 IOCVOLSR EQU IOCSTR+22 04580000 @NM00018 EQU IOCMSG 04581000 IOCMSGAE EQU IOCMSG 04582000 IOCMSGCE EQU IOCMSG 04583000 IOCMSGOE EQU IOCMSG 04584000 IOCMSGOP EQU IOCMSG 04585000 @NM00017 EQU IOCMSG 04586000 IOCCHPSY EQU IOCCHP 04587000 IOCCHPAS EQU IOCCHP 04588000 IOCCHPBK EQU IOCCHP 04589000 IOCCHPCR EQU IOCCHP 04590000 IOCCHPKS EQU IOCCHP 04591000 IOCCHPSK EQU IOCCHP 04592000 IOCCHPDR EQU IOCCHP 04593000 IOCCHPSQ EQU IOCCHP 04594000 @NM00016 EQU IOCMAC2 04595000 IOCMACPA EQU IOCMAC2 04596000 @NM00015 EQU IOCMAC2 04597000 IOCMACCP EQU IOCMAC2 04598000 IOCMACRR EQU IOCMAC2 04599000 IOCMACAS EQU IOCMAC2 04600000 IOCMACSK EQU IOCMAC2 04601000 @NM00014 EQU IOCMAC 04602000 IOCMACCC EQU IOCMAC 04603000 IOCMACDR EQU IOCMAC 04604000 IOCMACBK EQU IOCMAC 04605000 IOCMACCR EQU IOCMAC 04606000 IOCMACUP EQU IOCMAC 04607000 IOCMACOT EQU IOCMAC 04608000 IOCMACIN EQU IOCMAC 04609000 @NM00013 EQU IOCRFM 04610000 IOCRFMBK EQU IOCRFM 04611000 IOCRFMSF EQU IOCRFM 04612000 IOCRFMUN EQU IOCRFM 04613000 IOCRFMVR EQU IOCRFM 04614000 IOCRFMFX EQU IOCRFM 04615000 @NM00012 EQU IOCDSO 04616000 IOCDSOPO EQU IOCDSO 04617000 IOCDSOIS EQU IOCDSO 04618000 IOCDSOPS EQU IOCDSO 04619000 IOCDSOAM EQU IOCDSO 04620000 IOCRKP EQU IOCSTR+13 04621000 IOCKYL EQU IOCSTR+12 04622000 IOCTRN EQU IOCSTR+8 04623000 IOCDLN EQU IOCSTR+4 04624000 IOCDAD EQU IOCSTR 04625000 UNITVTOC EQU UNITABL+7 04626000 @NM00011 EQU UNITSTAT 04627000 UNITUSHR EQU UNITSTAT 04628000 UNITXSHR EQU UNITSTAT 04629000 UNITISHR EQU UNITSTAT 04630000 UNITUA EQU @NM00010+1 04631000 UNITCHA EQU @NM00010 04632000 UNITUCB EQU UNITABL 04633000 ALLUNCNT EQU ALLAGL+30 04634000 ALLVLCNT EQU ALLAGL+29 04635000 @NM00009 EQU ALLOPT 04636000 ALLOPTUN EQU ALLOPT 04637000 ALLOPTPV EQU ALLOPT 04638000 ALLOPTDS EQU ALLOPT 04639000 ALLOPTVL EQU ALLOPT 04640000 @NM00008 EQU ALLORG+1 04641000 ALLORGVS EQU ALLORG+1 04642000 @NM00007 EQU ALLORG+1 04643000 ALLORGGS EQU ALLORG+1 04644000 ALLORGUN EQU ALLORG 04645000 ALLORGPO EQU ALLORG 04646000 ALLORGMQ EQU ALLORG 04647000 ALLORGCQ EQU ALLORG 04648000 ALLORGCX EQU ALLORG 04649000 ALLORGDA EQU ALLORG 04650000 ALLORGPS EQU ALLORG 04651000 ALLORGIS EQU ALLORG 04652000 ALLDSPUN EQU ALLDSP 04653000 ALLDSPCG EQU ALLDSP 04654000 ALLDSPDE EQU ALLDSP 04655000 ALLDSPKP EQU ALLDSP 04656000 @NM00006 EQU ALLDSP 04657000 ALLSTSOD EQU ALLSTS 04658000 ALLSTSMD EQU ALLSTS 04659000 ALLSTSNW EQU ALLSTS 04660000 ALLSTSSR EQU ALLSTS 04661000 @NM00005 EQU ALLSTS 04662000 ALLPWD EQU ALLAGL+20 04663000 ALLVLP EQU ALLAGL+16 04664000 ALLULP EQU ALLAGL+12 04665000 ALLDDN EQU ALLAGL+4 04666000 ALLDSN EQU ALLAGL 04667000 CIRPID EQU CIRAGL+28 04668000 CIRPWD EQU CIRAGL+24 04669000 CIRCAT EQU CIRAGL+20 04670000 CIRWKP EQU CIRAGL+16 04671000 CIRTLR EQU CIRAGL+12 04672000 CIRHDR EQU CIRAGL+8 04673000 CIRTLN EQU CIRAGL+6 04674000 CIRHLN EQU CIRAGL+4 04675000 @NM00004 EQU CIRAGL+1 04676000 @NM00003 EQU CIRTYPE 04677000 CIRTYPAQ EQU CIRTYPE 04678000 CIRTYP1Q EQU CIRTYPE 04679000 NEWID1 EQU TRACE1+95 04680000 CALLID EQU OLDERID1+90 04681000 @NM00002 EQU OLDERID1 04682000 * END UNREFERENCED COMPONENTS 04683000 @RT00415 EQU @EL00002 04684000 @RF00427 EQU @RC00402 04685000 @RT00493 EQU @EL00002 04686000 @RT00558 EQU @EL00002 04687000 @RT00577 EQU @EL00002 04688000 @RT00587 EQU @EL00002 04689000 @RT00596 EQU @EL00002 04690000 @RT00604 EQU @EL00002 04691000 @RT00671 EQU @EL00002 04692000 @RF00692 EQU @RC00673 04693000 @RF00683 EQU @RC00673 04694000 @RT00739 EQU @EL00002 04695000 @RF00849 EQU @RC00834 04696000 @PB00004 EQU @EL00001 04697000 @PB00003 EQU @PB00004 04698000 @PB00002 EQU @PB00003 04699000 @ENDDATA EQU * 04700000 END IDCCH03,(C'PLS1357',0603,77297) 04701000