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