TITLE '**************IDCIO03 I/O OPERATIONS**(VS2)*************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 IDCIO03 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCIO03 76.118' 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(8),0(@01) 0002 00033000 * 0249 00034000 * /************************************************************/ 00035000 * /* */ 00036000 * /* INITIALIZE TEXT PROCESSOR ARGUMENT LIST */ 00037000 * /* SET DEFAULT ERROR MODULE ID. ID IS REPLACED IF */ 00038000 * /* ERROR MESSAGE IS IN DIFFERENT MODULE. */ 00039000 * /* */ 00040000 * /************************************************************/ 00041000 * 0250 00042000 * 0250 00043000 * DDSTRU = ADDR (DMSGARG); 0250 00044000 LA @15,DMSGARG 0250 00045000 ST @15,DDSTRU 0250 00046000 * DMSGARG = ''B; 0251 00047000 XC DMSGARG(44),DMSGARG 0251 00048000 * DARGSMOD = 'IO0'; 0252 00049000 * 0252 00050000 MVC DARGSMOD(3,@15),@CC01328 0252 00051000 * TESTRC = 4; /*@YL026UH*/ 00052000 * 0253 00053000 MVC TESTRC(2),@CH00039 0253 00054000 * IF OPRTYP = OPRTYPUO 0254 00055000 * THEN 0254 00056000 * 0254 00057000 L @15,@PC00001+4 0254 00058000 CLI OPRTYP(@15),3 0254 00059000 BNE @RF00254 0254 00060000 * /**********************************************************/ 00061000 * /* @Y30LSFY*/ 00062000 * /* FOR UIOINFO REQUEST, CALL DSINFO @Y30LSFY*/ 00063000 * /* @Y30LSFY*/ 00064000 * /**********************************************************/ 00065000 * 0255 00066000 * DO; /*@Y30LSFY*/ 00067000 * 0255 00068000 * CALL DSINFO; /*@Y30LSFY*/ 00069000 * 0256 00070000 BAL @14,DSINFO 0256 00071000 * RESPECIFY RTNREG RSTD; 0257 00072000 * TESTRC = RTNREG; 0258 00073000 STH RTNREG,TESTRC 0258 00074000 * RESPECIFY RTNREG UNRSTD; /*@Y30LSFY*/ 00075000 * 0259 00076000 * CALL IDCSAEP0(GDTTBL,MODID,TESTRC); 0260 00077000 L @15,@PC00001 0260 00078000 ST @15,@AL00001 0260 00079000 LA @14,MODID 0260 00080000 ST @14,@AL00001+4 0260 00081000 LA @14,TESTRC 0260 00082000 ST @14,@AL00001+8 0260 00083000 MVI @AL00001+8,X'80' 0260 00084000 L @15,GDTEPL(,@15) 0260 00085000 LA @01,@AL00001 0260 00086000 BALR @14,@15 0260 00087000 * /*@Y30LSFY*/ 0261 00088000 * 0261 00089000 * END; /*@Y30LSFY*/ 00090000 * 0261 00091000 * IF OPRTYP = OPRTYPPO 0262 00092000 * THEN 0262 00093000 * 0262 00094000 @RF00254 L @15,@PC00001+4 0262 00095000 CLI OPRTYP(@15),1 0262 00096000 BNE @RF00262 0262 00097000 * /********************************************************/ 00098000 * /* */ 00099000 * /* IF POSITION REQUEST SET ADDRESSIBILITY TO IOCS. */ 00100000 * /* IF THE IOCS HAS NOT BEEN BUILT OR THE DATA SET IS */ 00101000 * /* NOT OPEN SET ERROR CODE AND RETURN. */ 00102000 * /* */ 00103000 * /********************************************************/ 00104000 * 0263 00105000 *POSITREQ: DO; 0263 00106000 * 0263 00107000 POSITREQ DS 0H 0264 00108000 * IOCSPTR = OPRICS; 0264 00109000 * 0264 00110000 L @15,@PC00001+4 0264 00111000 L @15,OPRICS(,@15) 0264 00112000 ST @15,IOCSPTR 0264 00113000 * IF IOCSPTR = NULLPTR | IOCMSGOP = OFF 0265 00114000 * THEN 0265 00115000 * 0265 00116000 LTR @15,@15 0265 00117000 BZ @RT00265 0265 00118000 TM IOCMSGOP(@15),B'00100000' 0265 00119000 BNZ @RF00265 0265 00120000 @RT00265 DS 0H 0266 00121000 * DO; 0266 00122000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0267 00123000 * REG15 = 32; 0268 00124000 LA REG15,32 0268 00125000 * REG14 = GDTABT; 0269 00126000 L @09,@PC00001 0269 00127000 L REG14,GDTABT(,@09) 0269 00128000 * REG13 = GDTABH; 0270 00129000 L REG13,GDTABH(,@09) 0270 00130000 * GEN(BR REG14); 0271 00131000 BR REG14 00132000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0272 00133000 * END; 0273 00134000 * 0273 00135000 * /******************************************************/ 00136000 * /* */ 00137000 * /* IF DATA SET IS EXTERNAL NO POSITION IS DONE. */ 00138000 * /* */ 00139000 * /******************************************************/ 00140000 * 0274 00141000 * IF IOCFLGEX = ON 0274 00142000 * THEN 0274 00143000 @RF00265 L @01,IOCSPTR 0274 00144000 L @01,IOCEXT(,@01) 0274 00145000 TM IOCFLGEX(@01),B'10000000' 0274 00146000 BNO @RF00274 0274 00147000 * DO; 0275 00148000 * SETRC = 0; 0276 00149000 SLR @15,@15 0276 00150000 STH @15,SETRC 0276 00151000 * CALL IDCSAEP0(GDTTBL,MODID,SETRC); 0277 00152000 L @15,@PC00001 0277 00153000 ST @15,@AL00001 0277 00154000 LA @14,MODID 0277 00155000 ST @14,@AL00001+4 0277 00156000 LA @14,SETRC 0277 00157000 ST @14,@AL00001+8 0277 00158000 MVI @AL00001+8,X'80' 0277 00159000 L @15,GDTEPL(,@15) 0277 00160000 LA @01,@AL00001 0277 00161000 BALR @14,@15 0277 00162000 * END; 0278 00163000 * 0278 00164000 * 0278 00165000 * /******************************************************/ 00166000 * /* */ 00167000 * /* POSITION TO THE REQUEST RECORD. */ 00168000 * /* */ 00169000 * /******************************************************/ 00170000 * 0279 00171000 * /******************************************************/ 00172000 * /* */ 00173000 * /* FOR VSAM DATA SET POSITION TO VSAM RECORD */ 00174000 * /* */ 00175000 * /******************************************************/ 00176000 * 0279 00177000 * IF IOCDSOAM = ON 0279 00178000 * THEN 0279 00179000 @RF00274 L @01,IOCSPTR 0279 00180000 TM IOCDSOAM(@01),B'10000000' 0279 00181000 BNO @RF00279 0279 00182000 * DO; 0280 00183000 * 0280 00184000 * CALL PTAMDS; 0281 00185000 BAL @14,PTAMDS 0281 00186000 * RESPECIFY RTNREG RSTD; 0282 00187000 * TESTRC = RTNREG; 0283 00188000 STH RTNREG,TESTRC 0283 00189000 * RESPECIFY RTNREG UNRSTD; 0284 00190000 * 0284 00191000 * END; 0285 00192000 * 0285 00193000 * ELSE 0286 00194000 *PTNONAM: DO; 0286 00195000 * 0286 00196000 B @RC00279 0286 00197000 @RF00279 DS 0H 0286 00198000 PTNONAM DS 0H 0287 00199000 * /************************************************/ 00200000 * /* */ 00201000 * /* FOR ISAM POINT BY KEY, FOR BSAM @YL026UH*/ 00202000 * /* POINT BY TTR. @YL026UH*/ 00203000 * /* */ 00204000 * /************************************************/ 00205000 * 0287 00206000 * IF IOCDSOIS = ON | IOCMACBK = ON 0287 00207000 * THEN 0287 00208000 L @15,IOCSPTR 0287 00209000 TM IOCDSOIS(@15),B'00100000' 0287 00210000 BO @RT00287 0287 00211000 TM IOCMACBK(@15),B'00001000' 0287 00212000 BNO @RF00287 0287 00213000 @RT00287 DS 0H 0288 00214000 * DO; 0288 00215000 * 0288 00216000 * CALL PTISDS; 0289 00217000 BAL @14,PTISDS 0289 00218000 * RESPECIFY RTNREG RSTD; 0290 00219000 * TESTRC = RTNREG; 0291 00220000 STH RTNREG,TESTRC 0291 00221000 * RESPECIFY RTNREG UNRSTD; 0292 00222000 * 0292 00223000 * END; 0293 00224000 * 0293 00225000 * ELSE 0294 00226000 * 0294 00227000 * /********************************************/ 00228000 * /* */ 00229000 * /* POSITION REQUEST VALID FOR AM/0 AND */ 00230000 * /* ISAM DATA SETS ONLY. SET ERROR */ 00231000 * /* */ 00232000 * /********************************************/ 00233000 * 0294 00234000 * DARGSENT = NPOSSTID; /*@YL026UH*/ 00235000 * 0294 00236000 B @RC00287 0294 00237000 @RF00287 L @01,DDSTRU 0294 00238000 MVI DARGSENT(@01),X'0E' 0294 00239000 * END PTNONAM; 0295 00240000 * 0295 00241000 @RC00287 DS 0H 0296 00242000 * END POSITREQ; /*@YL026UH*/ 00243000 * 0296 00244000 @RC00279 DS 0H 0297 00245000 * /************************************************* @YL026UH*/ 00246000 * /* @YL026UH*/ 00247000 * /* FOR STOW REQUEST CALL STOWRTN. @YL026UH*/ 00248000 * /* @YL026UH*/ 00249000 * /************************************************* @YL026UH*/ 00250000 * 0297 00251000 * IF OPRTYP = OPRTYPST 0297 00252000 * THEN 0297 00253000 @RF00262 L @15,@PC00001+4 0297 00254000 CLI OPRTYP(@15),2 0297 00255000 BNE @RF00297 0297 00256000 * DO; /*@YL026UH*/ 00257000 * CALL STOWRTN; /*@YL026UH*/ 00258000 BAL @14,STOWRTN 0299 00259000 * RESPECIFY RTNREG RSTD; 0300 00260000 * TESTRC = RTNREG; 0301 00261000 STH RTNREG,TESTRC 0301 00262000 * RESPECIFY RTNREG UNRSTD; /*@YL026UH*/ 00263000 * END; /*@YL026UH*/ 00264000 * 0303 00265000 * /************************************************* @YL026UH*/ 00266000 * /* @YL026UH*/ 00267000 * /* SET RETURN CODE AND PRINT MESSAGES @YL026UH*/ 00268000 * /* @YL026UH*/ 00269000 * /************************************************* @YL026UH*/ 00270000 * 0304 00271000 * SETRC = TESTRC; /*@YL026UH*/ 00272000 * 0304 00273000 @RF00297 LH @15,TESTRC 0304 00274000 STH @15,SETRC 0304 00275000 * IF DARGSENT ^= 0 0305 00276000 * THEN 0305 00277000 L @01,DDSTRU 0305 00278000 CLI DARGSENT(@01),0 0305 00279000 BE @RF00305 0305 00280000 * CALL BLDAMSG; /*@YL026UH*/ 00281000 * 0306 00282000 BAL @14,BLDAMSG 0306 00283000 * IF GDTDBG = NULLPTR 0307 00284000 * THEN; 0307 00285000 @RF00305 L @15,@PC00001 0307 00286000 L @15,GDTDBG(,@15) 0307 00287000 LTR @15,@15 0307 00288000 BZ @RT00307 0307 00289000 * ELSE 0309 00290000 * CALL IDCDB010 (GDTTBL,'IOPO'); 0309 00291000 L @15,@PC00001 0309 00292000 ST @15,@AL00001 0309 00293000 LA @14,@CC01338 0309 00294000 ST @14,@AL00001+4 0309 00295000 MVI @AL00001+4,X'80' 0309 00296000 L @15,GDTDBG(,@15) 0309 00297000 LA @01,@AL00001 0309 00298000 BALR @14,@15 0309 00299000 * /*@YL026UH*/ 00300000 * 0310 00301000 * 0310 00302000 * CALL IDCSAEP0(GDTTBL,MODID,SETRC); 0310 00303000 @RT00307 L @15,@PC00001 0310 00304000 ST @15,@AL00001 0310 00305000 LA @14,MODID 0310 00306000 ST @14,@AL00001+4 0310 00307000 LA @14,SETRC 0310 00308000 ST @14,@AL00001+8 0310 00309000 MVI @AL00001+8,X'80' 0310 00310000 L @15,GDTEPL(,@15) 0310 00311000 LA @01,@AL00001 0310 00312000 BALR @14,@15 0310 00313000 * /*@YL026UH*/ 0311 00314000 * 0311 00315000 * /************************************************************/ 00316000 * /* */ 00317000 * /* PROCEDURE NAME - PTAMDS */ 00318000 * /* */ 00319000 * /* FUNCTION - THIS PROCEDURE WILL POSITION TO AN AM/0 */ 00320000 * /* LOGICAL RECORD BY KEY OR RBA OR POSITION */ 00321000 * /* TO A VSAM CONTROL INTERVAL BY RBA. @Y30SSFY*/ 00322000 * /* */ 00323000 * /* INPUT - IOCSPTR - ADDRESS OF THE IOCSTR DEFINING */ 00324000 * /* THE POSITIONING AND DATA SET. */ 00325000 * /* */ 00326000 * /* OUTPUT - RETURN CODE IS SET AND/OR THE DATA RECORD */ 00327000 * /* IS POSITIONED TO. */ 00328000 * /* */ 00329000 * /* ERRORS - 1. LOGICAL ERROR DURING POINT (MSG WRITTEN). */ 00330000 * /* 2. RECORD NOT FOUND (NO MSG WRITTEN). */ 00331000 * /* 3. PERMANENT I/O ERROR DURING POINT */ 00332000 * /* 4. POSITION KEY LONGER THAN DATA SET KEY LGT. */ 00333000 * /* */ 00334000 * /************************************************************/ 00335000 * 0311 00336000 *PTAMDS: PROC OPTIONS (SAVEAREA); 0311 00337000 * 0311 00338000 @EL00001 L @13,4(,@13) 0311 00339000 @EF00001 L @00,@SIZDATD 0311 00340000 LR @01,@11 0311 00341000 FREEMAIN R,LV=(0),A=(1) 00342000 @ER00001 LM @14,@12,12(@13) 0311 00343000 BR @14 0311 00344000 PTAMDS STM @14,@12,12(@13) 0311 00345000 ST @13,@SA00002+4 0311 00346000 LA @14,@SA00002 0311 00347000 ST @14,8(,@13) 0311 00348000 LR @13,@14 0311 00349000 * /* RETURN CODE FROM THIS POINT ROUTINE */ 00350000 * DCL PTAMRC FIXED (15); 0312 00351000 * RFY IFGRPL BASED(IOCRPL); /*@Z40GSFY*/ 00352000 * RFY IFGEXLST BASED(IOCEXA); /*@Z40GSFY*/ 00353000 * 0314 00354000 * /* INITIALIZE RETURN CODE AND SET TRACE. */ 00355000 * 0315 00356000 * PTAMRC = 0; 0315 00357000 SLR PTAMRC,PTAMRC 0315 00358000 * OLDERID2 = NEWERID2; 0316 00359000 L @03,@PC00001 0316 00360000 L @03,GDTTR2(,@03) 0316 00361000 MVC @TS00001(95),NEWERID2(@03) 0316 00362000 MVC OLDERID2(95,@03),@TS00001 0316 00363000 * NEWID2 = 'IOVT'; 0317 00364000 * 0317 00365000 MVC NEWID2(4,@03),@CC01345 0317 00366000 * IF IOCMACRR = ON 0318 00367000 * THEN 0318 00368000 * 0318 00369000 L @03,IOCSPTR 0318 00370000 TM IOCMACRR(@03),B'00100000' 0318 00371000 BNO @RF00318 0318 00372000 * /********************************************************/ 00373000 * /* @Y30SSFY*/ 00374000 * /* DATA-SET IS RRDS. POSITION BY RELATIVE RECORD. SET */ 00375000 * /* THE RPL TO POINT TO THE REL. RECORD NO. @Y30SSFY*/ 00376000 * /* @Y30SSFY*/ 00377000 * /********************************************************/ 00378000 * RPLARG = ADDR (IOCREL); /*@Z40GSFY*/ 00379000 * 0319 00380000 L @01,IOCEXT(,@03) 0319 00381000 L @01,IOCRPL(,@01) 0319 00382000 LA @03,IOCREL(,@03) 0319 00383000 ST @03,RPLARG(,@01) 0319 00384000 * ELSE 0320 00385000 * 0320 00386000 * IF IOCMACCR = ON | IOCMACBK = ON 0320 00387000 * THEN 0320 00388000 * 0320 00389000 B @RC00318 0320 00390000 @RF00318 L @03,IOCSPTR 0320 00391000 TM IOCMACCR(@03),B'00011000' 0320 00392000 BZ @RF00320 0320 00393000 * /********************************************************/ 00394000 * /* */ 00395000 * /* TYPE OF ACCESS IS ADDRESSED OR CONTROL INTERVAL, */ 00396000 * /* POSITION BY RBA. SET THE RBA IN THE RPL. @Y30SSFY*/ 00397000 * /* */ 00398000 * /********************************************************/ 00399000 * 0321 00400000 * RPLARG = ADDR (IOCRBA); /*@Z40GSFY*/ 00401000 * 0321 00402000 L @01,IOCEXT(,@03) 0321 00403000 L @01,IOCRPL(,@01) 0321 00404000 LA @03,IOCRBA(,@03) 0321 00405000 ST @03,RPLARG(,@01) 0321 00406000 * ELSE 0322 00407000 * 0322 00408000 * /********************************************************/ 00409000 * /* */ 00410000 * /* DATA SET IS OPENED FOR KEYED SEQUENTIAL PROCESS. */ 00411000 * /* CHECK LENGTH AND IF CORRECT SET KEY ADDR IN RPL. */ 00412000 * /* */ 00413000 * /********************************************************/ 00414000 * 0322 00415000 *AMLOGDS: DO; 0322 00416000 * 0322 00417000 B @RC00320 0322 00418000 @RF00320 DS 0H 0322 00419000 AMLOGDS DS 0H 0323 00420000 * IF IOCPTL > IOCKYL 0323 00421000 * THEN 0323 00422000 * 0323 00423000 L @03,IOCSPTR 0323 00424000 LH @15,IOCPTL(,@03) 0323 00425000 SLR @14,@14 0323 00426000 IC @14,IOCKYL(,@03) 0323 00427000 CR @15,@14 0323 00428000 BNH @RF00323 0323 00429000 * /**************************************************/ 00430000 * /* */ 00431000 * /* USER SUPPLIED KEY IS LPNGER THAN KEY LENGTH */ 00432000 * /* OF DATA SET. SET ERROR CONDITION. */ 00433000 * /* */ 00434000 * /**************************************************/ 00435000 * 0324 00436000 * DO; 0324 00437000 * DARGSENT = LKEYSTID; 0325 00438000 L @03,DDSTRU 0325 00439000 MVI DARGSENT(@03),X'0D' 0325 00440000 * PTAMRC = 4; 0326 00441000 LA PTAMRC,4 0326 00442000 * END; 0327 00443000 * 0327 00444000 * ELSE 0328 00445000 * 0328 00446000 * /**************************************************/ 00447000 * /* */ 00448000 * /* VALID LENGTH KEY. PAD TO RIGHT WITH BINARY */ 00449000 * /* ZEROES TO ALWAYS MAKE FULL KEY (SUPPLIED */ 00450000 * /* KEY MAY ALREADY BE FULL). SET THE KEY */ 00451000 * /* ADDRESS IN THE RPL. */ 00452000 * /* */ 00453000 * /**************************************************/ 00454000 * 0328 00455000 * DO; 0328 00456000 B @RC00323 0328 00457000 @RF00323 DS 0H 0329 00458000 * TEMPKEY = ''B; 0329 00459000 XC TEMPKEY(256),TEMPKEY 0329 00460000 * KEYCLASS (1:IOCPTL) = MOVEKEY (1:IOCPTL); 0330 00461000 * 0330 00462000 L @03,IOCSPTR 0330 00463000 LH @15,IOCPTL(,@03) 0330 00464000 BCTR @15,0 0330 00465000 L @01,IOCKYA(,@03) 0330 00466000 EX @15,@SM01828 0330 00467000 * RPLARG = ADDR (KEYCLASS); /*@Z40GSFY*/ 00468000 L @03,IOCEXT(,@03) 0331 00469000 L @03,IOCRPL(,@03) 0331 00470000 LA @15,KEYCLASS 0331 00471000 ST @15,RPLARG(,@03) 0331 00472000 * END; 0332 00473000 * 0332 00474000 * END AMLOGDS; 0333 00475000 * 0333 00476000 @RC00323 DS 0H 0334 00477000 * IF PTAMRC = 0 0334 00478000 * THEN 0334 00479000 * 0334 00480000 @RC00320 DS 0H 0334 00481000 @RC00318 LTR PTAMRC,PTAMRC 0334 00482000 BNZ @RF00334 0334 00483000 * /********************************************************/ 00484000 * /* */ 00485000 * /* RPL IS READY FOR POINT. SET THE @Z40GSFY*/ 00486000 * /* EODAD ADDRESS IN EXIT LIST INACTIVE. @Z40GSFY*/ 00487000 * /* POINT TO THE VSAM RECORD. @Z40GSFY*/ 00488000 * /* */ 00489000 * /********************************************************/ 00490000 * 0335 00491000 *AMPOINT: DO; 0335 00492000 * 0335 00493000 AMPOINT DS 0H 0336 00494000 * EXLEODF(2) = OFF; /*@Z40GSFY*/ 00495000 * 0336 00496000 L @03,IOCSPTR 0336 00497000 L @03,IOCEXT(,@03) 0336 00498000 L @01,IOCEXA(,@03) 0336 00499000 NI EXLEODF(@01),B'10111111' 0336 00500000 * RESPECIFY (REG7) RSTD; 0337 00501000 * REG7 = IOCRPL; 0338 00502000 * 0338 00503000 L REG7,IOCRPL(,@03) 0338 00504000 *LPOINT1: GEN(POINT RPL=(REG7)); 0339 00505000 LPOINT1 POINT RPL=(REG7) 00506000 * RESPECIFY RTNREG RSTD; 0340 00507000 * TESTRC = RTNREG; 0341 00508000 STH RTNREG,TESTRC 0341 00509000 * RESPECIFY RTNREG UNRSTD; 0342 00510000 * 0342 00511000 * RESPECIFY (REG7) UNRSTD; /*@Z40GSFY*/ 00512000 * 0343 00513000 * /******************************************************/ 00514000 * /* */ 00515000 * /* REACTIVATE THE EODAD ADDRESS IN THE @Z40GSFY*/ 00516000 * /* EXIT LIST. @Z40GSFY*/ 00517000 * /* */ 00518000 * /******************************************************/ 00519000 * 0344 00520000 * EXLEODF(2) = ON; /*@Z40GSFY*/ 00521000 * 0344 00522000 L @03,IOCSPTR 0344 00523000 L @03,IOCEXT(,@03) 0344 00524000 L @03,IOCEXA(,@03) 0344 00525000 OI EXLEODF(@03),B'01000000' 0344 00526000 * IF TESTRC ^= 0 0345 00527000 * THEN 0345 00528000 * 0345 00529000 LH @03,TESTRC 0345 00530000 LTR @03,@03 0345 00531000 BZ @RF00345 0345 00532000 * /**************************************************/ 00533000 * /* */ 00534000 * /* ERROR WAS DETECTED BY VSAM DURING POINT */ 00535000 * /* */ 00536000 * /**************************************************/ 00537000 * 0346 00538000 *AMPTERR: DO; 0346 00539000 * 0346 00540000 AMPTERR DS 0H 0347 00541000 * PTAMRC = 4; 0347 00542000 * 0347 00543000 LA PTAMRC,4 0347 00544000 * /************************************************/ 00545000 * /* @Z30PSFY*/ 00546000 * /* IF ERROR MESSAGE SUPPRESSION WAS @Z30PSFY*/ 00547000 * /* REQUESTED, AND ERROR WAS LOGICAL, RETURN */ 00548000 * /* @Z30PSFY*/ 00549000 * /************************************************/ 00550000 * 0348 00551000 * IF IOCMSGSM = ON & TESTRC = VRCLERAD 0348 00552000 * THEN 0348 00553000 L @03,IOCSPTR 0348 00554000 TM IOCMSGSM(@03),B'00000010' 0348 00555000 BNO @RF00348 0348 00556000 CLC TESTRC(2),@CH00176 0348 00557000 BNE @RF00348 0348 00558000 * RETURN CODE(PTAMRC); /*@Z30PSFY*/ 00559000 * 0349 00560000 LR @15,PTAMRC 0349 00561000 L @13,4(,@13) 0349 00562000 L @14,12(,@13) 0349 00563000 LM @00,@12,20(@13) 0349 00564000 BR @14 0349 00565000 * /************************************************/ 00566000 * /* */ 00567000 * /* IF AN I/O ERROR WAS DETECTED THE MESSAGE */ 00568000 * /* AREA IS CHECKED TO SEE IF A FORMATTED */ 00569000 * /* MESSAGE HAS BEEN BUILT. IF ONE HAS IT IS */ 00570000 * /* PRINTED AS AN ERROR MESSAGE, OTHERWISE */ 00571000 * /* A STANDARD MESSAGE IS PRINTED. */ 00572000 * /* */ 00573000 * /************************************************/ 00574000 * 0350 00575000 * IF TESTRC = VRCSYNAD 0350 00576000 * THEN 0350 00577000 * 0350 00578000 @RF00348 CLC TESTRC(2),@CH00035 0350 00579000 BNE @RF00350 0350 00580000 * /********************************************/ 00581000 * /* */ 00582000 * /* I/O ERROR DETECTED. SET ERROR DATA */ 00583000 * /* */ 00584000 * /********************************************/ 00585000 * 0351 00586000 * DO; 0351 00587000 * 0351 00588000 * IOCMSGOP = OFF; 0352 00589000 * 0352 00590000 L @03,IOCSPTR 0352 00591000 NI IOCMSGOP(@03),B'11011111' 0352 00592000 * IF MSLENGTH = 0 0353 00593000 * THEN 0353 00594000 L @03,@PC00001 0353 00595000 L @03,GDTIOH(,@03) 0353 00596000 L @03,IODMSG(,@03) 0353 00597000 ICM @15,3,MSLENGTH(@03) 0353 00598000 BNZ @RF00353 0353 00599000 * DARGSENT = SYNDSTID; 0354 00600000 * 0354 00601000 L @03,DDSTRU 0354 00602000 MVI DARGSENT(@03),X'13' 0354 00603000 * ELSE 0355 00604000 * DO; 0355 00605000 * 0355 00606000 B @RC00353 0355 00607000 @RF00353 DS 0H 0356 00608000 * DARGSENT = SYVSSTID; 0356 00609000 L @03,DDSTRU 0356 00610000 MVI DARGSENT(@03),X'0B' 0356 00611000 * SYNPRINT (1:116) = MESSAGE (13:128); 00612000 L @15,@PC00001 0357 00613000 L @01,GDTIOH(,@15) 0357 00614000 L @01,IODMSG(,@01) 0357 00615000 MVC SYNPRINT(116),MESSAGE+12(@01) 0357 00616000 * DARGDBP = ADDR (SYNPRINT); 0358 00617000 LA @15,SYNPRINT 0358 00618000 ST @15,DARGDBP(,@03) 0358 00619000 * DARGILP = 116; 0359 00620000 * 0359 00621000 MVC DARGILP(2,@03),@CH01195 0359 00622000 * END; 0360 00623000 * 0360 00624000 * END; 0361 00625000 * 0361 00626000 @RC00353 DS 0H 0362 00627000 * /************************************************/ 00628000 * /* */ 00629000 * /* IF A LOGICAL ERROR WAS DETECTED AND WAS */ 00630000 * /* NOT A NO RECORD FOUND CONDITION, AN ERROR */ 00631000 * /* MESSAGE IS SET. @Z40GSFY*/ 00632000 * /* */ 00633000 * /************************************************/ 00634000 * 0362 00635000 * IF TESTRC = VRCLERAD 0362 00636000 * THEN 0362 00637000 * 0362 00638000 @RF00350 CLC TESTRC(2),@CH00176 0362 00639000 BNE @RF00362 0362 00640000 * /********************************************/ 00641000 * /* */ 00642000 * /* LOGICAL ERROR DETECTED. */ 00643000 * /* */ 00644000 * /********************************************/ 00645000 * 0363 00646000 * DO; 0363 00647000 * 0363 00648000 * IOCMSGOP = OFF; 0364 00649000 * 0364 00650000 L @03,IOCSPTR 0364 00651000 NI IOCMSGOP(@03),B'11011111' 0364 00652000 * IF RPLERRCD = RPLNOREC | RPLERRCD = RPLEODER 00653000 * THEN 0365 00654000 * 0365 00655000 L @03,IOCEXT(,@03) 0365 00656000 L @03,IOCRPL(,@03) 0365 00657000 CLI RPLERRCD(@03),16 0365 00658000 BE @RT00365 0365 00659000 CLI RPLERRCD(@03),4 0365 00660000 BNE @RF00365 0365 00661000 @RT00365 DS 0H 0366 00662000 * /**************************************/ 00663000 * /* */ 00664000 * /* RECORD NOT FOUND IN DATA SET. */ 00665000 * /* */ 00666000 * /**************************************/ 00667000 * 0366 00668000 * PTAMRC = 8; /*@Z40GSFY*/ 00669000 * 0366 00670000 LA PTAMRC,8 0366 00671000 * ELSE 0367 00672000 * 0367 00673000 * /**************************************/ 00674000 * /* */ 00675000 * /* SET TEXT PROCESSOR DATA */ 00676000 * /* */ 00677000 * /**************************************/ 00678000 * 0367 00679000 * DO; 0367 00680000 B @RC00365 0367 00681000 @RF00365 DS 0H 0368 00682000 * DARGSENT = VERRSTID; 0368 00683000 L @03,DDSTRU 0368 00684000 MVI DARGSENT(@03),X'09' 0368 00685000 * DARGCNT = 2; /*@Z40GSFY*/ 00686000 LA @15,2 0369 00687000 STH @15,DARGCNT(,@03) 0369 00688000 * DARGINS(1) = 1; /*@Z40GSFY*/ 00689000 LA @14,1 0370 00690000 STH @14,DARGINS(,@03) 0370 00691000 * DARGINL(1) = LENGTH(IOTEXT); 0371 00692000 MVC DARGINL(2,@03),@CH00432 0371 00693000 * /*@Z40GSFY*/ 00694000 * DARGDTM(1) = ADDR(IOTEXT);/*@Z40GSFY*/ 00695000 LA @09,IOTEXT 0372 00696000 ST @09,DARGDTM(,@03) 0372 00697000 * DARGINS(2) = 2; /*@Z40GSFY*/ 00698000 STH @15,DARGINS+8(,@03) 0373 00699000 * DARGINL(2) = LENGTH(RPLERRCD); 0374 00700000 STH @14,DARGINL+8(,@03) 0374 00701000 * /*@Z40GSFY*/ 00702000 * DARGDTM(2) = ADDR(RPLERRCD); 0375 00703000 L @01,IOCSPTR 0375 00704000 L @01,IOCEXT(,@01) 0375 00705000 L @01,IOCRPL(,@01) 0375 00706000 LA @15,RPLERRCD(,@01) 0375 00707000 ST @15,DARGDTM+8(,@03) 0375 00708000 * /*@Z40GSFY*/ 00709000 * END; 0376 00710000 * 0376 00711000 * END; 0377 00712000 * 0377 00713000 @RC00365 DS 0H 0378 00714000 * IOCMSGAE = ON; /*#YL026UH*/ 00715000 @RF00362 L @03,IOCSPTR 0378 00716000 OI IOCMSGAE(@03),B'00000100' 0378 00717000 * IOCVRC = IOCVRC && IOCVRC; /*@Z40GSFY*/ 00718000 XC IOCVRC(4,@03),IOCVRC(@03) 0379 00719000 * IOCVRC(3:3) = RPLERRCD; /*@Z40GSFY*/ 00720000 * 0380 00721000 L @01,IOCEXT(,@03) 0380 00722000 L @01,IOCRPL(,@01) 0380 00723000 IC @00,RPLERRCD(,@01) 0380 00724000 STC @00,IOCVRC+2(,@03) 0380 00725000 * END AMPTERR; 0381 00726000 * 0381 00727000 * END AMPOINT; 0382 00728000 * 0382 00729000 @RF00345 DS 0H 0383 00730000 * RETURN CODE (PTAMRC); 0383 00731000 * 0383 00732000 @RF00334 LR @15,PTAMRC 0383 00733000 L @13,4(,@13) 0383 00734000 L @14,12(,@13) 0383 00735000 LM @00,@12,20(@13) 0383 00736000 BR @14 0383 00737000 * END PTAMDS; 0384 00738000 * 0384 00739000 * 0385 00740000 * /************************************************************/ 00741000 * /* */ 00742000 * /* PROCEDURE NAME - PTISDS */ 00743000 * /* */ 00744000 * /* FUNCTION - THIS PROCEDURE IS CALLED TO POSITION TO */ 00745000 * /* A RECORD IN AN ISAM DATA SET, @YL026UH*/ 00746000 * /* OR BLOCK IN BSAM DATA SET. @YL026UH*/ 00747000 * /* */ 00748000 * /* INPUT - IOCSPTR - ADDRESS OF IOCS DEFINING OPEN */ 00749000 * /* ISAM OR BSAM DATA SET. @YL026UH*/ 00750000 * /* */ 00751000 * /* OUTPUT - DATA RECORD IS POSITIONED TO. */ 00752000 * /* PHYSICAL BLOCK POSITIONED TO. @YL026UH*/ 00753000 * /* */ 00754000 * /* RETURN CODE IS SET INDICATING RESULT OF */ 00755000 * /* THE POSITION REQUEST. */ 00756000 * /* */ 00757000 * /* ERRORS - 1. DATA SET ORGANIZATION NOT ISAM. */ 00758000 * /* 2. RECORD NOT FOUND IN ISAM DATA SET. */ 00759000 * /* 3. POSITION ARGUMENT LONGER THAN KEY LENGTH. */ 00760000 * /* */ 00761000 * /************************************************************/ 00762000 * 0385 00763000 *PTISDS: PROC OPTIONS (SAVEAREA); 0385 00764000 * 0385 00765000 PTISDS STM @14,@12,12(@13) 0385 00766000 ST @13,@SA00003+4 0385 00767000 LA @14,@SA00003 0385 00768000 ST @14,8(,@13) 0385 00769000 LR @13,@14 0385 00770000 * /************************************************************/ 00771000 * /* */ 00772000 * /* DECLARES USED ONLY BY THIS PROCEDURE. */ 00773000 * /* */ 00774000 * /************************************************************/ 00775000 * 0386 00776000 * OLDERID2 = NEWERID2; 0386 00777000 L @15,@PC00001 0386 00778000 L @15,GDTTR2(,@15) 0386 00779000 MVC @TS00001(95),NEWERID2(@15) 0386 00780000 MVC OLDERID2(95,@15),@TS00001 0386 00781000 * NEWID2 = 'IOOT'; 0387 00782000 * 0387 00783000 MVC NEWID2(4,@15),@CC01358 0387 00784000 * /************************************************* @YL026UH*/ 00785000 * /* #YL026UH*/ 00786000 * /* IF THE DATA SET IS OPENED FOR BLOCK PROCESSING #YL026UH*/ 00787000 * /* THE POINT BY TTR MACRO IS ISSUED. #YL026UH*/ 00788000 * /* NO ERRORS CAN BE ENCOUNTERED AND CONTROL RETURNS @YL026UH*/ 00789000 * /* WITH A RETURN CODE OF RCOK. #YL026UH*/ 00790000 * /* #YL026UH*/ 00791000 * /************************************************* #YL026UH*/ 00792000 * 0388 00793000 * IF IOCMACBK = ON 0388 00794000 * THEN 0388 00795000 L @01,IOCSPTR 0388 00796000 TM IOCMACBK(@01),B'00001000' 0388 00797000 BNO @RF00388 0388 00798000 *TTRPNT: DO; /*#YL026UH*/ 00799000 * 0389 00800000 TTRPNT DS 0H 0390 00801000 * RFY (REG6) RSTD; /*#YL026UH*/ 00802000 * RFY (REG7) RSTD; /*#YL026UH*/ 00803000 * 0391 00804000 * REG6 = IOCCBA; /*#YL026UH*/ 00805000 L @15,IOCSPTR 0392 00806000 L @01,IOCEXT(,@15) 0392 00807000 L REG6,IOCCBA(,@01) 0392 00808000 * REG7 = ADDR (IOCTTR); /*#YL026UH*/ 00809000 * 0393 00810000 LA REG7,IOCTTR(,@15) 0393 00811000 *LPOINT2: GEN(POINT (REG6),(REG7)); /*#YL026UH*/ 00812000 * 0394 00813000 LPOINT2 POINT (REG6),(REG7) 00814000 * RFY (REG6) UNRSTD; /*#YL026UH*/ 00815000 * RFY (REG7) UNRSTD; /*#YL026UH*/ 00816000 * 0396 00817000 * RETURN CODE (0); /*#YL026UH*/ 00818000 * 0397 00819000 SLR @15,@15 0397 00820000 L @13,4(,@13) 0397 00821000 L @14,12(,@13) 0397 00822000 LM @00,@12,20(@13) 0397 00823000 BR @14 0397 00824000 * END TTRPNT; /*#YL026UH*/ 00825000 * 0398 00826000 * /************************************************************/ 00827000 * /* */ 00828000 * /* IF THE ARGUMENT FOR THE RECORD (KEY) TO POSITION TO */ 00829000 * /* IS LONGER THAN THE KEY LENGTH OF THE DATA SET AN ERROR */ 00830000 * /* IS SET AND CONTROL RETURNS TO THE CALLER. */ 00831000 * /* */ 00832000 * /************************************************************/ 00833000 * 0399 00834000 * IF IOCPTL > IOCKYL 0399 00835000 * THEN 0399 00836000 @RF00388 L @15,IOCSPTR 0399 00837000 LH @14,IOCPTL(,@15) 0399 00838000 SLR @09,@09 0399 00839000 IC @09,IOCKYL(,@15) 0399 00840000 CR @14,@09 0399 00841000 BNH @RF00399 0399 00842000 * DO; 0400 00843000 * 0400 00844000 * DARGSENT = LKEYSTID; 0401 00845000 L @01,DDSTRU 0401 00846000 MVI DARGSENT(@01),X'0D' 0401 00847000 * RETURN CODE (4); 0402 00848000 * 0402 00849000 LA @15,4 0402 00850000 L @13,4(,@13) 0402 00851000 L @14,12(,@13) 0402 00852000 LM @00,@12,20(@13) 0402 00853000 BR @14 0402 00854000 * END; 0403 00855000 * 0403 00856000 * /************************************************************/ 00857000 * /* */ 00858000 * /* ADDRESSIBILITY IS SET TO THE DCB. THE SYNAD ROUTINE */ 00859000 * /* ADDRESS IN THE DCB IS UPDATED TO ADDRESS THE SYNAD */ 00860000 * /* ROUTINE ENTERED IF THE RECORD WITH THE REQUEST KEY */ 00861000 * /* DOES NOT EXIST IN THE DATA SET. */ 00862000 * /* */ 00863000 * /************************************************************/ 00864000 * 0404 00865000 * DCBPTR = IOCCBA; 0404 00866000 * 0404 00867000 @RF00399 L @15,IOCSPTR 0404 00868000 L @14,IOCEXT(,@15) 0404 00869000 L @09,IOCCBA(,@14) 0404 00870000 ST @09,DCBPTR 0404 00871000 * DCBSYNAD = ADDR (IRISSYN); 0405 00872000 * 0405 00873000 LA @08,IRISSYN 0405 00874000 ST @08,DCBSYNAD+52(,@09) 0405 00875000 * /************************************************************/ 00876000 * /* */ 00877000 * /* THE SUPPLIED KEY IS MOVE TO TEMP AREA TO INSURE THAT */ 00878000 * /* FULL KEY IS USED IN SETL. LOW ORDER BYTES THAT ARE */ 00879000 * /* NOT PROVIDED ARE PADDED WITH BINARY ZEROS. */ 00880000 * /* */ 00881000 * /************************************************************/ 00882000 * 0406 00883000 * TEMPKEY = ''B; 0406 00884000 XC TEMPKEY(256),TEMPKEY 0406 00885000 * KEYCLASS (1:IOCPTL) = MOVEKEY (1:IOCPTL); 0407 00886000 * 0407 00887000 LH @08,IOCPTL(,@15) 0407 00888000 BCTR @08,0 0407 00889000 L @01,IOCKYA(,@15) 0407 00890000 EX @08,@SM01828 0407 00891000 * RESPECIFY (REG6) RSTD; 0408 00892000 * RESPECIFY (REG7) RSTD; 0409 00893000 * 0409 00894000 * REG7 = IOCCBA; 0410 00895000 * 0410 00896000 LR REG7,@09 0410 00897000 * /************************************************************/ 00898000 * /* */ 00899000 * /* IF PREVIOUS SETL HAS BEEN ISUED ISSUED ESETL */ 00900000 * /* */ 00901000 * /************************************************************/ 00902000 * 0411 00903000 * IF IOCINFPT = ON 0411 00904000 * THEN 0411 00905000 TM IOCINFPT(@14),B'10000000' 0411 00906000 BNO @RF00411 0411 00907000 *LESETL1: GEN(ESETL (REG7)); 0412 00908000 * 0412 00909000 LESETL1 ESETL (REG7) 00910000 * IOCINFPT = ON; 0413 00911000 * 0413 00912000 @RF00411 L @01,IOCSPTR 0413 00913000 L @01,IOCEXT(,@01) 0413 00914000 OI IOCINFPT(@01),B'10000000' 0413 00915000 * REG6 = ADDR (TEMPKEY); 0414 00916000 * 0414 00917000 LA REG6,TEMPKEY 0414 00918000 * OLDERID2 = NEWERID2; 0415 00919000 L @15,@PC00001 0415 00920000 L @15,GDTTR2(,@15) 0415 00921000 MVC @TS00001(95),NEWERID2(@15) 0415 00922000 MVC OLDERID2(95,@15),@TS00001 0415 00923000 * NEWID2 = 'IOOT'; 0416 00924000 * 0416 00925000 MVC NEWID2(4,@15),@CC01358 0416 00926000 * /************************************************************/ 00927000 * /* */ 00928000 * /* POSITION TO REQUEST LOGICAL RECORD. */ 00929000 * /* */ 00930000 * /************************************************************/ 00931000 * 0417 00932000 * 0417 00933000 *LSETL1: GEN(SETL (REG7),KH,(REG6)); 0417 00934000 * 0417 00935000 LSETL1 SETL (REG7),KH,(REG6) 00936000 * RESPECIFY (REG6) UNRSTD; 0418 00937000 * RESPECIFY (REG7) UNRSTD; 0419 00938000 * 0419 00939000 * /************************************************************/ 00940000 * /* */ 00941000 * /* RESET THE SYNAD ADDRESS IN THE DCB TO THE GET SYNAD */ 00942000 * /* ROUTINE. */ 00943000 * /* */ 00944000 * /************************************************************/ 00945000 * 0420 00946000 * DCBSYNAD = IODOSS; 0420 00947000 * 0420 00948000 L @15,@PC00001 0420 00949000 L @01,GDTIOH(,@15) 0420 00950000 L @15,IODOSS(,@01) 0420 00951000 L @14,DCBPTR 0420 00952000 ST @15,DCBSYNAD+52(,@14) 0420 00953000 * /************************************************************/ 00954000 * /* */ 00955000 * /* POSITION WAS SUCCESSFUL. SET RETURN CODE. */ 00956000 * /* */ 00957000 * /************************************************************/ 00958000 * 0421 00959000 * RETURN CODE (0); 0421 00960000 * 0421 00961000 SLR @15,@15 0421 00962000 L @13,4(,@13) 0421 00963000 L @14,12(,@13) 0421 00964000 LM @00,@12,20(@13) 0421 00965000 BR @14 0421 00966000 * /************************************************************/ 00967000 * /* */ 00968000 * /* THIS ROUTINE IS GIVEN CONTROL BY THE ACCESS METHOS AFTER */ 00969000 * /* A SETL INSTRUCTION IF THE DATA SET DID NOT CONTAIN THE */ 00970000 * /* REQUESTED RECORD. */ 00971000 * /* */ 00972000 * /************************************************************/ 00973000 * 0422 00974000 *IRISSYN: 0422 00975000 * 0422 00976000 * /************************************************************/ 00977000 * /* */ 00978000 * /* RESET THE SYNAD ADDRESS IN THE DCB TO ADDRESS TO GET */ 00979000 * /* SYNAD ROUTINE. */ 00980000 * /* */ 00981000 * /************************************************************/ 00982000 * 0422 00983000 * OLDERID2 = NEWERID2; 0422 00984000 IRISSYN L @15,@PC00001 0422 00985000 L @14,GDTTR2(,@15) 0422 00986000 MVC @TS00001(95),NEWERID2(@14) 0422 00987000 MVC OLDERID2(95,@14),@TS00001 0422 00988000 * NEWID2 = 'IOSO'; 0423 00989000 MVC NEWID2(4,@14),@CC01369 0423 00990000 * DCBSYNAD = IODOSS; 0424 00991000 * 0424 00992000 L @01,GDTIOH(,@15) 0424 00993000 L @15,IODOSS(,@01) 0424 00994000 L @14,DCBPTR 0424 00995000 ST @15,DCBSYNAD+52(,@14) 0424 00996000 * /************************************************************/ 00997000 * /* */ 00998000 * /* SET THE RETURN CODE FOR THE CALLER. */ 00999000 * /* */ 01000000 * /************************************************************/ 01001000 * 0425 01002000 * RETURN CODE (8); 0425 01003000 * 0425 01004000 LA @15,8 0425 01005000 L @13,4(,@13) 0425 01006000 L @14,12(,@13) 0425 01007000 LM @00,@12,20(@13) 0425 01008000 BR @14 0425 01009000 * END PTISDS; 0426 01010000 * 0426 01011000 * 0426 01012000 * /************************************************* @YL026UH*/ 01013000 * /* @YL026UH*/ 01014000 * /* FUNCTION - DELETE OR RENAME A MEMBER OF A PDS. @YL026UH*/ 01015000 * /* @YL026UH*/ 01016000 * /* INPUT - IOCSTR - NON-VSAM PS DATA SET @YL026UH*/ 01017000 * /* OPENED FOR BSAM OR BPAM PROCESSING. @YL026UH*/ 01018000 * /* @YL026UH*/ 01019000 * /* OUTPUT - PHYSICAL BLOCK IS POSITIONED TO. @YL026UH*/ 01020000 * /* @YL026UH*/ 01021000 * /* ERRORS - 1. DELETE OR RENAME AND MEMBER DOES @YL026UH*/ 01022000 * /* NOT EXIST. @YL026UH*/ 01023000 * /* 2. RENAME AND MEMBER ALREADY EXISTS. @YL026UH*/ 01024000 * /* 3. PERMANEMT I/O ERROR @YL026UH*/ 01025000 * /* @YL026UH*/ 01026000 * /************************************************* @YL026UH*/ 01027000 * 0427 01028000 *STOWRTN: PROC OPTIONS (SAVEAREA); /*@YL026UH*/ 01029000 * 0427 01030000 STOWRTN STM @14,@12,12(@13) 0427 01031000 ST @13,@SA00004+4 0427 01032000 LA @14,@SA00004 0427 01033000 ST @14,8(,@13) 0427 01034000 LR @13,@14 0427 01035000 * /************************************************* @YL026UH*/ 01036000 * /* @YL026UH*/ 01037000 * /* DECLARES USED ONLY BY THIS PROCEDURE @YL026UH*/ 01038000 * /* @YL026UH*/ 01039000 * /************************************************* @YL026UH*/ 01040000 * 0428 01041000 * /* CODE RETURNED FROM THIS PROCEDURE @YL026UH*/ 01042000 * DCL STOWRC FIXED (15); /*@YL026UH*/ 01043000 * 0428 01044000 * /* STOW MACRO SUCCESSFUL @YL026UH*/ 01045000 * DCL STOWOK FIXED (15) CONSTANT (0); /*@YL026UH*/ 01046000 * 0429 01047000 * /* RETURN CODE FROM STOW FOR MEMBER EXISTS @YL026UH*/ 01048000 * DCL RCSTEX FIXED (15) CONSTANT (4); /*@YL026UH*/ 01049000 * 0430 01050000 * /* RETURN CODE FROM STOW FOR MEMBER DOES NOT EXIST @YL026UH*/ 01051000 * DCL RCSTNO FIXED (15) CONSTANT (8); /*@YL026UH*/ 01052000 * 0431 01053000 * /* RETURN CODE FROM STOW FOR I/O ERROR ENCOUNTERED @YL026UH*/ 01054000 * DCL RCSTIO FIXED (15) CONSTANT (16); /*@YL026UH*/ 01055000 * 0432 01056000 * /* RC FROM STOW WHEN DCB NOT OPENED CORRECTLY @YL026UH*/ 01057000 * DCL RCSTDC FIXED (15) CONSTANT (20); /*@YL026UH*/ 01058000 * 0433 01059000 * /* RC FROM STOW EHEN STORAGE NOT AVAILABLE @YL026UH*/ 01060000 * DCL RCSTNC FIXED (15) CONSTANT (24); /*@YL026UH*/ 01061000 * 0434 01062000 * /* DELETE OPTION @YL026UH*/ 01063000 * DCL DELMEM CHAR (1) CONSTANT ('D'); /*@YL026UH*/ 01064000 * 0435 01065000 * /* RENAME OPTION @YL026UH*/ 01066000 * DCL RENMEM CHAR (1) CONSTANT ('R'); /*@YL026UH*/ 01067000 * 0436 01068000 * /* STOW INPUT WORKAREA @YL026UH*/ 01069000 * DCL 1 STOWWORK CHAR (16) BDY (WORD), 0437 01070000 * 2 STOWOLD CHAR (8), /* OLD NAME @YL026UH*/ 01071000 * 2 STOWNEW CHAR (8); /* NEW NAME @YL026UH*/ 01072000 * 0437 01073000 * /* OLD MEMBER NAME ADDRESSED BY IOCSTR @YL026UH*/ 01074000 * DCL MOVEOLD CHAR (8) BASED (IOCMEM); /*@YL026UH*/ 01075000 * 0438 01076000 * /* NEW MEMBER NAME SPECIFIED BY THE IOCSTR @YL026UH*/ 01077000 * DCL MOVENEW CHAR (8) BASED (IOCNWM); /*@YL026UH*/ 01078000 * 0439 01079000 * /*********************************************** @YL026UH*/ 01080000 * /* @YL026UH*/ 01081000 * /* SAVE DCB PARAMETERS BEFORE THE STOW AND @YL026UH*/ 01082000 * /* AFTER STOW MACRO. THIS INSURES THAT THE DSCB @YL026UH*/ 01083000 * /* WILL NOT BE UPDATED DURING CLOSE. @YL026UH*/ 01084000 * /* @YL026UH*/ 01085000 * /************************************************ @YL026UH*/ 01086000 * 0440 01087000 * DCL SAVLRE FIXED (15); /*@YL026UH*/ 01088000 * DCL SAVRFM CHAR (1); /*@YL026UH*/ 01089000 * DCL SAVBLK FIXED (15); /*@YL026UH*/ 01090000 * 0442 01091000 * /************************************************* @YL026UH*/ 01092000 * /* @YL026UH*/ 01093000 * /* INITIALIZE THE RETURN CODE. @YL026UH*/ 01094000 * /* SET ADDRESSIBILITY TO THE IOCSTR. @YL026UH*/ 01095000 * /* IF DATA SET IS NOT OPEN FOR PROCESSING, ISSUE @YL026UH*/ 01096000 * /* AMS UABORT. @YL026UH*/ 01097000 * /* @YL026UH*/ 01098000 * /************************************************* @YL026UH*/ 01099000 * 0443 01100000 * STOWRC = 0; /*@YL026UH*/ 01101000 * 0443 01102000 SLR STOWRC,STOWRC 0443 01103000 * OLDERID2 = NEWERID2; 0444 01104000 L @03,@PC00001 0444 01105000 L @03,GDTTR2(,@03) 0444 01106000 MVC @TS00001(95),NEWERID2(@03) 0444 01107000 MVC OLDERID2(95,@03),@TS00001 0444 01108000 * NEWID2 = 'IOSR'; /*@YL026UH*/ 01109000 * 0445 01110000 MVC NEWID2(4,@03),@CC01392 0445 01111000 * IOCSPTR = OPRICS; /*@YL026UH*/ 01112000 * 0446 01113000 L @03,@PC00001+4 0446 01114000 L @03,OPRICS(,@03) 0446 01115000 ST @03,IOCSPTR 0446 01116000 * IF IOCSPTR = NULLPTR | IOCMSGOP = OFF 0447 01117000 * THEN 0447 01118000 * 0447 01119000 LTR @03,@03 0447 01120000 BZ @RT00447 0447 01121000 TM IOCMSGOP(@03),B'00100000' 0447 01122000 BNZ @RF00447 0447 01123000 @RT00447 DS 0H 0448 01124000 * DO; 0448 01125000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0449 01126000 * REG15 = 32; 0450 01127000 LA REG15,32 0450 01128000 * REG14 = GDTABT; 0451 01129000 L @03,@PC00001 0451 01130000 L REG14,GDTABT(,@03) 0451 01131000 * REG13 = GDTABH; 0452 01132000 L REG13,GDTABH(,@03) 0452 01133000 * GEN(BR REG14); 0453 01134000 BR REG14 01135000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0454 01136000 * END; /*@YL026UH*/ 0455 01137000 * 0455 01138000 * /************************************************* @YL026UH*/ 01139000 * /* @YL026UH*/ 01140000 * /* IF THE DELETE OPTION IS SPECIFIED, THE ADDRESS @YL026UH*/ 01141000 * /* OF THE MEMBER TO DELETE AND THE ADDRESS OF THE @YL026UH*/ 01142000 * /* DCB ARE SET IN REGISTERS AND THE STOW MACRO WITH @YL026UH*/ 01143000 * /* THE D OPTION IS ISSUED. @YL026UH*/ 01144000 * /* @YL026UH*/ 01145000 * /************************************************* @YL026UH*/ 01146000 * 0456 01147000 * RFY (REG6) RSTD; /*@YL026UH*/ 01148000 @RF00447 DS 0H 0457 01149000 * RFY (REG7) RSTD; /*@YL026UH*/ 01150000 * 0457 01151000 * REG6 = IOCCBA; /*@YL026UH*/ 01152000 L @05,IOCSPTR 0458 01153000 L @01,IOCEXT(,@05) 0458 01154000 L @15,IOCCBA(,@01) 0458 01155000 LR REG6,@15 0458 01156000 * DCBPTR = IOCCBA; /*@YL026UH*/ 01157000 * 0459 01158000 ST @15,DCBPTR 0459 01159000 * SAVBLK = DCBBLKSI; /*@YL026UH*/ 01160000 LA @14,52 0460 01161000 ALR @14,@15 0460 01162000 LH SAVBLK,DCBBLKSI(,@14) 0460 01163000 * SAVLRE = DCBLRECL; /*@YL026UH*/ 01164000 LH SAVLRE,DCBLRECL(,@14) 0461 01165000 * SAVRFM = DCBRECFM; /*@YL026UH*/ 01166000 * 0462 01167000 MVC SAVRFM(1),DCBRECFM+28(@15) 0462 01168000 * IF OPROPT = DELMEM 0463 01169000 * THEN 0463 01170000 L @15,@PC00001+4 0463 01171000 CLI OPROPT(@15),C'D' 0463 01172000 BNE @RF00463 0463 01173000 * DO; /*@YL026UH*/ 01174000 * REG7 = IOCMEM; /*@YL026UH*/ 01175000 * 0465 01176000 L REG7,IOCMEM(,@05) 0465 01177000 *LSTOW1: GEN(STOW (REG6),(REG7),D); /*@YL026UH*/ 01178000 LSTOW1 STOW (REG6),(REG7),D 01179000 * RESPECIFY RTNREG RSTD; 0467 01180000 * TESTRC = RTNREG; 0468 01181000 STH RTNREG,TESTRC 0468 01182000 * RESPECIFY RTNREG UNRSTD; /*@YL026UH*/ 01183000 * 0469 01184000 * END; /*@YL026UH*/ 01185000 * 0470 01186000 * /*********************************************** @YL026UH*/ 01187000 * /* @YL026UH*/ 01188000 * /* IF THE RENAME OPTION IS REQUESTED THE OLD @YL026UH*/ 01189000 * /* NAME AND THE NEW NAME ARE MOVED TO THE STOW @YL026UH*/ 01190000 * /* INPUT ARGUMENT LIST AND THE ADDRESSES OF @YL026UH*/ 01191000 * /* THE DCB AND THE WORKAREA ARE SET IN REGISTERS @YL026UH*/ 01192000 * /* AND THE STOW MACRO WITH THE C OPTION @YL026UH*/ 01193000 * /* IS ISSUED. @YL026UH*/ 01194000 * /* @YL026UH*/ 01195000 * /*********************************************** @YL026UH*/ 01196000 * 0471 01197000 * ELSE 0471 01198000 * DO; /*@YL026UH*/ 01199000 * 0471 01200000 B @RC00463 0471 01201000 @RF00463 DS 0H 0472 01202000 * STOWOLD (1:8) = MOVEOLD (1:8); /*@YL026UH*/ 01203000 L @05,IOCSPTR 0472 01204000 L @01,IOCMEM(,@05) 0472 01205000 MVC STOWOLD(8),MOVEOLD(@01) 0472 01206000 * STOWNEW (1:8) = MOVENEW (1:8); /*@YL026UH*/ 01207000 L @05,IOCNWM(,@05) 0473 01208000 MVC STOWNEW(8),MOVENEW(@05) 0473 01209000 * REG7 = ADDR (STOWWORK); /*@YL026UH*/ 01210000 * 0474 01211000 LA REG7,STOWWORK 0474 01212000 *LSTOW2: GEN(STOW (REG6),(REG7),C); /*@YL026UH*/ 01213000 LSTOW2 STOW (REG6),(REG7),C 01214000 * RESPECIFY RTNREG RSTD; 0476 01215000 * TESTRC = RTNREG; 0477 01216000 STH RTNREG,TESTRC 0477 01217000 * RESPECIFY RTNREG UNRSTD; /*@YL026UH*/ 01218000 * 0478 01219000 * END; /*@YL026UH*/ 01220000 * 0479 01221000 * RFY (REG6) UNRSTD; /*@YL026UH*/ 01222000 @RC00463 DS 0H 0481 01223000 * RFY (REG7) UNRSTD; /*@YL026UH*/ 01224000 * 0481 01225000 * OLDERID2 = NEWERID2; 0482 01226000 L @05,@PC00001 0482 01227000 L @05,GDTTR2(,@05) 0482 01228000 MVC @TS00001(95),NEWERID2(@05) 0482 01229000 MVC OLDERID2(95,@05),@TS00001 0482 01230000 * NEWID2 = 'IOW1'; /*@YL026UH*/ 01231000 * 0483 01232000 MVC NEWID2(4,@05),@CC01397 0483 01233000 * /************************************************* @YL026UH*/ 01234000 * /* @YL026UH*/ 01235000 * /* TESTRC CONTAINS THE RETURN CODE FROM STOW. @YL026UH*/ 01236000 * /* IF RC IS NOT 0 MESSAGE DATA IS SET. @YL026UH*/ 01237000 * /* @YL026UH*/ 01238000 * /************************************************* @YL026UH*/ 01239000 * 0484 01240000 * IF TESTRC ^= STOWOK 0484 01241000 * THEN 0484 01242000 LH @05,TESTRC 0484 01243000 LTR @05,@05 0484 01244000 BZ @RF00484 0484 01245000 *STOWERR: DO; /*@YL026UH*/ 01246000 * 0485 01247000 STOWERR DS 0H 0486 01248000 * STOWRC = 4; /*@YL026UH*/ 01249000 * 0486 01250000 LA @05,4 0486 01251000 LR STOWRC,@05 0486 01252000 * /* CHECK IF MEMBER ALREADY EXISTS @YL026UH*/ 01253000 * IF TESTRC = RCSTEX 0487 01254000 * THEN 0487 01255000 CH @05,TESTRC 0487 01256000 BNE @RF00487 0487 01257000 * DO; /*@YL026UH*/ 01258000 * DARGSENT = STEXSTID; /*@YL026UH*/ 01259000 L @05,DDSTRU 0489 01260000 MVI DARGSENT(@05),X'16' 0489 01261000 * DARGDBP = ADDR (STOWNEW); /*@YL026UH*/ 01262000 LA @15,STOWNEW 0490 01263000 ST @15,DARGDBP(,@05) 0490 01264000 * DARGILP = 8; /*@YL026UH*/ 01265000 MVC DARGILP(2,@05),@CH00176 0491 01266000 * END; /*@YL026UH*/ 01267000 * 0492 01268000 * /* CHECK IF MEMBER DOES NOT EXIST @YL026UH*/ 01269000 * IF TESTRC = RCSTNO 0493 01270000 * THEN 0493 01271000 @RF00487 LA @05,8 0493 01272000 CH @05,TESTRC 0493 01273000 BNE @RF00493 0493 01274000 * DO; /*@YL026UH*/ 01275000 * DARGSENT = STNOSTID; /*@YL026UH*/ 01276000 L @15,DDSTRU 0495 01277000 MVI DARGSENT(@15),X'12' 0495 01278000 * DARGDBP = IOCMEM; /*@YL026UH*/ 01279000 L @01,IOCSPTR 0496 01280000 L @14,IOCMEM(,@01) 0496 01281000 ST @14,DARGDBP(,@15) 0496 01282000 * DARGILP = 8; /*@YL026UH*/ 01283000 STH @05,DARGILP(,@15) 0497 01284000 * END; /*@YL026UH*/ 01285000 * 0498 01286000 * /* CHECK FOR I/O ERROR @YL026UH*/ 01287000 * IF TESTRC = RCSTIO 0499 01288000 * THEN 0499 01289000 @RF00493 CLC TESTRC(2),@CH00475 0499 01290000 BNE @RF00499 0499 01291000 * DARGSENT = SYNDSTID; /*@YL026UH*/ 01292000 * 0500 01293000 L @05,DDSTRU 0500 01294000 MVI DARGSENT(@05),X'13' 0500 01295000 * /* CHECK FOR NO CORE AVAILABLE @YL026UH*/ 01296000 * IF TESTRC = RCSTNC 0501 01297000 * THEN 0501 01298000 @RF00499 CLC TESTRC(2),@CH00305 0501 01299000 BNE @RF00501 0501 01300000 * DARGSENT = NOCRSTID; /*@YL026UH*/ 01301000 * 0502 01302000 L @05,DDSTRU 0502 01303000 MVI DARGSENT(@05),X'1A' 0502 01304000 * /* NOT ONE OF PRECEDING, THE DCB OPEN ERROR @YL026UH*/ 01305000 * IF DARGSENT = 0 0503 01306000 * THEN 0503 01307000 @RF00501 L @05,DDSTRU 0503 01308000 CLI DARGSENT(@05),0 0503 01309000 BNE @RF00503 0503 01310000 * DARGSENT = NOPNSTID; /*@YL026UH*/ 01311000 * 0504 01312000 MVI DARGSENT(@05),X'15' 0504 01313000 * END STOWERR; /*@YL026UH*/ 01314000 * 0505 01315000 @RF00503 DS 0H 0506 01316000 * DCBBLKSI = SAVBLK; /*@YL026UH*/ 01317000 @RF00484 L @05,DCBPTR 0506 01318000 LA @15,52 0506 01319000 ALR @15,@05 0506 01320000 STH SAVBLK,DCBBLKSI(,@15) 0506 01321000 * DCBLRECL = SAVLRE; /*@YL026UH*/ 01322000 STH SAVLRE,DCBLRECL(,@15) 0507 01323000 * DCBRECFM = SAVRFM; /*@YL026UH*/ 01324000 * 0508 01325000 MVC DCBRECFM+28(1,@05),SAVRFM 0508 01326000 * RETURN CODE (STOWRC); /*@YL026UH*/ 01327000 * 0509 01328000 LR @15,STOWRC 0509 01329000 L @13,4(,@13) 0509 01330000 L @14,12(,@13) 0509 01331000 LM @00,@12,20(@13) 0509 01332000 BR @14 0509 01333000 * END STOWRTN; /*@YL026UH*/ 01334000 * 0510 01335000 * 0511 01336000 * /************************************************************/ 01337000 * /* */ 01338000 * /* PROCEDURE NAME - BLDAMSG */ 01339000 * /* */ 01340000 * /* FUNCTION - THIS PROCEDURE SET THE TEXT PROCESSOR ARGUMENT*/ 01341000 * /* STRUCTURE TO PRINT ERROR MESSAGES. */ 01342000 * /* */ 01343000 * /* INPUT - THE ARGUMENT CONTAINS THE MESSAGE NUMBER. */ 01344000 * /* */ 01345000 * /* OUTPUT - TWO MESSAGE ARE PRODUCED BY CALLING PRINTMSG. */ 01346000 * /* THE FIRST IS THE HEADER AND THE SECOND */ 01347000 * /* IS THE EXPLANATION. */ 01348000 * /* */ 01349000 * /************************************************************/ 01350000 * 0511 01351000 *BLDAMSG: PROC; 0511 01352000 * 0511 01353000 BLDAMSG STM @14,@12,@SA00005 0511 01354000 * /************************************************************/ 01355000 * /* */ 01356000 * /* DECLARES USED ONLY BY THIS PROCEDURE */ 01357000 * /* */ 01358000 * /************************************************************/ 01359000 * 0512 01360000 * /* HEADER MESSAGE ARGUMENT LIST */ 01361000 * DCL DARGHEAD CHAR (28) BDY(WORD); 0512 01362000 * 0512 01363000 * /* DSNAME AREA @Y30LSFY*/ 01364000 * DCL DSNCMP CHAR(44) BASED (IOCDSN); /*@Y30LSFY*/ 01365000 * 0513 01366000 * /* SPECIAL DSNAME FOR VTOC @Y30LSFY*/ 01367000 * GENERATE DATA; /*@Y30LSFY*/ 01368000 * 0514 01369000 * DCL VTOC CHAR(44) GENERATED; /* SPECIAL VTOC NAME @Y30LSFY*/ 01370000 * 0515 01371000 * /* VTOC DSNAME AREA @Y30LSFY*/ 01372000 * DCL DSNVTOC CHAR(44) INIT('VTOC'); /*@Y30LSFY*/ 01373000 * 0516 01374000 * /* VTOC DSNAME AREA ADDRESS @Y30LSFY*/ 01375000 * DCL DSNVTOCP PTR(31) INIT (ADDR(DSNVTOC)); /*@Y30LSFY*/ 01376000 * 0517 01377000 * /************************************************************/ 01378000 * /* */ 01379000 * /* PRINT FIRST ERROR MESSAGE, IF APPROPRIATE @Y30LSFY*/ 01380000 * /* */ 01381000 * /************************************************************/ 01382000 * 0518 01383000 * IF DARGSENT ^= DDNGSTID 0518 01384000 * THEN 0518 01385000 L @01,DDSTRU 0518 01386000 CLI DARGSENT(@01),36 0518 01387000 BE @RF00518 0518 01388000 * DO; /*@Y30LSFY*/ 01389000 * DDSTRU = ADDR (DARGHEAD); /*@Y30LSFY*/ 01390000 LA @15,DARGHEAD 0520 01391000 ST @15,DDSTRU 0520 01392000 * DARGHEAD = ''B; /*@Y30LSFY*/ 01393000 XC DARGHEAD(28),DARGHEAD 0521 01394000 * DARGSMOD = 'IO0'; /*@Y30LSFY*/ 01395000 MVC DARGSMOD(3,@15),@CC01328 0522 01396000 * DARGSENT = ACTSTID; /*@Y30LSFY*/ 01397000 MVI DARGSENT(@15),X'03' 0523 01398000 * IF DSNCMP = VTOC 0524 01399000 * THEN DARGDBP = DSNVTOCP; /*@Y30LSFY*/ 01400000 L @01,IOCSPTR 0524 01401000 L @01,IOCDSN(,@01) 0524 01402000 CLC DSNCMP(44,@01),VTOC 0524 01403000 BNE @RF00524 0524 01404000 L @14,DSNVTOCP 0525 01405000 ST @14,DARGDBP(,@15) 0525 01406000 * ELSE DARGDBP = IOCDSN; /*@Y30LSFY*/ 01407000 B @RC00524 0526 01408000 @RF00524 L @01,IOCSPTR 0526 01409000 L @15,IOCDSN(,@01) 0526 01410000 L @14,DDSTRU 0526 01411000 ST @15,DARGDBP(,@14) 0526 01412000 * DARGILP = 44; /*@Y30LSFY*/ 01413000 @RC00524 L @01,DDSTRU 0527 01414000 MVC DARGILP(2,@01),@CH00661 0527 01415000 * CALL PRINTMSG; /*@Y30LSFY*/ 01416000 BAL @14,PRINTMSG 0528 01417000 * END; /*@Y30LSFY*/ 01418000 * 0529 01419000 * /************************************************************/ 01420000 * /* */ 01421000 * /* PRINT LAST LINE OF THE ERROR MESSAGE */ 01422000 * /* */ 01423000 * /************************************************************/ 01424000 * 0530 01425000 * DDSTRU = ADDR (DMSGARG); 0530 01426000 @RF00518 LA @15,DMSGARG 0530 01427000 ST @15,DDSTRU 0530 01428000 * CALL PRINTMSG; 0531 01429000 * 0531 01430000 BAL @14,PRINTMSG 0531 01431000 * DMSGARG = ''B; 0532 01432000 XC DMSGARG(44),DMSGARG 0532 01433000 * DARGSMOD = 'IO0'; 0533 01434000 * 0533 01435000 L @01,DDSTRU 0533 01436000 MVC DARGSMOD(3,@01),@CC01328 0533 01437000 * END BLDAMSG; 0534 01438000 * 0534 01439000 @EL00005 DS 0H 0534 01440000 @EF00005 DS 0H 0534 01441000 @ER00005 LM @14,@12,@SA00005 0534 01442000 BR @14 0534 01443000 * /************************************************************/ 01444000 * /* */ 01445000 * /* PROCEDURE NAME - PRINTMSG */ 01446000 * /* */ 01447000 * /* FUNCTION - THIS PROCEDURE CALLS THE TEXT PROCESSOR */ 01448000 * /* TO PRINT THE MESSAGE. */ 01449000 * /* */ 01450000 * /* INPUT - TEXT PROCESSOR ARGUMENT CONTAINING MESSAGE DATA. */ 01451000 * /* */ 01452000 * /************************************************************/ 01453000 * 0535 01454000 *PRINTMSG: PROC; 0535 01455000 * 0535 01456000 PRINTMSG STM @14,@12,@SA00006 0535 01457000 * CALL AMSTP011 (GDTTBL,PRTFILE,DDSTRU); 0536 01458000 * 0536 01459000 L @15,@PC00001 0536 01460000 ST @15,@AL00001 0536 01461000 LA @14,@CF00112 0536 01462000 ST @14,@AL00001+4 0536 01463000 LA @14,DDSTRU 0536 01464000 ST @14,@AL00001+8 0536 01465000 MVI @AL00001+8,X'80' 0536 01466000 L @15,GDTPRT(,@15) 0536 01467000 LA @01,@AL00001 0536 01468000 BALR @14,@15 0536 01469000 * END PRINTMSG; 0537 01470000 * 0537 01471000 @EL00006 DS 0H 0537 01472000 @EF00006 DS 0H 0537 01473000 @ER00006 LM @14,@12,@SA00006 0537 01474000 BR @14 0537 01475000 * 0538 01476000 * /************************************************************/ 01477000 * /* @Y30LSFY*/ 01478000 * /* PROCEDURE NAME - DSINFO @Y30LSFY*/ 01479000 * /* @Y30LSFY*/ 01480000 * /* FUNCTION - THIS PROCEDURE GIVES THE REQUESTOR @Y30LSFY*/ 01481000 * /* INFORMATION RELATED TO A DDNAME PASSED@Y30LSFY*/ 01482000 * /* AND INDICATORS SPECIFYING INFOR- @Y30LSFY*/ 01483000 * /* MATION TYPE @Y30LSFY*/ 01484000 * /* @Y30LSFY*/ 01485000 * /* INPUT - ARGUMENT LIST CONTAINING THE @Y30LSFY*/ 01486000 * /* ADDRESSES OF THE WORK AREA,DDNAME AND @Y30LSFY*/ 01487000 * /* THE ADDITIONAL INFORMATION REQUESTED @Y30LSFY*/ 01488000 * /* @Y30LSFY*/ 01489000 * /* OUTPUT - DEVICE TYPE CHARACTERISTICS, VOLUME @Y30LSFY*/ 01490000 * /* SERIAL(S)-UP TO FIVE(5),DATA SET @Y30LSFY*/ 01491000 * /* NAME,FMT4 DSCB TIME STAMPS @Y30SSFY*/ 01492000 * /* @Y30LSFY*/ 01493000 * /* ERRORS - 1. DDNAME NOT FOUND OR @Y30SSFY*/ 01494000 * /* OBTAIN FAILED (RC=4) @Y30SSFY*/ 01495000 * /* 2. INSUFFICIENT STORAGE (RC=8) @Y30LSFY*/ 01496000 * /* @Y30LSFY*/ 01497000 * /************************************************************/ 01498000 * 0538 01499000 *DSINFO: PROC OPTIONS (SAVEAREA); /*@Y30LSFY*/ 01500000 DSINFO STM @14,@12,12(@13) 0538 01501000 ST @13,@SA00007+4 0538 01502000 LA @14,@SA00007 0538 01503000 ST @14,8(,@13) 0538 01504000 LR @13,@14 0538 01505000 * 0539 01506000 * /************************************************************/ 01507000 * /* @Y30LSFY*/ 01508000 * /* DECLARES USED ONLY BY THIS PROCEDURE @Y30LSFY*/ 01509000 * /* @Y30LSFY*/ 01510000 * /************************************************************/ 01511000 * 0539 01512000 * /* RETURN CODE FROM THIS PROCEDURE @Y30LSFY*/ 01513000 * DCL DSIRC FIXED (15); /*@Y30LSFY*/ 01514000 * 0539 01515000 * /* SIZE OF RDJFCB WORKAREA @Y30LSFY*/ 01516000 * DCL WKASZ FIXED(31) CONSTANT(272); /*@Y30LSFY*/ 01517000 * 0540 01518000 * /* ADDRESS OF RDJFCB AREA AND CAMLST AREA @Y30SSFY*/ 01519000 * DCL WRKARPTR PTR(31); /*@Y30SSFY*/ 01520000 * 0541 01521000 * /* STRUCTURE OF INFORMATION RETURNED @Y30LSFY*/ 01522000 * DCL 1 IDCIOINF BASED (INFWK), 0542 01523000 * 2 INFLEN1 FIXED(15), /* TOTAL LEN OF THIS AREA */ 01524000 * 2 INFLEN2 FIXED(15), /* LEN OF DATA RETND @Y30LSFY*/ 01525000 * 2 INFDSST CHAR(48), /* DSNAME FIELD @Y30LSFY*/ 01526000 * 3 INFDSID CHAR(2), /* FIELD ID = 1 @Y30LSFY*/ 01527000 * 3 INFDSLN FIXED(15), /* DATA LEN 44 @Y30LSFY*/ 01528000 * 3 INFDSNM CHAR(44); /* DSNAME @Y30LSFY*/ 01529000 * 0542 01530000 * /* VOLUME SERIAL LIST FIELD @Y30LSFY*/ 01531000 * DCL 1 INFST1 CHAR(34) BASED (INFWK2), 0543 01532000 * 2 INFVID CHAR(2), /* FIELD ID = 2 @Y30LSFY*/ 01533000 * 2 INFVLEN FIXED(15), /* LEN OF VOL LIST @Y30LSFY*/ 01534000 * 2 INFVSER CHAR(30); /* VOLUME SERIALS @Y30LSFY*/ 01535000 * 0543 01536000 * /* DEVICE CHACTERISTICS FIELD @Y30LSFY*/ 01537000 * DCL 1 INFDVT CHAR(16) BASED (INFWK3), 0544 01538000 * 2 INFDEVID CHAR(2), /* FIELD ID = 3 @Y30LSFY*/ 01539000 * 2 INFDEVLN FIXED(15), /* DATA LEN 12 @Y30LSFY*/ 01540000 * 2 INFDEVT CHAR(12); /* DEVICE CHARACTERS. @Y30LSFY*/ 01541000 * 0544 01542000 * /* TIME STAMPS FIELD @Y30SSFY*/ 01543000 * DCL 1 INFOFMT4 CHAR(20) BASED(INFWK4), 0545 01544000 * 2 INFFM4ID CHAR(2), /* FIELD ID = 4 @Y30SSFY*/ 01545000 * 2 INFFM4LN FIXED(15), /* DATA LEN 16 @Y30SSFY*/ 01546000 * 2 INFTMSTS CHAR(16), /* TIME STAMPS @Y30SSFY*/ 01547000 * 3 NEWTMST CHAR(8), /* NEW TIME STAMP @Y30SSFY*/ 01548000 * 3 OLDTMST CHAR(8); /* OLD TIME STAMP @Y30SSFY*/ 01549000 * 0545 01550000 * /* UIOINFO PARAMETER LIST @Y30LSFY*/ 01551000 * DCL 1 INFOPARM BASED (OPRICS), 0546 01552000 * 2 * CHAR(4), /* GDTTBL PTR @Y30LSFY*/ 01553000 * 2 OPTPTR PTR(31), /* OPTION BYTE PTR @Y30LSFY*/ 01554000 * 2 INFWKPT PTR(31), /* WORK AREA PTR @Y30LSFY*/ 01555000 * 2 INFDNM PTR(31), /* DNAME PTR @Y30LSFY*/ 01556000 * 2 INFPOL PTR(31); /* POOL ID WORD PTR @Y30LSFY*/ 01557000 * 0546 01558000 * /* DSNAME LIST AREA POINTER AND HEADER @Y30LSFY*/ 01559000 * DCL INFWK PTR(31) BASED (INFWKPT); /*@Y30LSFY*/ 01560000 * 0547 01561000 * /* VOLUME LIST AREA POINTER @Y30LSFY*/ 01562000 * DCL INFWK2 PTR(31); /*@Y30LSFY*/ 01563000 * 0548 01564000 * /* DEVICE CHARACTERISTICS POINTER @Y30LSFY*/ 01565000 * DCL INFWK3 PTR(31); /*@Y30LSFY*/ 01566000 * 0549 01567000 * /* TIME STAMPS POINTER @Y30SSFY*/ 01568000 * DCL INFWK4 PTR(31); /*@Y30SSFY*/ 01569000 * 0550 01570000 * /* DDNAME REFERENCE DECLARE @Y30LSFY*/ 01571000 * DCL DFILE CHAR(8) BASED (INFDNM); /*@Y30LSFY*/ 01572000 * 0551 01573000 * /* POOL ID @Y30LSFY*/ 01574000 * DCL INFPOLID CHAR(4) BASED (INFPOL); /*@Y30LSFY*/ 01575000 * 0552 01576000 * /* NUMBER OF BYTES ESTABLISHED FOR WORKAREA @Y30LSFY*/ 01577000 * DCL IOINFSZ FIXED(31); /*@Y30LSFY*/ 01578000 * 0553 01579000 * /* NUMBER OF VOLSERS @Y30LSFY*/ 01580000 * DCL NMSER FIXED(15); /*@Y30LSFY*/ 01581000 * 0554 01582000 * /* DEVICE CHARACTERISTICS AREA @Y30LSFY*/ 01583000 * DCL DEVCH CHAR(20) BDY(WORD); /*@Y30LSFY*/ 01584000 * 0555 01585000 * /* DEVICE CHARACTERISTICS DDNAME @Y30LSFY*/ 01586000 * DCL DEVDDN CHAR(8) BDY(DWORD); /*@Y30LSFY*/ 01587000 * 0556 01588000 * /* THE RDJFCB WORKAREA @Y30LSFY*/ 01589000 * DCL 1 WORKAREA BDY(DWORD) BASED(WRKARPTR), 0557 01590000 * 2 JFCBAREA CHAR(176), 0557 01591000 * 2 READDCB CHAR(96); /*@Y30LSFY*/ 01592000 * 0557 01593000 * /* CAMLST FOR THE OBTAIN @Y30SSFY*/ 01594000 * DCL 1 CAMLST BDY(DWORD) DEF(WORKAREA), 0558 01595000 * 2 CFLGS CHAR(4), 0558 01596000 * 2 CLDPT PTR(31), 0558 01597000 * 2 CLVPT PTR(31), 0558 01598000 * 2 F4PTR PTR(31), 0558 01599000 * 2 CLDSL4 CHAR(148), 0558 01600000 * 2 CLVLSR CHAR(6), 0558 01601000 * 2 CLDSN CHAR(44); /*@Y30SSFY*/ 01602000 * 0558 01603000 * /* DSCB 4 IDENTIFIER @Y30SSFY*/ 01604000 * DCL F4ID CHAR(1) INIT('4'); /*@Y30SSFY*/ 01605000 * 0559 01606000 * /* CONSTANT TO CLEAR DSCB 4 IDENTIFIER @Y30SSFY*/ 01607000 * DCL F4IDCLR CHAR(1) INIT('0'); /*@Y30SSFY*/ 01608000 * 0560 01609000 * /* CAMLST SEARCH FLAGS @Y30SSFY*/ 01610000 * DCL CLSRCH CHAR(4) INIT('C1000000'X); /*@Y30SSFY*/ 01611000 * 0561 01612000 * /* GENERATED FIELDS @Y30SSFY*/ 01613000 * GENERATE DATA; /*@Y30LSFY*/ 01614000 * 0562 01615000 * DCL GENADDR PTR(31); /*@Y30LSFY*/ 01616000 * DCL GENAREA CHAR(96) BASED(GENADDR); /*@Y30LSFY*/ 01617000 * DCL QSAMDCB LABEL GENERATED; /*@Y30LSFY*/ 01618000 * DCL F4DSN CHAR(44) GENERATED; /*@Y30SSFY*/ 01619000 * 0566 01620000 * /* LENGTH OF QSAM DCB @Y30LSFY*/ 01621000 * DCL SIZEQSAM FIXED(15) CONSTANT(96); /*@Y30LSFY*/ 01622000 * 0567 01623000 * /* COUNT OF DATA SIZES @Y30LSFY*/ 01624000 * DCL INFOCNT FIXED(15); /*@Y30LSFY*/ 01625000 * 0568 01626000 * /* INFORMATION IDENTIFIERS @Y30LSFY*/ 01627000 * DCL DSNID FIXED(15) CONSTANT(1); /*@Y30LSFY*/ 01628000 * DCL VLSRID FIXED(15) CONSTANT(2); /*@Y30LSFY*/ 01629000 * DCL DVTID FIXED(15) CONSTANT(3); /*@Y30LSFY*/ 01630000 * DCL TMSID FIXED(15) CONSTANT(4); /*@Y30SSFY*/ 01631000 * 0572 01632000 * /* SIZE OF HEADERS @Y30LSFY*/ 01633000 * DCL HDRSZ FIXED(15) CONSTANT(4); /*@Y30LSFY*/ 01634000 * 0573 01635000 * /* MAXIMUM NUMBER OF VOLUME SERIALS @Y30LSFY*/ 01636000 * DCL MAXVS FIXED(15) CONSTANT(5); /*@Y30LSFY*/ 01637000 * 0574 01638000 * /* LENGTH OF A VOLUME SERIAL NUMBER @Y30LSFY*/ 01639000 * DCL VLSRSZ FIXED(15) CONSTANT(6); /*@Y30LSFY*/ 01640000 * 0575 01641000 * /* MAXIMUM SIZE OF WORKAREA @Y30LSFY*/ 01642000 * DCL MAXWASZ FIXED(15) CONSTANT(128); /*@Y30LSFY*/ 01643000 * 0576 01644000 * /* CONSTANT OF ZERO @Y30LSFY*/ 01645000 * DCL ZERO FIXED(15) CONSTANT(0); /*@Y30LSFY*/ 01646000 * 0577 01647000 * DCL JFCBPTR PTR (31); /* ADDRESS OF JFCB @Y30LSFY*/ 01648000 * 0578 01649000 * /* EXIT LIST USED TO READ THE JFCB @Y30LSFY*/ 01650000 * DCL 1 DCBRLIST BDY (WORD), /* DCB EXIT LIST @Y30LSFY*/ 01651000 * 2 DCBRLID CHAR (1), /* LIST IDENTIFIER @Y30LSFY*/ 01652000 * 2 DCBRLPTR PTR (24); /* BLOCK ADDRESS @Y30LSFY*/ 01653000 * 0579 01654000 * DCL 1 DCBEXWRD PTR (31), /* EXIT ARG LIST @Y30LSFY*/ 01655000 * 2 DCBEXEND BIT (1); /* END OF LIST @Y30LSFY*/ 01656000 * 0580 01657000 * /* INCLUDE THE FORMAT 4 DSCB PLS DECLARE @Y30SSFY*/ 01658000 */* %INCLUDE SYSLIB(IECSDSL1) */ 01659000 *DCL 1 IECSDSF4 BASED(F4PTR), /* FORMAT 4 DSCB - DESCRIBED */ 01660000 * 2 * CHAR(96); /* IN THE FOLLOWING STRUCTURE*/ 01661000 *DCL 1 IECSDSL4 BASED(ADDR(IECSDSF4)), /* START OF THE FORMAT 4 DSCB*/ 01662000 * 2 DS4IDFMT CHAR(1), /* FORMAT IDENTIFIER */ 01663000 * 2 DS4HPCHR CHAR(5), /* HIGHEST ADDRESS OF A 0582 01664000 * FORMAT 1 DSCB */ 01665000 * 2 DS4DSREC CHAR(2), /* NUMBER OF AVAILABLE DSCB'S*/ 01666000 * 2 DS4HCCHH CHAR(4), /* CCHH OF NEXT AVAILABLE 0582 01667000 * ALTERNATE TRACK */ 01668000 * 2 DS4NOATK CHAR(2), /* NUMBER OF REMAINING 0582 01669000 * ALTERNATE TRACKS */ 01670000 * 2 DS4VTOCI CHAR(1), /* VTOC INDICATORS */ 01671000 * 2 DS4NOEXT CHAR(1), /* NUMBER OF EXTENTS IN VTOC */ 01672000 * 2 * CHAR(2), /* RESERVED */ 01673000 * 2 DS4DEVCT CHAR(14), /* DEVICE CONSTANTS */ 01674000 * 3 DS4DEVSZ CHAR(4), /* DEVICE SIZE */ 01675000 * 3 DS4DEVTK CHAR(2), /* DEVICE TRACK LENGTH */ 01676000 * 3 DS4DEVOV CHAR(2), /* KEYED RECORD OVERHEAD */ 01677000 * 4 DS4DEVI CHAR(1), /* - NON-LAST KEYED RECORD 0582 01678000 * OVERHEAD */ 01679000 * 4 DS4DEVL CHAR(1), /* - LAST KEYED RECORD 0582 01680000 * OVERHEAD */ 01681000 * 3 DS4DEVK CHAR(1), /* NON-KEYED RECORD OVERHEAD 01682000 * DIFFERENTIAL */ 01683000 * 3 DS4DEVFG CHAR(1), /* FLAG BYTE */ 01684000 * 3 DS4DEVTL CHAR(2), /* DEVICE TOLERANCE */ 01685000 * 3 DS4DEVDT CHAR(1), /* NUMBER OF DSCB'S PER TRACK*/ 01686000 * 3 DS4DEVDB CHAR(1), /* NUMBER OF DIRECTORY 0582 01687000 * BLOCKS PER TRACK */ 01688000 * 2 DS4AMTIM CHAR(8), /* VSAM TIME STAMP */ 01689000 * 2 DS4AMCAT CHAR(3), /* VSAM CATALOG INDICATOR */ 01690000 * 3 DS4VSIND BIT(8), /* VSAM INDICATORS */ 01691000 * 4 DS4VSREF BIT(1), /* A VSAM CATALOG REFERENCES 01692000 * THIS VOLUME */ 01693000 * 4 DS4VSBAD BIT(1), /* VSAM DATA SETS ON VOLUME 01694000 * ARE UNUSABLE */ 01695000 * 4 * BIT(6), /* RESERVED */ 01696000 * 3 DS4VSCRA PTR(16) BDY(BYTE),/* RELATIVE TRACK LOCATION 01697000 * OF THE CRA */ 01698000 * 2 DS4R2TIM CHAR(8), /* VSAM VOLUME/CATALOG MATCH 01699000 * TIME STAMP */ 01700000 * 2 * CHAR(5), /* RESERVED */ 01701000 * 2 DS4F6PTR CHAR(5), /* POINTER TO FIRST FORMAT 0582 01702000 * 6 DSCB */ 01703000 * 2 DS4VTOCE CHAR(10), /* VTOC EXTENT DESCRIPTION */ 01704000 * 2 * CHAR(25), /* RESERVED */ 01705000 * 2 DS4END CHAR(0); /* END OF THE FORMAT 4 DSCB */ 01706000 * 0582 01707000 * /* INCLUDE THE JFCB PLS DECLARE @Y30LSFY*/ 01708000 * 0583 01709000 * 0583 01710000 */* **************************************************************** */ 01711000 */* */ 01712000 */* JOB FILE CONTROL BLOCK */ 01713000 */* */ 01714000 */* OS/VS2 RELEASE 4, 06/24/75, LEVEL=1 */ 01715000 */* */ 01716000 */* METHOD OF ACCESS */ 01717000 */* BAL - A DSECT CARD SHOULD PRECEDE MACRO CALL. USING ON */ 01718000 */* INFMJFCB GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 01719000 */* PL/S - DCL JFCBPTR PTR */ 01720000 */* */ 01721000 */* F.E.'S */ 01722000 */* MICROFICHE LISTING - IEFJFCBN */ 01723000 */* */ 01724000 */* DEVELOPERS */ 01725000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL. */ 01726000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE. */ 01727000 */* */ 01728000 */* FOR INTEGRATION A LISTING SHOULD NOT BE REQUESTED. */ 01729000 */* **************************************************************** */ 01730000 * 0583 01731000 *DECLARE 0583 01732000 * 1 INFMJFCB BASED(JFCBPTR) BDY(WORD), 0583 01733000 * 2 JFCBDSNM CHAR(44) BDY(WORD), /* DATA SET NAME */ 01734000 * 3 JFCBQNAM CHAR(8) BDY(WORD), /* PROCESS QUEUE NAME SPECIFIED BY 01735000 * THE QNAME KEYWORD (TCAM) */ 01736000 * 2 JFCBELNM CHAR(8) BDY(WORD), /* ELEMENT NAME OR RELATIVE 0583 01737000 * GENERATION NUMBER. TYPE OF 0583 01738000 * AREA (INDEX, PRIME OR OVERFLOW) 01739000 * FOR AN INDEXED SEQUENTIAL DATA 01740000 * SET ONLY. */ 01741000 * 3 JFCIPLTX CHAR(7) BDY(WORD), /* MODULE NAME OF NETWORK CONTROL 01742000 * PROGRAM (TCAM) ICB391*/ 01743000 * 2 JFCBTSDM BIT(8), /* JOB MANAGEMENT/DATA MANAGEMENT 01744000 * INTERFACE */ 01745000 * 3 JFCCAT BIT(1), /* DATA SET IS CATALOGED */ 01746000 * 3 JFCVSL BIT(1), /* VOLUME SERIAL LIST HAS BEEN 0583 01747000 * CHANGED */ 01748000 * 3 JFCSDS BIT(1), /* DATA SET IS A SYSIN OR SYSOUT 01749000 * DATA SET */ 01750000 * 3 JFCTTR BIT(1), /* A JOB STEP IS TO BE RESTARTED. 01751000 * USE JFCBOTTR INSTEAD OF 0583 01752000 * DS1LSTAR FIELD TO REPOSITION 0583 01753000 * DATA SET IF AUTOMATIC STEP 0583 01754000 * RESTART OCCURS. (THIS JOB HAD 01755000 * ABEND PROCESSING FOR A DATA SET 01756000 * OPENED FOR MOD.) */ 01757000 * 3 JFCNWRIT BIT(1), /* DO NOT WRITE BACK THE JFCB 0583 01758000 * DURING OPEN PROCESSING */ 01759000 * 3 JFCNDSCB BIT(1), /* DO NOT MERGE DSCB OR LABEL 0583 01760000 * FIELDS INTO THIS JFCB */ 01761000 * 3 JFCNDCB BIT(1), /* DO NOT MERGE DCB FIELDS INTO 0583 01762000 * THIS JFCB */ 01763000 * 3 JFCPAT BIT(1), /* THE PATTERNING DSCB IS COMPLETE*/ 01764000 * 2 JFCBDSCB CHAR(3) BDY(WORD,2),/* TTR ADDRESS OF THE FORMAT 1 0583 01765000 * DSCB FOR DATA SET PART ON THE 01766000 * FIRST VOLUME OF THE DATA SET 0583 01767000 * ICB398*/ 01768000 * 2 JFCFCBID CHAR(4) BDY(WORD), /* FORMS CONTROL BUFFER IMAGE 0583 01769000 * IDENTIFICATION FOR THE 3211 0583 01770000 * PRINTER OR DATA PROTECTION 0583 01771000 * IMAGE IDENTIFICATION FOR THE 0583 01772000 * 3525 CARD PUNCH WITH THE READ 01773000 * AND PRINT FEATURES OR FORMAT 0583 01774000 * RECORD ID MDC007*/ 01775000 * 3 JFCBFRID CHAR(4) BDY(WORD), /* LAST 4 CHARACTERS OF A PDS 0583 01776000 * MEMBER TO BE USED IN THE 0583 01777000 * INTERPRETATION OF DOCUMENTS 0583 01778000 * READ BY 3886 DEVICE FOR THIS 0583 01779000 * STEP MDC024*/ 01780000 * 4 JFCAMCRO CHAR(2) BDY(WORD), /* VSAM CHECKPOINT/RESTART OPTION 01781000 * INDICATORS ICB438*/ 01782000 * 4 JFCAMSTR FIXED(15) BDY(WORD,3), /* NUMBER OF STRINGS ICB438*/ 01783000 * 2 JFCBADBF FIXED(15) BDY(WORD), /* NUMBER OF DATA BUFFERS ICB438*/ 01784000 * 2 JFCNLREC FIXED(15) BDY(WORD,3), /* LOGICAL RECORD LENGTH FOR 0583 01785000 * VSAM ICB438*/ 01786000 * 2 JFCVINDX FIXED(15) BDY(WORD), /* MASS STORAGE SYSTEM 0583 01787000 * COMMUNICATOR (MSSC) VOLUME 0583 01788000 * SELECTION INDEX 0583 01789000 * (MDC308) @Z30LP9A*/ 01790000 * 2 JFCBLTYP BIT(8) BDY(WORD,3), /* LABEL TYPE */ 01791000 * 3 JFCRSV38 BIT(1), /* RESERVED */ 01792000 * 3 JFCBAL BIT(1), /* AMERICAN NATIONAL STANDARD TAPE 01793000 * LABELS (AL OR IF BIT 4 IS ALSO 01794000 * ON, AUL) */ 01795000 * 3 JFCBLTM BIT(1), /* UNLABELLED TAPE CREATED BY DOS 01796000 * MAY HAVE LEADING TAPE MARK. 0583 01797000 * OPEN/CLOSE/EOV AND RESTART MUST 01798000 * SPACE OVER A TAPE MARK IF ONE 01799000 * EXISTS. ICB398*/ 01800000 * 3 JFCBLP BIT(1), /* BYPASS LABEL PROCESSING */ 01801000 * 3 JFCSUL BIT(1), /* USER LABEL */ 01802000 * 3 JFCNSL BIT(1), /* NONSTANDARD LABEL */ 01803000 * 3 JFCSL BIT(1), /* STANDARD LABEL */ 01804000 * 3 JFCNL BIT(1), /* NO LABEL */ 01805000 * 2 JFCBOTTR CHAR(3) BDY(WORD,4),/* DASD MOD DATA SET - IF AUTOMATIC 01806000 * STEP RESTART WAS REQUESTED, TTR 01807000 * OF THE END-OF-DATA INDICATOR 0583 01808000 * EXISTING WHEN THE DATA SET WAS 01809000 * FIRST OPENED DURING THE 0583 01810000 * ORIGINAL EXECUTION OF THE 0583 01811000 * CURRENT STEP */ 01812000 * 3 JFCBUFOF PTR(8), /* TAPE DATA SET - THIS FIELD 0583 01813000 * CONTAINS THE BUFFER OFFSET (DCB 01814000 * SUBPARAMETER VALUE) */ 01815000 * 4 JFCBFOFL BIT(1), /* IF 1, THE OFFSET EQUALS FOUR 0583 01816000 * AND THE BUFFER OFFSET FIELD OF 01817000 * EACH BLOCK (D-FORMAT RECORDS) 01818000 * CONTAINS THE BLOCK LENGTH 0583 01819000 * (SPECIFIED BY BUFOFF=L). 0583 01820000 * IF 0, THE OFFSET IS AS 0583 01821000 * SPECIFIED IN THE REMAINING 0583 01822000 * SEVEN BITS AND THE BUFFER 0583 01823000 * OFFSET FIELD OF EACH BLOCK DOES 01824000 * NOT CONTAIN THE BLOCK LENGTH. */ 01825000 * 3 JFCBFLSQ FIXED(15), /* FOR MAGNETIC TAPE DEVICES, 0583 01826000 * FILE SEQUENCE NUMBER */ 01827000 * 4 JFCFUNC BIT(8), /* FUNCTION INDICATORS FOR THE 0583 01828000 * 3525 CARD PUNCH (SPECIFIED BY 01829000 * THE FUNC PARAMETER) ICB392*/ 01830000 * 5 JFCFNCBI BIT(1), /* I - INTERPRET (PUNCH AND PRINT 01831000 * TWO LINES) ICB392*/ 01832000 * 5 JFCFNCBR BIT(1), /* R - READ ICB392*/ 01833000 * 5 JFCFNCBP BIT(1), /* P - PUNCH ICB392*/ 01834000 * 5 JFCFNCBW BIT(1), /* W - PRINT ICB392*/ 01835000 * 5 JFCFNCBD BIT(1), /* D - DATA PROTECTION ICB392*/ 01836000 * 5 JFCFNCBX BIT(1), /* X - THIS DATA SET IS TO BE 0583 01837000 * PRINTED. THIS MAY BE CODED 0583 01838000 * WITH PW OR RPW TO DISTINGUISH 01839000 * THE DATA SET TO BE PRINTED FROM 01840000 * THE DATA SET TO BE PUNCHED. 0583 01841000 * ICB392*/ 01842000 * 5 JFCFNCBT BIT(1), /* T - TWO-LINE PRINT SUPPORT 0583 01843000 * REQUEST. THE SECOND PRINT LINE 01844000 * IS LOCATED ON CARD LINE THREE. 01845000 * ICB392*/ 01846000 * 5 JFCRSV31 BIT(1), /* RESERVED ICB392*/ 01847000 * 2 JFCBVLSQ FIXED(15), /* VOLUME SEQUENCE NUMBER */ 01848000 * 2 JFCBMASK CHAR(8) BDY(WORD), /* DATA MANAGEMENT TASK */ 01849000 * 3 JFCBOPS1 CHAR(5), /* OPEN ROUTINE INTERNAL SWITCHES */ 01850000 * 3 JFCBFLG1 BIT(8), /* FLAG BYTE */ 01851000 * 4 JFCSTAND BIT(1), /* VOLUME LABEL PROCESSING 0583 01852000 * STANDARD */ 01853000 * 4 JFCSLCRE BIT(1), /* CREATION OF A STANDARD LABEL 0583 01854000 * IS NECESSARY */ 01855000 * 4 JFCSLDES BIT(1), /* DESTRUCTION OF A STANDARD LABEL 01856000 * IS NECESSARY */ 01857000 * 4 JFCDUAL BIT(1), /* DUAL-DENSITY CHECK DETECTED */ 01858000 * 4 JFCOPEN BIT(4), /* OPEN ROUTINE INTERNAL SWITCHES */ 01859000 * 5 * BIT(3), /* OPEN ROUTINE INTERNAL SWITCHES */ 01860000 * 5 JFCBPWBP BIT(1), /* PASSWORD BYPASS INDICATOR 0583 01861000 * MDC010*/ 01862000 * 3 JFCBFLG2 BIT(8), /* FLAG BYTE OF OPEN SWITCHES */ 01863000 * 4 JFCINOP BIT(1), /* TREAT THE INOUT OPTION OF OPEN 01864000 * AS INPUT */ 01865000 * 4 JFCOUTOP BIT(1), /* TREAT THE OUTIN OPTION OF OPEN 01866000 * AS OUTPUT */ 01867000 * 4 JFCDEFER BIT(1), /* SET ONLY IN A JFCB RECORDED IN 01868000 * A DATA SET DESCRIPTOR RECORD 0583 01869000 * (DSDR) BY THE CHECKPOINT 0583 01870000 * ROUTINE. INDICATES THAT THE 0583 01871000 * DATA SET RELATED TO THE JFCB IS 01872000 * BEING PROCESSED SEQUENTIALLY, 01873000 * AT THE CHECKPOINT, ON A VOLUME 01874000 * OTHER THAN THE VOLUME ON WHICH 01875000 * PROCESSING BEGAN IN THE CURRENT 01876000 * STEP. WHEN RESTART OCCURS, 0583 01877000 * THIS BIT CAUSES DEFERRED VOLUME 01878000 * MOUNTING. */ 01879000 * 5 JFCNRPS BIT(1), /* USE BY OPEN ROUTINES - SET TO 01880000 * INDICATE THAT THIS DATA SET 0583 01881000 * RESIDES ON A NON-RPS DEVICE. 0583 01882000 * RESET TO ZERO WHEN OPEN 0583 01883000 * PROCESSING IS COMPLETED. ICB495*/ 01884000 * 4 JFCMODNW BIT(1), /* DISPOSITION OF THIS DATA SET 0583 01885000 * HAS BEEN CHANGED FROM MOD TO 0583 01886000 * NEW. DISPOSITION (IN JFCBIND2) 01887000 * WILL BE RESTORED TO MOD AFTER 01888000 * OPEN. */ 01889000 * 4 JFCSDRPS BIT(1), /* USE SEARCH DIRECT FOR 0583 01890000 * ROTATIONAL POSITION SENSING 0583 01891000 * (RPS) DEVICES ICB398*/ 01892000 * 4 JFCTRACE BIT(1), /* GTF TRACE IS TO OCCUR DURING 0583 01893000 * OPEN/CLOSE/EOV AND DYNAMIC 0583 01894000 * ALLOCATION PROCESSING OF DCB 0583 01895000 * ICB392*/ 01896000 * 4 JFCBBUFF BIT(1), /* INDICATOR TO OPEN THAT A 0583 01897000 * NON-ZERO VALUE IN JFCBOTTR IS 01898000 * NOT TO PREVENT THE NORMAL 0583 01899000 * STORING BY OPEN OF A TTR IN 0583 01900000 * JFCBOTTR. BEFORE OPEN - 0583 01901000 * JFCBUFOF (OFFSET 67) CONTAINS 01902000 * A BUFFER OFFSET OR INVALID 0583 01903000 * INFORMATION RESULTING FROM A 0583 01904000 * JFCB-TO-JFCB MERGE. AFTER 0583 01905000 * OPEN - OPEN MAY HAVE STORED A 01906000 * TTR IN JFCBOTTR (OFFSET 67), IN 01907000 * WHICH CASE OPEN WILL HAVE SET 01908000 * THIS BIT TO ZERO. */ 01909000 * 4 JFCRCTLG BIT(1), /* OPEN HAS UPDATED THE TTR. 0583 01910000 * SCHEDULER STEP TERMINATION 0583 01911000 * ROUTINE IS TO RECATALOG THIS 0583 01912000 * DATA SET AND PLACE IN THE 0583 01913000 * CATALOG ENTRY THE DSCB TTR 0583 01914000 * CONTAINED IN JFCBDSCB IF THIS 01915000 * DATA SET IS CATALOGED. ICB398*/ 01916000 * 3 JFCBOPS2 BIT(8), /* OPEN ROUTINE INTERNAL SWITCHES */ 01917000 * 2 JFCBCRDT CHAR(3) BDY(WORD), /* DATA SET CREATION DATE (YDD, 0583 01918000 * Y=YEAR AND DD=DAY) */ 01919000 * 2 JFCBXPDT CHAR(3) BDY(WORD,4),/* DATA SET EXPIRATION DATE (YDD) */ 01920000 * 2 JFCBIND1 BIT(8), /* INDICATOR BYTE 1 */ 01921000 * 3 JFCRLSE BIT(2), /* RELEASE EXTERNAL STORAGE */ 01922000 * 3 JFCLOC BIT(2), /* DATA SET HAS BEEN LOCATED */ 01923000 * 3 JFCADDED BIT(2), /* NEW VOLUME HAS BEEN ADDED TO 0583 01924000 * THE DATA SET */ 01925000 * 3 JFCGDG BIT(1), /* DATA SET IS A MEMBER OF A 0583 01926000 * GENERATION DATA GROUP */ 01927000 * 3 JFCPDS BIT(1), /* DATA SET IS A MEMBER OF A 0583 01928000 * PARTITIONED DATA SET */ 01929000 * 2 JFCBIND2 BIT(8), /* INDICATOR BYTE 2 */ 01930000 * 3 JFCDISP BIT(2), /* BIT PATTERN FOR NEW, MOD, OLD */ 01931000 * 3 JFCSECUR BIT(2), /* DATA SET SECURITY */ 01932000 * 3 JFCSHARE BIT(1), /* SHARED DATA SET */ 01933000 * 3 JFCENT BIT(1), /* DELETE THIS JFCB BEFORE 0583 01934000 * ALLOCATION FOR A RESTARTED 0583 01935000 * GENERATION DATA GROUP */ 01936000 * 3 JFCREQ BIT(1), /* STORAGE VOLUME REQUESTED */ 01937000 * 3 JFCTEMP BIT(1), /* TEMPORARY DATA SET */ 01938000 * 2 JFCAMPTR PTR(31), /* POINTER TO AMPBLK FOR 0583 01939000 * ADDITIONAL VSAM PARAMETERS 0583 01940000 * ICB438*/ 01941000 * 3 JFCBUFRQ CHAR(1), /* NUMBER OF BUFFERS REQUIRED FOR 01942000 * EACH LINE (QTAM) */ 01943000 * 4 JFCBUFNO CHAR(1), /* NUMBER OF BUFFERS REQUIRED FOR 01944000 * THIS DATA SET (ACCESS METHODS 01945000 * OTHER THAN TCAM AND QTAM) */ 01946000 * 5 JFCBUFIN BIT(4), /* THE NUMBER OF BUFFERS ASSIGNED 01947000 * INITIALLY FOR RECEIVING 0583 01948000 * OPERATIONS FOR EACH LINE IN A 01949000 * LINE GROUP (TCAM) MDC021*/ 01950000 * 5 JFCBFOUT BIT(4), /* THE NUMBER OF BUFFERS ASSIGNED 01951000 * INITIALLY FOR SENDING 0583 01952000 * OPERATIONS FOR EACH LINE IN A 01953000 * LINE GROUP (TCAM) MDC022*/ 01954000 * 3 JFCBGNCP PTR(8), /* FOR GAM, THIS FIELD IS USED FOR 01955000 * THE NUMBER OF IOB'S CONSTRUCTED 01956000 * BY THE OPEN ROUTINE. MAXIMUM 01957000 * NUMBER IS 99. MDC025*/ 01958000 * 4 JFCBHIAR CHAR(1), /* BUFFER POOL LOCATION IN MAIN 0583 01959000 * STORAGE (HIERARCHY) */ 01960000 * 5 JFCBFALN CHAR(1), /* BUFFER ALIGNMENT */ 01961000 * 6 JFCBFTEK BIT(8), /* BUFFERING TECHNIQUE */ 01962000 * 7 JFCHIER BIT(1), /* BITS 0 AND 5 DESCRIBE MAIN 0583 01963000 * STORAGE HIERARCHY. BOTH BITS 01964000 * OFF, HIERARCHY 0. BIT 0 OFF 0583 01965000 * AND BIT 5 ON, HIERARCHY 1. */ 01966000 * 7 JFCBBFTA BIT(2), /* A - FOR QSAM LOCATE MODE 0583 01967000 * PROCESSING OF SPANNED RECORDS, 01968000 * AUTOMATIC RECORD AREA 0583 01969000 * CONSTRUCTION DURING LOGICAL 0583 01970000 * RECORD INTERFACE PROCESSING. 0583 01971000 * OPEN IS TO CONSTRUCT A RECORD 01972000 * AREA IF IT AUTOMATICALLY 0583 01973000 * CONSTRUCTS BUFFERS. */ 01974000 * 8 JFCSIM BIT(1), /* S - SIMPLE BUFFERING */ 01975000 * 8 JFCBBFTR BIT(1), /* R - FOR BSAM CREATE BDAM 0583 01976000 * PROCESSING OR BDAM PROCESSING 01977000 * OF UNBLOCKED SPANNED RECORDS, 01978000 * SOFTWARE TRACK OVERFLOW. OPEN 01979000 * FORMS A SEGMENT WORK AREA POOL 01980000 * AND STORES THE ADDRESS OF THE 01981000 * SEGMENT WORK AREA CONTROL BLOCK 01982000 * IN THE DCBEOBW FIELD OF THE 0583 01983000 * DATA CONTROL BLOCK. WRITE USES 01984000 * A SEGMENT WORK AREA TO WRITE A 01985000 * RECORD AS ONE OR MORE SEGMENTS. 01986000 * FOR BSAM INPUT PROCESSING OF 0583 01987000 * UNBLOCKED SPANNED RECORDS WITH 01988000 * KEYS, RECORD OFFSET PROCESSING. 01989000 * READ READS ONE RECORD SEGMENT 01990000 * INTO THE RECORD AREA. THE 0583 01991000 * FIRST SEGMENT OF A RECORD IS 0583 01992000 * PRECEDED IN THE RECORD AREA BY 01993000 * THE KEY. SUBSEQUENT SEGMENTS 01994000 * ARE AT AN OFFSET EQUAL TO THE 01995000 * KEY LENGTH. */ 01996000 * 7 JFCEXC BIT(1), /* E - EXCHANGE BUFFERING */ 01997000 * 7 JFCDYN BIT(1), /* DYNAMIC BUFFERING */ 01998000 * 7 JFCHIER1 BIT(1), /* HIERARCHY 1 MAIN STORAGE */ 01999000 * 7 JFCDWORD BIT(1), /* D - DOUBLE WORD BOUNDARY */ 02000000 * 7 JFCFWORD BIT(1), /* F - FULL WORD NOT A DOUBLE 0583 02001000 * WORD BOUNDARY */ 02002000 * 3 JFCBUFL FIXED(15) BDY(WORD,3), /* BUFFER LENGTH */ 02003000 * 2 JFCEROPT BIT(8), /* ERROR OPTION. DISPOSITION OF 02004000 * PERMANENT ERRORS IF USER 0583 02005000 * RETURNS FROM A SYNCHRONOUS 0583 02006000 * ERROR EXIT (QSAM) */ 02007000 * 3 JFCACC BIT(1), /* ACCEPT */ 02008000 * 3 JFCSKP BIT(1), /* SKIP */ 02009000 * 3 JFCABN BIT(1), /* ABNORMAL END OF TASK */ 02010000 * 3 JFCTOPT BIT(1), /* ON-LINE TERMINAL TEST 0583 02011000 * (BTAM) ICB349*/ 02012000 * 3 JFCRSV02 BIT(1), /* RESERVED */ 02013000 * 3 JFCRSV03 BIT(1), /* RESERVED */ 02014000 * 3 JFCRSV04 BIT(1), /* RESERVED */ 02015000 * 3 JFCRSV05 BIT(1), /* RESERVED */ 02016000 * 2 JFCTRTCH CHAR(1) BDY(WORD,2);/* TAPE RECORDING TECHNIQUE 0583 02017000 * FOR 7-TRACK TAPE */ 02018000 * 0583 02019000 *DECLARE 0584 02020000 * 1 JFCKEYLE CHAR(1) DEF(JFCTRTCH) BDY(WORD,2), 0584 02021000 * /* DIRECT ACCESS KEY LENGTH */ 02022000 * 2 JFCCODE BIT(8) BDY(BYTE), /* CONVERSION CODE (PAPER TAPE) */ 02023000 * 3 JFCNOCON BIT(1), /* N - NO CONVERSION */ 02024000 * 3 JFCBCD BIT(1), /* I - IBM BCD */ 02025000 * 3 JFCFRI BIT(1), /* F - FRIDEN */ 02026000 * 3 JFCBUR BIT(1), /* B - BURROUGHS */ 02027000 * 3 JFCNCR BIT(1), /* C - NATIONAL CASH REGISTER */ 02028000 * 3 JFCASCII BIT(1), /* A - ASCII (8-TRACK) */ 02029000 * 3 JFCTTY BIT(1), /* T - TELETYPE */ 02030000 * 3 JFCRSV32 BIT(1); /* RESERVED */ 02031000 * 0584 02032000 *DECLARE 0585 02033000 * 1 JFCSTACK BIT(8) DEF(JFCTRTCH) BDY(WORD,2), 0585 02034000 * /* STACKER SELECTION (CARD READER, 02035000 * (CARD PUNCH) */ 02036000 * 2 JFCMODE BIT(8) BDY(WORD,2), /* MODE OF OPERATION (CARD READER, 02037000 * (CARD PUNCH) ICB394*/ 02038000 * 3 JFCBIN BIT(1), /* C - COLUMN BINARY MODE */ 02039000 * 3 JFCEBCD BIT(1), /* E - EBCDIC MODE */ 02040000 * 3 JFCMODEO BIT(1), /* O - OPTICAL MARK READ MODE 0585 02041000 * (3505 ONLY) ICB394*/ 02042000 * 3 JFCMODER BIT(1), /* R - READ COLUMN ELIMINATE MODE 02043000 * (3505 AND 3525 WITH READ 0585 02044000 * FEATURE) ICB394*/ 02045000 * 3 JFCRSV06 BIT(1), /* RESERVED */ 02046000 * 3 JFCRSV07 BIT(1), /* RESERVED */ 02047000 * 3 JFCTWO BIT(1), /* 2 - STACKER TWO */ 02048000 * 3 JFCONE BIT(1); /* 1 - STACKER ONE */ 02049000 * 0585 02050000 *DECLARE 0586 02051000 * 1 JFCSPPRT DEF(JFCTRTCH) BDY(WORD,2), 0586 02052000 * 2 JFCPRTSP BIT(8) BDY(WORD,2), /* NORMAL PRINTER SPACING */ 02053000 * 2 JFCDEN BIT(8), /* TAPE DENSITY - 2400/3400 SERIES 02054000 * MAGNETIC TAPE UNITS */ 02055000 * 2 JFCBABFS PTR(24) BDY(WORD,4),/* TOTAL BUFFER SIZE FOR ALL VSAM 02056000 * BUFFERS ICB438*/ 02057000 * 3 JFCLIMCT CHAR(3) BDY(WORD,4),/* SEARCH LIMIT (BDAM) */ 02058000 * 4 * CHAR(1), /* RESERVED */ 02059000 * 4 JFCTRKBL CHAR(2) BDY(WORD),/* DATA SET OPENED FOR MOD - IF 0586 02060000 * AUTOMATIC STEP RESTART WAS 0586 02061000 * REQUESTED, TRACK BALANCE 0586 02062000 * EXISTING WHEN THE DATA SET WAS 02063000 * FIRST OPENED DURING THE 0586 02064000 * ORIGINAL EXECUTION OF THE 0586 02065000 * CURRENT STEP */ 02066000 * 2 JFCDSORG BIT(16) BDY(WORD,3),/* DATA SET ORGANIZATION BEING 0586 02067000 * USED */ 02068000 * 3 JFCDSRG1 BIT(8), /* BYTE 1 OF JFCDSORG */ 02069000 * 4 JFCORGIS BIT(1), /* INDEXED SEQUENTIAL */ 02070000 * 4 JFCORGPS BIT(1), /* PHYSICAL SEQUENTIAL */ 02071000 * 4 JFCORGDA BIT(1), /* DIRECT */ 02072000 * 4 JFCORGCX BIT(1), /* BTAM OR QTAM LINE GROUP MDC011*/ 02073000 * 4 JFCORGCQ BIT(1), /* QTAM DIRECT ACCESS MESSAGE 0586 02074000 * QUEUE MDC012*/ 02075000 * 4 JFCORGMQ BIT(1), /* QTAM PROBLEM PROGRAM MESSAGE 0586 02076000 * QUEUE MDC013*/ 02077000 * 4 JFCORGPO BIT(1), /* PARTITIONED */ 02078000 * 4 JFCORGU BIT(1), /* UNMOVABLE - THE DATA CONTAINS 02079000 * LOCATION DEPENDENT INFORMATION */ 02080000 * 3 JFCDSRG2 BIT(8), /* BYTE 2 OF JFCDSORG */ 02081000 * 4 JFCORGGS BIT(1), /* GRAPHICS */ 02082000 * 4 JFCORGTX BIT(1), /* TCAM LINE GROUP MDC014*/ 02083000 * 4 JFCORGTQ BIT(1), /* TCAM MESSAGE QUEUE MDC015*/ 02084000 * 4 JFCRSV13 BIT(1), /* RESERVED, BINARY ZERO */ 02085000 * 4 JFCORGAM BIT(1), /* VSAM ICB438*/ 02086000 * 4 JFCORGTR BIT(1), /* TCAM 3705 MDC016*/ 02087000 * 4 JFCRSV15 BIT(1), /* RESERVED, BINARY ZERO */ 02088000 * 4 JFCRSV16 BIT(1), /* RESERVED, BINARY ZERO */ 02089000 * 2 JFCRECFM BIT(8) BDY(WORD), /* RECORD FORMAT */ 02090000 * 3 JFCRCFM BIT(3), /* RECORD FORMAT (USASI/USASCII) 02091000 * MDC023*/ 02092000 * 4 JFCFMREC BIT(2), /* BITS INDICATING RECORD FORMAT */ 02093000 * 4 JFCRFO BIT(1), /* T - TRACK OVERFLOW */ 02094000 * 3 JFCRFB BIT(1), /* B - BLOCKED - MAY NOT OCCUR 0586 02095000 * WITH UNDEFINED */ 02096000 * 3 JFCRFS BIT(1), /* S - FOR FIXED LENGTH RECORD 0586 02097000 * FORMAT, STANDARD BLOCKS. NO 0586 02098000 * TRUNCATED BLOCKS OR UNFILLED 0586 02099000 * TRACKS ARE EMBEDDED IN THE DATA 02100000 * SET. 0586 02101000 * FOR VARIABLE LENGTH RECORD 0586 02102000 * FORMAT, SPANNED RECORDS. */ 02103000 * 3 JFCCHAR BIT(2), /* CONTROL CHARACTER */ 02104000 * 3 * BIT(1), /* RESERVED */ 02105000 * 2 JFCOPTCD BIT(8) BDY(WORD,2), /* OPTION CODES */ 02106000 * 3 JFCWVCSP BIT(1), /* QSAM-BSAM-BPAM - W - WRITE 0586 02107000 * VALIDITY CHECK */ 02108000 * 4 JFCWVCIS BIT(1), /* BISAM-QISAM - W - WRITE 0586 02109000 * VALIDITY CHECK */ 02110000 * 5 JFCWVCBD BIT(1), /* BDAM - W - WRITE VALIDITY 0586 02111000 * CHECK */ 02112000 * 6 JFCSDNAM BIT(1), /* TCAM - SOURCE OR DESTINATION 0586 02113000 * NAME PRECEDES MESSAGE (AFTER 0586 02114000 * CONTROL BYTE) */ 02115000 * 3 JFCALLOW BIT(1), /* QSAM-BSAM-BPAM - U - ALLOW A 0586 02116000 * DATA CHECK CAUSED BY AN 0586 02117000 * INVALID CHARACTER (1403 0586 02118000 * PRINTER WITH UCS FEATURE) */ 02119000 * 4 JFCRSV17 BIT(1), /* RESERVED */ 02120000 * 5 JFCOVER BIT(1), /* BDAM - TRACK OVERFLOW */ 02121000 * 6 JFCWUMSG BIT(1), /* TCAM - WORK UNIT IS A MESSAGE 02122000 * (DEFAULT WORK UNIT IS A RECORD)*/ 02123000 * 3 JFCPCIBT BIT(1), /* QSAM-BSAM-BPAM - C - CHAINED 0586 02124000 * SCHEDULING USING THE PROGRAM 0586 02125000 * CONTROLLED INTERRUPTION */ 02126000 * 4 JFCMAST BIT(1), /* BISAM-QISAM - M - MASTER 0586 02127000 * INDEXES */ 02128000 * 5 JFCEXT BIT(1), /* BDAM - E - EXTENDED SEARCH */ 02129000 * 6 JFCCBWU BIT(1), /* TCAM - CONTROL BYTE PRECEDES 0586 02130000 * WORK UNIT */ 02131000 * 3 JFCBCKPT BIT(1), /* QSAM-BSAM-BPAM - BYPASS 0586 02132000 * EMBEDDED DOS CHECKPOINT 0586 02133000 * RECORDS ON TAPE ICB398*/ 02134000 * 4 JFCIND BIT(1), /* BISAM-QISAM - I - INDEPENDENT 02135000 * OVERFLOW AREA */ 02136000 * 5 JFCFEED BIT(1), /* BDAM - F - FEEDBACK */ 02137000 * 3 JFCRSV18 BIT(1), /* RESERVED */ 02138000 * 4 JFCCYL BIT(1), /* BISAM-QISAM - Y - CYLINDER 0586 02139000 * OVERFLOW AREA */ 02140000 * 5 JFCACT BIT(1), /* BDAM - A - ACTUAL ADRESSING */ 02141000 * 6 JFCOPTQ BIT(1), /* USASI/USASCII - EBCDIC TO ASCII 02142000 * OR ASCII TO EBCDIC TRANSLATION 02143000 * REQUIRED */ 02144000 * 3 JFCREDUC BIT(1), /* QSAM-BSAM-BPAM-EXCP - Z - 0586 02145000 * USE REDUCED ERROR RECOVERY 0586 02146000 * PROCEDURE (MAGNETIC TAPE) */ 02147000 * 4 JFCRSV19 BIT(1), /* RESERVED */ 02148000 * 5 JFCRSV20 BIT(1), /* RESERVED */ 02149000 * 6 JFCSRCHD BIT(1), /* QSAM-BSAM-BPAM - USE SEARCH 0586 02150000 * DIRECT (SD) INSTEAD OF SEARCH 02151000 * PREVIOUS ON ROTATIONAL POSITION 02152000 * SENSING (RPS) DEVICE. (DIRECT 02153000 * ACCESS) */ 02154000 * 3 JFCRSV21 BIT(1), /* RESERVED */ 02155000 * 4 JFCDEL BIT(1), /* BISAM-QISAM - L - DELETE 0586 02156000 * OPTION */ 02157000 * 5 JFCRSV22 BIT(1), /* RESERVED */ 02158000 * 3 JFCOPTJ BIT(1), /* QSAM-BSAM-BPAM - J - 3800 0586 02159000 * CONTROL CHARACTER 0586 02160000 * (MDC301) @Z40MP9A*/ 02161000 * 4 JFCREORG BIT(1), /* BISAM-QISAM - R - 0586 02162000 * REORGANIZATION CRITERIA */ 02163000 * 5 JFCREL BIT(1), /* BDAM - R - RELATIVE BLOCK 0586 02164000 * ADDRESSING */ 02165000 * 2 JFCBLKSI FIXED(15) BDY(WORD,3), /* MAXIMUM BLOCK SIZE */ 02166000 * 3 JFCBUFSI FIXED(15) BDY(WORD,3), /* MAXIMUM BUFFER SIZE */ 02167000 * 4 JFCBAXBF FIXED(15) BDY(WORD,3), /* NUMBER OF INDEX BUFFERS 0586 02168000 * (VSAM) ICB438*/ 02169000 * 2 JFCAMSYN CHAR(8) BDY(WORD), /* MODULE NAME FOR SYNAD ROUTINE 02170000 * FOR VSAM ICB438*/ 02171000 * 3 JFCLRECL FIXED(15) BDY(WORD), /* LOGICAL RECORD LENGTH */ 02172000 * 3 JFCNCP CHAR(1) BDY(WORD,3), /* NUMBER OF CHANNEL PROGRAMS. 02173000 * NUMBER OF READ OR WRITE 0586 02174000 * REQUESTS WHICH MAY BE ISSUED 0586 02175000 * PRIOR TO A CHECK. NUMBER OF 0586 02176000 * IOB'S GENERATED. (MAXIMUM 0586 02177000 * NUMBER IS 99.) 0586 02178000 * NOTE - GAM USES JFCBFTEK FOR 0586 02179000 * THIS INFORMATION AND DOES 0586 02180000 * NOT USE THIS FIELD AT ALL. */ 02181000 * 4 JFCBUFMX CHAR(1), /* THE MAXIMUM NUMBER OF BUFFERS 02182000 * TO BE USED FOR DATA TRANSFER 0586 02183000 * FOR EACH LINE IN THIS LINE 0586 02184000 * GROUP (TCAM) */ 02185000 * 3 JFCNTM CHAR(1) BDY(WORD,4), /* THE NUMBER OF TRACKS THAT 0586 02186000 * DETERMINE THE DEVELOPMENT OF A 02187000 * MASTER INDEX. MAXIMUM NUMBER 02188000 * IS 99. (ISAM) */ 02189000 * 4 JFCBFSEQ PTR(8), /* TAPE POSITIONING INFORMATION 0586 02190000 * FOR CHECKPOINT RESTART. THIS 02191000 * FIELD IS USED TO PASS A 0586 02192000 * PHYSICAL FILE SEQUENCE COUNT 0586 02193000 * FROM CHECKPOINT TO RESTART. 0586 02194000 * THE COUNT TELLS THE PHYSICAL 0586 02195000 * POSITION OF THE TAPE VOLUME 0586 02196000 * THAT WAS BEING PROCESSED WHEN 02197000 * THE CHECKPOINT WAS TAKEN. 0586 02198000 * SA60703*/ 02199000 * 5 JFCPCI BIT(8), /* PROGRAM-CONTROLLED INTERRUPTION 02200000 * (PCI) FLAG BYTE (TCAM) */ 02201000 * 6 JFCPCIX1 BIT(1), /* PCI=(X,) RECEIVE OPERATIONS 0586 02202000 * ICB473*/ 02203000 * 6 JFCPCIX2 BIT(1), /* PCI=(,X) SEND OPERATIONS 0586 02204000 * X INDICATES THAT AFTER THE 0586 02205000 * FIRST BUFFER IS FILLED (ON 0586 02206000 * RECEIVE OPERATIONS) OR EMPTIED 02207000 * (ON SEND OPERATIONS), A PCI 0586 02208000 * OCCURS DURING THE FILLING OR 0586 02209000 * EMPTYING OF THE NEXT BUFFER. 0586 02210000 * THE FIRST BUFFER REMAINS 0586 02211000 * ALLOCATED AND ANOTHER IS 0586 02212000 * ALLOCATED. ICB473*/ 02213000 * 6 JFCPCIA1 BIT(1), /* PCI=(A,) RECEIVE OPERATIONS */ 02214000 * 6 JFCPCIA2 BIT(1), /* PCI=(,A) SEND OPERATIONS 0586 02215000 * A INDICATES THAT AFTER THE 0586 02216000 * FIRST BUFFER IS FILLED (ON 0586 02217000 * RECEIVE OPERATIONS) OR EMPTIED 02218000 * (ON SEND OPERATIONS), A PCI 0586 02219000 * OCCURS DURING THE FILLING OR 0586 02220000 * EMPTYING OF THE NEXT BUFFER. 0586 02221000 * THE FIRST BUFFER IS DEALLOCATED. 02222000 * A BUFFER IS ALLOCATED IN PLACE 02223000 * OF THE DEALLOCATED BUFFER. */ 02224000 * 6 JFCPCIN1 BIT(1), /* PCI=(N,) RECEIVE OPERATIONS */ 02225000 * 6 JFCPCIN2 BIT(1), /* PCI=(,N) SEND OPERATIONS 0586 02226000 * N INDICATES THAT NO PCI'S ARE 02227000 * TAKEN DURING FILLING (ON 0586 02228000 * RECEIVE OPERATIONS) OR EMPTYING 02229000 * (ON SEND OPERATIONS) OF BUFFERS. 02230000 * BUFFERS ARE DEALLOCATED AT THE 02231000 * END OF TRANSMISSION. */ 02232000 * 6 JFCPCIR1 BIT(1), /* PCI=(R,) RECEIVE OPERATIONS */ 02233000 * 6 JFCPCIR2 BIT(1), /* PCI=(,R) SEND OPERATIONS 0586 02234000 * R INDICATES THAT AFTER THE 0586 02235000 * FIRST BUFFER IS FILLED (ON 0586 02236000 * RECEIVE OPERATIONS) OR EMPTIED 02237000 * (ON SEND OPERATIONS), A PCI 0586 02238000 * OCCURS DURING THE FILLING OR 0586 02239000 * EMPTYING OF EACH SUCCEEDING 0586 02240000 * BUFFER. THE COMPLETED BUFFER 02241000 * IS DEALLOCATED, BUT NO NEW 0586 02242000 * BUFFER IS ALLOCATED TO TAKE 0586 02243000 * ITS PLACE. */ 02244000 * 0586 02245000 * /*******************************************************************/ 02246000 * /* */ 02247000 * /* NORMAL 108 SEGMENT */ 02248000 * /* */ 02249000 * /*******************************************************************/ 02250000 * 0586 02251000 * 3 JFCRESRV CHAR(4) BDY(WORD), /* FIRST BYTE CONTAINS NUMBER OF 02252000 * BYTES FOR TIME OF DAY. SECOND 02253000 * BYTE CONTAINS NUMBER OF BYTES 02254000 * FOR DATE. THIRD BYTE CONTAINS 02255000 * NUMBER OF BYTES FOR OUTSEQ. 0586 02256000 * FOURTH BYTE CONTAINS NUMBER OF 02257000 * BYTES IN. (TCAM) */ 02258000 * 4 JFCRKP FIXED(15) BDY(WORD), /* THE RELATIVE POSITION OF THE 02259000 * FIRST BYTE OF THE KEY WITHIN 0586 02260000 * EACH LOGICAL RECORD. MAXIMUM 02261000 * VALUE IS LOGICAL RECORD LENGTH 02262000 * MINUS KEY LENGTH. */ 02263000 * 4 JFCCYLOF CHAR(1), /* THE NUMBER OF TRACKS TO BE 0586 02264000 * RESERVED ON EACH CYLINDER TO 0586 02265000 * HOLD RECORDS THAT OVERFLOW 0586 02266000 * FROM OTHER TRACKS ON THAT 0586 02267000 * CYLINDER. MAXIMUM VALUE IS 0586 02268000 * 99. */ 02269000 * 4 JFCDBUFN CHAR(1), /* RESERVED */ 02270000 * 2 JFCINTVL CHAR(1) BDY(WORD); /* INTENTIONAL DELAY, IN SECONDS, 02271000 * BETWEEN PASSES THROUGH A 0586 02272000 * POLLING LIST (QTAM) */ 02273000 * 0586 02274000 * /*******************************************************************/ 02275000 * /* */ 02276000 * /* END OF NORMAL 108 SEGMENT */ 02277000 * /* */ 02278000 * /*******************************************************************/ 02279000 * 0587 02280000 * /*******************************************************************/ 02281000 * /* */ 02282000 * /* 108 PRINTER SEGMENT */ 02283000 * /* */ 02284000 * /* NOTE THIS SEGMENT REPLACES THE NORMAL 108 SEGMENT IF */ 02285000 * /* THE DD STATEMENT USES THE UCS PARAMETER. */ 02286000 * /* */ 02287000 * /*******************************************************************/ 02288000 * 0587 02289000 *DECLARE 0587 02290000 * 1 JFCUCSEG DEF(JFCRESRV) BDY(WORD), 0587 02291000 * 2 JFCUCSID CHAR(4) BDY(WORD), /* NAME OF THE UCS IMAGE TO BE 0587 02292000 * LOADED */ 02293000 * 2 JFCUCSOP BIT(8), /* OPERATION OF THE UCS IMAGE TO 02294000 * BE LOADED */ 02295000 * 3 JFCBEXTP BIT(1), /* JFCB EXTENSION PRESENT FOR 3800 02296000 * DEVICE (MDC302) @Z40MP9A*/ 02297000 * 3 JFCFOLD BIT(1), /* UCS IMAGE IS TO BE LOADED IN 0587 02298000 * THE FOLD MODE */ 02299000 * 3 JFCRSV25 BIT(1), /* RESERVED */ 02300000 * 3 JFCVER BIT(1), /* UCS IMAGE IS TO BE VERIFIED */ 02301000 * 3 JFCFCBAL BIT(1), /* FORMS ARE TO BE ALIGNED */ 02302000 * 3 JFCFCBVR BIT(1), /* FORMS CONTROL BUFFER (FCB) 0587 02303000 * IMAGE IS TO BE VERIFIED */ 02304000 * 3 JFCRSV26 BIT(1), /* RESERVED */ 02305000 * 3 JFCRSV27 BIT(1), /* RESERVED */ 02306000 * 0587 02307000 * /*******************************************************************/ 02308000 * /* */ 02309000 * /* END OF 108 PRINTER SEGMENT */ 02310000 * /* */ 02311000 * /*******************************************************************/ 02312000 * 0587 02313000 * 2 JFCOUTLI PTR(24) BDY(WORD,2),/* SMF - SYSOUT LIMIT. BINARY 0587 02314000 * REPRESENTATION OF THE OUTLIM= 02315000 * PARAMETER ON THE SYSOUT DD 0587 02316000 * STATEMENT. THE MAXIMUM NUMBER 02317000 * OF LOGICAL RECORDS SPECIFIED 0587 02318000 * FOR THIS OUTPUT DATA SET. */ 02319000 * 3 JFCTHRSH CHAR(1), /* RECORDS TO BE USED */ 02320000 * 4 JFCCPRI BIT(8), /* PRIORITY BETWEEN SEND AND 0587 02321000 * RECEIVE OPERATIONS (TCAM) */ 02322000 * 5 JFCRSV53 BIT(1), /* RESERVED MDC020*/ 02323000 * 5 JFCRSV54 BIT(1), /* RESERVED MDC019*/ 02324000 * 5 JFCRSV55 BIT(1), /* RESERVED MDC018*/ 02325000 * 5 JFCRSV33 BIT(1), /* RESERVED */ 02326000 * 5 JFCRSV34 BIT(1), /* RESERVED */ 02327000 * 5 JFCRECV BIT(1), /* RECEIVE PRIORITY MDC018*/ 02328000 * 5 JFCEQUAL BIT(1), /* EQUAL PRIORITY MDC019*/ 02329000 * 5 JFCSEND BIT(1), /* SEND PRIORITY MDC020*/ 02330000 * 3 JFCSOWA FIXED(15), /* LENGTH, IN BYTES, OF THE USER- 02331000 * PROVIDED WORK AREA (QTAM) */ 02332000 * 2 JFCBNTCS CHAR(1), /* NUMBER OF OVERFLOW TRACKS */ 02333000 * 2 JFCBNVOL CHAR(1), /* NUMBER OF VOLUME SERIAL NUMBERS*/ 02334000 * 2 JFCBVOLS CHAR(30) BDY(WORD,3),/* THE FIRST FIVE VOLUME SERIAL 02335000 * NUMBERS */ 02336000 * 3 JFCAVOLS (5) CHAR(6); /* THE FIRST FIVE VOLUME SERIAL 0587 02337000 * NUMBERS @Z30LP9A*/ 02338000 * 0587 02339000 *DECLARE 0588 02340000 * 1 JFCBS001 DEF(JFCBVOLS) BDY(WORD,3), /* @Z30LP9A*/ 02341000 * 2 * CHAR(22), /* FIRST 22 BYTES OF 0588 02342000 * JFCBVOLS @Z30LP9A*/ 02343000 * 2 JFCMSVGP CHAR(8) BDY(WORD), /* MASS STORAGE VOLUME GROUP FROM 02344000 * WHICH TO SELECT A VOLUME 0588 02345000 * (MDC306) @Z30LP9A*/ 02346000 * 2 JFCBEXTL CHAR(1), /* LENGTH OF BLOCK OF EXTRA VOLUME 02347000 * SERIAL NUMBERS (BEYOND FIVE) */ 02348000 * 2 JFCBEXAD CHAR(3), /* RELATIVE TRACK ADDRESS (TTR) 0588 02349000 * OF FIRST JFCB EXTENSION BLOCK 02350000 * FOR VOLUME SERIAL NUMBERS OR 0588 02351000 * TTR OF JFCB EXTENSION BLOCK 0588 02352000 * FOR 3800 (MDC303) @Z40MP9A*/ 02353000 * 2 JFCBPQTY CHAR(3) BDY(WORD), /* PRIMARY QUANTITY OF DIRECT 0588 02354000 * ACCESS STORAGE REQUIRED */ 02355000 * 3 JFCRUNIT CHAR(3), /* UNIT TYPE (EBCDIC) OF A DEVICE 02356000 * AT A REMOTE TERMINAL. THE 0588 02357000 * FIRST TWO CHARACTERS ARE RD 0588 02358000 * (READER), PR (PRINTER) OR PU 0588 02359000 * (PUNCH). THE THIRD CHARACTER 02360000 * IS A NUMBER FROM 1 TO 9. ICB387*/ 02361000 * 2 JFCBCTRI BIT(8), /* SPACE PARAMETERS */ 02362000 * 3 JFCBSPAC BIT(2), /* SPACE MASK BITS */ 02363000 * 3 JFCBMSGP BIT(1), /* REQUEST IS FOR A MASS STORAGE 02364000 * VOLUME GROUP (MSVGP) VOLUME 0588 02365000 * (MDC307) @Z30LP9A*/ 02366000 * 3 JFCRSV29 BIT(1), /* RESERVED */ 02367000 * 3 JFCONTIG BIT(1), /* CONTIG REQUEST */ 02368000 * 3 JFCMIXG BIT(1), /* MXIG REQUEST */ 02369000 * 3 JFCALX BIT(1), /* ALX REQUEST */ 02370000 * 3 JFCROUND BIT(1), /* ROUND REQUEST */ 02371000 * 2 JFCBSQTY CHAR(3) BDY(WORD), /* SECONDARY QUANTITY OF DIRECT 0588 02372000 * ACCESS STORAGE REQUIRED */ 02373000 * 3 JFCRQID FIXED(15), /* QUEUE IDENTIFICATION (QID) USED 02374000 * BY ACCESS METHOD TO DETERMINE 02375000 * THE REMOTE TERMINAL LOCATION 0588 02376000 * FOR THIS JOB. ICB387*/ 02377000 * 2 JFCFLGS1 BIT(8), /* FLAG BYTE (ICB488) SA53458*/ 02378000 * 3 JFCBDLET BIT(1), /* IF ONE, DELETE THE DATA SET 0588 02379000 * USED WHEN EXTENDING THE JOB 0588 02380000 * QUEUE OR SPOOL DATA SETS 0588 02381000 * (OS/VS1) (MDC305) @XM05457*/ 02382000 * 3 JFCTOPEN BIT(1), /* TAPE DATA SET HAS BEEN OPENED 02383000 * MDC026*/ 02384000 * 3 JFCBADSP BIT(1), /* AUTOMATIC DATA SET PROTECTION 02385000 * INDICATOR (MDC310) @Z40RP9A*/ 02386000 * 3 JFCRSV42 BIT(1), /* RESERVED (MDC311) */ 02387000 * 3 JFCBCEOV BIT(1), /* IF ONE, CHKPT=EOV SPECIFIED FOR 02388000 * THIS DATA SET (MDC312) @Z30JP9A*/ 02389000 * 3 JFCVRDS BIT(1), /* VIO DATA SET MDC006*/ 02390000 * 3 JFCRSV45 BIT(1), /* RESERVED */ 02391000 * 3 JFCBUAFF BIT(1), /* UNIT AFFINITY SPECIFIED FOR 0588 02392000 * THIS DATA SET (ICB488) SA53458*/ 02393000 * 2 JFCBDQTY CHAR(3) BDY(WORD), /* QUANTITY OF DIRECT ACCESS 0588 02394000 * STORAGE REQUIRED FOR A 0588 02395000 * DIRECTORY OR AN EMBEDDED INDEX 02396000 * AREA */ 02397000 * 2 JFCBSPNM PTR(24) BDY(WORD,4),/* MAIN STORAGE ADDRESS OF THE 0588 02398000 * JFCB WITH WHICH CYLINDERS ARE 02399000 * SPLIT */ 02400000 * 2 JFCBABST FIXED(15), /* RELATIVE ADDRESS OF FIRST TRACK 02401000 * TO BE ALLOCATED */ 02402000 * 2 JFCBSBNM PTR(24) BDY(WORD), /* MAIN STORAGE ADDRESS OF THE 0588 02403000 * JFCB FROM WHICH SPACE IS TO 0588 02404000 * BE SUBALLOCATED */ 02405000 * 2 JFCBDRLH CHAR(3) BDY(WORD,4),/* AVERAGE DATA BLOCK LENGTH */ 02406000 * 2 JFCBVLCT CHAR(1), /* VOLUME COUNT */ 02407000 * 2 JFCBSPTN CHAR(1), /* NUMBER OF TRACKS PER CYLINDER 02408000 * TO BE USED BY THIS DATA SET 0588 02409000 * WHEN SPLIT CYLINDER IS 0588 02410000 * INDICATED */ 02411000 * 2 JFCBEND CHAR(0) BDY(WORD); 0588 02412000 * 0589 02413000 * /* MACRO DECLARES USED BY THIS PROCEDURE @Y30LSFY*/ 02414000 * 0589 02415000 * 0589 02416000 * /* INITIALIZATION @Y30LSFY*/ 02417000 * DSIRC =0; /*@Y30LSFY*/ 02418000 SLR DSIRC,DSIRC 0589 02419000 * OLDERID2 = NEWERID2; 0590 02420000 L @15,@PC00001 0590 02421000 L @14,GDTTR2(,@15) 0590 02422000 MVC @TS00001(95),NEWERID2(@14) 0590 02423000 MVC OLDERID2(95,@14),@TS00001 0590 02424000 * NEWID2 = 'IOIF'; /*@Y30LSFY*/ 02425000 * 0591 02426000 MVC NEWID2(4,@14),@CC01812 0591 02427000 * /************************************************************/ 02428000 * /* @Y30LSFY*/ 02429000 * /* GET SPACE FOR WORK AREA IF POOL ID SPECIFIED @Y30LSFY*/ 02430000 * /* @Y30LSFY*/ 02431000 * /************************************************************/ 02432000 * 0592 02433000 * IF OPRPNO = 5 0592 02434000 * THEN 0592 02435000 L @14,@PC00001+4 0592 02436000 CLI OPRPNO(@14),5 0592 02437000 BNE @RF00592 0592 02438000 * DO; /*@Y30LSFY*/ 02439000 * IOINFSZ = MAXWASZ; /*@Y30LSFY*/ 02440000 * 0594 02441000 MVC IOINFSZ(4),@CF01354 0594 02442000 * CALL IDCSAGP0 (GDTTBL,IOINFSZ,INFWK,INFPOLID,SETZERO); 02443000 * 0595 02444000 ST @15,@AL00001 0595 02445000 LA @09,IOINFSZ 0595 02446000 ST @09,@AL00001+4 0595 02447000 L @14,OPRICS(,@14) 0595 02448000 L @01,INFWKPT(,@14) 0595 02449000 ST @01,@AL00001+8 0595 02450000 L @01,INFPOL(,@14) 0595 02451000 ST @01,@AL00001+12 0595 02452000 LA @14,SETZERO 0595 02453000 ST @14,@AL00001+16 0595 02454000 MVI @AL00001+16,X'80' 0595 02455000 L @15,GDTGPL(,@15) 0595 02456000 LA @01,@AL00001 0595 02457000 BALR @14,@15 0595 02458000 * RESPECIFY RTNREG RSTD; 0596 02459000 * TESTRC = RTNREG; 0597 02460000 STH RTNREG,TESTRC 0597 02461000 * RESPECIFY RTNREG UNRSTD; /*@Y30LSFY*/ 02462000 * 0598 02463000 * IF TESTRC ^= 0 0599 02464000 * THEN 0599 02465000 LH @15,TESTRC 0599 02466000 SLR @14,@14 0599 02467000 CR @15,@14 0599 02468000 BE @RF00599 0599 02469000 * DO; /*@Y30LSFY*/ 02470000 * INFWK = ZERO; /*@Y30LSFY*/ 02471000 L @03,@PC00001+4 0601 02472000 L @03,OPRICS(,@03) 0601 02473000 L @03,INFWKPT(,@03) 0601 02474000 ST @14,INFWK(,@03) 0601 02475000 * DSIRC = 8; /*@Y30LSFY*/ 02476000 LA DSIRC,8 0602 02477000 * RETURN CODE (DSIRC); /*@Y30LSFY*/ 02478000 LR @15,DSIRC 0603 02479000 L @13,4(,@13) 0603 02480000 L @14,12(,@13) 0603 02481000 LM @00,@12,20(@13) 0603 02482000 BR @14 0603 02483000 * END; /*@Y30LSFY*/ 02484000 * INFLEN1 = MAXWASZ; /*@Y30LSFY*/ 02485000 @RF00599 L @15,@PC00001+4 0605 02486000 L @01,OPRICS(,@15) 0605 02487000 L @01,INFWKPT(,@01) 0605 02488000 L @01,INFWK(,@01) 0605 02489000 MVC INFLEN1(2,@01),@CH01354 0605 02490000 * END; /*@Y30LSFY*/ 02491000 * 0606 02492000 * /************************************************************/ 02493000 * /* @Y30LSFY*/ 02494000 * /* DETERMINE AMOUNT OF INFORMATION TO RETURN @Y30LSFY*/ 02495000 * /* AND IF THERE IS A LARGE ENOUGH WORK AREA PROVIDED OR */ 02496000 * /* GOTTEN VIA UGPOOL @Y30LSFY*/ 02497000 * /* @Y30LSFY*/ 02498000 * /************************************************************/ 02499000 * 0607 02500000 * /* BASE OPTION BYTE @Y30LSFY*/ 02501000 * RESPECIFY IOINFOPT BASED (OPTPTR); /*@Y30LSFY*/ 02502000 * 0607 02503000 @RF00592 DS 0H 0608 02504000 * /* INIT COUNTER @Y30LSFY*/ 02505000 * INFOCNT = ZERO; /*@Y30LSFY*/ 02506000 * 0608 02507000 SLR INFOCNT,INFOCNT 0608 02508000 * IF IOINFDVT = ON 0609 02509000 * THEN 0609 02510000 L @03,@PC00001+4 0609 02511000 L @03,OPRICS(,@03) 0609 02512000 L @03,OPTPTR(,@03) 0609 02513000 TM IOINFDVT(@03),B'10000000' 0609 02514000 BNO @RF00609 0609 02515000 * INFOCNT = LENGTH(INFDVT); /*@Y30LSFY*/ 02516000 LA INFOCNT,16 0610 02517000 * IF IOINFVOL = ON 0611 02518000 * THEN 0611 02519000 @RF00609 L @03,@PC00001+4 0611 02520000 L @03,OPRICS(,@03) 0611 02521000 L @03,OPTPTR(,@03) 0611 02522000 TM IOINFVOL(@03),B'01000000' 0611 02523000 BNO @RF00611 0611 02524000 * INFOCNT = INFOCNT + LENGTH(INFST1); /*@Y30LSFY*/ 02525000 AL INFOCNT,@CF01429 0612 02526000 * IF IOINFDSN = ON 0613 02527000 * THEN 0613 02528000 @RF00611 L @03,@PC00001+4 0613 02529000 L @03,OPRICS(,@03) 0613 02530000 L @03,OPTPTR(,@03) 0613 02531000 TM IOINFDSN(@03),B'00100000' 0613 02532000 BNO @RF00613 0613 02533000 * INFOCNT = INFOCNT + LENGTH(INFDSST); /*@Y30LSFY*/ 02534000 AL INFOCNT,@CF00879 0614 02535000 * IF IOINFTMS = ON 0615 02536000 * THEN 0615 02537000 @RF00613 L @03,@PC00001+4 0615 02538000 L @03,OPRICS(,@03) 0615 02539000 L @03,OPTPTR(,@03) 0615 02540000 TM IOINFTMS(@03),B'00001000' 0615 02541000 BNO @RF00615 0615 02542000 * INFOCNT = INFOCNT + LENGTH(INFOFMT4); /*@Y30SSFY*/ 02543000 AL INFOCNT,@CF01161 0616 02544000 * INFOCNT = INFOCNT + HDRSZ; /*@Y30LSFY*/ 02545000 @RF00615 AL INFOCNT,@CF00039 0617 02546000 * IF INFOCNT > INFLEN1 0618 02547000 * THEN 0618 02548000 L @03,@PC00001+4 0618 02549000 L @15,OPRICS(,@03) 0618 02550000 L @01,INFWKPT(,@15) 0618 02551000 L @14,INFWK(,@01) 0618 02552000 CH INFOCNT,INFLEN1(,@14) 0618 02553000 BNH @RF00618 0618 02554000 * DO; /*@Y30LSFY*/ 02555000 * INFLEN2 = INFOCNT; /*@Y30LSFY*/ 02556000 STH INFOCNT,INFLEN2(,@14) 0620 02557000 * DSIRC = 8; /*@Y30LSFY*/ 02558000 LA DSIRC,8 0621 02559000 * IF OPRPNO = 5 0622 02560000 * THEN 0622 02561000 CLI OPRPNO(@03),5 0622 02562000 BNE @RF00622 0622 02563000 * DO; /*@Y30LSFY*/ 02564000 * 0623 02565000 * CALL IDCSAFP0 (GDTTBL,INFPOLID); /*@Y30SSFY*/ 02566000 * 0624 02567000 L @03,@PC00001 0624 02568000 ST @03,@AL00001 0624 02569000 L @01,INFPOL(,@15) 0624 02570000 ST @01,@AL00001+4 0624 02571000 MVI @AL00001+4,X'80' 0624 02572000 L @15,GDTFPL(,@03) 0624 02573000 LA @01,@AL00001 0624 02574000 BALR @14,@15 0624 02575000 * INFWK = ZERO; /*@Y30LSFY*/ 02576000 L @03,@PC00001+4 0625 02577000 L @03,OPRICS(,@03) 0625 02578000 L @03,INFWKPT(,@03) 0625 02579000 SLR @15,@15 0625 02580000 ST @15,INFWK(,@03) 0625 02581000 * END; /*@Y30LSFY*/ 02582000 * 0626 02583000 * RETURN CODE (DSIRC); /*@Y30LSFY*/ 02584000 @RF00622 LR @15,DSIRC 0627 02585000 L @13,4(,@13) 0627 02586000 L @14,12(,@13) 0627 02587000 LM @00,@12,20(@13) 0627 02588000 BR @14 0627 02589000 * END; /*@Y30LSFY*/ 02590000 * 0628 02591000 * /************************************************************/ 02592000 * /* @Y30LSFY*/ 02593000 * /* FILL IN INFORMATION REQUESTED @Y30LSFY*/ 02594000 * /* @Y30LSFY*/ 02595000 * /************************************************************/ 02596000 * 0629 02597000 * /* INITIALIZE RETURN AREA @Y30LSFY*/ 02598000 * INFWK2 = INFWK + HDRSZ; /*@Y30LSFY*/ 02599000 @RF00618 L @05,@PC00001+4 0629 02600000 L @05,OPRICS(,@05) 0629 02601000 L @01,INFWKPT(,@05) 0629 02602000 L @15,INFWK(,@01) 0629 02603000 LA INFWK2,4 0629 02604000 ALR INFWK2,@15 0629 02605000 * INFWK3 = INFWK2; /*@Y30LSFY*/ 02606000 LR INFWK3,INFWK2 0630 02607000 * INFWK4 = INFWK3; /*@Y30SSFY*/ 02608000 LR INFWK4,INFWK3 0631 02609000 * INFLEN2 = ZERO; /*@Y30LSFY*/ 02610000 * 0632 02611000 SLR @14,@14 0632 02612000 STH @14,INFLEN2(,@15) 0632 02613000 * /************************************************************/ 02614000 * /* IF DSNAME,TIMESTAMPS OR VOLSER(S) REQUESTED, @Y30SSFY*/ 02615000 * /* ISSUE RDJFCB FOR DDNAME PROVIDED. @Y30LSFY*/ 02616000 * /* IF MACRO WAS NOT SUCCESSFUL, DDNAME WAS @Y30LSFY*/ 02617000 * /* NOT FOUND. PRINT MSG IF REQUESTED. @Y30LSFY*/ 02618000 * /************************************************************/ 02619000 * 0633 02620000 * IF IOINFDSN=ON | IOINFVOL=ON | IOINFTMS = ON 0633 02621000 * THEN 0633 02622000 L @05,OPTPTR(,@05) 0633 02623000 TM IOINFDSN(@05),B'01101000' 0633 02624000 BZ @RF00633 0633 02625000 * DO; /*@Y30SSFY*/ 02626000 * /* GET A WORKAREA FOR THE RDJFCB @Y30LSFY*/ 02627000 * 0635 02628000 * CALL IDCSAGS0 (GDTTBL,WKASZ,WRKARPTR); /*@Y30SSFY*/ 02629000 * 0635 02630000 L @05,@PC00001 0635 02631000 ST @05,@AL00001 0635 02632000 LA @15,@CF01418 0635 02633000 ST @15,@AL00001+4 0635 02634000 LA @15,WRKARPTR 0635 02635000 ST @15,@AL00001+8 0635 02636000 MVI @AL00001+8,X'80' 0635 02637000 L @15,GDTGSP(,@05) 0635 02638000 LA @01,@AL00001 0635 02639000 BALR @14,@15 0635 02640000 * RESPECIFY RTNREG RSTD; 0636 02641000 * TESTRC = RTNREG; 0637 02642000 STH RTNREG,TESTRC 0637 02643000 * RESPECIFY RTNREG UNRSTD; /*@Y30LSFY*/ 02644000 * 0638 02645000 * IF TESTRC ^= 0 0639 02646000 * THEN 0639 02647000 LH @05,TESTRC 0639 02648000 LTR @05,@05 0639 02649000 BZ @RF00639 0639 02650000 * DO; /*@Y30LSFY*/ 02651000 * DSIRC = 8; /*@Y30LSFY*/ 02652000 * 0641 02653000 LA DSIRC,8 0641 02654000 * IF OPRPNO = 5 0642 02655000 * THEN 0642 02656000 L @03,@PC00001+4 0642 02657000 CLI OPRPNO(@03),5 0642 02658000 BNE @RF00642 0642 02659000 * DO; /*@Y30LSFY*/ 02660000 * 0643 02661000 * CALL IDCSAFP0 (GDTTBL,INFPOLID); /*@Y30SSFY*/ 02662000 * 0644 02663000 L @15,@PC00001 0644 02664000 ST @15,@AL00001 0644 02665000 L @03,OPRICS(,@03) 0644 02666000 L @03,INFPOL(,@03) 0644 02667000 ST @03,@AL00001+4 0644 02668000 MVI @AL00001+4,X'80' 0644 02669000 L @15,GDTFPL(,@15) 0644 02670000 LA @01,@AL00001 0644 02671000 BALR @14,@15 0644 02672000 * INFWK = ZERO; /*@Y30LSFY*/ 02673000 L @03,@PC00001+4 0645 02674000 L @03,OPRICS(,@03) 0645 02675000 L @03,INFWKPT(,@03) 0645 02676000 SLR @15,@15 0645 02677000 ST @15,INFWK(,@03) 0645 02678000 * END; /*@Y30LSFY*/ 02679000 * RETURN CODE (DSIRC); /*@Y30LSFY*/ 02680000 @RF00642 LR @15,DSIRC 0647 02681000 L @13,4(,@13) 0647 02682000 L @14,12(,@13) 0647 02683000 LM @00,@12,20(@13) 0647 02684000 BR @14 0647 02685000 * END; /*@Y30LSFY*/ 02686000 * 0648 02687000 * DCBPTR = ADDR (READDCB); /*@Y30LSFY*/ 02688000 @RF00639 L @15,WRKARPTR 0649 02689000 LA @14,READDCB(,@15) 0649 02690000 ST @14,DCBPTR 0649 02691000 * GENADDR = ADDR (QSAMDCB); /*@Y30LSFY*/ 02692000 LA GENADDR,QSAMDCB 0650 02693000 * READDCB (1:SIZEQSAM) = GENAREA (1:SIZEQSAM);/*@Y30LSFY*/ 02694000 MVC READDCB(96,@15),GENAREA(GENADDR) 0651 02695000 * DCBEXLSA = ADDR (DCBRLIST); /*@Y30LSFY*/ 02696000 LA @05,DCBRLIST 0652 02697000 STCM @05,7,DCBEXLSA+28(@14) 0652 02698000 * DCBDDNAM = DFILE ; /*@Y30LSFY*/ 02699000 L @05,@PC00001+4 0653 02700000 L @05,OPRICS(,@05) 0653 02701000 L @05,INFDNM(,@05) 0653 02702000 MVC DCBDDNAM+40(8,@14),DFILE(@05) 0653 02703000 * DCBRLPTR = ADDR (WORKAREA); /*@Y30LSFY*/ 02704000 STCM @15,7,DCBRLPTR 0654 02705000 * DCBRLID = '87'X; /*@Y30LSFY*/ 02706000 MVI DCBRLID,X'87' 0655 02707000 * DCBEXWRD = ADDR (READDCB); /*@Y30LSFY*/ 02708000 LA @05,READDCB(,@15) 0656 02709000 ST @05,DCBEXWRD 0656 02710000 * DCBEXEND = ON; /*@Y30LSFY*/ 02711000 * 0657 02712000 OI DCBEXEND,B'10000000' 0657 02713000 *LRDJF1: GEN(RDJFCB MF=(E,DCBEXWRD)); /*@Y30LSFY*/ 02714000 * 0658 02715000 LRDJF1 RDJFCB MF=(E,DCBEXWRD) 02716000 * RESPECIFY RTNREG RSTD; 0659 02717000 * TESTRC = RTNREG; 0660 02718000 STH RTNREG,TESTRC 0660 02719000 * RESPECIFY RTNREG UNRSTD; /*@Y30LSFY*/ 02720000 * 0661 02721000 * IF GDTDBG = NULLPTR 0662 02722000 * THEN; 0662 02723000 L @05,@PC00001 0662 02724000 L @05,GDTDBG(,@05) 0662 02725000 LTR @05,@05 0662 02726000 BZ @RT00662 0662 02727000 * ELSE 0664 02728000 * CALL IDCDB010 (GDTTBL,'IO00'); 0664 02729000 L @05,@PC00001 0664 02730000 ST @05,@AL00001 0664 02731000 LA @15,@CC01817 0664 02732000 ST @15,@AL00001+4 0664 02733000 MVI @AL00001+4,X'80' 0664 02734000 L @15,GDTDBG(,@05) 0664 02735000 LA @01,@AL00001 0664 02736000 BALR @14,@15 0664 02737000 * /*@Y30LSFY*/ 02738000 * 0665 02739000 * IF TESTRC ^= 0 0665 02740000 * THEN 0665 02741000 @RT00662 LH @05,TESTRC 0665 02742000 LTR @05,@05 0665 02743000 BZ @RF00665 0665 02744000 * DO; /*@Y30LSFY*/ 02745000 * DSIRC = 4; /*@Y30LSFY*/ 02746000 LA @15,4 0667 02747000 LR DSIRC,@15 0667 02748000 * INFLEN2 = HDRSZ; /*@Y30LSFY*/ 02749000 * 0668 02750000 L @03,@PC00001+4 0668 02751000 L @03,OPRICS(,@03) 0668 02752000 L @03,INFWKPT(,@03) 0668 02753000 L @03,INFWK(,@03) 0668 02754000 STH @15,INFLEN2(,@03) 0668 02755000 * CALL IDCSAFS0 (GDTTBL,WRKARPTR); /*@Y30SSFY*/ 02756000 * 0669 02757000 L @03,@PC00001 0669 02758000 ST @03,@AL00001 0669 02759000 LA @15,WRKARPTR 0669 02760000 ST @15,@AL00001+4 0669 02761000 L @15,GDTFSP(,@03) 0669 02762000 LA @01,@AL00001 0669 02763000 BALR @14,@15 0669 02764000 * IF OPRPNO = 5 0670 02765000 * THEN 0670 02766000 * 0670 02767000 L @03,@PC00001+4 0670 02768000 CLI OPRPNO(@03),5 0670 02769000 BNE @RF00670 0670 02770000 * CALL IDCSAFP0 (GDTTBL,INFPOLID); /*@Y30SSFY*/ 02771000 * 0671 02772000 L @15,@PC00001 0671 02773000 ST @15,@AL00001 0671 02774000 L @03,OPRICS(,@03) 0671 02775000 L @03,INFPOL(,@03) 0671 02776000 ST @03,@AL00001+4 0671 02777000 MVI @AL00001+4,X'80' 0671 02778000 L @15,GDTFPL(,@15) 0671 02779000 LA @01,@AL00001 0671 02780000 BALR @14,@15 0671 02781000 * INFWK = ZERO; /*@Y30LSFY*/ 02782000 @RF00670 L @03,@PC00001+4 0672 02783000 L @03,OPRICS(,@03) 0672 02784000 L @01,INFWKPT(,@03) 0672 02785000 SLR @00,@00 0672 02786000 ST @00,INFWK(,@01) 0672 02787000 * IF IOINFSUP = OFF 0673 02788000 * THEN 0673 02789000 L @01,OPTPTR(,@03) 0673 02790000 TM IOINFSUP(@01),B'00010000' 0673 02791000 BNZ @RF00673 0673 02792000 * DO; /*@Y30LSFY*/ 02793000 * DARGSENT = DDNGSTID; /*@Y30LSFY*/ 02794000 L @15,DDSTRU 0675 02795000 MVI DARGSENT(@15),X'24' 0675 02796000 * DARGDBP = INFDNM; /*@Y30LSFY*/ 02797000 L @03,INFDNM(,@03) 0676 02798000 ST @03,DARGDBP(,@15) 0676 02799000 * DARGILP = 8; /*@Y30LSFY*/ 02800000 MVC DARGILP(2,@15),@CH00176 0677 02801000 * CALL BLDAMSG; /*@Y30LSFY*/ 02802000 BAL @14,BLDAMSG 0678 02803000 * END; /*@Y30LSFY*/ 02804000 * RETURN CODE (DSIRC); /*@Y30LSFY*/ 02805000 @RF00673 LR @15,DSIRC 0680 02806000 L @13,4(,@13) 0680 02807000 L @14,12(,@13) 0680 02808000 LM @00,@12,20(@13) 0680 02809000 BR @14 0680 02810000 * END; /*@Y30LSFY*/ 02811000 * 0681 02812000 * JFCBPTR = WRKARPTR; /*@Y30SSFY*/ 02813000 * 0682 02814000 @RF00665 L JFCBPTR,WRKARPTR 0682 02815000 * /******************************************************/ 02816000 * /* @Y30LSFY*/ 02817000 * /* PROCESS DATA SET NAME IF REQUESTED @Y30LSFY*/ 02818000 * /* @Y30LSFY*/ 02819000 * /******************************************************/ 02820000 * 0683 02821000 * IF IOINFDSN = ON 0683 02822000 * THEN 0683 02823000 L @15,@PC00001+4 0683 02824000 L @15,OPRICS(,@15) 0683 02825000 L @01,OPTPTR(,@15) 0683 02826000 TM IOINFDSN(@01),B'00100000' 0683 02827000 BNO @RF00683 0683 02828000 * DO; /*@Y30LSFY*/ 02829000 * INFDSID = DSNID; /*@Y30LSFY*/ 02830000 L @01,INFWKPT(,@15) 0685 02831000 L @15,INFWK(,@01) 0685 02832000 MVC INFDSID(2,@15),@CH00216 0685 02833000 * INFDSLN = DSNLGT; /*@Y30LSFY*/ 02834000 MVC INFDSLN(2,@15),@CH00661 0686 02835000 * INFDSNM = JFCBDSNM; /*@Y30LSFY*/ 02836000 MVC INFDSNM(44,@15),JFCBDSNM(JFCBPTR) 0687 02837000 * INFLEN2 = LENGTH(INFDSST); /*@Y30LSFY*/ 02838000 LA @14,48 0688 02839000 STH @14,INFLEN2(,@15) 0688 02840000 * INFWK2 = INFWK2 + LENGTH(INFDSST); /*@Y30LSFY*/ 02841000 ALR INFWK2,@14 0689 02842000 * INFWK3 = INFWK2; /*@Y30LSFY*/ 02843000 LR INFWK3,INFWK2 0690 02844000 * INFWK4 = INFWK3; /*@Y30SSFY*/ 02845000 LR INFWK4,INFWK3 0691 02846000 * END; /*@Y30LSFY*/ 02847000 * 0692 02848000 * /******************************************************/ 02849000 * /* @Y30LSFY*/ 02850000 * /* PROCESS VOLUME SERIALS IF REQUESTED @Y30LSFY*/ 02851000 * /* @Y30LSFY*/ 02852000 * /******************************************************/ 02853000 * 0693 02854000 * IF IOINFVOL = ON 0693 02855000 * THEN 0693 02856000 @RF00683 L @15,@PC00001+4 0693 02857000 L @01,OPRICS(,@15) 0693 02858000 L @01,OPTPTR(,@01) 0693 02859000 TM IOINFVOL(@01),B'01000000' 0693 02860000 BNO @RF00693 0693 02861000 * DO; /*@Y30LSFY*/ 02862000 * INFVID = VLSRID; /*@Y30LSFY*/ 02863000 MVC INFVID(2,INFWK2),@CH00150 0695 02864000 * IF JFCBNVOL > MAXVS 0696 02865000 * THEN 0696 02866000 CLI JFCBNVOL(JFCBPTR),5 0696 02867000 BNH @RF00696 0696 02868000 * NMSER = MAXVS; /*@Y30LSFY*/ 02869000 LA NMSER,5 0697 02870000 * ELSE 0698 02871000 * NMSER = JFCBNVOL; /*@Y30LSFY*/ 02872000 * 0698 02873000 B @RC00696 0698 02874000 @RF00696 SLR NMSER,NMSER 0698 02875000 IC NMSER,JFCBNVOL(,JFCBPTR) 0698 02876000 * INFVLEN = NMSER * VLSRSZ; /*@Y30LSFY*/ 02877000 @RC00696 LR @15,NMSER 0699 02878000 MH @15,@CH00153 0699 02879000 STCM @15,3,INFVLEN(INFWK2) 0699 02880000 * INFVSER(1:INFVLEN) = JFCBVOLS; /*@Y30LSFY*/ 02881000 LR @14,@15 0700 02882000 BCTR @14,0 0700 02883000 EX @14,@SM01835 0700 02884000 * INFLEN2 = INFLEN2 + INFVLEN + HDRSZ; /*@Y30LSFY*/ 02885000 L @14,@PC00001+4 0701 02886000 L @01,OPRICS(,@14) 0701 02887000 L @01,INFWKPT(,@01) 0701 02888000 L @14,INFWK(,@01) 0701 02889000 LA @09,4 0701 02890000 LH @08,INFLEN2(,@14) 0701 02891000 ALR @08,@15 0701 02892000 ALR @08,@09 0701 02893000 STH @08,INFLEN2(,@14) 0701 02894000 * INFWK3 = INFWK3 + INFVLEN + HDRSZ; /*@Y30LSFY*/ 02895000 ALR @15,INFWK3 0702 02896000 ALR @15,@09 0702 02897000 LR INFWK3,@15 0702 02898000 * INFWK4 = INFWK3; /*@Y30SSFY*/ 02899000 * 0703 02900000 LR INFWK4,INFWK3 0703 02901000 * END; /*@Y30LSFY*/ 02902000 * 0704 02903000 * /******************************************************/ 02904000 * /* @Y30SSFY*/ 02905000 * /* SAVE FIRST VOLSER IF TIMESTAMPS REQUESTED @Y30SSFY*/ 02906000 * /* @Y30SSFY*/ 02907000 * /******************************************************/ 02908000 * 0705 02909000 * IF IOINFTMS = ON 0705 02910000 * THEN 0705 02911000 @RF00693 L @03,@PC00001+4 0705 02912000 L @03,OPRICS(,@03) 0705 02913000 L @03,OPTPTR(,@03) 0705 02914000 TM IOINFTMS(@03),B'00001000' 0705 02915000 BNO @RF00705 0705 02916000 * CLVLSR = JFCBVOLS; /*@Y30SSFY*/ 02917000 * 0706 02918000 L @03,WRKARPTR 0706 02919000 MVC CLVLSR(6,@03),JFCBVOLS(JFCBPTR) 0706 02920000 * ELSE 0707 02921000 * /**************************************************/ 02922000 * /* @Y30SSFY*/ 02923000 * /* FREE WORKAREA IF TIMESTAMPS NOT REQUESTED */ 02924000 * /* @Y30SSFY*/ 02925000 * /**************************************************/ 02926000 * 0707 02927000 * CALL IDCSAFS0 (GDTTBL,WRKARPTR); /*@Y30SSFY*/ 02928000 * 0707 02929000 B @RC00705 0707 02930000 @RF00705 L @05,@PC00001 0707 02931000 ST @05,@AL00001 0707 02932000 LA @03,WRKARPTR 0707 02933000 ST @03,@AL00001+4 0707 02934000 L @15,GDTFSP(,@05) 0707 02935000 LA @01,@AL00001 0707 02936000 BALR @14,@15 0707 02937000 * END; /*@Y30LSFY*/ 02938000 * 0708 02939000 @RC00705 DS 0H 0709 02940000 * /************************************************************/ 02941000 * /* @Y30LSFY*/ 02942000 * /* PROCESS DEVICE CHARACTERISTICS IF REQUESTED. @Y30LSFY*/ 02943000 * /* ISSUE DEVTYPE. IF MACRO WAS NOT SUCCESSFUL @Y30LSFY*/ 02944000 * /* DDNAME WAS NOT FOUND. PRINT MSG IF REQUESTED. @Y30LSFY*/ 02945000 * /* @Y30LSFY*/ 02946000 * /************************************************************/ 02947000 * 0709 02948000 * IF IOINFDVT = ON /*@Y30LSFY*/ 02949000 * THEN 0709 02950000 @RF00633 L @05,@PC00001+4 0709 02951000 L @05,OPRICS(,@05) 0709 02952000 L @03,OPTPTR(,@05) 0709 02953000 TM IOINFDVT(@03),B'10000000' 0709 02954000 BNO @RF00709 0709 02955000 * DO; /*@Y30LSFY*/ 02956000 * DEVDDN = DFILE; /*@Y30LSFY*/ 02957000 * 0711 02958000 L @05,INFDNM(,@05) 0711 02959000 MVC DEVDDN(8),DFILE(@05) 0711 02960000 * RFY (REG6,REG7) RESTRICTED; /*@Y30LSFY*/ 02961000 * REG6 = ADDR(DEVDDN); /*@Y30LSFY*/ 02962000 LA REG6,DEVDDN 0713 02963000 * REG7 = ADDR(DEVCH); /*@Y30LSFY*/ 02964000 * 0714 02965000 LA REG7,DEVCH 0714 02966000 *LDEVT1: GEN (DEVTYPE (REG6),(REG7),DEVTAB ); /*@Y30LSFY*/ 02967000 * 0715 02968000 LDEVT1 DEVTYPE (REG6),(REG7),DEVTAB 02969000 * RESPECIFY RTNREG RSTD; 0716 02970000 * TESTRC = RTNREG; 0717 02971000 STH RTNREG,TESTRC 0717 02972000 * RESPECIFY RTNREG UNRSTD; /*@Y30LSFY*/ 02973000 * 0718 02974000 * RFY (REG6,REG7) UNRESTRICTED; /*@Y30LSFY*/ 02975000 * 0719 02976000 * IF GDTDBG = NULLPTR 0720 02977000 * THEN; 0720 02978000 L @05,@PC00001 0720 02979000 L @05,GDTDBG(,@05) 0720 02980000 LTR @05,@05 0720 02981000 BZ @RT00720 0720 02982000 * ELSE 0722 02983000 * CALL IDCDB010 (GDTTBL,'IO01'); 0722 02984000 L @05,@PC00001 0722 02985000 ST @05,@AL00001 0722 02986000 LA @03,@CC01820 0722 02987000 ST @03,@AL00001+4 0722 02988000 MVI @AL00001+4,X'80' 0722 02989000 L @15,GDTDBG(,@05) 0722 02990000 LA @01,@AL00001 0722 02991000 BALR @14,@15 0722 02992000 * /*@Y30LSFY*/ 02993000 * 0723 02994000 * IF TESTRC ^= 0 0723 02995000 * THEN 0723 02996000 @RT00720 LH @05,TESTRC 0723 02997000 LTR @05,@05 0723 02998000 BZ @RF00723 0723 02999000 * DO; /*@Y30LSFY*/ 03000000 * DSIRC = 4; /*@Y30LSFY*/ 03001000 LA @15,4 0725 03002000 LR DSIRC,@15 0725 03003000 * INFLEN2 = HDRSZ; /*@Y30LSFY*/ 03004000 L @03,@PC00001+4 0726 03005000 L @14,OPRICS(,@03) 0726 03006000 L @01,INFWKPT(,@14) 0726 03007000 L @01,INFWK(,@01) 0726 03008000 STH @15,INFLEN2(,@01) 0726 03009000 * IF OPRPNO = 5 0727 03010000 * THEN 0727 03011000 * 0727 03012000 CLI OPRPNO(@03),5 0727 03013000 BNE @RF00727 0727 03014000 * CALL IDCSAFP0 (GDTTBL,INFPOLID); /*@Y30SSFY*/ 03015000 * 0728 03016000 L @03,@PC00001 0728 03017000 ST @03,@AL00001 0728 03018000 L @01,INFPOL(,@14) 0728 03019000 ST @01,@AL00001+4 0728 03020000 MVI @AL00001+4,X'80' 0728 03021000 L @15,GDTFPL(,@03) 0728 03022000 LA @01,@AL00001 0728 03023000 BALR @14,@15 0728 03024000 * INFWK = ZERO; /*@Y30LSFY*/ 03025000 @RF00727 L @03,@PC00001+4 0729 03026000 L @03,OPRICS(,@03) 0729 03027000 L @01,INFWKPT(,@03) 0729 03028000 SLR @00,@00 0729 03029000 ST @00,INFWK(,@01) 0729 03030000 * IF IOINFSUP = OFF 0730 03031000 * THEN 0730 03032000 L @01,OPTPTR(,@03) 0730 03033000 TM IOINFSUP(@01),B'00010000' 0730 03034000 BNZ @RF00730 0730 03035000 * DO; /*@Y30LSFY*/ 03036000 * DARGSENT = DDNGSTID; /*@Y30LSFY*/ 03037000 L @15,DDSTRU 0732 03038000 MVI DARGSENT(@15),X'24' 0732 03039000 * DARGDBP = INFDNM; /*@Y30LSFY*/ 03040000 L @03,INFDNM(,@03) 0733 03041000 ST @03,DARGDBP(,@15) 0733 03042000 * DARGILP = 8; /*@Y30LSFY*/ 03043000 MVC DARGILP(2,@15),@CH00176 0734 03044000 * CALL BLDAMSG; /*@Y30LSFY*/ 03045000 BAL @14,BLDAMSG 0735 03046000 * END; /*@Y30LSFY*/ 03047000 * RETURN CODE (DSIRC); /*@Y30LSFY*/ 03048000 @RF00730 LR @15,DSIRC 0737 03049000 L @13,4(,@13) 0737 03050000 L @14,12(,@13) 0737 03051000 LM @00,@12,20(@13) 0737 03052000 BR @14 0737 03053000 * END; /*@Y30LSFY*/ 03054000 * 0738 03055000 * INFDEVT = DEVCH(1:12); /*@Y30LSFY*/ 03056000 @RF00723 MVC INFDEVT(12,INFWK3),DEVCH 0739 03057000 * INFLEN2 = INFLEN2 + LENGTH(INFDVT); /*@Y30LSFY*/ 03058000 L @05,@PC00001+4 0740 03059000 L @05,OPRICS(,@05) 0740 03060000 L @05,INFWKPT(,@05) 0740 03061000 L @05,INFWK(,@05) 0740 03062000 LA @03,16 0740 03063000 LH @15,INFLEN2(,@05) 0740 03064000 ALR @15,@03 0740 03065000 STH @15,INFLEN2(,@05) 0740 03066000 * INFDEVID = DVTID; /*@Y30LSFY*/ 03067000 MVC INFDEVID(2,INFWK3),@CH00159 0741 03068000 * INFDEVLN = LENGTH(INFDEVT); /*@Y30LSFY*/ 03069000 MVC INFDEVLN(2,INFWK3),@CH00035 0742 03070000 * INFWK4 = INFWK4 + LENGTH(INFDVT); /*@Y30SSFY*/ 03071000 ALR INFWK4,@03 0743 03072000 * END; /*@Y30LSFY*/ 03073000 * 0744 03074000 * /************************************************************/ 03075000 * /* @Y30SSFY*/ 03076000 * /* PROCESS FORMAT 4 DSCB TIMESTAMPS IF REQUESTED @Y30SSFY*/ 03077000 * /* @Y30SSFY*/ 03078000 * /************************************************************/ 03079000 * 0745 03080000 * IF IOINFTMS = ON 0745 03081000 * THEN 0745 03082000 @RF00709 L @03,@PC00001+4 0745 03083000 L @03,OPRICS(,@03) 0745 03084000 L @03,OPTPTR(,@03) 0745 03085000 TM IOINFTMS(@03),B'00001000' 0745 03086000 BNO @RF00745 0745 03087000 * DO; /*@Y30SSFY*/ 03088000 * 0746 03089000 * /******************************************************/ 03090000 * /* @Y30SSFY*/ 03091000 * /* SET UP CAMLST TO SEARCH FOR FORMAT 4 DSCB @Y30SSFY*/ 03092000 * /* @Y30SSFY*/ 03093000 * /******************************************************/ 03094000 * 0747 03095000 * CFLGS = CLSRCH; /*@Y30SSFY*/ 03096000 L @03,WRKARPTR 0747 03097000 MVC CFLGS(4,@03),CLSRCH 0747 03098000 * CLDPT = ADDR(CLDSN); /*@Y30SSFY*/ 03099000 LA @15,CLDSN(,@03) 0748 03100000 ST @15,CLDPT(,@03) 0748 03101000 * CLVPT = ADDR(CLVLSR); /*@Y30SSFY*/ 03102000 LA @15,CLVLSR(,@03) 0749 03103000 ST @15,CLVPT(,@03) 0749 03104000 * F4PTR = ADDR(CLDSL4); /*@Y30SSFY*/ 03105000 LA @15,CLDSL4(,@03) 0750 03106000 ST @15,F4PTR(,@03) 0750 03107000 * CLDSN = F4DSN; /*@Y30SSFY*/ 03108000 MVC CLDSN(44,@03),F4DSN 0751 03109000 * DS4IDFMT = F4IDCLR; /*@Y30SSFY*/ 03110000 * 0752 03111000 MVC DS4IDFMT(1,@15),F4IDCLR 0752 03112000 * RESPECIFY (REG1) RSTD; /*@Y30SSFY*/ 03113000 * REG1 = ADDR(CAMLST); /*@Y30SSFY*/ 03114000 LR REG1,@03 0754 03115000 *LOBT1: 0755 03116000 * GEN(OBTAIN ((REG1))); /*@Y30SSFY*/ 03117000 LOBT1 OBTAIN ((REG1)) 03118000 * RESPECIFY RTNREG RSTD; 0756 03119000 * TESTRC = RTNREG; 0757 03120000 STH RTNREG,TESTRC 0757 03121000 * RESPECIFY RTNREG UNRSTD; /*@Y30SSFY*/ 03122000 * RESPECIFY (REG1) UNRSTD; /*@Y30SSFY*/ 03123000 * 0759 03124000 * IF GDTDBG = NULLPTR 0760 03125000 * THEN; 0760 03126000 L @03,@PC00001 0760 03127000 L @03,GDTDBG(,@03) 0760 03128000 LTR @03,@03 0760 03129000 BZ @RT00760 0760 03130000 * ELSE 0762 03131000 * CALL IDCDB010 (GDTTBL,'IO0O'); 0762 03132000 L @03,@PC00001 0762 03133000 ST @03,@AL00001 0762 03134000 LA @15,@CC01823 0762 03135000 ST @15,@AL00001+4 0762 03136000 MVI @AL00001+4,X'80' 0762 03137000 L @15,GDTDBG(,@03) 0762 03138000 LA @01,@AL00001 0762 03139000 BALR @14,@15 0762 03140000 * /*@Y30SSFY*/ 03141000 * 0763 03142000 * IF DS4IDFMT ^= F4ID 0763 03143000 * THEN 0763 03144000 @RT00760 L @03,WRKARPTR 0763 03145000 L @03,F4PTR(,@03) 0763 03146000 CLC DS4IDFMT(1,@03),F4ID 0763 03147000 BE @RF00763 0763 03148000 * DO; /*@Y30SSFY*/ 03149000 * DSIRC = 4; /*@Y30SSFY*/ 03150000 LA @15,4 0765 03151000 LR DSIRC,@15 0765 03152000 * INFLEN2 = HDRSZ; /*@Y30SSFY*/ 03153000 * 0766 03154000 L @03,@PC00001+4 0766 03155000 L @03,OPRICS(,@03) 0766 03156000 L @03,INFWKPT(,@03) 0766 03157000 L @03,INFWK(,@03) 0766 03158000 STH @15,INFLEN2(,@03) 0766 03159000 * CALL IDCSAFS0 (GDTTBL,WRKARPTR); /*@Y30SSFY*/ 03160000 * 0767 03161000 L @03,@PC00001 0767 03162000 ST @03,@AL00001 0767 03163000 LA @15,WRKARPTR 0767 03164000 ST @15,@AL00001+4 0767 03165000 L @15,GDTFSP(,@03) 0767 03166000 LA @01,@AL00001 0767 03167000 BALR @14,@15 0767 03168000 * IF OPRPNO = 5 0768 03169000 * THEN 0768 03170000 * 0768 03171000 L @03,@PC00001+4 0768 03172000 CLI OPRPNO(@03),5 0768 03173000 BNE @RF00768 0768 03174000 * CALL IDCSAFP0 (GDTTBL,INFPOLID); /*@Y30SSFY*/ 03175000 * 0769 03176000 L @15,@PC00001 0769 03177000 ST @15,@AL00001 0769 03178000 L @03,OPRICS(,@03) 0769 03179000 L @03,INFPOL(,@03) 0769 03180000 ST @03,@AL00001+4 0769 03181000 MVI @AL00001+4,X'80' 0769 03182000 L @15,GDTFPL(,@15) 0769 03183000 LA @01,@AL00001 0769 03184000 BALR @14,@15 0769 03185000 * INFWK = ZERO; /*@Y30SSFY*/ 03186000 @RF00768 L @03,@PC00001+4 0770 03187000 L @03,OPRICS(,@03) 0770 03188000 L @03,INFWKPT(,@03) 0770 03189000 SLR @15,@15 0770 03190000 ST @15,INFWK(,@03) 0770 03191000 * RETURN CODE (DSIRC); /*@Y30SSFY*/ 03192000 LR @15,DSIRC 0771 03193000 L @13,4(,@13) 0771 03194000 L @14,12(,@13) 0771 03195000 LM @00,@12,20(@13) 0771 03196000 BR @14 0771 03197000 * END; /*@Y30SSFY*/ 03198000 * 0772 03199000 * /******************************************************/ 03200000 * /* @Y30SSFY*/ 03201000 * /* FILL IN INFORMATION FROM FORMAT 4 DSCB @Y30SSFY*/ 03202000 * /* @Y30SSFY*/ 03203000 * /******************************************************/ 03204000 * 0773 03205000 * INFLEN2 = INFLEN2 + LENGTH(INFOFMT4); /*@Y30SSFY*/ 03206000 @RF00763 L @03,@PC00001+4 0773 03207000 L @03,OPRICS(,@03) 0773 03208000 L @03,INFWKPT(,@03) 0773 03209000 L @03,INFWK(,@03) 0773 03210000 LA @15,20 0773 03211000 AH @15,INFLEN2(,@03) 0773 03212000 STH @15,INFLEN2(,@03) 0773 03213000 * INFFM4ID = TMSID; /*@Y30SSFY*/ 03214000 MVC INFFM4ID(2,INFWK4),@CH00039 0774 03215000 * INFFM4LN = LENGTH(INFTMSTS); /*@Y30SSFY*/ 03216000 MVC INFFM4LN(2,INFWK4),@CH00475 0775 03217000 * NEWTMST = DS4R2TIM; /*@Y30SSFY*/ 03218000 L @03,WRKARPTR 0776 03219000 L @03,F4PTR(,@03) 0776 03220000 MVC NEWTMST(8,INFWK4),DS4R2TIM(@03) 0776 03221000 * OLDTMST = DS4AMTIM; /*@Y30SSFY*/ 03222000 * 0777 03223000 MVC OLDTMST(8,INFWK4),DS4AMTIM(@03) 0777 03224000 * CALL IDCSAFS0 (GDTTBL,WRKARPTR); /*@Y30SSFY*/ 03225000 * 0778 03226000 L @15,@PC00001 0778 03227000 ST @15,@AL00001 0778 03228000 LA @14,WRKARPTR 0778 03229000 ST @14,@AL00001+4 0778 03230000 L @15,GDTFSP(,@15) 0778 03231000 LA @01,@AL00001 0778 03232000 BALR @14,@15 0778 03233000 * END; /*@Y30SSFY*/ 03234000 * 0779 03235000 * /************************************************************/ 03236000 * /* @Y30LSFY*/ 03237000 * /* CLEAN UP AND RETURN @Y30LSFY*/ 03238000 * /* @Y30LSFY*/ 03239000 * /************************************************************/ 03240000 * 0780 03241000 * IF GDTDBG = NULLPTR 0780 03242000 * THEN; 0780 03243000 @RF00745 L @15,@PC00001 0780 03244000 L @15,GDTDBG(,@15) 0780 03245000 LTR @15,@15 0780 03246000 BZ @RT00780 0780 03247000 * ELSE 0782 03248000 * CALL IDCDB010 (GDTTBL,'IO02'); 0782 03249000 L @15,@PC00001 0782 03250000 ST @15,@AL00001 0782 03251000 LA @14,@CC01824 0782 03252000 ST @14,@AL00001+4 0782 03253000 MVI @AL00001+4,X'80' 0782 03254000 L @15,GDTDBG(,@15) 0782 03255000 LA @01,@AL00001 0782 03256000 BALR @14,@15 0782 03257000 * /*@Y30LSFY*/ 03258000 * 0783 03259000 * DSIRC = 0; /*@Y30LSFY*/ 03260000 @RT00780 SLR DSIRC,DSIRC 0783 03261000 * RETURN CODE (DSIRC); /*@Y30LSFY*/ 03262000 LR @15,DSIRC 0784 03263000 L @13,4(,@13) 0784 03264000 L @14,12(,@13) 0784 03265000 LM @00,@12,20(@13) 0784 03266000 BR @14 0784 03267000 * END DSINFO; /*@Y30LSFY*/ 03268000 * 0785 03269000 * END IDCIO03 /*@Y30LSFY*/ 03270000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 03271000 */*%INCLUDE SYSLIB (AMSDF01 ) * 03272000 */*%INCLUDE SYSLIB (AMSDF00 ) * 03273000 */*@INCLUDE SYSLIB (AMSDF02 ) * 03274000 */*%INCLUDE SYSLIB (AMSDF05 ) * 03275000 */*%INCLUDE SYSLIB (AMSDF07 ) * 03276000 */*%INCLUDE SYSLIB (IHADCBDF) * 03277000 */*%INCLUDE SYSLIB (IHADCB ) * 03278000 */*%INCLUDE SYSLIB (IFGRPL ) * 03279000 */*%INCLUDE SYSLIB (IDARMRCD) * 03280000 */*%INCLUDE SYSLIB (IFGEXLST) * 03281000 */*%INCLUDE SYSLIB (IECSDSL1) * 03282000 */*%INCLUDE SYSLIB (IEFJFCBN) * 03283000 *; 0786 03284000 @DATA DS 0H 03285000 @CH00216 DC H'1' 03286000 @CH00150 DC H'2' 03287000 @CH00159 DC H'3' 03288000 @CH00432 DC H'5' 03289000 @CH00153 DC H'6' 03290000 @CH00176 DC H'8' 03291000 @CH00035 DC H'12' 03292000 @CH00475 DC H'16' 03293000 @CH00305 DC H'24' 03294000 @CH00661 DC H'44' 03295000 @CH01195 DC H'116' 03296000 @SM01828 MVC KEYCLASS(0),MOVEKEY(@01) 03297000 @SM01835 MVC INFVSER(0,INFWK2),JFCBVOLS(JFCBPTR) 03298000 @DATD DSECT 03299000 DS 0F 03300000 @SA00001 DS 18F 03301000 @PC00001 DS 2F 03302000 @SA00007 DS 18F 03303000 @SA00002 DS 18F 03304000 @SA00003 DS 18F 03305000 @SA00004 DS 18F 03306000 @SA00005 DS 15F 03307000 @SA00006 DS 15F 03308000 @AL00001 DS 5A 03309000 IDCIO03 CSECT 03310000 DS 0F 03311000 @CF00112 DC F'0' 03312000 @CF00039 DC F'4' 03313000 @CH00039 EQU @CF00039+2 03314000 @CF01161 DC F'20' 03315000 @CF01429 DC F'34' 03316000 @CF00879 DC F'48' 03317000 @CF01354 DC F'128' 03318000 @CH01354 EQU @CF01354+2 03319000 @CF01418 DC F'272' 03320000 @DATD DSECT 03321000 DS 0D 03322000 LISTSCAN DS A 03323000 IOCSPTR DS A 03324000 OPNPTR DS A 03325000 DDSTRU DS A 03326000 FSADDR DS A 03327000 ERCNVADR DS A 03328000 DMPINDEX DS A 03329000 DCBPTR DS A 03330000 WRKARPTR DS A 03331000 IOINFSZ DS F 03332000 DCBEXWRD DS AL4 03333000 ORG DCBEXWRD 03334000 DCBEXEND DS BL1 03335000 ORG DCBEXWRD+4 03336000 LISTPTR DS A 03337000 SETRC DS H 03338000 TESTRC DS H 03339000 LISTLN DS FL1 03340000 @TS00001 DS CL95 03341000 SYNPRINT DS CL150 03342000 TEMPKEY DS BL256 03343000 ORG TEMPKEY 03344000 KEYCLASS DS CL256 03345000 ORG TEMPKEY+256 03346000 DS CL2 03347000 DMSGARG DS CL44 03348000 STOWWORK DS CL16 03349000 ORG STOWWORK 03350000 STOWOLD DS CL8 03351000 STOWNEW DS CL8 03352000 ORG STOWWORK+16 03353000 SAVRFM DS CL1 03354000 DS CL3 03355000 DARGHEAD DS CL28 03356000 DEVCH DS CL20 03357000 DS CL4 03358000 DEVDDN DS CL8 03359000 DCBRLIST DS CL4 03360000 ORG DCBRLIST 03361000 DCBRLID DS CL1 03362000 DCBRLPTR DS AL3 03363000 ORG DCBRLIST+4 03364000 IDCIO03 CSECT 03365000 DS 0F 03366000 @SIZDATD DC AL1(0) 03367000 DC AL3(@ENDDATD-@DATD) 03368000 DS 0D 03369000 DSNVTOCP DC AL4(DSNVTOC) 03370000 @CC01338 DC C'IOPO' 03371000 @CC01345 DC C'IOVT' 03372000 @CC01358 DC C'IOOT' 03373000 @CC01369 DC C'IOSO' 03374000 @CC01392 DC C'IOSR' 03375000 @CC01397 DC C'IOW1' 03376000 @CC01812 DC C'IOIF' 03377000 @CC01817 DC C'IO00' 03378000 @CC01820 DC C'IO01' 03379000 @CC01823 DC C'IO0O' 03380000 @CC01824 DC C'IO02' 03381000 @CC01328 EQU @CC01817 03382000 ALL DC CL3'ALL' 03383000 FORMAT DC CL4'FORM' 03384000 HSECOND DC CL4'HSEC' 03385000 CLOCK DC CL4'KLOK' 03386000 SETZERO DC CL4'ZERO' 03387000 SETBLANK DC CL4'BLNK' 03388000 NOSET DC CL4'NSET' 03389000 OVERRIDE DC CL4'OVRD' 03390000 ACQUIRE DC CL8'ACQUIRE ' 03391000 RELINQ DC CL8'RELINQ ' 03392000 MOUNT DC CL8'MOUNT ' 03393000 DEMOUNT DC CL8'DEMOUNT ' 03394000 DEFINE DC CL8'DEFINE ' 03395000 MOVE DC CL8'MOVE ' 03396000 TRACEQ DC CL8'TRACEQ ' 03397000 COPYTABL DC CL8'COPYTABL' 03398000 COPYCRTG DC CL8'COPYCRTG' 03399000 COPYVOL DC CL8'COPYVOL ' 03400000 VVIC DC CL8'VVIC ' 03401000 TUNE DC CL8'TUNE ' 03402000 NAMES DC CL4'NAME' 03403000 UNIT DC CL4'UNIT' 03404000 SHR DC CL4'SHR ' 03405000 EXCL DC CL4'EXCL' 03406000 NOWAIT DC CL4'NWAI' 03407000 WAIT DC CL4'WAIT' 03408000 MODID DC CL4'IO03' 03409000 FIXAREA DS CL100 03410000 ORG FIXAREA 03411000 @NM00077 DC 100X'00' 03412000 ORG FIXAREA+100 03413000 IOTEXT DC CL5'I/O' 03414000 DSNVTOC DC CL44'VTOC' 03415000 F4ID DC CL1'4' 03416000 F4IDCLR DC CL1'0' 03417000 CLSRCH DC X'C1000000' 03418000 @DATD DSECT 03419000 IDCIO03 CSECT 03420000 VTOC DC 44X'04' 03421000 @DATD DSECT 03422000 IDCIO03 CSECT 03423000 QSAMDCB DCB DSORG=PS,MACRF=(GL) QSAM DCB @Y30LSFY 03424000 F4DSN DC 44X'04' F4DSCB NAME FOR OBTAIN @Y30SSFY 03425000 @DATD DSECT 03426000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03427000 @ENDDATD EQU * 03428000 IDCIO03 CSECT 03429000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03430000 @01 EQU 01 03431000 @02 EQU 02 03432000 @03 EQU 03 03433000 @04 EQU 04 03434000 @05 EQU 05 03435000 @06 EQU 06 03436000 @07 EQU 07 03437000 @08 EQU 08 03438000 @09 EQU 09 03439000 @10 EQU 10 03440000 @11 EQU 11 03441000 @12 EQU 12 03442000 @13 EQU 13 03443000 @14 EQU 14 03444000 @15 EQU 15 03445000 JFCBPTR EQU @05 03446000 INFOCNT EQU @02 03447000 GENADDR EQU @05 03448000 NMSER EQU @02 03449000 INFWK4 EQU @02 03450000 INFWK3 EQU @04 03451000 INFWK2 EQU @03 03452000 DSIRC EQU @02 03453000 SAVBLK EQU @04 03454000 SAVLRE EQU @03 03455000 STOWRC EQU @02 03456000 PTAMRC EQU @02 03457000 RTNREG EQU @15 03458000 REG1 EQU @01 03459000 REG6 EQU @06 03460000 REG7 EQU @07 03461000 REG13 EQU @13 03462000 REG14 EQU @14 03463000 REG15 EQU @15 03464000 REG0 EQU @00 03465000 REG10 EQU @10 03466000 REG11 EQU @11 03467000 REG12 EQU @12 03468000 REG2 EQU @02 03469000 REG3 EQU @03 03470000 REG4 EQU @04 03471000 REG5 EQU @05 03472000 REG8 EQU @08 03473000 REG9 EQU @09 03474000 IDCSAEP0 EQU 0 03475000 IDCSAGS0 EQU 0 03476000 IDCSAFS0 EQU 0 03477000 IDCSAGP0 EQU 0 03478000 IDCSAFP0 EQU 0 03479000 TRACE1 EQU 0 03480000 OLDERID1 EQU TRACE1 03481000 TRACE2 EQU 0 03482000 OLDERID2 EQU TRACE2 03483000 NEWID2 EQU TRACE2+95 03484000 NEWERID2 EQU 5 03485000 CIRAGL EQU 0 03486000 CIRTYPE EQU CIRAGL 03487000 ALLAGL EQU 0 03488000 ALLSTS EQU ALLAGL+24 03489000 ALLDSP EQU ALLAGL+25 03490000 ALLORG EQU ALLAGL+26 03491000 ALLOPT EQU ALLAGL+28 03492000 UNITABL EQU 0 03493000 UNITADR EQU UNITABL+4 03494000 @NM00010 EQU UNITADR 03495000 UNITSTAT EQU UNITABL+6 03496000 IOCSTR EQU 0 03497000 IOCKYL EQU IOCSTR+12 03498000 IOCDSO EQU IOCSTR+16 03499000 IOCDSOAM EQU IOCDSO 03500000 IOCDSOIS EQU IOCDSO 03501000 IOCRFM EQU IOCSTR+17 03502000 IOCMAC EQU IOCSTR+18 03503000 IOCMACCR EQU IOCMAC 03504000 IOCMACBK EQU IOCMAC 03505000 IOCMAC2 EQU IOCSTR+19 03506000 IOCMACRR EQU IOCMAC2 03507000 IOCCHP EQU IOCSTR+20 03508000 IOCMSG EQU IOCSTR+21 03509000 IOCMSGOP EQU IOCMSG 03510000 IOCMSGAE EQU IOCMSG 03511000 IOCMSGSM EQU IOCMSG 03512000 IOCDSN EQU IOCSTR+32 03513000 IOCRBA EQU IOCSTR+40 03514000 IOCTTR EQU IOCRBA 03515000 IOCVRC EQU IOCTTR 03516000 IOCMEM EQU IOCSTR+44 03517000 IOCKYA EQU IOCMEM 03518000 IOCNWM EQU IOCSTR+48 03519000 IOCPTL EQU IOCNWM 03520000 IOCREL EQU IOCSTR+60 03521000 IOCEXT EQU IOCSTR+64 03522000 OPNAGL EQU 0 03523000 OPNOPT EQU OPNAGL 03524000 OPNRFM EQU OPNAGL+1 03525000 OPNTYP EQU OPNAGL+2 03526000 OPNMOD EQU OPNAGL+3 03527000 OPNDEV EQU OPNAGL+24 03528000 OPNDSO EQU OPNAGL+41 03529000 OPNOPT2 EQU OPNAGL+42 03530000 IOINFOPT EQU 0 03531000 IOINFDVT EQU IOINFOPT 03532000 IOINFVOL EQU IOINFOPT 03533000 IOINFDSN EQU IOINFOPT 03534000 IOINFSUP EQU IOINFOPT 03535000 IOINFTMS EQU IOINFOPT 03536000 UVOLLIST EQU 0 03537000 UVOLENT EQU UVOLLIST+2 03538000 AMSTP011 EQU 0 03539000 DARGLIST EQU 0 03540000 DARGDBP EQU DARGLIST 03541000 DARGSTID EQU DARGLIST+8 03542000 DARGSMOD EQU DARGSTID 03543000 DARGSENT EQU DARGSTID+3 03544000 DARGILP EQU DARGLIST+12 03545000 DARGCNT EQU DARGLIST+14 03546000 DARGARY EQU DARGLIST+20 03547000 DARGINS EQU DARGARY 03548000 DARGINL EQU DARGARY+2 03549000 DARGDTM EQU DARGARY+4 03550000 FMTLIST EQU 0 03551000 FMTFLGS EQU FMTLIST 03552000 FMTSPF EQU FMTLIST+2 03553000 FMTRFNO EQU FMTSPF 03554000 FMTILEN EQU FMTRFNO 03555000 FMTIOFF EQU FMTLIST+4 03556000 FMTTRBC EQU FMTIOFF 03557000 FMTSTO EQU FMTTRBC 03558000 FMTOCOL EQU FMTLIST+6 03559000 FMTCNVF EQU FMTLIST+10 03560000 ERCNVTAB EQU 0 03561000 ERTYPE EQU ERCNVTAB 03562000 EROPER EQU ERCNVTAB+1 03563000 EROSOPER EQU ERCNVTAB+2 03564000 ERCATRC EQU ERCNVTAB+16 03565000 ERCPLPT EQU ERCNVTAB+20 03566000 IDCDB010 EQU 0 03567000 DMPITM EQU 0 03568000 DMPARY EQU 0 03569000 IODATA EQU 0 03570000 IODMSG EQU IODATA+4 03571000 IODSID EQU IODATA+16 03572000 IODOSS EQU IODATA+36 03573000 IOCSEX EQU 0 03574000 IOCCBA EQU IOCSEX 03575000 IOCRPL EQU IOCSEX+4 03576000 IOCXAD EQU IOCSEX+16 03577000 IOCEXA EQU IOCXAD 03578000 IOCXPM EQU IOCSEX+20 03579000 IOCFLG EQU IOCSEX+32 03580000 IOCFLGEX EQU IOCFLG 03581000 IOCDEV EQU IOCSEX+33 03582000 IOCINF EQU IOCSEX+34 03583000 IOCINFPT EQU IOCINF 03584000 IOCMOD EQU IOCSEX+35 03585000 IOCDLM EQU IOCSEX+36 03586000 IOCRCV EQU IOCSEX+44 03587000 IHADCB EQU 0 03588000 IHADCS00 EQU 0 03589000 DCBFDAD EQU IHADCS00+5 03590000 IHADCS01 EQU 0 03591000 DCBDVTBL EQU IHADCS01 03592000 IHADCS11 EQU 0 03593000 DCBRELB EQU IHADCS11 03594000 DCBREL EQU DCBRELB+1 03595000 DCBBUFCB EQU IHADCS11+4 03596000 DCBDSORG EQU IHADCS11+10 03597000 DCBDSRG1 EQU DCBDSORG 03598000 DCBDSRG2 EQU DCBDSORG+1 03599000 DCBIOBAD EQU IHADCS11+12 03600000 DCBODEB EQU DCBIOBAD 03601000 DCBLNP EQU DCBODEB 03602000 DCBQSLM EQU DCBLNP 03603000 DCBIOBAA EQU DCBODEB+1 03604000 IHADCS50 EQU 0 03605000 DCBSVCXL EQU IHADCS50 03606000 DCBEODAD EQU IHADCS50+4 03607000 DCBBFALN EQU DCBEODAD 03608000 DCBHIARC EQU DCBBFALN 03609000 DCBBFTEK EQU DCBHIARC 03610000 DCBBFT EQU DCBBFTEK 03611000 DCBEXLST EQU IHADCS50+8 03612000 DCBRECFM EQU DCBEXLST 03613000 DCBRECLA EQU DCBRECFM 03614000 DCBEXLSA EQU DCBEXLST+1 03615000 IHADCS24 EQU 0 03616000 DCBDDNAM EQU IHADCS24 03617000 DCBOFLGS EQU IHADCS24+8 03618000 DCBOFLWR EQU DCBOFLGS 03619000 DCBIFLG EQU IHADCS24+9 03620000 DCBIBPCT EQU DCBIFLG 03621000 DCBMACR EQU IHADCS24+10 03622000 DCBMACR1 EQU DCBMACR 03623000 DCBMRFE EQU DCBMACR1 03624000 DCBMRGET EQU DCBMRFE 03625000 DCBMRAPG EQU DCBMACR1 03626000 DCBMRRD EQU DCBMRAPG 03627000 DCBMRCI EQU DCBMACR1 03628000 DCBMRMVG EQU DCBMRCI 03629000 DCBMRLCG EQU DCBMACR1 03630000 DCBMRABC EQU DCBMACR1 03631000 DCBMRPT1 EQU DCBMRABC 03632000 DCBMRSBG EQU DCBMRPT1 03633000 DCBMRCRL EQU DCBMACR1 03634000 DCBMRCHK EQU DCBMRCRL 03635000 DCBMRRDX EQU DCBMRCHK 03636000 DCBMRDMG EQU DCBMACR1 03637000 DCBMACR2 EQU DCBMACR+1 03638000 DCBMRPUT EQU DCBMACR2 03639000 DCBMRWRT EQU DCBMACR2 03640000 DCBMRMVP EQU DCBMACR2 03641000 DCBMR5WD EQU DCBMACR2 03642000 DCBMRLDM EQU DCBMR5WD 03643000 DCBMRLCP EQU DCBMRLDM 03644000 DCBMR4WD EQU DCBMACR2 03645000 DCBMRPT2 EQU DCBMR4WD 03646000 DCBMRTMD EQU DCBMRPT2 03647000 DCBMR3WD EQU DCBMACR2 03648000 DCBMRCTL EQU DCBMR3WD 03649000 DCBMRSTK EQU DCBMRCTL 03650000 DCBMR1WD EQU DCBMACR2 03651000 DCBMRSWA EQU DCBMR1WD 03652000 DCBMRDMD EQU DCBMRSWA 03653000 IHADCS25 EQU 0 03654000 DCBMACRF EQU IHADCS25+2 03655000 DCBMACF1 EQU DCBMACRF 03656000 DCBMFFE EQU DCBMACF1 03657000 DCBMFGET EQU DCBMFFE 03658000 DCBMFAPG EQU DCBMACF1 03659000 DCBMFRD EQU DCBMFAPG 03660000 DCBMFCI EQU DCBMACF1 03661000 DCBMFMVG EQU DCBMFCI 03662000 DCBMFLCG EQU DCBMACF1 03663000 DCBMFABC EQU DCBMACF1 03664000 DCBMFPT1 EQU DCBMFABC 03665000 DCBMFSBG EQU DCBMFPT1 03666000 DCBMFCRL EQU DCBMACF1 03667000 DCBMFCHK EQU DCBMFCRL 03668000 DCBMFDMG EQU DCBMACF1 03669000 DCBMACF2 EQU DCBMACRF+1 03670000 DCBMFPUT EQU DCBMACF2 03671000 DCBMFWRT EQU DCBMACF2 03672000 DCBMFMVP EQU DCBMACF2 03673000 DCBMF5WD EQU DCBMACF2 03674000 DCBMFLDM EQU DCBMF5WD 03675000 DCBMFLCP EQU DCBMFLDM 03676000 DCBMF4WD EQU DCBMACF2 03677000 DCBMFPT2 EQU DCBMF4WD 03678000 DCBMFTMD EQU DCBMFPT2 03679000 DCBMF3WD EQU DCBMACF2 03680000 DCBMFCTL EQU DCBMF3WD 03681000 DCBMFSTK EQU DCBMFCTL 03682000 DCBMF1WD EQU DCBMACF2 03683000 DCBMFSWA EQU DCBMF1WD 03684000 DCBMFDMD EQU DCBMFSWA 03685000 DCBDEBAD EQU IHADCS25+4 03686000 DCBIFLGS EQU DCBDEBAD 03687000 DCBIFPCT EQU DCBIFLGS 03688000 IHADCS27 EQU 0 03689000 DCBGET EQU IHADCS27 03690000 DCBPUT EQU DCBGET 03691000 DCBGETA EQU DCBPUT+1 03692000 IHADCS29 EQU 0 03693000 DCBOPTCD EQU IHADCS29 03694000 DCBMAC EQU IHADCS29+1 03695000 DCBSYNAD EQU IHADCS29+4 03696000 DCBBLKSI EQU IHADCS29+10 03697000 DCBMSHI EQU IHADCS29+20 03698000 DCBEXCD1 EQU IHADCS29+28 03699000 DCBEXCD2 EQU IHADCS29+29 03700000 DCBEXLTH EQU DCBEXCD2 03701000 DCBLRECL EQU IHADCS29+30 03702000 DCBST EQU IHADCS29+108 03703000 IHADCS55 EQU 0 03704000 IFGRPL EQU 0 03705000 RPLCOMN EQU IFGRPL 03706000 RPLIDWD EQU RPLCOMN 03707000 RPLLEN EQU RPLIDWD+3 03708000 RPLECB EQU RPLCOMN+8 03709000 RPLFDBWD EQU RPLCOMN+12 03710000 RPLFDBK EQU RPLFDBWD+1 03711000 RPLRTNCD EQU RPLFDBK 03712000 RPLCNDCD EQU RPLFDBK+1 03713000 RPLCMPON EQU RPLCNDCD 03714000 RPLFDB2 EQU RPLCMPON 03715000 RPLERRCD EQU RPLCNDCD+1 03716000 RPLFDB3 EQU RPLERRCD 03717000 RPLKEYLE EQU RPLCOMN+16 03718000 RPLARG EQU RPLCOMN+36 03719000 RPLOPTCD EQU RPLCOMN+40 03720000 RPLOPT1 EQU RPLOPTCD 03721000 RPLECBSW EQU RPLOPT1 03722000 RPLOPT2 EQU RPLOPTCD+1 03723000 RPLADR EQU RPLOPT2 03724000 RPLOPT3 EQU RPLOPTCD+2 03725000 RPLOPT4 EQU RPLOPTCD+3 03726000 RPLNXTRP EQU RPLCOMN+44 03727000 RPLOPTC2 EQU RPLCOMN+56 03728000 RPLOPT5 EQU RPLOPTC2 03729000 RPLWRTYP EQU RPLOPT5 03730000 RPLOPT6 EQU RPLOPTC2+1 03731000 RPLUNTYP EQU RPLOPT6 03732000 RPLOPT7 EQU RPLOPTC2+2 03733000 RPLCNOPT EQU RPLOPT7 03734000 RPLOPT8 EQU RPLOPTC2+3 03735000 RPLRBAR EQU RPLCOMN+60 03736000 RPLAIXID EQU RPLRBAR+2 03737000 RPLEXTDS EQU RPLCOMN+68 03738000 RPLEXTD1 EQU RPLEXTDS 03739000 IFGEXLST EQU 0 03740000 EXLCOMN EQU IFGEXLST 03741000 EXLLEN EQU EXLCOMN+2 03742000 EXLEODF EQU EXLCOMN+5 03743000 EXLSYNF EQU EXLCOMN+10 03744000 EXLLERF EQU EXLCOMN+15 03745000 EXLSCIPF EQU EXLCOMN+20 03746000 EXLLGNF EQU EXLCOMN+25 03747000 EXLJRNF EQU EXLCOMN+30 03748000 EXLOPNF EQU EXLCOMN+35 03749000 IFGEXLEF EQU 0 03750000 EXLENTRY EQU IFGEXLEF 03751000 EXLFLAG EQU EXLENTRY 03752000 EXLENFL EQU EXLFLAG 03753000 EXLEXITP EQU EXLENTRY+1 03754000 MESSAGE EQU 0 03755000 MSLENGTH EQU MESSAGE 03756000 MOVEKEY EQU 0 03757000 MOVEOLD EQU 0 03758000 MOVENEW EQU 0 03759000 DSNCMP EQU 0 03760000 IDCIOINF EQU 0 03761000 INFLEN1 EQU IDCIOINF 03762000 INFLEN2 EQU IDCIOINF+2 03763000 INFDSST EQU IDCIOINF+4 03764000 INFDSID EQU INFDSST 03765000 INFDSLN EQU INFDSST+2 03766000 INFDSNM EQU INFDSST+4 03767000 INFWK EQU 0 03768000 INFST1 EQU 0 03769000 INFVID EQU INFST1 03770000 INFVLEN EQU INFST1+2 03771000 INFVSER EQU INFST1+4 03772000 INFDVT EQU 0 03773000 INFDEVID EQU INFDVT 03774000 INFDEVLN EQU INFDVT+2 03775000 INFDEVT EQU INFDVT+4 03776000 INFOFMT4 EQU 0 03777000 INFFM4ID EQU INFOFMT4 03778000 INFFM4LN EQU INFOFMT4+2 03779000 INFTMSTS EQU INFOFMT4+4 03780000 NEWTMST EQU INFTMSTS 03781000 OLDTMST EQU INFTMSTS+8 03782000 INFOPARM EQU 0 03783000 OPTPTR EQU INFOPARM+4 03784000 INFWKPT EQU INFOPARM+8 03785000 INFDNM EQU INFOPARM+12 03786000 INFPOL EQU INFOPARM+16 03787000 DFILE EQU 0 03788000 INFPOLID EQU 0 03789000 WORKAREA EQU 0 03790000 READDCB EQU WORKAREA+176 03791000 GENAREA EQU 0 03792000 IECSDSF4 EQU 0 03793000 IECSDSL4 EQU 0 03794000 DS4IDFMT EQU IECSDSL4 03795000 DS4DEVCT EQU IECSDSL4+18 03796000 DS4DEVOV EQU DS4DEVCT+6 03797000 DS4AMTIM EQU IECSDSL4+32 03798000 DS4AMCAT EQU IECSDSL4+40 03799000 DS4VSIND EQU DS4AMCAT 03800000 DS4R2TIM EQU IECSDSL4+43 03801000 INFMJFCB EQU 0 03802000 JFCBDSNM EQU INFMJFCB 03803000 JFCBELNM EQU INFMJFCB+44 03804000 JFCBTSDM EQU INFMJFCB+52 03805000 JFCFCBID EQU INFMJFCB+56 03806000 JFCBFRID EQU JFCFCBID 03807000 JFCBLTYP EQU INFMJFCB+66 03808000 JFCBOTTR EQU INFMJFCB+67 03809000 JFCBUFOF EQU JFCBOTTR 03810000 JFCBFLSQ EQU JFCBOTTR+1 03811000 JFCFUNC EQU JFCBFLSQ 03812000 JFCBMASK EQU INFMJFCB+72 03813000 JFCBFLG1 EQU JFCBMASK+5 03814000 JFCOPEN EQU JFCBFLG1 03815000 JFCBFLG2 EQU JFCBMASK+6 03816000 JFCDEFER EQU JFCBFLG2 03817000 JFCBIND1 EQU INFMJFCB+86 03818000 JFCBIND2 EQU INFMJFCB+87 03819000 JFCAMPTR EQU INFMJFCB+88 03820000 JFCBUFRQ EQU JFCAMPTR 03821000 JFCBUFNO EQU JFCBUFRQ 03822000 JFCBGNCP EQU JFCAMPTR+1 03823000 JFCBHIAR EQU JFCBGNCP 03824000 JFCBFALN EQU JFCBHIAR 03825000 JFCBFTEK EQU JFCBFALN 03826000 JFCBBFTA EQU JFCBFTEK 03827000 JFCEROPT EQU INFMJFCB+92 03828000 JFCTRTCH EQU INFMJFCB+93 03829000 AMSTP041 EQU 0 03830000 AMSTP042 EQU 0 03831000 AMSTP043 EQU 0 03832000 AMSTP044 EQU 0 03833000 DMPTRM EQU 0 03834000 IDCIOCL0 EQU 0 03835000 IDCIOCO0 EQU 0 03836000 IDCIOGT0 EQU 0 03837000 IDCIOIT0 EQU 0 03838000 IDCIOOP0 EQU 0 03839000 IDCIOPO0 EQU 0 03840000 IDCIOPT0 EQU 0 03841000 IDCIOSI0 EQU 0 03842000 IDCIOST0 EQU 0 03843000 IDCIOTM0 EQU 0 03844000 IDCIOVY0 EQU 0 03845000 IDCIO050 EQU 0 03846000 IDCSAAL0 EQU 0 03847000 IDCSACA0 EQU 0 03848000 IDCSACL0 EQU 0 03849000 IDCSACR0 EQU 0 03850000 IDCSADE0 EQU 0 03851000 IDCSADL0 EQU 0 03852000 IDCSADQ0 EQU 0 03853000 IDCSAID0 EQU 0 03854000 IDCSALC0 EQU 0 03855000 IDCSALD0 EQU 0 03856000 IDCSALK0 EQU 0 03857000 IDCSANQ0 EQU 0 03858000 IDCSAPR0 EQU 0 03859000 IDCSAPT0 EQU 0 03860000 IDCSAQL0 EQU 0 03861000 IDCSARC0 EQU 0 03862000 IDCSARV0 EQU 0 03863000 IDCSASC0 EQU 0 03864000 IDCSASI0 EQU 0 03865000 IDCSASN0 EQU 0 03866000 IDCSASS0 EQU 0 03867000 IDCSAST0 EQU 0 03868000 IDCSATI0 EQU 0 03869000 IDCSAUC0 EQU 0 03870000 IDCSAWO0 EQU 0 03871000 IDCSA060 EQU 0 03872000 IDCST010 EQU 0 03873000 IDCTPER0 EQU 0 03874000 LISTTEST EQU 0 03875000 NEWERID1 EQU 5 03876000 GDTTBL EQU 0 03877000 GDTTR1 EQU GDTTBL+8 03878000 GDTTR2 EQU GDTTBL+12 03879000 GDTIOH EQU GDTTBL+36 03880000 GDTDBG EQU GDTTBL+40 03881000 GDTSTC EQU GDTTBL+44 03882000 GDTPRT EQU GDTTBL+48 03883000 GDTESS EQU GDTTBL+52 03884000 GDTESA EQU GDTTBL+56 03885000 GDTRST EQU GDTTBL+60 03886000 GDTRES EQU GDTTBL+64 03887000 GDTCAL EQU GDTTBL+68 03888000 GDTGSP EQU GDTTBL+72 03889000 GDTFSP EQU GDTTBL+76 03890000 GDTGPL EQU GDTTBL+80 03891000 GDTFPL EQU GDTTBL+84 03892000 GDTLOD EQU GDTTBL+88 03893000 GDTDEL EQU GDTTBL+92 03894000 GDTPRL EQU GDTTBL+96 03895000 GDTEPL EQU GDTTBL+100 03896000 GDTTIM EQU GDTTBL+104 03897000 GDTIIO EQU GDTTBL+108 03898000 GDTTIO EQU GDTTBL+112 03899000 GDTOPN EQU GDTTBL+124 03900000 GDTCLS EQU GDTTBL+128 03901000 GDTGET EQU GDTTBL+132 03902000 GDTPUT EQU GDTTBL+136 03903000 GDTPOS EQU GDTTBL+140 03904000 GDTCPY EQU GDTTBL+144 03905000 GDTCAT EQU GDTTBL+148 03906000 GDTABT EQU GDTTBL+152 03907000 GDTABH EQU GDTTBL+156 03908000 GDTSNP EQU GDTTBL+164 03909000 GDTVFY EQU GDTTBL+172 03910000 GDTUID EQU GDTTBL+192 03911000 GDTPMT EQU GDTTBL+196 03912000 GDTCIR EQU GDTTBL+200 03913000 GDTLNK EQU GDTTBL+204 03914000 GDTALC EQU GDTTBL+208 03915000 GDTDLC EQU GDTTBL+212 03916000 GDTQAL EQU GDTTBL+216 03917000 GDTSTW EQU GDTTBL+220 03918000 GDTSSC EQU GDTTBL+224 03919000 GDTENQ EQU GDTTBL+228 03920000 GDTRSV EQU GDTTBL+232 03921000 GDTDEQ EQU GDTTBL+236 03922000 GDTSFO EQU GDTTBL+240 03923000 GDTWTO EQU GDTTBL+244 03924000 GDTSCR EQU GDTTBL+248 03925000 GDTUNT EQU GDTTBL+252 03926000 GDTRCT EQU GDTTBL+256 03927000 GDTIFO EQU GDTTBL+260 03928000 GDTEXP EQU GDTTBL+264 03929000 GDTSTA EQU GDTTBL+268 03930000 GDTERR EQU GDTTBL+272 03931000 GDTUNC EQU GDTTBL+276 03932000 GDTLOC EQU GDTTBL+280 03933000 OPRARG EQU 0 03934000 OPRTYP EQU OPRARG 03935000 OPRPNO EQU OPRARG+1 03936000 OPROPT EQU OPRARG+2 03937000 OPRICS EQU OPRARG+4 03938000 CAMLST EQU WORKAREA 03939000 CFLGS EQU CAMLST 03940000 CLDPT EQU CAMLST+4 03941000 CLVPT EQU CAMLST+8 03942000 F4PTR EQU CAMLST+12 03943000 CLDSL4 EQU CAMLST+16 03944000 CLVLSR EQU CAMLST+164 03945000 CLDSN EQU CAMLST+170 03946000 JFCKEYLE EQU JFCTRTCH 03947000 JFCCODE EQU JFCKEYLE 03948000 JFCSTACK EQU JFCTRTCH 03949000 JFCMODE EQU JFCSTACK 03950000 JFCSPPRT EQU JFCTRTCH 03951000 JFCBABFS EQU JFCSPPRT+2 03952000 JFCLIMCT EQU JFCBABFS 03953000 JFCDSORG EQU JFCSPPRT+5 03954000 JFCDSRG1 EQU JFCDSORG 03955000 JFCDSRG2 EQU JFCDSORG+1 03956000 JFCRECFM EQU JFCSPPRT+7 03957000 JFCRCFM EQU JFCRECFM 03958000 JFCOPTCD EQU JFCSPPRT+8 03959000 JFCWVCSP EQU JFCOPTCD 03960000 JFCWVCIS EQU JFCWVCSP 03961000 JFCWVCBD EQU JFCWVCIS 03962000 JFCALLOW EQU JFCOPTCD 03963000 JFCRSV17 EQU JFCALLOW 03964000 JFCOVER EQU JFCRSV17 03965000 JFCPCIBT EQU JFCOPTCD 03966000 JFCMAST EQU JFCPCIBT 03967000 JFCEXT EQU JFCMAST 03968000 JFCBCKPT EQU JFCOPTCD 03969000 JFCIND EQU JFCBCKPT 03970000 JFCRSV18 EQU JFCOPTCD 03971000 JFCCYL EQU JFCRSV18 03972000 JFCACT EQU JFCCYL 03973000 JFCREDUC EQU JFCOPTCD 03974000 JFCRSV19 EQU JFCREDUC 03975000 JFCRSV20 EQU JFCRSV19 03976000 JFCRSV21 EQU JFCOPTCD 03977000 JFCDEL EQU JFCRSV21 03978000 JFCOPTJ EQU JFCOPTCD 03979000 JFCREORG EQU JFCOPTJ 03980000 JFCBLKSI EQU JFCSPPRT+9 03981000 JFCBUFSI EQU JFCBLKSI 03982000 JFCAMSYN EQU JFCSPPRT+11 03983000 JFCNCP EQU JFCAMSYN+2 03984000 JFCNTM EQU JFCAMSYN+3 03985000 JFCBFSEQ EQU JFCNTM 03986000 JFCPCI EQU JFCBFSEQ 03987000 JFCRESRV EQU JFCAMSYN+4 03988000 JFCUCSEG EQU JFCRESRV 03989000 JFCUCSOP EQU JFCUCSEG+4 03990000 JFCOUTLI EQU JFCUCSEG+5 03991000 JFCTHRSH EQU JFCOUTLI 03992000 JFCCPRI EQU JFCTHRSH 03993000 JFCBNVOL EQU JFCUCSEG+9 03994000 JFCBVOLS EQU JFCUCSEG+10 03995000 JFCBS001 EQU JFCBVOLS 03996000 JFCBPQTY EQU JFCBS001+34 03997000 JFCBCTRI EQU JFCBS001+37 03998000 JFCBSQTY EQU JFCBS001+38 03999000 JFCFLGS1 EQU JFCBS001+41 04000000 AGO .@UNREFD START UNREFERENCED COMPONENTS 04001000 JFCBEND EQU JFCBS001+58 04002000 JFCBSPTN EQU JFCBS001+57 04003000 JFCBVLCT EQU JFCBS001+56 04004000 JFCBDRLH EQU JFCBS001+53 04005000 JFCBSBNM EQU JFCBS001+50 04006000 JFCBABST EQU JFCBS001+48 04007000 JFCBSPNM EQU JFCBS001+45 04008000 JFCBDQTY EQU JFCBS001+42 04009000 JFCBUAFF EQU JFCFLGS1 04010000 JFCRSV45 EQU JFCFLGS1 04011000 JFCVRDS EQU JFCFLGS1 04012000 JFCBCEOV EQU JFCFLGS1 04013000 JFCRSV42 EQU JFCFLGS1 04014000 JFCBADSP EQU JFCFLGS1 04015000 JFCTOPEN EQU JFCFLGS1 04016000 JFCBDLET EQU JFCFLGS1 04017000 JFCRQID EQU JFCBSQTY 04018000 JFCROUND EQU JFCBCTRI 04019000 JFCALX EQU JFCBCTRI 04020000 JFCMIXG EQU JFCBCTRI 04021000 JFCONTIG EQU JFCBCTRI 04022000 JFCRSV29 EQU JFCBCTRI 04023000 JFCBMSGP EQU JFCBCTRI 04024000 JFCBSPAC EQU JFCBCTRI 04025000 JFCRUNIT EQU JFCBPQTY 04026000 JFCBEXAD EQU JFCBS001+31 04027000 JFCBEXTL EQU JFCBS001+30 04028000 JFCMSVGP EQU JFCBS001+22 04029000 @NM00087 EQU JFCBS001 04030000 JFCAVOLS EQU JFCBVOLS 04031000 JFCBNTCS EQU JFCUCSEG+8 04032000 JFCSOWA EQU JFCOUTLI+1 04033000 JFCSEND EQU JFCCPRI 04034000 JFCEQUAL EQU JFCCPRI 04035000 JFCRECV EQU JFCCPRI 04036000 JFCRSV34 EQU JFCCPRI 04037000 JFCRSV33 EQU JFCCPRI 04038000 JFCRSV55 EQU JFCCPRI 04039000 JFCRSV54 EQU JFCCPRI 04040000 JFCRSV53 EQU JFCCPRI 04041000 JFCRSV27 EQU JFCUCSOP 04042000 JFCRSV26 EQU JFCUCSOP 04043000 JFCFCBVR EQU JFCUCSOP 04044000 JFCFCBAL EQU JFCUCSOP 04045000 JFCVER EQU JFCUCSOP 04046000 JFCRSV25 EQU JFCUCSOP 04047000 JFCFOLD EQU JFCUCSOP 04048000 JFCBEXTP EQU JFCUCSOP 04049000 JFCUCSID EQU JFCUCSEG 04050000 JFCINTVL EQU JFCSPPRT+19 04051000 JFCDBUFN EQU JFCRESRV+3 04052000 JFCCYLOF EQU JFCRESRV+2 04053000 JFCRKP EQU JFCRESRV 04054000 JFCPCIR2 EQU JFCPCI 04055000 JFCPCIR1 EQU JFCPCI 04056000 JFCPCIN2 EQU JFCPCI 04057000 JFCPCIN1 EQU JFCPCI 04058000 JFCPCIA2 EQU JFCPCI 04059000 JFCPCIA1 EQU JFCPCI 04060000 JFCPCIX2 EQU JFCPCI 04061000 JFCPCIX1 EQU JFCPCI 04062000 JFCBUFMX EQU JFCNCP 04063000 JFCLRECL EQU JFCAMSYN 04064000 JFCBAXBF EQU JFCBUFSI 04065000 JFCREL EQU JFCREORG 04066000 JFCRSV22 EQU JFCDEL 04067000 JFCSRCHD EQU JFCRSV20 04068000 JFCOPTQ EQU JFCACT 04069000 JFCFEED EQU JFCIND 04070000 JFCCBWU EQU JFCEXT 04071000 JFCWUMSG EQU JFCOVER 04072000 JFCSDNAM EQU JFCWVCBD 04073000 @NM00086 EQU JFCRECFM 04074000 JFCCHAR EQU JFCRECFM 04075000 JFCRFS EQU JFCRECFM 04076000 JFCRFB EQU JFCRECFM 04077000 JFCRFO EQU JFCRCFM 04078000 JFCFMREC EQU JFCRCFM 04079000 JFCRSV16 EQU JFCDSRG2 04080000 JFCRSV15 EQU JFCDSRG2 04081000 JFCORGTR EQU JFCDSRG2 04082000 JFCORGAM EQU JFCDSRG2 04083000 JFCRSV13 EQU JFCDSRG2 04084000 JFCORGTQ EQU JFCDSRG2 04085000 JFCORGTX EQU JFCDSRG2 04086000 JFCORGGS EQU JFCDSRG2 04087000 JFCORGU EQU JFCDSRG1 04088000 JFCORGPO EQU JFCDSRG1 04089000 JFCORGMQ EQU JFCDSRG1 04090000 JFCORGCQ EQU JFCDSRG1 04091000 JFCORGCX EQU JFCDSRG1 04092000 JFCORGDA EQU JFCDSRG1 04093000 JFCORGPS EQU JFCDSRG1 04094000 JFCORGIS EQU JFCDSRG1 04095000 JFCTRKBL EQU JFCLIMCT+1 04096000 @NM00085 EQU JFCLIMCT 04097000 JFCDEN EQU JFCSPPRT+1 04098000 JFCPRTSP EQU JFCSPPRT 04099000 JFCONE EQU JFCMODE 04100000 JFCTWO EQU JFCMODE 04101000 JFCRSV07 EQU JFCMODE 04102000 JFCRSV06 EQU JFCMODE 04103000 JFCMODER EQU JFCMODE 04104000 JFCMODEO EQU JFCMODE 04105000 JFCEBCD EQU JFCMODE 04106000 JFCBIN EQU JFCMODE 04107000 JFCRSV32 EQU JFCCODE 04108000 JFCTTY EQU JFCCODE 04109000 JFCASCII EQU JFCCODE 04110000 JFCNCR EQU JFCCODE 04111000 JFCBUR EQU JFCCODE 04112000 JFCFRI EQU JFCCODE 04113000 JFCBCD EQU JFCCODE 04114000 JFCNOCON EQU JFCCODE 04115000 OPROCS EQU OPRARG+8 04116000 @NM00041 EQU OPRARG+3 04117000 GDTECT EQU GDTTBL+188 04118000 GDTPSB EQU GDTTBL+184 04119000 GDTUPT EQU GDTTBL+180 04120000 GDTCMB EQU GDTTBL+176 04121000 GDTSPR EQU GDTTBL+168 04122000 @NM00001 EQU GDTTBL+160 04123000 GDTTOH EQU GDTTBL+120 04124000 GDTRIP EQU GDTTBL+116 04125000 GDTSAH EQU GDTTBL+32 04126000 GDTTPH EQU GDTTBL+28 04127000 GDTRIH EQU GDTTBL+24 04128000 GDTSTH EQU GDTTBL+20 04129000 GDTDBH EQU GDTTBL+16 04130000 GDTPRM EQU GDTTBL+4 04131000 GDTHDR EQU GDTTBL 04132000 JFCRSV05 EQU JFCEROPT 04133000 JFCRSV04 EQU JFCEROPT 04134000 JFCRSV03 EQU JFCEROPT 04135000 JFCRSV02 EQU JFCEROPT 04136000 JFCTOPT EQU JFCEROPT 04137000 JFCABN EQU JFCEROPT 04138000 JFCSKP EQU JFCEROPT 04139000 JFCACC EQU JFCEROPT 04140000 JFCBUFL EQU JFCAMPTR+2 04141000 JFCFWORD EQU JFCBFTEK 04142000 JFCDWORD EQU JFCBFTEK 04143000 JFCHIER1 EQU JFCBFTEK 04144000 JFCDYN EQU JFCBFTEK 04145000 JFCEXC EQU JFCBFTEK 04146000 JFCBBFTR EQU JFCBBFTA 04147000 JFCSIM EQU JFCBBFTA 04148000 JFCHIER EQU JFCBFTEK 04149000 JFCBFOUT EQU JFCBUFNO 04150000 JFCBUFIN EQU JFCBUFNO 04151000 JFCTEMP EQU JFCBIND2 04152000 JFCREQ EQU JFCBIND2 04153000 JFCENT EQU JFCBIND2 04154000 JFCSHARE EQU JFCBIND2 04155000 JFCSECUR EQU JFCBIND2 04156000 JFCDISP EQU JFCBIND2 04157000 JFCPDS EQU JFCBIND1 04158000 JFCGDG EQU JFCBIND1 04159000 JFCADDED EQU JFCBIND1 04160000 JFCLOC EQU JFCBIND1 04161000 JFCRLSE EQU JFCBIND1 04162000 JFCBXPDT EQU INFMJFCB+83 04163000 JFCBCRDT EQU INFMJFCB+80 04164000 JFCBOPS2 EQU JFCBMASK+7 04165000 JFCRCTLG EQU JFCBFLG2 04166000 JFCBBUFF EQU JFCBFLG2 04167000 JFCTRACE EQU JFCBFLG2 04168000 JFCSDRPS EQU JFCBFLG2 04169000 JFCMODNW EQU JFCBFLG2 04170000 JFCNRPS EQU JFCDEFER 04171000 JFCOUTOP EQU JFCBFLG2 04172000 JFCINOP EQU JFCBFLG2 04173000 JFCBPWBP EQU JFCOPEN 04174000 @NM00084 EQU JFCOPEN 04175000 JFCDUAL EQU JFCBFLG1 04176000 JFCSLDES EQU JFCBFLG1 04177000 JFCSLCRE EQU JFCBFLG1 04178000 JFCSTAND EQU JFCBFLG1 04179000 JFCBOPS1 EQU JFCBMASK 04180000 JFCBVLSQ EQU INFMJFCB+70 04181000 JFCRSV31 EQU JFCFUNC 04182000 JFCFNCBT EQU JFCFUNC 04183000 JFCFNCBX EQU JFCFUNC 04184000 JFCFNCBD EQU JFCFUNC 04185000 JFCFNCBW EQU JFCFUNC 04186000 JFCFNCBP EQU JFCFUNC 04187000 JFCFNCBR EQU JFCFUNC 04188000 JFCFNCBI EQU JFCFUNC 04189000 JFCBFOFL EQU JFCBUFOF 04190000 JFCNL EQU JFCBLTYP 04191000 JFCSL EQU JFCBLTYP 04192000 JFCNSL EQU JFCBLTYP 04193000 JFCSUL EQU JFCBLTYP 04194000 JFCBLP EQU JFCBLTYP 04195000 JFCBLTM EQU JFCBLTYP 04196000 JFCBAL EQU JFCBLTYP 04197000 JFCRSV38 EQU JFCBLTYP 04198000 JFCVINDX EQU INFMJFCB+64 04199000 JFCNLREC EQU INFMJFCB+62 04200000 JFCBADBF EQU INFMJFCB+60 04201000 JFCAMSTR EQU JFCBFRID+2 04202000 JFCAMCRO EQU JFCBFRID 04203000 JFCBDSCB EQU INFMJFCB+53 04204000 JFCPAT EQU JFCBTSDM 04205000 JFCNDCB EQU JFCBTSDM 04206000 JFCNDSCB EQU JFCBTSDM 04207000 JFCNWRIT EQU JFCBTSDM 04208000 JFCTTR EQU JFCBTSDM 04209000 JFCSDS EQU JFCBTSDM 04210000 JFCVSL EQU JFCBTSDM 04211000 JFCCAT EQU JFCBTSDM 04212000 JFCIPLTX EQU JFCBELNM 04213000 JFCBQNAM EQU JFCBDSNM 04214000 DS4END EQU IECSDSL4+96 04215000 @NM00083 EQU IECSDSL4+71 04216000 DS4VTOCE EQU IECSDSL4+61 04217000 DS4F6PTR EQU IECSDSL4+56 04218000 @NM00082 EQU IECSDSL4+51 04219000 DS4VSCRA EQU DS4AMCAT+1 04220000 @NM00081 EQU DS4VSIND 04221000 DS4VSBAD EQU DS4VSIND 04222000 DS4VSREF EQU DS4VSIND 04223000 DS4DEVDB EQU DS4DEVCT+13 04224000 DS4DEVDT EQU DS4DEVCT+12 04225000 DS4DEVTL EQU DS4DEVCT+10 04226000 DS4DEVFG EQU DS4DEVCT+9 04227000 DS4DEVK EQU DS4DEVCT+8 04228000 DS4DEVL EQU DS4DEVOV+1 04229000 DS4DEVI EQU DS4DEVOV 04230000 DS4DEVTK EQU DS4DEVCT+4 04231000 DS4DEVSZ EQU DS4DEVCT 04232000 @NM00080 EQU IECSDSL4+16 04233000 DS4NOEXT EQU IECSDSL4+15 04234000 DS4VTOCI EQU IECSDSL4+14 04235000 DS4NOATK EQU IECSDSL4+12 04236000 DS4HCCHH EQU IECSDSL4+8 04237000 DS4DSREC EQU IECSDSL4+6 04238000 DS4HPCHR EQU IECSDSL4+1 04239000 @NM00079 EQU IECSDSF4 04240000 JFCBAREA EQU WORKAREA 04241000 @NM00078 EQU INFOPARM 04242000 EXLEADDR EQU EXLEXITP 04243000 @NM00076 EQU EXLENFL 04244000 EXLLNK EQU EXLENFL 04245000 EXLACTM EQU EXLENFL 04246000 EXLSPEC EQU EXLENFL 04247000 EXLOPNP EQU EXLCOMN+36 04248000 @NM00075 EQU EXLOPNF 04249000 EXLOPNK EQU EXLOPNF 04250000 EXLOPNA EQU EXLOPNF 04251000 EXLOPNS EQU EXLOPNF 04252000 EXLJRNP EQU EXLCOMN+31 04253000 @NM00074 EQU EXLJRNF 04254000 EXLJRNK EQU EXLJRNF 04255000 EXLJRNA EQU EXLJRNF 04256000 EXLJRNS EQU EXLJRNF 04257000 EXLLGNP EQU EXLCOMN+26 04258000 @NM00073 EQU EXLLGNF 04259000 EXLLGNK EQU EXLLGNF 04260000 EXLLGNA EQU EXLLGNF 04261000 EXLLGNS EQU EXLLGNF 04262000 EXLSCIPP EQU EXLCOMN+21 04263000 @NM00072 EQU EXLSCIPF 04264000 EXLSCIPK EQU EXLSCIPF 04265000 EXLSCIPA EQU EXLSCIPF 04266000 EXLSCIPS EQU EXLSCIPF 04267000 EXLLERP EQU EXLCOMN+16 04268000 @NM00071 EQU EXLLERF 04269000 EXLLERK EQU EXLLERF 04270000 EXLLERA EQU EXLLERF 04271000 EXLLERS EQU EXLLERF 04272000 EXLSYNP EQU EXLCOMN+11 04273000 @NM00070 EQU EXLSYNF 04274000 EXLSYNK EQU EXLSYNF 04275000 EXLSYNA EQU EXLSYNF 04276000 EXLSYNS EQU EXLSYNF 04277000 EXLEODP EQU EXLCOMN+6 04278000 @NM00069 EQU EXLEODF 04279000 EXLEODK EQU EXLEODF 04280000 EXLEODA EQU EXLEODF 04281000 EXLEODS EQU EXLEODF 04282000 @NM00068 EQU EXLCOMN+4 04283000 EXLLEN2 EQU EXLLEN 04284000 EXLSTYP EQU EXLCOMN+1 04285000 EXLID EQU EXLCOMN 04286000 RPLERMSA EQU RPLCOMN+72 04287000 RPLEMLEN EQU RPLCOMN+70 04288000 RPLACTIV EQU RPLCOMN+69 04289000 RPLBRANC EQU RPLEXTD1 04290000 RPLNIB EQU RPLEXTD1 04291000 @NM00067 EQU RPLEXTD1 04292000 RPLEXIT EQU RPLEXTD1 04293000 RPLNEXIT EQU RPLEXTD1 04294000 RPLEXSCH EQU RPLEXTD1 04295000 RPLDDDD EQU RPLRBAR+4 04296000 @NM00066 EQU RPLRBAR+3 04297000 @NM00065 EQU RPLAIXID 04298000 RPLAXPKP EQU RPLAIXID 04299000 RPLAIXPC EQU RPLRBAR 04300000 RPLRSV88 EQU RPLOPT8 04301000 RPLUNCON EQU RPLOPT8 04302000 RPLACTV EQU RPLOPT8 04303000 RPLSESS EQU RPLOPT8 04304000 RPLPEND EQU RPLOPT8 04305000 RPLODPRM EQU RPLOPT8 04306000 RPLODACP EQU RPLOPT8 04307000 RPLODACQ EQU RPLOPT8 04308000 RPLRSV78 EQU RPLOPT7 04309000 RPLTCRNO EQU RPLOPT7 04310000 RPLRLSOP EQU RPLOPT7 04311000 RPLTPOST EQU RPLOPT7 04312000 RPLQOPT EQU RPLOPT7 04313000 RPLCNIMM EQU RPLCNOPT 04314000 RPLCNANY EQU RPLCNOPT 04315000 RPLCNALL EQU RPLCNOPT 04316000 RPLRSV68 EQU RPLOPT6 04317000 RPLRSV67 EQU RPLOPT6 04318000 RPLLOCK EQU RPLOPT6 04319000 RPLNCOND EQU RPLOPT6 04320000 RPLCOND EQU RPLOPT6 04321000 RPLEOT EQU RPLUNTYP 04322000 RPLEOM EQU RPLUNTYP 04323000 RPLEOB EQU RPLUNTYP 04324000 RPLWROPT EQU RPLOPT5 04325000 RPLNODE EQU RPLOPT5 04326000 RPLERACE EQU RPLWRTYP 04327000 RPLEAU EQU RPLWRTYP 04328000 RPLNERAS EQU RPLWRTYP 04329000 RPLPSOPT EQU RPLOPT5 04330000 @NM00064 EQU RPLOPT5 04331000 RPLDLGIN EQU RPLOPT5 04332000 RPLBUFL EQU RPLCOMN+52 04333000 RPLRLEN EQU RPLCOMN+48 04334000 RPLCHAIN EQU RPLNXTRP 04335000 @NM00063 EQU RPLOPT4 04336000 RPLMKFRM EQU RPLOPT4 04337000 RPLENDTR EQU RPLOPT4 04338000 RPLALIGN EQU RPLOPT3 04339000 RPLFMT EQU RPLOPT3 04340000 RPLFLD EQU RPLOPT3 04341000 RPLVFY EQU RPLOPT3 04342000 RPLBLK EQU RPLOPT3 04343000 RPLSFORM EQU RPLOPT3 04344000 RPLEODS EQU RPLOPT3 04345000 RPLNSP EQU RPLOPT2 04346000 RPLUPD EQU RPLOPT2 04347000 @NM00062 EQU RPLOPT2 04348000 RPLLRD EQU RPLOPT2 04349000 RPLBWD EQU RPLOPT2 04350000 RPLCNV EQU RPLOPT2 04351000 RPLADD EQU RPLADR 04352000 RPLKEY EQU RPLOPT2 04353000 RPLECBIN EQU RPLECBSW 04354000 RPLGEN EQU RPLOPT1 04355000 RPLKGE EQU RPLOPT1 04356000 RPLASY EQU RPLOPT1 04357000 RPLSKP EQU RPLOPT1 04358000 RPLSEQ EQU RPLOPT1 04359000 RPLDIR EQU RPLOPT1 04360000 RPLLOC EQU RPLOPT1 04361000 RPLDAF EQU RPLARG+2 04362000 RPLSAF EQU RPLARG 04363000 RPLAREA EQU RPLCOMN+32 04364000 RPLTCBPT EQU RPLCOMN+28 04365000 RPLDACB EQU RPLCOMN+24 04366000 RPLCCHAR EQU RPLCOMN+20 04367000 RPLSTRID EQU RPLCOMN+18 04368000 RPLKEYL EQU RPLKEYLE 04369000 RPLRDSOH EQU RPLFDB3 04370000 RPLRLG EQU RPLFDB3 04371000 RPLLGFRC EQU RPLFDB3 04372000 RPLREOT EQU RPLFDB3 04373000 RPLREOM EQU RPLFDB3 04374000 RPLREOB EQU RPLFDB3 04375000 RPLSV32 EQU RPLFDB3 04376000 RPLUINPT EQU RPLFDB3 04377000 RPLSTSAV EQU RPLFDB2 04378000 RPLCUERR EQU RPLFDB2 04379000 RPLDLGFL EQU RPLFDB2 04380000 RPLIOERR EQU RPLFDB2 04381000 RPLDVUNS EQU RPLFDB2 04382000 RPLATND EQU RPLFDB2 04383000 RPLRVID EQU RPLFDB2 04384000 RPLERLK EQU RPLFDB2 04385000 RPLERREG EQU RPLRTNCD 04386000 RPLSTAT EQU RPLFDBWD 04387000 RPLPOST EQU RPLECB 04388000 RPLWAIT EQU RPLECB 04389000 RPLPLHPT EQU RPLCOMN+4 04390000 RPLLEN2 EQU RPLLEN 04391000 RPLREQ EQU RPLIDWD+2 04392000 RPLSTYP EQU RPLIDWD+1 04393000 RPLID EQU RPLIDWD 04394000 DCBLPDT EQU IHADCS55 04395000 DCBWKPT6 EQU IHADCS29+196 04396000 DCBWKPT5 EQU IHADCS29+192 04397000 DCBWKPT4 EQU IHADCS29+188 04398000 DCBWKPT3 EQU IHADCS29+184 04399000 DCBWKPT2 EQU IHADCS29+180 04400000 DCBWKPT1 EQU IHADCS29+176 04401000 @NM00061 EQU IHADCS29+174 04402000 DCBRORG1 EQU IHADCS29+172 04403000 DCBLIOV EQU IHADCS29+164 04404000 DCBNOREC EQU IHADCS29+162 04405000 @NM00060 EQU IHADCS29+161 04406000 DCBLEMI1 EQU IHADCS29+156 04407000 DCBRORG2 EQU IHADCS29+154 04408000 @NM00059 EQU IHADCS29+153 04409000 DCBLECI EQU IHADCS29+148 04410000 DCBNBOV EQU IHADCS29+146 04411000 DCBOVDEV EQU IHADCS29+145 04412000 DCBLETI EQU IHADCS29+140 04413000 DCBLPDA EQU IHADCS29+132 04414000 DCBFTHI EQU IHADCS29+125 04415000 DCBNTHI EQU IHADCS29+124 04416000 DCBFTMI1 EQU IHADCS29+117 04417000 DCBHIIOV EQU IHADCS29+116 04418000 DCBFTCI EQU IHADCS29+109 04419000 DCBSTLTF EQU DCBST 04420000 DCBSTLBF EQU DCBST 04421000 DCBSTNMC EQU DCBST 04422000 @NM00058 EQU DCBST 04423000 DCBSTNCY EQU DCBST 04424000 DCBSTLOD EQU DCBST 04425000 DCBSTKSQ EQU DCBST 04426000 DCBSTSSM EQU DCBST 04427000 DCBNREC EQU IHADCS29+104 04428000 DCBRORG3 EQU IHADCS29+100 04429000 DCBNCRHI EQU IHADCS29+98 04430000 DCBTDC EQU IHADCS29+96 04431000 DCBHIRSH EQU IHADCS29+95 04432000 DCBHIROV EQU IHADCS29+94 04433000 DCBHIRPD EQU IHADCS29+93 04434000 DCBHIRCM EQU IHADCS29+92 04435000 DCBLDT EQU IHADCS29+90 04436000 DCBHMASK EQU IHADCS29+89 04437000 DCBFIRSH EQU IHADCS29+86 04438000 DCBNLEV EQU IHADCS29+85 04439000 DCBLEMI3 EQU IHADCS29+80 04440000 DCBFTMI3 EQU IHADCS29+73 04441000 DCBLEMI2 EQU IHADCS29+68 04442000 DCBFTMI2 EQU IHADCS29+61 04443000 DCBHIRTI EQU IHADCS29+60 04444000 DCBFREED EQU IHADCS29+56 04445000 DCBRELEX EQU IHADCS29+52 04446000 DCBPUTX EQU IHADCS29+48 04447000 DCBRELSE EQU IHADCS29+44 04448000 DCBLWKN EQU IHADCS29+40 04449000 DCBLRAN EQU IHADCS29+36 04450000 DCBESETL EQU IHADCS29+32 04451000 @NM00057 EQU DCBEXCD2 04452000 DCBEXRDE EQU DCBEXLTH 04453000 DCBEXOFL EQU DCBEXCD2 04454000 DCBEXCLD EQU DCBEXCD2 04455000 DCBEXDUP EQU DCBEXCD2 04456000 DCBEXSEQ EQU DCBEXCD2 04457000 DCBEXBLU EQU DCBEXCD1 04458000 DCBEXBLI EQU DCBEXCD1 04459000 DCBEXOER EQU DCBEXCD1 04460000 DCBEXIER EQU DCBEXCD1 04461000 DCBEXINV EQU DCBEXCD1 04462000 DCBEXNSP EQU DCBEXCD1 04463000 DCBEXIDA EQU DCBEXCD1 04464000 DCBEXNKY EQU DCBEXCD1 04465000 DCBSETL EQU IHADCS29+24 04466000 DCBMSHIA EQU DCBMSHI+1 04467000 DCBNCP EQU DCBMSHI 04468000 DCBSMSW EQU IHADCS29+18 04469000 DCBSMSI EQU IHADCS29+16 04470000 DCBMSWA EQU IHADCS29+12 04471000 DCBRKP EQU IHADCS29+8 04472000 DCBCYLOF EQU IHADCS29+3 04473000 DCBNTM EQU IHADCS29+2 04474000 DCBMACRE EQU DCBMAC 04475000 DCBMACAW EQU DCBMAC 04476000 DCBMACUW EQU DCBMAC 04477000 DCBMACUR EQU DCBMAC 04478000 @NM00056 EQU DCBMAC 04479000 DCBOPTR EQU DCBOPTCD 04480000 DCBOPTL EQU DCBOPTCD 04481000 @NM00055 EQU DCBOPTCD 04482000 DCBOPTY EQU DCBOPTCD 04483000 DCBOPTI EQU DCBOPTCD 04484000 DCBOPTM EQU DCBOPTCD 04485000 DCBOPTUF EQU DCBOPTCD 04486000 DCBOPTW EQU DCBOPTCD 04487000 DCBPUTA EQU DCBGETA 04488000 @NM00054 EQU DCBPUT 04489000 DCBDEBA EQU DCBDEBAD+1 04490000 @NM00053 EQU DCBIFLGS 04491000 DCBIFIOE EQU DCBIFLGS 04492000 DCBCH12 EQU DCBIFPCT 04493000 DCBCH9 EQU DCBIFPCT 04494000 DCBIFEC EQU DCBIFLGS 04495000 DCBMFSTI EQU DCBMFDMD 04496000 DCBMFAWR EQU DCBMFSTK 04497000 DCBMFUIP EQU DCBMFTMD 04498000 DCBMFIDW EQU DCBMFLCP 04499000 DCBMFWRK EQU DCBMFMVP 04500000 DCBMFRDQ EQU DCBMFWRT 04501000 DCBMFGTQ EQU DCBMFPUT 04502000 DCBMFSTL EQU DCBMACF2 04503000 DCBMFCK EQU DCBMFDMG 04504000 DCBMFRDX EQU DCBMFCHK 04505000 DCBMFDBF EQU DCBMFSBG 04506000 DCBMFRDI EQU DCBMFLCG 04507000 DCBMFRDK EQU DCBMFMVG 04508000 DCBMFWRQ EQU DCBMFRD 04509000 DCBMFPTQ EQU DCBMFGET 04510000 DCBMFECP EQU DCBMACF1 04511000 DCBTIOT EQU IHADCS25 04512000 DCBMRSTI EQU DCBMRDMD 04513000 DCBMRAWR EQU DCBMRSTK 04514000 DCBMRUIP EQU DCBMRTMD 04515000 DCBMRIDW EQU DCBMRLCP 04516000 DCBMRWRK EQU DCBMRMVP 04517000 DCBMRRDQ EQU DCBMRWRT 04518000 DCBMRGTQ EQU DCBMRPUT 04519000 DCBMRSTL EQU DCBMACR2 04520000 DCBMRCK EQU DCBMRDMG 04521000 DCBPGFXA EQU DCBMRRDX 04522000 DCBMRDBF EQU DCBMRSBG 04523000 DCBMRRDI EQU DCBMRLCG 04524000 DCBMRRDK EQU DCBMRMVG 04525000 DCBMRWRQ EQU DCBMRRD 04526000 DCBMRPTQ EQU DCBMRGET 04527000 DCBMRECP EQU DCBMACR1 04528000 @NM00052 EQU DCBIFLG 04529000 DCBIBIOE EQU DCBIFLG 04530000 DCBICH12 EQU DCBIBPCT 04531000 DCBICH9 EQU DCBIBPCT 04532000 DCBIBEC EQU DCBIFLG 04533000 DCBOFIOF EQU DCBOFLGS 04534000 DCBOFUEX EQU DCBOFLGS 04535000 DCBOFTM EQU DCBOFLGS 04536000 DCBOFPPC EQU DCBOFLGS 04537000 DCBOFOPN EQU DCBOFLGS 04538000 DCBOFEOV EQU DCBOFLGS 04539000 DCBOFLRB EQU DCBOFLGS 04540000 DCBOFIOD EQU DCBOFLWR 04541000 DCBRECKL EQU DCBRECFM 04542000 DCBRECCC EQU DCBRECFM 04543000 DCBRECSB EQU DCBRECFM 04544000 DCBRECBR EQU DCBRECFM 04545000 DCBRECTO EQU DCBRECLA 04546000 DCBRECL EQU DCBRECLA 04547000 DCBEODA EQU DCBEODAD+1 04548000 DCBBFA EQU DCBBFTEK 04549000 DCBH0 EQU DCBBFTEK 04550000 DCBBFTKD EQU DCBBFTEK 04551000 DCBBFTE EQU DCBBFT 04552000 DCBBFTKR EQU DCBBFT 04553000 DCBBFTS EQU DCBBFT 04554000 DCBH1 EQU DCBBFTEK 04555000 DCBSVCXA EQU DCBSVCXL+1 04556000 @NM00051 EQU DCBSVCXL 04557000 DCBODEBA EQU DCBIOBAA 04558000 @NM00050 EQU DCBQSLM 04559000 DCBUPDBT EQU DCBQSLM 04560000 DCBUPDCM EQU DCBQSLM 04561000 DCB1DVDS EQU DCBQSLM 04562000 @NM00049 EQU DCBDSRG2 04563000 DCBDSGTR EQU DCBDSRG2 04564000 DCBACBM EQU DCBDSRG2 04565000 @NM00048 EQU DCBDSRG2 04566000 DCBDSGTQ EQU DCBDSRG2 04567000 DCBDSGTX EQU DCBDSRG2 04568000 DCBDSGGS EQU DCBDSRG2 04569000 DCBDSGU EQU DCBDSRG1 04570000 DCBDSGPO EQU DCBDSRG1 04571000 @NM00047 EQU DCBDSRG1 04572000 @NM00046 EQU DCBDSRG1 04573000 DCBDSGCX EQU DCBDSRG1 04574000 DCBDSGDA EQU DCBDSRG1 04575000 DCBDSGPS EQU DCBDSRG1 04576000 DCBDSGIS EQU DCBDSRG1 04577000 DCBBUFL EQU IHADCS11+8 04578000 DCBBUFCA EQU DCBBUFCB+1 04579000 DCBBUFNO EQU DCBBUFCB 04580000 DCBDEVT EQU DCBREL 04581000 DCBKEYLE EQU DCBRELB 04582000 DCBTRBAL EQU IHADCS01+6 04583000 @NM00045 EQU IHADCS01+5 04584000 @NM00044 EQU IHADCS01+4 04585000 DCBDVTBA EQU DCBDVTBL+1 04586000 @NM00043 EQU DCBDVTBL 04587000 DCBKEYCN EQU IHADCS00+4 04588000 DCBRELAD EQU IHADCS00 04589000 @NM00042 EQU IHADCB 04590000 @NM00040 EQU IOCRCV 04591000 IOCRCVRA EQU IOCRCV 04592000 IOCRCVXM EQU IOCRCV 04593000 IOCVLN EQU IOCSEX+42 04594000 IOCDNM EQU IOCSEX+40 04595000 IOCDDN EQU IOCDLM 04596000 IOCMODEX EQU IOCMOD 04597000 IOCMODRP EQU IOCMOD 04598000 IOCMODXM EQU IOCMOD 04599000 IOCMODUB EQU IOCMOD 04600000 IOCMODRG EQU IOCMOD 04601000 IOCMODDY EQU IOCMOD 04602000 IOCMODRR EQU IOCMOD 04603000 IOCMODPD EQU IOCMOD 04604000 IOCINFR1 EQU IOCINF 04605000 IOCINFCT EQU IOCINF 04606000 IOCINFDO EQU IOCINF 04607000 IOCINFAC EQU IOCINF 04608000 IOCINFQX EQU IOCINF 04609000 IOCINFND EQU IOCINF 04610000 IOCINFAE EQU IOCINF 04611000 @NM00039 EQU IOCDEV 04612000 IOCDEVUR EQU IOCDEV 04613000 IOCDEVMT EQU IOCDEV 04614000 IOCDEVDA EQU IOCDEV 04615000 @NM00038 EQU IOCFLG 04616000 IOCFLGSP EQU IOCFLG 04617000 IOCFLGOE EQU IOCFLG 04618000 IOCFLGOP EQU IOCFLG 04619000 IOCFLGIO EQU IOCFLG 04620000 IOCFLGEF EQU IOCFLG 04621000 IOCFLGDF EQU IOCFLG 04622000 IOCSID EQU IOCSEX+28 04623000 IOCNIO EQU IOCSEX+24 04624000 @NM00037 EQU IOCXPM+2 04625000 IOCEXL EQU IOCXPM 04626000 IOCWKA EQU IOCSEX+12 04627000 IOCLRP EQU IOCSEX+10 04628000 IOCCBL EQU IOCSEX+8 04629000 IOCDEC EQU IOCRPL 04630000 @NM00036 EQU IODATA+64 04631000 IODAEI EQU IODATA+60 04632000 @NM00035 EQU IODATA+56 04633000 IODIOX EQU IODATA+52 04634000 IODOCS EQU IODATA+48 04635000 IODICS EQU IODATA+44 04636000 IODOSO EQU IODATA+40 04637000 IODEOD EQU IODATA+32 04638000 @NM00034 EQU IODATA+30 04639000 @NM00033 EQU IODATA+28 04640000 IODOEV EQU IODATA+24 04641000 IODIEV EQU IODATA+20 04642000 IODINC EQU IODSID+2 04643000 IODMID EQU IODSID 04644000 IODXTN EQU IODATA+12 04645000 IODADD EQU IODATA+8 04646000 IODIOC EQU IODATA 04647000 @NM00032 EQU DMPARY+15 04648000 DMPARYTP EQU DMPARY+14 04649000 DMPARYEX EQU DMPARY+12 04650000 DMPARYIC EQU DMPARY+10 04651000 DMPARYSZ EQU DMPARY+8 04652000 DMPARYNM EQU DMPARY 04653000 @NM00031 EQU DMPITM+15 04654000 DMPITMTP EQU DMPITM+14 04655000 DMPITMLN EQU DMPITM+12 04656000 DMPITMPT EQU DMPITM+8 04657000 DMPITMNM EQU DMPITM 04658000 @NM00030 EQU ERCNVTAB+24 04659000 ERDARBPT EQU ERCPLPT 04660000 ERDYNRC EQU ERCATRC 04661000 ERDSNM EQU ERCNVTAB+12 04662000 @NM00029 EQU ERCNVTAB+4 04663000 @NM00028 EQU ERCNVTAB+3 04664000 @NM00027 EQU EROSOPER 04665000 EROSUCDX EQU EROSOPER 04666000 EROSCATL EQU EROSOPER 04667000 @NM00026 EQU EROPER 04668000 ERCATAL EQU EROPER 04669000 ERCATDL EQU EROPER 04670000 ERCATDE EQU EROPER 04671000 ERCATLC EQU EROPER 04672000 @NM00025 EQU ERTYPE 04673000 ERDYNAL EQU ERTYPE 04674000 EROSCAT EQU ERTYPE 04675000 ERCATLG EQU ERTYPE 04676000 @NM00024 EQU FMTCNVF+1 04677000 FMTAR EQU FMTCNVF+1 04678000 FMTBS EQU FMTCNVF+1 04679000 FMTSS EQU FMTCNVF+1 04680000 FMTAL EQU FMTCNVF+1 04681000 FMTZS EQU FMTCNVF+1 04682000 @NM00023 EQU FMTCNVF 04683000 FMTPU EQU FMTCNVF 04684000 FMTBD EQU FMTCNVF 04685000 FMTBHD EQU FMTCNVF 04686000 FMTBHA EQU FMTCNVF 04687000 FMTBH EQU FMTCNVF 04688000 FMTOLEN EQU FMTLIST+8 04689000 FMTRIO EQU FMTOCOL 04690000 FMTSPT EQU FMTSTO 04691000 FMTSTL EQU FMTILEN 04692000 @NM00022 EQU FMTFLGS+1 04693000 FMTSMSG EQU FMTFLGS+1 04694000 FMTHDF EQU FMTFLGS 04695000 FMTDFF EQU FMTFLGS 04696000 FMTSTF EQU FMTFLGS 04697000 FMTREPF EQU FMTFLGS 04698000 FMTBDF EQU FMTFLGS 04699000 FMTIDF EQU FMTFLGS 04700000 FMTSCF EQU FMTFLGS 04701000 FMTEOLF EQU FMTFLGS 04702000 DARGPCT EQU DARGINL 04703000 DARGREP EQU DARGINS 04704000 @NM00021 EQU DARGLIST+19 04705000 DARGIND EQU DARGLIST+18 04706000 DARGRETL EQU DARGLIST+16 04707000 DARGRETP EQU DARGLIST+4 04708000 UVOLVOL EQU UVOLENT+4 04709000 UVOLDEV EQU UVOLENT 04710000 UVOLCNT EQU UVOLLIST 04711000 @NM00020 EQU IOINFOPT 04712000 IOINFLUB EQU IOINFOPT 04713000 OPNVOL EQU OPNAGL+44 04714000 OPNSTRNO EQU OPNAGL+43 04715000 @NM00019 EQU OPNOPT2 04716000 OPNOPTJM EQU OPNOPT2 04717000 @NM00018 EQU OPNOPT2 04718000 OPNOPTAS EQU OPNOPT2 04719000 @NM00017 EQU OPNDSO 04720000 OPNDSOPO EQU OPNDSO 04721000 OPNDSOIS EQU OPNDSO 04722000 OPNDSOPS EQU OPNDSO 04723000 OPNDSOAM EQU OPNDSO 04724000 OPNKYL EQU OPNAGL+40 04725000 OPNBLK EQU OPNAGL+36 04726000 OPNREC EQU OPNAGL+32 04727000 OPNDEVIX EQU OPNDEV+4 04728000 OPNDEVDT EQU OPNDEV 04729000 OPNCBP EQU OPNAGL+20 04730000 OPNDSN EQU OPNAGL+16 04731000 OPNPWA EQU OPNAGL+12 04732000 OPNDDN EQU OPNAGL+8 04733000 OPNIOC EQU OPNAGL+4 04734000 OPNMODRP EQU OPNMOD 04735000 OPNMODUB EQU OPNMOD 04736000 OPNMODRS EQU OPNMOD 04737000 OPNMODAX EQU OPNMOD 04738000 OPNMODRR EQU OPNMOD 04739000 OPNMODRC EQU OPNMOD 04740000 OPNMODAC EQU OPNMOD 04741000 OPNMODPD EQU OPNMOD 04742000 OPNTYPSY EQU OPNTYP 04743000 OPNTYPRV EQU OPNTYP 04744000 OPNTYPEX EQU OPNTYP 04745000 OPNTYPRA EQU OPNTYP 04746000 OPNTYPXM EQU OPNTYP 04747000 OPNTYPCI EQU OPNTYP 04748000 OPNTYPSO EQU OPNTYP 04749000 OPNTYPSI EQU OPNTYP 04750000 @NM00016 EQU OPNRFM 04751000 OPNRFMBK EQU OPNRFM 04752000 OPNRFMSF EQU OPNRFM 04753000 OPNRFMUN EQU OPNRFM 04754000 OPNRFMVR EQU OPNRFM 04755000 OPNRFMFX EQU OPNRFM 04756000 OPNOPTSK EQU OPNOPT 04757000 OPNOPTDR EQU OPNOPT 04758000 OPNOPTCR EQU OPNOPT 04759000 OPNOPTKS EQU OPNOPT 04760000 OPNOPTBK EQU OPNOPT 04761000 OPNOPTUP EQU OPNOPT 04762000 OPNOPTOT EQU OPNOPT 04763000 OPNOPTIN EQU OPNOPT 04764000 IOCTSML EQU IOCREL+2 04765000 IOCTPML EQU IOCREL 04766000 IOCWORK EQU IOCSTR+56 04767000 IOCRRN EQU IOCSTR+52 04768000 IOCPNM EQU IOCNWM+2 04769000 IOCCBP EQU IOCSTR+36 04770000 IOCHURBA EQU IOCSTR+28 04771000 IOCVOLSR EQU IOCSTR+22 04772000 @NM00015 EQU IOCMSG 04773000 IOCMSGCE EQU IOCMSG 04774000 IOCMSGOE EQU IOCMSG 04775000 IOCCHPKG EQU IOCMSG 04776000 IOCCHPKE EQU IOCMSG 04777000 IOCCHPNU EQU IOCCHP 04778000 IOCCHPUP EQU IOCCHP 04779000 IOCCHPBK EQU IOCCHP 04780000 IOCCHPCR EQU IOCCHP 04781000 IOCCHPKS EQU IOCCHP 04782000 IOCCHPSK EQU IOCCHP 04783000 IOCCHPDR EQU IOCCHP 04784000 IOCCHPSQ EQU IOCCHP 04785000 IOCMACNT EQU IOCMAC2 04786000 IOCMACER EQU IOCMAC2 04787000 IOCMACPA EQU IOCMAC2 04788000 IOCMACEN EQU IOCMAC2 04789000 IOCMACCP EQU IOCMAC2 04790000 IOCMACAS EQU IOCMAC2 04791000 IOCMACSK EQU IOCMAC2 04792000 @NM00014 EQU IOCMAC 04793000 IOCMACCC EQU IOCMAC 04794000 IOCMACDR EQU IOCMAC 04795000 IOCMACUP EQU IOCMAC 04796000 IOCMACOT EQU IOCMAC 04797000 IOCMACIN EQU IOCMAC 04798000 @NM00013 EQU IOCRFM 04799000 IOCRFMBK EQU IOCRFM 04800000 IOCRFMSF EQU IOCRFM 04801000 IOCRFMUN EQU IOCRFM 04802000 IOCRFMVR EQU IOCRFM 04803000 IOCRFMFX EQU IOCRFM 04804000 @NM00012 EQU IOCDSO 04805000 IOCDSOPO EQU IOCDSO 04806000 IOCDSOPS EQU IOCDSO 04807000 IOCRKP EQU IOCSTR+13 04808000 IOCTRN EQU IOCSTR+8 04809000 IOCDLN EQU IOCSTR+4 04810000 IOCDAD EQU IOCSTR 04811000 UNITVTOC EQU UNITABL+7 04812000 @NM00011 EQU UNITSTAT 04813000 UNITXSHR EQU UNITSTAT 04814000 UNITISHR EQU UNITSTAT 04815000 UNITUA EQU @NM00010+1 04816000 UNITCHA EQU @NM00010 04817000 UNITUCB EQU UNITABL 04818000 ALLUNCNT EQU ALLAGL+30 04819000 ALLVLCNT EQU ALLAGL+29 04820000 @NM00009 EQU ALLOPT 04821000 ALLOPTUN EQU ALLOPT 04822000 ALLOPTPV EQU ALLOPT 04823000 ALLOPTDS EQU ALLOPT 04824000 ALLOPTVL EQU ALLOPT 04825000 @NM00008 EQU ALLORG+1 04826000 ALLORGVS EQU ALLORG+1 04827000 @NM00007 EQU ALLORG+1 04828000 ALLORGGS EQU ALLORG+1 04829000 ALLORGUN EQU ALLORG 04830000 ALLORGPO EQU ALLORG 04831000 ALLORGMQ EQU ALLORG 04832000 ALLORGCQ EQU ALLORG 04833000 ALLORGCX EQU ALLORG 04834000 ALLORGDA EQU ALLORG 04835000 ALLORGPS EQU ALLORG 04836000 ALLORGIS EQU ALLORG 04837000 ALLDSPUN EQU ALLDSP 04838000 ALLDSPCG EQU ALLDSP 04839000 ALLDSPDE EQU ALLDSP 04840000 ALLDSPKP EQU ALLDSP 04841000 @NM00006 EQU ALLDSP 04842000 ALLSTSOD EQU ALLSTS 04843000 ALLSTSMD EQU ALLSTS 04844000 ALLSTSNW EQU ALLSTS 04845000 ALLSTSSR EQU ALLSTS 04846000 @NM00005 EQU ALLSTS 04847000 ALLPWD EQU ALLAGL+20 04848000 ALLVLP EQU ALLAGL+16 04849000 ALLULP EQU ALLAGL+12 04850000 ALLDDN EQU ALLAGL+4 04851000 ALLDSN EQU ALLAGL 04852000 CIRPID EQU CIRAGL+28 04853000 CIRPWD EQU CIRAGL+24 04854000 CIRCAT EQU CIRAGL+20 04855000 CIRWKP EQU CIRAGL+16 04856000 CIRTLR EQU CIRAGL+12 04857000 CIRHDR EQU CIRAGL+8 04858000 CIRTLN EQU CIRAGL+6 04859000 CIRHLN EQU CIRAGL+4 04860000 @NM00004 EQU CIRAGL+1 04861000 @NM00003 EQU CIRTYPE 04862000 CIRTYPAQ EQU CIRTYPE 04863000 CIRTYP1Q EQU CIRTYPE 04864000 NEWID1 EQU TRACE1+95 04865000 CALLID EQU OLDERID1+90 04866000 @NM00002 EQU OLDERID1 04867000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04868000 @PB00007 EQU @EL00001 04869000 @PB00006 EQU @PB00007 04870000 @PB00005 EQU @PB00006 04871000 @PB00004 EQU @PB00005 04872000 @PB00003 EQU @PB00004 04873000 @PB00002 EQU @PB00003 04874000 @ENDDATA EQU * 04875000 END IDCIO03,(C'PLS1301',0701,76118) 04876000