TITLE '**************** IDCST01: SWAPT 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 IDCST01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCST01 75.289' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @10,0 0002 00021000 @PSTART DS 0H 0002 00022000 USING @PSTART,@10 0002 00023000 L @00,@SIZDATD 0002 00024000 GETMAIN R,LV=(0) 00025000 LR @12,@01 0002 00026000 USING @DATD,@12 0002 00027000 ST @13,@SA00001+4 0002 00028000 LM @00,@01,20(@13) 0002 00029000 ST @12,8(,@13) 0002 00030000 LR @13,@12 0002 00031000 MVC @PC00001(12),0(@01) 0002 00032000 * 0295 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* THIS IS THE MAIN AND ONLY PROCEDURE (EXCLUDING THE @Z40LB65*/ 00036000 * /* SSCMSG COMMON SUBROUTINE) OF THE SWAPT FSR. @Z40LB65*/ 00037000 * /* IT READS THE VERIFICATION TABLES IN ORDER TO @Z40LB65*/ 00038000 * /* BUILD THE PRIMARY MSC TABLES VOLID AND THEN ISSUES @Z40LB65*/ 00039000 * /* A COPYTABLS ORDER SPECIFYING THAT VOLID TO ACCOMPLISH @Z40LB65*/ 00040000 * /* THE SWAP OF PRIMARY AND SECONDARY TABLES DESIGNATIONS.@Z40LB65*/ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 0295 00044000 * IF GDTDBG=NULLPTR THEN 0295 00045000 L @11,@PC00001 0295 00046000 L @11,GDTDBG(,@11) 0295 00047000 LTR @11,@11 0295 00048000 BZ @RT00295 0295 00049000 * ; 0296 00050000 * ELSE 0297 00051000 * CALL IDCDB010(GDTTBL,'STAA'); /* @Z40LB65*/ 00052000 L @11,@PC00001 0297 00053000 ST @11,@AL00001 0297 00054000 LA @15,@CC01564 0297 00055000 ST @15,@AL00001+4 0297 00056000 MVI @AL00001+4,X'80' 0297 00057000 L @15,GDTDBG(,@11) 0297 00058000 LA @01,@AL00001 0297 00059000 BALR @14,@15 0297 00060000 * OLDERID2=NEWERID2; 0298 00061000 @RT00295 L @11,@PC00001 0298 00062000 L @15,GDTTR2(,@11) 0298 00063000 MVC @TS00001(95),NEWERID2(@15) 0298 00064000 MVC OLDERID2(95,@15),@TS00001 0298 00065000 * NEWID2='STAA'; /* @Z40LB65*/ 00066000 * 0299 00067000 MVC NEWID2(4,@15),@CC01564 0299 00068000 * /*****************************************************************/ 00069000 * /* */ 00070000 * /* INITIALIZE PARAMETER LISTS AND POINTERS FOR THE @Z40LB65*/ 00071000 * /* UPRINT, RDMSCTBL USSC, AND TBLREST USSC MACROS. @Z40LB65*/ 00072000 * /* */ 00073000 * /*****************************************************************/ 00074000 * 0300 00075000 * DDSTRU=ADDR(PRINTAB); /* @Z40LB65*/ 00076000 LA @15,PRINTAB 0300 00077000 ST @15,DDSTRU 0300 00078000 * PRINTAB=''B; /* @Z40LB65*/ 00079000 XC PRINTAB(20),PRINTAB 0301 00080000 * DARGSMOD=ST0MSG; /* @Z40LB65*/ 00081000 MVC DARGSMOD(3,@15),@CC01558 0302 00082000 * QTABPTR=ADDR(QTAB); /* @Z40LB65*/ 00083000 LA @15,QTAB 0303 00084000 ST @15,QTABPTR 0303 00085000 * QTAB=''B; /* @Z40LB65*/ 00086000 XC QTAB(44),QTAB 0304 00087000 * COTPTR=ADDR(COTBLIST); /* @Z40LB65*/ 00088000 LA @15,COTBLIST 0305 00089000 ST @15,COTPTR 0305 00090000 * COTBLIST=''B; /* @Z40LB65*/ 00091000 * 0306 00092000 XC COTBLIST(24),COTBLIST 0306 00093000 * /*****************************************************************/ 00094000 * /* */ 00095000 * /* BUILD THE QTAB PARAMETER LIST AND ISSUE USSC MACRO @Z40LB65*/ 00096000 * /* WITH THE RDMSCTBL KEYWORD TO READ THE VERIFICATION @Z40LB65*/ 00097000 * /* TABLES. @Z40LB65*/ 00098000 * /* */ 00099000 * /*****************************************************************/ 00100000 * 0307 00101000 * QUPTR=ADDR(DIAGBUF); /* @Z40LB65*/ 00102000 LA @15,DIAGBUF 0307 00103000 ST @15,QUPTR 0307 00104000 * QTID=NOTBLID; /* @Z40LB65*/ 00105000 MVC QTID(1),NOTBLID 0308 00106000 * QTFLAG=CHRSUPLD; /* @Z40LB65*/ 00107000 MVC QTFLAG(1),CHRSUPLD 0309 00108000 * QTDASCHR=TBLCHR; /* @Z40LB65*/ 00109000 * 0310 00110000 MVC QTDASCHR(4),TBLCHR 0310 00111000 * /*****************************************************************/ 00112000 * /* */ 00113000 * /* ISSUE THE UDUMP MACRO TO TAKE A SYMBOLIC DUMP OF @Z40LB65*/ 00114000 * /* THE USSC PARAMETER LIST @Z40LB65*/ 00115000 * /* */ 00116000 * /*****************************************************************/ 00117000 * 0311 00118000 * IF GDTDBG=NULLPTR THEN 0311 00119000 L @11,GDTDBG(,@11) 0311 00120000 LTR @11,@11 0311 00121000 BZ @RT00311 0311 00122000 * ; 0312 00123000 * ELSE 0313 00124000 * DO; 0313 00125000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB65*/ 00126000 LA DMPINDEX,DMPSTG 0314 00127000 * DMPITMNM='QTAB'; 0315 00128000 MVI DMPITMNM+4(DMPINDEX),C' ' 0315 00129000 MVC DMPITMNM+5(3,DMPINDEX),DMPITMNM+4(DMPINDEX) 0315 00130000 MVC DMPITMNM(4,DMPINDEX),@CC01566 0315 00131000 * DMPITMPT=ADDR(QTAB); 0316 00132000 LA @11,QTAB 0316 00133000 ST @11,DMPITMPT(,DMPINDEX) 0316 00134000 * DMPITMLN=LENGTH(QTAB); 0317 00135000 MVC DMPITMLN(2,DMPINDEX),@CH00772 0317 00136000 * DMPITMTP='H'; 0318 00137000 MVI DMPITMTP(DMPINDEX),C'H' 0318 00138000 * DMPINDEX=DMPINDEX+DMPELEMT; /* @Z40LB65*/ 00139000 AL DMPINDEX,@CF00471 0319 00140000 * DMPTRM=DMPTRMVL; 0320 00141000 MVI DMPTRM(DMPINDEX),X'FF' 0320 00142000 * END; /* @Z40LB65*/ 00143000 * IF GDTDBG=NULLPTR THEN 0322 00144000 @RT00311 L @11,@PC00001 0322 00145000 L @11,GDTDBG(,@11) 0322 00146000 LTR @11,@11 0322 00147000 BZ @RT00322 0322 00148000 * ; 0323 00149000 * ELSE 0324 00150000 * CALL IDCDB010(GDTTBL,'STAB',ADDR(DMPSTG));/* @Z40LB65*/ 00151000 L @11,@PC00001 0324 00152000 ST @11,@AL00001 0324 00153000 LA @15,@CC01568 0324 00154000 ST @15,@AL00001+4 0324 00155000 LA @15,DMPSTG 0324 00156000 ST @15,@AFTEMPS 0324 00157000 LA @15,@AFTEMPS 0324 00158000 ST @15,@AL00001+8 0324 00159000 MVI @AL00001+8,X'80' 0324 00160000 L @15,GDTDBG(,@11) 0324 00161000 LA @01,@AL00001 0324 00162000 BALR @14,@15 0324 00163000 * CALL IDCSASS0(GDTTBL,RDMSCTBL,QTABPTR,REASONCD);/* @Z40LB65*/ 00164000 @RT00322 L @11,@PC00001 0325 00165000 ST @11,@AL00001 0325 00166000 LA @02,RDMSCTBL 0325 00167000 ST @02,@AL00001+4 0325 00168000 LA @02,QTABPTR 0325 00169000 ST @02,@AL00001+8 0325 00170000 LA @02,REASONCD 0325 00171000 ST @02,@AL00001+12 0325 00172000 MVI @AL00001+12,X'80' 0325 00173000 L @15,GDTSSC(,@11) 0325 00174000 LA @01,@AL00001 0325 00175000 BALR @14,@15 0325 00176000 * RESPECIFY 0326 00177000 * RTNREG RSTD; 0326 00178000 * TESTRC=RTNREG; 0327 00179000 LR TESTRC,RTNREG 0327 00180000 * RESPECIFY 0328 00181000 * RTNREG UNRSTD; /* @Z40LB65*/ 00182000 * 0328 00183000 * /*****************************************************************/ 00184000 * /* */ 00185000 * /* TEST THE RETURN CODE FROM USSC. IF THE RETURN CODE @Z40LB65*/ 00186000 * /* IS 4 CALL SSCMSG TO PRINT A MESSAGE TO EXPLAIN @Z40LB65*/ 00187000 * /* THE ERROR AND ISSUE THE @Z40LB65*/ 00188000 * /* UPRINT MACRO TO PRINT MESSAGE IDC31180I INDICATING @Z40LB65*/ 00189000 * /* THE VERIFICATION TABLES COULD NOT BE READ. @Z40LB65*/ 00190000 * /* */ 00191000 * /*****************************************************************/ 00192000 * 0329 00193000 * IF TESTRC=4 THEN /* @Z40LB65*/ 00194000 C TESTRC,@CF00040 0329 00195000 BNE @RF00329 0329 00196000 * DO; /* @Z40LB65*/ 00197000 * CALL SSCMSG(REASONCD); /* @Z40LB65*/ 00198000 LA @11,REASONCD 0331 00199000 ST @11,@AL00001 0331 00200000 LA @01,@AL00001 0331 00201000 BAL @14,SSCMSG 0331 00202000 * DARGSENT=MSG31170; /* @Z40LB65*/ 00203000 L @11,DDSTRU 0332 00204000 MVI DARGSENT(@11),X'01' 0332 00205000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB65*/ 00206000 L @11,@PC00001 0333 00207000 ST @11,@AL00001 0333 00208000 LA @15,@CF00113 0333 00209000 ST @15,@AL00001+4 0333 00210000 LA @15,DDSTRU 0333 00211000 ST @15,@AL00001+8 0333 00212000 MVI @AL00001+8,X'80' 0333 00213000 L @15,GDTPRT(,@11) 0333 00214000 LA @01,@AL00001 0333 00215000 BALR @14,@15 0333 00216000 * LASTCOND=LASTCC12; /* @Z40LB65*/ 00217000 L @11,@PC00001+8 0334 00218000 MVC LASTCOND(2,@11),@CH00565 0334 00219000 * END; /* @Z40LB65*/ 00220000 * ELSE 0336 00221000 * DO; /* @Z40LB65*/ 00222000 * 0336 00223000 B @RC00329 0336 00224000 @RF00329 DS 0H 0337 00225000 * /*************************************************************/ 00226000 * /* */ 00227000 * /* ISSUE THE UDUMP MACRO TO TAKE A SYMBOLIC DUMP OF @Z40LB65*/ 00228000 * /* THE RETRIEVED RECORD @Z40LB65*/ 00229000 * /* */ 00230000 * /*************************************************************/ 00231000 * 0337 00232000 * IF GDTDBG=NULLPTR THEN 0337 00233000 L @11,@PC00001 0337 00234000 L @11,GDTDBG(,@11) 0337 00235000 LTR @11,@11 0337 00236000 BZ @RT00337 0337 00237000 * ; 0338 00238000 * ELSE 0339 00239000 * DO; 0339 00240000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB65*/ 00241000 LA DMPINDEX,DMPSTG 0340 00242000 * DMPITMNM='DIAGREC'; 0341 00243000 MVI DMPITMNM+7(DMPINDEX),C' ' 0341 00244000 MVC DMPITMNM(7,DMPINDEX),@CC01570 0341 00245000 * DMPITMPT=ADDR(DIAGREC); 0342 00246000 LA @11,DIAGREC 0342 00247000 ST @11,DMPITMPT(,DMPINDEX) 0342 00248000 * DMPITMLN=LENGTH(DIAGREC); 0343 00249000 MVC DMPITMLN(2,DMPINDEX),@CH01046 0343 00250000 * DMPITMTP='H'; 0344 00251000 MVI DMPITMTP(DMPINDEX),C'H' 0344 00252000 * DMPINDEX=DMPINDEX+DMPELEMT; 0345 00253000 AL DMPINDEX,@CF00471 0345 00254000 * DMPTRM=DMPTRMVL; 0346 00255000 MVI DMPTRM(DMPINDEX),X'FF' 0346 00256000 * END; /* @Z40LB65*/ 00257000 * IF GDTDBG=NULLPTR THEN 0348 00258000 @RT00337 L @11,@PC00001 0348 00259000 L @11,GDTDBG(,@11) 0348 00260000 LTR @11,@11 0348 00261000 BZ @RT00348 0348 00262000 * ; 0349 00263000 * ELSE 0350 00264000 * CALL IDCDB010(GDTTBL,'STAC',ADDR(DMPSTG));/* @Z40LB65*/ 00265000 * 0350 00266000 L @11,@PC00001 0350 00267000 ST @11,@AL00001 0350 00268000 LA @15,@CC01571 0350 00269000 ST @15,@AL00001+4 0350 00270000 LA @15,DMPSTG 0350 00271000 ST @15,@AFTEMPS 0350 00272000 LA @15,@AFTEMPS 0350 00273000 ST @15,@AL00001+8 0350 00274000 MVI @AL00001+8,X'80' 0350 00275000 L @15,GDTDBG(,@11) 0350 00276000 LA @01,@AL00001 0350 00277000 BALR @14,@15 0350 00278000 * /*************************************************************/ 00279000 * /* */ 00280000 * /* THEN BUILD THE PRIMARY MSC TABLES VOLID @Z40LB65*/ 00281000 * /* FROM THE VOLID PREFIX AND UCB INFORMATION IN @Z40LB65*/ 00282000 * /* THE VERIFICATION TABLES AND INVOKE THE USSC MACRO. */ 00283000 * /* @Z40LB65*/ 00284000 * /* */ 00285000 * /*************************************************************/ 00286000 * 0351 00287000 * VTR1PTR=ADDR(DIAGREC); /* @Z40LB65*/ 00288000 @RT00348 LA VTR1PTR,DIAGREC 0351 00289000 * PVOLPRFX=VTVOLPFX; /* @Z40LB65*/ 00290000 MVC PVOLPRFX(4),VTVOLPFX(VTR1PTR) 0352 00291000 * PVOLSSID=F0F0; /* @Z40LB65*/ 00292000 MVC PVOLSSID(2),F0F0 0353 00293000 * MVN(PVOLSSID(2),SSID); /* @Z40LB65*/ 00294000 * 0354 00295000 LA @11,VTPADDR(,VTR1PTR) 0354 00296000 MVN PVOLSSID+1(1),SSID(@11) 0354 00297000 * /*************************************************************/ 00298000 * /* */ 00299000 * /* BUILD THE COTBLIST PARAMETER LIST WITH PVOL @Z40LB65*/ 00300000 * /* AS THE COPY TARGET AND ISSUE THE USSC MACRO @Z40LB65*/ 00301000 * /* WITH THE TBLREST KEYWORD TO SWAP THE PRIMARY @Z40LB65*/ 00302000 * /* AND SECONDARY MSC TABLES. @Z40LB65*/ 00303000 * /* */ 00304000 * /*************************************************************/ 00305000 * 0355 00306000 * DCOTBTID=RESTORE; /* @Z40LB65*/ 00307000 MVC DCOTBTID(1),RESTORE 0355 00308000 * COTBVOL=PVOL; /* @Z40LB65*/ 00309000 * 0356 00310000 MVC COTBVOL(6),PVOL 0356 00311000 * /*************************************************************/ 00312000 * /* */ 00313000 * /* ISSUE THE UDUMP MACRO TO TAKE A SYMBOLIC DUMP OF @Z40LB65*/ 00314000 * /* THE USSC PARAMETER LIST @Z40LB65*/ 00315000 * /* */ 00316000 * /*************************************************************/ 00317000 * 0357 00318000 * IF GDTDBG=NULLPTR THEN 0357 00319000 L @11,@PC00001 0357 00320000 L @11,GDTDBG(,@11) 0357 00321000 LTR @11,@11 0357 00322000 BZ @RT00357 0357 00323000 * ; 0358 00324000 * ELSE 0359 00325000 * DO; 0359 00326000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB65*/ 00327000 LA DMPINDEX,DMPSTG 0360 00328000 * DMPITMNM='COTBLIST'; 0361 00329000 MVC DMPITMNM(8,DMPINDEX),@CC01573 0361 00330000 * DMPITMPT=ADDR(COTBLIST); 0362 00331000 LA @11,COTBLIST 0362 00332000 ST @11,DMPITMPT(,DMPINDEX) 0362 00333000 * DMPITMLN=LENGTH(COTBLIST); 0363 00334000 MVC DMPITMLN(2,DMPINDEX),@CH00306 0363 00335000 * DMPITMTP='H'; 0364 00336000 MVI DMPITMTP(DMPINDEX),C'H' 0364 00337000 * DMPINDEX=DMPINDEX+DMPELEMT; 0365 00338000 AL DMPINDEX,@CF00471 0365 00339000 * DMPTRM=DMPTRMVL; 0366 00340000 MVI DMPTRM(DMPINDEX),X'FF' 0366 00341000 * END; /* @Z40LB65*/ 00342000 * IF GDTDBG=NULLPTR THEN 0368 00343000 @RT00357 L @11,@PC00001 0368 00344000 L @11,GDTDBG(,@11) 0368 00345000 LTR @11,@11 0368 00346000 BZ @RT00368 0368 00347000 * ; 0369 00348000 * ELSE 0370 00349000 * CALL IDCDB010(GDTTBL,'STAD',ADDR(DMPSTG));/* @Z40LB65*/ 00350000 L @11,@PC00001 0370 00351000 ST @11,@AL00001 0370 00352000 LA @15,@CC01574 0370 00353000 ST @15,@AL00001+4 0370 00354000 LA @15,DMPSTG 0370 00355000 ST @15,@AFTEMPS 0370 00356000 LA @15,@AFTEMPS 0370 00357000 ST @15,@AL00001+8 0370 00358000 MVI @AL00001+8,X'80' 0370 00359000 L @15,GDTDBG(,@11) 0370 00360000 LA @01,@AL00001 0370 00361000 BALR @14,@15 0370 00362000 * CALL IDCSASS0(GDTTBL,TBLREST,COTPTR,REASONCD);/* @Z40LB65*/ 00363000 @RT00368 L @11,@PC00001 0371 00364000 ST @11,@AL00001 0371 00365000 LA @02,TBLREST 0371 00366000 ST @02,@AL00001+4 0371 00367000 LA @02,COTPTR 0371 00368000 ST @02,@AL00001+8 0371 00369000 LA @02,REASONCD 0371 00370000 ST @02,@AL00001+12 0371 00371000 MVI @AL00001+12,X'80' 0371 00372000 L @15,GDTSSC(,@11) 0371 00373000 LA @01,@AL00001 0371 00374000 BALR @14,@15 0371 00375000 * RESPECIFY 0372 00376000 * RTNREG RSTD; 0372 00377000 * TESTRC=RTNREG; 0373 00378000 LR TESTRC,RTNREG 0373 00379000 * RESPECIFY 0374 00380000 * RTNREG UNRSTD; /* @Z40LB65*/ 00381000 * 0374 00382000 * /*************************************************************/ 00383000 * /* */ 00384000 * /* TEST THE RETURN CODE FROM USSC. IF THE RETURN CODE */ 00385000 * /* @Z40LB65*/ 00386000 * /* IS 4 CALL SSCMSG TO PRINT A MESSAGE TO EXPLAIN @Z40LB65*/ 00387000 * /* THE ERROR AND SET LASTCOND = 12. @Z40LB65*/ 00388000 * /* */ 00389000 * /*************************************************************/ 00390000 * 0375 00391000 * IF TESTRC=4 THEN /* @Z40LB65*/ 00392000 C TESTRC,@CF00040 0375 00393000 BNE @RF00375 0375 00394000 * DO; /* @Z40LB65*/ 00395000 * CALL SSCMSG(REASONCD); /* @Z40LB65*/ 00396000 LA @11,REASONCD 0377 00397000 ST @11,@AL00001 0377 00398000 LA @01,@AL00001 0377 00399000 BAL @14,SSCMSG 0377 00400000 * LASTCOND=LASTCC12; /* @Z40LB65*/ 00401000 L @11,@PC00001+8 0378 00402000 MVC LASTCOND(2,@11),@CH00565 0378 00403000 * END; /* @Z40LB65*/ 00404000 * END; /* @Z40LB65*/ 00405000 * 0380 00406000 @RF00375 DS 0H 0381 00407000 * /*****************************************************************/ 00408000 * /* */ 00409000 * /* THE COMPLETION CODE HAS ALREADY BEEN SET. IT WILL BE @Z40LB65*/ 00410000 * /* TESTED TO PRINT A SUMMARY MESSAGE AND RETURN. @Z40LB65*/ 00411000 * /* */ 00412000 * /*****************************************************************/ 00413000 * 0381 00414000 * DARGSMOD=UNIVMSG; /* @Z40LB65*/ 00415000 @RC00329 L @11,DDSTRU 0381 00416000 MVC DARGSMOD(3,@11),@CC01556 0381 00417000 * DARGDBP=ADDR(LASTCOND); /* @Z40LB65*/ 00418000 L @15,@PC00001+8 0382 00419000 ST @15,DARGDBP(,@11) 0382 00420000 * DARGILP=LENGTH(LASTCOND); /* @Z40LB65*/ 00421000 MVC DARGILP(2,@11),@CH00151 0383 00422000 * IF LASTCOND=LASTCC12 THEN /* @Z40LB65*/ 00423000 CLC LASTCOND(2,@15),@CH00565 0384 00424000 BNE @RF00384 0384 00425000 * DARGSENT=MSG3003; /* @Z40LB65*/ 00426000 MVI DARGSENT(@11),X'03' 0385 00427000 * ELSE /* @Z40LB65*/ 00428000 * DARGSENT=MSG0001; /* @Z40LB65*/ 00429000 B @RC00384 0386 00430000 @RF00384 L @11,DDSTRU 0386 00431000 MVI DARGSENT(@11),X'01' 0386 00432000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB65*/ 00433000 @RC00384 L @11,@PC00001 0387 00434000 ST @11,@AL00001 0387 00435000 LA @15,@CF00113 0387 00436000 ST @15,@AL00001+4 0387 00437000 LA @15,DDSTRU 0387 00438000 ST @15,@AL00001+8 0387 00439000 MVI @AL00001+8,X'80' 0387 00440000 L @15,GDTPRT(,@11) 0387 00441000 LA @01,@AL00001 0387 00442000 BALR @14,@15 0387 00443000 * IF GDTDBG=NULLPTR THEN 0388 00444000 L @11,@PC00001 0388 00445000 L @11,GDTDBG(,@11) 0388 00446000 LTR @11,@11 0388 00447000 BZ @RT00388 0388 00448000 * ; 0389 00449000 * ELSE 0390 00450000 * CALL IDCDB010(GDTTBL,'STAZ'); /* @Z40LB65*/ 00451000 L @11,@PC00001 0390 00452000 ST @11,@AL00001 0390 00453000 LA @15,@CC01575 0390 00454000 ST @15,@AL00001+4 0390 00455000 MVI @AL00001+4,X'80' 0390 00456000 L @15,GDTDBG(,@11) 0390 00457000 LA @01,@AL00001 0390 00458000 BALR @14,@15 0390 00459000 * CALL IDCSAEP0(GDTTBL,MODID,LASTCOND); 0391 00460000 * 0391 00461000 @RT00388 L @11,@PC00001 0391 00462000 ST @11,@AL00001 0391 00463000 LA @15,MODID 0391 00464000 ST @15,@AL00001+4 0391 00465000 L @15,@PC00001+8 0391 00466000 ST @15,@AL00001+8 0391 00467000 MVI @AL00001+8,X'80' 0391 00468000 L @15,GDTEPL(,@11) 0391 00469000 LA @01,@AL00001 0391 00470000 BALR @14,@15 0391 00471000 * /*****************************************************************/ 00472000 * /* */ 00473000 * /* @Z40LB65*/ 00474000 * /* */ 00475000 * /*****************************************************************/ 00476000 * 0392 00477000 * 0392 00478000 */***********************************************************@Y30LB39*/ 00479000 */* PROCEDURE NAME - SSCMSG @Y30LB39*/ 00480000 */* @Y30LB39*/ 00481000 */* FUNCTION - THIS ROUTINE PRINTS MESSAGES @Y30LB39*/ 00482000 */* FROM IDCTSSS0 OR IDCTSCM0 AS DICTATED BY THE MSSC @Y30LB39*/ 00483000 */* REASON CODE OR THE ECB POST CODE, EITHER ONE PASSED AS @Y30LB39*/ 00484000 */* INPUT ARGUMENTS. @Y30LB39*/ 00485000 */* @Y30LB39*/ 00486000 */* THE REASON CODE IS PASSED TO THIS ROUTINE FROM THE @Y30LB39*/ 00487000 */* CALLER IN SSRCODE, AND THE ECB POST CODE IS PASSED @Y30LB39*/ 00488000 */* IN SSECBCD. @Y30LB39*/ 00489000 */* @Y30LB39*/ 00490000 */* ONLY ONE MESSAGE IS PRINTED. IF THE REASON CODE @Y30LB39*/ 00491000 */* CONTAINS A NUMBER GREATER THAN ZERO, IT IS USED AS @Y30LB39*/ 00492000 */* THE INDICATION TO CALL UPRINT TO READ IN THE FIRST @Y30LB39*/ 00493000 */* STATIC TEXT ENTRY FROM IDCTSSS0. THAT ENTRY CONTAINS @Y30LB39*/ 00494000 */* AN ARRAY OF THE MESSAGE INDICES USED TO PRINT THE @Y30LB39*/ 00495000 */* MSSC REASON CODE MESSAGE. THE ARRAY IS SCANNED FOR THE @Y30LB39*/ 00496000 */* REASON CODE THAT WAS PASSED AS THE FIRST PARAMETER. @Y30LB39*/ 00497000 */* IF THE ARRAY CONTAINS AN ENTRY WITH THAT VALUE, THE @Y30LB39*/ 00498000 */* ARRAY INDEX IS USED TO PRINT THE MESSAGE. IF THE @Y30LB39*/ 00499000 */* REASON CODE IS NOT FOUND IN THE ARRAY, THE REASON @Y30LB39*/ 00500000 */* CODE IS USED AS BLOCK DATA WHEN PRINTING THE "LAST" @Y30LB39*/ 00501000 */* STATIC TEXT ENTRY IN THE TEXT MODULE. @Y30LB39*/ 00502000 */* @Y30LB39*/ 00503000 */* IF THE REASON CODE FIELD IS ZERO, THE ECB POST CODE @Y30LB39*/ 00504000 */* IS INSERTED AS BLOCK DATA INTO A GENERAL MESSAGE IN @Y30LB39*/ 00505000 */* STATIC TEXT MODULE IDCTSCM0. @Y30LB39*/ 00506000 */* @Y30LB39*/ 00507000 */* INPUT - REASON CODE AS FIRST ARGUMENT, OPTIONALLY THE @Y30LB39*/ 00508000 */* ECB CODE AS THE SECOND ARGUMENT. @Y30LB39*/ 00509000 */* @Y30LB39*/ 00510000 */* OUTPUT - PRINTED MESSAGE AND RETURN CODE OF ZERO. @Y30LB39*/ 00511000 */* @Y30LB39*/ 00512000 */***********************************************************@Y30LB39*/ 00513000 * 0392 00514000 * /* @Y30LB39*/ 00515000 *SSCMSG: 0392 00516000 * PROCEDURE(SSRCODE, /* SSC RETURN CODE @Y30LB39*/ 00517000 * SSECBCD); /* ECB POST CODE @Y30LB39 00518000 * @Y30LB39*/ 00519000 @EL00001 L @13,4(,@13) 0392 00520000 @EF00001 L @00,@SIZDATD 0392 00521000 LR @01,@12 0392 00522000 FREEMAIN R,LV=(0),A=(1) 00523000 @ER00001 LM @14,@12,12(@13) 0392 00524000 BR @14 0392 00525000 SSCMSG STM @14,@12,@SA00002 0392 00526000 MVC @PC00002(8),0(@01) 0392 00527000 * /* @Y30LB39*/ 00528000 * 0393 00529000 * /*****************************************************************/ 00530000 * /* */ 00531000 * /* @Y30LB39*/ 00532000 * /* DECLARATIONS FOR THE SSCMSG PROCEDURE @Y30LB39*/ 00533000 * /* @Y30LB39*/ 00534000 * /* */ 00535000 * /*****************************************************************/ 00536000 * 0393 00537000 * /* @Y30LB39 00538000 * @Y30LB39*/ 00539000 * 0393 00540000 * /*****************************************************************/ 00541000 * /* */ 00542000 * /* @Y30LB39*/ 00543000 * /* THE NEXT TWO DECLARES ARE FOR THE TWO INPUT @Y30LB39*/ 00544000 * /* ARGUMENTS. 1ST - MSSC REASON CODE OR @Y30LB39*/ 00545000 * /* 2ND - MSSC POST CODE @Y30LB39*/ 00546000 * /* @Y30LB39*/ 00547000 * /* */ 00548000 * /*****************************************************************/ 00549000 * 0393 00550000 * /* @Y30LB39*/ 00551000 * DCL 0393 00552000 * 1 SSRCODE FIXED(31), /* @Y30LB39*/ 00553000 * 3 * FIXED(15), /* @Y30LB39*/ 00554000 * 3 SSRHALF FIXED(15); /* 1ST ARG REASON CODE @Y30LB39*/ 00555000 * DCL 0394 00556000 * SSECBCD PTR(8); /* 2ND ARG POST CODE @Y30LB39 00557000 * @Y30LB39 00558000 * @Y30LB39*/ 00559000 * 0394 00560000 * /*****************************************************************/ 00561000 * /* */ 00562000 * /* @Y30LB39*/ 00563000 * /* DECLARE THE DYNAMIC AREA NEEDED TO POINT TO AND @Y30LB39*/ 00564000 * /* CONTAIN THE "LOCAL" PRINT ARGUMENT LIST @Y30LB39*/ 00565000 * /* @Y30LB39*/ 00566000 * /* */ 00567000 * /*****************************************************************/ 00568000 * 0395 00569000 * /* @Y30LB39*/ 00570000 * DCL 0395 00571000 * SSDLPTR PTR(31); /* @Y30LB39*/ 00572000 * DCL 0396 00573000 * SSDRGLT CHAR(LENGTH(DARGLIST));/* @Y30LB39 00574000 * @Y30LB39*/ 00575000 * 0396 00576000 * /*****************************************************************/ 00577000 * /* */ 00578000 * /* @Y30LB39*/ 00579000 * /* THE NEXT DECLARE IS FOR THE INDEX WHICH IS @Y30LB39*/ 00580000 * /* INCREMENTED WHILE SEARCHING THE ARRAY OF @Y30LB39*/ 00581000 * /* REASON CODES AND, UPON FINDING THE CORRECT @Y30LB39*/ 00582000 * /* REASON CODE, IS PASSED TO PRINT MODULE AS THE @Y30LB39*/ 00583000 * /* INDEX OF THE MESSAGE NUMBER TO BE PRINTED. @Y30LB39*/ 00584000 * /* @Y30LB39*/ 00585000 * /* */ 00586000 * /*****************************************************************/ 00587000 * 0397 00588000 * /* @Y30LB39*/ 00589000 * DECLARE 0397 00590000 * ENTRYNUM FIXED(8) UNSIGNED; /* @Y30LB39 00591000 * @Y30LB39*/ 00592000 * 0397 00593000 * /*****************************************************************/ 00594000 * /* */ 00595000 * /* @Y30LB39*/ 00596000 * /* THE NEXT DECLARE IS FOR THE COMMON MESSAGE @Y30LB39*/ 00597000 * /* NUMBER TO IDENTIFY THE ECB POST CODE @Y30LB39*/ 00598000 * /* MESSAGE CONTAINED IN STATIC TEXT MODULE @Y30LB39*/ 00599000 * /* IDCTSCM0. @Y30LB39*/ 00600000 * /* @Y30LB39*/ 00601000 * /* */ 00602000 * /*****************************************************************/ 00603000 * 0398 00604000 * /* @Y30LB39*/ 00605000 * DECLARE 0398 00606000 * SSMSGNUM FIXED(8) STATIC LOCAL INIT(56);/* @Y30LB39 00607000 * @Y30LB39*/ 00608000 * 0398 00609000 * /*****************************************************************/ 00610000 * /* */ 00611000 * /* @Y30LB39*/ 00612000 * /* THE NEXT DECLARE IS FOR THE ARRAY WHICH IS @Y30LB39*/ 00613000 * /* SEARCHED FOR THE REASON CODE CORRESPONDING @Y30LB39*/ 00614000 * /* TO THE MESSAGE INDEX AND ULTIMATELY, THE @Y30LB39*/ 00615000 * /* MESSAGE TEXT TO BE PRINTED TO THE USER TELLING @Y30LB39*/ 00616000 * /* HIM OF THE EXACT REASON FOR THE MSSC FAILURE. @Y30LB39*/ 00617000 * /* @Y30LB39*/ 00618000 * /* */ 00619000 * /*****************************************************************/ 00620000 * 0399 00621000 * /* @Y30LB39*/ 00622000 * DECLARE 0399 00623000 * 1 SSINXLST BDY(WORD), /* @Y30LB39*/ 00624000 * 3 SSARRAY(60) FIXED(15); /* @Y30LB39 00625000 * @Y30LB39*/ 00626000 * 0399 00627000 * /*****************************************************************/ 00628000 * /* */ 00629000 * /* @Y30LB39*/ 00630000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 00631000 * /* USED BY THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 00632000 * /* @Y30LB39*/ 00633000 * /* */ 00634000 * /*****************************************************************/ 00635000 * 0400 00636000 * /* @Y30LB39*/ 00637000 * DECLARE 0400 00638000 * SSMODSS0 CHAR(3) STATIC INIT('SS0');/* @Y30LB39 00639000 * @Y30LB39*/ 00640000 * 0400 00641000 * /*****************************************************************/ 00642000 * /* */ 00643000 * /* @Y30LB39*/ 00644000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 00645000 * /* USED BY THE STATIC TEXT MODULE - IDCTSCMO. @Y30LB39*/ 00646000 * /* @Y30LB39*/ 00647000 * /* */ 00648000 * /*****************************************************************/ 00649000 * 0401 00650000 * /* @Y30LB39*/ 00651000 * DECLARE 0401 00652000 * SSMODCM0 CHAR(3) STATIC INIT('CM0');/* @Y30LB39 00653000 * @Y30LB39*/ 00654000 * /* @Y30LB39*/ 00655000 * 0402 00656000 * /*****************************************************************/ 00657000 * /* */ 00658000 * /* ISSUE UTRACE MACRO TO PROVIDE A TRACK OF FLOW @Y30LB39*/ 00659000 * /* ON CONTROL WITHIN THE SSMSG MODULE. @Y30LB39*/ 00660000 * /* THIS WILL PLACE THE IDENTIFIER SPECIFIED IN @Y30LB39*/ 00661000 * /* A SEPARATE INTRA-MODULE TRACE TABLE. @Y30LB39*/ 00662000 * /* @Y30LB39*/ 00663000 * /* */ 00664000 * /*****************************************************************/ 00665000 * 0402 00666000 * /* @Y30LB39*/ 00667000 * OLDERID2=NEWERID2; 0402 00668000 L @11,@PC00001 0402 00669000 L @15,GDTTR2(,@11) 0402 00670000 MVC @TS00001(95),NEWERID2(@15) 0402 00671000 MVC OLDERID2(95,@15),@TS00001 0402 00672000 * NEWID2='SSAA'; /* @Y30LB39 00673000 * @Y30LB39*/ 00674000 * 0403 00675000 MVC NEWID2(4,@15),@CC01596 0403 00676000 * /*****************************************************************/ 00677000 * /* */ 00678000 * /* @Y30LB39*/ 00679000 * /* ESTABLISH ADDRESSABILITY TO THE DYNAMIC @Y30LB39*/ 00680000 * /* ARGUMENT LIST. @Y30LB39*/ 00681000 * /* @Y30LB39*/ 00682000 * /* */ 00683000 * /*****************************************************************/ 00684000 * 0404 00685000 * /* @Y30LB39*/ 00686000 * SSDLPTR=ADDR(SSDRGLT); /* @Y30LB39 00687000 * @Y30LB39*/ 00688000 * 0404 00689000 LA @15,SSDRGLT 0404 00690000 ST @15,SSDLPTR 0404 00691000 * /*****************************************************************/ 00692000 * /* */ 00693000 * /* @Y30LB39*/ 00694000 * /* IF THE REASON CODE IS NOT ZERO, READ IN THE @Y30LB39*/ 00695000 * /* ARRAY FROM THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 00696000 * /* @Y30LB39*/ 00697000 * /* */ 00698000 * /*****************************************************************/ 00699000 * 0405 00700000 * /* @Y30LB39*/ 00701000 * IF SSRCODE>0 THEN 0405 00702000 L @14,@PC00002 0405 00703000 L @14,SSRCODE(,@14) 0405 00704000 LTR @14,@14 0405 00705000 BNP @RF00405 0405 00706000 * DO; /* @Y30LB39 00707000 * @Y30LB39*/ 00708000 * 0406 00709000 * /*************************************************************/ 00710000 * /* */ 00711000 * /* @Y30LB39*/ 00712000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND @Y30LB39*/ 00713000 * /* INITIALIZE THE PRINT ARGUMENT LIST TO READ @Y30LB39*/ 00714000 * /* IN THE ARRAY WHICH CONTAINS THE MSSC REASON @Y30LB39*/ 00715000 * /* CODES. @Y30LB39*/ 00716000 * /* @Y30LB39*/ 00717000 * /* */ 00718000 * /*************************************************************/ 00719000 * 0407 00720000 * /* @Y30LB39*/ 00721000 * SSDRGLT=''B; /* @Y30LB39*/ 00722000 XC SSDRGLT(20),SSDRGLT 0407 00723000 * SSDLPTR->DARGRETP=ADDR(SSINXLST);/* @Y30LB39*/ 00724000 LA @03,SSINXLST 0408 00725000 ST @03,DARGRETP(,@15) 0408 00726000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 00727000 MVC DARGSMOD(3,@15),SSMODSS0 0409 00728000 * SSDLPTR->DARGSENT=1; /* @Y30LB39*/ 00729000 MVI DARGSENT(@15),X'01' 0410 00730000 * SSDLPTR->DARGRETL=LENGTH(SSINXLST);/* @Y30LB39 00731000 * @Y30LB39*/ 00732000 * 0411 00733000 MVC DARGRETL(2,@15),@CH01597 0411 00734000 * /*************************************************************/ 00735000 * /* */ 00736000 * /* @Y30LB39*/ 00737000 * /* ISSUE UPRINT MACRO TO READ IN THE SEARCH @Y30LB39*/ 00738000 * /* ARRAY. @Y30LB39*/ 00739000 * /* @Y30LB39*/ 00740000 * /* */ 00741000 * /*************************************************************/ 00742000 * 0412 00743000 * /* @Y30LB39*/ 00744000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 00745000 * @Y30LB39*/ 00746000 * 0412 00747000 ST @11,@AL00001 0412 00748000 LA @03,@CF00113 0412 00749000 ST @03,@AL00001+4 0412 00750000 LA @03,SSDLPTR 0412 00751000 ST @03,@AL00001+8 0412 00752000 MVI @AL00001+8,X'80' 0412 00753000 L @15,GDTPRT(,@11) 0412 00754000 LA @01,@AL00001 0412 00755000 BALR @14,@15 0412 00756000 * /*************************************************************/ 00757000 * /* */ 00758000 * /* @Y30LB39*/ 00759000 * /* BEGIN DO LOOP TO SEARCH FOR THE MESSAGE @Y30LB39*/ 00760000 * /* INDEX CORRESPONDING TO THE REASON CODE @Y30LB39*/ 00761000 * /* PASSED AS THE FIRST ARGUMENT. @Y30LB39*/ 00762000 * /* THE DO LOOP BEGINS WITH THE SECOND ARRAY @Y30LB39*/ 00763000 * /* ENTRY SINCE THE FIRST IS REQUIRED BY THE @Y30LB39*/ 00764000 * /* SEARCH ARRAY ITSELF. @Y30LB39*/ 00765000 * /* THE SEARCH CONTINUES UNTIL THE REASON CODE @Y30LB39*/ 00766000 * /* IS FOUND, AT WHICH TIME THE SEARCH INDEX @Y30LB39*/ 00767000 * /* IS PASSED TO THE PRINT MODULE TO PRINT @Y30LB39*/ 00768000 * /* THE MESSAGE ASSOCIATED WITH THAT PARTICULAR @Y30LB39*/ 00769000 * /* REASON CODE. @Y30LB39*/ 00770000 * /* IF THERE IS NO MATCH FOUND IN THE ARRAY, @Y30LB39*/ 00771000 * /* THEN THE INDEX WILL BE THE LAST POSITION IN @Y30LB39*/ 00772000 * /* ARRAY. THIS WILL BE THE INDICATION THAT @Y30LB39*/ 00773000 * /* THE REASON CODE ITSELF SHOULD BE PRINTED. @Y30LB39*/ 00774000 * /* @Y30LB39*/ 00775000 * /* */ 00776000 * /*************************************************************/ 00777000 * 0413 00778000 * /* @Y30LB39*/ 00779000 * ENTRYNUM=1; /* @Y30LB39*/ 00780000 LA ENTRYNUM,1 0413 00781000 * DO UNTIL(SSRHALF=SSARRAY(ENTRYNUM)|SSARRAY(ENTRYNUM)=0); 0414 00782000 @DL00414 DS 0H 0415 00783000 * ENTRYNUM=ENTRYNUM+1; /* @Y30LB39*/ 00784000 AL ENTRYNUM,@CF00217 0415 00785000 * END; /* @Y30LB39 00786000 * @Y30LB39*/ 00787000 * 0416 00788000 @DE00414 L @11,@PC00002 0416 00789000 LR @03,ENTRYNUM 0416 00790000 ALR @03,@03 0416 00791000 LH @03,SSARRAY-2(@03) 0416 00792000 CH @03,SSRHALF(,@11) 0416 00793000 BE @DC00414 0416 00794000 SLR @15,@15 0416 00795000 CR @03,@15 0416 00796000 BNE @DL00414 0416 00797000 @DC00414 DS 0H 0417 00798000 * /*************************************************************/ 00799000 * /* */ 00800000 * /* @Y30LB39*/ 00801000 * /* THE CORRECT INDEX HAS BEEN FOUND @Y30LB39*/ 00802000 * /* @Y30LB39*/ 00803000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND FILL @Y30LB39*/ 00804000 * /* OUT THE PRINT ARGUMENT FIELDS WITH EITHER: @Y30LB39*/ 00805000 * /* 1) THE INDEX CORRESPONDING TO THE REASON @Y30LB39*/ 00806000 * /* CODE OR @Y30LB39*/ 00807000 * /* 2) THE LAST INDEX AND THE REASON CODE @Y30LB39*/ 00808000 * /* ITSELF AS A STATIC TEXT INSERT. @Y30LB39*/ 00809000 * /* @Y30LB39*/ 00810000 * /* */ 00811000 * /*************************************************************/ 00812000 * 0417 00813000 * /* @Y30LB39*/ 00814000 * SSDRGLT=''B; /* @Y30LB39*/ 00815000 XC SSDRGLT(20),SSDRGLT 0417 00816000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 00817000 L @14,SSDLPTR 0418 00818000 MVC DARGSMOD(3,@14),SSMODSS0 0418 00819000 * SSDLPTR->DARGSENT=ENTRYNUM; /* @Y30LB39*/ 00820000 STC ENTRYNUM,DARGSENT(,@14) 0419 00821000 * IF SSARRAY(ENTRYNUM)=0 THEN /* @Y30LB39*/ 00822000 CR @03,@15 0420 00823000 BNE @RF00420 0420 00824000 * DO; /* @Y30LB39*/ 00825000 * SSDLPTR->DARGDBP=ADDR(SSRCODE);/* @Y30LB39*/ 00826000 ST @11,DARGDBP(,@14) 0422 00827000 * SSDLPTR->DARGILP=LENGTH(SSRCODE);/* @Y30LB39*/ 00828000 MVC DARGILP(2,@14),@CH00040 0423 00829000 * END; /* @Y30LB39*/ 00830000 * END; /* @Y30LB39*/ 00831000 * /* @Y30LB39*/ 00832000 * 0426 00833000 * /*****************************************************************/ 00834000 * /* */ 00835000 * /* @Y30LB39*/ 00836000 * /* THE FIRST ARGUMENT WAS ZERO, INDICATING THAT @Y30LB39*/ 00837000 * /* THIS ROUTINE IS TO PRINT OUT THE ECB POST @Y30LB39*/ 00838000 * /* CODE. THEREFORE, CLEAR THE DYNAMIC ARGUMENT @Y30LB39*/ 00839000 * /* LIST AND FILL OUT THE PRINT ARGUMENT FIELDS @Y30LB39*/ 00840000 * /* SO THE STATIC TEXT MODULE, IDCTSCM0, WILL @Y30LB39*/ 00841000 * /* PRINT OUT THE MESSAGE ASSOCIATED WITH THE @Y30LB39*/ 00842000 * /* POST CODE. @Y30LB39*/ 00843000 * /* @Y30LB39*/ 00844000 * /* */ 00845000 * /*****************************************************************/ 00846000 * 0426 00847000 * /* @Y30LB39*/ 00848000 * ELSE /* @Y30LB39*/ 00849000 * DO; /* @Y30LB39*/ 00850000 B @RC00405 0426 00851000 @RF00405 DS 0H 0427 00852000 * SSDRGLT=''B; /* @Y30LB39*/ 00853000 XC SSDRGLT(20),SSDRGLT 0427 00854000 * SSDLPTR->DARGSMOD=SSMODCM0; /* @Y30LB39*/ 00855000 L @11,SSDLPTR 0428 00856000 MVC DARGSMOD(3,@11),SSMODCM0 0428 00857000 * SSDLPTR->DARGSENT=SSMSGNUM; /* @Y30LB39*/ 00858000 MVC DARGSENT(1,@11),SSMSGNUM 0429 00859000 * SSDLPTR->DARGDBP=ADDR(SSECBCD);/* @Y30LB39*/ 00860000 L @15,@PC00002+4 0430 00861000 ST @15,DARGDBP(,@11) 0430 00862000 * SSDLPTR->DARGILP=LENGTH(SSECBCD);/* @Y30LB39*/ 00863000 MVC DARGILP(2,@11),@CH00217 0431 00864000 * END; /* @Y30LB39 00865000 * @Y30LB39*/ 00866000 * 0432 00867000 * /*****************************************************************/ 00868000 * /* */ 00869000 * /* @Y30LB39*/ 00870000 * /* ISSUE UPRINT MACRO TO PRINT THE REASON @Y30LB39*/ 00871000 * /* CODE MESSAGE OR THE ECB POST CODE MESSAGE. @Y30LB39*/ 00872000 * /* @Y30LB39*/ 00873000 * /* */ 00874000 * /*****************************************************************/ 00875000 * 0433 00876000 * /* @Y30LB39*/ 00877000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 00878000 * @Y30LB39*/ 00879000 * 0433 00880000 @RC00405 L @11,@PC00001 0433 00881000 ST @11,@AL00001 0433 00882000 LA @15,@CF00113 0433 00883000 ST @15,@AL00001+4 0433 00884000 LA @15,SSDLPTR 0433 00885000 ST @15,@AL00001+8 0433 00886000 MVI @AL00001+8,X'80' 0433 00887000 L @15,GDTPRT(,@11) 0433 00888000 LA @01,@AL00001 0433 00889000 BALR @14,@15 0433 00890000 * /*****************************************************************/ 00891000 * /* */ 00892000 * /* @Y30LB39*/ 00893000 * /* RETURN TO CALLER WITH A RETURN CODE OF ZERO @Y30LB39*/ 00894000 * /* @Y30LB39*/ 00895000 * /* */ 00896000 * /*****************************************************************/ 00897000 * 0434 00898000 * /* @Y30LB39 00899000 * @Y30LB39*/ 00900000 * RETURN CODE(0); /* @Y30LB39 00901000 * @Y30LB39*/ 00902000 SLR @15,@15 0434 00903000 L @14,@SA00002 0434 00904000 LM @00,@12,@SA00002+8 0434 00905000 BR @14 0434 00906000 * END SSCMSG; /* @Y30LB39*/ 00907000 * END IDCST01 /* @Z40LB65*/ 00908000 * 0436 00909000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00910000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 00911000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 00912000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 00913000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 00914000 */*%INCLUDE SYSLIB (IDCDF11 ) */ 00915000 */*%INCLUDE SYSLIB (IDCCSST ) */ 00916000 */*%INCLUDE SYSLIB (IDCDF52 ) */ 00917000 * 0436 00918000 * ; 0436 00919000 @DATA DS 0H 00920000 @CH00151 DC H'2' 00921000 @CH00565 DC H'12' 00922000 @CH00306 DC H'24' 00923000 @CH00772 DC H'44' 00924000 @CH01597 DC H'120' 00925000 @CH01046 DC H'256' 00926000 @DATD DSECT 00927000 DS 0F 00928000 @SA00001 DS 18F 00929000 @PC00001 DS 3F 00930000 @SA00002 DS 15F 00931000 @PC00002 DS 2F 00932000 @AL00001 DS 4A 00933000 @AFTEMPS DS 1F 00934000 IDCST01 CSECT 00935000 DS 0F 00936000 @CF00113 DC F'0' 00937000 @CF00217 DC F'1' 00938000 @CH00217 EQU @CF00217+2 00939000 @CF00040 DC F'4' 00940000 @CH00040 EQU @CF00040+2 00941000 @CF00471 DC F'16' 00942000 @DATD DSECT 00943000 DS 0D 00944000 LISTSCAN DS A 00945000 IOCSPTR DS A 00946000 OPNPTR DS A 00947000 DDSTRU DS A 00948000 FSADDR DS A 00949000 ERCNVADR DS A 00950000 CCMSGPTR DS A 00951000 CMMSGPTR DS A 00952000 CTMSGPTR DS A 00953000 ELEMENT DS F 00954000 VADPTR1 DS A 00955000 VADPTR2 DS A 00956000 VVITPTR1 DS A 00957000 VVITPTR2 DS A 00958000 PSTPTR DS A 00959000 LTRPTR DS A 00960000 RPMPTR DS A 00961000 PABPTR DS A 00962000 DVBPTR DS A 00963000 LPBPTR DS A 00964000 VMXPTR DS A 00965000 VVATPTR DS A 00966000 CBMPTR DS A 00967000 MERPTR DS A 00968000 MVCBPTR DS A 00969000 MVIBPTR DS A 00970000 MVENTPTR DS A 00971000 SCCFPTR DS A 00972000 SCENTPTR DS A 00973000 VICFPTR DS A 00974000 VIENTPTR DS A 00975000 TVCFPTR DS A 00976000 TVENTPTR DS A 00977000 CIENTPTR DS A 00978000 MICPTR DS A 00979000 CDBPTR DS A 00980000 CMCBPTR DS A 00981000 CMENTPTR DS A 00982000 REASONCD DS F 00983000 COTPTR DS A 00984000 QTABPTR DS A 00985000 SSDLPTR DS A 00986000 LISTPTR DS A 00987000 MVPATH# DS H 00988000 CISA# DS H 00989000 CDBVUA# DS H 00990000 SETRC DS H 00991000 LISTLN DS FL1 00992000 @TS00001 DS CL95 00993000 COTBLIST DS CL24 00994000 ORG COTBLIST 00995000 COTBLL DS FL4 00996000 COTBOP DS FL1 00997000 @NM00140 DS CL1 00998000 COTBFLG DS BL2 00999000 ORG COTBFLG 01000000 COTBTID DS BL1 01001000 @NM00141 EQU COTBFLG+0 01002000 COTBTRX DS BL1 01003000 COTBTRY EQU COTBFLG+1 01004000 COTBTRA EQU COTBFLG+1 01005000 COTBTRI EQU COTBFLG+1 01006000 @NM00142 EQU COTBFLG+1 01007000 ORG COTBLIST+8 01008000 COTBEXTS DS CL4 01009000 COTBVOL DS CL6 01010000 COTBASID DS CL2 01011000 COTBECB DS FL4 01012000 ORG COTBLIST+24 01013000 QTAB DS CL44 01014000 ORG QTAB 01015000 QULEN DS FL4 01016000 QUORD DS CL1 01017000 QURES DS CL1 01018000 QUCODE DS BL1 01019000 ORG QUCODE 01020000 QULIB DS BL1 01021000 ORG QTAB+7 01022000 QUSECT DS BL1 01023000 ORG QUSECT 01024000 QUXADDR DS BL1 01025000 ORG QUXADDR 01026000 QUFLAG DS BL1 01027000 ORG QUFLAG 01028000 QURES1 DS CL1 01029000 ORG QTAB+8 01030000 QUPARM DS CL32 01031000 QUPTR DS FL4 01032000 ORG QTAB+44 01033000 PRINTAB DS CL20 01034000 DIAGBUF DS CL512 01035000 ORG DIAGBUF 01036000 @NM00145 DS CL256 01037000 DIAGREC DS CL256 01038000 ORG DIAGBUF+512 01039000 PVOL DS CL6 01040000 ORG PVOL 01041000 PVOLPRFX DS CL4 01042000 PVOLSSID DS CL2 01043000 ORG PVOL+6 01044000 DMPSTG DS CL17 01045000 SSDRGLT DS CL20 01046000 DS CL1 01047000 SSINXLST DS CL120 01048000 ORG SSINXLST 01049000 SSARRAY DS 60H 01050000 ORG SSINXLST+120 01051000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01052000 @ENDDATD EQU * 01053000 IDCST01 CSECT 01054000 DS 0F 01055000 @SIZDATD DC AL1(0) 01056000 DC AL3(@ENDDATD-@DATD) 01057000 DS 0D 01058000 SSMSGNUM DC AL1(56) 01059000 @CC01573 DC C'COTBLIST' 01060000 @CC01570 DC C'DIAGREC' 01061000 @CC01564 DC C'STAA' 01062000 @CC01566 DC C'QTAB' 01063000 @CC01568 DC C'STAB' 01064000 @CC01571 DC C'STAC' 01065000 @CC01574 DC C'STAD' 01066000 @CC01575 DC C'STAZ' 01067000 @CC01596 DC C'SSAA' 01068000 @CC01556 DC C'UV0' 01069000 @CC01558 DC C'ST0' 01070000 ALL DC CL3'ALL' 01071000 FORMAT DC CL4'FORM' 01072000 HSECOND DC CL4'HSEC' 01073000 CLOCK DC CL4'KLOK' 01074000 SETZERO DC CL4'ZERO' 01075000 SETBLANK DC CL4'BLNK' 01076000 NOSET DC CL4'NSET' 01077000 OVERRIDE DC CL4'OVRD' 01078000 ACQUIRE DC CL8'ACQUIRE ' 01079000 RELINQ DC CL8'RELINQ ' 01080000 MOUNT DC CL8'MOUNT ' 01081000 DEMOUNT DC CL8'DEMOUNT ' 01082000 DEFINE DC CL8'DEFINE ' 01083000 MOVE DC CL8'MOVE ' 01084000 TRACEQ DC CL8'TRACEQ ' 01085000 COPYTABL DC CL8'COPYTABL' 01086000 COPYCRTG DC CL8'COPYCRTG' 01087000 COPYVOL DC CL8'COPYVOL ' 01088000 VVIC DC CL8'VVIC ' 01089000 TUNE DC CL8'TUNE ' 01090000 NAMES DC CL4'NAME' 01091000 UNIT DC CL4'UNIT' 01092000 SHR DC CL4'SHR ' 01093000 EXCL DC CL4'EXCL' 01094000 NOWAIT DC CL4'NWAI' 01095000 WAIT DC CL4'WAIT' 01096000 SECCHECK DC CL8'SECCHECK' 01097000 SCRVTOC DC CL8'SCRVTOC ' 01098000 GETVTOC DC CL8'GETVTOC ' 01099000 PUTVTOC DC CL8'PUTVTOC ' 01100000 RECATLG DC CL8'RECATLG ' 01101000 INITVOL DC CL8'INITVOL ' 01102000 CHECK DC CL8'CHECK ' 01103000 POSTUCB DC CL8'POSTUCB ' 01104000 GET DC CL8'GET ' 01105000 PUT DC CL8'PUT ' 01106000 CLOSE DC CL8'CLOSE ' 01107000 OPEN DC CL8'OPEN ' 01108000 PUTLABEL DC CL8'PUTLABEL' 01109000 GETLABEL DC CL8'GETLABEL' 01110000 CANCEL DC CL8'CANCEL ' 01111000 SET DC CL8'SET ' 01112000 SELECTX DC CL8'SELECTX ' 01113000 CHANGEX DC CL8'CHANGEX ' 01114000 SELECTDD DC CL8'SELECTDD' 01115000 SELECTDS DC CL8'SELECTDS' 01116000 TBLREST DC CL8'TBLREST ' 01117000 NULLIFYC DC CL8'NULLIFYC' 01118000 RDMSC DC CL8'RDMSC ' 01119000 RDMSCTBL DC CL8'RDMSCTBL' 01120000 RDCARTLB DC CL8'RDCARTLB' 01121000 AUDITCEL DC CL8'AUDITCEL' 01122000 RDSTGAD DC CL8'RDSTGAD ' 01123000 FIXAREA DS CL100 01124000 ORG FIXAREA 01125000 @NM00144 DC 100X'00' 01126000 ORG FIXAREA+100 01127000 RESTORE DC X'08' 01128000 NOTBLID DC X'F0' 01129000 CHRSUPLD DC X'11' 01130000 TBLCHR DC X'00070101' 01131000 F0F0 DC X'F0F0' 01132000 MODID DC CL4'ST01' 01133000 SSMODSS0 DC CL3'SS0' 01134000 SSMODCM0 DC CL3'CM0' 01135000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01136000 @01 EQU 01 01137000 @02 EQU 02 01138000 @03 EQU 03 01139000 @04 EQU 04 01140000 @05 EQU 05 01141000 @06 EQU 06 01142000 @07 EQU 07 01143000 @08 EQU 08 01144000 @09 EQU 09 01145000 @10 EQU 10 01146000 @11 EQU 11 01147000 @12 EQU 12 01148000 @13 EQU 13 01149000 @14 EQU 14 01150000 @15 EQU 15 01151000 ENTRYNUM EQU @02 01152000 VTR1PTR EQU @02 01153000 DMPINDEX EQU @02 01154000 TESTRC EQU @03 01155000 REG10 EQU @10 01156000 RTNREG EQU @15 01157000 COTBR1 EQU @01 01158000 QUERR1 EQU @01 01159000 REG0 EQU @00 01160000 REG1 EQU @01 01161000 REG11 EQU @11 01162000 REG12 EQU @12 01163000 REG13 EQU @13 01164000 REG14 EQU @14 01165000 REG15 EQU @15 01166000 REG2 EQU @02 01167000 REG3 EQU @03 01168000 REG4 EQU @04 01169000 REG5 EQU @05 01170000 REG6 EQU @06 01171000 REG7 EQU @07 01172000 REG8 EQU @08 01173000 REG9 EQU @09 01174000 IDCSAEP0 EQU 0 01175000 IDCSASS0 EQU 0 01176000 TRACE1 EQU 0 01177000 OLDERID1 EQU TRACE1 01178000 TRACE2 EQU 0 01179000 OLDERID2 EQU TRACE2 01180000 NEWID2 EQU TRACE2+95 01181000 NEWERID2 EQU 5 01182000 CIRAGL EQU 0 01183000 CIRTYPE EQU CIRAGL 01184000 ALLAGL EQU 0 01185000 ALLSTS EQU ALLAGL+24 01186000 ALLDSP EQU ALLAGL+25 01187000 ALLORG EQU ALLAGL+26 01188000 ALLOPT EQU ALLAGL+28 01189000 UNITABL EQU 0 01190000 UNITADR EQU UNITABL+4 01191000 @NM00010 EQU UNITADR 01192000 UNITSTAT EQU UNITABL+6 01193000 IOCSTR EQU 0 01194000 IOCDSO EQU IOCSTR+16 01195000 IOCRFM EQU IOCSTR+17 01196000 IOCMAC EQU IOCSTR+18 01197000 IOCMAC2 EQU IOCSTR+19 01198000 IOCCHP EQU IOCSTR+20 01199000 IOCMSG EQU IOCSTR+21 01200000 IOCRBA EQU IOCSTR+40 01201000 IOCTTR EQU IOCRBA 01202000 IOCMEM EQU IOCSTR+44 01203000 IOCNWM EQU IOCSTR+48 01204000 OPNAGL EQU 0 01205000 OPNOPT EQU OPNAGL 01206000 OPNRFM EQU OPNAGL+1 01207000 OPNTYP EQU OPNAGL+2 01208000 OPNMOD EQU OPNAGL+3 01209000 OPNDEV EQU OPNAGL+24 01210000 OPNDSO EQU OPNAGL+41 01211000 OPNOPT2 EQU OPNAGL+42 01212000 IOINFOPT EQU 0 01213000 UVOLLIST EQU 0 01214000 UVOLENT EQU UVOLLIST+2 01215000 AMSTP011 EQU 0 01216000 DARGLIST EQU 0 01217000 DARGDBP EQU DARGLIST 01218000 DARGRETP EQU DARGLIST+4 01219000 DARGSTID EQU DARGLIST+8 01220000 DARGSMOD EQU DARGSTID 01221000 DARGSENT EQU DARGSTID+3 01222000 DARGILP EQU DARGLIST+12 01223000 DARGRETL EQU DARGLIST+16 01224000 DARGARY EQU DARGLIST+20 01225000 DARGINS EQU DARGARY 01226000 DARGINL EQU DARGARY+2 01227000 FMTLIST EQU 0 01228000 FMTFLGS EQU FMTLIST 01229000 FMTSPF EQU FMTLIST+2 01230000 FMTRFNO EQU FMTSPF 01231000 FMTILEN EQU FMTRFNO 01232000 FMTIOFF EQU FMTLIST+4 01233000 FMTTRBC EQU FMTIOFF 01234000 FMTSTO EQU FMTTRBC 01235000 FMTOCOL EQU FMTLIST+6 01236000 FMTCNVF EQU FMTLIST+10 01237000 ERCNVTAB EQU 0 01238000 ERTYPE EQU ERCNVTAB 01239000 EROPER EQU ERCNVTAB+1 01240000 EROSOPER EQU ERCNVTAB+2 01241000 IDCDB010 EQU 0 01242000 DMPITM EQU 0 01243000 DMPITMNM EQU DMPITM 01244000 DMPITMPT EQU DMPITM+8 01245000 DMPITMLN EQU DMPITM+12 01246000 DMPITMTP EQU DMPITM+14 01247000 DMPARY EQU 0 01248000 DMPTRM EQU 0 01249000 CCMSG EQU 0 01250000 CMMSG EQU 0 01251000 CMVOLFLG EQU CMMSG+6 01252000 CTMSG EQU 0 01253000 CTARRAY EQU CTMSG+4 01254000 MDAGL EQU 0 01255000 MDFLAGS EQU MDAGL+30 01256000 PUAGL EQU 0 01257000 CKAGL EQU 0 01258000 CKFLAGS EQU CKAGL+28 01259000 EXCLAGL EQU 0 01260000 EXCLFLAG EQU EXCLAGL+22 01261000 EXOARG EQU 0 01262000 EXOPT EQU EXOARG+32 01263000 EXFLG EQU EXOARG+33 01264000 EXGARG EQU 0 01265000 EXPARG EQU 0 01266000 EXPDATA EQU EXPARG+12 01267000 EXPDATAB EQU 0 01268000 EXPARRAY EQU EXPDATAB+4 01269000 VS2AGL EQU 0 01270000 VSLABOPT EQU VS2AGL+28 01271000 VS2MSG EQU VS2AGL+35 01272000 VS2RESOP EQU VS2AGL+36 01273000 VS1AGL EQU 0 01274000 VSSECOPT EQU VS1AGL+68 01275000 VSVTOPT EQU VS1AGL+69 01276000 VSCATOPT EQU VS1AGL+70 01277000 VSRETURN EQU VS1AGL+71 01278000 VSMSG EQU VS1AGL+72 01279000 VSRESOPT EQU VS1AGL+73 01280000 RCTAGL EQU 0 01281000 RCTOPT EQU RCTAGL+8 01282000 STAEPARM EQU 0 01283000 STARCVY EQU STAEPARM+52 01284000 STARETRY EQU STAEPARM+53 01285000 VOLLABEL EQU 0 01286000 SV82LIST EQU 0 01287000 @NM00065 EQU SV82LIST+4 01288000 SV82DCBP EQU @NM00065 01289000 @NM00066 EQU SV82LIST+12 01290000 SV82WRKP EQU @NM00066 01291000 SRTAGL EQU 0 01292000 LCTINFO EQU 0 01293000 LCTFLAGS EQU LCTINFO+32 01294000 UCTAGL EQU 0 01295000 UCTFLAGS EQU UCTAGL+68 01296000 SELAGL EQU 0 01297000 SELFLAGS EQU SELAGL+22 01298000 DATESAGL EQU 0 01299000 DATESOPT EQU DATESAGL+20 01300000 VS3AGL EQU 0 01301000 VS3FLAGS EQU VS3AGL+58 01302000 VSDVTOC EQU 0 01303000 VSDSTAT EQU 0 01304000 VSDSFLG1 EQU VSDSTAT+16 01305000 VSDFLG2 EQU VSDSTAT+17 01306000 VSDSCR EQU 0 01307000 VSDSCRFL EQU VSDSCR+4 01308000 VSDUSAGE EQU 0 01309000 VSDDORG EQU VSDUSAGE+9 01310000 VSDALLOC EQU VSDUSAGE+10 01311000 VSDUSEF EQU VSDUSAGE+11 01312000 VSDDSORG EQU VSDUSAGE+16 01313000 VSDBLOCK EQU 0 01314000 VSDSPACE EQU VSDBLOCK+12 01315000 VSDARRAY EQU VSDBLOCK+16 01316000 VSDVARY EQU VSDARRAY+48 01317000 VADWORD1 EQU 0 01318000 VADRUA EQU VADWORD1+2 01319000 VADWORD2 EQU 0 01320000 VADRPNUM EQU VADWORD2 01321000 VADFLAGS EQU VADWORD2+3 01322000 VVITBYT1 EQU 0 01323000 VVITBYT2 EQU 0 01324000 PST EQU 0 01325000 LTR EQU 0 01326000 LTRRUA EQU LTR 01327000 VTABLER1 EQU 0 01328000 @NM00084 EQU VTABLER1+8 01329000 VTTBLCHR EQU VTABLER1+16 01330000 VTSDGID EQU VTABLER1+80 01331000 VTUCB EQU VTABLER1+144 01332000 VTFLAGS EQU VTUCB 01333000 VTPADDR EQU VTUCB+4 01334000 VTTRCCHR EQU VTABLER1+220 01335000 VTLRUCW EQU VTABLER1+236 01336000 VTRVPAGE EQU VTABLER1+240 01337000 VTVOLPFX EQU VTABLER1+252 01338000 RPM EQU 0 01339000 RPMFLAGS EQU RPM 01340000 PAB EQU 0 01341000 PABSA EQU PAB+16 01342000 @NM00094 EQU PAB+32 01343000 @NM00095 EQU PAB+192 01344000 PABFLAGS EQU @NM00095 01345000 PABRINTF EQU @NM00095+1 01346000 PABORUA EQU @NM00095+2 01347000 DVB EQU 0 01348000 DVBMVT EQU DVB+4 01349000 LPB EQU 0 01350000 LPBMVT EQU LPB+4 01351000 VMX EQU 0 01352000 VMXFLAGS EQU VMX 01353000 VVAT EQU 0 01354000 CBMAP EQU 0 01355000 MERECORD EQU 0 01356000 @NM00101 EQU MERECORD 01357000 MEFLAGS EQU @NM00101 01358000 @NM00103 EQU MERECORD+128 01359000 MVCTLBLK EQU 0 01360000 MVIDXBLK EQU 0 01361000 MVIFLAGS EQU MVIDXBLK 01362000 @NM00106 EQU MVIDXBLK+8 01363000 MVENTRY EQU 0 01364000 MVVFLAGS EQU MVENTRY+6 01365000 MVMFLAGS EQU MVENTRY+12 01366000 MVRESRVE EQU MVENTRY+14 01367000 MVVAMSG EQU MVENTRY+17 01368000 @NM00115 EQU MVENTRY+20 01369000 MVSA EQU @NM00115 01370000 MVCPUIDS EQU @NM00115+1 01371000 MVVUAS EQU @NM00115+5 01372000 @NM00117 EQU MVENTRY+52 01373000 MVLOGDEV EQU @NM00117 01374000 MVVUA EQU 0 01375000 SCCTLFLD EQU 0 01376000 SCCOMLEN EQU SCCTLFLD 01377000 SCCFLAGS EQU SCCOMLEN 01378000 SCTRKPTR EQU SCCTLFLD+4 01379000 SCENTRY EQU 0 01380000 VICTLFLD EQU 0 01381000 VICFLAGS EQU VICTLFLD 01382000 VITRKPTR EQU VICTLFLD+4 01383000 VIENTRY EQU 0 01384000 VIVFLAGS EQU VIENTRY+6 01385000 TVCTLFLD EQU 0 01386000 TVCOMLEN EQU TVCTLFLD 01387000 TVCFLAGS EQU TVCOMLEN 01388000 TVTRKPTR EQU TVCTLFLD+4 01389000 TVENTRY EQU 0 01390000 TVVFLAGS EQU TVENTRY+22 01391000 CIENTRY EQU 0 01392000 CICSCNCT EQU CIENTRY 01393000 CISACHNL EQU CIENTRY+2 01394000 @NM00132 EQU 0 01395000 CICUCHL EQU @NM00132+1 01396000 MICTABLE EQU 0 01397000 @NM00134 EQU MICTABLE 01398000 MICFLAG1 EQU @NM00134+6 01399000 MICFLAG2 EQU @NM00134+7 01400000 CDBLOCK EQU 0 01401000 @NM00138 EQU CDBLOCK 01402000 CDBSDG EQU @NM00138 01403000 CDBCNFIG EQU CDBSDG 01404000 CDBPATHS EQU @NM00138+1 01405000 CDBSA EQU 0 01406000 CMCTLBLK EQU 0 01407000 CMENTRY EQU 0 01408000 SD EQU 0 01409000 SSID EQU SD+1 01410000 AMSTP041 EQU 0 01411000 AMSTP042 EQU 0 01412000 AMSTP043 EQU 0 01413000 AMSTP044 EQU 0 01414000 IDCIOCL0 EQU 0 01415000 IDCIOCO0 EQU 0 01416000 IDCIOGT0 EQU 0 01417000 IDCIOIT0 EQU 0 01418000 IDCIOOP0 EQU 0 01419000 IDCIOPO0 EQU 0 01420000 IDCIOPT0 EQU 0 01421000 IDCIOSI0 EQU 0 01422000 IDCIOST0 EQU 0 01423000 IDCIOTM0 EQU 0 01424000 IDCIOVY0 EQU 0 01425000 IDCIO050 EQU 0 01426000 IDCSAAL0 EQU 0 01427000 IDCSACA0 EQU 0 01428000 IDCSACL0 EQU 0 01429000 IDCSACR0 EQU 0 01430000 IDCSADE0 EQU 0 01431000 IDCSADL0 EQU 0 01432000 IDCSADQ0 EQU 0 01433000 IDCSAFP0 EQU 0 01434000 IDCSAFS0 EQU 0 01435000 IDCSAGP0 EQU 0 01436000 IDCSAGS0 EQU 0 01437000 IDCSAID0 EQU 0 01438000 IDCSALC0 EQU 0 01439000 IDCSALD0 EQU 0 01440000 IDCSALK0 EQU 0 01441000 IDCSANQ0 EQU 0 01442000 IDCSAPR0 EQU 0 01443000 IDCSAPT0 EQU 0 01444000 IDCSAQL0 EQU 0 01445000 IDCSARC0 EQU 0 01446000 IDCSARV0 EQU 0 01447000 IDCSASC0 EQU 0 01448000 IDCSASI0 EQU 0 01449000 IDCSASN0 EQU 0 01450000 IDCSAST0 EQU 0 01451000 IDCSATI0 EQU 0 01452000 IDCSAUC0 EQU 0 01453000 IDCSAWO0 EQU 0 01454000 IDCSA060 EQU 0 01455000 IDCST010 EQU 0 01456000 IDCTPER0 EQU 0 01457000 LISTTEST EQU 0 01458000 MVCPUID EQU 0 01459000 NEWERID1 EQU 5 01460000 GDTTBL EQU 0 01461000 GDTTR1 EQU GDTTBL+8 01462000 GDTTR2 EQU GDTTBL+12 01463000 GDTDBG EQU GDTTBL+40 01464000 GDTSTC EQU GDTTBL+44 01465000 GDTPRT EQU GDTTBL+48 01466000 GDTESS EQU GDTTBL+52 01467000 GDTESA EQU GDTTBL+56 01468000 GDTRST EQU GDTTBL+60 01469000 GDTRES EQU GDTTBL+64 01470000 GDTCAL EQU GDTTBL+68 01471000 GDTGSP EQU GDTTBL+72 01472000 GDTFSP EQU GDTTBL+76 01473000 GDTGPL EQU GDTTBL+80 01474000 GDTFPL EQU GDTTBL+84 01475000 GDTLOD EQU GDTTBL+88 01476000 GDTDEL EQU GDTTBL+92 01477000 GDTPRL EQU GDTTBL+96 01478000 GDTEPL EQU GDTTBL+100 01479000 GDTTIM EQU GDTTBL+104 01480000 GDTIIO EQU GDTTBL+108 01481000 GDTTIO EQU GDTTBL+112 01482000 GDTOPN EQU GDTTBL+124 01483000 GDTCLS EQU GDTTBL+128 01484000 GDTGET EQU GDTTBL+132 01485000 GDTPUT EQU GDTTBL+136 01486000 GDTPOS EQU GDTTBL+140 01487000 GDTCPY EQU GDTTBL+144 01488000 GDTCAT EQU GDTTBL+148 01489000 GDTSNP EQU GDTTBL+164 01490000 GDTVFY EQU GDTTBL+172 01491000 GDTUID EQU GDTTBL+192 01492000 GDTPMT EQU GDTTBL+196 01493000 GDTCIR EQU GDTTBL+200 01494000 GDTLNK EQU GDTTBL+204 01495000 GDTALC EQU GDTTBL+208 01496000 GDTDLC EQU GDTTBL+212 01497000 GDTQAL EQU GDTTBL+216 01498000 GDTSTW EQU GDTTBL+220 01499000 GDTSSC EQU GDTTBL+224 01500000 GDTENQ EQU GDTTBL+228 01501000 GDTRSV EQU GDTTBL+232 01502000 GDTDEQ EQU GDTTBL+236 01503000 GDTSFO EQU GDTTBL+240 01504000 GDTWTO EQU GDTTBL+244 01505000 GDTSCR EQU GDTTBL+248 01506000 GDTUNT EQU GDTTBL+252 01507000 GDTRCT EQU GDTTBL+256 01508000 GDTIFO EQU GDTTBL+260 01509000 GDTEXP EQU GDTTBL+264 01510000 GDTSTA EQU GDTTBL+268 01511000 GDTERR EQU GDTTBL+272 01512000 GDTUNC EQU GDTTBL+276 01513000 GDTLOC EQU GDTTBL+280 01514000 FDTTBL EQU 0 01515000 LASTCOND EQU 0 01516000 SSRCODE EQU 0 01517000 SSRHALF EQU SSRCODE+2 01518000 SSECBCD EQU 0 01519000 QWPARM EQU QUPARM 01520000 QWRES1 EQU QWPARM 01521000 QWFLAG EQU QWPARM+2 01522000 QTPARM EQU QUPARM 01523000 QTID EQU QTPARM 01524000 QTFLAG EQU QTPARM+1 01525000 QTDASCHR EQU QTPARM+20 01526000 QLPARM EQU QUPARM 01527000 QCPARM EQU QUPARM 01528000 DCOTBTID EQU COTBTID 01529000 * START UNREFERENCED COMPONENTS 01530000 QCMAD3Z1 EQU QCPARM+28 01531000 QCMAD3Z0 EQU QCPARM+24 01532000 QCMAD2Z1 EQU QCPARM+20 01533000 QCMAD2Z0 EQU QCPARM+16 01534000 QCMAD1Z1 EQU QCPARM+12 01535000 QCMAD1Z0 EQU QCPARM+8 01536000 QCMAD0Z1 EQU QCPARM+4 01537000 QCMAD0Z0 EQU QCPARM 01538000 QLRES EQU QLPARM+2 01539000 QLZYX EQU QLPARM 01540000 QTRES EQU QTPARM+24 01541000 QTDATA EQU QTPARM+2 01542000 QTTABID EQU QTID 01543000 QWRES2 EQU QWPARM+3 01544000 @NM00143 EQU QWFLAG 01545000 QWMEM EQU QWFLAG 01546000 QWSSID EQU QWRES1 01547000 @NM00147 EQU SSRCODE 01548000 FDTPTR EQU FDTTBL+8 01549000 FDTVERB EQU FDTTBL 01550000 GDTECT EQU GDTTBL+188 01551000 GDTPSB EQU GDTTBL+184 01552000 GDTUPT EQU GDTTBL+180 01553000 GDTCMB EQU GDTTBL+176 01554000 GDTSPR EQU GDTTBL+168 01555000 @NM00001 EQU GDTTBL+160 01556000 GDTABH EQU GDTTBL+156 01557000 GDTABT EQU GDTTBL+152 01558000 GDTTOH EQU GDTTBL+120 01559000 GDTRIP EQU GDTTBL+116 01560000 GDTIOH EQU GDTTBL+36 01561000 GDTSAH EQU GDTTBL+32 01562000 GDTTPH EQU GDTTBL+28 01563000 GDTRIH EQU GDTTBL+24 01564000 GDTSTH EQU GDTTBL+20 01565000 GDTDBH EQU GDTTBL+16 01566000 GDTPRM EQU GDTTBL+4 01567000 GDTHDR EQU GDTTBL 01568000 @NM00146 EQU SD 01569000 CMX3Z1 EQU CMENTRY 01570000 CMX3Z0 EQU CMENTRY 01571000 CMX2Z1 EQU CMENTRY 01572000 CMX2Z0 EQU CMENTRY 01573000 CMX1Z1 EQU CMENTRY 01574000 CMX1Z0 EQU CMENTRY 01575000 CMX0Z1 EQU CMENTRY 01576000 CMX0Z0 EQU CMENTRY 01577000 CMCPTRS EQU CMCTLBLK+22 01578000 CMCFLAGS EQU CMCTLBLK 01579000 @NM00139 EQU CDBSA 01580000 CDBAPATH EQU CDBSA 01581000 CDB3333 EQU CDBCNFIG 01582000 CDBINUSE EQU CDBCNFIG 01583000 CDBNOSHR EQU CDBCNFIG 01584000 MICAINTF EQU MICFLAG2 01585000 @NM00137 EQU MICFLAG2 01586000 MICCMB EQU MICFLAG2 01587000 MICCURMP EQU MICFLAG2 01588000 MICVALID EQU MICFLAG2 01589000 MICINTF EQU MICFLAG1 01590000 @NM00136 EQU MICFLAG1 01591000 MICAPATH EQU MICFLAG1 01592000 MICPOTMP EQU MICFLAG1 01593000 @NM00135 EQU MICFLAG1 01594000 MICMPCPU EQU @NM00134+5 01595000 MICMFID EQU @NM00134 01596000 CICHL EQU CICUCHL 01597000 @NM00133 EQU CICUCHL 01598000 CICU EQU CICUCHL 01599000 CICPUID EQU @NM00132 01600000 @NM00131 EQU CIENTRY+1 01601000 CIMSF3 EQU CICSCNCT 01602000 CIMSF2 EQU CICSCNCT 01603000 CIMSF1 EQU CICSCNCT 01604000 CIMSF0 EQU CICSCNCT 01605000 @NM00130 EQU CICSCNCT 01606000 CIMSF EQU CICSCNCT 01607000 @NM00129 EQU TVENTRY+23 01608000 @NM00128 EQU TVVFLAGS 01609000 TVWRTINH EQU TVVFLAGS 01610000 TVBNDVOL EQU TVVFLAGS 01611000 TVSCRCTG EQU TVVFLAGS 01612000 TVEXCVOL EQU TVVFLAGS 01613000 TVSECVOL EQU TVVFLAGS 01614000 @NM00127 EQU TVVFLAGS 01615000 TVCECTG EQU TVVFLAGS 01616000 TVVOLID EQU TVENTRY+16 01617000 TVCSN EQU TVENTRY+4 01618000 TVLZYX2 EQU TVENTRY+2 01619000 TVLZYX1 EQU TVENTRY 01620000 TVREC EQU TVTRKPTR+3 01621000 TVHEAD EQU TVTRKPTR+2 01622000 TVCYL EQU TVTRKPTR+1 01623000 @NM00126 EQU TVTRKPTR 01624000 TVENTNUM EQU TVCTLFLD+3 01625000 TVENTMAX EQU TVCTLFLD+2 01626000 TVENTLEN EQU TVCTLFLD+1 01627000 TVLSTTRK EQU TVCFLAGS 01628000 TVENDTRK EQU TVCFLAGS 01629000 TVLSTACT EQU TVCFLAGS 01630000 TVLSTBLK EQU TVCFLAGS 01631000 VILZYX2 EQU VIENTRY+10 01632000 VILZYX1 EQU VIENTRY+8 01633000 @NM00125 EQU VIENTRY+7 01634000 @NM00124 EQU VIVFLAGS 01635000 VIWRTINH EQU VIVFLAGS 01636000 VIBNDVOL EQU VIVFLAGS 01637000 VISCRCTG EQU VIVFLAGS 01638000 VIEXCVOL EQU VIVFLAGS 01639000 VISECVOL EQU VIVFLAGS 01640000 @NM00123 EQU VIVFLAGS 01641000 VICECTG EQU VIVFLAGS 01642000 VIVOLID EQU VIENTRY 01643000 VIREC EQU VITRKPTR+3 01644000 VIHEAD EQU VITRKPTR+2 01645000 VICYL EQU VITRKPTR+1 01646000 @NM00122 EQU VITRKPTR 01647000 VIENTNUM EQU VICTLFLD+3 01648000 VIENTMAX EQU VICTLFLD+2 01649000 VIENTLEN EQU VICTLFLD+1 01650000 VIOFBLK EQU VICFLAGS 01651000 VIAREA EQU VICFLAGS 01652000 VIUSEBLK EQU VICFLAGS 01653000 VILSTTRK EQU VICFLAGS 01654000 VIENDTRK EQU VICFLAGS 01655000 VILSTACT EQU VICFLAGS 01656000 VILSTBLK EQU VICFLAGS 01657000 @NM00121 EQU SCENTRY+18 01658000 SCLZYX EQU SCENTRY+16 01659000 SCCSN EQU SCENTRY+4 01660000 @NM00120 EQU SCENTRY 01661000 SCREC EQU SCTRKPTR+3 01662000 SCHEAD EQU SCTRKPTR+2 01663000 SCCYL EQU SCTRKPTR+1 01664000 @NM00119 EQU SCTRKPTR 01665000 SCENTNUM EQU SCCTLFLD+3 01666000 SCENTMAX EQU SCCTLFLD+2 01667000 SCENTLEN EQU SCCTLFLD+1 01668000 SCLSTTRK EQU SCCFLAGS 01669000 SCENDTRK EQU SCCFLAGS 01670000 SCLSTACT EQU SCCFLAGS 01671000 SCLSTBLK EQU SCCFLAGS 01672000 MVVUAI# EQU MVVUA 01673000 MVCYLMAP EQU @NM00117+3 01674000 MVRPNUM EQU @NM00117+2 01675000 MVBNDCNT EQU @NM00117+1 01676000 @NM00118 EQU MVLOGDEV 01677000 MVDSTGC2 EQU MVLOGDEV 01678000 MVDSTGC1 EQU MVLOGDEV 01679000 MVPINACT EQU MVLOGDEV 01680000 @NM00116 EQU MVENTRY+36 01681000 MVVVA EQU @NM00115+4 01682000 MVACTD EQU MVSA 01683000 MVACTC EQU MVSA 01684000 MVACTB EQU MVSA 01685000 MVVLDSA EQU MVSA 01686000 @NM00114 EQU MVENTRY+18 01687000 @NM00113 EQU MVVAMSG 01688000 MVINTFD EQU MVVAMSG 01689000 MVINTFC EQU MVVAMSG 01690000 MVINTFB EQU MVVAMSG 01691000 MVINTFA EQU MVVAMSG 01692000 MV3333 EQU MVENTRY+16 01693000 MVSDG EQU MVENTRY+15 01694000 @NM00112 EQU MVRESRVE 01695000 MVSA2RSV EQU MVRESRVE 01696000 @NM00111 EQU MVRESRVE 01697000 MVPINCNT EQU MVENTRY+13 01698000 @NM00110 EQU MVMFLAGS 01699000 MVREMNT EQU MVMFLAGS 01700000 MVMNTBND EQU MVMFLAGS 01701000 MVMNTEXC EQU MVMFLAGS 01702000 MVMNTVOL EQU MVMFLAGS 01703000 MVLZYX2 EQU MVENTRY+10 01704000 MVLZYX1 EQU MVENTRY+8 01705000 @NM00109 EQU MVENTRY+7 01706000 @NM00108 EQU MVVFLAGS 01707000 MVWRTINH EQU MVVFLAGS 01708000 MVBNDVOL EQU MVVFLAGS 01709000 MVSCRCTG EQU MVVFLAGS 01710000 MVEXCVOL EQU MVVFLAGS 01711000 MVSECVOL EQU MVVFLAGS 01712000 @NM00107 EQU MVVFLAGS 01713000 MVCECTG EQU MVVFLAGS 01714000 MVVOLID EQU MVENTRY 01715000 MVMVTPTR EQU @NM00106+6 01716000 MVIVOLID EQU @NM00106 01717000 @NM00105 EQU MVIDXBLK+4 01718000 MVENTNUM EQU MVIDXBLK+3 01719000 MVENTMAX EQU MVIDXBLK+2 01720000 MVENTLEN EQU MVIDXBLK+1 01721000 @NM00104 EQU MVIFLAGS 01722000 MVLSTBLK EQU MVIFLAGS 01723000 MVOFBLK EQU MVIFLAGS 01724000 MVOFOUT EQU MVIFLAGS 01725000 MVCTLBIT EQU MVCTLBLK 01726000 MEUCBCNT EQU @NM00103+2 01727000 MEDRVCNT EQU @NM00103+1 01728000 MELRUCNT EQU @NM00103 01729000 @NM00102 EQU MERECORD+120 01730000 MEMNTCNT EQU @NM00101+2 01731000 MEVOCNT EQU @NM00101+1 01732000 MEMVD2 EQU MEFLAGS 01733000 MEMVI2 EQU MEFLAGS 01734000 MEMVD1 EQU MEFLAGS 01735000 MEMVI1 EQU MEFLAGS 01736000 MEVOD2 EQU MEFLAGS 01737000 MEVOI2 EQU MEFLAGS 01738000 MEVOD1 EQU MEFLAGS 01739000 MEVOI1 EQU MEFLAGS 01740000 CBMMSF EQU CBMAP+39 01741000 CBMFLAGS EQU CBMAP+38 01742000 CBMDRIVE EQU CBMAP+8 01743000 CBMDRC EQU CBMAP+6 01744000 CBMSA EQU CBMAP+4 01745000 CBMDRD EQU CBMAP 01746000 VVATVVA EQU VVAT 01747000 VMXMVT EQU VMX+2 01748000 @NM00100 EQU VMX+1 01749000 @NM00099 EQU VMXFLAGS 01750000 VMXVALID EQU VMXFLAGS 01751000 LPBMSFID EQU LPBMVT 01752000 @NM00098 EQU LPB+2 01753000 LPBCURR EQU LPB+1 01754000 LPBNEXT EQU LPB 01755000 DVBMSFID EQU DVBMVT 01756000 @NM00097 EQU DVB+2 01757000 DVBCURR EQU DVB+1 01758000 DVBNEXT EQU DVB 01759000 PABRUA EQU @NM00095+3 01760000 PABORUAV EQU PABORUA 01761000 PABSA2D EQU PABRINTF 01762000 PABSA2C EQU PABRINTF 01763000 PABSA2B EQU PABRINTF 01764000 @NM00096 EQU PABRINTF 01765000 PABSA1D EQU PABRINTF 01766000 PABSA1C EQU PABRINTF 01767000 PABSA1B EQU PABRINTF 01768000 PABRAI EQU PABRINTF 01769000 PAB2M11 EQU PABFLAGS 01770000 PABVARN EQU PABFLAGS 01771000 PABVBND EQU PABFLAGS 01772000 PABMSCT EQU PABFLAGS 01773000 PABMOD11 EQU PABFLAGS 01774000 PABVARR EQU PABFLAGS 01775000 PABVARV EQU PABFLAGS 01776000 PABDEX EQU PABFLAGS 01777000 PABAMAP EQU PAB+128 01778000 PABFMAP EQU PAB+64 01779000 PABBCNT EQU @NM00094+3 01780000 PABICNT EQU @NM00094+2 01781000 PABACNT EQU @NM00094+1 01782000 PABFCNT EQU @NM00094 01783000 @NM00093 EQU PAB+24 01784000 PABSRZ EQU PAB+23 01785000 PABSRY EQU PAB+22 01786000 PABSRX EQU PAB+21 01787000 PABSRW EQU PAB+20 01788000 @NM00092 EQU PAB+18 01789000 PAB3333 EQU PABSA 01790000 @NM00091 EQU PABSA 01791000 PABVLDSA EQU PABSA 01792000 PABLOTH EQU PAB+14 01793000 PABLODEL EQU PAB+13 01794000 @NM00090 EQU PAB+12 01795000 PABUPTH EQU PAB+10 01796000 PABUPDEL EQU PAB+9 01797000 PABPPD EQU PAB+8 01798000 PABBTOT EQU PAB+6 01799000 PABITOT EQU PAB+4 01800000 PABATOT EQU PAB+2 01801000 PABFTOT EQU PAB 01802000 RPMMVT EQU RPM+2 01803000 RPMVPNUM EQU RPM+1 01804000 RPMNA EQU RPMFLAGS 01805000 RPMMSCT EQU RPMFLAGS 01806000 @NM00089 EQU RPMFLAGS 01807000 RPMIOERR EQU RPMFLAGS 01808000 RPMVBND EQU RPMFLAGS 01809000 RPMBND EQU RPMFLAGS 01810000 RPMINACT EQU RPMFLAGS 01811000 RPMACT EQU RPMFLAGS 01812000 @NM00088 EQU VTRVPAGE+4 01813000 VT20TO27 EQU VTRVPAGE+3 01814000 VT18TO1F EQU VTRVPAGE+2 01815000 VT10TO17 EQU VTRVPAGE+1 01816000 VT08TO0F EQU VTRVPAGE 01817000 VTLRUIOS EQU VTLRUCW+2 01818000 VTLRUTIM EQU VTLRUCW+1 01819000 VTLRUCLK EQU VTLRUCW 01820000 VTTRCR EQU VTTRCCHR+3 01821000 VTTRCH EQU VTTRCCHR+2 01822000 VTTRCC EQU VTTRCCHR+1 01823000 VTXY EQU VTTRCCHR 01824000 @NM00087 EQU VTABLER1+160 01825000 VTSADDR EQU VTUCB+6 01826000 VTPOST EQU VTUCB+3 01827000 VTACTIVE EQU VTUCB+2 01828000 VTWORK EQU VTUCB+1 01829000 VTSBUSY EQU VTFLAGS 01830000 VTSREADY EQU VTFLAGS 01831000 VTSONLIN EQU VTFLAGS 01832000 VTSVALID EQU VTFLAGS 01833000 VTPBUSY EQU VTFLAGS 01834000 VTPREADY EQU VTFLAGS 01835000 VTPONLIN EQU VTFLAGS 01836000 VTPVALID EQU VTFLAGS 01837000 VTLRU1 EQU VTSDGID+3 01838000 VTLRU0 EQU VTSDGID+2 01839000 VTL33331 EQU VTSDGID+1 01840000 VTL33330 EQU VTSDGID 01841000 VTTBLR EQU VTTBLCHR+3 01842000 VTTBLH EQU VTTBLCHR+2 01843000 VTTBLC EQU VTTBLCHR+1 01844000 @NM00086 EQU VTTBLCHR 01845000 @NM00085 EQU @NM00084+2 01846000 VTIMPLS EQU @NM00084 01847000 VTPACKID EQU VTABLER1 01848000 LTRMOD11 EQU LTRRUA 01849000 PSTCYLW EQU PST+3 01850000 PSTCYLV EQU PST+2 01851000 PSTVPNUM EQU PST+1 01852000 PSTVVA EQU PST 01853000 VVITPCDD EQU VVITBYT2 01854000 VVITPCDC EQU VVITBYT2 01855000 VVITPCDB EQU VVITBYT2 01856000 VVITRSVD EQU VVITBYT2 01857000 VVITINTF EQU VVITBYT2 01858000 VVITVVB EQU VVITBYT2 01859000 VVITCC EQU VVITBYT2 01860000 VVITVVS EQU VVITBYT1 01861000 VVITVVWI EQU VVITBYT1 01862000 VVITFR EQU VVITBYT1 01863000 VVITNBM EQU VVITBYT1 01864000 VVITDEDD EQU VVITBYT1 01865000 VVITDEDC EQU VVITBYT1 01866000 VVITDEDB EQU VVITBYT1 01867000 VVITRA EQU VVITBYT1 01868000 VADRM EQU VADFLAGS 01869000 VADVSI EQU VADFLAGS 01870000 VADRDED EQU VADFLAGS 01871000 VADRB EQU VADFLAGS 01872000 VADRR EQU VADFLAGS 01873000 VADVWI EQU VADFLAGS 01874000 VADVWG EQU VADFLAGS 01875000 VADVRW EQU VADFLAGS 01876000 VADPOH EQU VADWORD2+2 01877000 VADLUA EQU VADWORD2+1 01878000 VADMOD11 EQU VADRPNUM 01879000 VADLINK EQU VADWORD1+3 01880000 VADCCR EQU VADRUA 01881000 VADVUAR EQU VADRUA 01882000 VADVVA EQU VADWORD1+1 01883000 VADVFM EQU VADWORD1 01884000 VSDDSN EQU VSDARRAY+4 01885000 VSDVOLCT EQU VSDARRAY 01886000 VSDFMT0 EQU VSDBLOCK+8 01887000 VSDVTOCS EQU VSDBLOCK+4 01888000 VSDELEM EQU VSDBLOCK 01889000 VSDFREE EQU VSDUSAGE+24 01890000 VSDALLC EQU VSDUSAGE+19 01891000 VSDDSOR3 EQU VSDDSORG+2 01892000 @NM00083 EQU VSDDSORG 01893000 VSDSCAL EQU VSDUSAGE+12 01894000 @NM00082 EQU VSDUSEF 01895000 VSDCALFR EQU VSDUSEF 01896000 @NM00081 EQU VSDALLOC 01897000 VSDABSTR EQU VSDALLOC 01898000 VSDABLK EQU VSDALLOC 01899000 VSDATRK EQU VSDALLOC 01900000 VSDACYL EQU VSDALLOC 01901000 @NM00080 EQU VSDDORG 01902000 VSDOU EQU VSDDORG 01903000 VSDOIS EQU VSDDORG 01904000 VSDODA EQU VSDDORG 01905000 VSDOUN EQU VSDDORG 01906000 VSDOPS EQU VSDDORG 01907000 VSDOPO EQU VSDDORG 01908000 VSDEXTS EQU VSDUSAGE+8 01909000 VSDSECAL EQU VSDUSAGE+4 01910000 VSDFTRK EQU VSDUSAGE+2 01911000 VSDTRKS EQU VSDUSAGE 01912000 @NM00079 EQU VSDSCR+5 01913000 @NM00078 EQU VSDSCRFL 01914000 VSDVSAM EQU VSDSCRFL 01915000 VSDCATLC EQU VSDSCRFL 01916000 VSDACBPT EQU VSDSCR 01917000 VSDPRTC EQU VSDSTAT+25 01918000 VSDCAT EQU VSDSTAT+22 01919000 VSDEXP EQU VSDSTAT+20 01920000 VSDCRE EQU VSDSTAT+18 01921000 @NM00077 EQU VSDFLG2 01922000 VSDERROR EQU VSDFLG2 01923000 VSDPROT EQU VSDFLG2 01924000 VSDPWW EQU VSDFLG2 01925000 VSDPWR EQU VSDFLG2 01926000 @NM00076 EQU VSDSFLG1 01927000 VSDCVSAM EQU VSDSFLG1 01928000 VSDCATLG EQU VSDSFLG1 01929000 VSDVSAME EQU VSDSFLG1 01930000 VSDVSAMC EQU VSDSFLG1 01931000 VSDVTOCE EQU VSDSFLG1 01932000 VSDVTOCC EQU VSDSFLG1 01933000 VSDOWNER EQU VSDSTAT+8 01934000 VSDEXPIR EQU VSDSTAT+4 01935000 VSDCREAT EQU VSDSTAT 01936000 VSDFRCCL EQU VSDVTOC+21 01937000 @NM00075 EQU VSDVTOC+20 01938000 VSDFREXT EQU VSDVTOC+16 01939000 @NM00074 EQU VSDVTOC+15 01940000 VSDFRTRK EQU VSDVTOC+11 01941000 @NM00073 EQU VSDVTOC+10 01942000 VSDFRCYL EQU VSDVTOC+6 01943000 @NM00072 EQU VSDVTOC 01944000 @NM00071 EQU VS3FLAGS 01945000 VS3SYSNM EQU VS3FLAGS 01946000 VS3UNCAT EQU VS3FLAGS 01947000 VS3SCR EQU VS3FLAGS 01948000 VS3USAGE EQU VS3FLAGS 01949000 VS3STAT EQU VS3FLAGS 01950000 VS3DD EQU VS3AGL+50 01951000 VS3VOL EQU VS3AGL+44 01952000 VS3POOL EQU VS3AGL+40 01953000 VS3DEV EQU VS3AGL+36 01954000 VS3UCBP EQU VS3AGL+32 01955000 VS3CREAT EQU VS3AGL+28 01956000 VS3EXPIR EQU VS3AGL+24 01957000 VS3AST EQU VS3AGL+22 01958000 VS3LEVLN EQU VS3AGL+20 01959000 VS3LEVP EQU VS3AGL+16 01960000 VS3EXDSP EQU VS3AGL+12 01961000 VS3LISTP EQU VS3AGL+8 01962000 VS3HEAD EQU VS3AGL 01963000 @NM00070 EQU DATESOPT 01964000 DATDAYOP EQU DATESOPT 01965000 DATDTEOP EQU DATESOPT 01966000 DATSUB EQU DATESOPT 01967000 DATADD EQU DATESOPT 01968000 DATRETRN EQU DATESAGL+16 01969000 DATDAYS EQU DATESAGL+12 01970000 DATDATE EQU DATESAGL+8 01971000 DATHEAD EQU DATESAGL 01972000 @NM00069 EQU SELFLAGS 01973000 SELVOL EQU SELAGL+16 01974000 SELDDNP EQU SELAGL+12 01975000 SELUCBP EQU SELAGL+8 01976000 SELHEAD EQU SELAGL 01977000 @NM00068 EQU UCTFLAGS 01978000 UCTVSCAT EQU UCTFLAGS 01979000 UCTDD EQU UCTAGL+60 01980000 UCTVOLP EQU UCTAGL+56 01981000 UCTACBP EQU UCTAGL+52 01982000 UCTDSN EQU UCTAGL+8 01983000 UCTHEAD EQU UCTAGL 01984000 @NM00067 EQU LCTFLAGS 01985000 LCTVSCAT EQU LCTFLAGS 01986000 LCTOWNER EQU LCTINFO+24 01987000 LCTEXPIR EQU LCTINFO+20 01988000 LCTCREAT EQU LCTINFO+16 01989000 LCTACBP EQU LCTINFO+12 01990000 LCTMULVC EQU LCTINFO+8 01991000 LCTHEAD EQU LCTINFO 01992000 SRTWORKP EQU SRTAGL+28 01993000 SRTFLDLN EQU SRTAGL+24 01994000 SRTPOSIT EQU SRTAGL+20 01995000 SRTLEN EQU SRTAGL+16 01996000 SRTNUM EQU SRTAGL+12 01997000 SRTADDR EQU SRTAGL+8 01998000 SRTHEAD EQU SRTAGL 01999000 SV82DEBP EQU SV82WRKP 02000000 SV82TTRP EQU SV82LIST+8 02001000 SV82VOLP EQU SV82DCBP 02002000 SV82UCBP EQU SV82LIST+1 02003000 SV82CODE EQU SV82LIST 02004000 VOLRESV3 EQU VOLLABEL+55 02005000 VOLOWNER EQU VOLLABEL+45 02006000 VOLRESV1 EQU VOLLABEL+20 02007000 VOLVTOC EQU VOLLABEL+15 02008000 VOLSECTY EQU VOLLABEL+14 02009000 VOLSERNO EQU VOLLABEL+8 02010000 VOLNO EQU VOLLABEL+7 02011000 VOLLABI EQU VOLLABEL+4 02012000 VOLKEY EQU VOLLABEL 02013000 @NM00064 EQU STARETRY 02014000 STAVTOC EQU STARETRY 02015000 STAOFF EQU STARETRY 02016000 STAIO05 EQU STARETRY 02017000 @NM00063 EQU STARCVY 02018000 STACLEAR EQU STARCVY 02019000 STAVPOST EQU STARCVY 02020000 STAVENQ EQU STARCVY 02021000 STAVDMNT EQU STARCVY 02022000 STAVMNT EQU STARCVY 02023000 STATCB EQU STAEPARM+48 02024000 STARTADD EQU STAEPARM+44 02025000 STAEXSAV EQU STAEPARM+40 02026000 STARTSAV EQU STAEPARM+36 02027000 STARTTR EQU STAEPARM+32 02028000 @NM00062 EQU STAEPARM+30 02029000 STARVOL EQU STAEPARM+24 02030000 STARUCB EQU STAEPARM+20 02031000 @NM00061 EQU STAEPARM+18 02032000 STAVVOL EQU STAEPARM+12 02033000 STAVUCB EQU STAEPARM+8 02034000 STAHEAD EQU STAEPARM 02035000 RCTDSET EQU RCTAGL+32 02036000 RCTNVOL EQU RCTAGL+26 02037000 RCTOVOL EQU RCTAGL+20 02038000 RCTNDEV EQU RCTAGL+16 02039000 RCTODEV EQU RCTAGL+12 02040000 @NM00060 EQU RCTAGL+10 02041000 @NM00059 EQU RCTOPT 02042000 RCTVOL EQU RCTOPT 02043000 RCTDEV EQU RCTOPT 02044000 RCTHEAD EQU RCTAGL 02045000 @NM00058 EQU VSRESOPT 02046000 VSREAL EQU VSRESOPT 02047000 VSRES EQU VSRESOPT 02048000 @NM00057 EQU VSMSG 02049000 VSTOV EQU VSMSG 02050000 VSFROMV EQU VSMSG 02051000 @NM00056 EQU VSRETURN 02052000 VSUCAT EQU VSRETURN 02053000 VSVSAM EQU VSRETURN 02054000 @NM00055 EQU VSCATOPT 02055000 VSLIST EQU VSCATOPT 02056000 VSSERIAL EQU VSCATOPT 02057000 VSDEVICE EQU VSCATOPT 02058000 @NM00054 EQU VSVTOPT 02059000 VSVSFLAG EQU VSVTOPT 02060000 VSALTTRK EQU VSVTOPT 02061000 VSTIME EQU VSVTOPT 02062000 VSUCMAST EQU VSSECOPT 02063000 VSOPCAT EQU VSSECOPT 02064000 VSUCTEST EQU VSSECOPT 02065000 VSWRITE EQU VSSECOPT 02066000 VSREAD EQU VSSECOPT 02067000 VSNONONV EQU VSSECOPT 02068000 VSMASTER EQU VSSECOPT 02069000 VSNOVSAM EQU VSSECOPT 02070000 VSODEVP EQU VS1AGL+64 02071000 VSOSERP EQU VS1AGL+60 02072000 VSDEVP EQU VS1AGL+56 02073000 VSSERP EQU VS1AGL+52 02074000 VSPFILEP EQU VS1AGL+48 02075000 VSPSWDP EQU VS1AGL+44 02076000 VSCATDDP EQU VS1AGL+40 02077000 VSACBP EQU VS1AGL+36 02078000 VSCATP EQU VS1AGL+32 02079000 VSNXTATP EQU VS1AGL+28 02080000 VSNUMATP EQU VS1AGL+24 02081000 VSIOP EQU VS1AGL+20 02082000 VSFILEP EQU VS1AGL+16 02083000 VSVOLP EQU VS1AGL+12 02084000 VSUCBP EQU VS1AGL+8 02085000 VSHEAD EQU VS1AGL 02086000 VSDDNAME EQU VS2AGL+37 02087000 @NM00053 EQU VS2RESOP 02088000 VS2REAL EQU VS2RESOP 02089000 VS2RES EQU VS2RESOP 02090000 @NM00052 EQU VS2MSG 02091000 VS2TOV EQU VS2MSG 02092000 VSVOLUME EQU VS2AGL+29 02093000 @NM00051 EQU VSLABOPT 02094000 VSVOLSER EQU VSLABOPT 02095000 VSOWNER EQU VSLABOPT 02096000 VSIOBKPT EQU VS2AGL+24 02097000 VSVOLPTR EQU VS2AGL+20 02098000 VSOWNPTR EQU VS2AGL+16 02099000 VSVTOCSZ EQU VS2AGL+12 02100000 VSUCBPTR EQU VS2AGL+8 02101000 VS2HEAD EQU VS2AGL 02102000 EXPDATAL EQU EXPARRAY+6 02103000 @NM00050 EQU EXPARRAY+5 02104000 EXPKEYLN EQU EXPARRAY+4 02105000 EXPDATAP EQU EXPARRAY 02106000 EXPRECNO EQU EXPDATAB 02107000 EXPCCHHR EQU EXPARG+16 02108000 EXPCTLBK EQU EXPARG+8 02109000 EXPHEAD EQU EXPARG 02110000 EXGDATAL EQU EXGARG+30 02111000 @NM00049 EQU EXGARG+29 02112000 EXGKEYLN EQU EXGARG+28 02113000 EXGDATAP EQU EXGARG+24 02114000 EXGRECNO EQU EXGARG+20 02115000 EXGCCHH2 EQU EXGARG+16 02116000 EXGCCHH1 EQU EXGARG+12 02117000 EXGCTLBK EQU EXGARG+8 02118000 EXGHEAD EQU EXGARG 02119000 @NM00048 EQU EXFLG 02120000 EXOREAD EQU EXFLG 02121000 @NM00047 EQU EXOPT 02122000 EXOVTOC EQU EXOPT 02123000 EXONEW EQU EXOPT 02124000 EXOPASS EQU EXOPT 02125000 EXOLAB EQU EXOPT 02126000 EXOTAB EQU EXOPT 02127000 EXOCTLBK EQU EXOARG+28 02128000 EXOEXT EQU EXOARG+24 02129000 EXOUCB EQU EXOARG+20 02130000 EXOVSN EQU EXOARG+16 02131000 EXODSN EQU EXOARG+12 02132000 EXODDN EQU EXOARG+8 02133000 EXOHEAD EQU EXOARG 02134000 @NM00046 EQU EXCLFLAG 02135000 EXCLMNT EQU EXCLFLAG 02136000 EXCLVOL EQU EXCLAGL+16 02137000 EXCLDDP EQU EXCLAGL+12 02138000 EXCLUCBP EQU EXCLAGL+8 02139000 EXCLHEAD EQU EXCLAGL 02140000 @NM00045 EQU CKFLAGS 02141000 CKDMTABL EQU CKFLAGS 02142000 CKRETTYP EQU CKFLAGS 02143000 CKTESTVT EQU CKFLAGS 02144000 CKLABELP EQU CKAGL+24 02145000 CKDATYPE EQU CKAGL+20 02146000 CKDDNAME EQU CKAGL+12 02147000 CKUCBPTR EQU CKAGL+8 02148000 CKHEAD EQU CKAGL 02149000 PULABELP EQU PUAGL+16 02150000 PUTTRPTR EQU PUAGL+12 02151000 PUUCBPTR EQU PUAGL+8 02152000 PUHEAD EQU PUAGL 02153000 @NM00044 EQU MDFLAGS 02154000 MDDEQ EQU MDFLAGS 02155000 MDENQ EQU MDFLAGS 02156000 MDWAIT EQU MDFLAGS 02157000 MDPOST EQU MDFLAGS 02158000 MDCLEAR EQU MDFLAGS 02159000 MDNEWVOL EQU MDFLAGS 02160000 MDLABEL EQU MDAGL+24 02161000 MDPUAGL EQU MDAGL+20 02162000 MDDDNAME EQU MDAGL+12 02163000 MDUCBPTR EQU MDAGL+8 02164000 MDHEAD EQU MDAGL 02165000 CTTBLRR EQU CTARRAY+3 02166000 CTTBLHH EQU CTARRAY+2 02167000 CTTBLCC EQU CTARRAY+1 02168000 CTTBLID EQU CTARRAY 02169000 CTREALH EQU CTMSG+3 02170000 CTREALCC EQU CTMSG+1 02171000 @NM00043 EQU CTMSG 02172000 CMCSN2 EQU CMMSG+28 02173000 CMCSN1 EQU CMMSG+16 02174000 CMNUMCRT EQU CMMSG+15 02175000 @NM00042 EQU CMMSG+14 02176000 CMNEWVOL EQU CMMSG+8 02177000 @NM00041 EQU CMMSG+7 02178000 @NM00040 EQU CMVOLFLG 02179000 CMRONLY EQU CMVOLFLG 02180000 CMBIND EQU CMVOLFLG 02181000 CMSCRCRT EQU CMVOLFLG 02182000 CMEXCL EQU CMVOLFLG 02183000 CMDERAS EQU CMVOLFLG 02184000 CMSCRVOL EQU CMVOLFLG 02185000 CMCECART EQU CMVOLFLG 02186000 CMOLDVOL EQU CMMSG 02187000 CCOLDCSN EQU CCMSG+24 02188000 CCNEWCSN EQU CCMSG+12 02189000 @NM00039 EQU CCMSG+10 02190000 CCVOL EQU CCMSG+4 02191000 @NM00038 EQU CCMSG+2 02192000 CCEJCODE EQU CCMSG+1 02193000 CCPSTCDE EQU CCMSG 02194000 @NM00037 EQU DMPARY+15 02195000 DMPARYTP EQU DMPARY+14 02196000 DMPARYEX EQU DMPARY+12 02197000 DMPARYIC EQU DMPARY+10 02198000 DMPARYSZ EQU DMPARY+8 02199000 DMPARYNM EQU DMPARY 02200000 @NM00036 EQU DMPITM+15 02201000 @NM00035 EQU ERCNVTAB+24 02202000 ERCPLPT EQU ERCNVTAB+20 02203000 ERCATRC EQU ERCNVTAB+16 02204000 ERDSNM EQU ERCNVTAB+12 02205000 @NM00034 EQU ERCNVTAB+4 02206000 @NM00033 EQU ERCNVTAB+3 02207000 @NM00032 EQU EROSOPER 02208000 EROSUCDX EQU EROSOPER 02209000 EROSCATL EQU EROSOPER 02210000 @NM00031 EQU EROPER 02211000 ERCATAL EQU EROPER 02212000 ERCATDL EQU EROPER 02213000 ERCATDE EQU EROPER 02214000 ERCATLC EQU EROPER 02215000 @NM00030 EQU ERTYPE 02216000 EROSCAT EQU ERTYPE 02217000 ERCATLG EQU ERTYPE 02218000 @NM00029 EQU FMTCNVF+1 02219000 FMTBS EQU FMTCNVF+1 02220000 FMTSS EQU FMTCNVF+1 02221000 FMTAL EQU FMTCNVF+1 02222000 FMTZS EQU FMTCNVF+1 02223000 @NM00028 EQU FMTCNVF 02224000 FMTPU EQU FMTCNVF 02225000 FMTBD EQU FMTCNVF 02226000 FMTBHD EQU FMTCNVF 02227000 FMTBHA EQU FMTCNVF 02228000 FMTBH EQU FMTCNVF 02229000 FMTOLEN EQU FMTLIST+8 02230000 FMTRIO EQU FMTOCOL 02231000 FMTSPT EQU FMTSTO 02232000 FMTSTL EQU FMTILEN 02233000 @NM00027 EQU FMTFLGS+1 02234000 FMTHDF EQU FMTFLGS 02235000 FMTDFF EQU FMTFLGS 02236000 FMTSTF EQU FMTFLGS 02237000 FMTREPF EQU FMTFLGS 02238000 FMTBDF EQU FMTFLGS 02239000 FMTIDF EQU FMTFLGS 02240000 FMTSCF EQU FMTFLGS 02241000 FMTEOLF EQU FMTFLGS 02242000 DARGDTM EQU DARGARY+4 02243000 DARGPCT EQU DARGINL 02244000 DARGREP EQU DARGINS 02245000 @NM00026 EQU DARGLIST+19 02246000 DARGIND EQU DARGLIST+18 02247000 DARGCNT EQU DARGLIST+14 02248000 UVOLVOL EQU UVOLENT+4 02249000 UVOLDEV EQU UVOLENT 02250000 UVOLCNT EQU UVOLLIST 02251000 @NM00025 EQU IOINFOPT 02252000 IOINFTMS EQU IOINFOPT 02253000 IOINFSUP EQU IOINFOPT 02254000 IOINFDSN EQU IOINFOPT 02255000 IOINFVOL EQU IOINFOPT 02256000 IOINFDVT EQU IOINFOPT 02257000 OPNVOL EQU OPNAGL+44 02258000 @NM00024 EQU OPNAGL+43 02259000 @NM00023 EQU OPNOPT2 02260000 OPNOPTJM EQU OPNOPT2 02261000 @NM00022 EQU OPNOPT2 02262000 OPNOPTAS EQU OPNOPT2 02263000 @NM00021 EQU OPNDSO 02264000 OPNDSOPO EQU OPNDSO 02265000 OPNDSOIS EQU OPNDSO 02266000 OPNDSOPS EQU OPNDSO 02267000 OPNDSOAM EQU OPNDSO 02268000 OPNKYL EQU OPNAGL+40 02269000 OPNBLK EQU OPNAGL+36 02270000 OPNREC EQU OPNAGL+32 02271000 OPNDEVIX EQU OPNDEV+4 02272000 OPNDEVDT EQU OPNDEV 02273000 OPNCBP EQU OPNAGL+20 02274000 OPNDSN EQU OPNAGL+16 02275000 OPNPWA EQU OPNAGL+12 02276000 OPNDDN EQU OPNAGL+8 02277000 OPNIOC EQU OPNAGL+4 02278000 OPNMODRP EQU OPNMOD 02279000 OPNMODUB EQU OPNMOD 02280000 OPNMODRS EQU OPNMOD 02281000 OPNMODAX EQU OPNMOD 02282000 OPNMODRR EQU OPNMOD 02283000 OPNMODRC EQU OPNMOD 02284000 OPNMODAC EQU OPNMOD 02285000 OPNMODPD EQU OPNMOD 02286000 @NM00020 EQU OPNTYP 02287000 OPNTYPRV EQU OPNTYP 02288000 OPNTYPEX EQU OPNTYP 02289000 OPNTYPRA EQU OPNTYP 02290000 OPNTYPXM EQU OPNTYP 02291000 OPNTYPCI EQU OPNTYP 02292000 OPNTYPSO EQU OPNTYP 02293000 OPNTYPSI EQU OPNTYP 02294000 @NM00019 EQU OPNRFM 02295000 OPNRFMBK EQU OPNRFM 02296000 OPNRFMSF EQU OPNRFM 02297000 OPNRFMUN EQU OPNRFM 02298000 OPNRFMVR EQU OPNRFM 02299000 OPNRFMFX EQU OPNRFM 02300000 OPNOPTSK EQU OPNOPT 02301000 OPNOPTDR EQU OPNOPT 02302000 OPNOPTCR EQU OPNOPT 02303000 OPNOPTKS EQU OPNOPT 02304000 OPNOPTBK EQU OPNOPT 02305000 OPNOPTUP EQU OPNOPT 02306000 OPNOPTOT EQU OPNOPT 02307000 OPNOPTIN EQU OPNOPT 02308000 IOCEXT EQU IOCSTR+64 02309000 IOCREL EQU IOCSTR+60 02310000 IOCWORK EQU IOCSTR+56 02311000 IOCRRN EQU IOCSTR+52 02312000 IOCPNM EQU IOCNWM+2 02313000 IOCPTL EQU IOCNWM 02314000 IOCKYA EQU IOCMEM 02315000 IOCVRC EQU IOCTTR 02316000 IOCCBP EQU IOCSTR+36 02317000 IOCDSN EQU IOCSTR+32 02318000 IOCHURBA EQU IOCSTR+28 02319000 IOCVOLSR EQU IOCSTR+22 02320000 @NM00018 EQU IOCMSG 02321000 IOCMSGAE EQU IOCMSG 02322000 IOCMSGCE EQU IOCMSG 02323000 IOCMSGOE EQU IOCMSG 02324000 IOCMSGOP EQU IOCMSG 02325000 @NM00017 EQU IOCMSG 02326000 IOCCHPSY EQU IOCCHP 02327000 IOCCHPAS EQU IOCCHP 02328000 IOCCHPBK EQU IOCCHP 02329000 IOCCHPCR EQU IOCCHP 02330000 IOCCHPKS EQU IOCCHP 02331000 IOCCHPSK EQU IOCCHP 02332000 IOCCHPDR EQU IOCCHP 02333000 IOCCHPSQ EQU IOCCHP 02334000 @NM00016 EQU IOCMAC2 02335000 IOCMACPA EQU IOCMAC2 02336000 @NM00015 EQU IOCMAC2 02337000 IOCMACCP EQU IOCMAC2 02338000 IOCMACRR EQU IOCMAC2 02339000 IOCMACAS EQU IOCMAC2 02340000 IOCMACSK EQU IOCMAC2 02341000 @NM00014 EQU IOCMAC 02342000 IOCMACCC EQU IOCMAC 02343000 IOCMACDR EQU IOCMAC 02344000 IOCMACBK EQU IOCMAC 02345000 IOCMACCR EQU IOCMAC 02346000 IOCMACUP EQU IOCMAC 02347000 IOCMACOT EQU IOCMAC 02348000 IOCMACIN EQU IOCMAC 02349000 @NM00013 EQU IOCRFM 02350000 IOCRFMBK EQU IOCRFM 02351000 IOCRFMSF EQU IOCRFM 02352000 IOCRFMUN EQU IOCRFM 02353000 IOCRFMVR EQU IOCRFM 02354000 IOCRFMFX EQU IOCRFM 02355000 @NM00012 EQU IOCDSO 02356000 IOCDSOPO EQU IOCDSO 02357000 IOCDSOIS EQU IOCDSO 02358000 IOCDSOPS EQU IOCDSO 02359000 IOCDSOAM EQU IOCDSO 02360000 IOCRKP EQU IOCSTR+13 02361000 IOCKYL EQU IOCSTR+12 02362000 IOCTRN EQU IOCSTR+8 02363000 IOCDLN EQU IOCSTR+4 02364000 IOCDAD EQU IOCSTR 02365000 UNITVTOC EQU UNITABL+7 02366000 @NM00011 EQU UNITSTAT 02367000 UNITXSHR EQU UNITSTAT 02368000 UNITISHR EQU UNITSTAT 02369000 UNITUA EQU @NM00010+1 02370000 UNITCHA EQU @NM00010 02371000 UNITUCB EQU UNITABL 02372000 ALLUNCNT EQU ALLAGL+30 02373000 ALLVLCNT EQU ALLAGL+29 02374000 @NM00009 EQU ALLOPT 02375000 ALLOPTUN EQU ALLOPT 02376000 ALLOPTPV EQU ALLOPT 02377000 ALLOPTDS EQU ALLOPT 02378000 ALLOPTVL EQU ALLOPT 02379000 @NM00008 EQU ALLORG+1 02380000 ALLORGVS EQU ALLORG+1 02381000 @NM00007 EQU ALLORG+1 02382000 ALLORGGS EQU ALLORG+1 02383000 ALLORGUN EQU ALLORG 02384000 ALLORGPO EQU ALLORG 02385000 ALLORGMQ EQU ALLORG 02386000 ALLORGCQ EQU ALLORG 02387000 ALLORGCX EQU ALLORG 02388000 ALLORGDA EQU ALLORG 02389000 ALLORGPS EQU ALLORG 02390000 ALLORGIS EQU ALLORG 02391000 ALLDSPUN EQU ALLDSP 02392000 ALLDSPCG EQU ALLDSP 02393000 ALLDSPDE EQU ALLDSP 02394000 ALLDSPKP EQU ALLDSP 02395000 @NM00006 EQU ALLDSP 02396000 ALLSTSOD EQU ALLSTS 02397000 ALLSTSMD EQU ALLSTS 02398000 ALLSTSNW EQU ALLSTS 02399000 ALLSTSSR EQU ALLSTS 02400000 @NM00005 EQU ALLSTS 02401000 ALLPWD EQU ALLAGL+20 02402000 ALLVLP EQU ALLAGL+16 02403000 ALLULP EQU ALLAGL+12 02404000 ALLDDN EQU ALLAGL+4 02405000 ALLDSN EQU ALLAGL 02406000 CIRPID EQU CIRAGL+28 02407000 CIRPWD EQU CIRAGL+24 02408000 CIRCAT EQU CIRAGL+20 02409000 CIRWKP EQU CIRAGL+16 02410000 CIRTLR EQU CIRAGL+12 02411000 CIRHDR EQU CIRAGL+8 02412000 CIRTLN EQU CIRAGL+6 02413000 CIRHLN EQU CIRAGL+4 02414000 @NM00004 EQU CIRAGL+1 02415000 @NM00003 EQU CIRTYPE 02416000 CIRTYPAQ EQU CIRTYPE 02417000 CIRTYP1Q EQU CIRTYPE 02418000 NEWID1 EQU TRACE1+95 02419000 CALLID EQU OLDERID1+90 02420000 @NM00002 EQU OLDERID1 02421000 * END UNREFERENCED COMPONENTS 02422000 @RF00420 EQU @RC00405 02423000 @PB00002 EQU @EL00001 02424000 @ENDDATA EQU * 02425000 END IDCST01,(C'PLS2307',0603,75289) 02426000