TITLE '**************** IDCNC01: NULLIFYC 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 IDCNC01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCNC01 76.201' 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 * IF GDTDBG=NULLPTR THEN 0231 00034000 L @15,@PC00001 0231 00035000 L @15,GDTDBG(,@15) 0231 00036000 LTR @15,@15 0231 00037000 BZ @RT00231 0231 00038000 * ; 0232 00039000 * ELSE 0233 00040000 * CALL IDCDB010(GDTTBL,'NCAA'); /* @Z40LB38*/ 00041000 L @15,@PC00001 0233 00042000 ST @15,@AL00001 0233 00043000 LA @14,@CC01094 0233 00044000 ST @14,@AL00001+4 0233 00045000 MVI @AL00001+4,X'80' 0233 00046000 L @15,GDTDBG(,@15) 0233 00047000 LA @01,@AL00001 0233 00048000 BALR @14,@15 0233 00049000 * OLDERID2=NEWERID2; 0234 00050000 @RT00231 L @15,@PC00001 0234 00051000 L @15,GDTTR2(,@15) 0234 00052000 MVC @TS00001(95),NEWERID2(@15) 0234 00053000 MVC OLDERID2(95,@15),@TS00001 0234 00054000 * NEWID2='NCAA'; /* @Z40LB38*/ 00055000 * 0235 00056000 MVC NEWID2(4,@15),@CC01094 0235 00057000 * /*****************************************************************/ 00058000 * /* */ 00059000 * /* INITIALIZE POINTERS AND SET THE PARAMETERS LISTS @Z40LB38*/ 00060000 * /* TO 0. PRINTAB IS USED FOR THE PRINT PARM LIST AND NULLCA IS */ 00061000 * /* THE PARAMETER LIST PASSED TO THE USSC MACRO TO DO THE NULLIFYC*/ 00062000 * /* FUNCTION. @Z40LB38*/ 00063000 * /* */ 00064000 * /*****************************************************************/ 00065000 * 0236 00066000 * DDSTRU=ADDR(PRINTAB); /* @Z40LB38*/ 00067000 LA @15,PRINTAB 0236 00068000 ST @15,DDSTRU 0236 00069000 * NULLCPTR=ADDR(NULLCA); /* @Z40LB38*/ 00070000 LA @15,NULLCA 0237 00071000 ST @15,NULLCPTR 0237 00072000 * NULLCX=''B; /* @Z40LB38*/ 00073000 XC NULLCX(44,@15),NULLCX(@15) 0238 00074000 * PRINTAB=''B; /* @Z40LB38*/ 00075000 XC PRINTAB(20),PRINTAB 0239 00076000 * LASTCOND=''B; /* @Z40LB38*/ 00077000 * 0240 00078000 L @15,@PC00001+8 0240 00079000 SLR @14,@14 0240 00080000 STH @14,LASTCOND(,@15) 0240 00081000 * /*****************************************************************/ 00082000 * /* */ 00083000 * /* TEST IF THE CARTRIDGE SERIAL NUMBER WAS SPECIFIED. @Z40LB38*/ 00084000 * /* IF YES, TEST THE LENGTH AND CALL CKCSNLEN IF NOT 12 CHARACTERS*/ 00085000 * /* LONG. @Z40LB38*/ 00086000 * /* */ 00087000 * /*****************************************************************/ 00088000 * 0241 00089000 * IF ADDR(CART)^=0 THEN 0241 00090000 L @15,@PC00001+4 0241 00091000 L @15,FDTPTR+12(,@15) 0241 00092000 LTR @15,@15 0241 00093000 BZ @RF00241 0241 00094000 * DO; /* @Z40LB38*/ 00095000 * CSNNAME=CARTVAL; /* @Z40LB38*/ 00096000 * 0243 00097000 MVC CSNNAME(12),CARTVAL(@15) 0243 00098000 * /*************************************************************/ 00099000 * /* */ 00100000 * /* TEST THE CSN LENGTH. IF IT IS NOT 12 CHARACTERS, @Z40LB38*/ 00101000 * /* CALL CKCSNLEN TO CHECK FOR SYNTAX AND INSERT A BLANK IN */ 00102000 * /* THE FOURTH POSITION IF IT IS 11 CHARS. @Z40LB38*/ 00103000 * /* */ 00104000 * /*************************************************************/ 00105000 * 0244 00106000 * IF CARTLEN^=MAXCSNLN THEN 0244 00107000 CLI CARTLEN(@15),12 0244 00108000 BE @RF00244 0244 00109000 * DO; /* @Z40LB38*/ 00110000 * CSNL=CARTLEN; /* @Z40LB38*/ 00111000 MVC CSNL(1),CARTLEN(@15) 0246 00112000 * CALL CKCSNLEN(CSNNAME,CSNL);/* @Z40LB38*/ 00113000 LA @15,CSNNAME 0247 00114000 ST @15,@AL00001 0247 00115000 LA @15,CSNL 0247 00116000 ST @15,@AL00001+4 0247 00117000 LA @01,@AL00001 0247 00118000 BAL @14,CKCSNLEN 0247 00119000 * RESPECIFY 0248 00120000 * RTNREG RSTD; 0248 00121000 * TESTRC=RTNREG; 0249 00122000 LR TESTRC,RTNREG 0249 00123000 * RESPECIFY 0250 00124000 * RTNREG UNRSTD; /* @Z40LB38*/ 00125000 * LASTCOND=TESTRC; /* @Z40LB38*/ 00126000 L @02,@PC00001+8 0251 00127000 STH TESTRC,LASTCOND(,@02) 0251 00128000 * END; /* @Z40LB38*/ 00129000 * END; /* @Z40LB38*/ 00130000 * 0253 00131000 @RF00244 DS 0H 0254 00132000 * /*****************************************************************/ 00133000 * /* */ 00134000 * /* TEST IF THE RETURN CODE FROM CKCSNLEN IS 0. IF YES, @Z40LB38*/ 00135000 * /* CONTINUE. IF NO, SET LASTCOND TO 12. @Z40LB38*/ 00136000 * /* */ 00137000 * /*****************************************************************/ 00138000 * 0254 00139000 * IF LASTCOND=LASTCC00 THEN 0254 00140000 @RF00241 SLR @15,@15 0254 00141000 L @14,@PC00001+8 0254 00142000 CH @15,LASTCOND(,@14) 0254 00143000 BNE @RF00254 0254 00144000 * DO; /* @Z40LB38*/ 00145000 * 0255 00146000 * /*************************************************************/ 00147000 * /* */ 00148000 * /* TEST IF THE ACTIVE PARAMETER IS SPECIFIED. IF YES, */ 00149000 * /* @Z40LB38*/ 00150000 * /* BUILD THE PARAMETER LIST TO UPDATE THE MSC TABLES AND MSVI*/ 00151000 * /* DATA SET FOR AN ACTIVE VOLUME. @Z40LB38*/ 00152000 * /* */ 00153000 * /*************************************************************/ 00154000 * 0256 00155000 * IF ADDR(ACT)^=0 THEN 0256 00156000 L @14,@PC00001+4 0256 00157000 C @15,FDTPTR(,@14) 0256 00158000 BE @RF00256 0256 00159000 * DO; /* @Z40LB38*/ 00160000 * NULVOLID=VOLVAL; /* @Z40LB38*/ 00161000 L @09,NULLCPTR 0258 00162000 L @01,FDTPTR+16(,@14) 0258 00163000 MVC NULVOLID(6,@09),VOLVAL(@01) 0258 00164000 * NULVOL=ON; /* @Z40LB38*/ 00165000 OI NULVOL(@09),B'10000000' 0259 00166000 * IF ADDR(SEQ1)^=0 THEN 0260 00167000 C @15,FDTPTR+24(,@14) 0260 00168000 BE @RF00260 0260 00169000 * NULCART1=ON; /* @Z40LB38*/ 00170000 OI NULCART1(@09),B'00000100' 0261 00171000 * IF ADDR(SEQ2)^=0 THEN 0262 00172000 @RF00260 L @15,@PC00001+4 0262 00173000 L @15,FDTPTR+28(,@15) 0262 00174000 LTR @15,@15 0262 00175000 BZ @RF00262 0262 00176000 * NULCART2=ON; /* @Z40LB38*/ 00177000 L @01,NULLCPTR 0263 00178000 OI NULCART2(@01),B'00000010' 0263 00179000 * END; /* @Z40LB38*/ 00180000 * 0264 00181000 @RF00262 DS 0H 0265 00182000 * /*************************************************************/ 00183000 * /* */ 00184000 * /* TEST IF THE INACTIVE PARAMETER IS SPECIFIED. IF YES, BUILD*/ 00185000 * /* THE PARAMETER LIST TO UPDATE THE MSC TABLES AND MSVI DATA */ 00186000 * /* SET FOR AN INACTIVE VOLUME. @Z40LB38*/ 00187000 * /* */ 00188000 * /*************************************************************/ 00189000 * 0265 00190000 * IF ADDR(INACT)^=0 THEN 0265 00191000 @RF00256 SLR @15,@15 0265 00192000 L @14,@PC00001+4 0265 00193000 C @15,FDTPTR+4(,@14) 0265 00194000 BE @RF00265 0265 00195000 * DO; /* @Z40LB38*/ 00196000 * NULCSN=CSNNAME; /* @Z40LB38*/ 00197000 L @09,NULLCPTR 0267 00198000 MVC NULCSN(12,@09),CSNNAME 0267 00199000 * NULTRAN=ON; /* @Z40LB38*/ 00200000 OI NULTRAN(@09),B'01000000' 0268 00201000 * IF ADDR(SEQ1)^=0 THEN 0269 00202000 C @15,FDTPTR+24(,@14) 0269 00203000 BE @RF00269 0269 00204000 * NULCART1=ON; /* @Z40LB38*/ 00205000 OI NULCART1(@09),B'00000100' 0270 00206000 * IF ADDR(SEQ2)^=0 THEN 0271 00207000 @RF00269 L @15,@PC00001+4 0271 00208000 L @15,FDTPTR+28(,@15) 0271 00209000 LTR @15,@15 0271 00210000 BZ @RF00271 0271 00211000 * NULCART2=ON; /* @Z40LB38*/ 00212000 L @01,NULLCPTR 0272 00213000 OI NULCART2(@01),B'00000010' 0272 00214000 * END; /* @Z40LB38*/ 00215000 * 0273 00216000 @RF00271 DS 0H 0274 00217000 * /*************************************************************/ 00218000 * /* */ 00219000 * /* TEST IF THE SCRATCHCARTRIDGE PARAMETER IS SPECIFIED. */ 00220000 * /* @Z40LB38*/ 00221000 * /* IF YES, BUILD THE PARAMETER LIST TO UPDATE THE SCRATCH */ 00222000 * /* CARTRIDGE LIST PORTION OF THE MSC TABLES. @Z40LB38*/ 00223000 * /* */ 00224000 * /*************************************************************/ 00225000 * 0274 00226000 * IF ADDR(SCRC)^=0 THEN 0274 00227000 @RF00265 L @15,@PC00001+4 0274 00228000 L @15,FDTPTR+8(,@15) 0274 00229000 LTR @15,@15 0274 00230000 BZ @RF00274 0274 00231000 * DO; /* @Z40LB38*/ 00232000 * NULCSN=CSNNAME; /* @Z40LB38*/ 00233000 L @15,NULLCPTR 0276 00234000 MVC NULCSN(12,@15),CSNNAME 0276 00235000 * NULSCRC=ON; /* @Z40LB38*/ 00236000 OI NULSCRC(@15),B'00100000' 0277 00237000 * END; /* @Z40LB38*/ 00238000 * 0278 00239000 * /*************************************************************/ 00240000 * /* */ 00241000 * /* ISSUE THE UDUMP MACRO TO TAKE SYMBOLIC DUMP @Z40LB38*/ 00242000 * /* OF USSC PARAMETER LIST @Z40LB38*/ 00243000 * /* */ 00244000 * /*************************************************************/ 00245000 * 0279 00246000 * IF GDTDBG=NULLPTR THEN 0279 00247000 @RF00274 L @15,@PC00001 0279 00248000 L @15,GDTDBG(,@15) 0279 00249000 LTR @15,@15 0279 00250000 BZ @RT00279 0279 00251000 * ; 0280 00252000 * ELSE 0281 00253000 * DO; 0281 00254000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB38*/ 00255000 LA DMPINDEX,DMPSTG 0282 00256000 * DMPITMNM='NULLCA'; 0283 00257000 MVI DMPITMNM+6(DMPINDEX),C' ' 0283 00258000 MVI DMPITMNM+7(DMPINDEX),C' ' 0283 00259000 MVC DMPITMNM(6,DMPINDEX),@CC01097 0283 00260000 * DMPITMPT=ADDR(NULLCA); 0284 00261000 LA @03,NULLCA 0284 00262000 ST @03,DMPITMPT(,DMPINDEX) 0284 00263000 * DMPITMLN=LENGTH(NULLCA); 0285 00264000 MVC DMPITMLN(2,DMPINDEX),@CH00783 0285 00265000 * DMPITMTP='H'; 0286 00266000 MVI DMPITMTP(DMPINDEX),C'H' 0286 00267000 * DMPINDEX=DMPINDEX+DMPELEMT;/* @Z40LB38*/ 00268000 AL DMPINDEX,@CF00473 0287 00269000 * DMPTRM=DMPTRMVL; 0288 00270000 MVI DMPTRM(DMPINDEX),X'FF' 0288 00271000 * END; /* @Z40LB38*/ 00272000 * IF GDTDBG=NULLPTR THEN 0290 00273000 @RT00279 L @15,@PC00001 0290 00274000 L @15,GDTDBG(,@15) 0290 00275000 LTR @15,@15 0290 00276000 BZ @RT00290 0290 00277000 * ; 0291 00278000 * ELSE 0292 00279000 * CALL IDCDB010(GDTTBL,'NCAB',ADDR(DMPSTG));/* @Z40LB38*/ 00280000 L @15,@PC00001 0292 00281000 ST @15,@AL00001 0292 00282000 LA @14,@CC01099 0292 00283000 ST @14,@AL00001+4 0292 00284000 LA @14,DMPSTG 0292 00285000 ST @14,@AFTEMPS 0292 00286000 LA @14,@AFTEMPS 0292 00287000 ST @14,@AL00001+8 0292 00288000 MVI @AL00001+8,X'80' 0292 00289000 L @15,GDTDBG(,@15) 0292 00290000 LA @01,@AL00001 0292 00291000 BALR @14,@15 0292 00292000 * CALL IDCSASS0(GDTTBL,NULLIFYC,NULLCPTR,REASONCD,ECBCODE,MSGPTR) 00293000 * ; /* @Z40LB38*/ 00294000 @RT00290 L @02,@PC00001 0293 00295000 ST @02,@AL00001 0293 00296000 LA @15,NULLIFYC 0293 00297000 ST @15,@AL00001+4 0293 00298000 LA @15,NULLCPTR 0293 00299000 ST @15,@AL00001+8 0293 00300000 LA @15,REASONCD 0293 00301000 ST @15,@AL00001+12 0293 00302000 LA @15,ECBCODE 0293 00303000 ST @15,@AL00001+16 0293 00304000 LA @15,MSGPTR 0293 00305000 ST @15,@AL00001+20 0293 00306000 MVI @AL00001+20,X'80' 0293 00307000 L @15,GDTSSC(,@02) 0293 00308000 LA @01,@AL00001 0293 00309000 BALR @14,@15 0293 00310000 * RESPECIFY 0294 00311000 * RTNREG RSTD; 0294 00312000 * TESTRC=RTNREG; 0295 00313000 LR TESTRC,RTNREG 0295 00314000 * RESPECIFY 0296 00315000 * RTNREG UNRSTD; /* @Z40LB38*/ 00316000 * 0296 00317000 * /*************************************************************/ 00318000 * /* */ 00319000 * /* TEST FOR SUCCESSFUL RETURN CODES OF 0 OR 12 FROM @Z40LB38*/ 00320000 * /* USSC. ALSO TEST IF THE ACTIVE OR INACTIVE PARAMETERS WERE */ 00321000 * /* SPECIFIED. IF YES, ISSUE MESSAGE IDC01190I INDICATING THAT*/ 00322000 * /* A CARTRIDGE WAS RETURNED TO THE SCRATCH CARTRIDGE LIST. */ 00323000 * /* @Z40LB38*/ 00324000 * /* */ 00325000 * /*************************************************************/ 00326000 * 0297 00327000 * IF(TESTRC=0|TESTRC=12)&(ADDR(ACT)^=0|ADDR(INACT)^=0) THEN 0297 00328000 * 0297 00329000 LTR TESTRC,TESTRC 0297 00330000 BZ @GL00001 0297 00331000 C TESTRC,@CF00567 0297 00332000 BNE @RF00297 0297 00333000 @GL00001 SLR @02,@02 0297 00334000 L @15,@PC00001+4 0297 00335000 C @02,FDTPTR(,@15) 0297 00336000 BNE @RT00297 0297 00337000 C @02,FDTPTR+4(,@15) 0297 00338000 BE @RF00297 0297 00339000 @RT00297 DS 0H 0298 00340000 * /***********************************************************/ 00341000 * /* */ 00342000 * /* IF BOTH CARTRIDGES WERE SPECIFIED AS MISSING, @ZA11671*/ 00343000 * /* DO NOT ISSUE MSG IDC01190I SINCE NO CARTRIDGES WERE */ 00344000 * /* RETURNED TO SCRATCH STATUS. @ZA11671*/ 00345000 * /* */ 00346000 * /***********************************************************/ 00347000 * 0298 00348000 * IF ADDR(SEQ1)^=NULLPTR&ADDR(SEQ2)^=NULLPTR/* @ZA11671*/ 00349000 * THEN 0298 00350000 SLR @02,@02 0298 00351000 L @15,@PC00001+4 0298 00352000 C @02,FDTPTR+24(,@15) 0298 00353000 BE @RF00298 0298 00354000 C @02,FDTPTR+28(,@15) 0298 00355000 BNE @RT00298 0298 00356000 * ; /* @ZA11671*/ 00357000 * ELSE /* @ZA11671*/ 00358000 * DO; /* @Z40LB38*/ 00359000 @RF00298 DS 0H 0301 00360000 * PRINTAB=''B; /* @Z40LB38*/ 00361000 XC PRINTAB(20),PRINTAB 0301 00362000 * NULMPTR=ECBLEN+MSGPTR;/* @Z40LB38*/ 00363000 LA NULMPTR,4 0302 00364000 AL NULMPTR,MSGPTR 0302 00365000 * DARGSMOD=NCOMSG; /* @Z40LB38*/ 00366000 L @15,DDSTRU 0303 00367000 MVC DARGSMOD(3,@15),@CC01091 0303 00368000 * DARGSENT=MSG0119I; /* @Z40LB38*/ 00369000 * 0304 00370000 MVI DARGSENT(@15),X'01' 0304 00371000 * /*******************************************************/ 00372000 * /* */ 00373000 * /* CHECK FOR A VALID CSN1 NULLIFIED. @ZDR2055*/ 00374000 * /* */ 00375000 * /*******************************************************/ 00376000 * 0305 00377000 * IF ADDR(SEQ2)^=NULLPTR|ADDR(NVOL)^=NULLPTR THEN 0305 00378000 SLR @15,@15 0305 00379000 L @14,@PC00001+4 0305 00380000 C @15,FDTPTR+28(,@14) 0305 00381000 BNE @RT00305 0305 00382000 C @15,FDTPTR+32(,@14) 0305 00383000 BE @RF00305 0305 00384000 @RT00305 DS 0H 0306 00385000 * DO; /* @ZDR2055*/ 00386000 * DARGDBP=ADDR(NMCSN1);/* @ZDR2055*/ 00387000 L @15,DDSTRU 0307 00388000 LA @14,NMCSN1(,NULMPTR) 0307 00389000 ST @14,DARGDBP(,@15) 0307 00390000 * DARGILP=LENGTH(NMCSN1);/* @ZDR2055*/ 00391000 MVC DARGILP(2,@15),@CH00567 0308 00392000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB38*/ 00393000 L @15,@PC00001 0309 00394000 ST @15,@AL00001 0309 00395000 LA @14,@CF00114 0309 00396000 ST @14,@AL00001+4 0309 00397000 LA @14,DDSTRU 0309 00398000 ST @14,@AL00001+8 0309 00399000 MVI @AL00001+8,X'80' 0309 00400000 L @15,GDTPRT(,@15) 0309 00401000 LA @01,@AL00001 0309 00402000 BALR @14,@15 0309 00403000 * END; /* @ZDR2055*/ 00404000 * 0310 00405000 * /*******************************************************/ 00406000 * /* */ 00407000 * /* TEST FOR A SECOND CARTRIDGE MADE INTO A @ZDR2055*/ 00408000 * /* SCRATCH CARTRIDGE. @ZDR2055*/ 00409000 * /* */ 00410000 * /*******************************************************/ 00411000 * 0311 00412000 * IF ADDR(NVOL)^=NULLPTR|ADDR(SEQ1)^=NULLPTR THEN 0311 00413000 @RF00305 SLR @15,@15 0311 00414000 L @14,@PC00001+4 0311 00415000 C @15,FDTPTR+32(,@14) 0311 00416000 BNE @RT00311 0311 00417000 C @15,FDTPTR+24(,@14) 0311 00418000 BE @RF00311 0311 00419000 @RT00311 DS 0H 0312 00420000 * DO; /* @ZDR2055*/ 00421000 * DARGDBP=ADDR(NMCSN2);/* @ZDR2055*/ 00422000 L @15,DDSTRU 0313 00423000 LA @14,NMCSN2(,NULMPTR) 0313 00424000 ST @14,DARGDBP(,@15) 0313 00425000 * DARGILP=LENGTH(NMCSN2);/* @ZDR2055*/ 00426000 MVC DARGILP(2,@15),@CH00567 0314 00427000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @ZDR2055*/ 00428000 L @02,@PC00001 0315 00429000 ST @02,@AL00001 0315 00430000 LA @15,@CF00114 0315 00431000 ST @15,@AL00001+4 0315 00432000 LA @15,DDSTRU 0315 00433000 ST @15,@AL00001+8 0315 00434000 MVI @AL00001+8,X'80' 0315 00435000 L @15,GDTPRT(,@02) 0315 00436000 LA @01,@AL00001 0315 00437000 BALR @14,@15 0315 00438000 * END; /* @ZDR2055*/ 00439000 * 0316 00440000 * /*******************************************************/ 00441000 * /* */ 00442000 * /* TEST IF THE RETURN CODE IS 12. IF YES, SET LASTCOND */ 00443000 * /* @Z40LB38*/ 00444000 * /* TO 4. @Z40LB38*/ 00445000 * /* */ 00446000 * /*******************************************************/ 00447000 * 0317 00448000 * IF TESTRC=12 THEN 0317 00449000 @RF00311 C TESTRC,@CF00567 0317 00450000 BNE @RF00317 0317 00451000 * LASTCOND=LASTCC04; /* @Z40LB38*/ 00452000 L @02,@PC00001+8 0318 00453000 MVC LASTCOND(2,@02),@CH00041 0318 00454000 * END; /* @Z40LB38*/ 00455000 * ELSE 0320 00456000 * DO; /* @Z40LB38*/ 00457000 * 0320 00458000 B @RC00297 0320 00459000 @RF00297 DS 0H 0321 00460000 * /*********************************************************/ 00461000 * /* */ 00462000 * /* TEST IF THE RETURN CODE IS 4. IF YES, A FAILURE */ 00463000 * /* OCCURRED AND SSCMSG IS CALLED TO PRINT THE MESSAGE AND*/ 00464000 * /* REASON . @Z40LB38*/ 00465000 * /* */ 00466000 * /*********************************************************/ 00467000 * 0321 00468000 * IF TESTRC=4 THEN 0321 00469000 C TESTRC,@CF00041 0321 00470000 BNE @RF00321 0321 00471000 * DO; /* @Z40LB38*/ 00472000 * CALL SSCMSG(REASONCD,ECBCODE);/* @Z40LB38*/ 00473000 * 0323 00474000 LA @02,REASONCD 0323 00475000 ST @02,@AL00001 0323 00476000 LA @02,ECBCODE 0323 00477000 ST @02,@AL00001+4 0323 00478000 LA @01,@AL00001 0323 00479000 BAL @14,SSCMSG 0323 00480000 * /*****************************************************/ 00481000 * /* */ 00482000 * /* TEST IF THE REASON CODE IS '200', '208' OR 209' */ 00483000 * /* INDICATING AN ERROR OCCURRED DURING MSVC */ 00484000 * /* PROCESSING. IF YES, SET A RETURN CODE OF '08' TO */ 00485000 * /* INDICATE THAT THE MSC TABLES WERE UPDATED BUT THE */ 00486000 * /* MSVI DATA SET WAS NOT. IF NO, SET RETURN CODE '12'*/ 00487000 * /* TO INDICATE THAT NO UPDATES TOOK PLACE. @Z40LB38*/ 00488000 * /* */ 00489000 * /*****************************************************/ 00490000 * 0324 00491000 * LASTCOND=LASTCC12; /* @Z40LB38*/ 00492000 L @02,@PC00001+8 0324 00493000 MVC LASTCOND(2,@02),@CH00567 0324 00494000 * END; /* @Z40LB38*/ 00495000 * 0325 00496000 * /*********************************************************/ 00497000 * /* */ 00498000 * /* TEST IF THE RETURN CODE IS 8 INDICATING THAT @Z40LB38*/ 00499000 * /* STORAGE WAS NOT AVAILABLE FOR THE MESSAGE AREA. IF */ 00500000 * /* YES, SET LASTCOND TO 12. @Z40LB38*/ 00501000 * /* */ 00502000 * /*********************************************************/ 00503000 * 0326 00504000 * IF TESTRC=LASTCC08 THEN 0326 00505000 @RF00321 C TESTRC,@CF00178 0326 00506000 BNE @RF00326 0326 00507000 * LASTCOND=LASTCC12; /* @Z40LB38*/ 00508000 * 0327 00509000 L @02,@PC00001+8 0327 00510000 MVC LASTCOND(2,@02),@CH00567 0327 00511000 * /*********************************************************/ 00512000 * /* */ 00513000 * /* TEST IF THE RETURN CODE IS 12 INDICATING THAT AN */ 00514000 * /* @Z40LB38*/ 00515000 * /* ERROR WAS ENCOUNTERED WHEN WRITING THE UPDATED MSVI */ 00516000 * /* RECORD TO THE MSVI DATA SET. IF YES, SET LASTCOND TO */ 00517000 * /* 04. @Z40LB38*/ 00518000 * /* */ 00519000 * /*********************************************************/ 00520000 * 0328 00521000 * IF TESTRC=12 THEN 0328 00522000 @RF00326 C TESTRC,@CF00567 0328 00523000 BNE @RF00328 0328 00524000 * LASTCOND=LASTCC04; /* @Z40LB38*/ 00525000 * 0329 00526000 L @02,@PC00001+8 0329 00527000 MVC LASTCOND(2,@02),@CH00041 0329 00528000 * /*********************************************************/ 00529000 * /* */ 00530000 * /* TEST IF THE RETURN CODE IS 0. IF YES, SET LASTCOND */ 00531000 * /* @Z40LB38*/ 00532000 * /* TO 0. @Z40LB38*/ 00533000 * /* */ 00534000 * /*********************************************************/ 00535000 * 0330 00536000 * IF TESTRC=LASTCC00 THEN 0330 00537000 @RF00328 SLR @02,@02 0330 00538000 CR TESTRC,@02 0330 00539000 BNE @RF00330 0330 00540000 * LASTCOND=LASTCC00; /* @Z40LB38*/ 00541000 L @15,@PC00001+8 0331 00542000 STH @02,LASTCOND(,@15) 0331 00543000 * END; /* @Z40LB38*/ 00544000 * 0332 00545000 @RF00330 DS 0H 0333 00546000 * /*************************************************************/ 00547000 * /* */ 00548000 * /* TEST IF THE RETURN CODE FROM USSC IS 0 OR 12. IF @Z40LB38*/ 00549000 * /* YES, A MESSAGE WAS RETURNED. ISSUE THE UFSPACE MACRO TO */ 00550000 * /* FREE THE MESSAGE AREA. @Z40LB38*/ 00551000 * /* */ 00552000 * /*************************************************************/ 00553000 * 0333 00554000 * IF TESTRC=0|TESTRC=12 THEN 0333 00555000 @RC00297 LTR TESTRC,TESTRC 0333 00556000 BZ @RT00333 0333 00557000 C TESTRC,@CF00567 0333 00558000 BNE @RF00333 0333 00559000 @RT00333 DS 0H 0334 00560000 * CALL IDCSAFS0(GDTTBL,MSGPTR);/* @Z40LB38*/ 00561000 L @15,@PC00001 0334 00562000 ST @15,@AL00001 0334 00563000 LA @14,MSGPTR 0334 00564000 ST @14,@AL00001+4 0334 00565000 L @15,GDTFSP(,@15) 0334 00566000 LA @01,@AL00001 0334 00567000 BALR @14,@15 0334 00568000 * END; /* @Z40LB38*/ 00569000 * ELSE 0336 00570000 * LASTCOND=LASTCC12; /* @Z40LB38*/ 00571000 B @RC00254 0336 00572000 @RF00254 L @15,@PC00001+8 0336 00573000 MVC LASTCOND(2,@15),@CH00567 0336 00574000 * PRINTAB=''B; /* @Z40LB38*/ 00575000 @RC00254 XC PRINTAB(20),PRINTAB 0337 00576000 * DARGSMOD=UNIVMSG; /* @Z40LB38*/ 00577000 L @15,DDSTRU 0338 00578000 MVC DARGSMOD(3,@15),@CC01089 0338 00579000 * DARGDBP=ADDR(LASTCOND); /* @Z40LB38*/ 00580000 L @14,@PC00001+8 0339 00581000 ST @14,DARGDBP(,@15) 0339 00582000 * DARGILP=LENGTH(LASTCOND); /* @Z40LB38*/ 00583000 MVC DARGILP(2,@15),@CH00152 0340 00584000 * IF LASTCOND=LASTCC12 THEN 0341 00585000 CLC LASTCOND(2,@14),@CH00567 0341 00586000 BNE @RF00341 0341 00587000 * DARGSENT=MSG3003I; /* @Z40LB38*/ 00588000 MVI DARGSENT(@15),X'03' 0342 00589000 * ELSE 0343 00590000 * DARGSENT=MSG0001I; /* @Z40LB38*/ 00591000 B @RC00341 0343 00592000 @RF00341 L @01,DDSTRU 0343 00593000 MVI DARGSENT(@01),X'01' 0343 00594000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB38*/ 00595000 * 0344 00596000 @RC00341 L @15,@PC00001 0344 00597000 ST @15,@AL00001 0344 00598000 LA @14,@CF00114 0344 00599000 ST @14,@AL00001+4 0344 00600000 LA @14,DDSTRU 0344 00601000 ST @14,@AL00001+8 0344 00602000 MVI @AL00001+8,X'80' 0344 00603000 L @15,GDTPRT(,@15) 0344 00604000 LA @01,@AL00001 0344 00605000 BALR @14,@15 0344 00606000 * /*****************************************************************/ 00607000 * /* */ 00608000 * /* SET UP FOR A FULL REGION DUMP AND RETURN TO AMS @Z40LB38*/ 00609000 * /* */ 00610000 * /*****************************************************************/ 00611000 * 0345 00612000 * IF GDTDBG=NULLPTR THEN 0345 00613000 L @15,@PC00001 0345 00614000 L @15,GDTDBG(,@15) 0345 00615000 LTR @15,@15 0345 00616000 BZ @RT00345 0345 00617000 * ; 0346 00618000 * ELSE 0347 00619000 * CALL IDCDB010(GDTTBL,'NCAZ'); /* @Z40LB38*/ 00620000 L @15,@PC00001 0347 00621000 ST @15,@AL00001 0347 00622000 LA @14,@CC01101 0347 00623000 ST @14,@AL00001+4 0347 00624000 MVI @AL00001+4,X'80' 0347 00625000 L @15,GDTDBG(,@15) 0347 00626000 LA @01,@AL00001 0347 00627000 BALR @14,@15 0347 00628000 * CALL IDCSAEP0(GDTTBL,MODID,LASTCOND);/* @Z40LB38*/ 00629000 @RT00345 L @15,@PC00001 0348 00630000 ST @15,@AL00001 0348 00631000 LA @14,MODID 0348 00632000 ST @14,@AL00001+4 0348 00633000 L @14,@PC00001+8 0348 00634000 ST @14,@AL00001+8 0348 00635000 MVI @AL00001+8,X'80' 0348 00636000 L @15,GDTEPL(,@15) 0348 00637000 LA @01,@AL00001 0348 00638000 BALR @14,@15 0348 00639000 * 0349 00640000 */***********************************************************@Y30LB39*/ 00641000 */* PROCEDURE NAME - SSCMSG @Y30LB39*/ 00642000 */* @Y30LB39*/ 00643000 */* FUNCTION - THIS ROUTINE PRINTS MESSAGES @Y30LB39*/ 00644000 */* FROM IDCTSSS0 OR IDCTSCM0 AS DICTATED BY THE MSSC @Y30LB39*/ 00645000 */* REASON CODE OR THE ECB POST CODE, EITHER ONE PASSED AS @Y30LB39*/ 00646000 */* INPUT ARGUMENTS. @Y30LB39*/ 00647000 */* @Y30LB39*/ 00648000 */* THE REASON CODE IS PASSED TO THIS ROUTINE FROM THE @Y30LB39*/ 00649000 */* CALLER IN SSRCODE, AND THE ECB POST CODE IS PASSED @Y30LB39*/ 00650000 */* IN SSECBCD. @Y30LB39*/ 00651000 */* @Y30LB39*/ 00652000 */* ONLY ONE MESSAGE IS PRINTED. IF THE REASON CODE @Y30LB39*/ 00653000 */* CONTAINS A NUMBER GREATER THAN ZERO, IT IS USED AS @Y30LB39*/ 00654000 */* THE INDICATION TO CALL UPRINT TO READ IN THE FIRST @Y30LB39*/ 00655000 */* STATIC TEXT ENTRY FROM IDCTSSS0. THAT ENTRY CONTAINS @Y30LB39*/ 00656000 */* AN ARRAY OF THE MESSAGE INDICES USED TO PRINT THE @Y30LB39*/ 00657000 */* MSSC REASON CODE MESSAGE. THE ARRAY IS SCANNED FOR THE @Y30LB39*/ 00658000 */* REASON CODE THAT WAS PASSED AS THE FIRST PARAMETER. @Y30LB39*/ 00659000 */* IF THE ARRAY CONTAINS AN ENTRY WITH THAT VALUE, THE @Y30LB39*/ 00660000 */* ARRAY INDEX IS USED TO PRINT THE MESSAGE. IF THE @Y30LB39*/ 00661000 */* REASON CODE IS NOT FOUND IN THE ARRAY, THE REASON @Y30LB39*/ 00662000 */* CODE IS USED AS BLOCK DATA WHEN PRINTING THE "LAST" @Y30LB39*/ 00663000 */* STATIC TEXT ENTRY IN THE TEXT MODULE. @Y30LB39*/ 00664000 */* @Y30LB39*/ 00665000 */* IF THE REASON CODE FIELD IS ZERO, THE ECB POST CODE @Y30LB39*/ 00666000 */* IS INSERTED AS BLOCK DATA INTO A GENERAL MESSAGE IN @Y30LB39*/ 00667000 */* STATIC TEXT MODULE IDCTSCM0. @Y30LB39*/ 00668000 */* @Y30LB39*/ 00669000 */* INPUT - REASON CODE AS FIRST ARGUMENT, OPTIONALLY THE @Y30LB39*/ 00670000 */* ECB CODE AS THE SECOND ARGUMENT. @Y30LB39*/ 00671000 */* @Y30LB39*/ 00672000 */* OUTPUT - PRINTED MESSAGE AND RETURN CODE OF ZERO. @Y30LB39*/ 00673000 */* @Y30LB39*/ 00674000 */***********************************************************@Y30LB39*/ 00675000 * 0349 00676000 * /* @Y30LB39*/ 00677000 *SSCMSG: 0349 00678000 * PROCEDURE(SSRCODE, /* SSC RETURN CODE @Y30LB39*/ 00679000 * SSECBCD); /* ECB POST CODE @Y30LB39 00680000 * @Y30LB39*/ 00681000 @EL00001 L @13,4(,@13) 0349 00682000 @EF00001 L @00,@SIZDATD 0349 00683000 LR @01,@11 0349 00684000 FREEMAIN R,LV=(0),A=(1) 00685000 @ER00001 LM @14,@12,12(@13) 0349 00686000 BR @14 0349 00687000 SSCMSG STM @14,@12,@SA00002 0349 00688000 MVC @PC00002(8),0(@01) 0349 00689000 * /* @Y30LB39*/ 00690000 * 0350 00691000 * /*****************************************************************/ 00692000 * /* */ 00693000 * /* @Y30LB39*/ 00694000 * /* DECLARATIONS FOR THE SSCMSG PROCEDURE @Y30LB39*/ 00695000 * /* @Y30LB39*/ 00696000 * /* */ 00697000 * /*****************************************************************/ 00698000 * 0350 00699000 * /* @Y30LB39 00700000 * @Y30LB39*/ 00701000 * 0350 00702000 * /*****************************************************************/ 00703000 * /* */ 00704000 * /* @Y30LB39*/ 00705000 * /* THE NEXT TWO DECLARES ARE FOR THE TWO INPUT @Y30LB39*/ 00706000 * /* ARGUMENTS. 1ST - MSSC REASON CODE OR @Y30LB39*/ 00707000 * /* 2ND - MSSC POST CODE @Y30LB39*/ 00708000 * /* @Y30LB39*/ 00709000 * /* */ 00710000 * /*****************************************************************/ 00711000 * 0350 00712000 * /* @Y30LB39*/ 00713000 * DCL 0350 00714000 * 1 SSRCODE FIXED(31), /* @Y30LB39*/ 00715000 * 3 * FIXED(15), /* @Y30LB39*/ 00716000 * 3 SSRHALF FIXED(15); /* 1ST ARG REASON CODE @Y30LB39*/ 00717000 * DCL 0351 00718000 * SSECBCD PTR(8); /* 2ND ARG POST CODE @Y30LB39 00719000 * @Y30LB39 00720000 * @Y30LB39*/ 00721000 * 0351 00722000 * /*****************************************************************/ 00723000 * /* */ 00724000 * /* @Y30LB39*/ 00725000 * /* DECLARE THE DYNAMIC AREA NEEDED TO POINT TO AND @Y30LB39*/ 00726000 * /* CONTAIN THE "LOCAL" PRINT ARGUMENT LIST @Y30LB39*/ 00727000 * /* @Y30LB39*/ 00728000 * /* */ 00729000 * /*****************************************************************/ 00730000 * 0352 00731000 * /* @Y30LB39*/ 00732000 * DCL 0352 00733000 * SSDLPTR PTR(31); /* @Y30LB39*/ 00734000 * DCL 0353 00735000 * SSDRGLT CHAR(LENGTH(DARGLIST));/* @Y30LB39 00736000 * @Y30LB39*/ 00737000 * 0353 00738000 * /*****************************************************************/ 00739000 * /* */ 00740000 * /* @Y30LB39*/ 00741000 * /* THE NEXT DECLARE IS FOR THE INDEX WHICH IS @Y30LB39*/ 00742000 * /* INCREMENTED WHILE SEARCHING THE ARRAY OF @Y30LB39*/ 00743000 * /* REASON CODES AND, UPON FINDING THE CORRECT @Y30LB39*/ 00744000 * /* REASON CODE, IS PASSED TO PRINT MODULE AS THE @Y30LB39*/ 00745000 * /* INDEX OF THE MESSAGE NUMBER TO BE PRINTED. @Y30LB39*/ 00746000 * /* @Y30LB39*/ 00747000 * /* */ 00748000 * /*****************************************************************/ 00749000 * 0354 00750000 * /* @Y30LB39*/ 00751000 * DECLARE 0354 00752000 * ENTRYNUM FIXED(8) UNSIGNED; /* @Y30LB39 00753000 * @Y30LB39*/ 00754000 * 0354 00755000 * /*****************************************************************/ 00756000 * /* */ 00757000 * /* @Y30LB39*/ 00758000 * /* THE NEXT DECLARE IS FOR THE COMMON MESSAGE @Y30LB39*/ 00759000 * /* NUMBER TO IDENTIFY THE ECB POST CODE @Y30LB39*/ 00760000 * /* MESSAGE CONTAINED IN STATIC TEXT MODULE @Y30LB39*/ 00761000 * /* IDCTSCM0. @Y30LB39*/ 00762000 * /* @Y30LB39*/ 00763000 * /* */ 00764000 * /*****************************************************************/ 00765000 * 0355 00766000 * /* @Y30LB39*/ 00767000 * DECLARE 0355 00768000 * SSMSGNUM FIXED(8) STATIC LOCAL INIT(56);/* @Y30LB39 00769000 * @Y30LB39*/ 00770000 * 0355 00771000 * /*****************************************************************/ 00772000 * /* */ 00773000 * /* @Y30LB39*/ 00774000 * /* THE NEXT DECLARE IS FOR THE ARRAY WHICH IS @Y30LB39*/ 00775000 * /* SEARCHED FOR THE REASON CODE CORRESPONDING @Y30LB39*/ 00776000 * /* TO THE MESSAGE INDEX AND ULTIMATELY, THE @Y30LB39*/ 00777000 * /* MESSAGE TEXT TO BE PRINTED TO THE USER TELLING @Y30LB39*/ 00778000 * /* HIM OF THE EXACT REASON FOR THE MSSC FAILURE. @Y30LB39*/ 00779000 * /* @Y30LB39*/ 00780000 * /* */ 00781000 * /*****************************************************************/ 00782000 * 0356 00783000 * /* @Y30LB39*/ 00784000 * DECLARE 0356 00785000 * 1 SSINXLST BDY(WORD), /* @Y30LB39*/ 00786000 * 3 SSARRAY(60) FIXED(15); /* @Y30LB39 00787000 * @Y30LB39*/ 00788000 * 0356 00789000 * /*****************************************************************/ 00790000 * /* */ 00791000 * /* @Y30LB39*/ 00792000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 00793000 * /* USED BY THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 00794000 * /* @Y30LB39*/ 00795000 * /* */ 00796000 * /*****************************************************************/ 00797000 * 0357 00798000 * /* @Y30LB39*/ 00799000 * DECLARE 0357 00800000 * SSMODSS0 CHAR(3) STATIC INIT('SS0');/* @Y30LB39 00801000 * @Y30LB39*/ 00802000 * 0357 00803000 * /*****************************************************************/ 00804000 * /* */ 00805000 * /* @Y30LB39*/ 00806000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 00807000 * /* USED BY THE STATIC TEXT MODULE - IDCTSCMO. @Y30LB39*/ 00808000 * /* @Y30LB39*/ 00809000 * /* */ 00810000 * /*****************************************************************/ 00811000 * 0358 00812000 * /* @Y30LB39*/ 00813000 * DECLARE 0358 00814000 * SSMODCM0 CHAR(3) STATIC INIT('CM0');/* @Y30LB39 00815000 * @Y30LB39*/ 00816000 * /* @Y30LB39*/ 00817000 * 0359 00818000 * /*****************************************************************/ 00819000 * /* */ 00820000 * /* ISSUE UTRACE MACRO TO PROVIDE A TRACK OF FLOW @Y30LB39*/ 00821000 * /* ON CONTROL WITHIN THE SSMSG MODULE. @Y30LB39*/ 00822000 * /* THIS WILL PLACE THE IDENTIFIER SPECIFIED IN @Y30LB39*/ 00823000 * /* A SEPARATE INTRA-MODULE TRACE TABLE. @Y30LB39*/ 00824000 * /* @Y30LB39*/ 00825000 * /* */ 00826000 * /*****************************************************************/ 00827000 * 0359 00828000 * /* @Y30LB39*/ 00829000 * OLDERID2=NEWERID2; 0359 00830000 L @15,@PC00001 0359 00831000 L @14,GDTTR2(,@15) 0359 00832000 MVC @TS00001(95),NEWERID2(@14) 0359 00833000 MVC OLDERID2(95,@14),@TS00001 0359 00834000 * NEWID2='SSAA'; /* @Y30LB39 00835000 * @Y30LB39*/ 00836000 * 0360 00837000 MVC NEWID2(4,@14),@CC01123 0360 00838000 * /*****************************************************************/ 00839000 * /* */ 00840000 * /* @Y30LB39*/ 00841000 * /* ESTABLISH ADDRESSABILITY TO THE DYNAMIC @Y30LB39*/ 00842000 * /* ARGUMENT LIST. @Y30LB39*/ 00843000 * /* @Y30LB39*/ 00844000 * /* */ 00845000 * /*****************************************************************/ 00846000 * 0361 00847000 * /* @Y30LB39*/ 00848000 * SSDLPTR=ADDR(SSDRGLT); /* @Y30LB39 00849000 * @Y30LB39*/ 00850000 * 0361 00851000 LA @14,SSDRGLT 0361 00852000 ST @14,SSDLPTR 0361 00853000 * /*****************************************************************/ 00854000 * /* */ 00855000 * /* @Y30LB39*/ 00856000 * /* IF THE REASON CODE IS NOT ZERO, READ IN THE @Y30LB39*/ 00857000 * /* ARRAY FROM THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 00858000 * /* @Y30LB39*/ 00859000 * /* */ 00860000 * /*****************************************************************/ 00861000 * 0362 00862000 * /* @Y30LB39*/ 00863000 * IF SSRCODE>0 THEN 0362 00864000 L @09,@PC00002 0362 00865000 L @09,SSRCODE(,@09) 0362 00866000 LTR @09,@09 0362 00867000 BNP @RF00362 0362 00868000 * DO; /* @Y30LB39 00869000 * @Y30LB39*/ 00870000 * 0363 00871000 * /*************************************************************/ 00872000 * /* */ 00873000 * /* @Y30LB39*/ 00874000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND @Y30LB39*/ 00875000 * /* INITIALIZE THE PRINT ARGUMENT LIST TO READ @Y30LB39*/ 00876000 * /* IN THE ARRAY WHICH CONTAINS THE MSSC REASON @Y30LB39*/ 00877000 * /* CODES. @Y30LB39*/ 00878000 * /* @Y30LB39*/ 00879000 * /* */ 00880000 * /*************************************************************/ 00881000 * 0364 00882000 * /* @Y30LB39*/ 00883000 * SSDRGLT=''B; /* @Y30LB39*/ 00884000 XC SSDRGLT(20),SSDRGLT 0364 00885000 * SSDLPTR->DARGRETP=ADDR(SSINXLST);/* @Y30LB39*/ 00886000 LA @03,SSINXLST 0365 00887000 ST @03,DARGRETP(,@14) 0365 00888000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 00889000 MVC DARGSMOD(3,@14),SSMODSS0 0366 00890000 * SSDLPTR->DARGSENT=1; /* @Y30LB39*/ 00891000 MVI DARGSENT(@14),X'01' 0367 00892000 * SSDLPTR->DARGRETL=LENGTH(SSINXLST);/* @Y30LB39 00893000 * @Y30LB39*/ 00894000 * 0368 00895000 MVC DARGRETL(2,@14),@CH01145 0368 00896000 * /*************************************************************/ 00897000 * /* */ 00898000 * /* @Y30LB39*/ 00899000 * /* ISSUE UPRINT MACRO TO READ IN THE SEARCH @Y30LB39*/ 00900000 * /* ARRAY. @Y30LB39*/ 00901000 * /* @Y30LB39*/ 00902000 * /* */ 00903000 * /*************************************************************/ 00904000 * 0369 00905000 * /* @Y30LB39*/ 00906000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 00907000 * @Y30LB39*/ 00908000 * 0369 00909000 ST @15,@AL00001 0369 00910000 LA @03,@CF00114 0369 00911000 ST @03,@AL00001+4 0369 00912000 LA @03,SSDLPTR 0369 00913000 ST @03,@AL00001+8 0369 00914000 MVI @AL00001+8,X'80' 0369 00915000 L @15,GDTPRT(,@15) 0369 00916000 LA @01,@AL00001 0369 00917000 BALR @14,@15 0369 00918000 * /*************************************************************/ 00919000 * /* */ 00920000 * /* @Y30LB39*/ 00921000 * /* BEGIN DO LOOP TO SEARCH FOR THE MESSAGE @Y30LB39*/ 00922000 * /* INDEX CORRESPONDING TO THE REASON CODE @Y30LB39*/ 00923000 * /* PASSED AS THE FIRST ARGUMENT. @Y30LB39*/ 00924000 * /* THE DO LOOP BEGINS WITH THE SECOND ARRAY @Y30LB39*/ 00925000 * /* ENTRY SINCE THE FIRST IS REQUIRED BY THE @Y30LB39*/ 00926000 * /* SEARCH ARRAY ITSELF. @Y30LB39*/ 00927000 * /* THE SEARCH CONTINUES UNTIL THE REASON CODE @Y30LB39*/ 00928000 * /* IS FOUND, AT WHICH TIME THE SEARCH INDEX @Y30LB39*/ 00929000 * /* IS PASSED TO THE PRINT MODULE TO PRINT @Y30LB39*/ 00930000 * /* THE MESSAGE ASSOCIATED WITH THAT PARTICULAR @Y30LB39*/ 00931000 * /* REASON CODE. @Y30LB39*/ 00932000 * /* IF THERE IS NO MATCH FOUND IN THE ARRAY, @Y30LB39*/ 00933000 * /* THEN THE INDEX WILL BE THE LAST POSITION IN @Y30LB39*/ 00934000 * /* ARRAY. THIS WILL BE THE INDICATION THAT @Y30LB39*/ 00935000 * /* THE REASON CODE ITSELF SHOULD BE PRINTED. @Y30LB39*/ 00936000 * /* @Y30LB39*/ 00937000 * /* */ 00938000 * /*************************************************************/ 00939000 * 0370 00940000 * /* @Y30LB39*/ 00941000 * ENTRYNUM=1; /* @Y30LB39*/ 00942000 LA ENTRYNUM,1 0370 00943000 * DO UNTIL(SSRHALF=SSARRAY(ENTRYNUM)|SSARRAY(ENTRYNUM)=0); 0371 00944000 @DL00371 DS 0H 0372 00945000 * ENTRYNUM=ENTRYNUM+1; /* @Y30LB39*/ 00946000 AL ENTRYNUM,@CF00218 0372 00947000 * END; /* @Y30LB39 00948000 * @Y30LB39*/ 00949000 * 0373 00950000 @DE00371 L @03,@PC00002 0373 00951000 LR @15,ENTRYNUM 0373 00952000 ALR @15,@15 0373 00953000 LH @15,SSARRAY-2(@15) 0373 00954000 CH @15,SSRHALF(,@03) 0373 00955000 BE @DC00371 0373 00956000 SLR @14,@14 0373 00957000 CR @15,@14 0373 00958000 BNE @DL00371 0373 00959000 @DC00371 DS 0H 0374 00960000 * /*************************************************************/ 00961000 * /* */ 00962000 * /* @Y30LB39*/ 00963000 * /* THE CORRECT INDEX HAS BEEN FOUND @Y30LB39*/ 00964000 * /* @Y30LB39*/ 00965000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND FILL @Y30LB39*/ 00966000 * /* OUT THE PRINT ARGUMENT FIELDS WITH EITHER: @Y30LB39*/ 00967000 * /* 1) THE INDEX CORRESPONDING TO THE REASON @Y30LB39*/ 00968000 * /* CODE OR @Y30LB39*/ 00969000 * /* 2) THE LAST INDEX AND THE REASON CODE @Y30LB39*/ 00970000 * /* ITSELF AS A STATIC TEXT INSERT. @Y30LB39*/ 00971000 * /* @Y30LB39*/ 00972000 * /* */ 00973000 * /*************************************************************/ 00974000 * 0374 00975000 * /* @Y30LB39*/ 00976000 * SSDRGLT=''B; /* @Y30LB39*/ 00977000 XC SSDRGLT(20),SSDRGLT 0374 00978000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 00979000 L @09,SSDLPTR 0375 00980000 MVC DARGSMOD(3,@09),SSMODSS0 0375 00981000 * SSDLPTR->DARGSENT=ENTRYNUM; /* @Y30LB39*/ 00982000 STC ENTRYNUM,DARGSENT(,@09) 0376 00983000 * IF SSARRAY(ENTRYNUM)=0 THEN /* @Y30LB39*/ 00984000 CR @15,@14 0377 00985000 BNE @RF00377 0377 00986000 * DO; /* @Y30LB39*/ 00987000 * SSDLPTR->DARGDBP=ADDR(SSRCODE);/* @Y30LB39*/ 00988000 ST @03,DARGDBP(,@09) 0379 00989000 * SSDLPTR->DARGILP=LENGTH(SSRCODE);/* @Y30LB39*/ 00990000 MVC DARGILP(2,@09),@CH00041 0380 00991000 * END; /* @Y30LB39*/ 00992000 * END; /* @Y30LB39*/ 00993000 * /* @Y30LB39*/ 00994000 * 0383 00995000 * /*****************************************************************/ 00996000 * /* */ 00997000 * /* @Y30LB39*/ 00998000 * /* THE FIRST ARGUMENT WAS ZERO, INDICATING THAT @Y30LB39*/ 00999000 * /* THIS ROUTINE IS TO PRINT OUT THE ECB POST @Y30LB39*/ 01000000 * /* CODE. THEREFORE, CLEAR THE DYNAMIC ARGUMENT @Y30LB39*/ 01001000 * /* LIST AND FILL OUT THE PRINT ARGUMENT FIELDS @Y30LB39*/ 01002000 * /* SO THE STATIC TEXT MODULE, IDCTSCM0, WILL @Y30LB39*/ 01003000 * /* PRINT OUT THE MESSAGE ASSOCIATED WITH THE @Y30LB39*/ 01004000 * /* POST CODE. @Y30LB39*/ 01005000 * /* @Y30LB39*/ 01006000 * /* */ 01007000 * /*****************************************************************/ 01008000 * 0383 01009000 * /* @Y30LB39*/ 01010000 * ELSE /* @Y30LB39*/ 01011000 * DO; /* @Y30LB39*/ 01012000 B @RC00362 0383 01013000 @RF00362 DS 0H 0384 01014000 * SSDRGLT=''B; /* @Y30LB39*/ 01015000 XC SSDRGLT(20),SSDRGLT 0384 01016000 * SSDLPTR->DARGSMOD=SSMODCM0; /* @Y30LB39*/ 01017000 L @15,SSDLPTR 0385 01018000 MVC DARGSMOD(3,@15),SSMODCM0 0385 01019000 * SSDLPTR->DARGSENT=SSMSGNUM; /* @Y30LB39*/ 01020000 MVC DARGSENT(1,@15),SSMSGNUM 0386 01021000 * SSDLPTR->DARGDBP=ADDR(SSECBCD);/* @Y30LB39*/ 01022000 L @14,@PC00002+4 0387 01023000 ST @14,DARGDBP(,@15) 0387 01024000 * SSDLPTR->DARGILP=LENGTH(SSECBCD);/* @Y30LB39*/ 01025000 MVC DARGILP(2,@15),@CH00218 0388 01026000 * END; /* @Y30LB39 01027000 * @Y30LB39*/ 01028000 * 0389 01029000 * /*****************************************************************/ 01030000 * /* */ 01031000 * /* @Y30LB39*/ 01032000 * /* ISSUE UPRINT MACRO TO PRINT THE REASON @Y30LB39*/ 01033000 * /* CODE MESSAGE OR THE ECB POST CODE MESSAGE. @Y30LB39*/ 01034000 * /* @Y30LB39*/ 01035000 * /* */ 01036000 * /*****************************************************************/ 01037000 * 0390 01038000 * /* @Y30LB39*/ 01039000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 01040000 * @Y30LB39*/ 01041000 * 0390 01042000 @RC00362 L @15,@PC00001 0390 01043000 ST @15,@AL00001 0390 01044000 LA @14,@CF00114 0390 01045000 ST @14,@AL00001+4 0390 01046000 LA @14,SSDLPTR 0390 01047000 ST @14,@AL00001+8 0390 01048000 MVI @AL00001+8,X'80' 0390 01049000 L @15,GDTPRT(,@15) 0390 01050000 LA @01,@AL00001 0390 01051000 BALR @14,@15 0390 01052000 * /*****************************************************************/ 01053000 * /* */ 01054000 * /* @Y30LB39*/ 01055000 * /* RETURN TO CALLER WITH A RETURN CODE OF ZERO @Y30LB39*/ 01056000 * /* @Y30LB39*/ 01057000 * /* */ 01058000 * /*****************************************************************/ 01059000 * 0391 01060000 * /* @Y30LB39 01061000 * @Y30LB39*/ 01062000 * RETURN CODE(0); /* @Y30LB39 01063000 * @Y30LB39*/ 01064000 SLR @15,@15 0391 01065000 L @14,@SA00002 0391 01066000 LM @00,@12,@SA00002+8 0391 01067000 BR @14 0391 01068000 * END SSCMSG; /* @Y30LB39*/ 01069000 */****************************************************************** */ 01070000 */* @Y30LB32*/ 01071000 */* PROCEDURE NAME - CKCSNLEN (FSR SUBROUTINE) @Y30LB32*/ 01072000 */* @Y30LB32*/ 01073000 */* FUNCTION - CHECKS LENGTH OF CARTRIDGE SERIAL NUMBER @Y30LB32*/ 01074000 */* IF THE LENGTH OF THE CSN IS LESS THEN ELEVEN,@Y30LB32*/ 01075000 */* ISSUES MESSAGE IDC2099I, IF CSN IS ELEVEN @Y30LB32*/ 01076000 */* A BLANK CHARACTER IS INSERTED AS THE FOURTH @Y30LB32*/ 01077000 */* CHARACTER @Y30LB32*/ 01078000 */* @Y30LB32*/ 01079000 */* INPUT - CSN, LENGTH OF CSN @Y30LB32*/ 01080000 */* @Y30LB32*/ 01081000 */* OUTPUT - CSN, RETURN CODE IN REGISTER 15(RETURN CODE @Y30LB32*/ 01082000 */* ZERO IF CSN VALID AND FOUR IF CSN INVALID) @Y30LB32*/ 01083000 */* @Y30LB32*/ 01084000 */********************************************************************/ 01085000 * 0393 01086000 *CKCSNLEN: /* @Y30LB32*/ 01087000 * PROCEDURE(CKCSNVAL, /* CSN VALUE @Y30LB32*/ 01088000 * CKLENGTH) /* LENGTH OF CSN @Y30LB32*/ 01089000 * OPTIONS(NOSAVE,NOSAVEAREA); /* @Y30LB32*/ 01090000 * 0393 01091000 CKCSNLEN MVC @PC00003(8),0(@01) 0393 01092000 * /*****************************************************************/ 01093000 * /* */ 01094000 * /* DECLARATIONS FOR CKCSNLEN SUBROUTINE @Y30LB32*/ 01095000 * /* */ 01096000 * /*****************************************************************/ 01097000 * 0394 01098000 * DCL 0394 01099000 * CKCSNVAL CHAR(12); /* CSN VALUE @Y30LB32*/ 01100000 * DCL 0395 01101000 * CKCSNADJ CHAR(12); /* FOR ADJUSTED CSN @Y30LB32*/ 01102000 * DCL 0396 01103000 * CKLENGTH FIXED(8); /* LENGTH OF CSN @Y30LB32*/ 01104000 * DCL 0397 01105000 * CKRETPTR PTR(31); /* SAVE RETURN ADDR @Y30LB32*/ 01106000 * DCL 0398 01107000 * CKSAVPTR PTR(31); /* TO SAVE POINTER @Y30LB32*/ 01108000 * DCL 0399 01109000 * CKPRTTAB CHAR(20) BDY(WORD); /* PRINT TABLE AREA @Y30LB32*/ 01110000 * DCL 0400 01111000 * CKCOND FIXED(15); 0400 01112000 * 0400 01113000 * /*****************************************************************/ 01114000 * /* */ 01115000 * /* DECLARATIONS OF CONSTANTS @Y30LB32*/ 01116000 * /* */ 01117000 * /*****************************************************************/ 01118000 * 0401 01119000 * DCL 0401 01120000 * CKBLANK CHAR(1) CONSTANT(' ');/* BLANK TO INSERT IN @Y30LB32 01121000 * CSN @Y30LB32*/ 01122000 * DCL 0402 01123000 * CKELEVEN BIT(8) CONSTANT('0B'X);/* TO CHECK LENGTH @Y30LB32 01124000 * OF CSN AGAINST @Y30LB32*/ 01125000 * DCL 0403 01126000 * CKMSGID CHAR(3) CONSTANT('CM0');/* MODULE MESSAGE ID @Y30LB32*/ 01127000 * DCL 0404 01128000 * MSG2099I PTR(8) CONSTANT(1); /* INVALID CSN MSG @Y30LB32*/ 01129000 * 0405 01130000 * /*****************************************************************/ 01131000 * /* */ 01132000 * /* THIS IS THE START OF THE CHECK CSN SUBROUTINE @Y30LB32*/ 01133000 * /* THE CALLERS RETURN ADDRESS IS SAVED @Y30LB32*/ 01134000 * /* */ 01135000 * /*****************************************************************/ 01136000 * 0405 01137000 * CKRETPTR=REG14; /* @Y30LB32*/ 01138000 LR CKRETPTR,REG14 0405 01139000 * OLDERID2=NEWERID2; 0406 01140000 L @02,@PC00001 0406 01141000 L @02,GDTTR2(,@02) 0406 01142000 MVC @TS00001(95),NEWERID2(@02) 0406 01143000 MVC OLDERID2(95,@02),@TS00001 0406 01144000 * NEWID2='CKLN'; /* @Y30LB32*/ 01145000 * 0407 01146000 MVC NEWID2(4,@02),@CC01143 0407 01147000 * /*****************************************************************/ 01148000 * /* */ 01149000 * /* SAVE POINTER TO CALLERS PRINT TABLE, @Y30LB32*/ 01150000 * /* INITIALIZE THE PRINT ARGUMENT LIST @Y30LB32*/ 01151000 * /* AND CONDITION CODE TO ZEROES @Y30LB32*/ 01152000 * /* */ 01153000 * /*****************************************************************/ 01154000 * 0408 01155000 * CKSAVPTR=DDSTRU; /* @Y30LB32*/ 01156000 L CKSAVPTR,DDSTRU 0408 01157000 * DDSTRU=ADDR(CKPRTTAB); /* @Y30LB32*/ 01158000 LA @02,CKPRTTAB 0409 01159000 ST @02,DDSTRU 0409 01160000 * CKPRTTAB=''B; /* @Y30LB32*/ 01161000 XC CKPRTTAB(20),CKPRTTAB 0410 01162000 * CKCOND=''B; /* @Y30LB32*/ 01163000 * 0411 01164000 SLR CKCOND,CKCOND 0411 01165000 * /*****************************************************************/ 01166000 * /* */ 01167000 * /* CSN IS CHECKED FOR LENGTH OF ELEVEN CHARACTERS @Y30LB32*/ 01168000 * /* OR MORE @Y30LB32*/ 01169000 * /* */ 01170000 * /*****************************************************************/ 01171000 * 0412 01172000 * IF CKLENGTH>=CKELEVEN THEN /* @Y30LB32*/ 01173000 * 0412 01174000 L @02,@PC00003+4 0412 01175000 CLI CKLENGTH(@02),11 0412 01176000 BL @RF00412 0412 01177000 * /***************************************************************/ 01178000 * /* */ 01179000 * /* CSN IS CHECKED FOR LENGTH OF ELEVEN AND IF IT IS @Y30LB32*/ 01180000 * /* ELEVEN A BLANK CHARACTER IS INSERTED AS FOURTH @Y30LB32*/ 01181000 * /* CHARACTER @Y30LB32*/ 01182000 * /* */ 01183000 * /***************************************************************/ 01184000 * 0413 01185000 * IF CKLENGTH=CKELEVEN THEN /* @Y30LB32*/ 01186000 CLI CKLENGTH(@02),11 0413 01187000 BNE @RF00413 0413 01188000 * DO; /* @Y30LB32*/ 01189000 * CKCSNADJ(4:4)=CKBLANK; /* @Y30LB32*/ 01190000 MVI CKCSNADJ+3,C' ' 0415 01191000 * CKCSNADJ(5:12)=CKCSNVAL(4:11);/* @Y30LB32*/ 01192000 L @02,@PC00003 0416 01193000 MVC CKCSNADJ+4(8),CKCSNVAL+3(@02) 0416 01194000 * CKCSNVAL(4:12)=CKCSNADJ(4:12);/* @Y30LB32*/ 01195000 MVC CKCSNVAL+3(9,@02),CKCSNADJ+3 0417 01196000 * END; /* @Y30LB32*/ 01197000 * ELSE 0419 01198000 * ; /* @Y30LB32*/ 01199000 * 0419 01200000 @RF00413 DS 0H 0420 01201000 * /*****************************************************************/ 01202000 * /* */ 01203000 * /* IF CSN IS LESS THEN ELEVEN CHARACTERS ERROR @Y30LB32*/ 01204000 * /* MESSAGE IDC2099I IS WRITTEN AND CONDITION CODE SET @Y30LB32*/ 01205000 * /* */ 01206000 * /*****************************************************************/ 01207000 * 0420 01208000 * ELSE /* @Y30LB32*/ 01209000 * DO; /* @Y30LB32*/ 01210000 B @RC00412 0420 01211000 @RF00412 DS 0H 0421 01212000 * DARGSMOD=CKMSGID; /* @Y30LB32*/ 01213000 L @02,DDSTRU 0421 01214000 MVC DARGSMOD(3,@02),@CC01122 0421 01215000 * DARGSENT=MSG2099I; /* @Y30LB32*/ 01216000 MVI DARGSENT(@02),X'01' 0422 01217000 * DARGDBP=ADDR(CKCSNVAL); /* @Y30LB32*/ 01218000 L @15,@PC00003 0423 01219000 ST @15,DARGDBP(,@02) 0423 01220000 * DARGILP=LENGTH(CKCSNVAL); /* @Y30LB32*/ 01221000 MVC DARGILP(2,@02),@CH00567 0424 01222000 * DARGRETP=''B; /* @Y30LB32*/ 01223000 SLR @15,@15 0425 01224000 ST @15,DARGRETP(,@02) 0425 01225000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Y30LB32*/ 01226000 L @02,@PC00001 0426 01227000 ST @02,@AL00001 0426 01228000 LA @15,@CF00114 0426 01229000 ST @15,@AL00001+4 0426 01230000 LA @15,DDSTRU 0426 01231000 ST @15,@AL00001+8 0426 01232000 MVI @AL00001+8,X'80' 0426 01233000 L @15,GDTPRT(,@02) 0426 01234000 LA @01,@AL00001 0426 01235000 BALR @14,@15 0426 01236000 * CKCOND=4; /* @Y30LB32*/ 01237000 LA CKCOND,4 0427 01238000 * END; /* @Y30LB32*/ 01239000 * 0428 01240000 * /*****************************************************************/ 01241000 * /* */ 01242000 * /* RESTORE PRINT AREA POINTER AND RETURN ADDRESS AND @Y30LB32*/ 01243000 * /* RETURN CONTROL TO CALLING FSR @Y30LB32*/ 01244000 * /* */ 01245000 * /*****************************************************************/ 01246000 * 0429 01247000 * DDSTRU=CKSAVPTR; /* @Y30LB32*/ 01248000 @RC00412 ST CKSAVPTR,DDSTRU 0429 01249000 * REG14=CKRETPTR; /* @Y30LB32*/ 01250000 LR REG14,CKRETPTR 0430 01251000 * RETURN CODE(CKCOND); /* @Y30LB32*/ 01252000 LR @15,CKCOND 0431 01253000 @EL00003 DS 0H 0431 01254000 @EF00003 DS 0H 0431 01255000 @ER00003 BR @14 0431 01256000 * END CKCSNLEN; /* @Y30LB32*/ 01257000 * END IDCNC01 /* @Z40LB38*/ 01258000 * 0433 01259000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01260000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 01261000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 01262000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 01263000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 01264000 */*%INCLUDE SYSLIB (IDCCSNC ) */ 01265000 */*%INCLUDE SYSLIB (IDCDF52 ) */ 01266000 */*%INCLUDE SYSLIB (IDCDF50 ) */ 01267000 * 0433 01268000 * ; 0433 01269000 @DATA DS 0H 01270000 @CH00152 DC H'2' 01271000 @CH00783 DC H'44' 01272000 @CH01145 DC H'120' 01273000 @DATD DSECT 01274000 DS 0F 01275000 @SA00001 DS 18F 01276000 @PC00001 DS 3F 01277000 @PC00003 DS 2F 01278000 @SA00002 DS 15F 01279000 @PC00002 DS 2F 01280000 @AL00001 DS 6A 01281000 @AFTEMPS DS 1F 01282000 IDCNC01 CSECT 01283000 DS 0F 01284000 @CF00114 DC F'0' 01285000 @CF00218 DC F'1' 01286000 @CH00218 EQU @CF00218+2 01287000 @CF00041 DC F'4' 01288000 @CH00041 EQU @CF00041+2 01289000 @CF00178 DC F'8' 01290000 @CF00567 DC F'12' 01291000 @CH00567 EQU @CF00567+2 01292000 @CF00473 DC F'16' 01293000 @DATD DSECT 01294000 DS 0D 01295000 LISTSCAN DS A 01296000 IOCSPTR DS A 01297000 OPNPTR DS A 01298000 DDSTRU DS A 01299000 FSADDR DS A 01300000 ERCNVADR DS A 01301000 CCMSGPTR DS A 01302000 CMMSGPTR DS A 01303000 CTMSGPTR DS A 01304000 ELEMENT DS F 01305000 NULLCPTR DS A 01306000 REASONCD DS F 01307000 MSGPTR DS A 01308000 SSDLPTR DS A 01309000 LISTPTR DS A 01310000 SETRC DS H 01311000 ECBCODE DS FL1 01312000 CSNL DS FL1 01313000 LISTLN DS FL1 01314000 @TS00001 DS CL95 01315000 PRINTAB DS CL20 01316000 NULLCA DS CL44 01317000 CSNNAME DS CL12 01318000 DMPSTG DS CL17 01319000 SSDRGLT DS CL20 01320000 DS CL3 01321000 SSINXLST DS CL120 01322000 ORG SSINXLST 01323000 SSARRAY DS 60H 01324000 ORG SSINXLST+120 01325000 CKCSNADJ DS CL12 01326000 CKPRTTAB DS CL20 01327000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01328000 @ENDDATD EQU * 01329000 IDCNC01 CSECT 01330000 DS 0F 01331000 @SIZDATD DC AL1(0) 01332000 DC AL3(@ENDDATD-@DATD) 01333000 DS 0D 01334000 SSMSGNUM DC AL1(56) 01335000 @CC01097 DC C'NULLCA' 01336000 @CC01094 DC C'NCAA' 01337000 @CC01099 DC C'NCAB' 01338000 @CC01101 DC C'NCAZ' 01339000 @CC01123 DC C'SSAA' 01340000 @CC01143 DC C'CKLN' 01341000 @CC01089 DC C'UV0' 01342000 @CC01091 DC C'NC0' 01343000 @CC01122 DC C'CM0' 01344000 ALL DC CL3'ALL' 01345000 FORMAT DC CL4'FORM' 01346000 HSECOND DC CL4'HSEC' 01347000 CLOCK DC CL4'KLOK' 01348000 SETZERO DC CL4'ZERO' 01349000 SETBLANK DC CL4'BLNK' 01350000 NOSET DC CL4'NSET' 01351000 OVERRIDE DC CL4'OVRD' 01352000 ACQUIRE DC CL8'ACQUIRE ' 01353000 RELINQ DC CL8'RELINQ ' 01354000 MOUNT DC CL8'MOUNT ' 01355000 DEMOUNT DC CL8'DEMOUNT ' 01356000 DEFINE DC CL8'DEFINE ' 01357000 MOVE DC CL8'MOVE ' 01358000 TRACEQ DC CL8'TRACEQ ' 01359000 COPYTABL DC CL8'COPYTABL' 01360000 COPYCRTG DC CL8'COPYCRTG' 01361000 COPYVOL DC CL8'COPYVOL ' 01362000 VVIC DC CL8'VVIC ' 01363000 TUNE DC CL8'TUNE ' 01364000 NAMES DC CL4'NAME' 01365000 UNIT DC CL4'UNIT' 01366000 SHR DC CL4'SHR ' 01367000 EXCL DC CL4'EXCL' 01368000 NOWAIT DC CL4'NWAI' 01369000 WAIT DC CL4'WAIT' 01370000 SECCHECK DC CL8'SECCHECK' 01371000 SCRVTOC DC CL8'SCRVTOC ' 01372000 GETVTOC DC CL8'GETVTOC ' 01373000 PUTVTOC DC CL8'PUTVTOC ' 01374000 RECATLG DC CL8'RECATLG ' 01375000 INITVOL DC CL8'INITVOL ' 01376000 CHECK DC CL8'CHECK ' 01377000 POSTUCB DC CL8'POSTUCB ' 01378000 GET DC CL8'GET ' 01379000 PUT DC CL8'PUT ' 01380000 CLOSE DC CL8'CLOSE ' 01381000 OPEN DC CL8'OPEN ' 01382000 PUTLABEL DC CL8'PUTLABEL' 01383000 GETLABEL DC CL8'GETLABEL' 01384000 CANCEL DC CL8'CANCEL ' 01385000 SET DC CL8'SET ' 01386000 SELECTX DC CL8'SELECTX ' 01387000 CHANGEX DC CL8'CHANGEX ' 01388000 SELECTDD DC CL8'SELECTDD' 01389000 SELECTDS DC CL8'SELECTDS' 01390000 TBLREST DC CL8'TBLREST ' 01391000 NULLIFYC DC CL8'NULLIFYC' 01392000 RDMSC DC CL8'RDMSC ' 01393000 RDMSCTBL DC CL8'RDMSCTBL' 01394000 RDCARTLB DC CL8'RDCARTLB' 01395000 AUDITCEL DC CL8'AUDITCEL' 01396000 RDSTGAD DC CL8'RDSTGAD ' 01397000 FIXAREA DS CL150 01398000 ORG FIXAREA 01399000 @NM00087 DC 150X'00' 01400000 ORG FIXAREA+150 01401000 MODID DC CL4'NC01' 01402000 SSMODSS0 DC CL3'SS0' 01403000 SSMODCM0 DC CL3'CM0' 01404000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01405000 @01 EQU 01 01406000 @02 EQU 02 01407000 @03 EQU 03 01408000 @04 EQU 04 01409000 @05 EQU 05 01410000 @06 EQU 06 01411000 @07 EQU 07 01412000 @08 EQU 08 01413000 @09 EQU 09 01414000 @10 EQU 10 01415000 @11 EQU 11 01416000 @12 EQU 12 01417000 @13 EQU 13 01418000 @14 EQU 14 01419000 @15 EQU 15 01420000 CKCOND EQU @03 01421000 CKSAVPTR EQU @05 01422000 CKRETPTR EQU @04 01423000 ENTRYNUM EQU @02 01424000 NULMPTR EQU @02 01425000 DMPINDEX EQU @02 01426000 TESTRC EQU @03 01427000 REG10 EQU @10 01428000 REG12 EQU @12 01429000 RTNREG EQU @15 01430000 REG14 EQU @14 01431000 NULBR1 EQU @01 01432000 REG0 EQU @00 01433000 REG1 EQU @01 01434000 REG11 EQU @11 01435000 REG13 EQU @13 01436000 REG15 EQU @15 01437000 REG2 EQU @02 01438000 REG3 EQU @03 01439000 REG4 EQU @04 01440000 REG5 EQU @05 01441000 REG6 EQU @06 01442000 REG7 EQU @07 01443000 REG8 EQU @08 01444000 REG9 EQU @09 01445000 IDCSAEP0 EQU 0 01446000 IDCSAFS0 EQU 0 01447000 IDCSASS0 EQU 0 01448000 TRACE1 EQU 0 01449000 OLDERID1 EQU TRACE1 01450000 TRACE2 EQU 0 01451000 OLDERID2 EQU TRACE2 01452000 NEWID2 EQU TRACE2+95 01453000 NEWERID2 EQU 5 01454000 CIRAGL EQU 0 01455000 CIRTYPE EQU CIRAGL 01456000 ALLAGL EQU 0 01457000 ALLSTS EQU ALLAGL+24 01458000 ALLDSP EQU ALLAGL+25 01459000 ALLORG EQU ALLAGL+26 01460000 ALLOPT EQU ALLAGL+28 01461000 UNITABL EQU 0 01462000 UNITADR EQU UNITABL+4 01463000 @NM00010 EQU UNITADR 01464000 UNITSTAT EQU UNITABL+6 01465000 IOCSTR EQU 0 01466000 IOCDSO EQU IOCSTR+16 01467000 IOCRFM EQU IOCSTR+17 01468000 IOCMAC EQU IOCSTR+18 01469000 IOCMAC2 EQU IOCSTR+19 01470000 IOCCHP EQU IOCSTR+20 01471000 IOCMSG EQU IOCSTR+21 01472000 IOCRBA EQU IOCSTR+40 01473000 IOCTTR EQU IOCRBA 01474000 IOCMEM EQU IOCSTR+44 01475000 IOCNWM EQU IOCSTR+48 01476000 OPNAGL EQU 0 01477000 OPNOPT EQU OPNAGL 01478000 OPNRFM EQU OPNAGL+1 01479000 OPNTYP EQU OPNAGL+2 01480000 OPNMOD EQU OPNAGL+3 01481000 OPNDEV EQU OPNAGL+24 01482000 OPNDSO EQU OPNAGL+41 01483000 OPNOPT2 EQU OPNAGL+42 01484000 IOINFOPT EQU 0 01485000 UVOLLIST EQU 0 01486000 UVOLENT EQU UVOLLIST+2 01487000 AMSTP011 EQU 0 01488000 DARGLIST EQU 0 01489000 DARGDBP EQU DARGLIST 01490000 DARGRETP EQU DARGLIST+4 01491000 DARGSTID EQU DARGLIST+8 01492000 DARGSMOD EQU DARGSTID 01493000 DARGSENT EQU DARGSTID+3 01494000 DARGILP EQU DARGLIST+12 01495000 DARGRETL EQU DARGLIST+16 01496000 DARGARY EQU DARGLIST+20 01497000 DARGINS EQU DARGARY 01498000 DARGINL EQU DARGARY+2 01499000 FMTLIST EQU 0 01500000 FMTFLGS EQU FMTLIST 01501000 FMTSPF EQU FMTLIST+2 01502000 FMTRFNO EQU FMTSPF 01503000 FMTILEN EQU FMTRFNO 01504000 FMTIOFF EQU FMTLIST+4 01505000 FMTTRBC EQU FMTIOFF 01506000 FMTSTO EQU FMTTRBC 01507000 FMTOCOL EQU FMTLIST+6 01508000 FMTCNVF EQU FMTLIST+10 01509000 ERCNVTAB EQU 0 01510000 ERTYPE EQU ERCNVTAB 01511000 EROPER EQU ERCNVTAB+1 01512000 EROSOPER EQU ERCNVTAB+2 01513000 IDCDB010 EQU 0 01514000 DMPITM EQU 0 01515000 DMPITMNM EQU DMPITM 01516000 DMPITMPT EQU DMPITM+8 01517000 DMPITMLN EQU DMPITM+12 01518000 DMPITMTP EQU DMPITM+14 01519000 DMPARY EQU 0 01520000 DMPTRM EQU 0 01521000 CCMSG EQU 0 01522000 CMMSG EQU 0 01523000 CMVOLFLG EQU CMMSG+6 01524000 CTMSG EQU 0 01525000 CTARRAY EQU CTMSG+4 01526000 MDAGL EQU 0 01527000 MDFLAGS EQU MDAGL+30 01528000 MDVTOC EQU MDAGL+32 01529000 PUAGL EQU 0 01530000 CKAGL EQU 0 01531000 CKFLAGS EQU CKAGL+28 01532000 EXCLAGL EQU 0 01533000 EXCLFLAG EQU EXCLAGL+22 01534000 EXOARG EQU 0 01535000 EXOPT EQU EXOARG+32 01536000 EXFLG EQU EXOARG+33 01537000 EXGARG EQU 0 01538000 EXPARG EQU 0 01539000 EXPDATA EQU EXPARG+12 01540000 EXPDATAB EQU 0 01541000 EXPARRAY EQU EXPDATAB+4 01542000 VS2AGL EQU 0 01543000 VSLABOPT EQU VS2AGL+28 01544000 VS2MSG EQU VS2AGL+35 01545000 VS2RESOP EQU VS2AGL+36 01546000 VS1AGL EQU 0 01547000 VSSECOPT EQU VS1AGL+68 01548000 VSVTOPT EQU VS1AGL+69 01549000 VSCATOPT EQU VS1AGL+70 01550000 VSRETURN EQU VS1AGL+71 01551000 VSMSG EQU VS1AGL+72 01552000 VSRESOPT EQU VS1AGL+73 01553000 RCTAGL EQU 0 01554000 RCTOPT EQU RCTAGL+8 01555000 STAEPARM EQU 0 01556000 STARCVY EQU STAEPARM+52 01557000 STARETRY EQU STAEPARM+53 01558000 VOLLABEL EQU 0 01559000 SV82LIST EQU 0 01560000 @NM00066 EQU SV82LIST+4 01561000 SV82DCBP EQU @NM00066 01562000 @NM00067 EQU SV82LIST+12 01563000 SV82WRKP EQU @NM00067 01564000 SRTAGL EQU 0 01565000 LCTINFO EQU 0 01566000 LCTFLAGS EQU LCTINFO+32 01567000 UCTAGL EQU 0 01568000 UCTFLAGS EQU UCTAGL+68 01569000 SELAGL EQU 0 01570000 SELFLAGS EQU SELAGL+22 01571000 DATESAGL EQU 0 01572000 DATESOPT EQU DATESAGL+20 01573000 VS3AGL EQU 0 01574000 VS3FLAGS EQU VS3AGL+58 01575000 VSDVTOC EQU 0 01576000 VSDSTAT EQU 0 01577000 VSDSFLG1 EQU VSDSTAT+16 01578000 VSDFLG2 EQU VSDSTAT+17 01579000 VSDSCR EQU 0 01580000 VSDSCRFL EQU VSDSCR+4 01581000 VSDUSAGE EQU 0 01582000 VSDDORG EQU VSDUSAGE+9 01583000 VSDALLOC EQU VSDUSAGE+10 01584000 VSDUSEF EQU VSDUSAGE+11 01585000 VSDDSORG EQU VSDUSAGE+16 01586000 VSDBLOCK EQU 0 01587000 VSDSPACE EQU VSDBLOCK+12 01588000 VSDARRAY EQU VSDBLOCK+16 01589000 VSDVARY EQU VSDARRAY+48 01590000 ACT EQU 0 01591000 INACT EQU 0 01592000 SCRC EQU 0 01593000 CART EQU 0 01594000 CARTLEN EQU CART 01595000 CARTVAL EQU CART+1 01596000 VOL EQU 0 01597000 VOLVAL EQU VOL+1 01598000 SEQ1 EQU 0 01599000 SEQ2 EQU 0 01600000 NVOL EQU 0 01601000 NULLCX EQU 0 01602000 NULFLAGA EQU NULLCX+6 01603000 NULVOL EQU NULFLAGA 01604000 NULTRAN EQU NULFLAGA 01605000 NULSCRC EQU NULFLAGA 01606000 NULCART1 EQU NULFLAGA 01607000 NULCART2 EQU NULFLAGA 01608000 NULVOLID EQU NULLCX+8 01609000 NULCSN EQU NULLCX+20 01610000 NULMSG EQU 0 01611000 NMCSN1 EQU NULMSG+8 01612000 NMCSN2 EQU NULMSG+20 01613000 AMSTP041 EQU 0 01614000 AMSTP042 EQU 0 01615000 AMSTP043 EQU 0 01616000 AMSTP044 EQU 0 01617000 IDCIOCL0 EQU 0 01618000 IDCIOCO0 EQU 0 01619000 IDCIOGT0 EQU 0 01620000 IDCIOIT0 EQU 0 01621000 IDCIOOP0 EQU 0 01622000 IDCIOPO0 EQU 0 01623000 IDCIOPT0 EQU 0 01624000 IDCIOSI0 EQU 0 01625000 IDCIOST0 EQU 0 01626000 IDCIOTM0 EQU 0 01627000 IDCIOVY0 EQU 0 01628000 IDCIO050 EQU 0 01629000 IDCSAAL0 EQU 0 01630000 IDCSACA0 EQU 0 01631000 IDCSACL0 EQU 0 01632000 IDCSACR0 EQU 0 01633000 IDCSADE0 EQU 0 01634000 IDCSADL0 EQU 0 01635000 IDCSADQ0 EQU 0 01636000 IDCSAFP0 EQU 0 01637000 IDCSAGP0 EQU 0 01638000 IDCSAGS0 EQU 0 01639000 IDCSAID0 EQU 0 01640000 IDCSALC0 EQU 0 01641000 IDCSALD0 EQU 0 01642000 IDCSALK0 EQU 0 01643000 IDCSANQ0 EQU 0 01644000 IDCSAPR0 EQU 0 01645000 IDCSAPT0 EQU 0 01646000 IDCSAQL0 EQU 0 01647000 IDCSARC0 EQU 0 01648000 IDCSARV0 EQU 0 01649000 IDCSASC0 EQU 0 01650000 IDCSASI0 EQU 0 01651000 IDCSASN0 EQU 0 01652000 IDCSAST0 EQU 0 01653000 IDCSATI0 EQU 0 01654000 IDCSAUC0 EQU 0 01655000 IDCSAWO0 EQU 0 01656000 IDCSA060 EQU 0 01657000 IDCST010 EQU 0 01658000 IDCTPER0 EQU 0 01659000 LISTTEST EQU 0 01660000 NEWERID1 EQU 5 01661000 GDTTBL EQU 0 01662000 GDTTR1 EQU GDTTBL+8 01663000 GDTTR2 EQU GDTTBL+12 01664000 GDTDBG EQU GDTTBL+40 01665000 GDTSTC EQU GDTTBL+44 01666000 GDTPRT EQU GDTTBL+48 01667000 GDTESS EQU GDTTBL+52 01668000 GDTESA EQU GDTTBL+56 01669000 GDTRST EQU GDTTBL+60 01670000 GDTRES EQU GDTTBL+64 01671000 GDTCAL EQU GDTTBL+68 01672000 GDTGSP EQU GDTTBL+72 01673000 GDTFSP EQU GDTTBL+76 01674000 GDTGPL EQU GDTTBL+80 01675000 GDTFPL EQU GDTTBL+84 01676000 GDTLOD EQU GDTTBL+88 01677000 GDTDEL EQU GDTTBL+92 01678000 GDTPRL EQU GDTTBL+96 01679000 GDTEPL EQU GDTTBL+100 01680000 GDTTIM EQU GDTTBL+104 01681000 GDTIIO EQU GDTTBL+108 01682000 GDTTIO EQU GDTTBL+112 01683000 GDTOPN EQU GDTTBL+124 01684000 GDTCLS EQU GDTTBL+128 01685000 GDTGET EQU GDTTBL+132 01686000 GDTPUT EQU GDTTBL+136 01687000 GDTPOS EQU GDTTBL+140 01688000 GDTCPY EQU GDTTBL+144 01689000 GDTCAT EQU GDTTBL+148 01690000 GDTSNP EQU GDTTBL+164 01691000 GDTVFY EQU GDTTBL+172 01692000 GDTUID EQU GDTTBL+192 01693000 GDTPMT EQU GDTTBL+196 01694000 GDTCIR EQU GDTTBL+200 01695000 GDTLNK EQU GDTTBL+204 01696000 GDTALC EQU GDTTBL+208 01697000 GDTDLC EQU GDTTBL+212 01698000 GDTQAL EQU GDTTBL+216 01699000 GDTSTW EQU GDTTBL+220 01700000 GDTSSC EQU GDTTBL+224 01701000 GDTENQ EQU GDTTBL+228 01702000 GDTRSV EQU GDTTBL+232 01703000 GDTDEQ EQU GDTTBL+236 01704000 GDTSFO EQU GDTTBL+240 01705000 GDTWTO EQU GDTTBL+244 01706000 GDTSCR EQU GDTTBL+248 01707000 GDTUNT EQU GDTTBL+252 01708000 GDTRCT EQU GDTTBL+256 01709000 GDTIFO EQU GDTTBL+260 01710000 GDTEXP EQU GDTTBL+264 01711000 GDTSTA EQU GDTTBL+268 01712000 GDTERR EQU GDTTBL+272 01713000 GDTUNC EQU GDTTBL+276 01714000 GDTLOC EQU GDTTBL+280 01715000 FDTTBL EQU 0 01716000 FDTPTR EQU FDTTBL+8 01717000 LASTCOND EQU 0 01718000 SSRCODE EQU 0 01719000 SSRHALF EQU SSRCODE+2 01720000 SSECBCD EQU 0 01721000 CKCSNVAL EQU 0 01722000 CKLENGTH EQU 0 01723000 * START UNREFERENCED COMPONENTS 01724000 @NM00088 EQU SSRCODE 01725000 FDTVERB EQU FDTTBL 01726000 GDTECT EQU GDTTBL+188 01727000 GDTPSB EQU GDTTBL+184 01728000 GDTUPT EQU GDTTBL+180 01729000 GDTCMB EQU GDTTBL+176 01730000 GDTSPR EQU GDTTBL+168 01731000 @NM00001 EQU GDTTBL+160 01732000 GDTABH EQU GDTTBL+156 01733000 GDTABT EQU GDTTBL+152 01734000 GDTTOH EQU GDTTBL+120 01735000 GDTRIP EQU GDTTBL+116 01736000 GDTIOH EQU GDTTBL+36 01737000 GDTSAH EQU GDTTBL+32 01738000 GDTTPH EQU GDTTBL+28 01739000 GDTRIH EQU GDTTBL+24 01740000 GDTSTH EQU GDTTBL+20 01741000 GDTDBH EQU GDTTBL+16 01742000 GDTPRM EQU GDTTBL+4 01743000 GDTHDR EQU GDTTBL 01744000 NMRES EQU NULMSG+6 01745000 NMVOLID EQU NULMSG 01746000 NULRES2 EQU NULLCX+32 01747000 NULECB EQU NULLCX+16 01748000 NULASID EQU NULLCX+14 01749000 @NM00086 EQU NULFLAGA 01750000 @NM00085 EQU NULFLAGA 01751000 NULRES1 EQU NULLCX+5 01752000 NULORDER EQU NULLCX+4 01753000 NULENGTH EQU NULLCX 01754000 VOLLEN EQU VOL 01755000 VSDDSN EQU VSDARRAY+4 01756000 VSDVOLCT EQU VSDARRAY 01757000 VSDFMT0 EQU VSDBLOCK+8 01758000 VSDVTOCS EQU VSDBLOCK+4 01759000 VSDELEM EQU VSDBLOCK 01760000 VSDFREE EQU VSDUSAGE+24 01761000 VSDALLC EQU VSDUSAGE+19 01762000 VSDDSOR3 EQU VSDDSORG+2 01763000 @NM00084 EQU VSDDSORG 01764000 VSDSCAL EQU VSDUSAGE+12 01765000 @NM00083 EQU VSDUSEF 01766000 VSDCALFR EQU VSDUSEF 01767000 @NM00082 EQU VSDALLOC 01768000 VSDABSTR EQU VSDALLOC 01769000 VSDABLK EQU VSDALLOC 01770000 VSDATRK EQU VSDALLOC 01771000 VSDACYL EQU VSDALLOC 01772000 @NM00081 EQU VSDDORG 01773000 VSDOU EQU VSDDORG 01774000 VSDOIS EQU VSDDORG 01775000 VSDODA EQU VSDDORG 01776000 VSDOUN EQU VSDDORG 01777000 VSDOPS EQU VSDDORG 01778000 VSDOPO EQU VSDDORG 01779000 VSDEXTS EQU VSDUSAGE+8 01780000 VSDSECAL EQU VSDUSAGE+4 01781000 VSDFTRK EQU VSDUSAGE+2 01782000 VSDTRKS EQU VSDUSAGE 01783000 @NM00080 EQU VSDSCR+5 01784000 @NM00079 EQU VSDSCRFL 01785000 VSDVSAM EQU VSDSCRFL 01786000 VSDCATLC EQU VSDSCRFL 01787000 VSDACBPT EQU VSDSCR 01788000 VSDPRTC EQU VSDSTAT+25 01789000 VSDCAT EQU VSDSTAT+22 01790000 VSDEXP EQU VSDSTAT+20 01791000 VSDCRE EQU VSDSTAT+18 01792000 @NM00078 EQU VSDFLG2 01793000 VSDERROR EQU VSDFLG2 01794000 VSDPROT EQU VSDFLG2 01795000 VSDPWW EQU VSDFLG2 01796000 VSDPWR EQU VSDFLG2 01797000 @NM00077 EQU VSDSFLG1 01798000 VSDCVSAM EQU VSDSFLG1 01799000 VSDCATLG EQU VSDSFLG1 01800000 VSDVSAME EQU VSDSFLG1 01801000 VSDVSAMC EQU VSDSFLG1 01802000 VSDVTOCE EQU VSDSFLG1 01803000 VSDVTOCC EQU VSDSFLG1 01804000 VSDOWNER EQU VSDSTAT+8 01805000 VSDEXPIR EQU VSDSTAT+4 01806000 VSDCREAT EQU VSDSTAT 01807000 VSDFRCCL EQU VSDVTOC+21 01808000 @NM00076 EQU VSDVTOC+20 01809000 VSDFREXT EQU VSDVTOC+16 01810000 @NM00075 EQU VSDVTOC+15 01811000 VSDFRTRK EQU VSDVTOC+11 01812000 @NM00074 EQU VSDVTOC+10 01813000 VSDFRCYL EQU VSDVTOC+6 01814000 @NM00073 EQU VSDVTOC 01815000 @NM00072 EQU VS3FLAGS 01816000 VS3SYSNM EQU VS3FLAGS 01817000 VS3UNCAT EQU VS3FLAGS 01818000 VS3SCR EQU VS3FLAGS 01819000 VS3USAGE EQU VS3FLAGS 01820000 VS3STAT EQU VS3FLAGS 01821000 VS3DD EQU VS3AGL+50 01822000 VS3VOL EQU VS3AGL+44 01823000 VS3POOL EQU VS3AGL+40 01824000 VS3DEV EQU VS3AGL+36 01825000 VS3UCBP EQU VS3AGL+32 01826000 VS3CREAT EQU VS3AGL+28 01827000 VS3EXPIR EQU VS3AGL+24 01828000 VS3AST EQU VS3AGL+22 01829000 VS3LEVLN EQU VS3AGL+20 01830000 VS3LEVP EQU VS3AGL+16 01831000 VS3EXDSP EQU VS3AGL+12 01832000 VS3LISTP EQU VS3AGL+8 01833000 VS3HEAD EQU VS3AGL 01834000 @NM00071 EQU DATESOPT 01835000 DATDAYOP EQU DATESOPT 01836000 DATDTEOP EQU DATESOPT 01837000 DATSUB EQU DATESOPT 01838000 DATADD EQU DATESOPT 01839000 DATRETRN EQU DATESAGL+16 01840000 DATDAYS EQU DATESAGL+12 01841000 DATDATE EQU DATESAGL+8 01842000 DATHEAD EQU DATESAGL 01843000 @NM00070 EQU SELFLAGS 01844000 SELVOL EQU SELAGL+16 01845000 SELDDNP EQU SELAGL+12 01846000 SELUCBP EQU SELAGL+8 01847000 SELHEAD EQU SELAGL 01848000 @NM00069 EQU UCTFLAGS 01849000 UCTVSCAT EQU UCTFLAGS 01850000 UCTDD EQU UCTAGL+60 01851000 UCTVOLP EQU UCTAGL+56 01852000 UCTACBP EQU UCTAGL+52 01853000 UCTDSN EQU UCTAGL+8 01854000 UCTHEAD EQU UCTAGL 01855000 @NM00068 EQU LCTFLAGS 01856000 LCTVSCAT EQU LCTFLAGS 01857000 LCTOWNER EQU LCTINFO+24 01858000 LCTEXPIR EQU LCTINFO+20 01859000 LCTCREAT EQU LCTINFO+16 01860000 LCTACBP EQU LCTINFO+12 01861000 LCTMULVC EQU LCTINFO+8 01862000 LCTHEAD EQU LCTINFO 01863000 SRTWORKP EQU SRTAGL+28 01864000 SRTFLDLN EQU SRTAGL+24 01865000 SRTPOSIT EQU SRTAGL+20 01866000 SRTLEN EQU SRTAGL+16 01867000 SRTNUM EQU SRTAGL+12 01868000 SRTADDR EQU SRTAGL+8 01869000 SRTHEAD EQU SRTAGL 01870000 SV82DEBP EQU SV82WRKP 01871000 SV82TTRP EQU SV82LIST+8 01872000 SV82VOLP EQU SV82DCBP 01873000 SV82UCBP EQU SV82LIST+1 01874000 SV82CODE EQU SV82LIST 01875000 VOLRESV3 EQU VOLLABEL+55 01876000 VOLOWNER EQU VOLLABEL+45 01877000 VOLRESV1 EQU VOLLABEL+20 01878000 VOLVTOC EQU VOLLABEL+15 01879000 VOLSECTY EQU VOLLABEL+14 01880000 VOLSERNO EQU VOLLABEL+8 01881000 VOLNO EQU VOLLABEL+7 01882000 VOLLABI EQU VOLLABEL+4 01883000 VOLKEY EQU VOLLABEL 01884000 STAVTTR EQU STAEPARM+54 01885000 @NM00065 EQU STARETRY 01886000 STAVTOC EQU STARETRY 01887000 STAOFF EQU STARETRY 01888000 STAIO05 EQU STARETRY 01889000 @NM00064 EQU STARCVY 01890000 STACLEAR EQU STARCVY 01891000 STAVPOST EQU STARCVY 01892000 STAVENQ EQU STARCVY 01893000 STAVDMNT EQU STARCVY 01894000 STAVMNT EQU STARCVY 01895000 STATCB EQU STAEPARM+48 01896000 STARTADD EQU STAEPARM+44 01897000 STAEXSAV EQU STAEPARM+40 01898000 STARTSAV EQU STAEPARM+36 01899000 STARTTR EQU STAEPARM+32 01900000 @NM00063 EQU STAEPARM+30 01901000 STARVOL EQU STAEPARM+24 01902000 STARUCB EQU STAEPARM+20 01903000 @NM00062 EQU STAEPARM+18 01904000 STAVVOL EQU STAEPARM+12 01905000 STAVUCB EQU STAEPARM+8 01906000 STAHEAD EQU STAEPARM 01907000 RCTDSET EQU RCTAGL+32 01908000 RCTNVOL EQU RCTAGL+26 01909000 RCTOVOL EQU RCTAGL+20 01910000 RCTNDEV EQU RCTAGL+16 01911000 RCTODEV EQU RCTAGL+12 01912000 @NM00061 EQU RCTAGL+10 01913000 @NM00060 EQU RCTOPT 01914000 RCTVOL EQU RCTOPT 01915000 RCTDEV EQU RCTOPT 01916000 RCTHEAD EQU RCTAGL 01917000 @NM00059 EQU VSRESOPT 01918000 VSREAL EQU VSRESOPT 01919000 VSRES EQU VSRESOPT 01920000 @NM00058 EQU VSMSG 01921000 VSTOV EQU VSMSG 01922000 VSFROMV EQU VSMSG 01923000 @NM00057 EQU VSRETURN 01924000 VSUCAT EQU VSRETURN 01925000 VSVSAM EQU VSRETURN 01926000 @NM00056 EQU VSCATOPT 01927000 VSLIST EQU VSCATOPT 01928000 VSSERIAL EQU VSCATOPT 01929000 VSDEVICE EQU VSCATOPT 01930000 @NM00055 EQU VSVTOPT 01931000 VSVSFLAG EQU VSVTOPT 01932000 VSALTTRK EQU VSVTOPT 01933000 VSTIME EQU VSVTOPT 01934000 VSUCMAST EQU VSSECOPT 01935000 VSOPCAT EQU VSSECOPT 01936000 VSUCTEST EQU VSSECOPT 01937000 VSWRITE EQU VSSECOPT 01938000 VSREAD EQU VSSECOPT 01939000 VSNONONV EQU VSSECOPT 01940000 VSMASTER EQU VSSECOPT 01941000 VSNOVSAM EQU VSSECOPT 01942000 VSODEVP EQU VS1AGL+64 01943000 VSOSERP EQU VS1AGL+60 01944000 VSDEVP EQU VS1AGL+56 01945000 VSSERP EQU VS1AGL+52 01946000 VSPFILEP EQU VS1AGL+48 01947000 VSPSWDP EQU VS1AGL+44 01948000 VSCATDDP EQU VS1AGL+40 01949000 VSACBP EQU VS1AGL+36 01950000 VSCATP EQU VS1AGL+32 01951000 VSNXTATP EQU VS1AGL+28 01952000 VSNUMATP EQU VS1AGL+24 01953000 VSIOP EQU VS1AGL+20 01954000 VSFILEP EQU VS1AGL+16 01955000 VSVOLP EQU VS1AGL+12 01956000 VSUCBP EQU VS1AGL+8 01957000 VSHEAD EQU VS1AGL 01958000 VSVTOCPT EQU VS2AGL+48 01959000 @NM00054 EQU VS2AGL+45 01960000 VSDDNAME EQU VS2AGL+37 01961000 @NM00053 EQU VS2RESOP 01962000 VS2REAL EQU VS2RESOP 01963000 VS2RES EQU VS2RESOP 01964000 @NM00052 EQU VS2MSG 01965000 VS2TOV EQU VS2MSG 01966000 VSVOLUME EQU VS2AGL+29 01967000 @NM00051 EQU VSLABOPT 01968000 VSNOVTOC EQU VSLABOPT 01969000 VSVOLSER EQU VSLABOPT 01970000 VSOWNER EQU VSLABOPT 01971000 VSIOBKPT EQU VS2AGL+24 01972000 VSVOLPTR EQU VS2AGL+20 01973000 VSOWNPTR EQU VS2AGL+16 01974000 VSVTOCSZ EQU VS2AGL+12 01975000 VSUCBPTR EQU VS2AGL+8 01976000 VS2HEAD EQU VS2AGL 01977000 EXPDATAL EQU EXPARRAY+6 01978000 @NM00050 EQU EXPARRAY+5 01979000 EXPKEYLN EQU EXPARRAY+4 01980000 EXPDATAP EQU EXPARRAY 01981000 EXPRECNO EQU EXPDATAB 01982000 EXPCCHHR EQU EXPARG+16 01983000 EXPCTLBK EQU EXPARG+8 01984000 EXPHEAD EQU EXPARG 01985000 EXGDATAL EQU EXGARG+30 01986000 @NM00049 EQU EXGARG+29 01987000 EXGKEYLN EQU EXGARG+28 01988000 EXGDATAP EQU EXGARG+24 01989000 EXGRECNO EQU EXGARG+20 01990000 EXGCCHH2 EQU EXGARG+16 01991000 EXGCCHH1 EQU EXGARG+12 01992000 EXGCTLBK EQU EXGARG+8 01993000 EXGHEAD EQU EXGARG 01994000 @NM00048 EQU EXFLG 01995000 EXOREAD EQU EXFLG 01996000 @NM00047 EQU EXOPT 01997000 EXOVTOC EQU EXOPT 01998000 EXONEW EQU EXOPT 01999000 EXOPASS EQU EXOPT 02000000 EXOLAB EQU EXOPT 02001000 EXOTAB EQU EXOPT 02002000 EXOCTLBK EQU EXOARG+28 02003000 EXOEXT EQU EXOARG+24 02004000 EXOUCB EQU EXOARG+20 02005000 EXOVSN EQU EXOARG+16 02006000 EXODSN EQU EXOARG+12 02007000 EXODDN EQU EXOARG+8 02008000 EXOHEAD EQU EXOARG 02009000 @NM00046 EQU EXCLFLAG 02010000 EXCLMNT EQU EXCLFLAG 02011000 EXCLVOL EQU EXCLAGL+16 02012000 EXCLDDP EQU EXCLAGL+12 02013000 EXCLUCBP EQU EXCLAGL+8 02014000 EXCLHEAD EQU EXCLAGL 02015000 @NM00045 EQU CKFLAGS 02016000 CKDMTABL EQU CKFLAGS 02017000 CKRETTYP EQU CKFLAGS 02018000 CKTESTVT EQU CKFLAGS 02019000 CKLABELP EQU CKAGL+24 02020000 CKDATYPE EQU CKAGL+20 02021000 CKDDNAME EQU CKAGL+12 02022000 CKUCBPTR EQU CKAGL+8 02023000 CKHEAD EQU CKAGL 02024000 PULABELP EQU PUAGL+16 02025000 PUTTRPTR EQU PUAGL+12 02026000 PUUCBPTR EQU PUAGL+8 02027000 PUHEAD EQU PUAGL 02028000 MDR EQU MDVTOC+4 02029000 MDHH EQU MDVTOC+2 02030000 MDCC EQU MDVTOC 02031000 @NM00044 EQU MDAGL+31 02032000 MDVTOCTR EQU MDFLAGS 02033000 MDFORCE EQU MDFLAGS 02034000 MDDEQ EQU MDFLAGS 02035000 MDENQ EQU MDFLAGS 02036000 MDWAIT EQU MDFLAGS 02037000 MDPOST EQU MDFLAGS 02038000 MDCLEAR EQU MDFLAGS 02039000 MDNEWVOL EQU MDFLAGS 02040000 MDLABEL EQU MDAGL+24 02041000 MDPUAGL EQU MDAGL+20 02042000 MDDDNAME EQU MDAGL+12 02043000 MDUCBPTR EQU MDAGL+8 02044000 MDHEAD EQU MDAGL 02045000 CTTBLRR EQU CTARRAY+3 02046000 CTTBLHH EQU CTARRAY+2 02047000 CTTBLCC EQU CTARRAY+1 02048000 CTTBLID EQU CTARRAY 02049000 CTREALH EQU CTMSG+3 02050000 CTREALCC EQU CTMSG+1 02051000 @NM00043 EQU CTMSG 02052000 CMCSN2 EQU CMMSG+28 02053000 CMCSN1 EQU CMMSG+16 02054000 CMNUMCRT EQU CMMSG+15 02055000 @NM00042 EQU CMMSG+14 02056000 CMNEWVOL EQU CMMSG+8 02057000 @NM00041 EQU CMMSG+7 02058000 @NM00040 EQU CMVOLFLG 02059000 CMRONLY EQU CMVOLFLG 02060000 CMBIND EQU CMVOLFLG 02061000 CMSCRCRT EQU CMVOLFLG 02062000 CMEXCL EQU CMVOLFLG 02063000 CMDERAS EQU CMVOLFLG 02064000 CMSCRVOL EQU CMVOLFLG 02065000 CMCECART EQU CMVOLFLG 02066000 CMOLDVOL EQU CMMSG 02067000 CCOLDCSN EQU CCMSG+24 02068000 CCNEWCSN EQU CCMSG+12 02069000 @NM00039 EQU CCMSG+10 02070000 CCVOL EQU CCMSG+4 02071000 @NM00038 EQU CCMSG+2 02072000 CCEJCODE EQU CCMSG+1 02073000 CCPSTCDE EQU CCMSG 02074000 @NM00037 EQU DMPARY+15 02075000 DMPARYTP EQU DMPARY+14 02076000 DMPARYEX EQU DMPARY+12 02077000 DMPARYIC EQU DMPARY+10 02078000 DMPARYSZ EQU DMPARY+8 02079000 DMPARYNM EQU DMPARY 02080000 @NM00036 EQU DMPITM+15 02081000 @NM00035 EQU ERCNVTAB+24 02082000 ERCPLPT EQU ERCNVTAB+20 02083000 ERCATRC EQU ERCNVTAB+16 02084000 ERDSNM EQU ERCNVTAB+12 02085000 @NM00034 EQU ERCNVTAB+4 02086000 @NM00033 EQU ERCNVTAB+3 02087000 @NM00032 EQU EROSOPER 02088000 EROSUCDX EQU EROSOPER 02089000 EROSCATL EQU EROSOPER 02090000 @NM00031 EQU EROPER 02091000 ERCATAL EQU EROPER 02092000 ERCATDL EQU EROPER 02093000 ERCATDE EQU EROPER 02094000 ERCATLC EQU EROPER 02095000 @NM00030 EQU ERTYPE 02096000 EROSCAT EQU ERTYPE 02097000 ERCATLG EQU ERTYPE 02098000 @NM00029 EQU FMTCNVF+1 02099000 FMTAR EQU FMTCNVF+1 02100000 FMTBS EQU FMTCNVF+1 02101000 FMTSS EQU FMTCNVF+1 02102000 FMTAL EQU FMTCNVF+1 02103000 FMTZS EQU FMTCNVF+1 02104000 @NM00028 EQU FMTCNVF 02105000 FMTPU EQU FMTCNVF 02106000 FMTBD EQU FMTCNVF 02107000 FMTBHD EQU FMTCNVF 02108000 FMTBHA EQU FMTCNVF 02109000 FMTBH EQU FMTCNVF 02110000 FMTOLEN EQU FMTLIST+8 02111000 FMTRIO EQU FMTOCOL 02112000 FMTSPT EQU FMTSTO 02113000 FMTSTL EQU FMTILEN 02114000 @NM00027 EQU FMTFLGS+1 02115000 FMTHDF EQU FMTFLGS 02116000 FMTDFF EQU FMTFLGS 02117000 FMTSTF EQU FMTFLGS 02118000 FMTREPF EQU FMTFLGS 02119000 FMTBDF EQU FMTFLGS 02120000 FMTIDF EQU FMTFLGS 02121000 FMTSCF EQU FMTFLGS 02122000 FMTEOLF EQU FMTFLGS 02123000 DARGDTM EQU DARGARY+4 02124000 DARGPCT EQU DARGINL 02125000 DARGREP EQU DARGINS 02126000 @NM00026 EQU DARGLIST+19 02127000 DARGIND EQU DARGLIST+18 02128000 DARGCNT EQU DARGLIST+14 02129000 UVOLVOL EQU UVOLENT+4 02130000 UVOLDEV EQU UVOLENT 02131000 UVOLCNT EQU UVOLLIST 02132000 @NM00025 EQU IOINFOPT 02133000 IOINFTMS EQU IOINFOPT 02134000 IOINFSUP EQU IOINFOPT 02135000 IOINFDSN EQU IOINFOPT 02136000 IOINFVOL EQU IOINFOPT 02137000 IOINFDVT EQU IOINFOPT 02138000 OPNVOL EQU OPNAGL+44 02139000 @NM00024 EQU OPNAGL+43 02140000 @NM00023 EQU OPNOPT2 02141000 OPNOPTJM EQU OPNOPT2 02142000 @NM00022 EQU OPNOPT2 02143000 OPNOPTAS EQU OPNOPT2 02144000 @NM00021 EQU OPNDSO 02145000 OPNDSOPO EQU OPNDSO 02146000 OPNDSOIS EQU OPNDSO 02147000 OPNDSOPS EQU OPNDSO 02148000 OPNDSOAM EQU OPNDSO 02149000 OPNKYL EQU OPNAGL+40 02150000 OPNBLK EQU OPNAGL+36 02151000 OPNREC EQU OPNAGL+32 02152000 OPNDEVIX EQU OPNDEV+4 02153000 OPNDEVDT EQU OPNDEV 02154000 OPNCBP EQU OPNAGL+20 02155000 OPNDSN EQU OPNAGL+16 02156000 OPNPWA EQU OPNAGL+12 02157000 OPNDDN EQU OPNAGL+8 02158000 OPNIOC EQU OPNAGL+4 02159000 OPNMODRP EQU OPNMOD 02160000 OPNMODUB EQU OPNMOD 02161000 OPNMODRS EQU OPNMOD 02162000 OPNMODAX EQU OPNMOD 02163000 OPNMODRR EQU OPNMOD 02164000 OPNMODRC EQU OPNMOD 02165000 OPNMODAC EQU OPNMOD 02166000 OPNMODPD EQU OPNMOD 02167000 @NM00020 EQU OPNTYP 02168000 OPNTYPRV EQU OPNTYP 02169000 OPNTYPEX EQU OPNTYP 02170000 OPNTYPRA EQU OPNTYP 02171000 OPNTYPXM EQU OPNTYP 02172000 OPNTYPCI EQU OPNTYP 02173000 OPNTYPSO EQU OPNTYP 02174000 OPNTYPSI EQU OPNTYP 02175000 @NM00019 EQU OPNRFM 02176000 OPNRFMBK EQU OPNRFM 02177000 OPNRFMSF EQU OPNRFM 02178000 OPNRFMUN EQU OPNRFM 02179000 OPNRFMVR EQU OPNRFM 02180000 OPNRFMFX EQU OPNRFM 02181000 OPNOPTSK EQU OPNOPT 02182000 OPNOPTDR EQU OPNOPT 02183000 OPNOPTCR EQU OPNOPT 02184000 OPNOPTKS EQU OPNOPT 02185000 OPNOPTBK EQU OPNOPT 02186000 OPNOPTUP EQU OPNOPT 02187000 OPNOPTOT EQU OPNOPT 02188000 OPNOPTIN EQU OPNOPT 02189000 IOCEXT EQU IOCSTR+64 02190000 IOCREL EQU IOCSTR+60 02191000 IOCWORK EQU IOCSTR+56 02192000 IOCRRN EQU IOCSTR+52 02193000 IOCPNM EQU IOCNWM+2 02194000 IOCPTL EQU IOCNWM 02195000 IOCKYA EQU IOCMEM 02196000 IOCVRC EQU IOCTTR 02197000 IOCCBP EQU IOCSTR+36 02198000 IOCDSN EQU IOCSTR+32 02199000 IOCHURBA EQU IOCSTR+28 02200000 IOCVOLSR EQU IOCSTR+22 02201000 @NM00018 EQU IOCMSG 02202000 IOCMSGAE EQU IOCMSG 02203000 IOCMSGCE EQU IOCMSG 02204000 IOCMSGOE EQU IOCMSG 02205000 IOCMSGOP EQU IOCMSG 02206000 @NM00017 EQU IOCMSG 02207000 IOCCHPSY EQU IOCCHP 02208000 IOCCHPAS EQU IOCCHP 02209000 IOCCHPBK EQU IOCCHP 02210000 IOCCHPCR EQU IOCCHP 02211000 IOCCHPKS EQU IOCCHP 02212000 IOCCHPSK EQU IOCCHP 02213000 IOCCHPDR EQU IOCCHP 02214000 IOCCHPSQ EQU IOCCHP 02215000 @NM00016 EQU IOCMAC2 02216000 IOCMACPA EQU IOCMAC2 02217000 @NM00015 EQU IOCMAC2 02218000 IOCMACCP EQU IOCMAC2 02219000 IOCMACRR EQU IOCMAC2 02220000 IOCMACAS EQU IOCMAC2 02221000 IOCMACSK EQU IOCMAC2 02222000 @NM00014 EQU IOCMAC 02223000 IOCMACCC EQU IOCMAC 02224000 IOCMACDR EQU IOCMAC 02225000 IOCMACBK EQU IOCMAC 02226000 IOCMACCR EQU IOCMAC 02227000 IOCMACUP EQU IOCMAC 02228000 IOCMACOT EQU IOCMAC 02229000 IOCMACIN EQU IOCMAC 02230000 @NM00013 EQU IOCRFM 02231000 IOCRFMBK EQU IOCRFM 02232000 IOCRFMSF EQU IOCRFM 02233000 IOCRFMUN EQU IOCRFM 02234000 IOCRFMVR EQU IOCRFM 02235000 IOCRFMFX EQU IOCRFM 02236000 @NM00012 EQU IOCDSO 02237000 IOCDSOPO EQU IOCDSO 02238000 IOCDSOIS EQU IOCDSO 02239000 IOCDSOPS EQU IOCDSO 02240000 IOCDSOAM EQU IOCDSO 02241000 IOCRKP EQU IOCSTR+13 02242000 IOCKYL EQU IOCSTR+12 02243000 IOCTRN EQU IOCSTR+8 02244000 IOCDLN EQU IOCSTR+4 02245000 IOCDAD EQU IOCSTR 02246000 UNITVTOC EQU UNITABL+7 02247000 @NM00011 EQU UNITSTAT 02248000 UNITUSHR EQU UNITSTAT 02249000 UNITXSHR EQU UNITSTAT 02250000 UNITISHR EQU UNITSTAT 02251000 UNITUA EQU @NM00010+1 02252000 UNITCHA EQU @NM00010 02253000 UNITUCB EQU UNITABL 02254000 ALLUNCNT EQU ALLAGL+30 02255000 ALLVLCNT EQU ALLAGL+29 02256000 @NM00009 EQU ALLOPT 02257000 ALLOPTUN EQU ALLOPT 02258000 ALLOPTPV EQU ALLOPT 02259000 ALLOPTDS EQU ALLOPT 02260000 ALLOPTVL EQU ALLOPT 02261000 @NM00008 EQU ALLORG+1 02262000 ALLORGVS EQU ALLORG+1 02263000 @NM00007 EQU ALLORG+1 02264000 ALLORGGS EQU ALLORG+1 02265000 ALLORGUN EQU ALLORG 02266000 ALLORGPO EQU ALLORG 02267000 ALLORGMQ EQU ALLORG 02268000 ALLORGCQ EQU ALLORG 02269000 ALLORGCX EQU ALLORG 02270000 ALLORGDA EQU ALLORG 02271000 ALLORGPS EQU ALLORG 02272000 ALLORGIS EQU ALLORG 02273000 ALLDSPUN EQU ALLDSP 02274000 ALLDSPCG EQU ALLDSP 02275000 ALLDSPDE EQU ALLDSP 02276000 ALLDSPKP EQU ALLDSP 02277000 @NM00006 EQU ALLDSP 02278000 ALLSTSOD EQU ALLSTS 02279000 ALLSTSMD EQU ALLSTS 02280000 ALLSTSNW EQU ALLSTS 02281000 ALLSTSSR EQU ALLSTS 02282000 @NM00005 EQU ALLSTS 02283000 ALLPWD EQU ALLAGL+20 02284000 ALLVLP EQU ALLAGL+16 02285000 ALLULP EQU ALLAGL+12 02286000 ALLDDN EQU ALLAGL+4 02287000 ALLDSN EQU ALLAGL 02288000 CIRPID EQU CIRAGL+28 02289000 CIRPWD EQU CIRAGL+24 02290000 CIRCAT EQU CIRAGL+20 02291000 CIRWKP EQU CIRAGL+16 02292000 CIRTLR EQU CIRAGL+12 02293000 CIRHDR EQU CIRAGL+8 02294000 CIRTLN EQU CIRAGL+6 02295000 CIRHLN EQU CIRAGL+4 02296000 @NM00004 EQU CIRAGL+1 02297000 @NM00003 EQU CIRTYPE 02298000 CIRTYPAQ EQU CIRTYPE 02299000 CIRTYP1Q EQU CIRTYPE 02300000 NEWID1 EQU TRACE1+95 02301000 CALLID EQU OLDERID1+90 02302000 @NM00002 EQU OLDERID1 02303000 * END UNREFERENCED COMPONENTS 02304000 @RT00298 EQU @RC00297 02305000 @RF00317 EQU @RC00297 02306000 @RF00333 EQU @RC00254 02307000 @RF00377 EQU @RC00362 02308000 @PB00003 EQU @EL00001 02309000 @PB00002 EQU @PB00003 02310000 @ENDDATA EQU * 02311000 END IDCNC01,(C'PLS1211',0603,76201) 02312000