TITLE '**************** IDCAU01: AUDITMSS FSR *****************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 IDCAU01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCAU01 76.356' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @10,0 0002 00021000 @PSTART LA @12,4095(,@10) 0002 00022000 USING @PSTART,@10 0002 00023000 USING @PSTART+4095,@12 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(12),0(@01) 0002 00033000 * 0352 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* THIS IS THE MAIN ROUTINE FOR THE AUDITMSS FSR. @Z40LB25*/ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 0352 00040000 * IF GDTDBG=NULLPTR THEN 0352 00041000 L @05,@PC00001 0352 00042000 L @05,GDTDBG(,@05) 0352 00043000 LTR @05,@05 0352 00044000 BZ @RT00352 0352 00045000 * ; 0353 00046000 * ELSE 0354 00047000 * CALL IDCDB010(GDTTBL,'AUAA'); /* @Z40LB25*/ 00048000 L @05,@PC00001 0354 00049000 ST @05,@AL00001 0354 00050000 LA @15,@CC01705 0354 00051000 ST @15,@AL00001+4 0354 00052000 MVI @AL00001+4,X'80' 0354 00053000 L @15,GDTDBG(,@05) 0354 00054000 LA @01,@AL00001 0354 00055000 BALR @14,@15 0354 00056000 * OLDERID2=NEWERID2; 0355 00057000 @RT00352 L @02,@PC00001 0355 00058000 L @02,GDTTR2(,@02) 0355 00059000 MVC @TS00001(95),NEWERID2(@02) 0355 00060000 MVC OLDERID2(95,@02),@TS00001 0355 00061000 * NEWID2='AUAA'; /* @Z40LB25*/ 00062000 * 0356 00063000 MVC NEWID2(4,@02),@CC01705 0356 00064000 * /*****************************************************************/ 00065000 * /* */ 00066000 * /* INITIALIZE LISTS AND POINTERS. @Z40LB25*/ 00067000 * /* */ 00068000 * /*****************************************************************/ 00069000 * 0357 00070000 * FLAGS=''B; /* INIT WORK FLAGS @Z40LB25*/ 00071000 MVI FLAGS,X'00' 0357 00072000 * OPNPTR=ADDR(OPENLIST); /* OPEN LIST PTR @Z40LB25*/ 00073000 LA OPNPTR,OPENLIST 0358 00074000 * PRINTME=PRTFILE; /* DEFLT SYSPRINT @Z40LB25*/ 00075000 SLR @02,@02 0359 00076000 ST @02,PRINTME 0359 00077000 * LABDSPTR=NULLPTR; /* DEFLT NO LABEL @Z40LB25 00078000 * DATA SET @Z40LB25*/ 00079000 ST @02,LABDSPTR 0360 00080000 * IOCSPTR=''B; /* I/O CONT BLK @Z40LB25*/ 00081000 SLR @15,@15 0361 00082000 ST @15,IOCSPTR 0361 00083000 * CIENTPTR=ADDR(RECDBUF); /* CONFIG INDEX TABLE @Z40LB25*/ 00084000 LA CIENTPTR,RECDBUF 0362 00085000 * RDTBLPTR=ADDR(QURYAREA); /* READ TABLE LIST @Z40LB25*/ 00086000 LA @15,QURYAREA 0363 00087000 ST @15,RDTBLPTR 0363 00088000 * DDSTRU=ADDR(PRINTAB); /* PRINT MSGS @Z40LB25*/ 00089000 LA @15,PRINTAB 0364 00090000 ST @15,DDSTRU 0364 00091000 * BLKPTR=ADDR(AU0PLIST); /* PARM - IDCAU02 & @Z40LB25 00092000 * IDCAU03 @Z40LB25*/ 00093000 * 0365 00094000 LA @15,AU0PLIST 0365 00095000 ST @15,BLKPTR 0365 00096000 * /*****************************************************************/ 00097000 * /* */ 00098000 * /* TEST IF THE USER SPECIFIED A DDNAME OR DSNAME TO @Z40LB25*/ 00099000 * /* BE USED AS THE OUTPUT DATA SET. IF YES, ISSUE @Z40LB25*/ 00100000 * /* THE UOPEN MACRO. IF NO, USE SYSPRINT AS DEFAULT. @Z40LB25*/ 00101000 * /* */ 00102000 * /*****************************************************************/ 00103000 * 0366 00104000 * IF(ADDR(OFILE)^=NULLPTR|ADDR(ODS)^=NULLPTR)&LASTCOND=LASTCC00 THEN 00105000 L @15,@PC00001+4 0366 00106000 C @02,FDTPTR+56(,@15) 0366 00107000 BNE @GL00001 0366 00108000 C @02,FDTPTR+60(,@15) 0366 00109000 BE @RF00366 0366 00110000 @GL00001 SLR @02,@02 0366 00111000 L @15,@PC00001+8 0366 00112000 CH @02,LASTCOND(,@15) 0366 00113000 BNE @RF00366 0366 00114000 * DO; /* @Z40LB25*/ 00115000 * OPENLIST=''B; /* @Z40LB25*/ 00116000 XC OPENLIST(48),OPENLIST 0368 00117000 * IF ADDR(ODS)^=NULLPTR THEN 0369 00118000 L @04,@PC00001+4 0369 00119000 L @04,FDTPTR+60(,@04) 0369 00120000 CR @04,@02 0369 00121000 BE @RF00369 0369 00122000 * OPNDSN=ADDR(ODSVAL); /* @Z40LB25*/ 00123000 LA @04,ODSVAL(,@04) 0370 00124000 ST @04,OPNDSN(,OPNPTR) 0370 00125000 * ELSE 0371 00126000 * OPNDDN=ADDR(OFILEVAL); /* @Z40LB25*/ 00127000 B @RC00369 0371 00128000 @RF00369 L @04,@PC00001+4 0371 00129000 L @04,FDTPTR+56(,@04) 0371 00130000 LA @04,OFILEVAL(,@04) 0371 00131000 ST @04,OPNDDN(,OPNPTR) 0371 00132000 * OPNOPTOT=ON; /* @Z40LB25*/ 00133000 @RC00369 OI OPNOPTOT(OPNPTR),B'01000000' 0372 00134000 * OPNMODAC=ON; /* @Z40LB25*/ 00135000 OI OPNMODAC(OPNPTR),B'01000000' 0373 00136000 * OPNIOC=ADDR(IOCSPTR); /* @Z40LB25*/ 00137000 LA @02,IOCSPTR 0374 00138000 ST @02,OPNIOC(,OPNPTR) 0374 00139000 * CALL IDCIOOP0(GDTTBL,OPNAGL);/* @Z40LB25*/ 00140000 L @02,@PC00001 0375 00141000 ST @02,@AL00001 0375 00142000 ST OPNPTR,@AL00001+4 0375 00143000 MVI @AL00001+4,X'80' 0375 00144000 L @15,GDTOPN(,@02) 0375 00145000 LA @01,@AL00001 0375 00146000 BALR @14,@15 0375 00147000 * RESPECIFY 0376 00148000 * RTNREG RSTD; 0376 00149000 * TESTRC=RTNREG; 0377 00150000 LR TESTRC,RTNREG 0377 00151000 * RESPECIFY 0378 00152000 * RTNREG UNRSTD; /* @Z40LB25*/ 00153000 * IF TESTRC=0 THEN 0379 00154000 LTR TESTRC,TESTRC 0379 00155000 BNZ @RF00379 0379 00156000 * PRINTME=IOCSPTR; /* @Z40LB25*/ 00157000 L @02,IOCSPTR 0380 00158000 ST @02,PRINTME 0380 00159000 * ELSE 0381 00160000 * LASTCOND=LASTCC12; /* @Z40LB25*/ 00161000 B @RC00379 0381 00162000 @RF00379 L @02,@PC00001+8 0381 00163000 MVC LASTCOND(2,@02),@CH00567 0381 00164000 * END; /* @Z40LB25*/ 00165000 * 0382 00166000 @RC00379 DS 0H 0383 00167000 * /*****************************************************************/ 00168000 * /* */ 00169000 * /* IF THE USER SPECIFIED A SEQUENTIAL DSNAME OR @Z40LB25*/ 00170000 * /* DDNAME FOR THE READLABEL OPTION, THEN ISSUE @Z40LB25*/ 00171000 * /* THE UOPEN MACRO. @Z40LB25*/ 00172000 * /* */ 00173000 * /*****************************************************************/ 00174000 * 0383 00175000 * IF(ADDR(LFILE)^=NULLPTR|ADDR(LDS)^=NULLPTR)&LASTCOND=LASTCC00 THEN 00176000 @RF00366 SLR @02,@02 0383 00177000 L @15,@PC00001+4 0383 00178000 C @02,FDTPTR+72(,@15) 0383 00179000 BNE @GL00003 0383 00180000 C @02,FDTPTR+76(,@15) 0383 00181000 BE @RF00383 0383 00182000 @GL00003 SLR @02,@02 0383 00183000 L @15,@PC00001+8 0383 00184000 CH @02,LASTCOND(,@15) 0383 00185000 BNE @RF00383 0383 00186000 * DO; /* @Z40LB25*/ 00187000 * OPENLIST=''B; /* @Z40LB25*/ 00188000 XC OPENLIST(48),OPENLIST 0385 00189000 * IF ADDR(LDS)^=NULLPTR THEN 0386 00190000 L @04,@PC00001+4 0386 00191000 L @04,FDTPTR+76(,@04) 0386 00192000 CR @04,@02 0386 00193000 BE @RF00386 0386 00194000 * OPNDSN=ADDR(LDSVAL); /* @Z40LB25*/ 00195000 LA @04,LDSVAL(,@04) 0387 00196000 ST @04,OPNDSN(,OPNPTR) 0387 00197000 * ELSE 0388 00198000 * OPNDDN=ADDR(LFILEVAL); /* @Z40LB25*/ 00199000 B @RC00386 0388 00200000 @RF00386 L @04,@PC00001+4 0388 00201000 L @04,FDTPTR+72(,@04) 0388 00202000 LA @04,LFILEVAL(,@04) 0388 00203000 ST @04,OPNDDN(,OPNPTR) 0388 00204000 * OPNOPTOT=ON; /* @Z40LB25*/ 00205000 @RC00386 OI OPNOPTOT(OPNPTR),B'01000000' 0389 00206000 * OPNRFMFX=ON; /* FIXED @Z40LB25*/ 00207000 * OPNRFMBK=ON; /* BLOCKED @Z40LB25*/ 00208000 OI OPNRFMFX(OPNPTR),B'10001000' 0391 00209000 * OPNREC=LABRECLN; /* REC LEN 256 @Z40LB25*/ 00210000 MVC OPNREC(4,OPNPTR),@CF01234 0392 00211000 * OPNIOC=ADDR(IOCSPTR); /* @Z40LB25*/ 00212000 LA @02,IOCSPTR 0393 00213000 ST @02,OPNIOC(,OPNPTR) 0393 00214000 * CALL IDCIOOP0(GDTTBL,OPNAGL);/* @Z40LB25*/ 00215000 L @02,@PC00001 0394 00216000 ST @02,@AL00001 0394 00217000 ST OPNPTR,@AL00001+4 0394 00218000 MVI @AL00001+4,X'80' 0394 00219000 L @15,GDTOPN(,@02) 0394 00220000 LA @01,@AL00001 0394 00221000 BALR @14,@15 0394 00222000 * RESPECIFY 0395 00223000 * RTNREG RSTD; 0395 00224000 * TESTRC=RTNREG; 0396 00225000 LR TESTRC,RTNREG 0396 00226000 * RESPECIFY 0397 00227000 * RTNREG UNRSTD; /* @Z40LB25*/ 00228000 * IF TESTRC=0 THEN 0398 00229000 LTR TESTRC,TESTRC 0398 00230000 BNZ @RF00398 0398 00231000 * LABDSPTR=IOCSPTR; /* @Z40LB25*/ 00232000 L @15,IOCSPTR 0399 00233000 ST @15,LABDSPTR 0399 00234000 * ELSE 0400 00235000 * LASTCOND=LASTCC12; /* @Z40LB25*/ 00236000 B @RC00398 0400 00237000 @RF00398 L @15,@PC00001+8 0400 00238000 MVC LASTCOND(2,@15),@CH00567 0400 00239000 * END; /* @Z40LB25*/ 00240000 @RC00398 DS 0H 0402 00241000 * 0402 00242000 * /*****************************************************************/ 00243000 * /* */ 00244000 * /* IF LASTCOND = 0, THEN OBTAIN THE CONFIGURATION INDEX @Z40LB25*/ 00245000 * /* TABLE AND CHECK THE AVAILABILITY OF THE MSF. @Z40LB25*/ 00246000 * /* */ 00247000 * /*****************************************************************/ 00248000 * 0402 00249000 * IF LASTCOND=LASTCC00 THEN 0402 00250000 @RF00383 SLR @15,@15 0402 00251000 L @14,@PC00001+8 0402 00252000 CH @15,LASTCOND(,@14) 0402 00253000 BNE @RF00402 0402 00254000 * DO; /* @Z40LB25*/ 00255000 * RDTBLIST=RDTBLIST&&RDTBLIST;/* 0 READ TBL LIST @Z40LB25*/ 00256000 L @04,RDTBLPTR 0404 00257000 XC RDTBLIST(44,@04),RDTBLIST(@04) 0404 00258000 * QTFLAG=READTBL; /* READ TABLE @Z40LB25*/ 00259000 MVI QTFLAG(@04),B'00000001' 0405 00260000 * QUPTR=ADDR(DIAGBUF); /* DIAG BUFFER @Z40LB25*/ 00261000 LA @02,DIAGBUF 0406 00262000 ST @02,QUPTR(,@04) 0406 00263000 * QTTABID=CONFIGID; /* CONFIG TBLE ID @Z40LB25*/ 00264000 NI QTTABID(@04),B'01111111' 0407 00265000 OI QTTABID(@04),B'01110000' 0407 00266000 * CONFIG=CONFIGTB; /* CONFIG TABLE @Z40LB25*/ 00267000 * 0408 00268000 MVI CONFIG(@04),B'00000000' 0408 00269000 * /*************************************************************/ 00270000 * /* */ 00271000 * /* DUMP THE PARM LIST, IF REQUESTED. @Z40LB25*/ 00272000 * /* */ 00273000 * /*************************************************************/ 00274000 * 0409 00275000 * QAREALN=LENGTH(QURYAREA); /* PARM LIST LENGTH @Z40LB25*/ 00276000 LA QAREALN,44 0409 00277000 * IF GDTDBG=NULLPTR THEN 0410 00278000 L @04,@PC00001 0410 00279000 C @15,GDTDBG(,@04) 0410 00280000 BE @RT00410 0410 00281000 * ; 0411 00282000 * ELSE 0412 00283000 * DO; 0412 00284000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB25*/ 00285000 LA DMPINDEX,DMPSTG 0413 00286000 * DMPITMNM='QURYAREA'; 0414 00287000 MVC DMPITMNM(8,DMPINDEX),@CC01707 0414 00288000 * DMPITMPT=ADDR(QURYAREA); 0415 00289000 LA @04,QURYAREA 0415 00290000 ST @04,DMPITMPT(,DMPINDEX) 0415 00291000 * DMPITMLN=QAREALN; 0416 00292000 STH QAREALN,DMPITMLN(,DMPINDEX) 0416 00293000 * DMPITMTP='H'; 0417 00294000 MVI DMPITMTP(DMPINDEX),C'H' 0417 00295000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB25 00296000 * QTAB PARM LIST @Z40LB25*/ 00297000 AL DMPINDEX,@CF00473 0418 00298000 * DMPTRM=DMPTRMVL; 0419 00299000 MVI DMPTRM(DMPINDEX),X'FF' 0419 00300000 * END; /* @Z40LB25*/ 00301000 * IF GDTDBG=NULLPTR THEN 0421 00302000 @RT00410 L @04,@PC00001 0421 00303000 L @04,GDTDBG(,@04) 0421 00304000 LTR @04,@04 0421 00305000 BZ @RT00421 0421 00306000 * ; 0422 00307000 * ELSE 0423 00308000 * CALL IDCDB010(GDTTBL,'AUAB',ADDR(DMPSTG));/* @Z40LB25*/ 00309000 * 0423 00310000 L @04,@PC00001 0423 00311000 ST @04,@AL00001 0423 00312000 LA @15,@CC01709 0423 00313000 ST @15,@AL00001+4 0423 00314000 LA @15,DMPSTG 0423 00315000 ST @15,@AFTEMPS 0423 00316000 LA @15,@AFTEMPS 0423 00317000 ST @15,@AL00001+8 0423 00318000 MVI @AL00001+8,X'80' 0423 00319000 L @15,GDTDBG(,@04) 0423 00320000 LA @01,@AL00001 0423 00321000 BALR @14,@15 0423 00322000 * /*************************************************************/ 00323000 * /* */ 00324000 * /* GET THE CONFIGURATION TABLE. @Z40LB25*/ 00325000 * /* */ 00326000 * /*************************************************************/ 00327000 * 0424 00328000 * CALL IDCSASS0(GDTTBL,RDMSCTBL,RDTBLPTR,REASONCD);/* @Z40LB25*/ 00329000 @RT00421 L @15,@PC00001 0424 00330000 ST @15,@AL00001 0424 00331000 LA @14,RDMSCTBL 0424 00332000 ST @14,@AL00001+4 0424 00333000 LA @14,RDTBLPTR 0424 00334000 ST @14,@AL00001+8 0424 00335000 LA @14,REASONCD 0424 00336000 ST @14,@AL00001+12 0424 00337000 MVI @AL00001+12,X'80' 0424 00338000 L @15,GDTSSC(,@15) 0424 00339000 LA @01,@AL00001 0424 00340000 BALR @14,@15 0424 00341000 * RESPECIFY 0425 00342000 * RTNREG RSTD; 0425 00343000 * TESTRC=RTNREG; 0426 00344000 LR TESTRC,RTNREG 0426 00345000 * RESPECIFY 0427 00346000 * RTNREG UNRSTD; /* SAVE RET CODE @Z40LB25*/ 00347000 * 0427 00348000 * /*************************************************************/ 00349000 * /* */ 00350000 * /* TEST THE RETURN CODE FROM USSC. IF IT IS @Z40LB25*/ 00351000 * /* A 04 CALL SSCMSG TO PRINT THE MESSAGE FOR @Z40LB25*/ 00352000 * /* THE RETURNED REASON CODE. IF IT IS 04 OR 08 @Z40LB25*/ 00353000 * /* PRINT MESSAGE IDC31140I. @Z40LB25*/ 00354000 * /* */ 00355000 * /*************************************************************/ 00356000 * 0428 00357000 * IF TESTRC=4 THEN /* @Z40LB25*/ 00358000 C TESTRC,@CF00041 0428 00359000 BNE @RF00428 0428 00360000 * CALL SSCMSG(REASONCD); /* @Z40LB25*/ 00361000 LA @15,REASONCD 0429 00362000 ST @15,@AL00001 0429 00363000 LA @01,@AL00001 0429 00364000 BAL @14,SSCMSG 0429 00365000 * IF TESTRC=4|TESTRC=8 THEN /* @Z40LB25*/ 00366000 @RF00428 C TESTRC,@CF00041 0430 00367000 BE @RT00430 0430 00368000 C TESTRC,@CF00178 0430 00369000 BNE @RF00430 0430 00370000 @RT00430 DS 0H 0431 00371000 * DO; /* @Z40LB25*/ 00372000 * LASTCOND=LASTCC12; /* @Z40LB25*/ 00373000 L @05,@PC00001+8 0432 00374000 MVC LASTCOND(2,@05),@CH00567 0432 00375000 * PRINTAB=''B; /* @Z40LB25*/ 00376000 XC PRINTAB(20),PRINTAB 0433 00377000 * DARGSMOD=AUDMSG; /* @Z40LB25*/ 00378000 L @05,DDSTRU 0434 00379000 MVC DARGSMOD(3,@05),@CC01693 0434 00380000 * DARGSENT=MG31140I; /* @Z40LB25*/ 00381000 MVI DARGSENT(@05),X'02' 0435 00382000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB25*/ 00383000 L @05,@PC00001 0436 00384000 ST @05,@AL00001 0436 00385000 LA @15,@CF00114 0436 00386000 ST @15,@AL00001+4 0436 00387000 LA @15,DDSTRU 0436 00388000 ST @15,@AL00001+8 0436 00389000 MVI @AL00001+8,X'80' 0436 00390000 L @15,GDTPRT(,@05) 0436 00391000 LA @01,@AL00001 0436 00392000 BALR @14,@15 0436 00393000 * END; /* @Z40LB25*/ 00394000 * 0437 00395000 * /*************************************************************/ 00396000 * /* */ 00397000 * /* CHECK THE CONFIGURATION INDEX TABLE ENTRIES TO @Z40LB25*/ 00398000 * /* VERIFY THE SPECIFIED MSF IS AVAILABLE. @Z40LB25*/ 00399000 * /* */ 00400000 * /*************************************************************/ 00401000 * 0438 00402000 * ELSE /* @Z40LB25*/ 00403000 * IF MSFVAL^=MSFZERO THEN /* @Z40LB25*/ 00404000 B @RC00430 0438 00405000 @RF00430 L @15,@PC00001+4 0438 00406000 L @01,FDTPTR+24(,@15) 0438 00407000 L @15,MSFVAL(,@01) 0438 00408000 LTR @15,@15 0438 00409000 BZ @RF00438 0438 00410000 * DO; /* @Z40LB25*/ 00411000 * BADMSF=ON; /* @Z40LB25*/ 00412000 OI BADMSF,B'10000000' 0440 00413000 * DO I=1 BY 1 TO CONFIGNM WHILE BADMSF=ON;/* @Z40LB25*/ 00414000 LA I,1 0441 00415000 @DL00441 TM BADMSF,B'10000000' 0441 00416000 BNO @DC00441 0441 00417000 * IF CIMSF(I)=OFF THEN 0442 00418000 LR @03,I 0442 00419000 SLA @03,3 0442 00420000 ST @03,@TF00001 0442 00421000 ALR @03,CIENTPTR 0442 00422000 AL @03,@CF01745 0442 00423000 TM CIMSF(@03),B'10000000' 0442 00424000 BNZ @RF00442 0442 00425000 * DO; /* @Z40LB25*/ 00426000 * IF CIMSF1(I)=ON THEN 0444 00427000 LR @03,CIENTPTR 0444 00428000 AL @03,@TF00001 0444 00429000 AL @03,@CF01745 0444 00430000 TM CIMSF1(@03),B'00000100' 0444 00431000 BNO @RF00444 0444 00432000 * IF MSFVAL=MSFONE THEN 0445 00433000 L @03,@PC00001+4 0445 00434000 L @03,FDTPTR+24(,@03) 0445 00435000 CLC MSFVAL(4,@03),@CF00218 0445 00436000 BNE @RF00445 0445 00437000 * BADMSF=OFF; 0446 00438000 NI BADMSF,B'01111111' 0446 00439000 * IF CIMSF2(I)=ON THEN 0447 00440000 @RF00445 DS 0H 0447 00441000 @RF00444 LR @03,I 0447 00442000 SLA @03,3 0447 00443000 ALR @03,CIENTPTR 0447 00444000 AL @03,@CF01745 0447 00445000 TM CIMSF2(@03),B'00000010' 0447 00446000 BNO @RF00447 0447 00447000 * IF MSFVAL=MSFTWO THEN 0448 00448000 L @03,@PC00001+4 0448 00449000 L @03,FDTPTR+24(,@03) 0448 00450000 CLC MSFVAL(4,@03),@CF00152 0448 00451000 BNE @RF00448 0448 00452000 * BADMSF=OFF; 0449 00453000 NI BADMSF,B'01111111' 0449 00454000 * IF CIMSF3(I)=ON THEN 0450 00455000 @RF00448 DS 0H 0450 00456000 @RF00447 LR @03,I 0450 00457000 SLA @03,3 0450 00458000 ALR @03,CIENTPTR 0450 00459000 AL @03,@CF01745 0450 00460000 TM CIMSF3(@03),B'00000001' 0450 00461000 BNO @RF00450 0450 00462000 * IF MSFVAL=MSFTHREE THEN 0451 00463000 L @03,@PC00001+4 0451 00464000 L @03,FDTPTR+24(,@03) 0451 00465000 CLC MSFVAL(4,@03),@CF00161 0451 00466000 BNE @RF00451 0451 00467000 * BADMSF=OFF; 0452 00468000 NI BADMSF,B'01111111' 0452 00469000 * END; /* @Z40LB25*/ 00470000 @RF00451 DS 0H 0453 00471000 @RF00450 DS 0H 0454 00472000 * END; /* @Z40LB25*/ 00473000 * 0454 00474000 @RF00442 AL I,@CF00218 0454 00475000 C I,@CF00473 0454 00476000 BNH @DL00441 0454 00477000 @DC00441 DS 0H 0455 00478000 * /*******************************************************/ 00479000 * /* */ 00480000 * /* IF THE MSF WAS NOT FOUND, BADMSF WILL @Z40LB25*/ 00481000 * /* BE ON. IF ON, ISSUE MESSAGE IDC3822I. @Z40LB25*/ 00482000 * /* */ 00483000 * /*******************************************************/ 00484000 * 0455 00485000 * IF BADMSF=ON THEN /* @Z40LB25*/ 00486000 TM BADMSF,B'10000000' 0455 00487000 BNO @RF00455 0455 00488000 * DO; /* @Z40LB25*/ 00489000 * LASTCOND=LASTCC12;/* @Z40LB25*/ 00490000 L @05,@PC00001+8 0457 00491000 MVC LASTCOND(2,@05),@CH00567 0457 00492000 * PRINTAB=''B; /* @Z40LB25*/ 00493000 XC PRINTAB(20),PRINTAB 0458 00494000 * DARGSMOD=AUDMSG; /* @Z40LB25*/ 00495000 L @05,DDSTRU 0459 00496000 MVC DARGSMOD(3,@05),@CC01693 0459 00497000 * DARGSENT=MSG3822I;/* @Z40LB25*/ 00498000 MVI DARGSENT(@05),X'01' 0460 00499000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB25*/ 00500000 L @05,@PC00001 0461 00501000 ST @05,@AL00001 0461 00502000 LA @15,@CF00114 0461 00503000 ST @15,@AL00001+4 0461 00504000 LA @15,DDSTRU 0461 00505000 ST @15,@AL00001+8 0461 00506000 MVI @AL00001+8,X'80' 0461 00507000 L @15,GDTPRT(,@05) 0461 00508000 LA @01,@AL00001 0461 00509000 BALR @14,@15 0461 00510000 * END; /* @Z40LB25*/ 00511000 * END; /* @Z40LB25*/ 00512000 @RF00455 DS 0H 0464 00513000 * END; /* @Z40LB25*/ 00514000 @RF00438 DS 0H 0464 00515000 @RC00430 DS 0H 0465 00516000 * 0465 00517000 * /*****************************************************************/ 00518000 * /* */ 00519000 * /* IF LASTCOND = 0, THEN OBTAIN THE CURRENT CELL MAP @Z40LB25*/ 00520000 * /* FOR THE INPUT MSF AND THE ORIGINAL CELL MAP. @Z40LB25*/ 00521000 * /* */ 00522000 * /*****************************************************************/ 00523000 * 0465 00524000 * IF LASTCOND=LASTCC00 THEN 0465 00525000 @RF00402 SLR @05,@05 0465 00526000 L @15,@PC00001+8 0465 00527000 CH @05,LASTCOND(,@15) 0465 00528000 BNE @RF00465 0465 00529000 * DO; /* @Z40LB25*/ 00530000 * 0466 00531000 * /*************************************************************/ 00532000 * /* */ 00533000 * /* BUILD THE PARAMETER LIST TO READ THE CELL MAPS. @Z40LB25*/ 00534000 * /* */ 00535000 * /*************************************************************/ 00536000 * 0467 00537000 * RDTBLIST=RDTBLIST&&RDTBLIST;/* 0 READ TBL LIST @Z40LB25*/ 00538000 L @15,RDTBLPTR 0467 00539000 XC RDTBLIST(44,@15),RDTBLIST(@15) 0467 00540000 * QTFLAG=READTBL; /* READ TABLE @Z40LB25*/ 00541000 MVI QTFLAG(@15),B'00000001' 0468 00542000 * QUPTR=ADDR(DIAGBUF); /* DIAG BUF @Z40LB25*/ 00543000 LA @14,DIAGBUF 0469 00544000 ST @14,QUPTR(,@15) 0469 00545000 * QTTABID=MAPID; /* CELL MAP ID @Z40LB25*/ 00546000 * 0470 00547000 NI QTTABID(@15),B'10011111' 0470 00548000 OI QTTABID(@15),B'10010000' 0470 00549000 * /*************************************************************/ 00550000 * /* */ 00551000 * /* SET THE MSF TO GET THE RECORD OF 5 BLOCKS. @Z40LB25*/ 00552000 * /* */ 00553000 * /*************************************************************/ 00554000 * 0471 00555000 * IF MSFVAL=MSFZERO /* MSF 0? @Z40LB25*/ 00556000 * THEN /* YES @Z40LB25*/ 00557000 L @14,@PC00001+4 0471 00558000 L @01,FDTPTR+24(,@14) 0471 00559000 C @05,MSFVAL(,@01) 0471 00560000 BNE @RF00471 0471 00561000 * RDRECORD=MSF0; /* MSF 0 @Z40LB25*/ 00562000 MVI RDRECORD(@15),B'00000000' 0472 00563000 * IF MSFVAL=MSFONE /* MSF 1? @Z40LB25*/ 00564000 * THEN /* YES @Z40LB25*/ 00565000 @RF00471 L @05,@PC00001+4 0473 00566000 L @05,FDTPTR+24(,@05) 0473 00567000 CLC MSFVAL(4,@05),@CF00218 0473 00568000 BNE @RF00473 0473 00569000 * RDRECORD=MSF1; /* MSF 1 @Z40LB25*/ 00570000 L @05,RDTBLPTR 0474 00571000 MVI RDRECORD(@05),B'00000001' 0474 00572000 * IF MSFVAL=MSFTWO /* @Z40LB25*/ 00573000 * THEN /* YES @Z40LB25*/ 00574000 @RF00473 L @05,@PC00001+4 0475 00575000 L @05,FDTPTR+24(,@05) 0475 00576000 CLC MSFVAL(4,@05),@CF00152 0475 00577000 BNE @RF00475 0475 00578000 * RDRECORD=MSF2; /* @Z40LB25*/ 00579000 L @05,RDTBLPTR 0476 00580000 MVI RDRECORD(@05),B'00000010' 0476 00581000 * IF MSFVAL=MSFTHREE /* @Z40LB25*/ 00582000 * THEN /* YES @Z40LB25*/ 00583000 @RF00475 L @05,@PC00001+4 0477 00584000 L @05,FDTPTR+24(,@05) 0477 00585000 CLC MSFVAL(4,@05),@CF00161 0477 00586000 BNE @RF00477 0477 00587000 * RDRECORD=MSF3; /* @Z40LB25*/ 00588000 * 0478 00589000 L @05,RDTBLPTR 0478 00590000 MVI RDRECORD(@05),B'00000011' 0478 00591000 * /*************************************************************/ 00592000 * /* */ 00593000 * /* SET UP THE DUMP PARM LIST, IF REQUESTED. @Z40LB25*/ 00594000 * /* */ 00595000 * /*************************************************************/ 00596000 * 0479 00597000 * QAREALN=LENGTH(QURYAREA); /* PARM LIST LENGTH @Z40LB25*/ 00598000 @RF00477 LA QAREALN,44 0479 00599000 * IF GDTDBG=NULLPTR THEN 0480 00600000 L @05,@PC00001 0480 00601000 L @05,GDTDBG(,@05) 0480 00602000 LTR @05,@05 0480 00603000 BZ @RT00480 0480 00604000 * ; 0481 00605000 * ELSE 0482 00606000 * DO; 0482 00607000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB25*/ 00608000 LA DMPINDEX,DMPSTG 0483 00609000 * DMPITMNM='QURYAREA'; 0484 00610000 MVC DMPITMNM(8,DMPINDEX),@CC01707 0484 00611000 * DMPITMPT=ADDR(QURYAREA); 0485 00612000 LA @05,QURYAREA 0485 00613000 ST @05,DMPITMPT(,DMPINDEX) 0485 00614000 * DMPITMLN=QAREALN; 0486 00615000 STH QAREALN,DMPITMLN(,DMPINDEX) 0486 00616000 * DMPITMTP='H'; 0487 00617000 MVI DMPITMTP(DMPINDEX),C'H' 0487 00618000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB25 00619000 * QTAB PARM LIST @Z40LB25*/ 00620000 AL DMPINDEX,@CF00473 0488 00621000 * DMPTRM=DMPTRMVL; 0489 00622000 MVI DMPTRM(DMPINDEX),X'FF' 0489 00623000 * END; /* @Z40LB25*/ 00624000 * 0490 00625000 * /*************************************************************/ 00626000 * /* */ 00627000 * /* GET THE CELL CURRENT MAP. @Z40LB25*/ 00628000 * /* THE CELL MAP CONSISTS OF A RECORD OF FIVE @Z40LB25*/ 00629000 * /* BLOCKS. EACH MSF HAS A RECORD OF FIVE BLOCKS. @Z40LB25*/ 00630000 * /* THE FIRST BLOCK IS THE HEADER BLOCK. THE @Z40LB25*/ 00631000 * /* REMAINING FOUR BLOCKS CONTAIN THE CELL MAP @Z40LB25*/ 00632000 * /* DEPENDING ON THE SIZE OF THE MSF. @Z40LB25*/ 00633000 * /* */ 00634000 * /*************************************************************/ 00635000 * 0491 00636000 * BLKNUM=BLOCKINC; /* PUT IN 1ST BLK @Z40LB25*/ 00637000 @RT00480 LA @02,1 0491 00638000 LR BLKNUM,@02 0491 00639000 * BLKCOUNT=BLOCKINC; /* READ 1ST BLOCK @Z40LB25*/ 00640000 LR BLKCOUNT,@02 0492 00641000 * GOODBLCK=ON; /* ERROR DETECT @Z40LB25*/ 00642000 OI GOODBLCK,B'01000000' 0493 00643000 * DO WHILE BLKCOUNT<=CURTMAPS&GOODBLCK=ON;/* @Z40LB25 00644000 * READ BLOCKS @Z40LB25*/ 00645000 B @DE00494 0494 00646000 @DL00494 DS 0H 0495 00647000 * IF GDTDBG=NULLPTR THEN 0495 00648000 L @04,@PC00001 0495 00649000 L @04,GDTDBG(,@04) 0495 00650000 LTR @04,@04 0495 00651000 BZ @RT00495 0495 00652000 * ; 0496 00653000 * ELSE 0497 00654000 * CALL IDCDB010(GDTTBL,'AUAC',ADDR(DMPSTG));/* @Z40LB25*/ 00655000 L @04,@PC00001 0497 00656000 ST @04,@AL00001 0497 00657000 LA @02,@CC01711 0497 00658000 ST @02,@AL00001+4 0497 00659000 LA @02,DMPSTG 0497 00660000 ST @02,@AFTEMPS 0497 00661000 LA @02,@AFTEMPS 0497 00662000 ST @02,@AL00001+8 0497 00663000 MVI @AL00001+8,X'80' 0497 00664000 L @15,GDTDBG(,@04) 0497 00665000 LA @01,@AL00001 0497 00666000 BALR @14,@15 0497 00667000 * CALL IDCSASS0(GDTTBL,RDMSCTBL,RDTBLPTR,REASONCD);/* 0498 00668000 * @Z40LB25*/ 00669000 @RT00495 L @02,@PC00001 0498 00670000 ST @02,@AL00001 0498 00671000 LA @15,RDMSCTBL 0498 00672000 ST @15,@AL00001+4 0498 00673000 LA @15,RDTBLPTR 0498 00674000 ST @15,@AL00001+8 0498 00675000 LA @15,REASONCD 0498 00676000 ST @15,@AL00001+12 0498 00677000 MVI @AL00001+12,X'80' 0498 00678000 L @15,GDTSSC(,@02) 0498 00679000 LA @01,@AL00001 0498 00680000 BALR @14,@15 0498 00681000 * RESPECIFY 0499 00682000 * RTNREG RSTD; 0499 00683000 * TESTRC=RTNREG; 0500 00684000 LR TESTRC,RTNREG 0500 00685000 * RESPECIFY 0501 00686000 * RTNREG UNRSTD; /* @Z40LB25*/ 00687000 * 0501 00688000 * /***********************************************************/ 00689000 * /* */ 00690000 * /* TEST FOR AN ERROR. @Z40LB25*/ 00691000 * /* */ 00692000 * /***********************************************************/ 00693000 * 0502 00694000 * IF TESTRC=4|TESTRC=8 THEN 0502 00695000 C TESTRC,@CF00041 0502 00696000 BE @RT00502 0502 00697000 C TESTRC,@CF00178 0502 00698000 BNE @RF00502 0502 00699000 @RT00502 DS 0H 0503 00700000 * GOODBLCK=OFF; /* @Z40LB25*/ 00701000 * 0503 00702000 NI GOODBLCK,B'10111111' 0503 00703000 * /***********************************************************/ 00704000 * /* */ 00705000 * /* SAVE THE BLOCK. @Z40LB25*/ 00706000 * /* */ 00707000 * /***********************************************************/ 00708000 * 0504 00709000 * ELSE 0504 00710000 * DO; /* @Z40LB25*/ 00711000 B @RC00502 0504 00712000 @RF00502 DS 0H 0505 00713000 * BLKBUF(BLKNUM,1:256)=RECDBUF(1:256);/* @Z40LB25 00714000 * PUT BLOCK TO @Z40LB25*/ 00715000 LR @02,BLKNUM 0505 00716000 MH @02,@CH01665 0505 00717000 LA @01,BLKBUF-264(@02) 0505 00718000 MVC 0(256,@01),RECDBUF 0505 00719000 * BLKBUF(BLKNUM,257:264)=RECDBUF(257:264);/* @Z40LB25 00720000 * TO PARM LIST @Z40LB25*/ 00721000 * 0506 00722000 LA @01,BLKBUF-8(@02) 0506 00723000 MVC 0(8,@01),RECDBUF+256 0506 00724000 * /*******************************************************/ 00725000 * /* */ 00726000 * /* SET UP TO READ THE NEXT BLOCK. @Z40LB25*/ 00727000 * /* */ 00728000 * /*******************************************************/ 00729000 * 0507 00730000 * BLKNUM=BLKNUM+BLOCKINC;/* PUT TO NXT BLK @Z40LB25*/ 00731000 LA @02,1 0507 00732000 ALR BLKNUM,@02 0507 00733000 * RDBLOCK=RDBLOCK+BLOCKINC;/* READ NXT BLK @Z40LB25*/ 00734000 L @15,RDTBLPTR 0508 00735000 SLR @14,@14 0508 00736000 IC @14,RDBLOCK(,@15) 0508 00737000 ALR @14,@02 0508 00738000 STC @14,RDBLOCK(,@15) 0508 00739000 * BLKCOUNT=BLKCOUNT+BLOCKINC;/* LOOP CONTROL @Z40LB25*/ 00740000 ALR BLKCOUNT,@02 0509 00741000 * END; /* @Z40LB25*/ 00742000 * END; /* @Z40LB25*/ 00743000 * 0511 00744000 @RC00502 DS 0H 0511 00745000 @DE00494 C BLKCOUNT,@CF00285 0511 00746000 BH @DC00494 0511 00747000 TM GOODBLCK,B'01000000' 0511 00748000 BO @DL00494 0511 00749000 @DC00494 DS 0H 0512 00750000 * /*************************************************************/ 00751000 * /* */ 00752000 * /* GET THE ORIGINAL CELL MAP. @Z40LB25*/ 00753000 * /* THIS IS THE MAP OF AN MSF WHICH CONTAINS NO @Z40LB25*/ 00754000 * /* CARTRIDGES - AN EMPTY MSF. SINCE MSF SIZE IS NOT @Z40LB25*/ 00755000 * /* RELEVANT, NO HEADER RECORD IN PRESENT. @Z40LB25*/ 00756000 * /* */ 00757000 * /*************************************************************/ 00758000 * 0512 00759000 * IF GOODBLCK=ON THEN 0512 00760000 TM GOODBLCK,B'01000000' 0512 00761000 BNO @RF00512 0512 00762000 * DO; /* @Z40LB25*/ 00763000 * BLKCOUNT=BLOCKINC; /* LOOP CONTROL @Z40LB25*/ 00764000 LA BLKCOUNT,1 0514 00765000 * RDRECORD=ORGCELL; /* ORIG CELL MAP @Z40LB25*/ 00766000 L @02,RDTBLPTR 0515 00767000 MVI RDRECORD(@02),B'00000100' 0515 00768000 * RDBLOCK=RDBLOCK&&RDBLOCK;/* READ 1ST BLOCK @Z40LB25*/ 00769000 XC RDBLOCK(1,@02),RDBLOCK(@02) 0516 00770000 * DO WHILE BLKCOUNT<=ORIGMAPS&GOODBLCK=ON;/* @Z40LB25 00771000 * READ BLOCKS @Z40LB25*/ 00772000 B @DE00517 0517 00773000 @DL00517 DS 0H 0518 00774000 * IF GDTDBG=NULLPTR THEN 0518 00775000 L @04,@PC00001 0518 00776000 L @04,GDTDBG(,@04) 0518 00777000 LTR @04,@04 0518 00778000 BZ @RT00518 0518 00779000 * ; 0519 00780000 * ELSE 0520 00781000 * CALL IDCDB010(GDTTBL,'AUAD',ADDR(DMPSTG));/* @Z40LB25*/ 00782000 L @04,@PC00001 0520 00783000 ST @04,@AL00001 0520 00784000 LA @02,@CC01713 0520 00785000 ST @02,@AL00001+4 0520 00786000 LA @02,DMPSTG 0520 00787000 ST @02,@AFTEMPS 0520 00788000 LA @02,@AFTEMPS 0520 00789000 ST @02,@AL00001+8 0520 00790000 MVI @AL00001+8,X'80' 0520 00791000 L @15,GDTDBG(,@04) 0520 00792000 LA @01,@AL00001 0520 00793000 BALR @14,@15 0520 00794000 * CALL IDCSASS0(GDTTBL,RDMSCTBL,RDTBLPTR,REASONCD);/* 0521 00795000 * @Z40LB25*/ 00796000 @RT00518 L @02,@PC00001 0521 00797000 ST @02,@AL00001 0521 00798000 LA @15,RDMSCTBL 0521 00799000 ST @15,@AL00001+4 0521 00800000 LA @15,RDTBLPTR 0521 00801000 ST @15,@AL00001+8 0521 00802000 LA @15,REASONCD 0521 00803000 ST @15,@AL00001+12 0521 00804000 MVI @AL00001+12,X'80' 0521 00805000 L @15,GDTSSC(,@02) 0521 00806000 LA @01,@AL00001 0521 00807000 BALR @14,@15 0521 00808000 * RESPECIFY 0522 00809000 * RTNREG RSTD; 0522 00810000 * TESTRC=RTNREG; 0523 00811000 LR TESTRC,RTNREG 0523 00812000 * RESPECIFY 0524 00813000 * RTNREG UNRSTD; /* @Z40LB25*/ 00814000 * 0524 00815000 * /*******************************************************/ 00816000 * /* */ 00817000 * /* TEST FOR AN ERROR. @Z40LB25*/ 00818000 * /* */ 00819000 * /*******************************************************/ 00820000 * 0525 00821000 * IF TESTRC=4|TESTRC=8 THEN 0525 00822000 C TESTRC,@CF00041 0525 00823000 BE @RT00525 0525 00824000 C TESTRC,@CF00178 0525 00825000 BNE @RF00525 0525 00826000 @RT00525 DS 0H 0526 00827000 * GOODBLCK=OFF; /* @Z40LB25*/ 00828000 * 0526 00829000 NI GOODBLCK,B'10111111' 0526 00830000 * /*******************************************************/ 00831000 * /* */ 00832000 * /* SAVE THE BLOCK. @Z40LB25*/ 00833000 * /* */ 00834000 * /*******************************************************/ 00835000 * 0527 00836000 * ELSE 0527 00837000 * DO; /* @Z40LB25*/ 00838000 B @RC00525 0527 00839000 @RF00525 DS 0H 0528 00840000 * BLKBUF(BLKNUM,1:256)=RECDBUF(1:256);/* @Z40LB25 00841000 * PUT BLOCK TO @Z40LB25*/ 00842000 LR @02,BLKNUM 0528 00843000 MH @02,@CH01665 0528 00844000 LA @01,BLKBUF-264(@02) 0528 00845000 MVC 0(256,@01),RECDBUF 0528 00846000 * BLKBUF(BLKNUM,257:264)=RECDBUF(257:264);/* @Z40LB25 00847000 * TO PARM LIST @Z40LB25*/ 00848000 * 0529 00849000 LA @01,BLKBUF-8(@02) 0529 00850000 MVC 0(8,@01),RECDBUF+256 0529 00851000 * /***************************************************/ 00852000 * /* */ 00853000 * /* SET UP TO READ THE NEXT BLOCK. @Z40LB25*/ 00854000 * /* */ 00855000 * /***************************************************/ 00856000 * 0530 00857000 * BLKNUM=BLKNUM+BLOCKINC;/* PUT TO NXT BLK @Z40LB25*/ 00858000 LA @02,1 0530 00859000 ALR BLKNUM,@02 0530 00860000 * RDBLOCK=RDBLOCK+BLOCKINC;/* READ NEXT BLOCK 0531 00861000 * @Z40LB25*/ 00862000 L @15,RDTBLPTR 0531 00863000 SLR @14,@14 0531 00864000 IC @14,RDBLOCK(,@15) 0531 00865000 ALR @14,@02 0531 00866000 STC @14,RDBLOCK(,@15) 0531 00867000 * BLKCOUNT=BLKCOUNT+BLOCKINC;/* LOOP CONTROL @Z40LB25*/ 00868000 ALR BLKCOUNT,@02 0532 00869000 * END; /* @Z40LB25*/ 00870000 * END; /* @Z40LB25*/ 00871000 @RC00525 DS 0H 0534 00872000 @DE00517 C BLKCOUNT,@CF00041 0534 00873000 BH @DC00517 0534 00874000 TM GOODBLCK,B'01000000' 0534 00875000 BO @DL00517 0534 00876000 @DC00517 DS 0H 0535 00877000 * END; /* @Z40LB25*/ 00878000 * 0535 00879000 * /*************************************************************/ 00880000 * /* */ 00881000 * /* TEST THE RETURN CODE FROM USSC. IF IT IS @Z40LB25*/ 00882000 * /* A 04, CALL SSCMSG TO PRINT THE MESSAGE FOR @Z40LB25*/ 00883000 * /* THE RETURNED REASON CODE. IF IT IS 04 OR 08 @Z40LB25*/ 00884000 * /* PRINT MESSAGE IDC31140I. @Z40LB25*/ 00885000 * /* */ 00886000 * /*************************************************************/ 00887000 * 0536 00888000 * IF GOODBLCK=OFF THEN 0536 00889000 @RF00512 TM GOODBLCK,B'01000000' 0536 00890000 BNZ @RF00536 0536 00891000 * DO; /* @Z40LB25*/ 00892000 * IF TESTRC=4 THEN 0538 00893000 C TESTRC,@CF00041 0538 00894000 BNE @RF00538 0538 00895000 * CALL SSCMSG(REASONCD);/* @Z40LB25*/ 00896000 LA @05,REASONCD 0539 00897000 ST @05,@AL00001 0539 00898000 LA @01,@AL00001 0539 00899000 BAL @14,SSCMSG 0539 00900000 * IF TESTRC=4|TESTRC=8 THEN 0540 00901000 @RF00538 C TESTRC,@CF00041 0540 00902000 BE @RT00540 0540 00903000 C TESTRC,@CF00178 0540 00904000 BNE @RF00540 0540 00905000 @RT00540 DS 0H 0541 00906000 * DO; /* @Z40LB25*/ 00907000 * LASTCOND=LASTCC12; /* @Z40LB25*/ 00908000 L @15,@PC00001+8 0542 00909000 MVC LASTCOND(2,@15),@CH00567 0542 00910000 * PRINTAB=''B; /* @Z40LB25*/ 00911000 XC PRINTAB(20),PRINTAB 0543 00912000 * DARGSMOD=AUDMSG; /* @Z40LB25*/ 00913000 L @15,DDSTRU 0544 00914000 MVC DARGSMOD(3,@15),@CC01693 0544 00915000 * DARGSENT=MG31141I; /* @Z40LB25*/ 00916000 MVI DARGSENT(@15),X'03' 0545 00917000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB25*/ 00918000 L @15,@PC00001 0546 00919000 ST @15,@AL00001 0546 00920000 LA @14,@CF00114 0546 00921000 ST @14,@AL00001+4 0546 00922000 LA @14,DDSTRU 0546 00923000 ST @14,@AL00001+8 0546 00924000 MVI @AL00001+8,X'80' 0546 00925000 L @15,GDTPRT(,@15) 0546 00926000 LA @01,@AL00001 0546 00927000 BALR @14,@15 0546 00928000 * END; /* @Z40LB25*/ 00929000 * END; /* @Z40LB25*/ 00930000 @RF00540 DS 0H 0549 00931000 * END; /* @Z40LB25*/ 00932000 @RF00536 DS 0H 0550 00933000 * 0550 00934000 * /*****************************************************************/ 00935000 * /* */ 00936000 * /* IF LASTCOND = 0, DUMP THE PARM LIST FOR IDCAU02 @Z40LB25*/ 00937000 * /* OR IDCAU03. @Z40LB25*/ 00938000 * /* */ 00939000 * /*****************************************************************/ 00940000 * 0550 00941000 * IF LASTCOND=LASTCC00 THEN 0550 00942000 @RF00465 SLR @15,@15 0550 00943000 L @14,@PC00001+8 0550 00944000 CH @15,LASTCOND(,@14) 0550 00945000 BNE @RF00550 0550 00946000 * DO; /* @Z40LB25*/ 00947000 * 0551 00948000 * /*************************************************************/ 00949000 * /* */ 00950000 * /* IF REQUESTED, TAKE A FULL REGION DUMP @Z40LB25*/ 00951000 * /* */ 00952000 * /*************************************************************/ 00953000 * 0552 00954000 * IF GDTDBG=NULLPTR THEN 0552 00955000 L @14,@PC00001 0552 00956000 C @15,GDTDBG(,@14) 0552 00957000 BE @RT00552 0552 00958000 * ; 0553 00959000 * ELSE 0554 00960000 * CALL IDCDB010(GDTTBL,'AUAE');/* @Z40LB25*/ 00961000 * 0554 00962000 L @15,@PC00001 0554 00963000 ST @15,@AL00001 0554 00964000 LA @14,@CC01714 0554 00965000 ST @14,@AL00001+4 0554 00966000 MVI @AL00001+4,X'80' 0554 00967000 L @15,GDTDBG(,@15) 0554 00968000 LA @01,@AL00001 0554 00969000 BALR @14,@15 0554 00970000 * /*************************************************************/ 00971000 * /* */ 00972000 * /* CALL IDCAU02 FOR A MAP REPORT OR IDCAU03 FOR @Z40LB25*/ 00973000 * /* A CHECK OR READ REPORT. @Z40LB25*/ 00974000 * /* */ 00975000 * /*************************************************************/ 00976000 * 0555 00977000 * IF ADDR(MAP)^=NULLPTR THEN /* MAP REQUEST? @Z40LB25*/ 00978000 @RT00552 L @15,@PC00001+4 0555 00979000 L @14,FDTPTR(,@15) 0555 00980000 LTR @14,@14 0555 00981000 BZ @RF00555 0555 00982000 * DO; /* YES @Z40LB25*/ 00983000 * CALL IDCAU02(GDTTBL,MSFVAL,BLKPTR,PRINTME);/* @Z40LB25*/ 00984000 L @05,@PC00001 0557 00985000 ST @05,@AL00001 0557 00986000 L @05,FDTPTR+24(,@15) 0557 00987000 ST @05,@AL00001+4 0557 00988000 LA @05,BLKPTR 0557 00989000 ST @05,@AL00001+8 0557 00990000 LA @05,PRINTME 0557 00991000 ST @05,@AL00001+12 0557 00992000 L @15,@CV01703 0557 00993000 LA @01,@AL00001 0557 00994000 BALR @14,@15 0557 00995000 * RESPECIFY 0558 00996000 * RTNREG RSTD; 0558 00997000 * TESTRC=RTNREG; 0559 00998000 LR TESTRC,RTNREG 0559 00999000 * RESPECIFY 0560 01000000 * RTNREG UNRSTD; /* @Z40LB25*/ 01001000 * LASTCOND=TESTRC; /* @Z40LB25*/ 01002000 L @05,@PC00001+8 0561 01003000 STH TESTRC,LASTCOND(,@05) 0561 01004000 * END; /* @Z40LB25*/ 01005000 * ELSE /* CHECK OR READLABEL @Z40LB25 01006000 * REQUEST? @Z40LB25*/ 01007000 * IF ADDR(CHK)^=NULLPTR|ADDR(RDLBL)^=NULLPTR THEN/* @Z40LB25*/ 01008000 B @RC00555 0563 01009000 @RF00555 SLR @15,@15 0563 01010000 L @14,@PC00001+4 0563 01011000 C @15,FDTPTR+4(,@14) 0563 01012000 BNE @RT00563 0563 01013000 C @15,FDTPTR+8(,@14) 0563 01014000 BE @RF00563 0563 01015000 @RT00563 DS 0H 0564 01016000 * DO; /* YES @Z40LB25*/ 01017000 * CALL IDCAU03(GDTTBL,FDTTBL,BLKPTR,/* @Z40LB25*/ 01018000 * PRINTME,LABDSPTR);/* @Z40LB25*/ 01019000 L @05,@PC00001 0565 01020000 ST @05,@AL00001 0565 01021000 L @05,@PC00001+4 0565 01022000 ST @05,@AL00001+4 0565 01023000 LA @05,BLKPTR 0565 01024000 ST @05,@AL00001+8 0565 01025000 LA @05,PRINTME 0565 01026000 ST @05,@AL00001+12 0565 01027000 LA @05,LABDSPTR 0565 01028000 ST @05,@AL00001+16 0565 01029000 L @15,@CV01704 0565 01030000 LA @01,@AL00001 0565 01031000 BALR @14,@15 0565 01032000 * RESPECIFY 0566 01033000 * RTNREG RSTD; 0566 01034000 * TESTRC=RTNREG; 0567 01035000 LR TESTRC,RTNREG 0567 01036000 * RESPECIFY 0568 01037000 * RTNREG UNRSTD; /* @Z40LB25*/ 01038000 * LASTCOND=TESTRC; /* @Z40LB25*/ 01039000 L @05,@PC00001+8 0569 01040000 STH TESTRC,LASTCOND(,@05) 0569 01041000 * END; /* @Z40LB25*/ 01042000 * END; /* @Z40LB25*/ 01043000 @RF00563 DS 0H 0571 01044000 @RC00555 DS 0H 0572 01045000 * 0572 01046000 * /*****************************************************************/ 01047000 * /* */ 01048000 * /* BUILD PARAMETER LIST FOR UPRINT MACRO. IF THE @Z40LB25*/ 01049000 * /* CONDITION CODE IS = 12 THEN MESSAGE IDC3003I @Z40LB25*/ 01050000 * /* IS PRINTED. OTHERWISE, MESSAGE IDC0001I IS @Z40LB25*/ 01051000 * /* PRINTED. @Z40LB25*/ 01052000 * /* */ 01053000 * /*****************************************************************/ 01054000 * 0572 01055000 * PRINTAB=''B; /* @Z40LB25*/ 01056000 @RF00550 XC PRINTAB(20),PRINTAB 0572 01057000 * DARGSMOD=UNIVMSG; /* @Z40LB25*/ 01058000 L @15,DDSTRU 0573 01059000 MVC DARGSMOD(3,@15),@CC01691 0573 01060000 * DARGDBP=ADDR(LASTCOND); /* @Z40LB25*/ 01061000 L @14,@PC00001+8 0574 01062000 ST @14,DARGDBP(,@15) 0574 01063000 * DARGILP=LENGTH(LASTCOND); /* @Z40LB25*/ 01064000 MVC DARGILP(2,@15),@CH00152 0575 01065000 * IF LASTCOND=LASTCC12 THEN /* @Z40LB25*/ 01066000 CLC LASTCOND(2,@14),@CH00567 0576 01067000 BNE @RF00576 0576 01068000 * DARGSENT=MSG3003I; /* @Z40LB25*/ 01069000 MVI DARGSENT(@15),X'03' 0577 01070000 * ELSE /* @Z40LB25*/ 01071000 * DARGSENT=MSG0001I; /* @Z40LB25*/ 01072000 B @RC00576 0578 01073000 @RF00576 L @01,DDSTRU 0578 01074000 MVI DARGSENT(@01),X'01' 0578 01075000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB25*/ 01076000 * 0579 01077000 @RC00576 L @15,@PC00001 0579 01078000 ST @15,@AL00001 0579 01079000 LA @14,@CF00114 0579 01080000 ST @14,@AL00001+4 0579 01081000 LA @14,DDSTRU 0579 01082000 ST @14,@AL00001+8 0579 01083000 MVI @AL00001+8,X'80' 0579 01084000 L @15,GDTPRT(,@15) 0579 01085000 LA @01,@AL00001 0579 01086000 BALR @14,@15 0579 01087000 * /*****************************************************************/ 01088000 * /* */ 01089000 * /* IF PRINTME IS NOT EQUAL TO ZERO THEN THE @Z40LB25*/ 01090000 * /* OUTPUT DATA SET WAS OPENED AND MUST BE CLOSED. @Z40LB25*/ 01091000 * /* */ 01092000 * /*****************************************************************/ 01093000 * 0580 01094000 * IF PRINTME^=NULLPTR THEN 0580 01095000 L @15,PRINTME 0580 01096000 LTR @15,@15 0580 01097000 BZ @RF00580 0580 01098000 * DO; /* @Z40LB25*/ 01099000 * CALL IDCIOCL0(GDTTBL,PRINTME);/* @Z40LB25*/ 01100000 L @05,@PC00001 0582 01101000 ST @05,@AL00001 0582 01102000 LA @15,PRINTME 0582 01103000 ST @15,@AL00001+4 0582 01104000 MVI @AL00001+4,X'80' 0582 01105000 L @15,GDTCLS(,@05) 0582 01106000 LA @01,@AL00001 0582 01107000 BALR @14,@15 0582 01108000 * RESPECIFY 0583 01109000 * RTNREG RSTD; 0583 01110000 * TESTRC=RTNREG; 0584 01111000 LR TESTRC,RTNREG 0584 01112000 * RESPECIFY 0585 01113000 * RTNREG UNRSTD; /* @Z40LB25*/ 01114000 * IF TESTRC^=0 THEN 0586 01115000 LTR TESTRC,TESTRC 0586 01116000 BZ @RF00586 0586 01117000 * LASTCOND=MAX(LASTCOND,LASTCC04);/* @Z40LB25*/ 01118000 L @15,@PC00001+8 0587 01119000 LH @14,LASTCOND(,@15) 0587 01120000 LA @09,4 0587 01121000 CR @14,@09 0587 01122000 BNL *+6 01123000 LR @14,@09 0587 01124000 STH @14,LASTCOND(,@15) 0587 01125000 * END; /* @Z40LB25*/ 01126000 * 0588 01127000 @RF00586 DS 0H 0589 01128000 * /*****************************************************************/ 01129000 * /* */ 01130000 * /* IF LABDSPTR IS NOT EQUAL TO ZERO, THEN THE CARTRIDGE @Z40LB25*/ 01131000 * /* LABEL DATA SET WAS OPENED AND MUST BE CLOSED. @Z40LB25*/ 01132000 * /* */ 01133000 * /*****************************************************************/ 01134000 * 0589 01135000 * IF LABDSPTR^=NULLPTR THEN 0589 01136000 @RF00580 L @15,LABDSPTR 0589 01137000 LTR @15,@15 0589 01138000 BZ @RF00589 0589 01139000 * DO; /* @Z40LB25*/ 01140000 * CALL IDCIOCL0(GDTTBL,LABDSPTR);/* @Z40LB25*/ 01141000 L @05,@PC00001 0591 01142000 ST @05,@AL00001 0591 01143000 LA @15,LABDSPTR 0591 01144000 ST @15,@AL00001+4 0591 01145000 MVI @AL00001+4,X'80' 0591 01146000 L @15,GDTCLS(,@05) 0591 01147000 LA @01,@AL00001 0591 01148000 BALR @14,@15 0591 01149000 * RESPECIFY 0592 01150000 * RTNREG RSTD; 0592 01151000 * TESTRC=RTNREG; 0593 01152000 LR TESTRC,RTNREG 0593 01153000 * RESPECIFY 0594 01154000 * RTNREG UNRSTD; /* @Z40LB25*/ 01155000 * IF TESTRC^=0 THEN 0595 01156000 LTR TESTRC,TESTRC 0595 01157000 BZ @RF00595 0595 01158000 * LASTCOND=MAX(LASTCOND,LASTCC04);/* @Z40LB25*/ 01159000 L @15,@PC00001+8 0596 01160000 LH @14,LASTCOND(,@15) 0596 01161000 LA @09,4 0596 01162000 CR @14,@09 0596 01163000 BNL *+6 01164000 LR @14,@09 0596 01165000 STH @14,LASTCOND(,@15) 0596 01166000 * END; /* @Z40LB25*/ 01167000 * 0597 01168000 @RF00595 DS 0H 0598 01169000 * /*****************************************************************/ 01170000 * /* */ 01171000 * /* SET UP FOR A FULL REGION DUMP AND RETURN TO AMS. @Z40LB25*/ 01172000 * /* */ 01173000 * /*****************************************************************/ 01174000 * 0598 01175000 * IF GDTDBG=NULLPTR THEN 0598 01176000 @RF00589 L @15,@PC00001 0598 01177000 L @15,GDTDBG(,@15) 0598 01178000 LTR @15,@15 0598 01179000 BZ @RT00598 0598 01180000 * ; 0599 01181000 * ELSE 0600 01182000 * CALL IDCDB010(GDTTBL,'AUAZ'); /* @Z40LB25*/ 01183000 L @15,@PC00001 0600 01184000 ST @15,@AL00001 0600 01185000 LA @14,@CC01715 0600 01186000 ST @14,@AL00001+4 0600 01187000 MVI @AL00001+4,X'80' 0600 01188000 L @15,GDTDBG(,@15) 0600 01189000 LA @01,@AL00001 0600 01190000 BALR @14,@15 0600 01191000 * CALL IDCSAEP0(GDTTBL,MODID,LASTCOND); 0601 01192000 * 0601 01193000 @RT00598 L @15,@PC00001 0601 01194000 ST @15,@AL00001 0601 01195000 LA @14,MODID 0601 01196000 ST @14,@AL00001+4 0601 01197000 L @14,@PC00001+8 0601 01198000 ST @14,@AL00001+8 0601 01199000 MVI @AL00001+8,X'80' 0601 01200000 L @15,GDTEPL(,@15) 0601 01201000 LA @01,@AL00001 0601 01202000 BALR @14,@15 0601 01203000 * /*****************************************************************/ 01204000 * /* */ 01205000 * /* @Z40LB25*/ 01206000 * /* */ 01207000 * /*****************************************************************/ 01208000 * 0602 01209000 * 0602 01210000 */***********************************************************@Y30LB39*/ 01211000 */* PROCEDURE NAME - SSCMSG @Y30LB39*/ 01212000 */* @Y30LB39*/ 01213000 */* FUNCTION - THIS ROUTINE PRINTS MESSAGES @Y30LB39*/ 01214000 */* FROM IDCTSSS0 OR IDCTSCM0 AS DICTATED BY THE MSSC @Y30LB39*/ 01215000 */* REASON CODE OR THE ECB POST CODE, EITHER ONE PASSED AS @Y30LB39*/ 01216000 */* INPUT ARGUMENTS. @Y30LB39*/ 01217000 */* @Y30LB39*/ 01218000 */* THE REASON CODE IS PASSED TO THIS ROUTINE FROM THE @Y30LB39*/ 01219000 */* CALLER IN SSRCODE, AND THE ECB POST CODE IS PASSED @Y30LB39*/ 01220000 */* IN SSECBCD. @Y30LB39*/ 01221000 */* @Y30LB39*/ 01222000 */* ONLY ONE MESSAGE IS PRINTED. IF THE REASON CODE @Y30LB39*/ 01223000 */* CONTAINS A NUMBER GREATER THAN ZERO, IT IS USED AS @Y30LB39*/ 01224000 */* THE INDICATION TO CALL UPRINT TO READ IN THE FIRST @Y30LB39*/ 01225000 */* STATIC TEXT ENTRY FROM IDCTSSS0. THAT ENTRY CONTAINS @Y30LB39*/ 01226000 */* AN ARRAY OF THE MESSAGE INDICES USED TO PRINT THE @Y30LB39*/ 01227000 */* MSSC REASON CODE MESSAGE. THE ARRAY IS SCANNED FOR THE @Y30LB39*/ 01228000 */* REASON CODE THAT WAS PASSED AS THE FIRST PARAMETER. @Y30LB39*/ 01229000 */* IF THE ARRAY CONTAINS AN ENTRY WITH THAT VALUE, THE @Y30LB39*/ 01230000 */* ARRAY INDEX IS USED TO PRINT THE MESSAGE. IF THE @Y30LB39*/ 01231000 */* REASON CODE IS NOT FOUND IN THE ARRAY, THE REASON @Y30LB39*/ 01232000 */* CODE IS USED AS BLOCK DATA WHEN PRINTING THE "LAST" @Y30LB39*/ 01233000 */* STATIC TEXT ENTRY IN THE TEXT MODULE. @Y30LB39*/ 01234000 */* @Y30LB39*/ 01235000 */* IF THE REASON CODE FIELD IS ZERO, THE ECB POST CODE @Y30LB39*/ 01236000 */* IS INSERTED AS BLOCK DATA INTO A GENERAL MESSAGE IN @Y30LB39*/ 01237000 */* STATIC TEXT MODULE IDCTSCM0. @Y30LB39*/ 01238000 */* @Y30LB39*/ 01239000 */* INPUT - REASON CODE AS FIRST ARGUMENT, OPTIONALLY THE @Y30LB39*/ 01240000 */* ECB CODE AS THE SECOND ARGUMENT. @Y30LB39*/ 01241000 */* @Y30LB39*/ 01242000 */* OUTPUT - PRINTED MESSAGE AND RETURN CODE OF ZERO. @Y30LB39*/ 01243000 */* @Y30LB39*/ 01244000 */***********************************************************@Y30LB39*/ 01245000 * 0602 01246000 * /* @Y30LB39*/ 01247000 *SSCMSG: 0602 01248000 * PROCEDURE(SSRCODE, /* SSC RETURN CODE @Y30LB39*/ 01249000 * SSECBCD); /* ECB POST CODE @Y30LB39 01250000 * @Y30LB39*/ 01251000 @EL00001 L @13,4(,@13) 0602 01252000 @EF00001 L @00,@SIZDATD 0602 01253000 LR @01,@11 0602 01254000 FREEMAIN R,LV=(0),A=(1) 01255000 @ER00001 LM @14,@12,12(@13) 0602 01256000 BR @14 0602 01257000 SSCMSG STM @14,@12,@SA00002 0602 01258000 MVC @PC00002(8),0(@01) 0602 01259000 * /* @Y30LB39*/ 01260000 * 0603 01261000 * /*****************************************************************/ 01262000 * /* */ 01263000 * /* @Y30LB39*/ 01264000 * /* DECLARATIONS FOR THE SSCMSG PROCEDURE @Y30LB39*/ 01265000 * /* @Y30LB39*/ 01266000 * /* */ 01267000 * /*****************************************************************/ 01268000 * 0603 01269000 * /* @Y30LB39 01270000 * @Y30LB39*/ 01271000 * 0603 01272000 * /*****************************************************************/ 01273000 * /* */ 01274000 * /* @Y30LB39*/ 01275000 * /* THE NEXT TWO DECLARES ARE FOR THE TWO INPUT @Y30LB39*/ 01276000 * /* ARGUMENTS. 1ST - MSSC REASON CODE OR @Y30LB39*/ 01277000 * /* 2ND - MSSC POST CODE @Y30LB39*/ 01278000 * /* @Y30LB39*/ 01279000 * /* */ 01280000 * /*****************************************************************/ 01281000 * 0603 01282000 * /* @Y30LB39*/ 01283000 * DCL 0603 01284000 * 1 SSRCODE FIXED(31), /* @Y30LB39*/ 01285000 * 3 * FIXED(15), /* @Y30LB39*/ 01286000 * 3 SSRHALF FIXED(15); /* 1ST ARG REASON CODE @Y30LB39*/ 01287000 * DCL 0604 01288000 * SSECBCD PTR(8); /* 2ND ARG POST CODE @Y30LB39 01289000 * @Y30LB39 01290000 * @Y30LB39*/ 01291000 * 0604 01292000 * /*****************************************************************/ 01293000 * /* */ 01294000 * /* @Y30LB39*/ 01295000 * /* DECLARE THE DYNAMIC AREA NEEDED TO POINT TO AND @Y30LB39*/ 01296000 * /* CONTAIN THE "LOCAL" PRINT ARGUMENT LIST @Y30LB39*/ 01297000 * /* @Y30LB39*/ 01298000 * /* */ 01299000 * /*****************************************************************/ 01300000 * 0605 01301000 * /* @Y30LB39*/ 01302000 * DCL 0605 01303000 * SSDLPTR PTR(31); /* @Y30LB39*/ 01304000 * DCL 0606 01305000 * SSDRGLT CHAR(LENGTH(DARGLIST));/* @Y30LB39 01306000 * @Y30LB39*/ 01307000 * 0606 01308000 * /*****************************************************************/ 01309000 * /* */ 01310000 * /* @Y30LB39*/ 01311000 * /* THE NEXT DECLARE IS FOR THE INDEX WHICH IS @Y30LB39*/ 01312000 * /* INCREMENTED WHILE SEARCHING THE ARRAY OF @Y30LB39*/ 01313000 * /* REASON CODES AND, UPON FINDING THE CORRECT @Y30LB39*/ 01314000 * /* REASON CODE, IS PASSED TO PRINT MODULE AS THE @Y30LB39*/ 01315000 * /* INDEX OF THE MESSAGE NUMBER TO BE PRINTED. @Y30LB39*/ 01316000 * /* @Y30LB39*/ 01317000 * /* */ 01318000 * /*****************************************************************/ 01319000 * 0607 01320000 * /* @Y30LB39*/ 01321000 * DECLARE 0607 01322000 * ENTRYNUM FIXED(8) UNSIGNED; /* @Y30LB39 01323000 * @Y30LB39*/ 01324000 * 0607 01325000 * /*****************************************************************/ 01326000 * /* */ 01327000 * /* @Y30LB39*/ 01328000 * /* THE NEXT DECLARE IS FOR THE COMMON MESSAGE @Y30LB39*/ 01329000 * /* NUMBER TO IDENTIFY THE ECB POST CODE @Y30LB39*/ 01330000 * /* MESSAGE CONTAINED IN STATIC TEXT MODULE @Y30LB39*/ 01331000 * /* IDCTSCM0. @Y30LB39*/ 01332000 * /* @Y30LB39*/ 01333000 * /* */ 01334000 * /*****************************************************************/ 01335000 * 0608 01336000 * /* @Y30LB39*/ 01337000 * DECLARE 0608 01338000 * SSMSGNUM FIXED(8) STATIC LOCAL INIT(56);/* @Y30LB39 01339000 * @Y30LB39*/ 01340000 * 0608 01341000 * /*****************************************************************/ 01342000 * /* */ 01343000 * /* @Y30LB39*/ 01344000 * /* THE NEXT DECLARE IS FOR THE ARRAY WHICH IS @Y30LB39*/ 01345000 * /* SEARCHED FOR THE REASON CODE CORRESPONDING @Y30LB39*/ 01346000 * /* TO THE MESSAGE INDEX AND ULTIMATELY, THE @Y30LB39*/ 01347000 * /* MESSAGE TEXT TO BE PRINTED TO THE USER TELLING @Y30LB39*/ 01348000 * /* HIM OF THE EXACT REASON FOR THE MSSC FAILURE. @Y30LB39*/ 01349000 * /* @Y30LB39*/ 01350000 * /* */ 01351000 * /*****************************************************************/ 01352000 * 0609 01353000 * /* @Y30LB39*/ 01354000 * DECLARE 0609 01355000 * 1 SSINXLST BDY(WORD), /* @Y30LB39*/ 01356000 * 3 SSARRAY(60) FIXED(15); /* @Y30LB39 01357000 * @Y30LB39*/ 01358000 * 0609 01359000 * /*****************************************************************/ 01360000 * /* */ 01361000 * /* @Y30LB39*/ 01362000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 01363000 * /* USED BY THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 01364000 * /* @Y30LB39*/ 01365000 * /* */ 01366000 * /*****************************************************************/ 01367000 * 0610 01368000 * /* @Y30LB39*/ 01369000 * DECLARE 0610 01370000 * SSMODSS0 CHAR(3) STATIC INIT('SS0');/* @Y30LB39 01371000 * @Y30LB39*/ 01372000 * 0610 01373000 * /*****************************************************************/ 01374000 * /* */ 01375000 * /* @Y30LB39*/ 01376000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 01377000 * /* USED BY THE STATIC TEXT MODULE - IDCTSCMO. @Y30LB39*/ 01378000 * /* @Y30LB39*/ 01379000 * /* */ 01380000 * /*****************************************************************/ 01381000 * 0611 01382000 * /* @Y30LB39*/ 01383000 * DECLARE 0611 01384000 * SSMODCM0 CHAR(3) STATIC INIT('CM0');/* @Y30LB39 01385000 * @Y30LB39*/ 01386000 * /* @Y30LB39*/ 01387000 * 0612 01388000 * /*****************************************************************/ 01389000 * /* */ 01390000 * /* ISSUE UTRACE MACRO TO PROVIDE A TRACK OF FLOW @Y30LB39*/ 01391000 * /* ON CONTROL WITHIN THE SSMSG MODULE. @Y30LB39*/ 01392000 * /* THIS WILL PLACE THE IDENTIFIER SPECIFIED IN @Y30LB39*/ 01393000 * /* A SEPARATE INTRA-MODULE TRACE TABLE. @Y30LB39*/ 01394000 * /* @Y30LB39*/ 01395000 * /* */ 01396000 * /*****************************************************************/ 01397000 * 0612 01398000 * /* @Y30LB39*/ 01399000 * OLDERID2=NEWERID2; 0612 01400000 L @15,@PC00001 0612 01401000 L @14,GDTTR2(,@15) 0612 01402000 MVC @TS00001(95),NEWERID2(@14) 0612 01403000 MVC OLDERID2(95,@14),@TS00001 0612 01404000 * NEWID2='SSAA'; /* @Y30LB39 01405000 * @Y30LB39*/ 01406000 * 0613 01407000 MVC NEWID2(4,@14),@CC01736 0613 01408000 * /*****************************************************************/ 01409000 * /* */ 01410000 * /* @Y30LB39*/ 01411000 * /* ESTABLISH ADDRESSABILITY TO THE DYNAMIC @Y30LB39*/ 01412000 * /* ARGUMENT LIST. @Y30LB39*/ 01413000 * /* @Y30LB39*/ 01414000 * /* */ 01415000 * /*****************************************************************/ 01416000 * 0614 01417000 * /* @Y30LB39*/ 01418000 * SSDLPTR=ADDR(SSDRGLT); /* @Y30LB39 01419000 * @Y30LB39*/ 01420000 * 0614 01421000 LA @14,SSDRGLT 0614 01422000 ST @14,SSDLPTR 0614 01423000 * /*****************************************************************/ 01424000 * /* */ 01425000 * /* @Y30LB39*/ 01426000 * /* IF THE REASON CODE IS NOT ZERO, READ IN THE @Y30LB39*/ 01427000 * /* ARRAY FROM THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 01428000 * /* @Y30LB39*/ 01429000 * /* */ 01430000 * /*****************************************************************/ 01431000 * 0615 01432000 * /* @Y30LB39*/ 01433000 * IF SSRCODE>0 THEN 0615 01434000 L @09,@PC00002 0615 01435000 L @09,SSRCODE(,@09) 0615 01436000 LTR @09,@09 0615 01437000 BNP @RF00615 0615 01438000 * DO; /* @Y30LB39 01439000 * @Y30LB39*/ 01440000 * 0616 01441000 * /*************************************************************/ 01442000 * /* */ 01443000 * /* @Y30LB39*/ 01444000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND @Y30LB39*/ 01445000 * /* INITIALIZE THE PRINT ARGUMENT LIST TO READ @Y30LB39*/ 01446000 * /* IN THE ARRAY WHICH CONTAINS THE MSSC REASON @Y30LB39*/ 01447000 * /* CODES. @Y30LB39*/ 01448000 * /* @Y30LB39*/ 01449000 * /* */ 01450000 * /*************************************************************/ 01451000 * 0617 01452000 * /* @Y30LB39*/ 01453000 * SSDRGLT=''B; /* @Y30LB39*/ 01454000 XC SSDRGLT(20),SSDRGLT 0617 01455000 * SSDLPTR->DARGRETP=ADDR(SSINXLST);/* @Y30LB39*/ 01456000 LA @03,SSINXLST 0618 01457000 ST @03,DARGRETP(,@14) 0618 01458000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 01459000 MVC DARGSMOD(3,@14),SSMODSS0 0619 01460000 * SSDLPTR->DARGSENT=1; /* @Y30LB39*/ 01461000 MVI DARGSENT(@14),X'01' 0620 01462000 * SSDLPTR->DARGRETL=LENGTH(SSINXLST);/* @Y30LB39 01463000 * @Y30LB39*/ 01464000 * 0621 01465000 MVC DARGRETL(2,@14),@CH01739 0621 01466000 * /*************************************************************/ 01467000 * /* */ 01468000 * /* @Y30LB39*/ 01469000 * /* ISSUE UPRINT MACRO TO READ IN THE SEARCH @Y30LB39*/ 01470000 * /* ARRAY. @Y30LB39*/ 01471000 * /* @Y30LB39*/ 01472000 * /* */ 01473000 * /*************************************************************/ 01474000 * 0622 01475000 * /* @Y30LB39*/ 01476000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 01477000 * @Y30LB39*/ 01478000 * 0622 01479000 ST @15,@AL00001 0622 01480000 LA @03,@CF00114 0622 01481000 ST @03,@AL00001+4 0622 01482000 LA @03,SSDLPTR 0622 01483000 ST @03,@AL00001+8 0622 01484000 MVI @AL00001+8,X'80' 0622 01485000 L @15,GDTPRT(,@15) 0622 01486000 LA @01,@AL00001 0622 01487000 BALR @14,@15 0622 01488000 * /*************************************************************/ 01489000 * /* */ 01490000 * /* @Y30LB39*/ 01491000 * /* BEGIN DO LOOP TO SEARCH FOR THE MESSAGE @Y30LB39*/ 01492000 * /* INDEX CORRESPONDING TO THE REASON CODE @Y30LB39*/ 01493000 * /* PASSED AS THE FIRST ARGUMENT. @Y30LB39*/ 01494000 * /* THE DO LOOP BEGINS WITH THE SECOND ARRAY @Y30LB39*/ 01495000 * /* ENTRY SINCE THE FIRST IS REQUIRED BY THE @Y30LB39*/ 01496000 * /* SEARCH ARRAY ITSELF. @Y30LB39*/ 01497000 * /* THE SEARCH CONTINUES UNTIL THE REASON CODE @Y30LB39*/ 01498000 * /* IS FOUND, AT WHICH TIME THE SEARCH INDEX @Y30LB39*/ 01499000 * /* IS PASSED TO THE PRINT MODULE TO PRINT @Y30LB39*/ 01500000 * /* THE MESSAGE ASSOCIATED WITH THAT PARTICULAR @Y30LB39*/ 01501000 * /* REASON CODE. @Y30LB39*/ 01502000 * /* IF THERE IS NO MATCH FOUND IN THE ARRAY, @Y30LB39*/ 01503000 * /* THEN THE INDEX WILL BE THE LAST POSITION IN @Y30LB39*/ 01504000 * /* ARRAY. THIS WILL BE THE INDICATION THAT @Y30LB39*/ 01505000 * /* THE REASON CODE ITSELF SHOULD BE PRINTED. @Y30LB39*/ 01506000 * /* @Y30LB39*/ 01507000 * /* */ 01508000 * /*************************************************************/ 01509000 * 0623 01510000 * /* @Y30LB39*/ 01511000 * ENTRYNUM=1; /* @Y30LB39*/ 01512000 LA ENTRYNUM,1 0623 01513000 * DO UNTIL(SSRHALF=SSARRAY(ENTRYNUM)|SSARRAY(ENTRYNUM)=0); 0624 01514000 @DL00624 DS 0H 0625 01515000 * ENTRYNUM=ENTRYNUM+1; /* @Y30LB39*/ 01516000 AL ENTRYNUM,@CF00218 0625 01517000 * END; /* @Y30LB39 01518000 * @Y30LB39*/ 01519000 * 0626 01520000 @DE00624 L @03,@PC00002 0626 01521000 LR @15,ENTRYNUM 0626 01522000 ALR @15,@15 0626 01523000 LH @15,SSARRAY-2(@15) 0626 01524000 CH @15,SSRHALF(,@03) 0626 01525000 BE @DC00624 0626 01526000 SLR @14,@14 0626 01527000 CR @15,@14 0626 01528000 BNE @DL00624 0626 01529000 @DC00624 DS 0H 0627 01530000 * /*************************************************************/ 01531000 * /* */ 01532000 * /* @Y30LB39*/ 01533000 * /* THE CORRECT INDEX HAS BEEN FOUND @Y30LB39*/ 01534000 * /* @Y30LB39*/ 01535000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND FILL @Y30LB39*/ 01536000 * /* OUT THE PRINT ARGUMENT FIELDS WITH EITHER: @Y30LB39*/ 01537000 * /* 1) THE INDEX CORRESPONDING TO THE REASON @Y30LB39*/ 01538000 * /* CODE OR @Y30LB39*/ 01539000 * /* 2) THE LAST INDEX AND THE REASON CODE @Y30LB39*/ 01540000 * /* ITSELF AS A STATIC TEXT INSERT. @Y30LB39*/ 01541000 * /* @Y30LB39*/ 01542000 * /* */ 01543000 * /*************************************************************/ 01544000 * 0627 01545000 * /* @Y30LB39*/ 01546000 * SSDRGLT=''B; /* @Y30LB39*/ 01547000 XC SSDRGLT(20),SSDRGLT 0627 01548000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 01549000 L @09,SSDLPTR 0628 01550000 MVC DARGSMOD(3,@09),SSMODSS0 0628 01551000 * SSDLPTR->DARGSENT=ENTRYNUM; /* @Y30LB39*/ 01552000 STC ENTRYNUM,DARGSENT(,@09) 0629 01553000 * IF SSARRAY(ENTRYNUM)=0 THEN /* @Y30LB39*/ 01554000 CR @15,@14 0630 01555000 BNE @RF00630 0630 01556000 * DO; /* @Y30LB39*/ 01557000 * SSDLPTR->DARGDBP=ADDR(SSRCODE);/* @Y30LB39*/ 01558000 ST @03,DARGDBP(,@09) 0632 01559000 * SSDLPTR->DARGILP=LENGTH(SSRCODE);/* @Y30LB39*/ 01560000 MVC DARGILP(2,@09),@CH00041 0633 01561000 * END; /* @Y30LB39*/ 01562000 * END; /* @Y30LB39*/ 01563000 * /* @Y30LB39*/ 01564000 * 0636 01565000 * /*****************************************************************/ 01566000 * /* */ 01567000 * /* @Y30LB39*/ 01568000 * /* THE FIRST ARGUMENT WAS ZERO, INDICATING THAT @Y30LB39*/ 01569000 * /* THIS ROUTINE IS TO PRINT OUT THE ECB POST @Y30LB39*/ 01570000 * /* CODE. THEREFORE, CLEAR THE DYNAMIC ARGUMENT @Y30LB39*/ 01571000 * /* LIST AND FILL OUT THE PRINT ARGUMENT FIELDS @Y30LB39*/ 01572000 * /* SO THE STATIC TEXT MODULE, IDCTSCM0, WILL @Y30LB39*/ 01573000 * /* PRINT OUT THE MESSAGE ASSOCIATED WITH THE @Y30LB39*/ 01574000 * /* POST CODE. @Y30LB39*/ 01575000 * /* @Y30LB39*/ 01576000 * /* */ 01577000 * /*****************************************************************/ 01578000 * 0636 01579000 * /* @Y30LB39*/ 01580000 * ELSE /* @Y30LB39*/ 01581000 * DO; /* @Y30LB39*/ 01582000 B @RC00615 0636 01583000 @RF00615 DS 0H 0637 01584000 * SSDRGLT=''B; /* @Y30LB39*/ 01585000 XC SSDRGLT(20),SSDRGLT 0637 01586000 * SSDLPTR->DARGSMOD=SSMODCM0; /* @Y30LB39*/ 01587000 L @15,SSDLPTR 0638 01588000 MVC DARGSMOD(3,@15),SSMODCM0 0638 01589000 * SSDLPTR->DARGSENT=SSMSGNUM; /* @Y30LB39*/ 01590000 MVC DARGSENT(1,@15),SSMSGNUM 0639 01591000 * SSDLPTR->DARGDBP=ADDR(SSECBCD);/* @Y30LB39*/ 01592000 L @14,@PC00002+4 0640 01593000 ST @14,DARGDBP(,@15) 0640 01594000 * SSDLPTR->DARGILP=LENGTH(SSECBCD);/* @Y30LB39*/ 01595000 MVC DARGILP(2,@15),@CH00218 0641 01596000 * END; /* @Y30LB39 01597000 * @Y30LB39*/ 01598000 * 0642 01599000 * /*****************************************************************/ 01600000 * /* */ 01601000 * /* @Y30LB39*/ 01602000 * /* ISSUE UPRINT MACRO TO PRINT THE REASON @Y30LB39*/ 01603000 * /* CODE MESSAGE OR THE ECB POST CODE MESSAGE. @Y30LB39*/ 01604000 * /* @Y30LB39*/ 01605000 * /* */ 01606000 * /*****************************************************************/ 01607000 * 0643 01608000 * /* @Y30LB39*/ 01609000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 01610000 * @Y30LB39*/ 01611000 * 0643 01612000 @RC00615 L @15,@PC00001 0643 01613000 ST @15,@AL00001 0643 01614000 LA @14,@CF00114 0643 01615000 ST @14,@AL00001+4 0643 01616000 LA @14,SSDLPTR 0643 01617000 ST @14,@AL00001+8 0643 01618000 MVI @AL00001+8,X'80' 0643 01619000 L @15,GDTPRT(,@15) 0643 01620000 LA @01,@AL00001 0643 01621000 BALR @14,@15 0643 01622000 * /*****************************************************************/ 01623000 * /* */ 01624000 * /* @Y30LB39*/ 01625000 * /* RETURN TO CALLER WITH A RETURN CODE OF ZERO @Y30LB39*/ 01626000 * /* @Y30LB39*/ 01627000 * /* */ 01628000 * /*****************************************************************/ 01629000 * 0644 01630000 * /* @Y30LB39 01631000 * @Y30LB39*/ 01632000 * RETURN CODE(0); /* @Y30LB39 01633000 * @Y30LB39*/ 01634000 SLR @15,@15 0644 01635000 L @14,@SA00002 0644 01636000 LM @00,@12,@SA00002+8 0644 01637000 BR @14 0644 01638000 * END SSCMSG; /* @Y30LB39*/ 01639000 * END IDCAU01 /* @Z40LB25*/ 01640000 * 0646 01641000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01642000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 01643000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 01644000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 01645000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 01646000 */*%INCLUDE SYSLIB (IDCCSAU ) */ 01647000 */*%INCLUDE SYSLIB (IDCDF11 ) */ 01648000 */*%INCLUDE SYSLIB (IDCDF52 ) */ 01649000 * 0646 01650000 * ; 0646 01651000 @DATA DS 0H 01652000 @CH00567 DC H'12' 01653000 @CH01739 DC H'120' 01654000 @CH01665 DC H'264' 01655000 @DATD DSECT 01656000 DS 0F 01657000 @SA00001 DS 18F 01658000 @PC00001 DS 3F 01659000 @SA00002 DS 15F 01660000 @PC00002 DS 2F 01661000 @AL00001 DS 5A 01662000 @TF00001 DS F 01663000 @AFTEMPS DS 1F 01664000 IDCAU01 CSECT 01665000 DS 0F 01666000 @CF00114 DC F'0' 01667000 @CF00218 DC F'1' 01668000 @CH00218 EQU @CF00218+2 01669000 @CF00152 DC F'2' 01670000 @CH00152 EQU @CF00152+2 01671000 @CF00161 DC F'3' 01672000 @CF00041 DC F'4' 01673000 @CH00041 EQU @CF00041+2 01674000 @CF00285 DC F'5' 01675000 @CF00178 DC F'8' 01676000 @CF00473 DC F'16' 01677000 @CF01234 DC F'256' 01678000 @CF01745 DC F'-8' 01679000 @DATD DSECT 01680000 DS 0D 01681000 LISTSCAN DS A 01682000 IOCSPTR DS A 01683000 DDSTRU DS A 01684000 FSADDR DS A 01685000 ERCNVADR DS A 01686000 CCMSGPTR DS A 01687000 CMMSGPTR DS A 01688000 CTMSGPTR DS A 01689000 ELEMENT DS F 01690000 RDTBLPTR DS A 01691000 VADPTR1 DS A 01692000 VADPTR2 DS A 01693000 VVITPTR1 DS A 01694000 VVITPTR2 DS A 01695000 PSTPTR DS A 01696000 LTRPTR DS A 01697000 VTR1PTR DS A 01698000 RPMPTR DS A 01699000 PABPTR DS A 01700000 DVBPTR DS A 01701000 LPBPTR DS A 01702000 VMXPTR DS A 01703000 VVATPTR DS A 01704000 CBMPTR DS A 01705000 MERPTR DS A 01706000 MVCBPTR DS A 01707000 MVIBPTR DS A 01708000 MVENTPTR DS A 01709000 SCCFPTR DS A 01710000 SCENTPTR DS A 01711000 VICFPTR DS A 01712000 VIENTPTR DS A 01713000 TVCFPTR DS A 01714000 TVENTPTR DS A 01715000 MICPTR DS A 01716000 CDBPTR DS A 01717000 CMCBPTR DS A 01718000 CMENTPTR DS A 01719000 BLKPTR DS A 01720000 PRINTME DS A 01721000 LABDSPTR DS A 01722000 REASONCD DS F 01723000 SSDLPTR DS A 01724000 LISTPTR DS A 01725000 MVPATH# DS H 01726000 CISA# DS H 01727000 CDBVUA# DS H 01728000 SETRC DS H 01729000 LISTLN DS FL1 01730000 @TS00001 DS CL95 01731000 QURYAREA DS CL44 01732000 AU0PLIST DS CL2888 01733000 ORG AU0PLIST 01734000 BLKBUF DS 9CL264 01735000 DIAGBUF DS CL512 01736000 ORG DIAGBUF 01737000 @NM00151 DS CL248 01738000 RECDBUF DS CL264 01739000 ORG AU0PLIST+2888 01740000 FLAGS DS BL1 01741000 ORG FLAGS 01742000 BADMSF DS BL1 01743000 GOODBLCK EQU FLAGS+0 01744000 @NM00152 EQU FLAGS+0 01745000 ORG FLAGS+1 01746000 DS CL3 01747000 PRINTAB DS CL20 01748000 OPENLIST DS BL48 01749000 DMPSTG DS CL17 01750000 SSDRGLT DS CL20 01751000 DS CL3 01752000 SSINXLST DS CL120 01753000 ORG SSINXLST 01754000 SSARRAY DS 60H 01755000 ORG SSINXLST+120 01756000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01757000 @ENDDATD EQU * 01758000 IDCAU01 CSECT 01759000 DS 0F 01760000 @SIZDATD DC AL1(0) 01761000 DC AL3(@ENDDATD-@DATD) 01762000 @CV01703 DC V(IDCAU02) 01763000 @CV01704 DC V(IDCAU03) 01764000 DS 0D 01765000 SSMSGNUM DC AL1(56) 01766000 @CC01707 DC C'QURYAREA' 01767000 @CC01705 DC C'AUAA' 01768000 @CC01709 DC C'AUAB' 01769000 @CC01711 DC C'AUAC' 01770000 @CC01713 DC C'AUAD' 01771000 @CC01714 DC C'AUAE' 01772000 @CC01715 DC C'AUAZ' 01773000 @CC01736 DC C'SSAA' 01774000 @CC01691 DC C'UV0' 01775000 @CC01693 DC C'AU0' 01776000 ALL DC CL3'ALL' 01777000 FORMAT DC CL4'FORM' 01778000 HSECOND DC CL4'HSEC' 01779000 CLOCK DC CL4'KLOK' 01780000 SETZERO DC CL4'ZERO' 01781000 SETBLANK DC CL4'BLNK' 01782000 NOSET DC CL4'NSET' 01783000 OVERRIDE DC CL4'OVRD' 01784000 ACQUIRE DC CL8'ACQUIRE ' 01785000 RELINQ DC CL8'RELINQ ' 01786000 MOUNT DC CL8'MOUNT ' 01787000 DEMOUNT DC CL8'DEMOUNT ' 01788000 DEFINE DC CL8'DEFINE ' 01789000 MOVE DC CL8'MOVE ' 01790000 TRACEQ DC CL8'TRACEQ ' 01791000 COPYTABL DC CL8'COPYTABL' 01792000 COPYCRTG DC CL8'COPYCRTG' 01793000 COPYVOL DC CL8'COPYVOL ' 01794000 VVIC DC CL8'VVIC ' 01795000 TUNE DC CL8'TUNE ' 01796000 NAMES DC CL4'NAME' 01797000 UNIT DC CL4'UNIT' 01798000 SHR DC CL4'SHR ' 01799000 EXCL DC CL4'EXCL' 01800000 NOWAIT DC CL4'NWAI' 01801000 WAIT DC CL4'WAIT' 01802000 SECCHECK DC CL8'SECCHECK' 01803000 SCRVTOC DC CL8'SCRVTOC ' 01804000 GETVTOC DC CL8'GETVTOC ' 01805000 PUTVTOC DC CL8'PUTVTOC ' 01806000 RECATLG DC CL8'RECATLG ' 01807000 INITVOL DC CL8'INITVOL ' 01808000 CHECK DC CL8'CHECK ' 01809000 POSTUCB DC CL8'POSTUCB ' 01810000 GET DC CL8'GET ' 01811000 PUT DC CL8'PUT ' 01812000 CLOSE DC CL8'CLOSE ' 01813000 OPEN DC CL8'OPEN ' 01814000 RVOPENR DC CL8'OPENR ' 01815000 RVRDCNT DC CL8'READCNT ' 01816000 RVREADKD DC CL8'READKD ' 01817000 RVSPACCR DC CL8'SPACCR ' 01818000 RVFWRITE DC CL8'FWRITE ' 01819000 RVWRITER DC CL8'WRITEREC' 01820000 PUTLABEL DC CL8'PUTLABEL' 01821000 GETLABEL DC CL8'GETLABEL' 01822000 CANCEL DC CL8'CANCEL ' 01823000 SET DC CL8'SET ' 01824000 SELECTX DC CL8'SELECTX ' 01825000 CHANGEX DC CL8'CHANGEX ' 01826000 SELECTDD DC CL8'SELECTDD' 01827000 SELECTDS DC CL8'SELECTDS' 01828000 TBLREST DC CL8'TBLREST ' 01829000 NULLIFYC DC CL8'NULLIFYC' 01830000 RDMSC DC CL8'RDMSC ' 01831000 RDMSCTBL DC CL8'RDMSCTBL' 01832000 RDCARTLB DC CL8'RDCARTLB' 01833000 AUDITCEL DC CL8'AUDITCEL' 01834000 RDSTGAD DC CL8'RDSTGAD ' 01835000 MODID DC CL4'AU01' 01836000 FIXAREA DS CL250 01837000 ORG FIXAREA 01838000 @NM00153 DC 250X'00' 01839000 ORG FIXAREA+250 01840000 SSMODSS0 DC CL3'SS0' 01841000 SSMODCM0 DC CL3'CM0' 01842000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01843000 @01 EQU 01 01844000 @02 EQU 02 01845000 @03 EQU 03 01846000 @04 EQU 04 01847000 @05 EQU 05 01848000 @06 EQU 06 01849000 @07 EQU 07 01850000 @08 EQU 08 01851000 @09 EQU 09 01852000 @10 EQU 10 01853000 @11 EQU 11 01854000 @12 EQU 12 01855000 @13 EQU 13 01856000 @14 EQU 14 01857000 @15 EQU 15 01858000 ENTRYNUM EQU @02 01859000 I EQU @02 01860000 CIENTPTR EQU @05 01861000 BLKNUM EQU @05 01862000 BLKCOUNT EQU @03 01863000 QAREALN EQU @03 01864000 DMPINDEX EQU @02 01865000 OPNPTR EQU @03 01866000 TESTRC EQU @04 01867000 REG10 EQU @10 01868000 REG12 EQU @12 01869000 RTNREG EQU @15 01870000 QUERR1 EQU @01 01871000 REG0 EQU @00 01872000 REG1 EQU @01 01873000 REG11 EQU @11 01874000 REG13 EQU @13 01875000 REG14 EQU @14 01876000 REG15 EQU @15 01877000 REG2 EQU @02 01878000 REG3 EQU @03 01879000 REG4 EQU @04 01880000 REG5 EQU @05 01881000 REG6 EQU @06 01882000 REG7 EQU @07 01883000 REG8 EQU @08 01884000 REG9 EQU @09 01885000 IDCSAEP0 EQU 0 01886000 IDCSASS0 EQU 0 01887000 TRACE1 EQU 0 01888000 OLDERID1 EQU TRACE1 01889000 TRACE2 EQU 0 01890000 OLDERID2 EQU TRACE2 01891000 NEWID2 EQU TRACE2+95 01892000 NEWERID2 EQU 5 01893000 CIRAGL EQU 0 01894000 CIRTYPE EQU CIRAGL 01895000 ALLAGL EQU 0 01896000 ALLSTS EQU ALLAGL+24 01897000 ALLDSP EQU ALLAGL+25 01898000 ALLORG EQU ALLAGL+26 01899000 ALLOPT EQU ALLAGL+28 01900000 UNITABL EQU 0 01901000 UNITADR EQU UNITABL+4 01902000 @NM00010 EQU UNITADR 01903000 UNITSTAT EQU UNITABL+6 01904000 IDCIOOP0 EQU 0 01905000 IDCIOCL0 EQU 0 01906000 IOCSTR EQU 0 01907000 IOCDSO EQU IOCSTR+16 01908000 IOCRFM EQU IOCSTR+17 01909000 IOCMAC EQU IOCSTR+18 01910000 IOCMAC2 EQU IOCSTR+19 01911000 IOCCHP EQU IOCSTR+20 01912000 IOCMSG EQU IOCSTR+21 01913000 IOCRBA EQU IOCSTR+40 01914000 IOCTTR EQU IOCRBA 01915000 IOCMEM EQU IOCSTR+44 01916000 IOCNWM EQU IOCSTR+48 01917000 OPNAGL EQU 0 01918000 OPNOPT EQU OPNAGL 01919000 OPNOPTOT EQU OPNOPT 01920000 OPNRFM EQU OPNAGL+1 01921000 OPNRFMFX EQU OPNRFM 01922000 OPNRFMBK EQU OPNRFM 01923000 OPNTYP EQU OPNAGL+2 01924000 OPNMOD EQU OPNAGL+3 01925000 OPNMODAC EQU OPNMOD 01926000 OPNIOC EQU OPNAGL+4 01927000 OPNDDN EQU OPNAGL+8 01928000 OPNDSN EQU OPNAGL+16 01929000 OPNDEV EQU OPNAGL+24 01930000 OPNREC EQU OPNAGL+32 01931000 OPNDSO EQU OPNAGL+41 01932000 OPNOPT2 EQU OPNAGL+42 01933000 IOINFOPT EQU 0 01934000 UVOLLIST EQU 0 01935000 UVOLENT EQU UVOLLIST+2 01936000 AMSTP011 EQU 0 01937000 DARGLIST EQU 0 01938000 DARGDBP EQU DARGLIST 01939000 DARGRETP EQU DARGLIST+4 01940000 DARGSTID EQU DARGLIST+8 01941000 DARGSMOD EQU DARGSTID 01942000 DARGSENT EQU DARGSTID+3 01943000 DARGILP EQU DARGLIST+12 01944000 DARGRETL EQU DARGLIST+16 01945000 DARGARY EQU DARGLIST+20 01946000 DARGINS EQU DARGARY 01947000 DARGINL EQU DARGARY+2 01948000 FMTLIST EQU 0 01949000 FMTFLGS EQU FMTLIST 01950000 FMTSPF EQU FMTLIST+2 01951000 FMTRFNO EQU FMTSPF 01952000 FMTILEN EQU FMTRFNO 01953000 FMTIOFF EQU FMTLIST+4 01954000 FMTTRBC EQU FMTIOFF 01955000 FMTSTO EQU FMTTRBC 01956000 FMTOCOL EQU FMTLIST+6 01957000 FMTCNVF EQU FMTLIST+10 01958000 ERCNVTAB EQU 0 01959000 ERTYPE EQU ERCNVTAB 01960000 EROPER EQU ERCNVTAB+1 01961000 EROSOPER EQU ERCNVTAB+2 01962000 IDCDB010 EQU 0 01963000 DMPITM EQU 0 01964000 DMPITMNM EQU DMPITM 01965000 DMPITMPT EQU DMPITM+8 01966000 DMPITMLN EQU DMPITM+12 01967000 DMPITMTP EQU DMPITM+14 01968000 DMPARY EQU 0 01969000 DMPTRM EQU 0 01970000 CCMSG EQU 0 01971000 CMMSG EQU 0 01972000 CMVOLFLG EQU CMMSG+6 01973000 CTMSG EQU 0 01974000 CTARRAY EQU CTMSG+4 01975000 MDAGL EQU 0 01976000 MDFLAGS EQU MDAGL+30 01977000 MDVTOC EQU MDAGL+32 01978000 PUAGL EQU 0 01979000 CKAGL EQU 0 01980000 CKFLAGS EQU CKAGL+28 01981000 EXCLAGL EQU 0 01982000 EXCLFLAG EQU EXCLAGL+22 01983000 EXOARG EQU 0 01984000 EXOPT EQU EXOARG+32 01985000 EXFLG EQU EXOARG+33 01986000 EXGARG EQU 0 01987000 EXWRARG EQU 0 01988000 EXRWCHR EQU EXWRARG+26 01989000 EXSPACE EQU EXWRARG+36 01990000 EXPARG EQU 0 01991000 EXPDATA EQU EXPARG+12 01992000 EXPDATAB EQU 0 01993000 EXPARRAY EQU EXPDATAB+4 01994000 VS2AGL EQU 0 01995000 VSLABOPT EQU VS2AGL+28 01996000 VS2MSG EQU VS2AGL+35 01997000 VS2RESOP EQU VS2AGL+36 01998000 VS1AGL EQU 0 01999000 VSSECOPT EQU VS1AGL+68 02000000 VSVTOPT EQU VS1AGL+69 02001000 VSCATOPT EQU VS1AGL+70 02002000 VSRETURN EQU VS1AGL+71 02003000 VSMSG EQU VS1AGL+72 02004000 VSRESOPT EQU VS1AGL+73 02005000 RCTAGL EQU 0 02006000 RCTOPT EQU RCTAGL+8 02007000 STAEPARM EQU 0 02008000 STARCVY EQU STAEPARM+52 02009000 STARETRY EQU STAEPARM+53 02010000 VOLLABEL EQU 0 02011000 SV82LIST EQU 0 02012000 @NM00072 EQU SV82LIST+4 02013000 SV82DCBP EQU @NM00072 02014000 @NM00073 EQU SV82LIST+12 02015000 SV82WRKP EQU @NM00073 02016000 SRTAGL EQU 0 02017000 LCTINFO EQU 0 02018000 LCTFLAGS EQU LCTINFO+32 02019000 UCTAGL EQU 0 02020000 UCTFLAGS EQU UCTAGL+68 02021000 SELAGL EQU 0 02022000 SELFLAGS EQU SELAGL+22 02023000 DATESAGL EQU 0 02024000 DATESOPT EQU DATESAGL+20 02025000 VS3AGL EQU 0 02026000 VS3FLAGS EQU VS3AGL+58 02027000 VSDVTOC EQU 0 02028000 VSDSTAT EQU 0 02029000 VSDSFLG1 EQU VSDSTAT+16 02030000 VSDFLG2 EQU VSDSTAT+17 02031000 VSDSCR EQU 0 02032000 VSDSCRFL EQU VSDSCR+4 02033000 VSDUSAGE EQU 0 02034000 VSDDORG EQU VSDUSAGE+9 02035000 VSDALLOC EQU VSDUSAGE+10 02036000 VSDUSEF EQU VSDUSAGE+11 02037000 VSDDSORG EQU VSDUSAGE+16 02038000 VSDBLOCK EQU 0 02039000 VSDSPACE EQU VSDBLOCK+12 02040000 VSDARRAY EQU VSDBLOCK+16 02041000 VSDVARY EQU VSDARRAY+48 02042000 MAP EQU 0 02043000 CHK EQU 0 02044000 RDLBL EQU 0 02045000 MSF EQU 0 02046000 MSFVAL EQU MSF 02047000 LOWX EQU 0 02048000 HIGHX EQU 0 02049000 CELLX EQU 0 02050000 CELLY EQU 0 02051000 CELLZ EQU 0 02052000 OFILE EQU 0 02053000 OFILEVAL EQU OFILE+1 02054000 ODS EQU 0 02055000 ODSFLG EQU ODS+10 02056000 ODSVAL EQU ODS+21 02057000 LFILE EQU 0 02058000 LFILEVAL EQU LFILE+1 02059000 LDS EQU 0 02060000 LDSFLG EQU LDS+10 02061000 LDSVAL EQU LDS+21 02062000 RDTBLIST EQU 0 02063000 QUCODE EQU RDTBLIST+6 02064000 QUSECT EQU RDTBLIST+7 02065000 QUXADDR EQU QUSECT 02066000 QUFLAG EQU QUXADDR 02067000 QUPARM EQU RDTBLIST+8 02068000 QUPTR EQU RDTBLIST+40 02069000 VADWORD1 EQU 0 02070000 VADRUA EQU VADWORD1+2 02071000 VADWORD2 EQU 0 02072000 VADRPNUM EQU VADWORD2 02073000 VADLUA EQU VADWORD2+1 02074000 VADFLAGS EQU VADWORD2+3 02075000 VVITBYT1 EQU 0 02076000 VVITBYT2 EQU 0 02077000 PST EQU 0 02078000 LTR EQU 0 02079000 LTRRUA EQU LTR 02080000 VTABLER1 EQU 0 02081000 @NM00094 EQU VTABLER1+8 02082000 VTTBLCHR EQU VTABLER1+16 02083000 VTSDGID EQU VTABLER1+80 02084000 VTUCB EQU VTABLER1+144 02085000 VTFLAGS EQU VTUCB 02086000 VTTRCCHR EQU VTABLER1+220 02087000 VTLRUCW EQU VTABLER1+236 02088000 VTRVPAGE EQU VTABLER1+240 02089000 RPM EQU 0 02090000 RPMFLAGS EQU RPM 02091000 PAB EQU 0 02092000 PABSA EQU PAB+16 02093000 @NM00104 EQU PAB+32 02094000 @NM00105 EQU PAB+192 02095000 PABFLAGS EQU @NM00105 02096000 PABRINTF EQU @NM00105+1 02097000 PABORUA EQU @NM00105+2 02098000 DVB EQU 0 02099000 DVBMVT EQU DVB+4 02100000 LPB EQU 0 02101000 LPBMVT EQU LPB+4 02102000 VMX EQU 0 02103000 VMXFLAGS EQU VMX 02104000 VVAT EQU 0 02105000 CBMAP EQU 0 02106000 MERECORD EQU 0 02107000 @NM00111 EQU MERECORD 02108000 MEFLAGS EQU @NM00111 02109000 @NM00113 EQU MERECORD+128 02110000 MVCTLBLK EQU 0 02111000 MVIDXBLK EQU 0 02112000 MVIFLAGS EQU MVIDXBLK 02113000 @NM00116 EQU MVIDXBLK+8 02114000 MVENTRY EQU 0 02115000 MVVFLAGS EQU MVENTRY+6 02116000 MVMFLAGS EQU MVENTRY+12 02117000 MVRESRVE EQU MVENTRY+14 02118000 MVVAMSG EQU MVENTRY+17 02119000 @NM00125 EQU MVENTRY+20 02120000 MVSA EQU @NM00125 02121000 MVCPUIDS EQU @NM00125+1 02122000 MVVUAS EQU @NM00125+5 02123000 @NM00127 EQU MVENTRY+52 02124000 MVLOGDEV EQU @NM00127 02125000 MVVUA EQU 0 02126000 SCCTLFLD EQU 0 02127000 SCCOMLEN EQU SCCTLFLD 02128000 SCCFLAGS EQU SCCOMLEN 02129000 SCTRKPTR EQU SCCTLFLD+4 02130000 SCENTRY EQU 0 02131000 VICTLFLD EQU 0 02132000 VICFLAGS EQU VICTLFLD 02133000 VITRKPTR EQU VICTLFLD+4 02134000 VIENTRY EQU 0 02135000 VIVFLAGS EQU VIENTRY+6 02136000 TVCTLFLD EQU 0 02137000 TVCOMLEN EQU TVCTLFLD 02138000 TVCFLAGS EQU TVCOMLEN 02139000 TVTRKPTR EQU TVCTLFLD+4 02140000 TVENTRY EQU 0 02141000 TVVFLAGS EQU TVENTRY+22 02142000 CIENTRY EQU 0 02143000 CICSCNCT EQU CIENTRY 02144000 CIMSF EQU CICSCNCT 02145000 CIMSF1 EQU CICSCNCT 02146000 CIMSF2 EQU CICSCNCT 02147000 CIMSF3 EQU CICSCNCT 02148000 CISACHNL EQU CIENTRY+2 02149000 @NM00142 EQU 0 02150000 CICUCHL EQU @NM00142+1 02151000 MICTABLE EQU 0 02152000 @NM00144 EQU MICTABLE 02153000 MICFLAG1 EQU @NM00144+6 02154000 MICFLAG2 EQU @NM00144+7 02155000 CDBLOCK EQU 0 02156000 @NM00148 EQU CDBLOCK 02157000 CDBSDG EQU @NM00148 02158000 CDBCNFIG EQU CDBSDG 02159000 CDBPATHS EQU @NM00148+1 02160000 CMCTLBLK EQU 0 02161000 CMENTRY EQU 0 02162000 AMSTP041 EQU 0 02163000 AMSTP042 EQU 0 02164000 AMSTP043 EQU 0 02165000 AMSTP044 EQU 0 02166000 CELL EQU 0 02167000 CELLCNT EQU 0 02168000 CELLXPTR EQU 0 02169000 CELLYPTR EQU 0 02170000 CELLZPTR EQU 0 02171000 CHALL EQU 0 02172000 EMPTY EQU 0 02173000 FULL EQU 0 02174000 HIGHXPTR EQU 0 02175000 IDCIOCO0 EQU 0 02176000 IDCIOGT0 EQU 0 02177000 IDCIOIT0 EQU 0 02178000 IDCIOPO0 EQU 0 02179000 IDCIOPT0 EQU 0 02180000 IDCIOSI0 EQU 0 02181000 IDCIOST0 EQU 0 02182000 IDCIOTM0 EQU 0 02183000 IDCIOVY0 EQU 0 02184000 IDCIO050 EQU 0 02185000 IDCSAAL0 EQU 0 02186000 IDCSACA0 EQU 0 02187000 IDCSACL0 EQU 0 02188000 IDCSACR0 EQU 0 02189000 IDCSADE0 EQU 0 02190000 IDCSADL0 EQU 0 02191000 IDCSADQ0 EQU 0 02192000 IDCSAFP0 EQU 0 02193000 IDCSAFS0 EQU 0 02194000 IDCSAGP0 EQU 0 02195000 IDCSAGS0 EQU 0 02196000 IDCSAID0 EQU 0 02197000 IDCSALC0 EQU 0 02198000 IDCSALD0 EQU 0 02199000 IDCSALK0 EQU 0 02200000 IDCSANQ0 EQU 0 02201000 IDCSAPR0 EQU 0 02202000 IDCSAPT0 EQU 0 02203000 IDCSAQL0 EQU 0 02204000 IDCSARC0 EQU 0 02205000 IDCSARV0 EQU 0 02206000 IDCSASC0 EQU 0 02207000 IDCSASI0 EQU 0 02208000 IDCSASN0 EQU 0 02209000 IDCSAST0 EQU 0 02210000 IDCSATI0 EQU 0 02211000 IDCSAUC0 EQU 0 02212000 IDCSAWO0 EQU 0 02213000 IDCSA060 EQU 0 02214000 IDCST010 EQU 0 02215000 IDCTPER0 EQU 0 02216000 LIST EQU 0 02217000 LISTTEST EQU 0 02218000 LOWXPTR EQU 0 02219000 MVCPUID EQU 0 02220000 NEWERID1 EQU 5 02221000 NLIST EQU 0 02222000 XRNG EQU 0 02223000 XRNGCNT EQU 0 02224000 GDTTBL EQU 0 02225000 GDTTR1 EQU GDTTBL+8 02226000 GDTTR2 EQU GDTTBL+12 02227000 GDTDBG EQU GDTTBL+40 02228000 GDTSTC EQU GDTTBL+44 02229000 GDTPRT EQU GDTTBL+48 02230000 GDTESS EQU GDTTBL+52 02231000 GDTESA EQU GDTTBL+56 02232000 GDTRST EQU GDTTBL+60 02233000 GDTRES EQU GDTTBL+64 02234000 GDTCAL EQU GDTTBL+68 02235000 GDTGSP EQU GDTTBL+72 02236000 GDTFSP EQU GDTTBL+76 02237000 GDTGPL EQU GDTTBL+80 02238000 GDTFPL EQU GDTTBL+84 02239000 GDTLOD EQU GDTTBL+88 02240000 GDTDEL EQU GDTTBL+92 02241000 GDTPRL EQU GDTTBL+96 02242000 GDTEPL EQU GDTTBL+100 02243000 GDTTIM EQU GDTTBL+104 02244000 GDTIIO EQU GDTTBL+108 02245000 GDTTIO EQU GDTTBL+112 02246000 GDTOPN EQU GDTTBL+124 02247000 GDTCLS EQU GDTTBL+128 02248000 GDTGET EQU GDTTBL+132 02249000 GDTPUT EQU GDTTBL+136 02250000 GDTPOS EQU GDTTBL+140 02251000 GDTCPY EQU GDTTBL+144 02252000 GDTCAT EQU GDTTBL+148 02253000 GDTSNP EQU GDTTBL+164 02254000 GDTVFY EQU GDTTBL+172 02255000 GDTUID EQU GDTTBL+192 02256000 GDTPMT EQU GDTTBL+196 02257000 GDTCIR EQU GDTTBL+200 02258000 GDTLNK EQU GDTTBL+204 02259000 GDTALC EQU GDTTBL+208 02260000 GDTDLC EQU GDTTBL+212 02261000 GDTQAL EQU GDTTBL+216 02262000 GDTSTW EQU GDTTBL+220 02263000 GDTSSC EQU GDTTBL+224 02264000 GDTENQ EQU GDTTBL+228 02265000 GDTRSV EQU GDTTBL+232 02266000 GDTDEQ EQU GDTTBL+236 02267000 GDTSFO EQU GDTTBL+240 02268000 GDTWTO EQU GDTTBL+244 02269000 GDTSCR EQU GDTTBL+248 02270000 GDTUNT EQU GDTTBL+252 02271000 GDTRCT EQU GDTTBL+256 02272000 GDTIFO EQU GDTTBL+260 02273000 GDTEXP EQU GDTTBL+264 02274000 GDTSTA EQU GDTTBL+268 02275000 GDTERR EQU GDTTBL+272 02276000 GDTUNC EQU GDTTBL+276 02277000 GDTLOC EQU GDTTBL+280 02278000 FDTTBL EQU 0 02279000 FDTPTR EQU FDTTBL+8 02280000 LASTCOND EQU 0 02281000 SSRCODE EQU 0 02282000 SSRHALF EQU SSRCODE+2 02283000 SSECBCD EQU 0 02284000 QWPARM EQU QUPARM 02285000 QWRES1 EQU QWPARM 02286000 QWFLAG EQU QWPARM+2 02287000 QTPARM EQU QUPARM 02288000 QTID EQU QTPARM 02289000 QTTABID EQU QTID 02290000 QTFLAG EQU QTPARM+1 02291000 QTDATA EQU QTPARM+2 02292000 QLPARM EQU QUPARM 02293000 QCPARM EQU QUPARM 02294000 QTCONFTB EQU QTDATA 02295000 CONFIG EQU QTCONFTB 02296000 QTCELMAP EQU QTDATA 02297000 RDBLOCK EQU QTCELMAP 02298000 RDRECORD EQU QTCELMAP+1 02299000 * START UNREFERENCED COMPONENTS 02300000 @NM00093 EQU QTCELMAP+2 02301000 @NM00092 EQU QTCONFTB+1 02302000 QCMAD3Z1 EQU QCPARM+28 02303000 QCMAD3Z0 EQU QCPARM+24 02304000 QCMAD2Z1 EQU QCPARM+20 02305000 QCMAD2Z0 EQU QCPARM+16 02306000 QCMAD1Z1 EQU QCPARM+12 02307000 QCMAD1Z0 EQU QCPARM+8 02308000 QCMAD0Z1 EQU QCPARM+4 02309000 QCMAD0Z0 EQU QCPARM 02310000 QLRES EQU QLPARM+2 02311000 QLZYX EQU QLPARM 02312000 QTRES EQU QTPARM+24 02313000 QTDASCHR EQU QTPARM+20 02314000 QWRES2 EQU QWPARM+3 02315000 @NM00091 EQU QWFLAG 02316000 QWMEM EQU QWFLAG 02317000 QWSSID EQU QWRES1 02318000 @NM00154 EQU SSRCODE 02319000 FDTVERB EQU FDTTBL 02320000 GDTECT EQU GDTTBL+188 02321000 GDTPSB EQU GDTTBL+184 02322000 GDTUPT EQU GDTTBL+180 02323000 GDTCMB EQU GDTTBL+176 02324000 GDTSPR EQU GDTTBL+168 02325000 @NM00001 EQU GDTTBL+160 02326000 GDTABH EQU GDTTBL+156 02327000 GDTABT EQU GDTTBL+152 02328000 GDTTOH EQU GDTTBL+120 02329000 GDTRIP EQU GDTTBL+116 02330000 GDTIOH EQU GDTTBL+36 02331000 GDTSAH EQU GDTTBL+32 02332000 GDTTPH EQU GDTTBL+28 02333000 GDTRIH EQU GDTTBL+24 02334000 GDTSTH EQU GDTTBL+20 02335000 GDTDBH EQU GDTTBL+16 02336000 GDTPRM EQU GDTTBL+4 02337000 GDTHDR EQU GDTTBL 02338000 CMX3Z1 EQU CMENTRY 02339000 CMX3Z0 EQU CMENTRY 02340000 CMX2Z1 EQU CMENTRY 02341000 CMX2Z0 EQU CMENTRY 02342000 CMX1Z1 EQU CMENTRY 02343000 CMX1Z0 EQU CMENTRY 02344000 CMX0Z1 EQU CMENTRY 02345000 CMX0Z0 EQU CMENTRY 02346000 CMCPTRS EQU CMCTLBLK+22 02347000 CMCFLAGS EQU CMCTLBLK 02348000 CDBMVTP EQU @NM00148+2 02349000 CDBSA2D EQU CDBPATHS 02350000 CDBSA2C EQU CDBPATHS 02351000 CDBSA2B EQU CDBPATHS 02352000 @NM00150 EQU CDBPATHS 02353000 CDBSA1D EQU CDBPATHS 02354000 CDBSA1C EQU CDBPATHS 02355000 CDBSA1B EQU CDBPATHS 02356000 @NM00149 EQU CDBPATHS 02357000 CDB3333 EQU CDBCNFIG 02358000 CDBINUSE EQU CDBCNFIG 02359000 CDBNOSHR EQU CDBCNFIG 02360000 MICAINTF EQU MICFLAG2 02361000 @NM00147 EQU MICFLAG2 02362000 MICCMB EQU MICFLAG2 02363000 MICCURMP EQU MICFLAG2 02364000 MICVALID EQU MICFLAG2 02365000 MICINTF EQU MICFLAG1 02366000 @NM00146 EQU MICFLAG1 02367000 MICAPATH EQU MICFLAG1 02368000 MICPOTMP EQU MICFLAG1 02369000 @NM00145 EQU MICFLAG1 02370000 MICMPCPU EQU @NM00144+5 02371000 MICMFID EQU @NM00144 02372000 CICHL EQU CICUCHL 02373000 @NM00143 EQU CICUCHL 02374000 CICU EQU CICUCHL 02375000 CICPUID EQU @NM00142 02376000 @NM00141 EQU CIENTRY+1 02377000 CIMSF0 EQU CICSCNCT 02378000 @NM00140 EQU CICSCNCT 02379000 @NM00139 EQU TVENTRY+23 02380000 @NM00138 EQU TVVFLAGS 02381000 TVWRTINH EQU TVVFLAGS 02382000 TVBNDVOL EQU TVVFLAGS 02383000 TVSCRCTG EQU TVVFLAGS 02384000 TVEXCVOL EQU TVVFLAGS 02385000 TVSECVOL EQU TVVFLAGS 02386000 @NM00137 EQU TVVFLAGS 02387000 TVCECTG EQU TVVFLAGS 02388000 TVVOLID EQU TVENTRY+16 02389000 TVCSN EQU TVENTRY+4 02390000 TVLZYX2 EQU TVENTRY+2 02391000 TVLZYX1 EQU TVENTRY 02392000 TVREC EQU TVTRKPTR+3 02393000 TVHEAD EQU TVTRKPTR+2 02394000 TVCYL EQU TVTRKPTR+1 02395000 @NM00136 EQU TVTRKPTR 02396000 TVENTNUM EQU TVCTLFLD+3 02397000 TVENTMAX EQU TVCTLFLD+2 02398000 TVENTLEN EQU TVCTLFLD+1 02399000 TVLSTTRK EQU TVCFLAGS 02400000 TVENDTRK EQU TVCFLAGS 02401000 TVLSTACT EQU TVCFLAGS 02402000 TVLSTBLK EQU TVCFLAGS 02403000 VILZYX2 EQU VIENTRY+10 02404000 VILZYX1 EQU VIENTRY+8 02405000 @NM00135 EQU VIENTRY+7 02406000 @NM00134 EQU VIVFLAGS 02407000 VIWRTINH EQU VIVFLAGS 02408000 VIBNDVOL EQU VIVFLAGS 02409000 VISCRCTG EQU VIVFLAGS 02410000 VIEXCVOL EQU VIVFLAGS 02411000 VISECVOL EQU VIVFLAGS 02412000 @NM00133 EQU VIVFLAGS 02413000 VICECTG EQU VIVFLAGS 02414000 VIVOLID EQU VIENTRY 02415000 VIREC EQU VITRKPTR+3 02416000 VIHEAD EQU VITRKPTR+2 02417000 VICYL EQU VITRKPTR+1 02418000 @NM00132 EQU VITRKPTR 02419000 VIENTNUM EQU VICTLFLD+3 02420000 VIENTMAX EQU VICTLFLD+2 02421000 VIENTLEN EQU VICTLFLD+1 02422000 VIOFBLK EQU VICFLAGS 02423000 VIAREA EQU VICFLAGS 02424000 VIUSEBLK EQU VICFLAGS 02425000 VILSTTRK EQU VICFLAGS 02426000 VIENDTRK EQU VICFLAGS 02427000 VILSTACT EQU VICFLAGS 02428000 VILSTBLK EQU VICFLAGS 02429000 @NM00131 EQU SCENTRY+18 02430000 SCLZYX EQU SCENTRY+16 02431000 SCCSN EQU SCENTRY+4 02432000 @NM00130 EQU SCENTRY 02433000 SCREC EQU SCTRKPTR+3 02434000 SCHEAD EQU SCTRKPTR+2 02435000 SCCYL EQU SCTRKPTR+1 02436000 @NM00129 EQU SCTRKPTR 02437000 SCENTNUM EQU SCCTLFLD+3 02438000 SCENTMAX EQU SCCTLFLD+2 02439000 SCENTLEN EQU SCCTLFLD+1 02440000 SCLSTTRK EQU SCCFLAGS 02441000 SCENDTRK EQU SCCFLAGS 02442000 SCLSTACT EQU SCCFLAGS 02443000 SCLSTBLK EQU SCCFLAGS 02444000 MVVUAI# EQU MVVUA 02445000 MVCYLMAP EQU @NM00127+3 02446000 MVRPNUM EQU @NM00127+2 02447000 MVBNDCNT EQU @NM00127+1 02448000 @NM00128 EQU MVLOGDEV 02449000 MVDSTGC2 EQU MVLOGDEV 02450000 MVDSTGC1 EQU MVLOGDEV 02451000 MVPINACT EQU MVLOGDEV 02452000 @NM00126 EQU MVENTRY+44 02453000 MVPFI EQU MVENTRY+36 02454000 MVVVA EQU @NM00125+4 02455000 MVACTD EQU MVSA 02456000 MVACTC EQU MVSA 02457000 MVACTB EQU MVSA 02458000 MVVLDSA EQU MVSA 02459000 @NM00124 EQU MVENTRY+18 02460000 @NM00123 EQU MVVAMSG 02461000 MVINTFD EQU MVVAMSG 02462000 MVINTFC EQU MVVAMSG 02463000 MVINTFB EQU MVVAMSG 02464000 MVINTFA EQU MVVAMSG 02465000 MV3333 EQU MVENTRY+16 02466000 MVSDG EQU MVENTRY+15 02467000 @NM00122 EQU MVRESRVE 02468000 MVSA2RSV EQU MVRESRVE 02469000 @NM00121 EQU MVRESRVE 02470000 MVPINCNT EQU MVENTRY+13 02471000 @NM00120 EQU MVMFLAGS 02472000 MVREMNT EQU MVMFLAGS 02473000 MVMNTBND EQU MVMFLAGS 02474000 MVMNTEXC EQU MVMFLAGS 02475000 MVMNTVOL EQU MVMFLAGS 02476000 MVLZYX2 EQU MVENTRY+10 02477000 MVLZYX1 EQU MVENTRY+8 02478000 @NM00119 EQU MVENTRY+7 02479000 @NM00118 EQU MVVFLAGS 02480000 MVWRTINH EQU MVVFLAGS 02481000 MVBNDVOL EQU MVVFLAGS 02482000 MVSCRCTG EQU MVVFLAGS 02483000 MVEXCVOL EQU MVVFLAGS 02484000 MVSECVOL EQU MVVFLAGS 02485000 @NM00117 EQU MVVFLAGS 02486000 MVCECTG EQU MVVFLAGS 02487000 MVVOLID EQU MVENTRY 02488000 MVMVTPTR EQU @NM00116+6 02489000 MVIVOLID EQU @NM00116 02490000 @NM00115 EQU MVIDXBLK+4 02491000 MVENTNUM EQU MVIDXBLK+3 02492000 MVENTMAX EQU MVIDXBLK+2 02493000 MVENTLEN EQU MVIDXBLK+1 02494000 @NM00114 EQU MVIFLAGS 02495000 MVLSTBLK EQU MVIFLAGS 02496000 MVOFBLK EQU MVIFLAGS 02497000 MVOFOUT EQU MVIFLAGS 02498000 MVCTLBIT EQU MVCTLBLK 02499000 MEUCBCNT EQU @NM00113+2 02500000 MEDRVCNT EQU @NM00113+1 02501000 MELRUCNT EQU @NM00113 02502000 @NM00112 EQU MERECORD+120 02503000 MEMNTCNT EQU @NM00111+2 02504000 MEVOCNT EQU @NM00111+1 02505000 MEMVD2 EQU MEFLAGS 02506000 MEMVI2 EQU MEFLAGS 02507000 MEMVD1 EQU MEFLAGS 02508000 MEMVI1 EQU MEFLAGS 02509000 MEVOD2 EQU MEFLAGS 02510000 MEVOI2 EQU MEFLAGS 02511000 MEVOD1 EQU MEFLAGS 02512000 MEVOI1 EQU MEFLAGS 02513000 CBMMSF EQU CBMAP+39 02514000 CBMFLAGS EQU CBMAP+38 02515000 CBMDRIVE EQU CBMAP+8 02516000 CBMDRC EQU CBMAP+6 02517000 CBMSA EQU CBMAP+4 02518000 CBMDRD EQU CBMAP 02519000 VVATVVA EQU VVAT 02520000 VMXMVT EQU VMX+2 02521000 @NM00110 EQU VMX+1 02522000 @NM00109 EQU VMXFLAGS 02523000 VMXVALID EQU VMXFLAGS 02524000 LPBPFI EQU LPBMVT 02525000 LPBMSFID EQU LPBMVT 02526000 @NM00108 EQU LPB+2 02527000 LPBCURR EQU LPB+1 02528000 LPBNEXT EQU LPB 02529000 DVBPFI EQU DVBMVT 02530000 DVBMSFID EQU DVBMVT 02531000 @NM00107 EQU DVB+2 02532000 DVBCURR EQU DVB+1 02533000 DVBNEXT EQU DVB 02534000 PABRUA EQU @NM00105+3 02535000 PABORUAV EQU PABORUA 02536000 PABSA2D EQU PABRINTF 02537000 PABSA2C EQU PABRINTF 02538000 PABSA2B EQU PABRINTF 02539000 @NM00106 EQU PABRINTF 02540000 PABSA1D EQU PABRINTF 02541000 PABSA1C EQU PABRINTF 02542000 PABSA1B EQU PABRINTF 02543000 PABRAI EQU PABRINTF 02544000 PAB2M11 EQU PABFLAGS 02545000 PABVARN EQU PABFLAGS 02546000 PABVBND EQU PABFLAGS 02547000 PABMSCT EQU PABFLAGS 02548000 PABMOD11 EQU PABFLAGS 02549000 PABVARR EQU PABFLAGS 02550000 PABVARV EQU PABFLAGS 02551000 PABDEX EQU PABFLAGS 02552000 PABAMAP EQU PAB+128 02553000 PABFMAP EQU PAB+64 02554000 PABBCNT EQU @NM00104+3 02555000 PABICNT EQU @NM00104+2 02556000 PABACNT EQU @NM00104+1 02557000 PABFCNT EQU @NM00104 02558000 @NM00103 EQU PAB+24 02559000 PABSRZ EQU PAB+23 02560000 PABSRY EQU PAB+22 02561000 PABSRX EQU PAB+21 02562000 PABSRW EQU PAB+20 02563000 @NM00102 EQU PAB+18 02564000 PAB3333 EQU PABSA 02565000 @NM00101 EQU PABSA 02566000 PABVLDSA EQU PABSA 02567000 PABLOTH EQU PAB+14 02568000 PABLODEL EQU PAB+13 02569000 @NM00100 EQU PAB+12 02570000 PABUPTH EQU PAB+10 02571000 PABUPDEL EQU PAB+9 02572000 PABPPD EQU PAB+8 02573000 PABBTOT EQU PAB+6 02574000 PABITOT EQU PAB+4 02575000 PABATOT EQU PAB+2 02576000 PABFTOT EQU PAB 02577000 RPMMVT EQU RPM+2 02578000 RPMVPNUM EQU RPM+1 02579000 RPMNA EQU RPMFLAGS 02580000 RPMMSCT EQU RPMFLAGS 02581000 @NM00099 EQU RPMFLAGS 02582000 RPMIOERR EQU RPMFLAGS 02583000 RPMVBND EQU RPMFLAGS 02584000 RPMBND EQU RPMFLAGS 02585000 RPMINACT EQU RPMFLAGS 02586000 RPMACT EQU RPMFLAGS 02587000 VTVOLPFX EQU VTABLER1+252 02588000 @NM00098 EQU VTRVPAGE+4 02589000 VT20TO27 EQU VTRVPAGE+3 02590000 VT18TO1F EQU VTRVPAGE+2 02591000 VT10TO17 EQU VTRVPAGE+1 02592000 VT08TO0F EQU VTRVPAGE 02593000 VTLRUIOS EQU VTLRUCW+2 02594000 VTLRUTIM EQU VTLRUCW+1 02595000 VTLRUCLK EQU VTLRUCW 02596000 VTTRCR EQU VTTRCCHR+3 02597000 VTTRCH EQU VTTRCCHR+2 02598000 VTTRCC EQU VTTRCCHR+1 02599000 VTXY EQU VTTRCCHR 02600000 @NM00097 EQU VTABLER1+160 02601000 VTSADDR EQU VTUCB+6 02602000 VTPADDR EQU VTUCB+4 02603000 VTPOST EQU VTUCB+3 02604000 VTACTIVE EQU VTUCB+2 02605000 VTWORK EQU VTUCB+1 02606000 VTSBUSY EQU VTFLAGS 02607000 VTSREADY EQU VTFLAGS 02608000 VTSONLIN EQU VTFLAGS 02609000 VTSVALID EQU VTFLAGS 02610000 VTPBUSY EQU VTFLAGS 02611000 VTPREADY EQU VTFLAGS 02612000 VTPONLIN EQU VTFLAGS 02613000 VTPVALID EQU VTFLAGS 02614000 VTLRU1 EQU VTSDGID+3 02615000 VTLRU0 EQU VTSDGID+2 02616000 VTL33331 EQU VTSDGID+1 02617000 VTL33330 EQU VTSDGID 02618000 VTTBLR EQU VTTBLCHR+3 02619000 VTTBLH EQU VTTBLCHR+2 02620000 VTTBLC EQU VTTBLCHR+1 02621000 @NM00096 EQU VTTBLCHR 02622000 @NM00095 EQU @NM00094+2 02623000 VTIMPLS EQU @NM00094 02624000 VTPACKID EQU VTABLER1 02625000 LTRMOD11 EQU LTRRUA 02626000 PSTCYLW EQU PST+3 02627000 PSTCYLV EQU PST+2 02628000 PSTVPNUM EQU PST+1 02629000 PSTVVA EQU PST 02630000 VVITPCDD EQU VVITBYT2 02631000 VVITPCDC EQU VVITBYT2 02632000 VVITPCDB EQU VVITBYT2 02633000 VVITRSVD EQU VVITBYT2 02634000 VVITINTF EQU VVITBYT2 02635000 VVITVVB EQU VVITBYT2 02636000 VVITCC EQU VVITBYT2 02637000 VVITVVS EQU VVITBYT1 02638000 VVITVVWI EQU VVITBYT1 02639000 VVITFR EQU VVITBYT1 02640000 VVITNBM EQU VVITBYT1 02641000 VVITDEDD EQU VVITBYT1 02642000 VVITDEDC EQU VVITBYT1 02643000 VVITDEDB EQU VVITBYT1 02644000 VVITDEDA EQU VVITBYT1 02645000 VADRM EQU VADFLAGS 02646000 VADVSI EQU VADFLAGS 02647000 VADRDED EQU VADFLAGS 02648000 VADRB EQU VADFLAGS 02649000 VADRR EQU VADFLAGS 02650000 VADVWI EQU VADFLAGS 02651000 VADVWG EQU VADFLAGS 02652000 VADVRW EQU VADFLAGS 02653000 VADPOH EQU VADWORD2+2 02654000 VADUDE EQU VADLUA 02655000 VADMOD11 EQU VADRPNUM 02656000 VADLINK EQU VADWORD1+3 02657000 VADUCS EQU VADRUA 02658000 VADCCR EQU VADRUA 02659000 VADEDI EQU VADRUA 02660000 VADVVA EQU VADWORD1+1 02661000 VADVFM EQU VADWORD1 02662000 QURES1 EQU QUFLAG 02663000 QULIB EQU QUCODE 02664000 QURES EQU RDTBLIST+5 02665000 QUORD EQU RDTBLIST+4 02666000 QULEN EQU RDTBLIST 02667000 LDSLEN EQU LDS+20 02668000 LDSMEM EQU LDS+12 02669000 LDSMLN EQU LDS+11 02670000 LDSFUQ EQU LDSFLG 02671000 LDSPOS EQU LDS+9 02672000 LDSPAS EQU LDS+1 02673000 LDSPLN EQU LDS 02674000 LFILELEN EQU LFILE 02675000 ODSLEN EQU ODS+20 02676000 ODSMEM EQU ODS+12 02677000 ODSMLN EQU ODS+11 02678000 ODSFUQ EQU ODSFLG 02679000 ODSPOS EQU ODS+9 02680000 ODSPAS EQU ODS+1 02681000 ODSPLN EQU ODS 02682000 OFILELEN EQU OFILE 02683000 CELLZVAL EQU CELLZ 02684000 CELLYVAL EQU CELLY 02685000 CELLXVAL EQU CELLX 02686000 HIGHXVAL EQU HIGHX 02687000 LOWXVAL EQU LOWX 02688000 VSDDSN EQU VSDARRAY+4 02689000 VSDVOLCT EQU VSDARRAY 02690000 VSDFMT0 EQU VSDBLOCK+8 02691000 VSDVTOCS EQU VSDBLOCK+4 02692000 VSDELEM EQU VSDBLOCK 02693000 VSDFREE EQU VSDUSAGE+24 02694000 VSDALLC EQU VSDUSAGE+19 02695000 VSDDSOR3 EQU VSDDSORG+2 02696000 @NM00090 EQU VSDDSORG 02697000 VSDSCAL EQU VSDUSAGE+12 02698000 @NM00089 EQU VSDUSEF 02699000 VSDCALFR EQU VSDUSEF 02700000 @NM00088 EQU VSDALLOC 02701000 VSDABSTR EQU VSDALLOC 02702000 VSDABLK EQU VSDALLOC 02703000 VSDATRK EQU VSDALLOC 02704000 VSDACYL EQU VSDALLOC 02705000 @NM00087 EQU VSDDORG 02706000 VSDOU EQU VSDDORG 02707000 VSDOIS EQU VSDDORG 02708000 VSDODA EQU VSDDORG 02709000 VSDOUN EQU VSDDORG 02710000 VSDOPS EQU VSDDORG 02711000 VSDOPO EQU VSDDORG 02712000 VSDEXTS EQU VSDUSAGE+8 02713000 VSDSECAL EQU VSDUSAGE+4 02714000 VSDFTRK EQU VSDUSAGE+2 02715000 VSDTRKS EQU VSDUSAGE 02716000 @NM00086 EQU VSDSCR+5 02717000 @NM00085 EQU VSDSCRFL 02718000 VSDVSAM EQU VSDSCRFL 02719000 VSDCATLC EQU VSDSCRFL 02720000 VSDACBPT EQU VSDSCR 02721000 VSDPRTC EQU VSDSTAT+25 02722000 VSDCAT EQU VSDSTAT+22 02723000 VSDEXP EQU VSDSTAT+20 02724000 VSDCRE EQU VSDSTAT+18 02725000 @NM00084 EQU VSDFLG2 02726000 VSDERROR EQU VSDFLG2 02727000 VSDPROT EQU VSDFLG2 02728000 VSDPWW EQU VSDFLG2 02729000 VSDPWR EQU VSDFLG2 02730000 @NM00083 EQU VSDSFLG1 02731000 VSDCVSAM EQU VSDSFLG1 02732000 VSDCATLG EQU VSDSFLG1 02733000 VSDVSAME EQU VSDSFLG1 02734000 VSDVSAMC EQU VSDSFLG1 02735000 VSDVTOCE EQU VSDSFLG1 02736000 VSDVTOCC EQU VSDSFLG1 02737000 VSDOWNER EQU VSDSTAT+8 02738000 VSDEXPIR EQU VSDSTAT+4 02739000 VSDCREAT EQU VSDSTAT 02740000 VSDFRCCL EQU VSDVTOC+21 02741000 @NM00082 EQU VSDVTOC+20 02742000 VSDFREXT EQU VSDVTOC+16 02743000 @NM00081 EQU VSDVTOC+15 02744000 VSDFRTRK EQU VSDVTOC+11 02745000 @NM00080 EQU VSDVTOC+10 02746000 VSDFRCYL EQU VSDVTOC+6 02747000 @NM00079 EQU VSDVTOC 02748000 @NM00078 EQU VS3FLAGS 02749000 VS3SYSNM EQU VS3FLAGS 02750000 VS3UNCAT EQU VS3FLAGS 02751000 VS3SCR EQU VS3FLAGS 02752000 VS3USAGE EQU VS3FLAGS 02753000 VS3STAT EQU VS3FLAGS 02754000 VS3DD EQU VS3AGL+50 02755000 VS3VOL EQU VS3AGL+44 02756000 VS3POOL EQU VS3AGL+40 02757000 VS3DEV EQU VS3AGL+36 02758000 VS3UCBP EQU VS3AGL+32 02759000 VS3CREAT EQU VS3AGL+28 02760000 VS3EXPIR EQU VS3AGL+24 02761000 VS3AST EQU VS3AGL+22 02762000 VS3LEVLN EQU VS3AGL+20 02763000 VS3LEVP EQU VS3AGL+16 02764000 VS3EXDSP EQU VS3AGL+12 02765000 VS3LISTP EQU VS3AGL+8 02766000 VS3HEAD EQU VS3AGL 02767000 @NM00077 EQU DATESOPT 02768000 DATDAYOP EQU DATESOPT 02769000 DATDTEOP EQU DATESOPT 02770000 DATSUB EQU DATESOPT 02771000 DATADD EQU DATESOPT 02772000 DATRETRN EQU DATESAGL+16 02773000 DATDAYS EQU DATESAGL+12 02774000 DATDATE EQU DATESAGL+8 02775000 DATHEAD EQU DATESAGL 02776000 @NM00076 EQU SELFLAGS 02777000 SELVOL EQU SELAGL+16 02778000 SELDDNP EQU SELAGL+12 02779000 SELUCBP EQU SELAGL+8 02780000 SELHEAD EQU SELAGL 02781000 @NM00075 EQU UCTFLAGS 02782000 UCTVSCAT EQU UCTFLAGS 02783000 UCTDD EQU UCTAGL+60 02784000 UCTVOLP EQU UCTAGL+56 02785000 UCTACBP EQU UCTAGL+52 02786000 UCTDSN EQU UCTAGL+8 02787000 UCTHEAD EQU UCTAGL 02788000 @NM00074 EQU LCTFLAGS 02789000 LCTVSCAT EQU LCTFLAGS 02790000 LCTOWNER EQU LCTINFO+24 02791000 LCTEXPIR EQU LCTINFO+20 02792000 LCTCREAT EQU LCTINFO+16 02793000 LCTACBP EQU LCTINFO+12 02794000 LCTMULVC EQU LCTINFO+8 02795000 LCTHEAD EQU LCTINFO 02796000 SRTWORKP EQU SRTAGL+28 02797000 SRTFLDLN EQU SRTAGL+24 02798000 SRTPOSIT EQU SRTAGL+20 02799000 SRTLEN EQU SRTAGL+16 02800000 SRTNUM EQU SRTAGL+12 02801000 SRTADDR EQU SRTAGL+8 02802000 SRTHEAD EQU SRTAGL 02803000 SV82DEBP EQU SV82WRKP 02804000 SV82TTRP EQU SV82LIST+8 02805000 SV82VOLP EQU SV82DCBP 02806000 SV82UCBP EQU SV82LIST+1 02807000 SV82CODE EQU SV82LIST 02808000 VOLRESV3 EQU VOLLABEL+55 02809000 VOLOWNER EQU VOLLABEL+45 02810000 VOLRESV1 EQU VOLLABEL+20 02811000 VOLVTOC EQU VOLLABEL+15 02812000 VOLSECTY EQU VOLLABEL+14 02813000 VOLSERNO EQU VOLLABEL+8 02814000 VOLNO EQU VOLLABEL+7 02815000 VOLLABI EQU VOLLABEL+4 02816000 VOLKEY EQU VOLLABEL 02817000 STAVTTR EQU STAEPARM+54 02818000 @NM00071 EQU STARETRY 02819000 STAVTOC EQU STARETRY 02820000 STAOFF EQU STARETRY 02821000 STAIO05 EQU STARETRY 02822000 @NM00070 EQU STARCVY 02823000 STACLEAR EQU STARCVY 02824000 STAVPOST EQU STARCVY 02825000 STAVENQ EQU STARCVY 02826000 STAVDMNT EQU STARCVY 02827000 STAVMNT EQU STARCVY 02828000 STATCB EQU STAEPARM+48 02829000 STARTADD EQU STAEPARM+44 02830000 STAEXSAV EQU STAEPARM+40 02831000 STARTSAV EQU STAEPARM+36 02832000 STARTTR EQU STAEPARM+32 02833000 @NM00069 EQU STAEPARM+30 02834000 STARVOL EQU STAEPARM+24 02835000 STARUCB EQU STAEPARM+20 02836000 @NM00068 EQU STAEPARM+18 02837000 STAVVOL EQU STAEPARM+12 02838000 STAVUCB EQU STAEPARM+8 02839000 STAHEAD EQU STAEPARM 02840000 RCTDSET EQU RCTAGL+32 02841000 RCTNVOL EQU RCTAGL+26 02842000 RCTOVOL EQU RCTAGL+20 02843000 RCTNDEV EQU RCTAGL+16 02844000 RCTODEV EQU RCTAGL+12 02845000 @NM00067 EQU RCTAGL+10 02846000 @NM00066 EQU RCTOPT 02847000 RCTVOL EQU RCTOPT 02848000 RCTDEV EQU RCTOPT 02849000 RCTHEAD EQU RCTAGL 02850000 @NM00065 EQU VSRESOPT 02851000 VSREAL EQU VSRESOPT 02852000 VSRES EQU VSRESOPT 02853000 @NM00064 EQU VSMSG 02854000 VSTOV EQU VSMSG 02855000 VSFROMV EQU VSMSG 02856000 @NM00063 EQU VSRETURN 02857000 VSUCAT EQU VSRETURN 02858000 VSVSAM EQU VSRETURN 02859000 @NM00062 EQU VSCATOPT 02860000 VSLIST EQU VSCATOPT 02861000 VSSERIAL EQU VSCATOPT 02862000 VSDEVICE EQU VSCATOPT 02863000 @NM00061 EQU VSVTOPT 02864000 VSVSFLAG EQU VSVTOPT 02865000 VSALTTRK EQU VSVTOPT 02866000 VSTIME EQU VSVTOPT 02867000 VSUCMAST EQU VSSECOPT 02868000 VSOPCAT EQU VSSECOPT 02869000 VSUCTEST EQU VSSECOPT 02870000 VSWRITE EQU VSSECOPT 02871000 VSREAD EQU VSSECOPT 02872000 VSNONONV EQU VSSECOPT 02873000 VSMASTER EQU VSSECOPT 02874000 VSNOVSAM EQU VSSECOPT 02875000 VSODEVP EQU VS1AGL+64 02876000 VSOSERP EQU VS1AGL+60 02877000 VSDEVP EQU VS1AGL+56 02878000 VSSERP EQU VS1AGL+52 02879000 VSPFILEP EQU VS1AGL+48 02880000 VSPSWDP EQU VS1AGL+44 02881000 VSCATDDP EQU VS1AGL+40 02882000 VSACBP EQU VS1AGL+36 02883000 VSCATP EQU VS1AGL+32 02884000 VSNXTATP EQU VS1AGL+28 02885000 VSNUMATP EQU VS1AGL+24 02886000 VSIOP EQU VS1AGL+20 02887000 VSFILEP EQU VS1AGL+16 02888000 VSVOLP EQU VS1AGL+12 02889000 VSUCBP EQU VS1AGL+8 02890000 VSHEAD EQU VS1AGL 02891000 VSVTOCPT EQU VS2AGL+48 02892000 @NM00060 EQU VS2AGL+45 02893000 VSDDNAME EQU VS2AGL+37 02894000 @NM00059 EQU VS2RESOP 02895000 VS2REAL EQU VS2RESOP 02896000 VS2RES EQU VS2RESOP 02897000 @NM00058 EQU VS2MSG 02898000 VS2TOV EQU VS2MSG 02899000 VSVOLUME EQU VS2AGL+29 02900000 @NM00057 EQU VSLABOPT 02901000 VSNOVTOC EQU VSLABOPT 02902000 VSVOLSER EQU VSLABOPT 02903000 VSOWNER EQU VSLABOPT 02904000 VSIOBKPT EQU VS2AGL+24 02905000 VSVOLPTR EQU VS2AGL+20 02906000 VSOWNPTR EQU VS2AGL+16 02907000 VSVTOCSZ EQU VS2AGL+12 02908000 VSUCBPTR EQU VS2AGL+8 02909000 VS2HEAD EQU VS2AGL 02910000 EXPDATAL EQU EXPARRAY+6 02911000 @NM00056 EQU EXPARRAY+5 02912000 EXPKEYLN EQU EXPARRAY+4 02913000 EXPDATAP EQU EXPARRAY 02914000 EXPRECNO EQU EXPDATAB 02915000 EXPCCHHR EQU EXPARG+16 02916000 EXPCTLBK EQU EXPARG+8 02917000 EXPHEAD EQU EXPARG 02918000 EXRWFUN EQU EXWRARG+46 02919000 @NM00055 EQU EXSPACE+8 02920000 @NM00054 EQU EXSPACE+6 02921000 @NM00053 EQU EXSPACE+4 02922000 @NM00052 EQU EXSPACE+1 02923000 @NM00051 EQU EXSPACE 02924000 EXRWKDLN EQU EXWRARG+32 02925000 @NM00050 EQU EXWRARG+31 02926000 EXRECNUM EQU EXRWCHR+4 02927000 EXHH EQU EXRWCHR+2 02928000 EXCC EQU EXRWCHR 02929000 EXCCWCNT EQU EXWRARG+24 02930000 EXLOCPTR EQU EXWRARG+20 02931000 EXRWDARE EQU EXWRARG+16 02932000 EXRWIOAR EQU EXWRARG+12 02933000 EXRWCTBL EQU EXWRARG+8 02934000 EXRWRES EQU EXWRARG 02935000 EXGDATAL EQU EXGARG+30 02936000 @NM00049 EQU EXGARG+29 02937000 EXGKEYLN EQU EXGARG+28 02938000 EXGDATAP EQU EXGARG+24 02939000 EXGRECNO EQU EXGARG+20 02940000 EXGCCHH2 EQU EXGARG+16 02941000 EXGCCHH1 EQU EXGARG+12 02942000 EXGCTLBK EQU EXGARG+8 02943000 EXGHEAD EQU EXGARG 02944000 EXOVTH EQU EXFLG 02945000 EXORVT EQU EXFLG 02946000 EXORDS EQU EXFLG 02947000 EXOSPK EQU EXFLG 02948000 EXORVS EQU EXFLG 02949000 @NM00048 EQU EXFLG 02950000 EXOREAD EQU EXFLG 02951000 @NM00047 EQU EXOPT 02952000 EXOREP EQU EXOPT 02953000 EXOVTOC EQU EXOPT 02954000 EXONEW EQU EXOPT 02955000 EXOPASS EQU EXOPT 02956000 EXOLAB EQU EXOPT 02957000 EXOTAB EQU EXOPT 02958000 EXOCTLBK EQU EXOARG+28 02959000 EXOEXT EQU EXOARG+24 02960000 EXOUCB EQU EXOARG+20 02961000 EXOVSN EQU EXOARG+16 02962000 EXODSN EQU EXOARG+12 02963000 EXODDN EQU EXOARG+8 02964000 EXOHEAD EQU EXOARG 02965000 @NM00046 EQU EXCLFLAG 02966000 EXCLMNT EQU EXCLFLAG 02967000 EXCLVOL EQU EXCLAGL+16 02968000 EXCLDDP EQU EXCLAGL+12 02969000 EXCLUCBP EQU EXCLAGL+8 02970000 EXCLHEAD EQU EXCLAGL 02971000 @NM00045 EQU CKFLAGS 02972000 CKDMTABL EQU CKFLAGS 02973000 CKRETTYP EQU CKFLAGS 02974000 CKTESTVT EQU CKFLAGS 02975000 CKLABELP EQU CKAGL+24 02976000 CKDATYPE EQU CKAGL+20 02977000 CKDDNAME EQU CKAGL+12 02978000 CKUCBPTR EQU CKAGL+8 02979000 CKHEAD EQU CKAGL 02980000 PULABELP EQU PUAGL+16 02981000 PUTTRPTR EQU PUAGL+12 02982000 PUUCBPTR EQU PUAGL+8 02983000 PUHEAD EQU PUAGL 02984000 MDR EQU MDVTOC+4 02985000 MDHH EQU MDVTOC+2 02986000 MDCC EQU MDVTOC 02987000 @NM00044 EQU MDAGL+31 02988000 MDVTOCTR EQU MDFLAGS 02989000 MDFORCE EQU MDFLAGS 02990000 MDDEQ EQU MDFLAGS 02991000 MDENQ EQU MDFLAGS 02992000 MDWAIT EQU MDFLAGS 02993000 MDPOST EQU MDFLAGS 02994000 MDCLEAR EQU MDFLAGS 02995000 MDNEWVOL EQU MDFLAGS 02996000 MDLABEL EQU MDAGL+24 02997000 MDPUAGL EQU MDAGL+20 02998000 MDDDNAME EQU MDAGL+12 02999000 MDUCBPTR EQU MDAGL+8 03000000 MDHEAD EQU MDAGL 03001000 CTTBLRR EQU CTARRAY+3 03002000 CTTBLHH EQU CTARRAY+2 03003000 CTTBLCC EQU CTARRAY+1 03004000 CTTBLID EQU CTARRAY 03005000 CTREALH EQU CTMSG+3 03006000 CTREALCC EQU CTMSG+1 03007000 @NM00043 EQU CTMSG 03008000 CMCSN2 EQU CMMSG+28 03009000 CMCSN1 EQU CMMSG+16 03010000 CMNUMCRT EQU CMMSG+15 03011000 @NM00042 EQU CMMSG+14 03012000 CMNEWVOL EQU CMMSG+8 03013000 @NM00041 EQU CMMSG+7 03014000 @NM00040 EQU CMVOLFLG 03015000 CMRONLY EQU CMVOLFLG 03016000 CMBIND EQU CMVOLFLG 03017000 CMSCRCRT EQU CMVOLFLG 03018000 CMEXCL EQU CMVOLFLG 03019000 CMDERAS EQU CMVOLFLG 03020000 CMSCRVOL EQU CMVOLFLG 03021000 CMCECART EQU CMVOLFLG 03022000 CMOLDVOL EQU CMMSG 03023000 CCOLDCSN EQU CCMSG+24 03024000 CCNEWCSN EQU CCMSG+12 03025000 @NM00039 EQU CCMSG+10 03026000 CCVOL EQU CCMSG+4 03027000 @NM00038 EQU CCMSG+2 03028000 CCEJCODE EQU CCMSG+1 03029000 CCPSTCDE EQU CCMSG 03030000 @NM00037 EQU DMPARY+15 03031000 DMPARYTP EQU DMPARY+14 03032000 DMPARYEX EQU DMPARY+12 03033000 DMPARYIC EQU DMPARY+10 03034000 DMPARYSZ EQU DMPARY+8 03035000 DMPARYNM EQU DMPARY 03036000 @NM00036 EQU DMPITM+15 03037000 @NM00035 EQU ERCNVTAB+24 03038000 ERCPLPT EQU ERCNVTAB+20 03039000 ERCATRC EQU ERCNVTAB+16 03040000 ERDSNM EQU ERCNVTAB+12 03041000 @NM00034 EQU ERCNVTAB+4 03042000 @NM00033 EQU ERCNVTAB+3 03043000 @NM00032 EQU EROSOPER 03044000 EROSUCDX EQU EROSOPER 03045000 EROSCATL EQU EROSOPER 03046000 @NM00031 EQU EROPER 03047000 ERCATAL EQU EROPER 03048000 ERCATDL EQU EROPER 03049000 ERCATDE EQU EROPER 03050000 ERCATLC EQU EROPER 03051000 @NM00030 EQU ERTYPE 03052000 EROSCAT EQU ERTYPE 03053000 ERCATLG EQU ERTYPE 03054000 @NM00029 EQU FMTCNVF+1 03055000 FMTAR EQU FMTCNVF+1 03056000 FMTBS EQU FMTCNVF+1 03057000 FMTSS EQU FMTCNVF+1 03058000 FMTAL EQU FMTCNVF+1 03059000 FMTZS EQU FMTCNVF+1 03060000 @NM00028 EQU FMTCNVF 03061000 FMTPU EQU FMTCNVF 03062000 FMTBD EQU FMTCNVF 03063000 FMTBHD EQU FMTCNVF 03064000 FMTBHA EQU FMTCNVF 03065000 FMTBH EQU FMTCNVF 03066000 FMTOLEN EQU FMTLIST+8 03067000 FMTRIO EQU FMTOCOL 03068000 FMTSPT EQU FMTSTO 03069000 FMTSTL EQU FMTILEN 03070000 @NM00027 EQU FMTFLGS+1 03071000 FMTHDF EQU FMTFLGS 03072000 FMTDFF EQU FMTFLGS 03073000 FMTSTF EQU FMTFLGS 03074000 FMTREPF EQU FMTFLGS 03075000 FMTBDF EQU FMTFLGS 03076000 FMTIDF EQU FMTFLGS 03077000 FMTSCF EQU FMTFLGS 03078000 FMTEOLF EQU FMTFLGS 03079000 DARGDTM EQU DARGARY+4 03080000 DARGPCT EQU DARGINL 03081000 DARGREP EQU DARGINS 03082000 @NM00026 EQU DARGLIST+19 03083000 DARGIND EQU DARGLIST+18 03084000 DARGCNT EQU DARGLIST+14 03085000 UVOLVOL EQU UVOLENT+4 03086000 UVOLDEV EQU UVOLENT 03087000 UVOLCNT EQU UVOLLIST 03088000 @NM00025 EQU IOINFOPT 03089000 IOINFTMS EQU IOINFOPT 03090000 IOINFSUP EQU IOINFOPT 03091000 IOINFDSN EQU IOINFOPT 03092000 IOINFVOL EQU IOINFOPT 03093000 IOINFDVT EQU IOINFOPT 03094000 OPNVOL EQU OPNAGL+44 03095000 @NM00024 EQU OPNAGL+43 03096000 @NM00023 EQU OPNOPT2 03097000 OPNOPTJM EQU OPNOPT2 03098000 @NM00022 EQU OPNOPT2 03099000 OPNOPTAS EQU OPNOPT2 03100000 @NM00021 EQU OPNDSO 03101000 OPNDSOPO EQU OPNDSO 03102000 OPNDSOIS EQU OPNDSO 03103000 OPNDSOPS EQU OPNDSO 03104000 OPNDSOAM EQU OPNDSO 03105000 OPNKYL EQU OPNAGL+40 03106000 OPNBLK EQU OPNAGL+36 03107000 OPNDEVIX EQU OPNDEV+4 03108000 OPNDEVDT EQU OPNDEV 03109000 OPNCBP EQU OPNAGL+20 03110000 OPNPWA EQU OPNAGL+12 03111000 OPNMODRP EQU OPNMOD 03112000 OPNMODUB EQU OPNMOD 03113000 OPNMODRS EQU OPNMOD 03114000 OPNMODAX EQU OPNMOD 03115000 OPNMODRR EQU OPNMOD 03116000 OPNMODRC EQU OPNMOD 03117000 OPNMODPD EQU OPNMOD 03118000 @NM00020 EQU OPNTYP 03119000 OPNTYPRV EQU OPNTYP 03120000 OPNTYPEX EQU OPNTYP 03121000 OPNTYPRA EQU OPNTYP 03122000 OPNTYPXM EQU OPNTYP 03123000 OPNTYPCI EQU OPNTYP 03124000 OPNTYPSO EQU OPNTYP 03125000 OPNTYPSI EQU OPNTYP 03126000 @NM00019 EQU OPNRFM 03127000 OPNRFMSF EQU OPNRFM 03128000 OPNRFMUN EQU OPNRFM 03129000 OPNRFMVR EQU OPNRFM 03130000 OPNOPTSK EQU OPNOPT 03131000 OPNOPTDR EQU OPNOPT 03132000 OPNOPTCR EQU OPNOPT 03133000 OPNOPTKS EQU OPNOPT 03134000 OPNOPTBK EQU OPNOPT 03135000 OPNOPTUP EQU OPNOPT 03136000 OPNOPTIN EQU OPNOPT 03137000 IOCEXT EQU IOCSTR+64 03138000 IOCREL EQU IOCSTR+60 03139000 IOCWORK EQU IOCSTR+56 03140000 IOCRRN EQU IOCSTR+52 03141000 IOCPNM EQU IOCNWM+2 03142000 IOCPTL EQU IOCNWM 03143000 IOCKYA EQU IOCMEM 03144000 IOCVRC EQU IOCTTR 03145000 IOCCBP EQU IOCSTR+36 03146000 IOCDSN EQU IOCSTR+32 03147000 IOCHURBA EQU IOCSTR+28 03148000 IOCVOLSR EQU IOCSTR+22 03149000 @NM00018 EQU IOCMSG 03150000 IOCMSGAE EQU IOCMSG 03151000 IOCMSGCE EQU IOCMSG 03152000 IOCMSGOE EQU IOCMSG 03153000 IOCMSGOP EQU IOCMSG 03154000 @NM00017 EQU IOCMSG 03155000 IOCCHPSY EQU IOCCHP 03156000 IOCCHPAS EQU IOCCHP 03157000 IOCCHPBK EQU IOCCHP 03158000 IOCCHPCR EQU IOCCHP 03159000 IOCCHPKS EQU IOCCHP 03160000 IOCCHPSK EQU IOCCHP 03161000 IOCCHPDR EQU IOCCHP 03162000 IOCCHPSQ EQU IOCCHP 03163000 @NM00016 EQU IOCMAC2 03164000 IOCMACPA EQU IOCMAC2 03165000 @NM00015 EQU IOCMAC2 03166000 IOCMACCP EQU IOCMAC2 03167000 IOCMACRR EQU IOCMAC2 03168000 IOCMACAS EQU IOCMAC2 03169000 IOCMACSK EQU IOCMAC2 03170000 @NM00014 EQU IOCMAC 03171000 IOCMACCC EQU IOCMAC 03172000 IOCMACDR EQU IOCMAC 03173000 IOCMACBK EQU IOCMAC 03174000 IOCMACCR EQU IOCMAC 03175000 IOCMACUP EQU IOCMAC 03176000 IOCMACOT EQU IOCMAC 03177000 IOCMACIN EQU IOCMAC 03178000 @NM00013 EQU IOCRFM 03179000 IOCRFMBK EQU IOCRFM 03180000 IOCRFMSF EQU IOCRFM 03181000 IOCRFMUN EQU IOCRFM 03182000 IOCRFMVR EQU IOCRFM 03183000 IOCRFMFX EQU IOCRFM 03184000 @NM00012 EQU IOCDSO 03185000 IOCDSOPO EQU IOCDSO 03186000 IOCDSOIS EQU IOCDSO 03187000 IOCDSOPS EQU IOCDSO 03188000 IOCDSOAM EQU IOCDSO 03189000 IOCRKP EQU IOCSTR+13 03190000 IOCKYL EQU IOCSTR+12 03191000 IOCTRN EQU IOCSTR+8 03192000 IOCDLN EQU IOCSTR+4 03193000 IOCDAD EQU IOCSTR 03194000 UNITVTOC EQU UNITABL+7 03195000 @NM00011 EQU UNITSTAT 03196000 UNITUSHR EQU UNITSTAT 03197000 UNITXSHR EQU UNITSTAT 03198000 UNITISHR EQU UNITSTAT 03199000 UNITUA EQU @NM00010+1 03200000 UNITCHA EQU @NM00010 03201000 UNITUCB EQU UNITABL 03202000 ALLUNCNT EQU ALLAGL+30 03203000 ALLVLCNT EQU ALLAGL+29 03204000 @NM00009 EQU ALLOPT 03205000 ALLOPTUN EQU ALLOPT 03206000 ALLOPTPV EQU ALLOPT 03207000 ALLOPTDS EQU ALLOPT 03208000 ALLOPTVL EQU ALLOPT 03209000 @NM00008 EQU ALLORG+1 03210000 ALLORGVS EQU ALLORG+1 03211000 @NM00007 EQU ALLORG+1 03212000 ALLORGGS EQU ALLORG+1 03213000 ALLORGUN EQU ALLORG 03214000 ALLORGPO EQU ALLORG 03215000 ALLORGMQ EQU ALLORG 03216000 ALLORGCQ EQU ALLORG 03217000 ALLORGCX EQU ALLORG 03218000 ALLORGDA EQU ALLORG 03219000 ALLORGPS EQU ALLORG 03220000 ALLORGIS EQU ALLORG 03221000 ALLDSPUN EQU ALLDSP 03222000 ALLDSPCG EQU ALLDSP 03223000 ALLDSPDE EQU ALLDSP 03224000 ALLDSPKP EQU ALLDSP 03225000 @NM00006 EQU ALLDSP 03226000 ALLSTSOD EQU ALLSTS 03227000 ALLSTSMD EQU ALLSTS 03228000 ALLSTSNW EQU ALLSTS 03229000 ALLSTSSR EQU ALLSTS 03230000 @NM00005 EQU ALLSTS 03231000 ALLPWD EQU ALLAGL+20 03232000 ALLVLP EQU ALLAGL+16 03233000 ALLULP EQU ALLAGL+12 03234000 ALLDDN EQU ALLAGL+4 03235000 ALLDSN EQU ALLAGL 03236000 CIRPID EQU CIRAGL+28 03237000 CIRPWD EQU CIRAGL+24 03238000 CIRCAT EQU CIRAGL+20 03239000 CIRWKP EQU CIRAGL+16 03240000 CIRTLR EQU CIRAGL+12 03241000 CIRHDR EQU CIRAGL+8 03242000 CIRTLN EQU CIRAGL+6 03243000 CIRHLN EQU CIRAGL+4 03244000 @NM00004 EQU CIRAGL+1 03245000 @NM00003 EQU CIRTYPE 03246000 CIRTYPAQ EQU CIRTYPE 03247000 CIRTYP1Q EQU CIRTYPE 03248000 NEWID1 EQU TRACE1+95 03249000 CALLID EQU OLDERID1+90 03250000 @NM00002 EQU OLDERID1 03251000 * END UNREFERENCED COMPONENTS 03252000 @RF00630 EQU @RC00615 03253000 @PB00002 EQU @EL00001 03254000 @ENDDATA EQU * 03255000 END IDCAU01,(C'PLS1652',0603,76356) 03256000