TITLE 'ISTOCCUR - OPEN/CLOSE UNROUTER *00001000 ' 00002000 ISTOCCUR CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTOCCUR 77.062' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * CWORKREG=4; /* FLAG USER POST TO BE CALLED */ 0259 00013000 LA CWORKREG,4 0259 00014000 * CREQT=ZERO; /* INDICATE REQUEST TYPE NOT CLOSE ACB @ZA06585*/ 00015000 SLR CREQT,CREQT 0260 00016000 * CPRPH=ZERO; /* CLEAR CLOSE ACB RPH PTR @ZA06585*/ 00017000 SLR CPRPH,CPRPH 0261 00018000 * CDEBPTR=OCWACDEB; /* ESTABLISH ACDEB POINTER @ZA06585*/ 00019000 L CDEBPTR,OCWACDEB(,COCWPTR) 0262 00020000 * CRPLARG = RPLARG; /*SAVE OCA ADDR @ZA13643*/ 00021000 L @14,OCWRPL(,COCWPTR) 0263 00022000 L @11,RPLARG(,@14) 0263 00023000 ST @11,CRPLARG(,COCWPTR) 0263 00024000 * IF RPLREQ='21'X /* CLOSE ACB? @ZA06585*/ 00025000 * THEN DO; /* @ZA06585*/ 00026000 CLI RPLREQ(@14),33 0264 00027000 BNE @RF00264 0264 00028000 * CWORKREG=ZERO; /* INDICATE NOT TO CALL USER POST @ZA06585*/ 00029000 SLR CWORKREG,CWORKREG 0266 00030000 * CREQT='21'X; /* INDICATE CLOSE ACB REQUEST @ZA06585*/ 00031000 LA CREQT,33 0267 00032000 * END; /* END-IS CLOSE ACB @ZA06585*/ 00033000 * ELSE /* NOT CLOSE ACB @ZA06585*/ 00034000 * /*SEGMENT(DOCOUNT)REQUEST*/DO;GOTO DOCOUNT;DOCOUNT#:END; /* UPD 00035000 *TE PAB COUNT @ZA06585*/ 0269 00036000 B @RC00264 0269 00037000 @RF00264 DS 0H 0270 00038000 B DOCOUNT 0270 00039000 DOCOUNT# DS 0H 0272 00040000 * IF (OCWARDTE->RAPALLF=CON) & 0272 00041000 * (RPLTPOST=CON) /* APPL PRIVL OR POST INDICATED */ 00042000 * THEN DO; 0272 00043000 * 0272 00044000 @RC00264 L @14,OCWARDTE(,COCWPTR) 0272 00045000 TM RAPALLF(@14),B'10000000' 0272 00046000 BNO @RF00272 0272 00047000 L @14,OCWRPL(,COCWPTR) 0272 00048000 TM RPLTPOST(@14),B'00001000' 0272 00049000 BNO @RF00272 0272 00050000 */*TPPOST ((RPLECB)) */ 0274 00051000 * DO; 0274 00052000 * 0274 00053000 * DCL GPR00F FIXED(31) REG(00); 0275 00054000 * DCL GPR00P PTR(31) REG(00); 0276 00055000 * DCL GPR01F FIXED(31) REG(01); 0277 00056000 * DCL GPR01P PTR(31) REG(01); 0278 00057000 * DCL GPR02F FIXED(31) REG(02); 0279 00058000 * DCL GPR02P PTR(31) REG(02); 0280 00059000 * DCL GPR03F FIXED(31) REG(03); 0281 00060000 * DCL GPR03P PTR(31) REG(03); 0282 00061000 * DCL GPR04F FIXED(31) REG(04); 0283 00062000 * DCL GPR04P PTR(31) REG(04); 0284 00063000 * DCL GPR05F FIXED(31) REG(05); 0285 00064000 * DCL GPR05P PTR(31) REG(05); 0286 00065000 * DCL GPR06F FIXED(31) REG(06); 0287 00066000 * DCL GPR06P PTR(31) REG(06); 0288 00067000 * DCL GPR14F FIXED(31) REG(14); 0289 00068000 * DCL GPR14P PTR(31) REG(14); 0290 00069000 * DCL GPR15F FIXED(31) REG(15); 0291 00070000 * DCL GPR15P PTR(31) REG(15); 0292 00071000 * /*DECLARE AND RESTRICT REGS*/ 00072000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0293 00073000 * GPR06F,GPR14F,GPR15F) RSTD; 0293 00074000 * /*0,1,4,5,6,14, AND 15 */ 00075000 * 0294 00076000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH) */ 0294 00077000 * RFY ISTRPH ; 0294 00078000 */* END OF ATBUILD */ 0295 00079000 * GEN REFS(GPR01P,GPR02F,GPR06F)SETS(RPHWORK); 0295 00080000 STM GPR02F,GPR06F,RPHWORK(GPR01P) 00081000 * GPR04F=RPLECB; /*LOAD RPH PNTR INTO REG 4*/ 00082000 L @11,OCWRPL(,COCWPTR) 0296 00083000 L @11,RPLECB(,@11) 0296 00084000 LR GPR04F,@11 0296 00085000 * RFY GPR03F RSTD; 0297 00086000 * GPR03F=0; 0298 00087000 * 0298 00088000 SLR GPR03F,GPR03F 0298 00089000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(G 00090000 *R05F)*/ RESPECIFY (GPR02F) RESTRICTED; 0299 00091000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0301 00092000 LR GPR05F,GPR02F 0301 00093000 * IPK; /*SAVE CURRENT PSW KEY*/ 0302 00094000 IPK 0302 00095000 * GPR06F = GPR02F; 0303 00096000 LR GPR06F,GPR02F 0303 00097000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0304 00098000 LR GPR02F,GPR05F 0304 00099000 * SPKA (GPR03F); /*SET PSW KEY*/ 0305 00100000 SPKA 0(GPR03F) 0305 00101000 * RESPECIFY (GPR02F) UNRESTRICTED; 0306 00102000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG( 00103000 *PR05F)*/ RFY GPR03F UNRSTD; 0307 00104000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 0309 00105000 L GPR05P,RPHMAJCB-1(,GPR04P) 0309 00106000 LA GPR05P,0(,GPR05P) 0309 00107000 SLR @11,@11 0309 00108000 IC @11,RPHPABOF(,GPR04P) 0309 00109000 ALR GPR05P,@11 0309 00110000 * /*LOAD REG 5 WITH ADDR OF*/ 00111000 * /*MAJOR CONTROL BLOCK PLUS*/ 00112000 * /*OFFSET OF PAB IN BLOCK */ 00113000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 00114000 SLR GPR14P,GPR14P 0310 00115000 * GPR15P='FFFFFFFF'X; /*LOAD REG 15 WITH DUMMY */ 00116000 SLR GPR15P,GPR15P 0311 00117000 BCTR GPR15P,0 0311 00118000 * /*ADDRESS */ 00119000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0312 00120000 CS GPR14P,@15,RPHRESMA(GPR04P) 0312 00121000 * /*COMPARE RESUME ADDRESS */ 00122000 * /*WITH 0 AND,IF EQUAL, PUT*/ 00123000 * /*DUMMY ADDRESS IN CONTROL*/ 00124000 * /*BLOCK RESUME ADDRESS */ 00125000 * BC (8,FMZT0008); /*IF EQUAL, BYPASS REMAINDER*/ 00126000 BC 8,FMZT0008 0313 00127000 * /*OF EXPANSION */ 00128000 *FMZL0008: IF GPR04P->RPHWT='1'B THEN 0314 00129000 FMZL0008 TM RPHWT(GPR04P),B'00001000' 0314 00130000 BNO @RF00314 0314 00131000 * /*WT/EXT CONTENTION FLAG ON */ 00132000 * DO; /*IN RPH */ 00133000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 0316 00134000 L GPR14P,RPHRESMA(,GPR04P) 0316 00135000 O GPR14P,@CF02180 0316 00136000 * /*LOAD REG 14 WITH FLAG FIELD*/ 00137000 * /*AND MAKE CERTAIN WT/EXT */ 00138000 * /*CONTENTION FLAG STILL ON */ 00139000 * GPR15P=GPR14P|RPHPT1;/*LOAD REG 15 WITH FLAG FIELD*/ 00140000 LR GPR15P,GPR14P 0317 00141000 O GPR15P,@CF02170 0317 00142000 * /*AND TURN POST FLAG ON */ 00143000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0318 00144000 CS GPR14P,@15,RPHRESMA(GPR04P) 0318 00145000 * /*COMPARE REG 14 WITH FLAG */ 00146000 * /*FIELD--IF WT/EXT BIT ON, */ 00147000 * /*TURN ON POST FLAG */ 00148000 * BC (4,FMZL0008); /*IF WT/EXT BIT WAS OFF, LOOP*/ 00149000 BC 4,FMZL0008 0319 00150000 * /*TO TEST CONTENTION FLAG */ 00151000 * BC (8,FMZT0008); /*IF WT/EXT BIT WAS OFF, */ 00152000 BC 8,FMZT0008 0320 00153000 * /*BRANCH TO BYPASS CODE GEN */ 00154000 * END; /*IF POST FLAG IS ON, FALL*/ 00155000 * /*THRU BOTTOM OF LOOP */ 00156000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 00157000 @RF00314 DS 0H 0323 00158000 * IF GPR04P->RPHTSKID=GPR01P->RPHTSKID 0323 00159000 * THEN DO; 0323 00160000 CLC RPHTSKID(4,GPR04P),RPHTSKID(GPR01P) 0323 00161000 BNE @RF00323 0323 00162000 * GPR05P->PABCHNGP=GPR01P->RPHPABQP; 0325 00163000 MVC PABCHNGP(3,GPR05P),RPHPABQP(GPR01P) 0325 00164000 * /*PUT PAB QUEUE ADDRESS*/ 0326 00165000 * /*IN SECOND WORD OF PAB */ 00166000 * GPR01P->RPHPABQP=GPR05P; 0326 00167000 STCM GPR05P,7,RPHPABQP(GPR01P) 0326 00168000 * /*PUT PAB ADDRESS (IN MAJOR */ 00169000 * /*CONTROL BLOCK) IN PAB */ 0327 00170000 * /*QUEUE ADRESS IN RPH */ 00171000 * END; 0327 00172000 * ELSE DO; 0328 00173000 B @RC00323 0328 00174000 @RF00323 DS 0H 0329 00175000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 00176000 * 0329 00177000 SLR GPR00F,GPR00F 0329 00178000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0330 00179000 * 0330 00180000 * RFY ISTATCVT; 0331 00181000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0332 00182000 L GPR15P,ATCLCPTR 0332 00183000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 00184000 * /* IN REG 15 */ 00185000 * CALL GPR15P->ATCAP32;/* CALL ISTAPC32: TPSCHED */ 00186000 L @11,ATCAP32(,GPR15P) 0334 00187000 LR @15,@11 0334 00188000 BALR @14,@15 0334 00189000 * END; 0335 00190000 *FMZT0008: 0336 00191000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 0336 00192000 @RC00323 DS 0H 0336 00193000 FMZT0008 DS 0H 0337 00194000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 0337 00195000 LR GPR05F,GPR06F 0337 00196000 * SPKA (GPR05F); /*SET PSW KEY*/ 0338 00197000 SPKA 0(GPR05F) 0338 00198000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 0339 00199000 * GEN REFS(GPR04P, 0340 00200000 * RPHWORK) 0340 00201000 * SETS(GPR02F,GPR03F, 0340 00202000 * GPR04F,GPR05F,GPR06F); 0340 00203000 LM GPR02F,GPR06F,RPHWORK(GPR01P) 00204000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 0341 00205000 * GPR14F,GPR15F) UNRSTD; /*UNRESTRICT REGS 0,1, */ 00206000 * /*4,5,14, AND 15 */ 00207000 * END; /****END OF TPPOST GENERATION****/ /* POST RPL 00208000 *ND INDICATED */ 0342 00209000 * CWORKREG=0; /* USER POST IS NOT TO BE CALLED */ 00210000 SLR CWORKREG,CWORKREG 0343 00211000 * END; 0344 00212000 * ELSE; 0345 00213000 @RF00272 DS 0H 0346 00214000 * IF CWORKREG=4 /* IS USER POST TO BE CALLED */ 0346 00215000 * THEN DO; 0346 00216000 C CWORKREG,@CF00053 0346 00217000 BNE @RF00346 0346 00218000 * IF OCWNPOST^=CON /* CHECK OCW NO POST BIT @X50BHXL*/ 00219000 * THEN DO; /* @X50BHXL*/ 00220000 TM OCWNPOST(COCWPTR),B'01000000' 0348 00221000 BO @RF00348 0348 00222000 * RPHWEA=OCWRPL; 0350 00223000 L @14,OCWRPL(,COCWPTR) 0350 00224000 ST @14,RPHWEA(,RPHPTR) 0350 00225000 * RFY ISTATCVT BASED(OCWACVT); 0351 00226000 * CALL VTPOST; 0352 00227000 L @11,OCWACVT(,COCWPTR) 0352 00228000 L @15,ATCAPOST(,@11) 0352 00229000 BALR @14,@15 0352 00230000 * END; /* @X50BHXL*/ 00231000 * END; 0354 00232000 * ELSE; 0355 00233000 @RF00346 DS 0H 0356 00234000 * IF CREQT ='21'X & CRPLARG->OCARC = '4C'X THEN /* @ZA13643*/ 00235000 * 0356 00236000 @RC00346 C CREQT,@CF02657 0356 00237000 BNE @RF00356 0356 00238000 L @14,CRPLARG(,COCWPTR) 0356 00239000 CLI OCARC(@14),76 0356 00240000 BNE @RF00356 0356 00241000 */* TPEXIT NORM */ 0357 00242000 * DO; 0357 00243000 * RESPECIFY GPR15P RSTD; 0358 00244000 * 0358 00245000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 0359 00246000 */* END OF ATBUILD */ 0359 00247000 * 0359 00248000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0359 00249000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0360 00250000 L GPR15P,ATCLCPTR 0360 00251000 * END; /*LISATCVT*/ 0361 00252000 * RESPECIFY GPR00F RSTD; 0362 00253000 * GPR00F=4; /* SET PARAMETER REGISTER TO 4 */ 0363 00254000 LA GPR00F,4 0363 00255000 * GPR15P=GPR15P->ATCAP31; 0364 00256000 L GPR15P,ATCAP31(,GPR15P) 0364 00257000 * DCL FMZL0020 BASED(GPR15P) LABEL VALUERANGE(*); 0365 00258000 * CALL FMZL0020; 0366 00259000 BALR @14,@15 0366 00260000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 0367 00261000 * END; /***** END OF TPEXIT *****/ 0368 00262000 * /* @XM09218*/ 0369 00263000 * ELSE DO; /* @XM09218*/ 00264000 B @RC00356 0369 00265000 @RF00356 DS 0H 0370 00266000 * IF CREQT='21'X THEN /* PROCESSING A CLOSE ACB @ZA065A5*/ 00267000 C CREQT,@CF02657 0370 00268000 BNE @RF00370 0370 00269000 * ACDOCWAD=ZERO; /* CLEAR OCW POINTER @ZA06585*/ 00270000 SLR @14,@14 0371 00271000 ST @14,ACDOCWAD(,CDEBPTR) 0371 00272000 * ELSE; /* NOT CLOSE ACB @ZA06585*/ 00273000 @RF00370 DS 0H 0373 00274000 * /* 0373 00275000 * FREE THE DYNAMIC PAB 0373 00276000 * */ 0373 00277000 * CPABPTR=OCWPAB; 0373 00278000 L CPABPTR,OCWPAB(,COCWPTR) 0373 00279000 * CWORKREG=LENGTH(ISTDYPAB); 0374 00280000 LA CWORKREG,32 0374 00281000 * OCWPAB=0; /* @VS42048*/ 00282000 SLR @14,@14 0375 00283000 ST @14,OCWPAB(,COCWPTR) 0375 00284000 * /*FREESTOR AREA(CPABPTR)SIZE(CWORKREG)FETCHP(NO)*/ 0376 00285000 * DO; 0376 00286000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 0377 00287000 */* END OF ATBUILD */ 0377 00288000 * DCL GPR07F FIXED(31) REG(07); 0377 00289000 * DCL GPR07P PTR(31) REG(07); 0378 00290000 * DCL GPR08F FIXED(31) REG(08); 0379 00291000 * DCL GPR08P PTR(31) REG(08); 0380 00292000 * DCL GPR09F FIXED(31) REG(09); 0381 00293000 * DCL GPR09P PTR(31) REG(09); 0382 00294000 * DCL GPR10F FIXED(31) REG(10); 0383 00295000 * DCL GPR10P PTR(31) REG(10); 0384 00296000 * DCL GPR11F FIXED(31) REG(11); 0385 00297000 * DCL GPR11P PTR(31) REG(11); 0386 00298000 * DCL GPR12F FIXED(31) REG(12); 0387 00299000 * DCL GPR12P PTR(31) REG(12); 0388 00300000 * DCL GPR13F FIXED(31) REG(13); 0389 00301000 * DCL GPR13P PTR(31) REG(13); 0390 00302000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 0391 00303000 * RFY ISTRPH BASED(GPR01P); 0392 00304000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P, 0393 00305000 * GPR06P,GPR07P,GPR08P,GPR09P, 0393 00306000 * GPR10P,GPR11P,GPR12P,GPR13P) 0393 00307000 * SETS(RPHWORK); 0393 00308000 * 0393 00309000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00310000 * GPR00F = CWORKREG; /*SIZE IN REG0*/ 00311000 LR GPR00F,CWORKREG 0394 00312000 * DCL 1 CMZA0028 FIXED(31) STATIC LOCAL, 0395 00313000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 00314000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00315000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00316000 * 2 * FIXED(8) INIT('01'X); /* REQUEST TYPE */ 00317000 * GPR03F = CMZA0028; 0396 00318000 L GPR03F,CMZA0028 0396 00319000 * RFY (GPR04P) RSTD; 0397 00320000 * GPR04P = CPABPTR; /*PUT FREEMAIN ADDR IN REG4*/ 00321000 * 0398 00322000 LR GPR04P,CPABPTR 0398 00323000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 0399 00324000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0400 00325000 L GPR02P,ATCLCPTR 0400 00326000 * END; /*LISATCVT*/ 0401 00327000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 00328000 L @15,ATCGTSTR(,GPR02P) 0402 00329000 BALR @14,@15 0402 00330000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P) UNRSTD; 0403 00331000 * END ; /*END OF FREESTOR*/ 00332000 * CDEBPTR=OCWACDEB; /* GET DEB PTR @D32CKCK*/ 00333000 L CDEBPTR,OCWACDEB(,COCWPTR) 0405 00334000 * /* 0406 00335000 * FREE THE OPEN/CLOSE WORK ELEMENT FETCHP ADDED FOR DCR 3661.4 00336000 * */ 0406 00337000 * CWORKREG=LENGTH(ISTOCW); 0406 00338000 LA CWORKREG,848 0406 00339000 * /*FREESTOR AREA(COCWPTR)SIZE(CWORKREG)FETCHP(NO)*/ 0407 00340000 * DO; 0407 00341000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 0408 00342000 */* END OF ATBUILD */ 0408 00343000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 0408 00344000 * RFY ISTRPH BASED(GPR01P); 0409 00345000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P, 0410 00346000 * GPR06P,GPR07P,GPR08P,GPR09P, 0410 00347000 * GPR10P,GPR11P,GPR12P,GPR13P) 0410 00348000 * SETS(RPHWORK); 0410 00349000 * 0410 00350000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00351000 * GPR00F = CWORKREG; /*SIZE IN REG0*/ 00352000 LR GPR00F,CWORKREG 0411 00353000 * DCL 1 CMZA0047 FIXED(31) STATIC LOCAL, 0412 00354000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 00355000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00356000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00357000 * 2 * FIXED(8) INIT('01'X); /* REQUEST TYPE */ 00358000 * GPR03F = CMZA0047; 0413 00359000 L GPR03F,CMZA0047 0413 00360000 * RFY (GPR04P) RSTD; 0414 00361000 * GPR04P = COCWPTR; /*PUT FREEMAIN ADDR IN REG4*/ 00362000 * 0415 00363000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 0416 00364000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0417 00365000 L GPR02P,ATCLCPTR 0417 00366000 * END; /*LISATCVT*/ 0418 00367000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 00368000 L @15,ATCGTSTR(,GPR02P) 0419 00369000 BALR @14,@15 0419 00370000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P) UNRSTD; 0420 00371000 * END ; /*END OF FREESTOR*/ 00372000 * /* FREE FROM COMMON ADDR SPACE @ZM00271*/ 00373000 * /* 0422 00374000 * GIVE CONTROL TO PSS 0422 00375000 * */ 0422 00376000 * IF CPRPH^=ZERO THEN /* CLOSE ACB RPH TO POST? @ZA06585*/ 00377000 * 0422 00378000 LTR CPRPH,CPRPH 0422 00379000 BZ @RF00422 0422 00380000 */*TPPOST (CPRPH) */ 0423 00381000 * DO; 0423 00382000 * /*DECLARE AND RESTRICT REGS*/ 00383000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0424 00384000 * GPR06F,GPR14F,GPR15F) RSTD; 0424 00385000 * /*0,1,4,5,6,14, AND 15 */ 00386000 * 0425 00387000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH) */ 0425 00388000 */* END OF ATBUILD */ 0425 00389000 * GEN REFS(GPR01P,GPR02F,GPR06F)SETS(RPHWORK); 0425 00390000 STM GPR02F,GPR06F,RPHWORK(GPR01P) 00391000 * GPR04F=CPRPH; /*LOAD RPH PNTR INTO REG 4*/ 00392000 LR GPR04F,CPRPH 0426 00393000 * RFY GPR03F RSTD; 0427 00394000 * GPR03F=0; 0428 00395000 * 0428 00396000 SLR GPR03F,GPR03F 0428 00397000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(GPR05F) 00398000 */ RESPECIFY (GPR02F) RESTRICTED; 0429 00399000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0431 00400000 LR GPR05F,GPR02F 0431 00401000 * IPK; /*SAVE CURRENT PSW KEY*/ 0432 00402000 IPK 0432 00403000 * GPR06F = GPR02F; 0433 00404000 LR GPR06F,GPR02F 0433 00405000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0434 00406000 LR GPR02F,GPR05F 0434 00407000 * SPKA (GPR03F); /*SET PSW KEY*/ 0435 00408000 SPKA 0(GPR03F) 0435 00409000 * RESPECIFY (GPR02F) UNRESTRICTED; 0436 00410000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(GPR05F 00411000 **/ RFY GPR03F UNRSTD; 0437 00412000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 0439 00413000 L GPR05P,RPHMAJCB-1(,GPR04P) 0439 00414000 LA GPR05P,0(,GPR05P) 0439 00415000 SLR @11,@11 0439 00416000 IC @11,RPHPABOF(,GPR04P) 0439 00417000 ALR GPR05P,@11 0439 00418000 * /*LOAD REG 5 WITH ADDR OF*/ 00419000 * /*MAJOR CONTROL BLOCK PLUS*/ 00420000 * /*OFFSET OF PAB IN BLOCK */ 00421000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 00422000 SLR GPR14P,GPR14P 0440 00423000 * GPR15P='FFFFFFFF'X; /*LOAD REG 15 WITH DUMMY */ 00424000 SLR GPR15P,GPR15P 0441 00425000 BCTR GPR15P,0 0441 00426000 * /*ADDRESS */ 00427000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0442 00428000 CS GPR14P,@15,RPHRESMA(GPR04P) 0442 00429000 * /*COMPARE RESUME ADDRESS */ 00430000 * /*WITH 0 AND,IF EQUAL, PUT*/ 00431000 * /*DUMMY ADDRESS IN CONTROL*/ 00432000 * /*BLOCK RESUME ADDRESS */ 00433000 * BC (8,FMZT0066); /*IF EQUAL, BYPASS REMAINDER*/ 00434000 BC 8,FMZT0066 0443 00435000 * /*OF EXPANSION */ 00436000 *FMZL0066: IF GPR04P->RPHWT='1'B THEN /*WT/EXT CONTENTION FLAG ON */ 00437000 FMZL0066 TM RPHWT(GPR04P),B'00001000' 0444 00438000 BNO @RF00444 0444 00439000 * DO; /*IN RPH */ 00440000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 0446 00441000 L GPR14P,RPHRESMA(,GPR04P) 0446 00442000 O GPR14P,@CF02180 0446 00443000 * /*LOAD REG 14 WITH FLAG FIELD*/ 00444000 * /*AND MAKE CERTAIN WT/EXT */ 00445000 * /*CONTENTION FLAG STILL ON */ 00446000 * GPR15P=GPR14P|RPHPT1; /*LOAD REG 15 WITH FLAG FIELD*/ 00447000 LR GPR15P,GPR14P 0447 00448000 O GPR15P,@CF02170 0447 00449000 * /*AND TURN POST FLAG ON */ 00450000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0448 00451000 CS GPR14P,@15,RPHRESMA(GPR04P) 0448 00452000 * /*COMPARE REG 14 WITH FLAG */ 00453000 * /*FIELD--IF WT/EXT BIT ON, */ 00454000 * /*TURN ON POST FLAG */ 00455000 * BC (4,FMZL0066); /*IF WT/EXT BIT WAS OFF, LOOP*/ 00456000 BC 4,FMZL0066 0449 00457000 * /*TO TEST CONTENTION FLAG */ 00458000 * BC (8,FMZT0066); /*IF WT/EXT BIT WAS OFF, */ 00459000 BC 8,FMZT0066 0450 00460000 * /*BRANCH TO BYPASS CODE GEN */ 00461000 * END; /*IF POST FLAG IS ON, FALL*/ 00462000 * /*THRU BOTTOM OF LOOP */ 00463000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 00464000 @RF00444 DS 0H 0453 00465000 * IF GPR04P->RPHTSKID=GPR01P->RPHTSKID 0453 00466000 * THEN DO; 0453 00467000 CLC RPHTSKID(4,GPR04P),RPHTSKID(GPR01P) 0453 00468000 BNE @RF00453 0453 00469000 * GPR05P->PABCHNGP=GPR01P->RPHPABQP; 0455 00470000 MVC PABCHNGP(3,GPR05P),RPHPABQP(GPR01P) 0455 00471000 * /*PUT PAB QUEUE ADDRESS*/ 0456 00472000 * /*IN SECOND WORD OF PAB */ 00473000 * GPR01P->RPHPABQP=GPR05P; /*PUT PAB ADDRESS (IN MAJOR */ 00474000 STCM GPR05P,7,RPHPABQP(GPR01P) 0456 00475000 * /*CONTROL BLOCK) IN PAB */ 0457 00476000 * /*QUEUE ADRESS IN RPH */ 00477000 * END; 0457 00478000 * ELSE DO; 0458 00479000 B @RC00453 0458 00480000 @RF00453 DS 0H 0459 00481000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 00482000 * 0459 00483000 SLR GPR00F,GPR00F 0459 00484000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0460 00485000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0461 00486000 L GPR15P,ATCLCPTR 0461 00487000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 00488000 * /* IN REG 15 */ 00489000 * CALL GPR15P->ATCAP32; /* CALL ISTAPC32: TPSCHED */ 00490000 L @11,ATCAP32(,GPR15P) 0463 00491000 LR @15,@11 0463 00492000 BALR @14,@15 0463 00493000 * END; 0464 00494000 *FMZT0066: 0465 00495000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 0465 00496000 @RC00453 DS 0H 0465 00497000 FMZT0066 DS 0H 0466 00498000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 0466 00499000 LR GPR05F,GPR06F 0466 00500000 * SPKA (GPR05F); /*SET PSW KEY*/ 0467 00501000 SPKA 0(GPR05F) 0467 00502000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 0468 00503000 * GEN REFS(GPR04P, 0469 00504000 * RPHWORK) 0469 00505000 * SETS(GPR02F,GPR03F, 0469 00506000 * GPR04F,GPR05F,GPR06F); 0469 00507000 LM GPR02F,GPR06F,RPHWORK(GPR01P) 00508000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 0470 00509000 * GPR14F,GPR15F) UNRSTD; /*UNRESTRICT REGS 0,1, */ 00510000 * /*4,5,14, AND 15 */ 00511000 * END; /****END OF TPPOST GENERATION****/ /* POST CLOSE AC 00512000 * RPH @ZA06585*/ 0471 00513000 * ELSE; /* NO RPH TO POST @ZA06585*/ 00514000 @RF00422 DS 0H 0473 00515000 * RPHPABOF=0; /* IK0778 SHOW DYNAMIC PAB TO */ 0473 00516000 MVI RPHPABOF(GPR01P),X'00' 0473 00517000 * RPHMAJCB=0; /* IK0778 BE RELEASED */ 0474 00518000 * 0474 00519000 SLR @14,@14 0474 00520000 STCM @14,7,RPHMAJCB(GPR01P) 0474 00521000 */* TPEXIT NONE */ 0475 00522000 * DO; 0475 00523000 * RESPECIFY GPR15P RSTD; 0476 00524000 * 0476 00525000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 0477 00526000 */* END OF ATBUILD */ 0477 00527000 * 0477 00528000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0477 00529000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0478 00530000 L GPR15P,ATCLCPTR 0478 00531000 * END; /*LISATCVT*/ 0479 00532000 * RESPECIFY GPR00F RSTD; 0480 00533000 * GPR00F=0; /*SET PARAMETER REGISTER TO 0*/ 0481 00534000 SLR GPR00F,GPR00F 0481 00535000 * GPR15P=GPR15P->ATCAP31; 0482 00536000 L GPR15P,ATCAP31(,GPR15P) 0482 00537000 * DCL FMZL0078 BASED(GPR15P) LABEL VALUERANGE(*); 0483 00538000 * CALL FMZL0078; 0484 00539000 BALR @14,@15 0484 00540000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 0485 00541000 * END; /***** END OF TPEXIT *****/ 0486 00542000 * END; /* @XM09218*/ 00543000 * /*SEGMENT(DOCOUNT)START*/DO;GOTO DOCOUNT@;DOCOUNT:END; 0488 00544000 @RC00356 DS 0H 0489 00545000 B DOCOUNT@ 0489 00546000 DOCOUNT DS 0H 0491 00547000 * /* @D32CKCK*/ 0491 00548000 * 0491 00549000 */*** START -TPLOCK (DEBLOCK)TYPE(XCLSIVE)- ***/ 0491 00550000 * DO; 0491 00551000 * 0491 00552000 * RFY ISTLCCW ; 0492 00553000 * RFY ISTLCPB ; 0493 00554000 * RFY ISTZSAVE; 0494 00555000 * RFY ISTPFCRR; 0495 00556000 * RFY ISTCFCRR; 0496 00557000 * RFY ISTZCRR ; 0497 00558000 * RFY ISTASCRR; 0498 00559000 * RFY ISTAPCRR; 0499 00560000 * RFY ISTCRA ; 0500 00561000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0501 00562000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00563000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 00564000 * GPR02P = ADDR(ACDLOCK); /*SET PARAM - LOCKWORD PTR*/ 00565000 LA GPR02P,ACDLOCK(,CDEBPTR) 0503 00566000 * GPR04P = GPR01P->RPHCRR; /*SET PARAM - ISTCRA PTR*/ 0504 00567000 L GPR04P,RPHCRR(,GPR01P) 0504 00568000 * GPR00P = CRALMS05; /*SET PARAM - LOCK LEVEL FLAG*/ 00569000 LA GPR00P,16 0505 00570000 * GPR03P = ADDR(GPR04P->CRAL5PTR); 0506 00571000 LA GPR03P,CRAL5PTR(,GPR04P) 0506 00572000 * /*SET PARAM - LOCK LEVEL PTR*/ 00573000 * GPR15P=ATCLCPTR->ATCAP36; /*ADDRESS OF LOCK ROUTINE*/ 00574000 L @11,ATCLCPTR 0507 00575000 L GPR15P,ATCAP36(,@11) 0507 00576000 * DCL FMZL0087 BASED(GPR15P) LABEL VALUERANGE(*); 0508 00577000 * CALL FMZL0087; 0509 00578000 BALR @14,@15 0509 00579000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS(GPR00P,GPR01P 00580000 *GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P,GPR11P, 00581000 *PR12P,GPR13P,GPR14P,GPR15P); 0510 00582000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00583000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0511 00584000 * END; 0512 00585000 */*** END -TPLOCK (DEBLOCK)TYPE(XCLSIVE)- ***/ /* LOCK DEB @D32C 00586000 *CK*/ 0513 00587000 * IF CRETCODE=ZERO /* RC=0? @D32CKCK*/ 00588000 * THEN DO; /* @D32CKCK*/ 00589000 SLR @14,@14 0513 00590000 CR CRETCODE,@14 0513 00591000 BNE @RF00513 0513 00592000 * OCWALOCK='1'B; /* SET LOCK INDIC @D32CKCK*/ 00593000 OI OCWALOCK(COCWPTR),B'00000100' 0515 00594000 * ACDOCWAD->OCWPABCT=ACDOCWAD->OCWPABCT-1; 0516 00595000 L @11,ACDOCWAD(,CDEBPTR) 0516 00596000 L @09,OCWPABCT(,@11) 0516 00597000 BCTR @09,0 0516 00598000 ST @09,OCWPABCT(,@11) 0516 00599000 * /* DECR DYPAB CNT @D32CKCK*/ 00600000 * IF ACDOCWAD->OCWPABCT=ZERO /* DYPAB COUNT=0? @D32CKCK*/ 00601000 * THEN CPRPH=ACDOCWAD->OCWCCRPH; /* GET RPH ADDR @ZA06585*/ 00602000 CR @09,@14 0517 00603000 BNE @RF00517 0517 00604000 L CPRPH,OCWCCRPH(,@11) 0518 00605000 * ELSE; /*COUNT NOT ZERO @ZA06585*/ 00606000 * 0519 00607000 @RF00517 DS 0H 0520 00608000 */*** START -TPUNLOCK (DEBLOCK)- ***/ 0520 00609000 * DO; 0520 00610000 * 0520 00611000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 0521 00612000 */* END OF ATBUILD */ 0521 00613000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0521 00614000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00615000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00616000 * GPR02P = ADDR(ACDLOCK); /*SET PARAM - LOCKWORD PTR*/ 00617000 LA GPR02P,ACDLOCK(,CDEBPTR) 0523 00618000 * GPR04P = GPR01P->RPHCRR; /*SET PARAM - ISTCRA PTR*/ 0524 00619000 L GPR04P,RPHCRR(,GPR01P) 0524 00620000 * GPR00P = CRALMS05; /*SET PARAM - LOCK LEVEL FLAG*/ 00621000 LA GPR00P,16 0525 00622000 * GPR03P = ADDR(GPR04P->CRAL5PTR); 0526 00623000 LA GPR03P,CRAL5PTR(,GPR04P) 0526 00624000 * /*SET PARAM - LOCK LEVEL PTR*/ 00625000 * 0527 00626000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0527 00627000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0528 00628000 L GPR15P,ATCLCPTR 0528 00629000 * END; /*LISATCVT*/ 0529 00630000 * GPR15P=GPR15P->ATCAP33; 0530 00631000 L GPR15P,ATCAP33(,GPR15P) 0530 00632000 * DCL FMZL0092 BASED(GPR15P) LABEL VALUERANGE(*); 0531 00633000 * CALL FMZL0092; 0532 00634000 BALR @14,@15 0532 00635000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P,GPR01P 00636000 *GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P,GPR11P, 00637000 *PR12P,GPR13P,GPR14P,GPR15P); 0533 00638000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00639000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 00640000 * END; 0535 00641000 */*** END -TPUNLOCK (DEBLOCK)- ***/ /* UNLOCK DEB @D32CK 00642000 *K*/ 0536 00643000 * OCWALOCK='0'B; /* CLR LOCK INDIC @D32CKCK*/ 00644000 NI OCWALOCK(COCWPTR),B'11111011' 0536 00645000 * END; /* @D32CKCK*/ 00646000 * ELSE DO; /* @D32CKCK*/ 00647000 B @RC00513 0538 00648000 @RF00513 DS 0H 0539 00649000 * RPLRTNCD='24'X; /* SYSTEM ERROR @D32CKCK*/ 00650000 L @14,OCWRPL(,COCWPTR) 0539 00651000 MVI RPLRTNCD(@14),X'24' 0539 00652000 * RPLFDB2 ='01'X; /* UNEXP ERROR @ZA18445*/ 00653000 MVI RPLFDB2(@14),X'01' 0540 00654000 * END; /* @D32CKCK*/ 00655000 * /*SEGMENT(DOCOUNT)FINISH*/DO;GOTO DOCOUNT#;DOCOUNT@:END; 0542 00656000 @RC00513 DS 0H 0543 00657000 B DOCOUNT# 0543 00658000 DOCOUNT@ DS 0H 0545 00659000 * /* @D32CKCK*/ 0545 00660000 * 0545 00661000 */* TPEPILOG */ 0545 00662000 * GEN (PRINT OFF); 0545 00663000 * 0545 00664000 PRINT OFF 00665000 */* RPL HEADER * 00666000 */* REVISIONS 006 04/09/75 * 00667000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 0546 00668000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 0547 00669000 * 2 RPHCNTL FIXED(32), /* CONTROL INFORMATION * 00670000 * 3 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 00671000 * 3 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 00672000 * 3 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 00673000 * 4 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 00674000 * 4 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 00675000 * 4 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 00676000 * 5 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 00677000 * 4 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 00678000 * /* QUEUED * 00679000 * 4 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 00680000 * /* DOUBLE-WORD * 00681000 * 4 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 00682000 * /* CLEARED * 00683000 * 4 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00684000 * /* WHEN BUILDING MULTIPLE CHAN * 00685000 * /* PROGRAM * 00686000 * 4 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00687000 * /* TO INDICATE FIRST LCCW * 00688000 * 5 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 00689000 * 3 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 00690000 * 4 RPHLOCK BIT(1), /* LOCKING OPTION * 00691000 * 4 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 00692000 * 4 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 00693000 * 4 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 00694000 * /* MGR HAS COMPLETED UNLOCK * 00695000 * 4 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 00696000 * 4 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 00697000 * /* WHEN PURGE COMPLETE * 00698000 * 4 * BIT(2), /* RESERVED * 00699000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 00700000 * 3 RPHGATE BIT(1), /* GATING FLAG * 00701000 * 3 * BIT(7), /* RESERVED * 00702000 * 3 RPHRPHAP PTR(24), 0547 00703000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 00704000 * /* OR ADDR.OF APS TABLE * 00705000 * 3 * CHAR(3), /* RPH TSK ID * 00706000 * 3 RPHTIK PTR(8), /* TIK * 00707000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 00708000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 0547 00709000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 0547 00710000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 00711000 * PROCESSING * 00712000 * 4 RPHWT BIT(1), /* WAIT BIT */ 0547 00713000 * 4 RPHPT BIT(1), /* POST BIT */ 0547 00714000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 00715000 * /* TO BE PURGED BY PSS */ 00716000 * /* VS/2 ONLY */ 00717000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 00718000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 0547 00719000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 00720000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 00721000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 00722000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 00723000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 00724000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 00725000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 00726000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 00727000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 00728000 * /* RECORD * 00729000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 00730000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 00731000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 00732000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 00733000 * 3 RPHSAVE1 FIXED(31), /* * 00734000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 00735000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 00736000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 00737000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 00738000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 00739000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 00740000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 00741000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 00742000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 00743000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 00744000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 00745000 * 3 RPHSAVE2 FIXED(31), /* * 00746000 * 3 RPHSAVE3 FIXED(31), /* * 00747000 * 3 RPHSAVE4 FIXED(31), /* * 00748000 * 3 RPHSAVE5 FIXED(31), /* * 00749000 * 3 RPHSAVE6 FIXED(31), /* * 00750000 * 3 RPHSAVE7 FIXED(31), /* * 00751000 * 3 RPHSAVE8 FIXED(31), /* * 00752000 * 3 RPHSAVE9 FIXED(31), /* * 00753000 * 3 RPHSAV10 FIXED(31), /* * 00754000 * 3 RPHSAV11 FIXED(31), /* * 00755000 * 3 RPHSAV12 FIXED(31), /* * 00756000 * 3 RPHSAV13 FIXED(31), /* * 00757000 * 3 RPHSAV14 FIXED(31), /* * 00758000 * 3 RPHSAV15 FIXED(31), /* * 00759000 * 3 RPHSAV16 FIXED(31), /* * 00760000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 00761000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 00762000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 0549 00763000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 0550 00764000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 0551 00765000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 0552 00766000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 0553 00767000 */* REVISIONS 015 11/16/75 * 00768000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00769000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0555 00770000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00771000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00772000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00773000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00774000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00775000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00776000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00777000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00778000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00779000 * 5 ATCMDHLT BIT(1), /* VTAM CMD PROC HALTED * 00780000 * 5 * BIT(1), /* RESERVED * 00781000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00782000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00783000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00784000 * /* INTERFACE FLAGS * 00785000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00786000 * /* RECEIVE UNSOLICITED MESSAGES* 00787000 * /* 1 = YES * 00788000 * 5 * BIT(7), /* RESERVED * 00789000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00790000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0555 00791000 * 0 = NOT ACTIVE * 00792000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00793000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0555 00794000 * PROCESS * 00795000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00796000 * 5 ATCVTTRC BIT(1), /* VTAM TRACE, 1=ACTIVE * 00797000 * 5 ATCRSV04 BIT(3), /* RESERVED * 00798000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00799000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00800000 * LAYER,INITIALIZED BY OPENDST* 00801000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00802000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00803000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00804000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00805000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00806000 * /* FOR MODIFY COMMAND * 00807000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00808000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00809000 * /* FOR HALT COMMAND * 00810000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00811000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00812000 * /* FOR VARY COMMAND * 00813000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00814000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00815000 * /* FOR DISPLAY COMMAND * 00816000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00817000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00818000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00819000 * /* REQUEST NOTIFICATION * 00820000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00821000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00822000 * /* CONTROL PROCESSING COMPLETE * 00823000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00824000 * /* CONFIGURATION REQUEST * 00825000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00826000 * /* ECB PARAMETERS * 00827000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00828000 * /* OR HALT RETURN MESSAGE * 00829000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00830000 * /* BLOCK * 00831000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00832000 * /* ROUTINE SCHEDULER * 00833000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00834000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00835000 * /* ACCOUNTING ROUTINE * 00836000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00837000 * /* AUTHORISATION ROUTINE * 00838000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00839000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00840000 * /* CONFIGURATION TABLE * 00841000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00842000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00843000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00844000 * /* TYPE=VTAM TRACING * 00845000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00846000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00847000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00848000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00849000 * /* PROCEDURE * 00850000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00851000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00852000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00853000 * /* PROCEDURE * 00854000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00855000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00856000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00857000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00858000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00859000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00860000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00861000 * /* ROUTINE * 00862000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00863000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00864000 * /* ROUTINE * 00865000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00866000 * - DOS ONLY * 00867000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00868000 * /* ROUTINE * 00869000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00870000 * /* ROUTINE - DOS ONLY * 00871000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00872000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00873000 * /* RPH * 00874000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00875000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00876000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00877000 * MOVE TO USER AREA * 00878000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00879000 * MOVE FIXED TO PAGABLE * 00880000 */* BEGIN 'ANY' DVT * 00881000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00882000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00883000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00884000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00885000 */* END 'ANY' DVT * 00886000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00887000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00888000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00889000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00890000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00891000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00892000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00893000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00894000 * PURGE * 00895000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00896000 * 3 ATCCIDM BIT(16), /* CID MASK * 00897000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00898000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00899000 * NUMBER OF ENTRIES IN THE MNT * 00900000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00901000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00902000 * DEF. REF. BY ISTSDCCB (CBDEF), 0555 00903000 * ISTSDCCI (CINDEXY) * 00904000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0555 00905000 * REF. BY CIDCTL MACRO * 00906000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0555 00907000 * REF. BY CIDCTL MACRO * 00908000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0555 00909000 * REF. BY CIDCTL MACRO * 00910000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00911000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00912000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00913000 * /* MASTER ROUTINE * 00914000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0555 00915000 * MASTER ROUTINE * 00916000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00917000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00918000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00919000 * /* TO BE LOADED * 00920000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00921000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00922000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0555 00923000 * PORTION OF CID * 00924000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00925000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00926000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0555 00927000 * ISTSDCAL * 00928000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00929000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00930000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00931000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00932000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00933000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0555 00934000 * CSECT * 00935000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00936000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00937000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00938000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00939000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00940000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00941000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00942000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00943000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00944000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00945000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00946000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0555 00947000 * TO BY 3RD WORD OF PAB */ 00948000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00949000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00950000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00951000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00952000 * 2 ATCAPCR5 PTR(31), /* POINTER TO ISTINCR5 */ 00953000 * 2 ATCRSV69 PTR(31), /* RESERVED TO SYNCH WITH DOS */ 00954000 * 2 ATCNODEL CHAR(8), /* VSAM DATA SET NAME */ 00955000 * 2 ATCNODDS PTR(31), /* POINTER TO RPL */ 00956000 * 2 ATCONFIG CHAR(8), /* START VTAM CONFIG = PARAMETER */ 00957000 * 2 ATCRSV99 CHAR(4), /* RESERVED FOR LATER POINTERS */ 00958000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00959000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00960000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00961000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00962000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00963000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00964000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00965000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00966000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00967000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00968000 * UNDER PSS CONTROL */ 00969000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00970000 * PURGE */ 00971000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00972000 * RESTART PAB */ 00973000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00974000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00975000 * (ISTINCDL) */ 00976000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00977000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00978000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0555 00979000 * FOR ISTOLTP */ 00980000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0555 00981000 * FOR TOLTEP CLIP */ 00982000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0555 00983000 * FOR TOLTEP-VTAM INTERFACE*/ 00984000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 00985000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 00986000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 00987000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 00988000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 00989000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 00990000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 00991000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 00992000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 00993000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 00994000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 00995000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 00996000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 00997000 * 2 ATCRNO, 0555 00998000 * 3 * CHAR(1), 0555 00999000 * 3 ATCPOIA PTR(24), /* PTR TO PROGRAM OPERATOR */ 01000000 * /* INTERFACE AREA */ 01001000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 01002000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 01003000 * 3 ATCSEC10 PTR(31), /* DVT */ 01004000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 01005000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 01006000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 01007000 * 3 ATCSEC40 PTR(31), /* DVT */ 01008000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 01009000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 01010000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 01011000 * 2 ATCSTAT2 BIT(8), /* TRACE FLAGS */ 01012000 * 3 ATCTRAPI BIT(1), /* API */ 01013000 * 3 ATCTRESC BIT(1), /* ESC */ 01014000 * 3 ATCTRPSS BIT(1), /* PSS */ 01015000 * 3 ATCTRLOK BIT(1), /* LOCKS */ 01016000 * 3 ATCTRSMS BIT(1), /* SMS */ 01017000 * 3 * BIT(3), /* RESERVED */ 01018000 * 2 * BIT(8), /* RESERVED */ 01019000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 01020000 * /* RTN ADDRESS (ISTINCSH) */ 01021000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 01022000 * /* TABLE ADDRESS (ISTINCDT) */ 01023000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 01024000 * /* TABLE ADDRESS (ISTINCLM) */ 01025000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 01026000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 01027000 * /* POINTED TO BY IOBECBPT */ 01028000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0555 01029000 * /* SSCP COMMAND PROCESSING PAB */ 01030000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0555 01031000 * /* SSCP FRONT END PAB */ 01032000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 01033000 */* END OF COMMON AREA */ 01034000 */* VS1/VS2 COMMON CODE. */ 01035000 * 2 ATCVTBAM CHAR(4), 0555 01036000 * 3 * CHAR(3), /* RESERVED * 01037000 * 3 * CHAR(1), /* FLAGS * 01038000 * 4 ATCVTMAB BIT(1) ABNL, /* ABEND IN VTAM JOBSTEP * 01039000 * 4 * BIT(7), /* RESERVED * 01040000 * 2 ATCAOSM BDY(DWORD), 0555 01041000 */* * 01042000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 01043000 * /* SRB CONTROL * 01044000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 01045000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 01046000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 01047000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 01048000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 01049000 * /* TCB * 01050000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 01051000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 01052000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 01053000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 01054000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 01055000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 01056000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 01057000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 01058000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 01059000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 01060000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 01061000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 01062000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 01063000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 01064000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 01065000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 01066000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 01067000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 01068000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 01069000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 01070000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 01071000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 01072000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0555 01073000 * (DUMMY EOA APP.) */ 01074000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 01075000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 01076000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0555 01077000 * APPENDAGE */ 01078000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0555 01079000 * APPENDAGE */ 01080000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 01081000 * VECTOR */ 01082000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0555 01083000 * (DUMP EOE) */ 01084000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0555 01085000 * (DUMMY SIOA) */ 01086000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 01087000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0555 01088000 * APPENDAGE */ 01089000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0555 01090000 * APPENDAGE */ 01091000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0555 01092000 * VECTOR TABLE FOR LOAD/DVMMY*/ 01093000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0555 01094000 * OF EXTENT APPENDAGE */ 01095000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0555 01096000 * OF SIO APPENDAGE */ 01097000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0555 01098000 * APPENDAGE */ 01099000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0555 01100000 * APPENDAGE */ 01101000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0555 01102000 * END APPENDAGE */ 01103000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 01104000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 01105000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0555 01106000 * (PHASE 1) * 01107000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0555 01108000 * FEEDBACK ROUTER */ 01109000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 01110000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 01111000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0555 01112000 * DEACTIVATE ROUTINE */ 01113000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 01114000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0555 01115000 * SERVICES VECTOR TABLE */ 01116000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 01117000 * TEST AND CTL FEEDBACK ROUTER* 01118000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0555 01119000 * STATUS AND FEEDBACK ROUTER 01120000 * DYNAMIC PAB */ 01121000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 01122000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 01123000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 01124000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 01125000 * 3 ATCDMAPP PTR(31), /* DUMMY APPENDAGE ROUTINE */ 01126000 * /* FOR ABEND */ 01127000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 01128000 * 3 ATCCRA CHAR(8) BDY(DWORD), /* AVAILABLE CRA * 01129000 * 4 ATCCRAQ PTR(31), /* QUEUE OF AVAILABLE CRAS * 01130000 * 4 ATCCRACN FIXED(31), /* COUNTS * 01131000 * 5 ATCCRARC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 01132000 * /* MULTIPLE SIMUALTANIOUS * 01133000 * /* ENQUEUES AND DEQUEUES * 01134000 * 5 ATCCRAAC FIXED(16), /* COUNT OF CRAS ON AVAIL Q * 01135000 * 3 ATCSRB CHAR(8) BDY(DWORD), /* AVAILABLE SRBS * 01136000 * 4 ATCSRBQ PTR(31), /* QUE OF AVAILABLE SRBS * 01137000 * 4 ATCSRBCN FIXED(31), /* COUNTS * 01138000 * 5 ATCSRBRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 01139000 * /* MULTIPLE SIMUALTANIOUS * 01140000 * /* ENQUEUES AND DEQUEUES * 01141000 * 5 ATCSRBAC FIXED(16), /* COUNT OF SRBS ON AVAIL Q * 01142000 * 3 ATCCRPL CHAR(8) BDY(DWORD), /* AVAILABLE CRPLS * 01143000 * 4 ATCCRPLQ PTR(31), /* QUE OF AVAILABLE CRPLS * 01144000 * 4 ATCRPLCN FIXED(31), /* COUNTS * 01145000 * 5 ATCRPLRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 01146000 * /* MULTIPLE SIMUALTANIOUS * 01147000 * /* ENQUEUES AND DEQUEUES * 01148000 * 5 ATCRPLAC FIXED(16), /* COUNT OF CRPLS ON AVAIL Q * 01149000 * 3 ATCRPT19 PTR(31), /* RESERVED */ 01150000 * 3 ATCRPT20 PTR(31), /* RESERVED */ 01151000 * 3 ATCRPT21 PTR(31), /* RESERVED */ 01152000 * 3 ATCRPT22 PTR(31), /* RESERVED */ 01153000 * 3 ATCRPT23 PTR(31), /* RESERVED */ 01154000 * 3 ATCRPT24 PTR(31), /* RESERVED */ 01155000 * 3 ATCRPT25 PTR(31), /* RESERVED */ 01156000 * 3 ATCRPT26 PTR(31), /* RESERVED */ 01157000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 01158000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 01159000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 01160000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 01161000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 01162000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 01163000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 01164000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 01165000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 01166000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 01167000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 01168000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 01169000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 01170000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 01171000 */* END OF VS1/VS2 COMMON CODE. */ 01172000 */* START OF VS2 UNIQUE CODE. */ 01173000 * 3 ATCVTFLG BIT(32), 0555 01174000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 01175000 * 4 * BIT(31), /* RESERVED */ 01176000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 01177000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 01178000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 01179000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 01180000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 01181000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 01182000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 01183000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 01184000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 01185000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 01186000 * 3 ATCAPBE PTR(31), /* POINTER TO ISTAICBE */ 01187000 * 3 ATCTRMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0555 01188000 * /* PAB FOR VTAM TERM TASK */ 01189000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0555 01190000 * /* PAB FOR TPIOS */ 01191000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 01192000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 01193000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 01194000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 01195000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 01196000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 01197000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 01198000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 01199000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 01200000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 01201000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 01202000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 01203000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 01204000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 01205000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 01206000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 01207000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 01208000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 01209000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 01210000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 01211000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 01212000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 01213000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 01214000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 01215000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 01216000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 01217000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 01218000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 01219000 * 3 ATCRSV88 PTR(31), /* RESERVED */ 01220000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 01221000 * FOR VS2 */ 01222000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 01223000 * FOR SRB MODE ROUTINES */ 01224000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 01225000 * 3 ATCPOPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0555 01226000 * /* POPAB FOR REPLY PROCESSING, POI TERMINATION, */ 01227000 * /* AND VTAM MESSAGE PROCESSOR */ 01228000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 01229000 */* LOGICAL CHANNEL COMMAND WORD * 01230000 */* ADD A DECLARE 003 10/18/74 * 01231000 *DCL 1 ISTLCCW BDY(WORD) BASED, 0556 01232000 * 2 LCCWOP CHAR(1), /* OPERATION CODE -CONTROL * 01233000 * 3 LCCWSI BIT(1), /* SESS INIT / START DIALOG FLG* 01234000 * 3 LCCWSD BIT(1), /* SESS DISCON/END DIALOG FLG * 01235000 * 3 LCCWRWOP BIT(6), /* READ/WRITE OPERATION CODE * 01236000 * 4 * BIT(1), /* RESERVED * 01237000 * 4 LCCWSOP BIT(1), /* SPECIAL OPERATION LIKE 0556 01238000 * ERASE OR READ CONT * 01239000 * 4 LCCWCTL BIT(4), /* CONTROL TYPE * 01240000 * 5 LCCWMODE BIT(2), /* MODE TYPE * 01241000 * 5 LCCWTYPE BIT(2), /* OPERATION TYPE * 01242000 * 2 LCCWFLAG CHAR(1), /* FLAG BYTE * 01243000 * 3 LCCWCD BIT(1), /* CHAIN DATA * 01244000 * 3 LCCWCC BIT(1), /* CHAIN COMMAND * 01245000 * 3 LCCWCKPT BIT(1), /* SUPPRESS 3705 CHECK POINT 01246000 * RECORD * 01247000 * 3 LCCWNTVC BIT(1), /* DO NOT PERFORM VALCHEK * 01248000 * 3 LCCWIDAT BIT(1), /* LCCWDATA CONTAINS DATA * 01249000 * 3 LCCWLSI BIT(1), /* LCCW SYNCH INDICATOR * 01250000 * 4 LCCWPER BIT(1), /* POST=RESP * 01251000 * 3 LCCWRFI BIT(1), /* REQUEST FEEDBACK INDICATOR * 01252000 * 3 LCCWACI BIT(1), /* ADDITION COMMAND INDICATOR * 01253000 * 2 LCCWCNT FIXED(16), /* DATA COUNT * 01254000 * 2 LCCWDATA PTR(31); /* DATA ADDRESS OR IMMED. DATA * 01255000 */* LOGICAL COMMAND CODES */ 0557 01256000 *DCL LXDQ BIT(8) CONSTANT('3B'X), /* RESET DEVICE QUEUE * 01257000 * LXEC BIT(8) CONSTANT('4B'X), /* RESET AT END OF COMMAND * 01258000 * LXO BIT(8) CONSTANT('5B'X), /* RESET ORDERLY * 01259000 * LCCWPRGE BIT(8) CONSTANT('6B'X), /* PURGE * 01260000 * LWH BIT(8) CONSTANT('0F'X), /* WRITE HEADER INDI. 1ST BLOCK* 01261000 * LWRVI BIT(8) CONSTANT('1F'X), /* WRITE RVI * 01262000 * LWNA BIT(8) CONSTANT('2F'X), /* WRITE NEGATIVE ACK * 01263000 * LWAA BIT(8) CONSTANT('3F'X), /* WRITE ALTERNATE ACK * 01264000 * LWPLG BIT(8) CONSTANT('5F'X), /* WRITE ACK LEADING GRAPHICS * 01265000 * LWNLG BIT(8) CONSTANT('6F'X), /* WRITE NACK LEADING GRAPHICS * 01266000 * LSMDE BIT(8) CONSTANT('4F'X), /* SET MODE * 01267000 * LIFBM BIT(8) CONSTANT('7F'X), /* INDIC 1ST BLOCK OF MESSAGE * 01268000 * LTEST BIT(8) CONSTANT('FE'X), /* TEST LCCW * 01269000 * LPRMPT BIT(8) CONSTANT('13'X), /* PREEMPT LCCW * 01270000 * LRSTR BIT(8) CONSTANT('43'X), /* RESTORE LCCW * 01271000 * LEXEC BIT(8) CONSTANT('FF'X), /* SPECIAL CONTROL OPERATION * 01272000 * LREAD BIT(2) CONSTANT('10'B), /* READ TYPE LCCW * 01273000 * LWRITE BIT(2) CONSTANT('01'B), /* WRITE TYPE LCCW * 01274000 * LCNTRL BIT(2) CONSTANT('11'B), /* CONTROL TYPE LCCW * 01275000 * LRESET BIT(4) CONSTANT('1011'B),/* RESET COMMANDS * 01276000 * LTIC BIT(8) CONSTANT('08'X), /* LOGICAL TIC * 01277000 * LWR BIT(6) CONSTANT('000001'B), /* WRITE CONVERSATIONAL * 01278000 * LWB BIT(6) CONSTANT('000101'B), /* WRITE BLOCK * 01279000 * LWM BIT(6) CONSTANT('001001'B), /* WRITE MESSAGE * 01280000 * LWT BIT(6) CONSTANT('001101'B), /* WRITE TRANSMISSION * 01281000 * LEWM BIT(6) CONSTANT('011001'B), /* ERASE/WRITE MESSAGE * 01282000 * LEWT BIT(6) CONSTANT('011101'B), /* ERASE/WRITE TRNSMSSN * 01283000 * LEAU BIT(6) CONSTANT('010001'B), /* ERASE ALL UNPROTECTED * 01284000 * LRB BIT(6) CONSTANT('000110'B), /* READ BLOCK * 01285000 * LRM BIT(6) CONSTANT('001010'B), /* READ MESSAGE * 01286000 * LRT BIT(6) CONSTANT('001110'B), /* READ TRANSMISSION * 01287000 * LRMOD BIT(6) CONSTANT('010010'B), /* READ MODIFIED * 01288000 * LRBUF BIT(6) CONSTANT('010110'B), /* READ BUFFER * 01289000 * LRCONT BIT(6) CONSTANT('011010'B), /* READ CONTINUOUS * 01290000 * LRPEP BIT(6) CONSTANT('011110'B), /* READ PERPETUAL * 01291000 * LCPYM BIT(6) CONSTANT('101001'B), /* COPY MESSAGE * 01292000 * LCPYT BIT(6) CONSTANT('101101'B), /* COPY TRANSMISSION * 01293000 * LD BIT(8) CONSTANT('23'X), /* DISCONNECT * 01294000 * LDEC BIT(8) CONSTANT('33'X), /* DISCONNECT WITH END OF CALL* 01295000 * LEOC BIT(8) CONSTANT('53'X), /* END OF CALL COMMAND * 01296000 * LXEL BIT(8) CONSTANT('0B'X), /* RESET ERROR LOCK * 01297000 * LXC BIT(8) CONSTANT('1B'X), /* RESET CONDITIONAL * 01298000 * LXI BIT(8) CONSTANT('2B'X), /* RESET IMMEDIATE * 01299000 * LC BIT(8) CONSTANT('03'X), /* CONTACT * 01300000 * LWPA BIT(8) CONSTANT('FD'X); /* WRITE POSITIVE ACK * 01301000 *DCL LMT BIT(2) CONSTANT('11'B), /* TRANSMISSION MODE * 01302000 * LMS BIT(2) CONSTANT('00'B), /* SPECIAL MODE LIKE CONV, EAU * 01303000 * LMB BIT(2) CONSTANT('01'B), /* BLOCK MODE * 01304000 * LMM BIT(2) CONSTANT('10'B); /* MSG OR CONTINUOUS MODE * 01305000 */* FOLLOWING EQUATES FOR - PORT SOLICITOR (DIAL) * 01306000 */* PORT SOLICITOR COMMAND CODES * 01307000 *DCL PSOL BIT(8) CONSTANT('FE'X), /* SPECIAL PORT SOLICITOR 0559 01308000 * COMMAND * 01309000 * STCTL BIT(8) CONSTANT('01'X), /* START CONTROL * 01310000 * RESTCTL BIT(8) CONSTANT('02'X), /* RESET & CONTROL - REDRIVE * 01311000 * STIPUT BIT(8) CONSTANT('03'X); /* START INPUT * 01312000 */* FOLLOWING EQUATES FOR SDLC SUPPORT * 01313000 *DCL LCCHOLD BIT(8) CONSTANT('01'X), /* HOLD * 01314000 * LCCRHOLD BIT(8) CONSTANT('02'X), /* RELEASE HOLD * 01315000 * LSEND BIT(8) CONSTANT ('F1'X), /* SEND * 01316000 * LCLEAR BIT(8) CONSTANT ('F2'X), /* CLEAR * 01317000 * LCRUD BIT(8) CONSTANT ('F3'X), /* CLEAR, UNBIND * 01318000 * LCRUDNFY BIT(8) CONSTANT ('F4'X), /* CLEAR, UNBIND, NOTIFY * 01319000 * LNFY BIT(8) CONSTANT ('F5'X), /* NOTIFY * 01320000 * LRELCB BIT(8) CONSTANT ('F6'X), /* RELEASE CB * 01321000 * LRESTSR BIT(8) CONSTANT ('F7'X), /* RESETSR * 01322000 * LCLRNFY BIT(8) CONSTANT('F8'X), /* CLEAR/NOTIFY * 01323000 * LCHPUR BIT(8) CONSTANT('F9'X); /* PURGE * 01324000 *DCL LCCWSIZE FIXED(8) CONSTANT(8); /* LCCW SIZE * 01325000 *DCL LRDS BIT(8) CONSTANT('FF'X); /* RECORD DEV STATS COMMAND * 01326000 *DCL LQUIS BIT(8) CONSTANT('FE'X); /* QUIESCE COMMAND * 01327000 */* LOGICAL CHANNEL PROGRAM BLOCK */ 01328000 */* */ 01329000 */* REVISIONS 007 05/19/75 */ 01330000 */* */ 01331000 *DCL 1 ISTLCPB BDY(WORD) BASED(LCPBPTR), 0564 01332000 * 2 LCPTYPE CHAR(1), /* TYPE CODE */ 01333000 * 2 LCPLNGTH PTR(8), /* LENGTH IN BYTES */ 01334000 * 2 LCPREQTG CHAR(2), /* LCPB REQ. TAG FIELD */ 01335000 * 3 LCPFLAGS BIT(8), /* FLAG BYTE */ 01336000 * 4 LCPZRT00 BIT(1), /* LOGICAL ERROR FLAG */ 01337000 * 4 LCPZRT01 BIT(1), /* CONTROL BLOCK ERROR */ 01338000 * 4 LCPZF001 BIT(1), /* LCP START PROCESS FLAG */ 01339000 * 5 LCPZRT02 BIT(1), /* I/O INITIATION DISABLED */ 01340000 * 6 LCPZRTL2 BIT(1), /* END OF SCHEDULABLE BLOCK */ 01341000 * 4 LCPZF002 BIT(1), /* LCP IN PROCESSING FLAG */ 01342000 * 5 LCPZRT03 BIT(1), /* GO LOOK AT FMCB LINE STATE */ 01343000 * /* FIELD (REQ. TAG OVERLAY) */ 01344000 * 6 LCPZRTL3 BIT(1), /* WRITE/READ REQUEST */ 01345000 * 4 LCPZF003 BIT(1), /* LCP PROCESSING COMPLETE FLAG* 01346000 * 5 LCPZRT04 BIT(1), /* STPR SET IN BDU FLAG */ 01347000 * /* (REQ. TAG OVERLAY) */ 01348000 * 6 LCPZRTL4 BIT(1), /* FEEDBACK REQUESTED */ 01349000 * 4 LCPZF004 BIT(1), /* SINGLE LCCW/LCP FLAG */ 01350000 * 5 LCPZRT05 BIT(1), /* FEEDBACK TO BE ROUTED TO */ 01351000 * /* ICNCB FMCB (REQ. TAG */ 01352000 * /* OVERLAY) */ 01353000 * 6 LCPZRTL5 BIT(1), /* DECREMENT SCHED COUNT ON DEQ* 01354000 * 4 LCPZRT06 BIT(1), /* CRITICAL TEXT BLOCK */ 01355000 * /* FLAG (REQ. TAG OVERLAY) */ 01356000 * 5 LCPZRTL6 BIT(1), /* WRITE REQUEST */ 01357000 * 4 LCPZRT07 BIT(1), /* BUFFER TRACE ACTIVE */ 01358000 * /* FLAG (REQ. TAG OVERLAY) */ 01359000 * 5 LCPZRTL7 BIT(1), /* SCHEDULING FLAG */ 01360000 * 3 LCPMNRCD CHAR(1), /* LCP MINOR REJECTION CODE */ 01361000 * 4 LCPZRT08 BIT(1), /* I/O TRACE ACTIVE FLAG */ 01362000 * /* (REQ. TAG OVERLAY) */ 01363000 * 5 LCPZRTL8 BIT(1), /* DEVICE END NOTIFICATION */ 01364000 * 4 LCPZRT09 BIT(1), /* DIALOGUE SCHED DISABLED */ 01365000 * 5 LCPZRTL9 BIT(1), /* CRITICAL TEXT FLAG */ 01366000 * 4 LCPZRT0A BIT(1), /* SIMULATED CONTACT FLAG */ 01367000 * 4 LCPZRT0B BIT(1), /* SIMULATED DISCONNECT FLAG */ 01368000 * 2 LCPCHAIN PTR(31), /* APS CHAIN */ 01369000 * 3 LCPCHAI1 PTR(8), 0564 01370000 * 4 LCPCHNG BIT(1), /* GATE BIT */ 01371000 * 3 LCPCHAI2 PTR(24), /* ADDRESS FIELD */ 01372000 * 2 LCPRUCNT PTR(8), /* NUMBER OF RU FOR THIS LCPB */ 01373000 * 3 LCPZMIRC CHAR(1), /* MINOR RETURN CODE */ 01374000 * 2 LCPFLAG2 CHAR(1), /* SECOND FLAG BYTE */ 01375000 * 3 LCPPRFLG BIT(1), /* PACING REQUIRED */ 01376000 * 3 LCPASYN BIT(1), /* ASYNCHRONOUS LCPB */ 01377000 * 3 LCPRSTRT BIT(1), /* RESTART LCPB */ 01378000 * 3 LCPTLBPI BIT(1), /* TPIOS BLOCK LCCW */ 01379000 * 4 LCPZRIMM BIT(1), /* RESET IMMED REQUIRED ON ERR*/ 01380000 * 3 LCPFID0 BIT(1), /* FID0 TH INDICATOR FOR RECORD* 01381000 * 4 LCPEXRES BIT(1), /* EXCEP. RESPONSE SPEC. 3270R*/ 01382000 * 3 LCPDSTAT BIT(1), /* DIALOGUE STATE BIT, 3270R */ 01383000 * /* 0=REQ. REJECT,1=STATE ERROR*/ 01384000 * 3 LCPFREE BIT(1), /* DEALLOCATE LCPB 3270R */ 01385000 * 3 LCPATOP BIT(1), /* ATOP LCPB 3270R */ 01386000 * 2 LCPSEQ FIXED(16), /* OUTBOUND SEQUENCE NUMBER */ 01387000 * 3 LCPRRCCT PTR(8), /* COUNT OF RESPONSES RECEIVED*/ 01388000 * 3 LCPRRCNT PTR(8), /* COUNT OF RESPONSES REQUESTED* 01389000 * 2 LCPLCCW1 PTR(31), /* ADDR FIRST LCCW FOR FID1 */ 01390000 * 2 LCPCID CHAR(4) BDY(WORD), /* COMMUNICATION ID */ 01391000 * 3 LCPSAF BIT(16), /* SOURCE IDENTIFICATION */ 01392000 * 3 LCPDAF BIT(16), /* DESTINATION IDENTIFICATION */ 01393000 * 2 LCPNXLCW PTR(31), /* ADDR NEXT LCCW */ 01394000 * 2 LCPFDBA PTR(31), /* BTU ADDRESS */ 01395000 * 3 LCPFDB1 PTR(8), 0564 01396000 * 3 LCPFDB2 PTR(24), /* ADDRESS FIELD */ 01397000 * 2 LCPTLBAD PTR(31), /* ADDRESS OF TLB */ 01398000 * 2 LCPFOSN BIT(16), /* SEQUENCE NUMBER FIRST RU */ 01399000 * 2 LCPFSNCH FIXED(16), /* 1ST SEQ NUMBER IN RU CHAIN */ 01400000 * 2 LCPSTYPE FIXED(8), /* LCPB SUB-TYPE X'FF' = RESET,* 01401000 * /* X'00' = NON-RESET */ 01402000 * 2 LCPFLG1 CHAR(1), /* FLAGS */ 01403000 * 3 LCPRESET BIT(1), /* A TPQUE WITH RESET QUEUED */ 01404000 * /* THIS ELEMENT */ 01405000 * 3 LCPINTER BIT(1), /* INTERNAL LCPB */ 01406000 * 3 LCPDIRPT BIT(1), /* NOT SEND W/POST=SCHED=0 */ 01407000 * 3 LCPREDRV BIT(1), /* LCPB IS FOR REDRIVE */ 01408000 * 3 LCPSTLB BIT(1), /* TLB NOT TO BE FREED */ 01409000 * 3 LCPTRANS BIT(1), /* DATA INCLUDES CONTROL CHARS*/ 01410000 * 3 LCPRSV78 BIT(2), /* RESERVED */ 01411000 * 2 LCPLCCWC BIT(8), /* COUNT OF LCCWS */ 01412000 * 2 LCPRSV77 CHAR(1), /* RESERVED */ 01413000 * 2 LCPFLCCW PTR(31), /* ADDR OF FIRST LCCW */ 01414000 * 3 LCPUBFSB PTR(31), /* UNBIND FSB ADDRESS */ 01415000 * 2 LCPCLREP PTR(31), /* PTR TO CLEAR LCPB IN UCB */ 01416000 */* NOTE: THE FOLLOWING FIELD - LCPLCCW MUST BE THE LAST FIELD */ 01417000 */* IN THIS CONTROL BLOCK. THE CONTROL BLOCK ISTDCLCP HAS */ 01418000 */* FIELDS IN IT WHICH MUST BE CONTIGUOUS WITH LCPLCCW */ 01419000 * 2 LCPLCCW CHAR(LENGTH(ISTLCCW)) BDY(WORD), /* FIRST LCCW */ 01420000 * 3 LCPRSTQH PTR(31), /* RESET LCPB QUEUE HEADER */ 01421000 * 3 LCPPABA PTR(31), /* PAB POINTER */ 01422000 * 4 LCPRPHA PTR(31), /* RPH POINTER */ 01423000 * 5 LCPFTYPE BIT(1); /* FEEDBACK TYPE */ 01424000 */* CONSTANTS FOR LCPTYPE * 01425000 *DCL LCRPHFT BIT(1) CONSTANT('1'B); 0565 01426000 *DCL LCPABFT BIT(1) CONSTANT('0'B); 0566 01427000 *DCL LCPBFIRM BIT(8) CONSTANT('10'X); /* LU FAILED, CLSDST, SCHED LOST 01428000 * TERM, OPNDST MAY BE TRIED * 01429000 *DCL LCPBTERM BIT(8) CONSTANT('11'X); /* TERM RECEIVED,CLSDST, 0568 01430000 * SCHED LOST TERM * 01431000 */* * 01432000 * 0569 01433000 *DCL 1 LCPZTIE BDY(WORD) DEFINED(LCPCID), /* TOLTEP INTERFACE 0569 01434000 * ELEMENT OVERLAY */ 01435000 * 2 LCPZFMCA PTR(31), /* ACTIVE FMCB ADDRESS */ 01436000 * 2 LCPZSNA PTR(31), /* SYMBOLIC NAME ADDRESS */ 01437000 * 2 LCPZSNAM CHAR(8) BDY(WORD), /* SYMBOLIC NAME */ 01438000 * 3 LCPZTRV1 PTR(31), /* RESERVED FOR RESTORE LCP */ 01439000 * 3 LCPZTRV4 PTR(31); /* RESERVED FOR RESTORE LCP */ 01440000 *DCL LCTYPE BIT(8) CONSTANT('04'X); 0570 01441000 *DCL PLCPTYPE BIT(8) CONSTANT('28'X); /* PURGE LCPB TYPE ID */ 01442000 *DCL LCPCLACB BIT(8) CONSTANT('04'X); /* LCPB FROM CLOSE ACB */ 01443000 *DCL LSRSTYPE BIT(8) CONSTANT('FF'X); /* RESET SUBTYPE */ 01444000 *DCL LCPETYPE BIT(8) CONSTANT('40'X); /* EXTENDED LCPB TYPE ID */ 01445000 */* */ 01446000 */* MINOR RETURN CODES */ 01447000 */* */ 01448000 *DCL LCMCRSTR BIT(8) CONSTANT('F7'X), /* MINOR RC FOR RESETSR */ 01449000 * LCPMNEW BIT(8) CONSTANT('02'X), /* EARLY WARNING, */ 01450000 * /* RECOVERY IN PROGRESS */ 01451000 * LCPMNPF BIT(8) CONSTANT('03'X), /* PERM. I/O FAILURE */ 01452000 * LCPMNAS BIT(8) CONSTANT('04'X), /* AUTO NETWORK SHUTDOWN */ 01453000 * LCPMNCL BIT(8) CONSTANT('06'X), /* CLOSE/CLSDST OCCURED */ 01454000 * LCPMNVD BIT(8) CONSTANT('07'X), /* VARY DEACTIVATE */ 01455000 * LCPMNTF BIT(8) CONSTANT('10'X), /* TEMP RECORD DEVICE FAILURE */ 01456000 * LCPMNSF BIT(8) CONSTANT('01'X), /* TEMP BASIC FAILURE / */ 01457000 * LCPMNTS BIT(8) CONSTANT('11'X), /* TERMINATE SELF */ 01458000 * LCPMNAP BIT(8) CONSTANT('0A'X), /* APPL. ISSUED CLEAR */ 01459000 * LCPMNPR BIT(8) CONSTANT('0B'X), /* PREEMPT */ 01460000 * LCPMNRE BIT(8) CONSTANT('0C'X); /* RESTORE */ 01461000 */* VS1, VS2 TPIOS SAVEAREA FORMAT */ 0576 01462000 *DCL 1 ISTZSAVE BDY(WORD) BASED, 0576 01463000 * 2 ZSAZSVBC PTR(31), /* SAVEAREA BACK CHAIN */ 01464000 * 3 ZSAZSVMS CHAR(1), /* MODULE TRACE CODE */ 01465000 * 4 ZSAZACTV BIT(1), /* ACTIVE SAVE AREA FLAG */ 01466000 * 2 ZSAZSVFC PTR(31), /* SAVEAREA FORWARD CHAIN */ 01467000 * 2 ZSAZSVRR PTR(31), /* RETURN REGISTER */ 01468000 * 2 ZSAZSVVR (6) PTR(31), /* VARIABLE REGS (7-12) SVEAREA*/ 01469000 * 2 ZSAZTRAC CHAR(4); /* EBCDIC NAME OF OWNER */ 01470000 */* 0577 01471000 *THE FOLLOWING EQUATES SHOULD READ ''FIXED(8) CONSTANT(LENGTH(X))'', 01472000 *WHERE X IS THE NAME OF THE VARIABLE CONTROL BLOCK OR FIELD OF WHICH 01473000 *LENGTH IS THE VALUE BEING EQUATED, SHOULD THE PLS COMPILER BE 0577 01474000 *BE ABLE TO TAKE IT. 0577 01475000 * */ 01476000 *DCL ZSAZSVVA FIXED(8) CONSTANT(8); /* DISPLACEMENT TO VARIABLE REGS*/ 01477000 *DCL ZSAZSVSZ FIXED(8) CONSTANT(40); /* LENGTH OF ISTZSAVE */ 01478000 */* PREFIX FOR CRR */ 01479000 */* */ 01480000 */* RELEASE 1 - JUNE 28, 1973 */ 01481000 */* */ 01482000 *DCL 1 ISTPFCRR BASED BDY(WORD), /* PREFIX FOR CRR */ 01483000 * 2 PFCCRR CHAR(4), /* CRR HEADER */ 01484000 * 3 PFCCRRID CHAR(1), /* CRR ID FIELD */ 01485000 * 4 CRRID CHAR(1), /* BASIC CTL LAYER DEFINITION*/ 01486000 * 3 PFCRSV10 CHAR(1), /* RESERVED FOR ALIGNMENT */ 01487000 * 3 PFCCRRLN CHAR(2), /* CRR LENGTH */ 01488000 * 4 CRRLEN CHAR(2), /* BASIC CTL LAYER DEF */ 01489000 * 2 PFCHDR CHAR(8) BDY(WORD), /* SAVE AREA FOR OLD CRR FRR */ 01490000 * 3 PFCCRRO PTR(31), /* PTR TO OLD CRR */ 01491000 * 4 CRRCHAIN PTR(31), /* BASIC CTL LAYER DEFINITION 01492000 * FOR OLD CRR PTR */ 01493000 * 3 PFCFRRO PTR(31), /* PTR TO OLD FRR */ 01494000 * 4 CRRFRR PTR(31), /* BASIC CTL LAYER 0579 01495000 * DEFINITION OF OLD FRR PTR */ 01496000 * 2 PFCFTA BIT(8), /* ID OF LAST FUNCTION TRACED*/ 01497000 * 2 PFCRSV01 CHAR(3); /* ALIGNMENT */ 01498000 *DCL PFIDPIE BIT(8) CONSTANT('80'X); /* DOS/VS TPIOS */ 01499000 *DCL PFIDORE BIT(8) CONSTANT('81'X); /* DOS/VS BMS */ 01500000 *DCL PFIDAPE BIT(8) CONSTANT('82'X); /* DOS/VS PSS */ 01501000 *DCL PFCIDPSV BIT(8) CONSTANT('38'X); /* COMPONENT ID 0583 01502000 * PSS - VS1 AND 2 */ 01503000 *DCL PFCIDTPV BIT(8) CONSTANT('3C'X); /* COMPONENT ID 0584 01504000 * TPIOS VS1 AND 2 */ 01505000 *DCL PFCIDSME BIT(8) CONSTANT('3D'X); /* COMPONENT ID 0585 01506000 * STORAGE MANAGEMENT DOS */ 01507000 *DCL PFCIDOC BIT(8) CONSTANT('31'X); /* COMPONENT ID OPEN/CLOSE */ 01508000 *DCL PFCIDPS BIT(8) CONSTANT('32'X); /* PORT SOLICITOR */ 01509000 *DCL PFCIDCS BIT(8) CONSTANT('34'X); /* CLUSTER SOLICITOR */ 01510000 *DCL PFCIDIT BIT(8) CONSTANT('35'X); /* INIT/TERM */ 01511000 *DCL PFCIDVY BIT(8) CONSTANT('36'X); /* VARY */ 01512000 *DCL PFCIDNS BIT(8) CONSTANT('37'X); /* NET. STAT.SRV. */ 01513000 *DCL PFCIDTPE BIT(8) CONSTANT('38'X); /* COMPONENT ID 0592 01514000 * TPIOS - DOS */ 01515000 *DCL PFCIDCL BIT(8) CONSTANT('39'X); /* COMPONENT ID 0593 01516000 * CONTROL LAYER */ 01517000 *DCL PFCIDPSE BIT(8) CONSTANT('3A'X); /* COMPONENT ID 0594 01518000 * PSS - DOS */ 01519000 *DCL PFCIDSMV BIT(8) CONSTANT('3F'X); /* COMPONENT ID 0595 01520000 * STORAGE MANAGEMENT */ 01521000 *DCL PFCIDTIO BIT(8) CONSTANT('40'X); /* COMPONENT ID TIIO 0596 01522000 * PROCESSING (VS2) */ 01523000 *DCL PFCIDRS BIT(8) CONSTANT('41'X); /* ID FOR REMOTE SOLICITOR */ 01524000 */* CRR FOR COMMAND FACILITIES */ 01525000 */* REVISIONS 001 06/02/75 */ 01526000 *DCL 1 ISTCFCRR BDY(WORD) BASED, /* CRR FOR COMMAND FACILITIES */ 01527000 * 2 CFCAUDIT, /* AUDIT TRAIL FOR CMD FACILITIES*/ 01528000 * 3 CFCNTRD CHAR(1), /* LIST OF MODULES IN COMMAND */ 01529000 * /* FACILITIES ENTERED */ 01530000 * 4 NCFCS1 BIT(1), /* IND MODULE ISTCFCS1 ENTERED */ 01531000 * 4 NCFCS2 BIT(1), /* IND MODULE ISTCFCS2 ENTERED */ 01532000 * 4 NCFCR1 BIT(1), /* IND MODULE ISTCFCR1 ENTERED */ 01533000 * 4 NCFCRP BIT(1), /* IND MODULE ISTCFCRP ENTERED */ 01534000 * 4 NCFCR2 BIT(1), /* IND MODULE ISTCFCR2 ENTERED */ 01535000 * 4 NCFRSVD BIT(3), /* RESERVED */ 01536000 * 3 CFCCRT CHAR(1), /* LIST OF MODULES IN COMMAND */ 01537000 * /* FACILITIES RUNNING */ 01538000 * 4 CCFCS1 BIT(1), /* IND MODULE ISTCFCS1 RUNNING */ 01539000 * 4 CCFCS2 BIT(1), /* IND MODULE ISTCFCS2 RUNNING */ 01540000 * 4 CCFCR1 BIT(1), /* IND MODULE ISTCFCR1 RUNNING */ 01541000 * 4 CCFCRP BIT(1), /* IND MODULE ISTCFCRP RUNNING */ 01542000 * 4 CCFCR2 BIT(1), /* IND MODULE ISTCFCR2 RUNNING */ 01543000 * 4 CCFRSVD1 BIT(3); /* RESERVED */ 01544000 *DCL TIDCFCS1 BIT(8) CONSTANT('00'X); /* THREAD ID FOR ISTCFCS1 */ 01545000 *DCL TIDCFCR1 BIT(8) CONSTANT('01'X); /* THREAD ID FOR ISTCFCR1 */ 01546000 *DCL TIDCFCR2 BIT(8) CONSTANT('02'X); /* THREAD ID FOR ISTCFCR2 */ 01547000 */* COMPONENT RECOVERY RECORD FOR TPIOS */ 0602 01548000 */* DELTA 006 02/10/75 */ 01549000 *DCL 0602 01550000 *1 ISTZCRR BDY(WORD) BASED, /* CONTROL WORD */ 01551000 * 2 ZCRCRR CHAR(4), /* CONTROL WORD */ 01552000 * 3 ZCRID CHAR(1), /* CONTROL BLOCK ID */ 01553000 * 3 ZCRLEN CHAR(2), /* LENGTH OF ZCR */ 01554000 * 3 ZCRFLAG CHAR(1), /* FLAGS */ 01555000 * 2 ZCRCHAIN PTR(31), /* POINTER TO PREVIOUS ZCR */ 01556000 * 2 ZCRFRRA PTR(31), /* PTR TO FRR */ 01557000 * 2 ZCRFLGS1 CHAR(1), /* FLGS USED BY REQUEST COMPLETION */ 01558000 * 3 ZCREXSW BIT(1), /* EXIT SWITCH */ 01559000 * 3 ZCRQUESW BIT(1), /* QUEUE SWITCH */ 01560000 * 3 ZCRDEQSW BIT(1), /* DEQUEUE SWITCH */ 01561000 * 3 ZCRWAIT BIT(1), /* WAIT Q ANALYSIS COMPLETE */ 01562000 * 3 ZCRNRMEX BIT(1), /* NORMAL EXIT TO BE TAKEN */ 01563000 * 3 ZCRENDLP BIT(1), /* END OF LOOP SWITCH */ 01564000 * 3 ZCRUNSOL BIT(1), /* UNSOLICITED DATA */ 01565000 * 3 ZCRFEXIT BIT(1), /* FORCE EXIT SWITCH */ 01566000 * 2 ZCRFLGS2 CHAR(1), /* FLAGS USED WITHIN TPIOS */ 01567000 * 3 ZCRLOCAL BIT(1), /* LOCAL SUPPORT */ 01568000 * 3 ZCRSHEDI BIT(1), /* IMMEDIATE SCHEDULE */ 01569000 * 3 ZCRFMSED BIT(1), /* FMCB SEARCH ENDED */ 01570000 * 3 ZCROB BIT(1), /* OUTBOUND PROC IN PROGRESS */ 01571000 * 3 ZCRIF0E1 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 01572000 * INBOUND PROCESSING */ 01573000 * 3 ZCRIF0E2 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 01574000 * INBOUND PROCESSING */ 01575000 * 3 ZCRIF0E3 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 01576000 * INBOUND PROCESSING */ 01577000 * 2 ZCRSWFLD CHAR(1), /* SWITCHES FOR TPIOS OUTBOUND */ 01578000 * 3 ZCRENDSH BIT(1), /* EXIT FROM REMOTE DEV SCHEDULER */ 01579000 * 4 ZCRSLCP BIT(1), /* SCHEDULE LCPB */ 01580000 * 3 ZCREXTYP BIT(1), /* TPEXIT TYPE */ 01581000 * 3 ZCRENDPR BIT(1), /* EXIT FROM INNER PROCESS */ 01582000 * 3 ZCRNDLCP BIT(1), /* EXIT FROM LCPB PROCESSING */ 01583000 * 4 ZCROB1 BIT(1), /* REMOTE DEV SCHED 1ST TIME SWITCH */ 01584000 * 3 ZCRENDX BIT(1), /* EXIT FROM LCCW/BTU XLATION */ 01585000 * 3 ZCRENDXL BIT(1), /* EXIT FROM LCCW PROC */ 01586000 * 3 ZCRENDAN BIT(1), /* EXIT FROM LCPB ANALYSIS */ 01587000 * 3 ZCRRESET BIT(1), 0602 01588000 * 4 ZCRCNLXL BIT(1), /* CANCEL FURTHER XLATE */ 01589000 * 2 ZCRFLGS3 CHAR(1), /* FLAGS FOR OUTBOUND PROCESSING */ 01590000 * 3 ZCRTIC BIT(1), /* SELECT NOT TO BE SENT */ 01591000 * 3 ZCRTPCON BIT(1), /* TPIOS CONTACT SENT */ 01592000 * 3 ZCRTPDIS BIT(1), /* TPIOS DISCONNECT TO BE SENT */ 01593000 * 3 ZCRDISC BIT(1), /* DISCONNECT IN PROCESS */ 01594000 * 3 ZCREDRIV BIT(1), /* DO DERIVE */ 01595000 * 3 ZCRNOFRE BIT(1), /* NO FREEING OF SIO QUEUE */ 01596000 * 3 ZCRWRPTR BIT(1), /* WRITE TO PRINTER REQUEST */ 01597000 * 3 ZCRINLCP BIT(1), /* ERROR OCCURED DURING OUTBND PROC */ 01598000 * 2 ZCRGENSW CHAR(1), /* GENERAL SWITCHES */ 01599000 * 3 ZCRTSW1 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 01600000 * 3 ZCRTSW2 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 01601000 * 3 ZCRRT06 BIT(1), /* CRITICAL TEXT OPTION */ 01602000 * 3 ZCRLCSYN BIT(1), /* LCCW SYNC SPECIFIED */ 01603000 * 3 ZCREXRES BIT(1), /* EXCEPTION RESPONSE SPECIFIED */ 01604000 * 3 ZCRCLRBD BIT(1), /* FLAG INDICATING BIND WAS CLEARED */ 01605000 * 3 ZCRBRIS BIT(1), /* BRACKET REJECTED DUE TO IN BRAC. */ 01606000 * 3 ZCRF1RES BIT(1), /* FID1 RESPONSE TO BE GENERATED */ 01607000 * 2 ZCRPFLGS CHAR(1), /* UTILITIES PROC OPTION FLAGS */ 01608000 * 3 ZCRQAHED BIT(1), /* QXFR RTN TO USE INSERT OPT'N ON TPQ* 01609000 * 3 * BIT(7), /* RESERVED */ 01610000 * 2 ZCRIBPR CHAR(1), /* INBOUND PROCESSING FLAGS */ 01611000 * 3 ZCRNOBUF BIT(1), /* FSB WITH NO BUFFER */ 01612000 * 3 ZCRERR BIT(1), /* ERROR INDICATOR */ 01613000 * 3 ZCRRELK BIT(1), /* RESET ERROR LOCK FUNCTION REQ. */ 01614000 * 3 ZCRLCPFR BIT(1), /* FLAG IND. DEALLOCATE ATOP LCPB */ 01615000 * 3 ZCRLCPFD BIT(1), /* FLAG IND. LCPB FOUND ON WAITQ */ 01616000 * 3 ZCR3270 BIT(1), /* 3270 DEVICE */ 01617000 * 3 ZCR3270R BIT(1), /* 3270 DEVICE IN RECORD MODE */ 01618000 * 3 * BIT(1), /* RESERVED */ 01619000 * 2 ZCRSCPSW CHAR(1), /* SESSION CONTROL FLAGS */ 01620000 * 3 ZCRTPEX BIT(1), /* TP EXIT */ 01621000 * 3 ZCRTPINV BIT(1), /* INVOKE TPIOS */ 01622000 * 3 ZCRRJLCP BIT(1), /* LCPB REJECTED */ 01623000 * 3 ZCRLREQ BIT(1), /* REQUEST */ 01624000 * 3 ZCRPRCMP BIT(1), /* PROCESSING COMPLETE */ 01625000 * 3 ZCRFSBWE BIT(1), /* FSB IS WORK ELEMENT */ 01626000 * 3 ZCRSKIPT BIT(1), /* SKIP TRACE FLAG */ 01627000 * 3 * BIT(1), /* RESERVED */ 01628000 * 2 ZCRCRLCP PTR(31), /* CURRENT LCPB PTR */ 01629000 * 2 ZCRPARMS BDY(WORD), /* PARAMETERS PASSED TO UTILITIES */ 01630000 * 3 ZCRFBPTR PTR(31), /* PTR TO FROM BUFFER */ 01631000 * 4 ZCRCBPTR PTR(31), /* PTR TO CURRENT BUFFER */ 01632000 * 3 ZCRTBPTR PTR(31), /* PTR TO TO-OR-TRANSLATE BUFFER */ 01633000 * 3 ZCRMLNG FIXED(15), /* LENGTH TO MOVE */ 01634000 * 3 ZCRDFRDA FIXED(15), /* OFFSET FROM DATA ADDR IN FROM BUF*/ 01635000 * 4 ZCRDTODA FIXED(15), /* OFFSET FROM DATA ADDR XLATE BUF */ 01636000 * 3 ZCRPCOD1 CHAR(1), /* CODE BYTE FOR ALLOC/DISALLOC */ 01637000 * 4 ZCRPPG BIT(1), /* GET PAGEABLE BUFF */ 01638000 * 4 ZCRPLNG BIT(1), /* LENGTH OF BUFFER SPECIFIED */ 01639000 * 4 ZCRPFSB BIT(1), /* GET FSB */ 01640000 * 4 ZCRPLSBF BIT(1), /* GET LSCB AND BUFFER */ 01641000 * 5 ZCRPLSBQ BIT(1), /* PURGE LSCB QUEUE */ 01642000 * 4 ZCRPLSCB BIT(1), /* GET OR RELEASE LSCB */ 01643000 * 4 ZCRPBUF BIT(1), /* GET OR RELEASE BUFFER */ 01644000 * 4 ZCRPCFTX BIT(1), /* CONFIDENTIAL TEXT */ 01645000 * 4 ZCRPRES BIT(1), /* RESERVED */ 01646000 * 3 ZCRPCOD2 CHAR(1), /* CODE BYTE FOR MOVE */ 01647000 * 4 ZCRPPG2 BIT(1), /* GET PAGEABLE BUFFER */ 01648000 * 4 ZCRPFHDR BIT(1), /* FROM BUFFER FDB TO BE USED */ 01649000 * 4 ZCRPMFGF BIT(1), /* MOVE STARTS WIHT 1ST BUFF IN BLOCK* 01650000 * 4 ZCRPRES2 BIT(5), /* RESERVED */ 01651000 * 3 ZCRPCHAR CHAR(1), /* TRANSLATE & TEST SEARCH CHARACTER*/ 01652000 * 3 ZCRPSW CHAR(1), /* SWITCH FIELD */ 01653000 * 2 ZCRCCWA PTR(31), /* PTR TO CURRENT CCW (CCW 1 OR 2) */ 01654000 * 2 ZCRBFPTR PTR(31), /* SAVE 1ST BUFF PTR IN TO-BUFF CHN 01655000 * OR LAST BUFFER IN CHANNEL PGM */ 01656000 * 2 ZCRZLB PTR(31), /* PTR TO CURR BUFF IN CHANNEL PGM */ 01657000 * 2 ZCRPVZB PTR(31), /* PTR TO PREVIOUS BUFF IN CHAN PGM */ 01658000 * 2 ZCRSVRTN BDY(WORD), /* REG 14 SAVE AREAS */ 01659000 * 3 ZCRSVF1 PTR(31), /* SAVE REQUIRED REGISTER */ 01660000 * 3 ZCRSVF2 PTR(31), /* SAVE REQUIRED REGISTER */ 01661000 * 3 ZCRSVF3 PTR(31), /* SAVE REQUIRED REGISTER */ 01662000 * 3 ZCRSVF4 PTR(31), /* SAVE REQUIRED REGISTER */ 01663000 * 3 ZCRSVF5 PTR(31), /* SAVE REQUIRED REGISTER */ 01664000 * 3 ZCRSVF6 PTR(31), /* SAVE REQUIRED REGISTER */ 01665000 * 3 ZCRSVF7 PTR(31), /* SAVE REQUIRED REGISTER */ 01666000 * 3 ZCRSVF8 PTR(31), /* SAVE REQUIRED REGISTER */ 01667000 * 3 ZCRSVF9 PTR(31), /* SAVE REQUIRED REGISTER */ 01668000 * 3 ZCRSVF10 PTR(31), /* SAVE REQUIRED REGISTER */ 01669000 * 3 ZCRSVF11 PTR(31), /* SAVE REQUIRED REGISTER */ 01670000 * 3 ZCRSVF12 PTR(31), /* SAVE REQUIRED REGISTER */ 01671000 * 3 ZCRSVF13 PTR(31), /* SAVE REQUIRED REGISTER */ 01672000 * 3 ZCRSVF14 PTR(31), /* SAVE REQUIRED REGISTER */ 01673000 * 3 ZCRSVF15 PTR(31), /* SAVE REQUIRED REGISTER */ 01674000 * 3 ZCRSVF16 PTR(31), /* SAVE REQUIRED REGISTER */ 01675000 * 3 ZCRSVF17 PTR(31), /* SAVE REQUIRED REGISTER */ 01676000 * 3 ZCRSVF18 PTR(31), /* SAVE REQUIRED REGISTER */ 01677000 * 3 ZCRSVF19 PTR(31), /* SAVE REQUIRED REGISTER */ 01678000 * 3 ZCRSVF20 PTR(31), /* SAVE REQUIRED REGISTER */ 01679000 * 3 ZCRSVF21 PTR(31), /* SAVE REQUIRED REGISTER */ 01680000 * 3 ZCRSVF22 PTR(31), /* SAVE REQUIRED REGISTER */ 01681000 * 3 ZCRSVF23 PTR(31), /* SAVE REQUIRED REGISTER */ 01682000 * 3 ZCRSVF24 PTR(31), /* SAVE REQUIRED REGISTER */ 01683000 * 3 ZCRSVF25 PTR(31), /* SAVE REQUIRED REGISTER */ 01684000 * 2 ZCRWKARA BDY(WORD), /* TEMPORARY REG SAVE AREA */ 01685000 * 3 ZCRSVWK1 PTR(31), /* SAVE REQUIRED REG */ 01686000 * 3 ZCRSVWK2 PTR(31), /* SAVE REQUIRED REG */ 01687000 * 3 ZCRSVWK3 PTR(31), /* SAVE REQUIRED REG */ 01688000 * 3 ZCRSVWK4 PTR(31), /* SAVE REQUIRED REG */ 01689000 * 3 ZCRSVWK5 PTR(31), /* SAVE REQUIRED REG */ 01690000 * 2 ZCRFSBSV PTR(31), /* FSB CHAIN PTR SAVEAREA */ 01691000 * 2 ZCRFBPRC BIT(1), /* FSB PROCESS SW */ 01692000 * 2 ZCRMOREL BIT(1), /* MORE ELEMENTS SW */ 01693000 * 2 ZCRSCANQ BIT(1), /* SCAN QUEUE SW */ 01694000 * 2 ZCRNXTEL BIT(1), /* NEXT ELEMENT SW */ 01695000 * 2 ZCRXSCHD BIT(1), /* EXIT SCHEDULE SW */ 01696000 * 2 ZCRLSTFB BIT(1), /* INBOUND PROC LAST FSB FOR ELEM SW*/ 01697000 * 2 ZCRTOPQ BIT(1), /* QUEUE ELEMENT TO TOP SW */ 01698000 * 2 ZCRAWQSW BIT(1), /* CHECK AWAITQ FOR MORE WORK =1 */ 01699000 * /* CHECK WAITQ =0 */ 01700000 * 2 ZCRRCDSV CHAR(1), /* RETURN CODE SAVEAREA */ 01701000 * 2 ZCRPRMTC CHAR(1), /* PREEMPT COMPLETION PARAMETER BYTE*/ 01702000 * 2 ZCROPCDE CHAR(1), /* OP CODE TO BE TRANSFORMED * 01703000 * 2 ZCRR2SV PTR(31), /* ISTZBFDI REG 2 SAVE EREA */ 01704000 * 2 ZCRR13SV PTR(31), /* ISTSBFDI REG 13 SAVE EREA */ 01705000 * 2 ZCRCIDSV BDY(WORD), /* ISTZBFDI CID SAVE AREA */ 01706000 * 3 ZCRSAFSV CHAR(2), /* ISTZBFDI SAF SAVE AREA */ 01707000 * 3 ZCRDAFSV CHAR(2), /* ISTZBFDI DAF SAVE AREA */ 01708000 * 2 ZCRSAVEZ (6) BDY(WORD) CHAR(LENGTH(ISTZSAVE)), 0602 01709000 * /* SAVE/TRACE AREAS FOR TPIOS MODS */ 01710000 * 2 ZCRREMIC PTR(31), /* POINTER TO REMOTE RN ICNCB */ 01711000 * 2 ZCRAUDIT CHAR(36), /* TPIOS AUDIT TRAIL AREA */ 01712000 * 3 ZCRTID CHAR(1), /* THREAD I.D. */ 01713000 * 3 ZCRTNAME CHAR(4), /* LAST 4 CHARS OF THREAD NAME */ 01714000 * 3 ZCRENTER BIT(248), /* BIT ARRAY FOR MODULES ENTERED */ 01715000 * 4 ZCREAC1A BIT(1), /* ISTZAC1A ENTERED */ 01716000 * 4 ZCREAC0A BIT(1), /* ISTZAC0A ENTERED */ 01717000 * 4 ZCREAC0B BIT(1), /* ISTZAC0B ENTERED */ 01718000 * 4 ZCREAC1B BIT(1), /* ISTZAC1B ENTERED */ 01719000 * 4 ZCREBCAA BIT(1), /* ISTZBCAA ENTERED */ 01720000 * 4 ZCREBCAB BIT(1), /* ISTZBCAB ENTERED */ 01721000 * 4 ZCREBCAE BIT(1), /* ISTZBCAE ENTERED */ 01722000 * 4 ZCREBCAG BIT(1), /* ISTZBCAG ENTERED */ 01723000 * 4 ZCREBCAI BIT(1), /* ISTZBCAI ENTERED */ 01724000 * 4 ZCREBCAM BIT(1), /* ISTZBCAM ENTERED */ 01725000 * 4 ZCREBCBA BIT(1), /* ISTZBCBA ENTERED */ 01726000 * 4 ZCREBCBB BIT(1), /* ISTZBCBB ENTERED */ 01727000 * 4 ZCREBCBI BIT(1), /* ISTZBCBI ENTERED */ 01728000 * 4 ZCREBCCB BIT(1), /* ISTZBCCB ENTERED */ 01729000 * 4 ZCREBCDI BIT(1), /* ISTZBCDI ENTERED */ 01730000 * 4 ZCREBCEB BIT(1), /* ISTZBCEB ENTERED */ 01731000 * 4 ZCREBCFA BIT(1), /* ISTZBCFA ENTERED */ 01732000 * 4 ZCREBCFB BIT(1), /* ISTZBCFB ENTERED */ 01733000 * 4 ZCREBCGA BIT(1), /* ISTZBCGA ENTERED */ 01734000 * 4 ZCREBCGB BIT(1), /* ISTZBCGB ENTERED */ 01735000 * 4 ZCREBCHA BIT(1), /* ISTZBCHA ENTERED */ 01736000 * 4 ZCREBCHB BIT(1), /* ISTZBCHB ENTERED */ 01737000 * 4 ZCREBCIA BIT(1), /* ISTZBCIA ENTERED */ 01738000 * 4 ZCREBCIB BIT(1), /* ISTZBCIB ENTERED */ 01739000 * 4 ZCREBCID BIT(1), /* ISTZBCID ENTERED */ 01740000 * 4 ZCREBCJA BIT(1), /* ISTZBCJA ENTERED */ 01741000 * 4 ZCREBCJB BIT(1), /* ISTZBCJB ENTERED */ 01742000 * 4 ZCREBCKA BIT(1), /* ISTZBCKA ENTERED */ 01743000 * 4 ZCREBCKB BIT(1), /* ISTZBCKB ENTERED */ 01744000 * 4 ZCREBCLA BIT(1), /* ISTZBCLA ENTERED */ 01745000 * 4 ZCREBCLB BIT(1), /* ISTZBCLB ENTERED */ 01746000 * 4 ZCREBCMB BIT(1), /* ISTZBCMB ENTERED */ 01747000 * 4 ZCREBCND BIT(1), /* ISTZBCND ENTERED */ 01748000 * 4 ZCREBCNE BIT(1), /* ISTZBCNE ENTERED */ 01749000 * 4 ZCREBCOB BIT(1), /* ISTZBCOB ENTERED */ 01750000 * 4 ZCREBCPB BIT(1), /* ISTZBCPB ENTERED */ 01751000 * 4 ZCREBCQB BIT(1), /* ISTZBCQB ENTERED */ 01752000 * 4 ZCREBCRA BIT(1), /* ISTZBCRA ENTERED */ 01753000 * 4 ZCREBCRB BIT(1), /* ISTZBCRB ENTERED */ 01754000 * 4 ZCREBCSC BIT(1), /* ISTZBCSC ENTERED */ 01755000 * 4 ZCREBCXA BIT(1), /* ISTZBCXA ENTERED */ 01756000 * 4 ZCREBCX0 BIT(1), /* ISTZBCX0 ENTERED */ 01757000 * 4 ZCREBCY0 BIT(1), /* ISTZBCY0 ENTERED */ 01758000 * 4 ZCREBCZ0 BIT(1), /* ISTZBCZ0 ENTERED */ 01759000 * 4 ZCREBC0A BIT(1), /* ISTZBC0A ENTERED */ 01760000 * 4 ZCREBC0B BIT(1), /* ISTZBC0B ENTERED */ 01761000 * 4 ZCRECC0A BIT(1), /* ISTZCC0A ENTERED */ 01762000 * 4 ZCRECC0B BIT(1), /* ISTZCC0B ENTERED */ 01763000 * 4 ZCRECC1A BIT(1), /* ISTZCC1A ENTERED */ 01764000 * 4 ZCRECC1B BIT(1), /* ISTZCC1B ENTERED */ 01765000 * 4 ZCRECC2B BIT(1), /* ISTZCC2B ENTERED */ 01766000 * 4 ZCREDCA0 BIT(1), /* ISTZDCA0 ENTERED */ 01767000 * 4 ZCREDCB0 BIT(1), /* ISTZDCB0 ENTERED */ 01768000 * 4 ZCREDCC0 BIT(1), /* ISTZDCC0 ENTERED */ 01769000 * 4 ZCREDCD0 BIT(1), /* ISTZDCD0 ENTERED */ 01770000 * 4 ZCREDCE0 BIT(1), /* ISTZDCE0 ENTERED */ 01771000 * 4 ZCREDCF0 BIT(1), /* ISTZDCF0 ENTERED */ 01772000 * 4 ZCREDCH0 BIT(1), /* ISTZDCH0 ENTERED */ 01773000 * 4 ZCREDCI0 BIT(1), /* ISTZDCI0 ENTERED */ 01774000 * 4 ZCREDCJ0 BIT(1), /* ISTZDCJ0 ENTERED */ 01775000 * 4 ZCREDCKA BIT(1), /* ISTZDCKA ENTERED */ 01776000 * 4 ZCREDCKB BIT(1), /* ISTZDCKB ENTERED */ 01777000 * 4 ZCREDCL0 BIT(1), /* ISTZDCL0 ENTERED */ 01778000 * 4 ZCREDCMB BIT(1), /* ISTZDCMB ENTERED */ 01779000 * 4 ZCREECBA BIT(1), /* ISTZECBA ENTERED */ 01780000 * 4 ZCREECBB BIT(1), /* ISTZECBB ENTERED */ 01781000 * 4 ZCREECCA BIT(1), /* ISTZECCA ENTERED */ 01782000 * 4 ZCREECCB BIT(1), /* ISTZECCB ENTERED */ 01783000 * 4 ZCREECDA BIT(1), /* ISTZECDA ENTERED */ 01784000 * 4 ZCREECEA BIT(1), /* ISTZECEA ENTERED */ 01785000 * 4 ZCREECTA BIT(1), /* ISTZECTA ENTERED */ 01786000 * 4 ZCREFCEA BIT(1), /* ISTZFCEA ENTERED */ 01787000 * 4 ZCREFCEB BIT(1), /* ISTZFCEB ENTERED */ 01788000 * 4 ZCREGCAB BIT(1), /* ISTZGCAB ENTERED */ 01789000 * 4 ZCREGCBB BIT(1), /* ISTZGCBB ENTERED */ 01790000 * 4 * BIT(1), /* NOT USED */ 01791000 * 4 ZCREGCDB BIT(1), /* ISTZGCDB ENTERED */ 01792000 * 4 ZCREGCEB BIT(1), /* ISTZGCEB ENTERED */ 01793000 * 4 ZCREGCLA BIT(1), /* ISTZGCLA ENTERED */ 01794000 * 4 ZCREGC0A BIT(1), /* ISTZGC0A ENTERED */ 01795000 * 4 ZCREGC0B BIT(1), /* ISTZGC0B ENTERED */ 01796000 * 4 ZCREHCAN BIT(1), /* ISTZHCAN ENTERED */ 01797000 * 4 ZCREICAA BIT(1), /* ISTZICAA ENTERED */ 01798000 * 4 ZCREICAB BIT(1), /* ISTZICAB ENTERED */ 01799000 * 4 ZCREICBB BIT(1), /* ISTZICBB ENTERED */ 01800000 * 4 ZCREICBI BIT(1), /* ISTZICBI ENTERED */ 01801000 * 4 ZCREICCB BIT(1), /* ISTZICCB ENTERED */ 01802000 * 4 ZCREICCI BIT(1), /* ISTZICCI ENTERED */ 01803000 * 4 ZCREICDB BIT(1), /* ISTZICDB ENTERED */ 01804000 * 4 ZCREICEB BIT(1), /* ISTZICEB ENTERED */ 01805000 * 4 ZCREICGB BIT(1), /* ISTZICGB ENTERED */ 01806000 * 4 ZCREICHB BIT(1), /* ISTZICHB ENTERED */ 01807000 * 4 ZCREICIB BIT(1), /* ISTZICIB ENTERED */ 01808000 * 4 ZCREICID BIT(1), /* ISTZICID ENTERED */ 01809000 * 4 ZCREICJB BIT(1), /* ISTZICJB ENTERED */ 01810000 * 4 ZCREICKB BIT(1), /* ISTZICKB ENTERED */ 01811000 * 4 ZCREICKE BIT(1), /* ISTZICKE ENTERED */ 01812000 * 4 ZCREICKG BIT(1), /* ISTZICKG ENTERED */ 01813000 * 4 ZCREICLB BIT(1), /* ISTZICLB ENTERED */ 01814000 * 4 ZCREICMB BIT(1), /* ISTZICMB ENTERED */ 01815000 * 4 ZCREICNA BIT(1), /* ISTZICNA ENTERED */ 01816000 * 4 ZCREICNB BIT(1), /* ISTZICNB ENTERED */ 01817000 * 4 ZCREICOA BIT(1), /* ISTZICOA ENTERED */ 01818000 * 4 ZCREICOB BIT(1), /* ISTZICOB ENTERED */ 01819000 * 4 ZCREICQA BIT(1), /* ISTZICQA ENTERED */ 01820000 * 4 ZCREICQB BIT(1), /* ISTZICQB ENTERED */ 01821000 * 4 ZCREICRB BIT(1), /* ISTZICRB ENTERED */ 01822000 * 4 ZCREICSB BIT(1), /* ISTZICSB ENTERED */ 01823000 * 4 ZCREICSC BIT(1), /* ISTZICSC ENTERED */ 01824000 * 4 ZCREICTB BIT(1), /* ISTZICTB ENTERED */ 01825000 * 4 ZCREICUB BIT(1), /* ISTZICUB ENTERED */ 01826000 * 4 ZCREICVB BIT(1), /* ISTZICVB ENTERED */ 01827000 * 4 ZCREICWB BIT(1), /* ISTZICWB ENTERED */ 01828000 * 4 ZCREICX0 BIT(1), /* ISTZICX0 ENTERED */ 01829000 * 4 ZCREIC0B BIT(1), /* ISTZIC0B ENTERED */ 01830000 * 4 ZCREIC1B BIT(1), /* ISTZIC1B ENTERED */ 01831000 * 4 ZCREJCAB BIT(1), /* ISTZJCAB ENTERED */ 01832000 * 4 ZCREJCBB BIT(1), /* ISTZJCBB ENTERED */ 01833000 * 4 ZCREJCCB BIT(1), /* ISTZJCCB ENTERED */ 01834000 * 4 ZCREJCDB BIT(1), /* ISTZJCDB ENTERED */ 01835000 * 4 ZCREJC0B BIT(1), /* ISTZJC0B ENTERED */ 01836000 * 4 ZCREKCBB BIT(1), /* ISTZKCBB ENTERED */ 01837000 * 4 ZCREKCBN BIT(1), /* ISTZKCBN ENTERED */ 01838000 * 4 ZCREKCCN BIT(1), /* ISTZKCCN ENTERED */ 01839000 * 4 ZCREDCWR BIT(1), /* ISTZDCWR ENTERED */ 01840000 * 4 ZCREDCWB BIT(1), /* ISTZDCWB ENTERED */ 01841000 * 4 ZCREDCXR BIT(1), /* ISTZDCXR ENTERED */ 01842000 * 4 ZCREBCBR BIT(1), /* ISTZBCBR ENTERED */ 01843000 * 4 ZCREBCDR BIT(1), /* ISTZBCDR ENTERED */ 01844000 * 4 ZCREBCAR BIT(1), /* ISTZBCAR ENTERED */ 01845000 * 4 ZCRECCBI BIT(1), /* ISTZCCBI ENTERED */ 01846000 * 4 ZCRECCAI BIT(1), /* ISTZCCAI ENTERED */ 01847000 * 4 ZCRECCCI BIT(1), /* ISTZCCCI ENTERED */ 01848000 * 4 ZCREAC1R BIT(1), /* ISTZAC1R ENTERED */ 01849000 * 4 ZCREBCSB BIT(1), /* ISTZBCSB ENTERED */ 01850000 * 4 ZCREDCPR BIT(1), /* ISTZDCPR ENTERED */ 01851000 * 4 ZCREDCQR BIT(1), /* ISTZDCQR ENTERED */ 01852000 * 4 ZCREBCAL BIT(1), /* ISTZBCAL ENTERED */ 01853000 * 4 ZCREBC0L BIT(1), /* ISTZBC0L ENTERED */ 01854000 * 4 ZCREBCNB BIT(1), /* ISTZBCNB ENTERED */ 01855000 * 4 ZCREICOE BIT(1), /* ISTZICOE ENTERED */ 01856000 * 4 ZCREDCNB BIT(1), /* ISTZDCNB ENTERED */ 01857000 * 4 ZCREKCCB BIT(1), /* ISTZKCCB ENTERED */ 01858000 * 4 ZCRECFY0 BIT(1), /* ISTZCFY0 ENTERED */ 01859000 * 4 ZCREDCK0 BIT(1), /* ISTZDFK0 ENTERED */ 01860000 * 4 ZCREICSG BIT(1), /* ISTZICSG ENTERED */ 01861000 * 4 ZCREBCIF BIT(1), /* ISTZBCIF ENTERED */ 01862000 * 4 ZCREDCMF BIT(1), /* ISTZDCMF ENTERED */ 01863000 * 4 ZCRELCAB BIT(1), /* ISTZLCAB ENTERED */ 01864000 * 4 ZCREAC2B BIT(1), /* ISTZAC2B ENTERED */ 01865000 * 4 ZCREIC2B BIT(1), /* ISTZIC2B ENTERED */ 01866000 * 4 ZCRRSV97 BIT(97), /* RESERVED */ 01867000 * 2 ZCRCMNRC CHAR(1), /* PURGE MWOR RETURN CODE */ 01868000 * 2 ZCRWORDA CHAR(3), /* RESERVED FOR LATER USE */ 01869000 * 2 ZCRLCPB CHAR(LENGTH(ISTLCPB)), /* 3270 S/R LCPB */ 01870000 * 3 ZCRRHRU, /* SAVEAREA FOR RH AND RU */ 01871000 * 4 ZCRRH CHAR(3), /* RH */ 01872000 * 4 ZCRRU CHAR(*); /* RU */ 01873000 *DCL ZCTYPE BIT(8) CONSTANT('00'X); /* ZCR TYPE */ 01874000 *DCL ZCLNG FIXED(15) CONSTANT(172); /* ZCRR LENGTH */ 01875000 *DCL ZCRSAVNO BIT(8) CONSTANT('06'X); /* NUMBER OF SAVEAREAS IN ZCRR */ 01876000 *DCL ZCRLSVNO BIT(8) CONSTANT('04'X); /* NUMBER OF SAVE AREAS IN 0606 01877000 * LOCAL SUPPORT */ 01878000 */* *** EQUATES FOR ZCRRCDSV *** */ 0607 01879000 * 0607 01880000 *DCL ZCRMRFSB BIT(8) CONSTANT('0C'X); /* REQUEST COMPLETION MOVE FSB 01881000 * TO PROCESS */ 01882000 *DCL ZCRSRCHQ BIT(8) CONSTANT('10'X); /* REQUEST COMPLETION SEARCH 01883000 * REQUEST QUEUE */ 01884000 *DCL ZCREXIT BIT(8) CONSTANT('14'X); /* REQUEST COMPLETION EXIT */ 01885000 *DCL ZCRSFSB BIT(8) CONSTANT('18'X); /* REQUEST COMPLETION SINGLE 01886000 * FSB */ 01887000 *DCL ZCRDLFSB BIT(8) CONSTANT('1C'X); /* REQUEST COMPLETION DUAL FSB * 01888000 *DCL ZCRNOSCH BIT (8) CONSTANT('20'X); /* REQUEST COMPLETION, EXIT WITH 01889000 * SCHED NONE */ 01890000 *DCL ZCRNRSCH BIT (8) CONSTANT('24'X); /* REQUEST COMPLETION, EXIT WITH 01891000 * SCHED NORM */ 01892000 *DCL ZCRLGERR FIXED(8) CONSTANT(8); /* LOGICAL ERROR */ 01893000 *DCL ZCPLSCB BIT(8) CONSTANT('08'X); /* GET A RELEASE LSCB */ 01894000 *DCL ZCPBUF BIT(8) CONSTANT('04'X); /* GET A RELEASE BUFFER */ 01895000 *DCL ZCRTAC0A FIXED(8) CONSTANT(01); /* LOCAL DEVICE SCHEDULER(OUT)*/ 01896000 *DCL ZCRTAC0B FIXED(8) CONSTANT(02); /* REMOTE DEVICE SCHEDLER(OUT)*/ 01897000 *DCL ZCRTCC1A FIXED(8) CONSTANT(03); /* LOCAL DIALOG SCHEDLER(IN) */ 01898000 *DCL ZCRTCC1B FIXED(8) CONSTANT(04); /* REMOTE DIALOG SCHEDLER(IN) */ 01899000 *DCL ZCRTDCE0 FIXED(8) CONSTANT(05); /* NCP SLOWDOWN RECOVERY */ 01900000 *DCL ZCRTDCKA FIXED(8) CONSTANT(06); /* LOCAL GENERAL FUNCTIONS */ 01901000 *DCL ZCRTDCKB FIXED(8) CONSTANT(07); /* REMOTE GENERAL FUNCTIONS */ 01902000 *DCL ZCRTFCEB FIXED(8) CONSTANT(08); /* REMOTE READ BUFFER ALLOC. */ 01903000 *DCL ZCRTGCLA FIXED(8) CONSTANT(09); /* LCAL CTL & TEST FEEDBACK(IN)* 01904000 *DCL ZCRTGC0A FIXED(8) CONSTANT(10); /* LOCAL REQ. COMPLETION(IN) */ 01905000 *DCL ZCRTGC0B FIXED(8) CONSTANT(11); /* REMOTE REQ. COMPLETION(IN) */ 01906000 *DCL ZCRTICWB FIXED(8) CONSTANT(12); /* RESET CLEANUP (PHASE 5) */ 01907000 *DCL ZCRTIC0B FIXED(8) CONSTANT(13); /* REMOTE REQ COMPLTION CTL(IN)* 01908000 *DCL ZCRTAC1B FIXED(8) CONSTANT(14); /* ISTZAC1B THREAD ID */ 01909000 *DCL ZCRTIC1B FIXED(8) CONSTANT(15); /* ISTZIC1B THREAD ID */ 01910000 *DCL ZCRTCCBI FIXED(8) CONSTANT(16); /* ISTZCCBI THREAD ID */ 01911000 *DCL ZCRTAC1R FIXED(8) CONSTANT(17); /* ISTZAC1R THREAD ID */ 01912000 *DCL ZCRTAC1A FIXED(8) CONSTANT(18); /* ISTZAC1A THREAD ID */ 01913000 *DCL ZCRTLCAB FIXED(8) CONSTANT(19); /* ISTZLCAB THREAD ID */ 01914000 */* COMPONENT RECOVERY */ 01915000 */* */ 01916000 *DCL 1 ISTASCRR BDY(WORD) BASED, /* CRR FOR SMS */ 01917000 * 2 ASCPFCRR CHAR(LENGTH(ISTPFCRR)), 0636 01918000 * 2 ASCFLAGS CHAR(7), /* FLAGS */ 01919000 * 3 ASCFLG1 CHAR(2), /* MODULE TRACE FLAGS */ 01920000 * 4 ASCFBA BIT(1), /* ALLOCATION IN PATH */ 01921000 * 4 ASCFBD BIT(1), /* DE-ALLOCATION IN PATH */ 01922000 * 4 ASCFSR BIT(1), /* FSR IN PATH */ 01923000 * 4 ASCPASTR BIT(13), /* RESERVED PATH FLAGS */ 01924000 * 3 ASCFLG2 CHAR(2), /* MODULE IN CONTROL FLAGS */ 01925000 * 4 ASCFBAIC BIT(1), /* ALLOCATION IN CONTROL */ 01926000 * 4 ASCFBDIC BIT(1), /* DE-ALLOCATION IN CONTROL */ 01927000 * 4 ASCFSRIC BIT(1), /* FSR IN CONTROL */ 01928000 * 4 ASCICR BIT(13), /* RESERVED IN CONTROL FLAGS */ 01929000 * 3 ASCFLG3 CHAR(3), /* AUDIT FLAGS */ 01930000 * 4 ASCFSRGT BIT(1), /* FSR DOING GET PROCESSING */ 01931000 * 4 ASCFBDAL BIT(1), /* FBD DOING ALLOCATION */ 01932000 * 4 ASCKEYF BIT(1), /* KEY HAS BEEN ALTERED */ 01933000 * 4 ASCLLKF BIT(1), /* LOCAL LOCK HELD */ 01934000 * 4 ASCFBDUD BIT(1), /* FBD USING USER DATA */ 01935000 * 4 ASCAUDIT BIT(19), /* RESERVED AUDIT BITS */ 01936000 * 2 ASCKEY CHAR(1), /* ORIGINAL KEY */ 01937000 * 2 ASCETRYA PTR(31), /* RETRY ADRS FOR CONTINUE 0636 01938000 * OPTION */ 01939000 * 2 ASCUSRGS CHAR(16), /* SAVE AREA FOR USER REGS 0636 01940000 * 14 - 1 */ 01941000 * 3 ASCUSR14 CHAR(4), /* REGISTER 14 */ 01942000 * 3 ASCUSR15 CHAR(4), /* REGISTER 15 */ 01943000 * 3 ASCUSR00 CHAR(4), /* REGISTER 0 */ 01944000 * 3 ASCUSR01 CHAR(4), /* REGISTER 1 */ 01945000 * 2 ASCPSREG CHAR(16); /* SAVE AREA FOR PSS 0636 01946000 * REGS 1 - 4 */ 01947000 */* INITIAL LEVEL 001 04/09/75 */ 01948000 *DCL 1 ISTAPCRR BDY(WORD) BASED, 0637 01949000 * 2 APCHDRSV CHAR(LENGTH(ISTPFCRR)), /* HEADER */ 01950000 * 2 APCATFLG CHAR(2), /* AUDIT TRACE FLAGS */ 01951000 * 3 APC51E BIT(1), /* ISTAPC51 WAS ENTERED */ 01952000 * 3 APC52E BIT(1), /* ISTAPC52 ' ' */ 01953000 * 3 APC53E BIT(1), /* ISTAPC53 */ 01954000 * 3 APC54E BIT(1), 0637 01955000 * 3 APC56E BIT(1), 0637 01956000 * 3 APC57E BIT(1), 0637 01957000 * 3 APC58E BIT(1), 0637 01958000 * 3 APC31E BIT(1), 0637 01959000 * 3 * BIT(8), /* RESERVED */ 01960000 * 2 APCRFLG CHAR(2), /* AUDIT TRACE FLAGS */ 01961000 * 3 APC51R BIT(1), /* ISTAPCR1 IS RUNNING */ 01962000 * 3 APC52R BIT(1), /* ISTAPC52 IS RUNNING */ 01963000 * 3 APC53R BIT(1), 0637 01964000 * 3 APC54R BIT(1), 0637 01965000 * 3 APC56R BIT(1), 0637 01966000 * 3 APC57R BIT(1), 0637 01967000 * 3 APC58R BIT(1), 0637 01968000 * 3 APC31R BIT(1), 0637 01969000 * 3 * BIT(8), /* RESERVED */ 01970000 * 2 APCPSTA PTR(31), /* PST@ */ 01971000 * 2 APCTCBA PTR(31), /* TCB@ */ 01972000 * 2 APCRTRN PTR(31), /*@ TO BR14 TO RTN TO SYSTEM */ 01973000 * 2 APCPABSV PTR(31), /*SAVED PAB@ TO REDISPATCH */ 01974000 * 2 APCQWFO PTR(31), /* Q@ IN PST WORK AREA ON */ 01975000 * 2 APCFRRPM PTR(31), /* WORKAREA@ RTN'D FROM SETFR*/ 01976000 * 2 APCSAVE CHAR(72), 0637 01977000 * 3 APCESTAL CHAR(72), /* ESTAE PARAMETER LIST AREA */ 01978000 * 2 APCCOMF CHAR(4) BDY(HWORD), /* FLAGS USED BY ALL PSS RTN */ 01979000 * 3 APCCOMF1 CHAR(2), 0637 01980000 * 4 APCSSTSK BIT(1), /* IRB TYPE WORK */ 01981000 * 4 APCUETSK BIT(1), /* USER EXIT RUNNING UNDER IRB* 01982000 * 4 APCSMCR BIT(1), /* SMA CRA BEING USED */ 01983000 * 4 APCIRB1 BIT(1), /* IRB1 BEING USED */ 01984000 * 4 APCIRB2 BIT(1), /* IRB2 BEING USED */ 01985000 * 4 APCRELR BIT(1), /*CALL ISTAPC58 TO RLEASE CRA*/ 01986000 * 4 APCEXIT BIT(1), /* TELLS ISTAPC58 TO EXIT SYS*/ 01987000 * 4 APCZLBER BIT(1), /* ERR WHILE RUNNING ZLFAB PAB* 01988000 * 4 * BIT(8), /* RESERVED */ 01989000 * 3 APCRETCD FIXED(15), /* RTN CODE FOR R15 FOR SYS */ 01990000 * 2 APCSAV1 PTR(31), /* 1ST SAVE WORD */ 01991000 * 2 APCSAV2 PTR(31), /* 2ND SAVE WORD */ 01992000 * 2 APCSWTWD CHAR(4), /* SWITCH AREA FOR PSS RTN */ 01993000 * 2 APC31FLG CHAR(1), /* ISTAPC31 FLAGS */ 01994000 * 3 APCTPXIT BIT(1), /* TPEXIT IN PROGRESS */ 01995000 * 3 APCRESCH BIT(1), /*PAB TPEXIT OCCURED RESCHED*/ 01996000 * 3 APCSORT BIT(1), /* PAB SORTED TO PROPER PST/MPST */ 01997000 * 3 * BIT(5), /* RESERVED */ 01998000 * 2 APC52FLG CHAR(1), /* ISTAPC52 FLAGS */ 01999000 * 3 APCCKRQ BIT(1), /* CHECK RDY Q FOR WORK */ 02000000 * 3 APCSMSR BIT(1), /* RETURNING SMS RPH */ 02001000 * 3 APCQENQ BIT(1), /* ENQUEUEING PAB'S ON PST Q'S */ 02002000 * 3 APCRDQ BIT(1), /* DEQUEING PAB'S FROM PST RDY Q */ 02003000 * 3 APCNWF BIT(1), /* NO WORK FOUND */ 02004000 * 3 APCWKF BIT(1), /* WORK FOUND */ 02005000 * 3 * BIT(2), /* RESERVED */ 02006000 * 2 APC53FLG CHAR(1), /* ISTAPC53 FLAGS */ 02007000 * 3 APCPR153 BIT(1), /* USED PREALLOCATED CRA */ 02008000 * 2 APC54FLG CHAR(1), /* ISTAPC54 FLAGS */ 02009000 * 3 APCRLST BIT(1), /* SMS BEING CALLED TO RELEASE UECB*/ 02010000 * 3 * BIT(7), /* RESERVED */ 02011000 * 2 APC57FLG CHAR(1), /* ISTAPC57 FLAGS */ 02012000 * 3 APCRECRA BIT(1), /* RELEASE CRA BEING DONE */ 02013000 * 3 APCNREL BIT(1), /* DID NOT RELEASE CRA */ 02014000 * 3 * BIT(6), /* RESERVED */ 02015000 * 2 * CHAR(15); /* RESERVED */ 02016000 */* COMPONENT RECOVERY AREA */ 02017000 */* REVISIONS 005 04/09/75 */ 02018000 *DCL 1 ISTCRA BASED BDY(DWORD), /* COMPONENT RECOVERY AREA */ 02019000 * 2 CRABASIC BDY(WORD), /* CRA WITHOUT PROCESS CRR */ 02020000 * 3 CRAHDR CHAR(8) BDY(WORD), /* CRA HEADER */ 02021000 * 4 CRACRR PTR(31), /* PTR TO ACTIVE CRR */ 02022000 * 4 CRAFRR PTR(31), /* PTR TO ACTIVE FRR */ 02023000 * 3 CRALKACT BIT(32), /* LOCK LEVEL AND 0638 02024000 * OWNERSHIP FLAGS */ 02025000 * 4 CRALEV32 BIT(1), /* 1 = LEVEL 32 LOCK HELD */ 02026000 * 4 CRALEV31 BIT(1), /* 1 = LEVEL 31 LOCK HELD */ 02027000 * 4 CRALEV30 BIT(1), /* 1 = LEVEL 30 LOCK HELD */ 02028000 * 4 CRALEV29 BIT(1), /* 1 = LEVEL 29 LOCK HELD */ 02029000 * 4 CRALEV28 BIT(1), /* 1 = LEVEL 28 LOCK HELD */ 02030000 * 4 CRALEV27 BIT(1), /* 1 = LEVEL 27 LOCK HELD */ 02031000 * 4 CRALEV26 BIT(1), /* 1 = LEVEL 26 LOCK HELD */ 02032000 * 4 CRALEV25 BIT(1), /* 1 = LEVEL 25 LOCK HELD */ 02033000 * 4 CRALEV24 BIT(1), /* 1 = LEVEL 24 LOCK HELD */ 02034000 * 4 CRALEV23 BIT(1), /* 1 = LEVEL 23 LOCK HELD */ 02035000 * 4 CRALEV22 BIT(1), /* 1 = LEVEL 22 LOCK HELD */ 02036000 * 4 CRALEV21 BIT(1), /* 1 = LEVEL 21 LOCK HELD */ 02037000 * 4 CRALEV20 BIT(1), /* 1 = LEVEL 20 LOCK HELD */ 02038000 * 4 CRALEV19 BIT(1), /* 1 = LEVEL 19 LOCK HELD */ 02039000 * 4 CRALEV18 BIT(1), /* 1 = LEVEL 18 LOCK HELD */ 02040000 * 4 CRALEV17 BIT(1), /* 1 = LEVEL 17 LOCK HELD */ 02041000 * 4 CRALEV16 BIT(1), /* 1 = LEVEL 16 LOCK HELD */ 02042000 * 4 CRALEV15 BIT(1), /* 1 = LEVEL 15 LOCK HELD */ 02043000 * 4 CRALEV14 BIT(1), /* 1 = LEVEL 14 LOCK HELD */ 02044000 * 4 CRALEV13 BIT(1), /* 1 = LEVEL 13 LOCK HELD */ 02045000 * 4 CRALEV12 BIT(1), /* 1 = LEVEL 12 LOCK HELD */ 02046000 * 4 CRALEV11 BIT(1), /* 1 = LEVEL 11 LOCK HELD */ 02047000 * 4 CRALEV10 BIT(1), /* 1 = LEVEL 10 LOCK HELD */ 02048000 * 4 CRALEV09 BIT(1), /* 1 = LEVEL 9 LOCK HELD */ 02049000 * 4 CRALEV08 BIT(1), /* 1 = LEVEL 8 LOCK HELD */ 02050000 * 4 CRALEV07 BIT(1), /* 1 = LEVEL 7 LOCK HELD */ 02051000 * 4 CRALEV06 BIT(1), /* 1 = LEVEL 6 LOCK HELD */ 02052000 * 4 CRALEV05 BIT(1), /* 1 = LEVEL 5 LOCK HELD */ 02053000 * 4 CRALEV04 BIT(1), /* 1 = LEVEL 4 LOCK HELD */ 02054000 * 4 CRALEV03 BIT(1), /* 1 = LEVEL 3 LOCK HELD */ 02055000 * 4 CRALEV02 BIT(1), /* 1 = LEVEL 2 LOCK HELD */ 02056000 * 4 CRALEV01 BIT(1), /* 1 = LEVEL 1 LOCK HELD */ 02057000 * 3 CRAL1PTR PTR(31), /* PTR TO LEVEL 1 LOCK */ 02058000 * 3 CRAL2PTR PTR(31), /* PTR TO LEVEL 2 LOCK */ 02059000 * 3 CRAL3PTR PTR(31), /* PTR TO LEVEL 3 LOCK */ 02060000 * 3 CRAL4PTR PTR(31), /* PTR TO LEVEL 4 LOCK */ 02061000 * 3 CRAL5PTR PTR(31), /* PTR TO LEVEL 5 LOCK */ 02062000 * 3 CRAL6PTR PTR(31), /* PTR TO LEVEL 6 LOCK */ 02063000 * 3 CRAL7PTR PTR(31), /* PTR TO LEVEL 7 LOCK */ 02064000 * 3 CRAL8PTR PTR(31), /* PTR TO LEVEL 8 LOCK */ 02065000 * 3 CRAL9PTR PTR(31), /* PTR TO LEVEL 9 LOCK */ 02066000 * 3 CRALAPTR PTR(31), /* RESERVED */ 02067000 */* */ 02068000 */* VS1/VS2 EXTENSION */ 02069000 */* */ 02070000 * 2 CRARPH CHAR(LENGTH(ISTRPH)), /* RPH ASSOCIATED WITH 0638 02071000 * THIS CRH */ 02072000 * 2 CRAPSS CHAR(LENGTH(ISTAPCRR)), /* PSS CRR */ 02073000 * 2 CRAPROCR CHAR(LENGTH(ISTZCRR)) BDY(DWORD), /* PROCESS CRR */ 02074000 * 2 CRASVC CHAR(72) BDY(WORD), /* SERVICE RTN CRA */ 02075000 * 3 CRAASCRR CHAR(LENGTH(ISTASCRR)), /* CRR FOR SMS */ 02076000 * 3 CRAHSIZ PTR(31), /* HEADER SIZE QUED SMS REQ */ 02077000 * 3 CRAMASK PTR(31), /* PREFIX MASK QUED SMS REQ */ 02078000 * 3 CRABUFA FIXED(31), /* BUFF QUE FOR FBQ ALLOCATION* 02079000 * 4 CRABFTBA BIT(1), /* NO BUFFERS ALLOCATED YET * 02080000 * 2 CRARSV01 PTR(31), /* RESERVED */ 02081000 * 2 CRARSV02 PTR(31), /* RESERVED */ 02082000 * 2 CRACHAIN PTR(31); /* CHAIN FIELD USED TO QUEUE 02083000 * CRA TO PREALLOCATE QUEUE 02084000 * WHEN NOT IN USE */ 02085000 *DCL CRALMS32 BIT(32) CONSTANT('80000000'X); /* 32ND LEVEL LOCK MASK */ 02086000 *DCL CRALMS31 BIT(32) CONSTANT('40000000'X); /* 31ST LEVEL LOCK MASK */ 02087000 *DCL CRALMS30 BIT(32) CONSTANT('20000000'X); /* 30TH LEVEL LOCK MASK */ 02088000 *DCL CRALMS29 BIT(32) CONSTANT('10000000'X); /* 29TH LEVEL LOCK MASK */ 02089000 *DCL CRALMS28 BIT(32) CONSTANT('08000000'X); /* 28TH LEVEL LOCK MASK */ 02090000 *DCL CRALMS27 BIT(32) CONSTANT('04000000'X); /* 27TH LEVEL LOCK MASK */ 02091000 *DCL CRALMS26 BIT(32) CONSTANT('02000000'X); /* 26TH LEVEL LOCK MASK */ 02092000 *DCL CRALMS25 BIT(32) CONSTANT('01000000'X); /* 25TH LEVEL LOCK MASK */ 02093000 *DCL CRALMS24 BIT(32) CONSTANT('00800000'X); /* 24TH LEVEL LOCK MASK */ 02094000 *DCL CRALMS23 BIT(32) CONSTANT('00400000'X); /* 23RD LEVEL LOCK MASK */ 02095000 *DCL CRALMS22 BIT(32) CONSTANT('00200000'X); /* 22ND LEVEL LOCK MASK */ 02096000 *DCL CRALMS21 BIT(32) CONSTANT('00100000'X); /* 21ST LEVEL LOCK MASK */ 02097000 *DCL CRALMS20 BIT(32) CONSTANT('00080000'X); /* 20TH LEVEL LOCK MASK */ 02098000 *DCL CRALMS19 BIT(32) CONSTANT('00040000'X); /* 19TH LEVEL LOCK MASK */ 02099000 *DCL CRALMS18 BIT(32) CONSTANT('00020000'X); /* 18TH LEVEL LOCK MASK */ 02100000 *DCL CRALMS17 BIT(32) CONSTANT('00010000'X); /* 17TH LEVEL LOCK MASK */ 02101000 *DCL CRALMS16 BIT(32) CONSTANT('00008000'X); /* 16TH LEVEL LOCK MASK */ 02102000 *DCL CRALMS15 BIT(32) CONSTANT('00004000'X); /* 15TH LEVEL LOCK MASK */ 02103000 *DCL CRALMS14 BIT(32) CONSTANT('00002000'X); /* 14TH LEVEL LOCK MASK */ 02104000 *DCL CRALMS13 BIT(32) CONSTANT('00001000'X); /* 13TH LEVEL LOCK MASK */ 02105000 *DCL CRALMS12 BIT(32) CONSTANT('00000800'X); /* 12TH LEVEL LOCK MASK */ 02106000 *DCL CRALMS11 BIT(32) CONSTANT('00000400'X); /* 11TH LEVEL LOCK MASK */ 02107000 *DCL CRALMS10 BIT(32) CONSTANT('00000200'X); /* 10TH LEVEL LOCK MASK */ 02108000 *DCL CRALMS09 BIT(32) CONSTANT('00000100'X); /* 9TH LEVEL LOCK MASK */ 02109000 *DCL CRALMS08 BIT(32) CONSTANT('00000080'X); /* 8TH LEVEL LOCK MASK */ 02110000 *DCL CRALMS07 BIT(32) CONSTANT('00000040'X); /* 7TH LEVEL LOCK MASK */ 02111000 *DCL CRALMS06 BIT(32) CONSTANT('00000020'X); /* 6TH LEVEL LOCK MASK */ 02112000 *DCL CRALMS05 BIT(32) CONSTANT('00000010'X); /* 5TH LEVEL LOCK MASK */ 02113000 *DCL CRALMS04 BIT(32) CONSTANT('00000008'X); /* 4TH LEVEL LOCK MASK */ 02114000 *DCL CRALMS03 BIT(32) CONSTANT('00000004'X); /* 3RD LEVEL LOCK MASK */ 02115000 *DCL CRALMS02 BIT(32) CONSTANT('00000002'X); /* 2ND LEVEL LOCK MASK */ 02116000 *DCL CRALMS01 BIT(32) CONSTANT('00000001'X); /* 1ST LEVEL LOCK MASK */ 02117000 *DCL CRACRA CHAR(4) CONSTANT('CRA '); /* CHARACTER C.B. ID */ 02118000 * GEN (PRINT ON); 0672 02119000 PRINT ON 02120000 */* END OF TPEPILOG */ 0673 02121000 * 0673 02122000 */* ATDSPLY INVOKED. */ 0673 02123000 */********************************************************************/ 02124000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 02125000 */* COMPILATION: */ 02126000 */* ISTDEVCH */ 02127000 */* ISTPROCD */ 02128000 */* ISTCSP */ 02129000 */* ISTLOK */ 02130000 */* ISTRDT */ 02131000 */* ISTPAB */ 02132000 */* ISTDYPAB */ 02133000 */* ISTBIND */ 02134000 */* ISTCSL */ 02135000 */* ISTNIB */ 02136000 */* ISTOCW */ 02137000 */* ISTACDEB */ 02138000 */* ISTOCA */ 02139000 */* ISTRPH */ 02140000 */* ISTATCVT */ 02141000 */* ISTLCCW */ 02142000 */* ISTLCPB */ 02143000 */* ISTZSAVE */ 02144000 */* ISTPFCRR */ 02145000 */* ISTCFCRR */ 02146000 */* ISTZCRR */ 02147000 */* ISTASCRR */ 02148000 */* ISTAPCRR */ 02149000 */* ISTCRA */ 02150000 */********************************************************************/ 02151000 */* END OF ATDSPLY. */ 0673 02152000 * END ISTOCCUR 0673 02153000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 02154000 */*%INCLUDE SYSLIB (CVT ) * 02155000 */*%INCLUDE SYSLIB (IFGACB ) * 02156000 */*%INCLUDE SYSLIB (IFGACBVT) * 02157000 */*%INCLUDE SYSLIB (IFGRPL ) * 02158000 */*%INCLUDE SYSLIB (IFGRPLVT) * 02159000 */*%INCLUDE SYSLIB (ISTRPLFB) * 02160000 *; 0673 02161000 @DATA DS 0H 02162000 @DATD DSECT 02163000 DS 0F 02164000 ISTOCCUR CSECT 02165000 DS 0F 02166000 @CF00053 DC F'4' 02167000 @CF02170 DC XL4'04000000' 02168000 @CF02180 DC XL4'08000000' 02169000 @CF02657 DC XL4'21' 02170000 @DATD DSECT 02171000 DS 0D 02172000 CVTPTR DS A 02173000 DXUKEY DS F 02174000 DXXEND DS F 02175000 DXDEBXAD DS F 02176000 DXUDCBAD DS F 02177000 DXUDCBPL DS F 02178000 DXUDCBML DS F 02179000 LCPBPTR DS A 02180000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02181000 @ENDDATD EQU * 02182000 ISTOCCUR CSECT 02183000 DS 0F 02184000 @SIZDATD DC AL1(0) 02185000 DC AL3(@ENDDATD-@DATD) 02186000 DS 0D 02187000 CMZA0028 DS FL4 02188000 ORG CMZA0028 02189000 @NM00062 DC AL1(64) 02190000 @NM00063 DC AL1(96) 02191000 @NM00064 DC AL1(241) 02192000 @NM00065 DC XL1'01' 02193000 ORG CMZA0028+4 02194000 CMZA0047 DS FL4 02195000 ORG CMZA0047 02196000 @NM00066 DC AL1(64) 02197000 @NM00067 DC AL1(96) 02198000 @NM00068 DC AL1(241) 02199000 @NM00069 DC XL1'01' 02200000 ORG CMZA0047+4 02201000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02202000 @01 EQU 01 02203000 @02 EQU 02 02204000 @03 EQU 03 02205000 @04 EQU 04 02206000 @05 EQU 05 02207000 @06 EQU 06 02208000 @07 EQU 07 02209000 @08 EQU 08 02210000 @09 EQU 09 02211000 @10 EQU 10 02212000 @11 EQU 11 02213000 @12 EQU 12 02214000 @13 EQU 13 02215000 @14 EQU 14 02216000 @15 EQU 15 02217000 COCWPTR EQU @04 02218000 CSAVEPTR EQU @13 02219000 CPRPH EQU @05 02220000 CREQT EQU @08 02221000 CPABPTR EQU @07 02222000 CWORKREG EQU @06 02223000 CRETCODE EQU @15 02224000 CDEBPTR EQU @10 02225000 GPR00F EQU @00 02226000 GPR00P EQU @00 02227000 GPR01F EQU @01 02228000 GPR01P EQU @01 02229000 GPR02F EQU @02 02230000 GPR02P EQU @02 02231000 GPR03F EQU @03 02232000 GPR03P EQU @03 02233000 GPR04F EQU @04 02234000 GPR04P EQU @04 02235000 GPR05F EQU @05 02236000 GPR05P EQU @05 02237000 GPR06F EQU @06 02238000 GPR06P EQU @06 02239000 GPR14F EQU @14 02240000 GPR14P EQU @14 02241000 GPR15F EQU @15 02242000 GPR15P EQU @15 02243000 GPR07P EQU @07 02244000 GPR08P EQU @08 02245000 GPR09P EQU @09 02246000 GPR10P EQU @10 02247000 GPR11P EQU @11 02248000 GPR12P EQU @12 02249000 GPR13P EQU @13 02250000 RPHPTR EQU @01 02251000 GPR07F EQU @07 02252000 GPR08F EQU @08 02253000 GPR09F EQU @09 02254000 GPR10F EQU @10 02255000 GPR11F EQU @11 02256000 GPR12F EQU @12 02257000 GPR13F EQU @13 02258000 ATCLCPTR EQU 1032 02259000 CVTMAP EQU 0 02260000 CVTDAR EQU CVTMAP+72 02261000 CVTFLGS1 EQU CVTDAR 02262000 CVTDCB EQU CVTMAP+116 02263000 CVTIERLC EQU CVTMAP+144 02264000 CVTOPTA EQU CVTMAP+182 02265000 CVTOPTB EQU CVTMAP+183 02266000 CVTGTF EQU CVTMAP+236 02267000 CVTGTFST EQU CVTGTF 02268000 CVTGTFS EQU CVTGTFST 02269000 CVTSTATE EQU CVTGTFST 02270000 CVTTMODE EQU CVTGTFST 02271000 CVTFORM EQU CVTGTFST 02272000 CVTAQAVT EQU CVTMAP+240 02273000 CVTTCMFG EQU CVTAQAVT 02274000 CVTVOLM2 EQU CVTMAP+244 02275000 CVTTATA EQU CVTVOLM2 02276000 CVTTSKS EQU CVTTATA 02277000 CVTVOLF2 EQU CVTTSKS 02278000 CVTTAT EQU CVTTATA+1 02279000 CVTATER EQU CVTMAP+248 02280000 CVTEXT1 EQU CVTMAP+252 02281000 CVTPURG EQU CVTMAP+260 02282000 CVTQMSG EQU CVTMAP+268 02283000 CVTDMSR EQU CVTMAP+272 02284000 CVTRSV37 EQU CVTDMSR 02285000 CVTDMSRF EQU CVTRSV37 02286000 CVTERPV EQU CVTMAP+316 02287000 CVTINTLA EQU CVTMAP+320 02288000 CVTAPF EQU CVTMAP+324 02289000 CVTEXT2 EQU CVTMAP+328 02290000 CVTHJES EQU CVTMAP+332 02291000 CVTPGSIA EQU CVTMAP+348 02292000 CVTA1F1 EQU CVTMAP+356 02293000 CVTSYSK EQU CVTMAP+357 02294000 CVTVOLM1 EQU CVTMAP+380 02295000 CVTVOLF1 EQU CVTVOLM1 02296000 CVTATMCT EQU CVTMAP+388 02297000 CVTXTNT1 EQU 0 02298000 CVTXTNT2 EQU 0 02299000 CVTDSSV EQU CVTXTNT2 02300000 CVTFLGBT EQU CVTXTNT2+5 02301000 CVTQID EQU CVTXTNT2+24 02302000 CVTSHS EQU CVTXTNT2+40 02303000 CVTRV400 EQU CVTXTNT2+52 02304000 CVTRV409 EQU CVTXTNT2+53 02305000 CVTATCVT EQU CVTXTNT2+64 02306000 CVTRV429 EQU CVTXTNT2+84 02307000 CVTRV438 EQU CVTXTNT2+85 02308000 CVTRV457 EQU CVTXTNT2+112 02309000 CVTRV466 EQU CVTXTNT2+113 02310000 CVTFIX EQU 0 02311000 CVTRELNO EQU CVTFIX+252 02312000 IFGACB EQU 0 02313000 ACBCOMN EQU IFGACB 02314000 ACBLENG EQU ACBCOMN+2 02315000 ACBLENG2 EQU ACBLENG 02316000 ACBAMBL EQU ACBCOMN+4 02317000 ACBJWA EQU ACBAMBL 02318000 ACBMACRF EQU ACBCOMN+12 02319000 ACBMACR1 EQU ACBMACRF 02320000 ACBADR EQU ACBMACR1 02321000 ACBCNV EQU ACBMACR1 02322000 ACBMACR2 EQU ACBMACRF+1 02323000 ACBBUFPL EQU ACBCOMN+20 02324000 ACBMACR3 EQU ACBBUFPL 02325000 ACBRECFM EQU ACBCOMN+24 02326000 ACBCCTYP EQU ACBCOMN+25 02327000 ACBOPT EQU ACBCOMN+26 02328000 ACBDSORG EQU ACBOPT 02329000 ACBCROPS EQU ACBDSORG 02330000 ACBDVIND EQU ACBDSORG 02331000 ACBEXLST EQU ACBCOMN+36 02332000 ACBDDNM EQU ACBCOMN+40 02333000 ACBAMETH EQU ACBDDNM+3 02334000 ACBOFLGS EQU ACBCOMN+48 02335000 ACBEXFG EQU ACBOFLGS 02336000 ACBIOSFG EQU ACBOFLGS 02337000 ACBINFLG EQU ACBCOMN+50 02338000 ACBVVIC EQU ACBINFLG 02339000 ACBUJFCB EQU ACBCOMN+52 02340000 ACBBLKSZ EQU ACBCOMN+60 02341000 ACBVTEXT EQU IFGACB+76 02342000 IFGRPL EQU 0 02343000 RPLCOMN EQU IFGRPL 02344000 RPLIDWD EQU RPLCOMN 02345000 RPLREQ EQU RPLIDWD+2 02346000 RPLLEN EQU RPLIDWD+3 02347000 RPLECB EQU RPLCOMN+8 02348000 RPLFDBWD EQU RPLCOMN+12 02349000 RPLFDBK EQU RPLFDBWD+1 02350000 RPLRTNCD EQU RPLFDBK 02351000 RPLCNDCD EQU RPLFDBK+1 02352000 RPLCMPON EQU RPLCNDCD 02353000 RPLFDB2 EQU RPLCMPON 02354000 RPLERRCD EQU RPLCNDCD+1 02355000 RPLFDB3 EQU RPLERRCD 02356000 RPLKEYLE EQU RPLCOMN+16 02357000 RPLARG EQU RPLCOMN+36 02358000 RPLOPTCD EQU RPLCOMN+40 02359000 RPLOPT1 EQU RPLOPTCD 02360000 RPLECBSW EQU RPLOPT1 02361000 RPLOPT2 EQU RPLOPTCD+1 02362000 RPLADR EQU RPLOPT2 02363000 RPLOPT3 EQU RPLOPTCD+2 02364000 RPLOPT4 EQU RPLOPTCD+3 02365000 RPLNXTRP EQU RPLCOMN+44 02366000 RPLOPTC2 EQU RPLCOMN+56 02367000 RPLOPT5 EQU RPLOPTC2 02368000 RPLWRTYP EQU RPLOPT5 02369000 RPLOPT6 EQU RPLOPTC2+1 02370000 RPLUNTYP EQU RPLOPT6 02371000 RPLOPT7 EQU RPLOPTC2+2 02372000 RPLCNOPT EQU RPLOPT7 02373000 RPLTPOST EQU RPLOPT7 02374000 RPLOPT8 EQU RPLOPTC2+3 02375000 RPLRBAR EQU RPLCOMN+60 02376000 RPLAIXID EQU RPLRBAR+2 02377000 RPLEXTDS EQU RPLCOMN+68 02378000 RPLEXTD1 EQU RPLEXTDS 02379000 RPLVTEXT EQU IFGRPL+76 02380000 RPLFDBK2 EQU RPLVTEXT+12 02381000 RPLSSNSI EQU RPLFDBK2 02382000 RPLDSB EQU RPLSSNSI 02383000 RPLDSB1 EQU RPLDSB 02384000 RPLSSEI EQU RPLDSB1 02385000 RPLDSB2 EQU RPLDSB+1 02386000 RPLUSNSI EQU RPLFDBK2+2 02387000 RPLOPTC3 EQU RPLVTEXT+20 02388000 RPLOPT9 EQU RPLOPTC3 02389000 RPLOPT10 EQU RPLOPTC3+1 02390000 RPLOPT11 EQU RPLOPTC3+2 02391000 RPLOPT12 EQU RPLOPTC3+3 02392000 RPLOSENS EQU RPLVTEXT+24 02393000 RPLSSNSO EQU RPLOSENS 02394000 RPLSSEO EQU RPLSSNSO 02395000 RPLOF16 EQU 0 02396000 RPLRH3 EQU RPLOF16 02397000 RPLSRTYP EQU RPLOF16+1 02398000 RPLSTYPE EQU RPLSRTYP 02399000 RPLRTYPE EQU RPLSRTYP 02400000 RPLCHN EQU RPLOF16+2 02401000 RPLVTFL1 EQU RPLOF16+3 02402000 RPLVTFL2 EQU RPLOF16+4 02403000 RPLPOSTV EQU RPLVTFL2 02404000 RPLRESP EQU RPLVTFL2 02405000 RPLCNTRL EQU RPLOF16+5 02406000 RPLCNTDF EQU RPLCNTRL 02407000 RPLCNTDC EQU RPLCNTRL+1 02408000 RPLCNTSC EQU RPLCNTRL+2 02409000 RPLOF60 EQU 0 02410000 RPLOBSQ EQU RPLOF60+4 02411000 RPLIBSQ EQU RPLOF60+5 02412000 ISTDEVCH EQU 0 02413000 DEVSHCH EQU ISTDEVCH 02414000 DEVCHAR EQU DEVSHCH 02415000 DEVTCODE EQU ISTDEVCH+1 02416000 DEVFLAGS EQU ISTDEVCH+3 02417000 DEVFCCTL EQU DEVFLAGS 02418000 DEVCHAR3 EQU DEVFLAGS 02419000 ISTPROCD EQU 0 02420000 PROPROC EQU ISTPROCD 02421000 PROPROC1 EQU PROPROC 02422000 PROPROC2 EQU PROPROC+1 02423000 PROPROC3 EQU PROPROC+2 02424000 PROPROC4 EQU PROPROC+3 02425000 PROPROCS EQU 0 02426000 PROSETMS EQU PROPROCS+1 02427000 PROSETM2 EQU PROSETMS 02428000 PROSETM3 EQU PROSETMS+1 02429000 PROSETM4 EQU PROSETMS+2 02430000 ISTCSP EQU 0 02431000 CSPOPT EQU ISTCSP+2 02432000 CSPOPT1 EQU CSPOPT 02433000 CSPOPT2 EQU CSPOPT+1 02434000 CSPRSC2B EQU ISTCSP+32 02435000 ISTLOK EQU 0 02436000 LOKCHN EQU ISTLOK+1 02437000 LOKCHNG EQU LOKCHN 02438000 @NM00046 EQU LOKCHNG+2 02439000 ISTRPRE EQU 0 02440000 RPRCOMID EQU ISTRPRE+8 02441000 RPRFLAGA EQU ISTRPRE+21 02442000 RPRFLAGB EQU ISTRPRE+22 02443000 RPRCAUSE EQU ISTRPRE+23 02444000 RPRFLAGD EQU ISTRPRE+61 02445000 RPRFLAGC EQU ISTRPRE+62 02446000 ISTRCPRE EQU 0 02447000 RCPPMODE EQU ISTRCPRE+91 02448000 RCPLGNIN EQU ISTRCPRE+92 02449000 ISTRDT EQU 0 02450000 RDTPLEN EQU ISTRDT+72 02451000 RDTPRIOR EQU RDTPLEN 02452000 RDTFLAGB EQU ISTRDT+91 02453000 RDTVYRPH EQU ISTRDT+108 02454000 RDTSTCNT EQU ISTRDT+112 02455000 ISTRAP EQU 0 02456000 RAPFLG EQU ISTRAP+108 02457000 RAPFLGB EQU ISTRAP+109 02458000 RAPALLF EQU RAPFLGB 02459000 RAPFLGC EQU ISTRAP+110 02460000 ISTRLC EQU 0 02461000 RLCADR EQU ISTRLC+72 02462000 RLCFLAG EQU RLCADR 02463000 ISTRRN EQU 0 02464000 RRNADR EQU ISTRRN+136 02465000 RRNFLAG EQU RRNADR 02466000 RRNUCBAD EQU RRNADR+1 02467000 RRNRDF EQU ISTRRN+172 02468000 RRNRDFA EQU RRNRDF 02469000 RRNRDFB EQU RRNRDF+1 02470000 RRNCMF EQU ISTRRN+176 02471000 RRNCMFA EQU RRNCMF 02472000 RRNCMFB EQU RRNCMF+1 02473000 RRNCMFC EQU RRNCMF+2 02474000 RRNCMFD EQU RRNCMF+3 02475000 RRNNMDPD EQU ISTRRN+192 02476000 RRNHPRE EQU ISTRRN+216 02477000 ISTRGP EQU 0 02478000 RGPFLG EQU ISTRGP+72 02479000 ISTRLN EQU 0 02480000 RLNADR EQU ISTRLN+72 02481000 RLNFLAG EQU RLNADR 02482000 RLNUCBAD EQU RLNADR+1 02483000 RLNSTAT1 EQU ISTRLN+86 02484000 RLNSTAT2 EQU ISTRLN+87 02485000 RLNRDF EQU ISTRLN+88 02486000 RLNRDFA EQU RLNRDF 02487000 RLNRACNT EQU RLNRDFA 02488000 RLNRDFB EQU RLNRDF+1 02489000 RLNCRFLG EQU ISTRLN+102 02490000 RLNLSCMD EQU RLNCRFLG 02491000 ISTRPT EQU 0 02492000 RPTLNCID EQU ISTRPT+116 02493000 RPTDITT EQU ISTRPT+128 02494000 RPTFLAG1 EQU ISTRPT+140 02495000 ISTRCL EQU 0 02496000 RCLADR EQU ISTRCL+72 02497000 RCLFLAG EQU RCLADR 02498000 ISTRTR EQU 0 02499000 RTRADR EQU ISTRTR+124 02500000 RTRFLAG EQU RTRADR 02501000 RTRRDFA EQU ISTRTR+136 02502000 RTRRAALL EQU RTRRDFA 02503000 RTRRDFB EQU ISTRTR+137 02504000 RTRRDFC EQU ISTRTR+138 02505000 RTRRDFD EQU ISTRTR+139 02506000 RTRRDFE EQU ISTRTR+140 02507000 RTRRDFF EQU ISTRTR+141 02508000 RTRCRFLG EQU ISTRTR+143 02509000 RTRLSCMD EQU RTRCRFLG 02510000 RTRBSCID EQU ISTRTR+188 02511000 ISTRIN EQU 0 02512000 RINDFD EQU ISTRIN+124 02513000 RINREMPO EQU RINDFD 02514000 RINNODEF EQU RINDFD 02515000 RINLDISC EQU RINDFD 02516000 RINNODID EQU ISTRIN+125 02517000 RINRLDAF EQU ISTRIN+126 02518000 RINREMOT EQU ISTRIN+128 02519000 RINVPAB EQU ISTRIN+132 02520000 RINRPHCN EQU ISTRIN+136 02521000 RINNCSPL EQU ISTRIN+140 02522000 RINCNCNT EQU ISTRIN+144 02523000 ISTRDS EQU 0 02524000 ISTDOT EQU 0 02525000 ISTRCC EQU 0 02526000 RCCFLAG EQU ISTRCC+73 02527000 RCCFLAGB EQU ISTRCC+74 02528000 RCCSTAID EQU ISTRCC+78 02529000 RCCID48 EQU RCCSTAID+2 02530000 RCCCRFLG EQU ISTRCC+108 02531000 ISTRLU EQU 0 02532000 RLUFLAG EQU ISTRLU+125 02533000 RLUCRFLG EQU ISTRLU+126 02534000 RLUPACE EQU ISTRLU+132 02535000 RLUNCPPC EQU ISTRLU+134 02536000 RLUUSSTB EQU ISTRLU+140 02537000 RLUMODET EQU ISTRLU+152 02538000 ISTRPX EQU 0 02539000 ISTRLX EQU 0 02540000 RLXFLAGA EQU ISTRLX+76 02541000 ISTRSW EQU 0 02542000 ISTRDA EQU 0 02543000 RDAADR EQU ISTRDA+72 02544000 RDAFLAG EQU RDAADR 02545000 RDAUCBAD EQU RDAADR+1 02546000 ISTRLS EQU 0 02547000 ISTDNT EQU 0 02548000 ISTGNT EQU 0 02549000 ISTPAT EQU 0 02550000 PATFLAGA EQU ISTPAT+7 02551000 ISTPAB EQU 0 02552000 PABWQCHN EQU ISTPAB 02553000 PABWEQA EQU PABWQCHN 02554000 PABCHAIN EQU PABWQCHN+4 02555000 PABCHNGP EQU PABCHAIN+1 02556000 PABRPHFG EQU ISTPAB+12 02557000 PABFLAGS EQU PABRPHFG 02558000 PABERLCK EQU PABFLAGS 02559000 PABERRLK EQU PABERLCK 02560000 ISTDYPAB EQU 0 02561000 ISTBIND EQU 0 02562000 BINFMTY EQU ISTBIND 02563000 BINPRIP EQU ISTBIND+3 02564000 BINSECP EQU ISTBIND+4 02565000 BINCMNP EQU ISTBIND+5 02566000 BINCMNP2 EQU ISTBIND+6 02567000 BINTSU EQU ISTBIND+7 02568000 BINRPACE EQU BINTSU+1 02569000 BINRUSZ EQU BINTSU+2 02570000 BINSRUSZ EQU BINRUSZ 02571000 BINPRUSZ EQU BINRUSZ+1 02572000 BINPRSVC EQU ISTBIND+13 02573000 BINLUP EQU BINPRSVC 02574000 BINPSCHR EQU BINPRSVC+1 02575000 ISTCSL EQU 0 02576000 CSLRDEF EQU ISTCSL 02577000 CSLRDTE EQU CSLRDEF 02578000 CSLNDEF EQU ISTCSL+4 02579000 CSLNIB EQU CSLNDEF 02580000 CSLDDEF EQU ISTCSL+8 02581000 CSLDATA EQU CSLDDEF 02582000 ISTNIB EQU 0 02583000 NIBFLGS EQU ISTNIB+40 02584000 NIBFLG1 EQU NIBFLGS 02585000 ISTOCW EQU 0 02586000 OCWRPL EQU ISTOCW+12 02587000 OCWPAB EQU ISTOCW+20 02588000 OCWACVT EQU ISTOCW+24 02589000 OCWLRDTE EQU ISTOCW+40 02590000 OCWDRDTE EQU OCWLRDTE 02591000 OCWARDTE EQU ISTOCW+48 02592000 OCWACDEB EQU ISTOCW+64 02593000 OCWODRC EQU ISTOCW+92 02594000 OCWSVCOD EQU ISTOCW+94 02595000 OCWSCPAD EQU ISTOCW+176 02596000 OCWSWTA EQU ISTOCW+204 02597000 OCWSWTB EQU ISTOCW+205 02598000 OCWSWTC EQU ISTOCW+206 02599000 OCWSWTD EQU ISTOCW+207 02600000 OCWNPOST EQU OCWSWTD 02601000 OCWSWTRD EQU ISTOCW+730 02602000 OCWSWTE EQU ISTOCW+731 02603000 OCWLOCKS EQU ISTOCW+740 02604000 OCWALOCK EQU OCWLOCKS 02605000 OCWCID EQU ISTOCW+744 02606000 OCWPABCT EQU ISTOCW+748 02607000 OCWCCRPH EQU ISTOCW+752 02608000 OCWIOCNT EQU ISTOCW+760 02609000 OCWSHPL EQU ISTOCW+784 02610000 OCWBIND EQU ISTOCW+796 02611000 OCWFLG1 EQU ISTOCW+847 02612000 ISTACDEB EQU 0 02613000 ACDVTPRX EQU ISTACDEB 02614000 ACDDBPFX EQU ISTACDEB+16 02615000 ACDTBLOF EQU ACDDBPFX+6 02616000 ACDBASIC EQU ISTACDEB+24 02617000 ACDTCBAD EQU ACDBASIC 02618000 ACDNMSUB EQU ACDTCBAD 02619000 ACDDEBAD EQU ACDBASIC+4 02620000 ACDUSRPG EQU ACDBASIC+16 02621000 ACDACBAD EQU ACDBASIC+24 02622000 ACDAPPAD EQU ACDBASIC+28 02623000 ACDVTAM EQU ISTACDEB+56 02624000 ACDLOCK EQU ACDVTAM 02625000 ACDSSFLG EQU ACDVTAM+80 02626000 ACDAPDAT EQU ACDVTAM+83 02627000 ACDOCWAD EQU ACDVTAM+96 02628000 ISTOCA EQU 0 02629000 OCAPART1 EQU ISTOCA 02630000 OCAFLAGS EQU OCAPART1+1 02631000 OCARC EQU ISTOCA+24 02632000 OCASAVES EQU ISTOCA+36 02633000 VTPOST EQU 0 02634000 ISTRPH EQU 0 02635000 RPHCNTL EQU ISTRPH 02636000 RPHFLAGS EQU RPHCNTL+2 02637000 RPHAPTYP EQU RPHFLAGS 02638000 RPHFSTLC EQU RPHFLAGS 02639000 RPHFLGB EQU RPHCNTL+3 02640000 RPHRPHA EQU ISTRPH+4 02641000 RPHTSKID EQU ISTRPH+8 02642000 RPHRESMA EQU ISTRPH+16 02643000 RPHWPFLG EQU RPHRESMA 02644000 RPHWT EQU RPHWPFLG 02645000 RPHPABOF EQU ISTRPH+20 02646000 RPHMAJCB EQU ISTRPH+21 02647000 RPHWEA EQU ISTRPH+24 02648000 RPHCSPA EQU RPHWEA 02649000 RPHSRPRM EQU ISTRPH+28 02650000 RPHCRR EQU ISTRPH+32 02651000 RPHPABQA EQU ISTRPH+36 02652000 RPHPABQP EQU RPHPABQA+1 02653000 RPHWORK EQU ISTRPH+40 02654000 RPHSAVE1 EQU RPHWORK 02655000 RPHSBITS EQU RPHSAVE1+1 02656000 ISTATCVT EQU 0 02657000 ATCCOM EQU ISTATCVT 02658000 ATCSTAT EQU ATCCOM 02659000 ATCSTAT1 EQU ATCSTAT 02660000 ATCSTFLG EQU ATCSTAT+1 02661000 ATCPOFLG EQU ATCSTAT+2 02662000 ATCSTAT4 EQU ATCSTAT+3 02663000 ATCIOTRC EQU ATCCOM+140 02664000 ATCTHTRC EQU ATCIOTRC 02665000 ATCGTSTR EQU ATCCOM+164 02666000 ATCAPOST EQU ATCCOM+236 02667000 ATCCSMR EQU ISTATCVT+296 02668000 ATCSHRFG EQU ISTATCVT+316 02669000 ATCHPGM EQU ISTATCVT+384 02670000 ATCAP33 EQU ISTATCVT+444 02671000 ATCAP36 EQU ISTATCVT+452 02672000 ATCVLCNT EQU ISTATCVT+772 02673000 ATCRNO EQU ISTATCVT+788 02674000 ATCSOPD EQU ISTATCVT+792 02675000 ATCSIPD EQU ISTATCVT+800 02676000 ATCSECST EQU ISTATCVT+812 02677000 ATCSTAT2 EQU ISTATCVT+818 02678000 ATCVTBAM EQU ISTATCVT+908 02679000 @NM00079 EQU ATCVTBAM+3 02680000 ATCAOSM EQU ISTATCVT+912 02681000 ATCGSRBQ EQU ATCAOSM+4 02682000 ATCGSRBG EQU ATCGSRBQ 02683000 ATCAP31 EQU ATCAOSM+24 02684000 ATCAP32 EQU ATCAOSM+28 02685000 ATCICAPP EQU ATCAOSM+100 02686000 ATCLDAPP EQU ATCAOSM+120 02687000 ATCDAPVT EQU ATCAOSM+140 02688000 ATCCRA EQU ATCAOSM+280 02689000 ATCCRACN EQU ATCCRA+4 02690000 ATCSRB EQU ATCAOSM+288 02691000 ATCSRBCN EQU ATCSRB+4 02692000 ATCCRPL EQU ATCAOSM+296 02693000 ATCRPLCN EQU ATCCRPL+4 02694000 ATCVTFLG EQU ATCAOSM+392 02695000 ATCZFLAG EQU ATCAOSM+588 02696000 FMZL0020 EQU 0 02697000 FMZL0078 EQU 0 02698000 ISTLCCW EQU 0 02699000 LCCWOP EQU ISTLCCW 02700000 LCCWRWOP EQU LCCWOP 02701000 LCCWCTL EQU LCCWRWOP 02702000 LCCWFLAG EQU ISTLCCW+1 02703000 LCCWLSI EQU LCCWFLAG 02704000 ISTLCPB EQU 0 02705000 LCPREQTG EQU ISTLCPB+2 02706000 LCPFLAGS EQU LCPREQTG 02707000 LCPZF001 EQU LCPFLAGS 02708000 LCPZRT02 EQU LCPZF001 02709000 LCPZF002 EQU LCPFLAGS 02710000 LCPZRT03 EQU LCPZF002 02711000 LCPZF003 EQU LCPFLAGS 02712000 LCPZRT04 EQU LCPZF003 02713000 LCPZF004 EQU LCPFLAGS 02714000 LCPZRT05 EQU LCPZF004 02715000 LCPZRT06 EQU LCPFLAGS 02716000 LCPZRT07 EQU LCPFLAGS 02717000 LCPMNRCD EQU LCPREQTG+1 02718000 LCPZRT08 EQU LCPMNRCD 02719000 LCPZRT09 EQU LCPMNRCD 02720000 LCPCHAIN EQU ISTLCPB+4 02721000 LCPCHAI1 EQU LCPCHAIN 02722000 LCPRUCNT EQU ISTLCPB+8 02723000 LCPFLAG2 EQU ISTLCPB+9 02724000 LCPTLBPI EQU LCPFLAG2 02725000 LCPFID0 EQU LCPFLAG2 02726000 LCPSEQ EQU ISTLCPB+10 02727000 LCPCID EQU ISTLCPB+16 02728000 LCPFDBA EQU ISTLCPB+24 02729000 LCPFLG1 EQU ISTLCPB+37 02730000 LCPFLCCW EQU ISTLCPB+40 02731000 LCPLCCW EQU ISTLCPB+48 02732000 LCPPABA EQU LCPLCCW+4 02733000 LCPRPHA EQU LCPPABA 02734000 ISTZSAVE EQU 0 02735000 ZSAZSVBC EQU ISTZSAVE 02736000 ZSAZSVMS EQU ZSAZSVBC 02737000 ISTPFCRR EQU 0 02738000 PFCCRR EQU ISTPFCRR 02739000 PFCCRRID EQU PFCCRR 02740000 PFCCRRLN EQU PFCCRR+2 02741000 PFCHDR EQU ISTPFCRR+4 02742000 PFCCRRO EQU PFCHDR 02743000 PFCFRRO EQU PFCHDR+4 02744000 ISTCFCRR EQU 0 02745000 CFCAUDIT EQU ISTCFCRR 02746000 CFCNTRD EQU CFCAUDIT 02747000 CFCCRT EQU CFCAUDIT+1 02748000 ISTZCRR EQU 0 02749000 ZCRCRR EQU ISTZCRR 02750000 ZCRFLGS1 EQU ISTZCRR+12 02751000 ZCRFLGS2 EQU ISTZCRR+13 02752000 ZCRSWFLD EQU ISTZCRR+14 02753000 ZCRENDSH EQU ZCRSWFLD 02754000 ZCRNDLCP EQU ZCRSWFLD 02755000 ZCRRESET EQU ZCRSWFLD 02756000 ZCRFLGS3 EQU ISTZCRR+15 02757000 ZCRGENSW EQU ISTZCRR+16 02758000 ZCRPFLGS EQU ISTZCRR+17 02759000 ZCRIBPR EQU ISTZCRR+18 02760000 ZCRSCPSW EQU ISTZCRR+19 02761000 ZCRPARMS EQU ISTZCRR+24 02762000 ZCRFBPTR EQU ZCRPARMS 02763000 ZCRDFRDA EQU ZCRPARMS+10 02764000 ZCRPCOD1 EQU ZCRPARMS+12 02765000 ZCRPLSBF EQU ZCRPCOD1 02766000 ZCRPCOD2 EQU ZCRPARMS+13 02767000 ZCRSVRTN EQU ISTZCRR+56 02768000 ZCRWKARA EQU ISTZCRR+156 02769000 ZCRCIDSV EQU ISTZCRR+192 02770000 ZCRAUDIT EQU ISTZCRR+440 02771000 ZCRENTER EQU ZCRAUDIT+5 02772000 ZCRLCPB EQU ISTZCRR+480 02773000 ZCRRHRU EQU ZCRLCPB 02774000 ISTASCRR EQU 0 02775000 ASCFLAGS EQU ISTASCRR+16 02776000 ASCFLG1 EQU ASCFLAGS 02777000 ASCFLG2 EQU ASCFLAGS+2 02778000 ASCFLG3 EQU ASCFLAGS+4 02779000 ASCUSRGS EQU ISTASCRR+28 02780000 ISTAPCRR EQU 0 02781000 APCATFLG EQU ISTAPCRR+16 02782000 APCRFLG EQU ISTAPCRR+18 02783000 APCSAVE EQU ISTAPCRR+44 02784000 APCCOMF EQU ISTAPCRR+116 02785000 APCCOMF1 EQU APCCOMF 02786000 APC31FLG EQU ISTAPCRR+132 02787000 APC52FLG EQU ISTAPCRR+133 02788000 APC53FLG EQU ISTAPCRR+134 02789000 APC54FLG EQU ISTAPCRR+135 02790000 APC57FLG EQU ISTAPCRR+136 02791000 ISTCRA EQU 0 02792000 CRABASIC EQU ISTCRA 02793000 CRAHDR EQU CRABASIC 02794000 CRALKACT EQU CRABASIC+8 02795000 CRAL5PTR EQU CRABASIC+28 02796000 CRASVC EQU ISTCRA+848 02797000 CRABUFA EQU CRASVC+68 02798000 FMZL0087 EQU 0 02799000 FMZL0092 EQU 0 02800000 ISTACB EQU 0 02801000 ISTRPL EQU 0 02802000 CVTS01 EQU CVTPGSIA 02803000 CVTLPDIA EQU CVTS01+12 02804000 CVTDIRST EQU CVTLPDIA 02805000 CVTSLIDA EQU CVTS01+24 02806000 CVTCTLFG EQU CVTS01+50 02807000 CVTRV210 EQU CVTS01+424 02808000 CVTRV219 EQU CVTS01+425 02809000 CVTRV228 EQU CVTS01+426 02810000 CVTRV237 EQU CVTS01+427 02811000 CVTMFRTR EQU CVTS01+452 02812000 CVTRV262 EQU CVTS01+468 02813000 CVTRV271 EQU CVTS01+469 02814000 CVTRV280 EQU CVTS01+470 02815000 CVTRV289 EQU CVTS01+471 02816000 CVTGSDA EQU CVTS01+600 02817000 BINLUP1 EQU BINPSCHR 02818000 BINLUS EQU BINPSCHR 02819000 BINFMF1 EQU BINLUS 02820000 BINRSV09 EQU BINFMF1 02821000 BINDSPF1 EQU BINLUS+2 02822000 BINMEDIA EQU BINLUS+4 02823000 BINLUP2 EQU BINPSCHR 02824000 BINLUP3 EQU BINPSCHR 02825000 OCAFLDA EQU DXUKEY 02826000 OCAFLDB EQU DXXEND 02827000 CRPLARG EQU OCWSCPAD 02828000 LCPZTIE EQU LCPCID 02829000 LCPZSNAM EQU LCPZTIE+8 02830000 OCAACBAD EQU DXUDCBAD 02831000 OCAACBLN EQU DXUDCBPL 02832000 OCAACBML EQU DXUDCBML 02833000 OCADEBXA EQU DXDEBXAD 02834000 RTRDNCBA EQU ISTRTR+40 02835000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02836000 LCPZTRV4 EQU LCPZSNAM+4 02837000 LCPZTRV1 EQU LCPZSNAM 02838000 LCPZSNA EQU LCPZTIE+4 02839000 LCPZFMCA EQU LCPZTIE 02840000 OCAEND EQU OCAFLDB 02841000 OCAUKEY EQU OCAFLDA 02842000 @NM00061 EQU OCAFLDA 02843000 BINRSV26 EQU BINLUP3 02844000 BINRSV15 EQU BINLUP2+10 02845000 BINPRESZ EQU BINLUP2+9 02846000 BINRSV14 EQU BINLUP2 02847000 BINRSV13 EQU BINMEDIA 02848000 BINDISK EQU BINMEDIA 02849000 BINXCHNG EQU BINMEDIA 02850000 BINCARD EQU BINMEDIA 02851000 BINDOCMT EQU BINMEDIA 02852000 BINRSV17 EQU BINDSPF1+1 02853000 BINTRNDS EQU BINDSPF1 02854000 BINRSV12 EQU BINDSPF1 02855000 BINVSDS EQU BINDSPF1 02856000 BINVTDS EQU BINDSPF1 02857000 BINHFDS EQU BINDSPF1 02858000 BININTR EQU BINDSPF1 02859000 BINRSV11 EQU BINRSV09+1 02860000 BINXFPD EQU BINRSV09+1 02861000 BINCSDS EQU BINRSV09+1 02862000 BINQDSI EQU BINRSV09+1 02863000 BINRSV16 EQU BINRSV09+1 02864000 BINARRR EQU BINRSV09 02865000 BINSIDS EQU BINRSV09 02866000 BINSAI EQU BINRSV09 02867000 BINSDSI EQU BINRSV09 02868000 BINKDDSI EQU BINRSV09 02869000 BINPDIR EQU BINFMF1 02870000 BINCMPCT EQU BINFMF1 02871000 BINDESTS EQU BINFMF1 02872000 BINSLUS1 EQU BINLUP1+6 02873000 BINPLUS1 EQU BINLUP1+1 02874000 BINDSP1 EQU BINLUP1 02875000 BINFMHS1 EQU BINLUP1 02876000 CVTRV628 EQU CVTS01+728 02877000 CVTRV627 EQU CVTS01+724 02878000 CVTRV626 EQU CVTS01+720 02879000 CVTRV625 EQU CVTS01+716 02880000 CVTRV624 EQU CVTS01+712 02881000 CVTRV623 EQU CVTS01+708 02882000 CVTRV622 EQU CVTS01+704 02883000 CVTRV621 EQU CVTS01+700 02884000 CVTRV620 EQU CVTS01+696 02885000 CVTRV619 EQU CVTS01+692 02886000 CVTRV618 EQU CVTS01+688 02887000 CVTRV617 EQU CVTS01+684 02888000 CVTRV616 EQU CVTS01+680 02889000 CVTRV615 EQU CVTS01+676 02890000 CVTRV614 EQU CVTS01+672 02891000 CVTRV613 EQU CVTS01+668 02892000 CVTTCASP EQU CVTS01+664 02893000 CVT0PT03 EQU CVTS01+660 02894000 CVT0PT0E EQU CVTS01+656 02895000 CVTIRM EQU CVTS01+652 02896000 CVTCGK EQU CVTS01+648 02897000 CVTRV607 EQU CVTS01+644 02898000 CVTRV606 EQU CVTS01+640 02899000 CVTRV605 EQU CVTS01+636 02900000 CVTRV604 EQU CVTS01+632 02901000 CVTEFF02 EQU CVTS01+628 02902000 CVTCBBR EQU CVTS01+624 02903000 CVTSSCR EQU CVTS01+620 02904000 CVTEVENT EQU CVTS01+616 02905000 CVTCRCA EQU CVTS01+612 02906000 CVTTPIO EQU CVTS01+608 02907000 CVTADV EQU CVTS01+604 02908000 CVTGSDAB EQU CVTGSDA 02909000 CVTQV3 EQU CVTS01+596 02910000 CVTQV2 EQU CVTS01+592 02911000 CVTQV1 EQU CVTS01+588 02912000 CVTRPT EQU CVTS01+584 02913000 CVTSSRB EQU CVTS01+580 02914000 CVTCSDRL EQU CVTS01+576 02915000 CVTEXP1 EQU CVTS01+572 02916000 CVTRMPMT EQU CVTS01+568 02917000 CVTRMPTT EQU CVTS01+564 02918000 CVTVPSA EQU CVTS01+560 02919000 CVTVSTOP EQU CVTS01+556 02920000 CVTGTFR8 EQU CVTS01+552 02921000 CVTQUIT EQU CVTS01+548 02922000 CVTVACR EQU CVTS01+544 02923000 CVTWTCB EQU CVTS01+540 02924000 CVTSTPRS EQU CVTS01+536 02925000 CVT0PT02 EQU CVTS01+532 02926000 CVTDARCM EQU CVTS01+528 02927000 CVTIRECM EQU CVTS01+524 02928000 CVTJRECM EQU CVTS01+520 02929000 CVTVEMS0 EQU CVTS01+516 02930000 CVTSPFRR EQU CVTS01+512 02931000 CVTRLSTG EQU CVTS01+508 02932000 CVT0TC0A EQU CVTS01+504 02933000 CVTGMBR EQU CVTS01+500 02934000 CVTLFRM EQU CVTS01+496 02935000 CVTRMBR EQU CVTS01+492 02936000 CVTVIOP EQU CVTS01+488 02937000 CVTRV307 EQU CVTS01+486 02938000 CVTRV306 EQU CVTS01+484 02939000 CVTRV305 EQU CVTS01+482 02940000 CVTRV304 EQU CVTS01+480 02941000 CVTRV303 EQU CVTS01+478 02942000 CVTRV302 EQU CVTS01+476 02943000 CVTTRCA EQU CVTS01+472 02944000 CVTRV297 EQU CVTRV289 02945000 CVTRV296 EQU CVTRV289 02946000 CVTRV295 EQU CVTRV289 02947000 CVTRV294 EQU CVTRV289 02948000 CVTRV293 EQU CVTRV289 02949000 CVTRV292 EQU CVTRV289 02950000 CVTRV291 EQU CVTRV289 02951000 CVTRV290 EQU CVTRV289 02952000 CVTRV288 EQU CVTRV280 02953000 CVTRV287 EQU CVTRV280 02954000 CVTRV286 EQU CVTRV280 02955000 CVTRV285 EQU CVTRV280 02956000 CVTRV284 EQU CVTRV280 02957000 CVTRV283 EQU CVTRV280 02958000 CVTRV282 EQU CVTRV280 02959000 CVTRV281 EQU CVTRV280 02960000 CVTRV279 EQU CVTRV271 02961000 CVTRV278 EQU CVTRV271 02962000 CVTRV277 EQU CVTRV271 02963000 CVTRV276 EQU CVTRV271 02964000 CVTRV275 EQU CVTRV271 02965000 CVTRV274 EQU CVTRV271 02966000 CVTRV273 EQU CVTRV271 02967000 CVTRV272 EQU CVTRV271 02968000 CVTRV270 EQU CVTRV262 02969000 CVTRV269 EQU CVTRV262 02970000 CVTRV268 EQU CVTRV262 02971000 CVTRV267 EQU CVTRV262 02972000 CVTRV266 EQU CVTRV262 02973000 CVTRV265 EQU CVTRV262 02974000 CVTRV264 EQU CVTRV262 02975000 CVTRV263 EQU CVTRV262 02976000 CVTVFP EQU CVTS01+464 02977000 CVTVSI EQU CVTS01+460 02978000 CVTVPSIB EQU CVTS01+456 02979000 CVTMFACT EQU CVTMFRTR 02980000 CVTMFCTL EQU CVTS01+448 02981000 CVTPVBP EQU CVTS01+444 02982000 CVTPWI EQU CVTS01+440 02983000 CVTRV254 EQU CVTS01+438 02984000 CVTRV253 EQU CVTS01+436 02985000 CVTRV252 EQU CVTS01+434 02986000 CVTRV251 EQU CVTS01+433 02987000 CVTRV250 EQU CVTS01+432 02988000 CVTRV249 EQU CVTS01+431 02989000 CVTRV248 EQU CVTS01+430 02990000 CVTRV247 EQU CVTS01+429 02991000 CVTRV246 EQU CVTS01+428 02992000 CVTRV245 EQU CVTRV237 02993000 CVTRV244 EQU CVTRV237 02994000 CVTRV243 EQU CVTRV237 02995000 CVTRV242 EQU CVTRV237 02996000 CVTRV241 EQU CVTRV237 02997000 CVTRV240 EQU CVTRV237 02998000 CVTRV239 EQU CVTRV237 02999000 CVTRV238 EQU CVTRV237 03000000 CVTRV236 EQU CVTRV228 03001000 CVTRV235 EQU CVTRV228 03002000 CVTRV234 EQU CVTRV228 03003000 CVTRV233 EQU CVTRV228 03004000 CVTRV232 EQU CVTRV228 03005000 CVTRV231 EQU CVTRV228 03006000 CVTRV230 EQU CVTRV228 03007000 CVTRV229 EQU CVTRV228 03008000 CVTRV227 EQU CVTRV219 03009000 CVTRV226 EQU CVTRV219 03010000 CVTRV225 EQU CVTRV219 03011000 CVTRV224 EQU CVTRV219 03012000 CVTRV223 EQU CVTRV219 03013000 CVTRV222 EQU CVTRV219 03014000 CVTRV221 EQU CVTRV219 03015000 CVTRV220 EQU CVTRV219 03016000 CVTRV218 EQU CVTRV210 03017000 CVTRV217 EQU CVTRV210 03018000 CVTRV216 EQU CVTRV210 03019000 CVTRV215 EQU CVTRV210 03020000 CVTRV214 EQU CVTRV210 03021000 CVTRV213 EQU CVTRV210 03022000 CVTRV212 EQU CVTRV210 03023000 CVTRV211 EQU CVTRV210 03024000 CVTLCCAT EQU CVTS01+420 03025000 CVTPCCAT EQU CVTS01+416 03026000 CVTIPCRP EQU CVTS01+412 03027000 CVTIPCRI EQU CVTS01+408 03028000 CVTIPCDS EQU CVTS01+404 03029000 CVTAIDVT EQU CVTS01+400 03030000 CVTSSAP EQU CVTS01+396 03031000 CVTEHCIR EQU CVTS01+392 03032000 CVTEHDEF EQU CVTS01+388 03033000 CVTDAIR EQU CVTS01+384 03034000 CVTPERFM EQU CVTS01+380 03035000 CVT044R2 EQU CVTS01+376 03036000 CVTFETCH EQU CVTS01+372 03037000 CVTRSTWD EQU CVTS01+368 03038000 CVTSPOST EQU CVTS01+364 03039000 CVTIOBP EQU CVTS01+360 03040000 CVTASMVT EQU CVTS01+356 03041000 CVTRECRQ EQU CVTS01+352 03042000 CVTWSAC EQU CVTS01+348 03043000 CVTRV149 EQU CVTS01+344 03044000 CVTWSAL EQU CVTS01+340 03045000 CVTSPSA EQU CVTS01+336 03046000 CVTGLMN EQU CVTS01+332 03047000 CVTVEAC0 EQU CVTS01+328 03048000 CVT062R1 EQU CVTS01+324 03049000 CVTRPOST EQU CVTS01+320 03050000 CVTDQIQE EQU CVTS01+316 03051000 CVTCSD EQU CVTS01+312 03052000 CVTLKRMA EQU CVTS01+308 03053000 CVTRSPIE EQU CVTS01+304 03054000 CVTRENQ EQU CVTS01+300 03055000 CVTLQCB EQU CVTS01+296 03056000 CVTFQCB EQU CVTS01+292 03057000 CVTQCS01 EQU CVTS01+288 03058000 CVTAPFT EQU CVTS01+284 03059000 CVTPARRL EQU CVTS01+280 03060000 CVTVWAIT EQU CVTS01+276 03061000 CVTGSPL EQU CVTS01+272 03062000 CVTLSMQ EQU CVTS01+268 03063000 CVTGSMQ EQU CVTS01+264 03064000 CVTEXPRO EQU CVTS01+260 03065000 CVTOPCTP EQU CVTS01+256 03066000 CVTSIC EQU CVTS01+252 03067000 CVTTPIOS EQU CVTS01+248 03068000 CVTRTMS EQU CVTS01+244 03069000 CVTSDBF EQU CVTS01+240 03070000 CVTSCBP EQU CVTS01+236 03071000 CVTSDMP EQU CVTS01+232 03072000 CVTSV60 EQU CVTS01+228 03073000 CVTRTMCT EQU CVTS01+224 03074000 CVTASCBL EQU CVTS01+220 03075000 CVTASCBH EQU CVTS01+216 03076000 CVTGDA EQU CVTS01+212 03077000 CVTASVT EQU CVTS01+208 03078000 CVTVVMDI EQU CVTS01+204 03079000 CVTAQTOP EQU CVTS01+200 03080000 CVTIOSCS EQU CVTS01+196 03081000 CVTSDRM EQU CVTS01+192 03082000 CVTOPTE EQU CVTS01+188 03083000 CVTSTXU EQU CVTS01+184 03084000 CVTQUIS EQU CVTS01+180 03085000 CVTPARS EQU CVTS01+176 03086000 CVTS1EE EQU CVTS01+172 03087000 CVTFRAS EQU CVTS01+168 03088000 CVTQSAS EQU CVTS01+164 03089000 CVTCRAS EQU CVTS01+160 03090000 CVTCRMN EQU CVTS01+156 03091000 CVTDELCP EQU CVTS01+152 03092000 CVTFRECL EQU CVTS01+148 03093000 CVTGETCL EQU CVTS01+144 03094000 CVTBLDCP EQU CVTS01+140 03095000 CVTAUTHL EQU CVTS01+136 03096000 CVTSCAN EQU CVTS01+132 03097000 CVTRV144 EQU CVTS01+130 03098000 CVTMAXMP EQU CVTS01+128 03099000 CVTSTCK EQU CVTS01+124 03100000 CVTRV139 EQU CVTS01+123 03101000 CVTDSSAC EQU CVTS01+122 03102000 CVTRV513 EQU CVTS01+121 03103000 CVTIOSPL EQU CVTS01+120 03104000 CVTPTGT EQU CVTS01+116 03105000 CVTCSPIE EQU CVTS01+112 03106000 CVTSMFEX EQU CVTS01+108 03107000 CVTOLT0A EQU CVTS01+104 03108000 CVTSRBRT EQU CVTS01+100 03109000 CVTPUTL EQU CVTS01+96 03110000 CVTASCRL EQU CVTS01+92 03111000 CVTASCRF EQU CVTS01+88 03112000 CVTRV326 EQU CVTS01+84 03113000 CVTRV325 EQU CVTS01+80 03114000 CVTRV324 EQU CVTS01+76 03115000 CVT0VL01 EQU CVTS01+72 03116000 CVTSHRVM EQU CVTS01+68 03117000 CVTRV332 EQU CVTS01+64 03118000 CVTTAS EQU CVTS01+60 03119000 CVTRSCN EQU CVTS01+56 03120000 CVTTRAC2 EQU CVTS01+54 03121000 CVTTRACE EQU CVTS01+52 03122000 CVTAPG EQU CVTS01+51 03123000 CVTSDTRC EQU CVTCTLFG 03124000 CVTGTRCE EQU CVTCTLFG 03125000 CVTNOMP EQU CVTCTLFG 03126000 CVTRSV79 EQU CVTCTLFG 03127000 CVTDSTAT EQU CVTCTLFG 03128000 CVTRSV78 EQU CVTCTLFG 03129000 CVTRV333 EQU CVTCTLFG 03130000 CVTRV323 EQU CVTCTLFG 03131000 CVTSPVLK EQU CVTS01+49 03132000 CVTRSV77 EQU CVTS01+48 03133000 CVTRV331 EQU CVTS01+44 03134000 CVTRV330 EQU CVTS01+40 03135000 CVTRV329 EQU CVTS01+36 03136000 CVTRV328 EQU CVTS01+32 03137000 CVTRV322 EQU CVTS01+28 03138000 CVTSLID EQU CVTSLIDA+1 03139000 CVTSYLK EQU CVTSLIDA 03140000 CVTRV321 EQU CVTS01+20 03141000 CVTRV320 EQU CVTS01+16 03142000 CVTLPDIR EQU CVTLPDIA+1 03143000 CVTRSV69 EQU CVTDIRST 03144000 CVTRSV68 EQU CVTDIRST 03145000 CVTRSV67 EQU CVTDIRST 03146000 CVTRSV66 EQU CVTDIRST 03147000 CVTRSV65 EQU CVTDIRST 03148000 CVTRSV64 EQU CVTDIRST 03149000 CVTRSV63 EQU CVTDIRST 03150000 CVTDICOM EQU CVTDIRST 03151000 CVTPVTP EQU CVTS01+8 03152000 CVTLPDSR EQU CVTS01+4 03153000 CVTGETL EQU CVTS01 03154000 CRACHAIN EQU ISTCRA+928 03155000 CRARSV02 EQU ISTCRA+924 03156000 CRARSV01 EQU ISTCRA+920 03157000 CRABFTBA EQU CRABUFA 03158000 CRAMASK EQU CRASVC+64 03159000 CRAHSIZ EQU CRASVC+60 03160000 CRAASCRR EQU CRASVC 03161000 CRAPROCR EQU ISTCRA+312 03162000 CRAPSS EQU ISTCRA+160 03163000 CRARPH EQU ISTCRA+52 03164000 CRALAPTR EQU CRABASIC+48 03165000 CRAL9PTR EQU CRABASIC+44 03166000 CRAL8PTR EQU CRABASIC+40 03167000 CRAL7PTR EQU CRABASIC+36 03168000 CRAL6PTR EQU CRABASIC+32 03169000 CRAL4PTR EQU CRABASIC+24 03170000 CRAL3PTR EQU CRABASIC+20 03171000 CRAL2PTR EQU CRABASIC+16 03172000 CRAL1PTR EQU CRABASIC+12 03173000 CRALEV01 EQU CRALKACT+3 03174000 CRALEV02 EQU CRALKACT+3 03175000 CRALEV03 EQU CRALKACT+3 03176000 CRALEV04 EQU CRALKACT+3 03177000 CRALEV05 EQU CRALKACT+3 03178000 CRALEV06 EQU CRALKACT+3 03179000 CRALEV07 EQU CRALKACT+3 03180000 CRALEV08 EQU CRALKACT+3 03181000 CRALEV09 EQU CRALKACT+2 03182000 CRALEV10 EQU CRALKACT+2 03183000 CRALEV11 EQU CRALKACT+2 03184000 CRALEV12 EQU CRALKACT+2 03185000 CRALEV13 EQU CRALKACT+2 03186000 CRALEV14 EQU CRALKACT+2 03187000 CRALEV15 EQU CRALKACT+2 03188000 CRALEV16 EQU CRALKACT+2 03189000 CRALEV17 EQU CRALKACT+1 03190000 CRALEV18 EQU CRALKACT+1 03191000 CRALEV19 EQU CRALKACT+1 03192000 CRALEV20 EQU CRALKACT+1 03193000 CRALEV21 EQU CRALKACT+1 03194000 CRALEV22 EQU CRALKACT+1 03195000 CRALEV23 EQU CRALKACT+1 03196000 CRALEV24 EQU CRALKACT+1 03197000 CRALEV25 EQU CRALKACT 03198000 CRALEV26 EQU CRALKACT 03199000 CRALEV27 EQU CRALKACT 03200000 CRALEV28 EQU CRALKACT 03201000 CRALEV29 EQU CRALKACT 03202000 CRALEV30 EQU CRALKACT 03203000 CRALEV31 EQU CRALKACT 03204000 CRALEV32 EQU CRALKACT 03205000 CRAFRR EQU CRAHDR+4 03206000 CRACRR EQU CRAHDR 03207000 @NM00094 EQU ISTAPCRR+137 03208000 @NM00093 EQU APC57FLG 03209000 APCNREL EQU APC57FLG 03210000 APCRECRA EQU APC57FLG 03211000 @NM00092 EQU APC54FLG 03212000 APCRLST EQU APC54FLG 03213000 APCPR153 EQU APC53FLG 03214000 @NM00091 EQU APC52FLG 03215000 APCWKF EQU APC52FLG 03216000 APCNWF EQU APC52FLG 03217000 APCRDQ EQU APC52FLG 03218000 APCQENQ EQU APC52FLG 03219000 APCSMSR EQU APC52FLG 03220000 APCCKRQ EQU APC52FLG 03221000 @NM00090 EQU APC31FLG 03222000 APCSORT EQU APC31FLG 03223000 APCRESCH EQU APC31FLG 03224000 APCTPXIT EQU APC31FLG 03225000 APCSWTWD EQU ISTAPCRR+128 03226000 APCSAV2 EQU ISTAPCRR+124 03227000 APCSAV1 EQU ISTAPCRR+120 03228000 APCRETCD EQU APCCOMF+2 03229000 @NM00089 EQU APCCOMF1+1 03230000 APCZLBER EQU APCCOMF1 03231000 APCEXIT EQU APCCOMF1 03232000 APCRELR EQU APCCOMF1 03233000 APCIRB2 EQU APCCOMF1 03234000 APCIRB1 EQU APCCOMF1 03235000 APCSMCR EQU APCCOMF1 03236000 APCUETSK EQU APCCOMF1 03237000 APCSSTSK EQU APCCOMF1 03238000 APCESTAL EQU APCSAVE 03239000 APCFRRPM EQU ISTAPCRR+40 03240000 APCQWFO EQU ISTAPCRR+36 03241000 APCPABSV EQU ISTAPCRR+32 03242000 APCRTRN EQU ISTAPCRR+28 03243000 APCTCBA EQU ISTAPCRR+24 03244000 APCPSTA EQU ISTAPCRR+20 03245000 @NM00088 EQU APCRFLG+1 03246000 APC31R EQU APCRFLG 03247000 APC58R EQU APCRFLG 03248000 APC57R EQU APCRFLG 03249000 APC56R EQU APCRFLG 03250000 APC54R EQU APCRFLG 03251000 APC53R EQU APCRFLG 03252000 APC52R EQU APCRFLG 03253000 APC51R EQU APCRFLG 03254000 @NM00087 EQU APCATFLG+1 03255000 APC31E EQU APCATFLG 03256000 APC58E EQU APCATFLG 03257000 APC57E EQU APCATFLG 03258000 APC56E EQU APCATFLG 03259000 APC54E EQU APCATFLG 03260000 APC53E EQU APCATFLG 03261000 APC52E EQU APCATFLG 03262000 APC51E EQU APCATFLG 03263000 APCHDRSV EQU ISTAPCRR 03264000 ASCPSREG EQU ISTASCRR+44 03265000 ASCUSR01 EQU ASCUSRGS+12 03266000 ASCUSR00 EQU ASCUSRGS+8 03267000 ASCUSR15 EQU ASCUSRGS+4 03268000 ASCUSR14 EQU ASCUSRGS 03269000 ASCETRYA EQU ISTASCRR+24 03270000 ASCKEY EQU ISTASCRR+23 03271000 ASCAUDIT EQU ASCFLG3 03272000 ASCFBDUD EQU ASCFLG3 03273000 ASCLLKF EQU ASCFLG3 03274000 ASCKEYF EQU ASCFLG3 03275000 ASCFBDAL EQU ASCFLG3 03276000 ASCFSRGT EQU ASCFLG3 03277000 ASCICR EQU ASCFLG2 03278000 ASCFSRIC EQU ASCFLG2 03279000 ASCFBDIC EQU ASCFLG2 03280000 ASCFBAIC EQU ASCFLG2 03281000 ASCPASTR EQU ASCFLG1 03282000 ASCFSR EQU ASCFLG1 03283000 ASCFBD EQU ASCFLG1 03284000 ASCFBA EQU ASCFLG1 03285000 ASCPFCRR EQU ISTASCRR 03286000 ZCRRU EQU ZCRRHRU+3 03287000 ZCRRH EQU ZCRRHRU 03288000 ZCRWORDA EQU ISTZCRR+477 03289000 ZCRCMNRC EQU ISTZCRR+476 03290000 ZCRRSV97 EQU ZCRENTER+18 03291000 ZCREIC2B EQU ZCRENTER+18 03292000 ZCREAC2B EQU ZCRENTER+18 03293000 ZCRELCAB EQU ZCRENTER+18 03294000 ZCREDCMF EQU ZCRENTER+18 03295000 ZCREBCIF EQU ZCRENTER+18 03296000 ZCREICSG EQU ZCRENTER+18 03297000 ZCREDCK0 EQU ZCRENTER+18 03298000 ZCRECFY0 EQU ZCRENTER+17 03299000 ZCREKCCB EQU ZCRENTER+17 03300000 ZCREDCNB EQU ZCRENTER+17 03301000 ZCREICOE EQU ZCRENTER+17 03302000 ZCREBCNB EQU ZCRENTER+17 03303000 ZCREBC0L EQU ZCRENTER+17 03304000 ZCREBCAL EQU ZCRENTER+17 03305000 ZCREDCQR EQU ZCRENTER+17 03306000 ZCREDCPR EQU ZCRENTER+16 03307000 ZCREBCSB EQU ZCRENTER+16 03308000 ZCREAC1R EQU ZCRENTER+16 03309000 ZCRECCCI EQU ZCRENTER+16 03310000 ZCRECCAI EQU ZCRENTER+16 03311000 ZCRECCBI EQU ZCRENTER+16 03312000 ZCREBCAR EQU ZCRENTER+16 03313000 ZCREBCDR EQU ZCRENTER+16 03314000 ZCREBCBR EQU ZCRENTER+15 03315000 ZCREDCXR EQU ZCRENTER+15 03316000 ZCREDCWB EQU ZCRENTER+15 03317000 ZCREDCWR EQU ZCRENTER+15 03318000 ZCREKCCN EQU ZCRENTER+15 03319000 ZCREKCBN EQU ZCRENTER+15 03320000 ZCREKCBB EQU ZCRENTER+15 03321000 ZCREJC0B EQU ZCRENTER+15 03322000 ZCREJCDB EQU ZCRENTER+14 03323000 ZCREJCCB EQU ZCRENTER+14 03324000 ZCREJCBB EQU ZCRENTER+14 03325000 ZCREJCAB EQU ZCRENTER+14 03326000 ZCREIC1B EQU ZCRENTER+14 03327000 ZCREIC0B EQU ZCRENTER+14 03328000 ZCREICX0 EQU ZCRENTER+14 03329000 ZCREICWB EQU ZCRENTER+14 03330000 ZCREICVB EQU ZCRENTER+13 03331000 ZCREICUB EQU ZCRENTER+13 03332000 ZCREICTB EQU ZCRENTER+13 03333000 ZCREICSC EQU ZCRENTER+13 03334000 ZCREICSB EQU ZCRENTER+13 03335000 ZCREICRB EQU ZCRENTER+13 03336000 ZCREICQB EQU ZCRENTER+13 03337000 ZCREICQA EQU ZCRENTER+13 03338000 ZCREICOB EQU ZCRENTER+12 03339000 ZCREICOA EQU ZCRENTER+12 03340000 ZCREICNB EQU ZCRENTER+12 03341000 ZCREICNA EQU ZCRENTER+12 03342000 ZCREICMB EQU ZCRENTER+12 03343000 ZCREICLB EQU ZCRENTER+12 03344000 ZCREICKG EQU ZCRENTER+12 03345000 ZCREICKE EQU ZCRENTER+12 03346000 ZCREICKB EQU ZCRENTER+11 03347000 ZCREICJB EQU ZCRENTER+11 03348000 ZCREICID EQU ZCRENTER+11 03349000 ZCREICIB EQU ZCRENTER+11 03350000 ZCREICHB EQU ZCRENTER+11 03351000 ZCREICGB EQU ZCRENTER+11 03352000 ZCREICEB EQU ZCRENTER+11 03353000 ZCREICDB EQU ZCRENTER+11 03354000 ZCREICCI EQU ZCRENTER+10 03355000 ZCREICCB EQU ZCRENTER+10 03356000 ZCREICBI EQU ZCRENTER+10 03357000 ZCREICBB EQU ZCRENTER+10 03358000 ZCREICAB EQU ZCRENTER+10 03359000 ZCREICAA EQU ZCRENTER+10 03360000 ZCREHCAN EQU ZCRENTER+10 03361000 ZCREGC0B EQU ZCRENTER+10 03362000 ZCREGC0A EQU ZCRENTER+9 03363000 ZCREGCLA EQU ZCRENTER+9 03364000 ZCREGCEB EQU ZCRENTER+9 03365000 ZCREGCDB EQU ZCRENTER+9 03366000 @NM00086 EQU ZCRENTER+9 03367000 ZCREGCBB EQU ZCRENTER+9 03368000 ZCREGCAB EQU ZCRENTER+9 03369000 ZCREFCEB EQU ZCRENTER+9 03370000 ZCREFCEA EQU ZCRENTER+8 03371000 ZCREECTA EQU ZCRENTER+8 03372000 ZCREECEA EQU ZCRENTER+8 03373000 ZCREECDA EQU ZCRENTER+8 03374000 ZCREECCB EQU ZCRENTER+8 03375000 ZCREECCA EQU ZCRENTER+8 03376000 ZCREECBB EQU ZCRENTER+8 03377000 ZCREECBA EQU ZCRENTER+8 03378000 ZCREDCMB EQU ZCRENTER+7 03379000 ZCREDCL0 EQU ZCRENTER+7 03380000 ZCREDCKB EQU ZCRENTER+7 03381000 ZCREDCKA EQU ZCRENTER+7 03382000 ZCREDCJ0 EQU ZCRENTER+7 03383000 ZCREDCI0 EQU ZCRENTER+7 03384000 ZCREDCH0 EQU ZCRENTER+7 03385000 ZCREDCF0 EQU ZCRENTER+7 03386000 ZCREDCE0 EQU ZCRENTER+6 03387000 ZCREDCD0 EQU ZCRENTER+6 03388000 ZCREDCC0 EQU ZCRENTER+6 03389000 ZCREDCB0 EQU ZCRENTER+6 03390000 ZCREDCA0 EQU ZCRENTER+6 03391000 ZCRECC2B EQU ZCRENTER+6 03392000 ZCRECC1B EQU ZCRENTER+6 03393000 ZCRECC1A EQU ZCRENTER+6 03394000 ZCRECC0B EQU ZCRENTER+5 03395000 ZCRECC0A EQU ZCRENTER+5 03396000 ZCREBC0B EQU ZCRENTER+5 03397000 ZCREBC0A EQU ZCRENTER+5 03398000 ZCREBCZ0 EQU ZCRENTER+5 03399000 ZCREBCY0 EQU ZCRENTER+5 03400000 ZCREBCX0 EQU ZCRENTER+5 03401000 ZCREBCXA EQU ZCRENTER+5 03402000 ZCREBCSC EQU ZCRENTER+4 03403000 ZCREBCRB EQU ZCRENTER+4 03404000 ZCREBCRA EQU ZCRENTER+4 03405000 ZCREBCQB EQU ZCRENTER+4 03406000 ZCREBCPB EQU ZCRENTER+4 03407000 ZCREBCOB EQU ZCRENTER+4 03408000 ZCREBCNE EQU ZCRENTER+4 03409000 ZCREBCND EQU ZCRENTER+4 03410000 ZCREBCMB EQU ZCRENTER+3 03411000 ZCREBCLB EQU ZCRENTER+3 03412000 ZCREBCLA EQU ZCRENTER+3 03413000 ZCREBCKB EQU ZCRENTER+3 03414000 ZCREBCKA EQU ZCRENTER+3 03415000 ZCREBCJB EQU ZCRENTER+3 03416000 ZCREBCJA EQU ZCRENTER+3 03417000 ZCREBCID EQU ZCRENTER+3 03418000 ZCREBCIB EQU ZCRENTER+2 03419000 ZCREBCIA EQU ZCRENTER+2 03420000 ZCREBCHB EQU ZCRENTER+2 03421000 ZCREBCHA EQU ZCRENTER+2 03422000 ZCREBCGB EQU ZCRENTER+2 03423000 ZCREBCGA EQU ZCRENTER+2 03424000 ZCREBCFB EQU ZCRENTER+2 03425000 ZCREBCFA EQU ZCRENTER+2 03426000 ZCREBCEB EQU ZCRENTER+1 03427000 ZCREBCDI EQU ZCRENTER+1 03428000 ZCREBCCB EQU ZCRENTER+1 03429000 ZCREBCBI EQU ZCRENTER+1 03430000 ZCREBCBB EQU ZCRENTER+1 03431000 ZCREBCBA EQU ZCRENTER+1 03432000 ZCREBCAM EQU ZCRENTER+1 03433000 ZCREBCAI EQU ZCRENTER+1 03434000 ZCREBCAG EQU ZCRENTER 03435000 ZCREBCAE EQU ZCRENTER 03436000 ZCREBCAB EQU ZCRENTER 03437000 ZCREBCAA EQU ZCRENTER 03438000 ZCREAC1B EQU ZCRENTER 03439000 ZCREAC0B EQU ZCRENTER 03440000 ZCREAC0A EQU ZCRENTER 03441000 ZCREAC1A EQU ZCRENTER 03442000 ZCRTNAME EQU ZCRAUDIT+1 03443000 ZCRTID EQU ZCRAUDIT 03444000 ZCRREMIC EQU ISTZCRR+436 03445000 ZCRSAVEZ EQU ISTZCRR+196 03446000 ZCRDAFSV EQU ZCRCIDSV+2 03447000 ZCRSAFSV EQU ZCRCIDSV 03448000 ZCRR13SV EQU ISTZCRR+188 03449000 ZCRR2SV EQU ISTZCRR+184 03450000 ZCROPCDE EQU ISTZCRR+183 03451000 ZCRPRMTC EQU ISTZCRR+182 03452000 ZCRRCDSV EQU ISTZCRR+181 03453000 ZCRAWQSW EQU ISTZCRR+180 03454000 ZCRTOPQ EQU ISTZCRR+180 03455000 ZCRLSTFB EQU ISTZCRR+180 03456000 ZCRXSCHD EQU ISTZCRR+180 03457000 ZCRNXTEL EQU ISTZCRR+180 03458000 ZCRSCANQ EQU ISTZCRR+180 03459000 ZCRMOREL EQU ISTZCRR+180 03460000 ZCRFBPRC EQU ISTZCRR+180 03461000 ZCRFSBSV EQU ISTZCRR+176 03462000 ZCRSVWK5 EQU ZCRWKARA+16 03463000 ZCRSVWK4 EQU ZCRWKARA+12 03464000 ZCRSVWK3 EQU ZCRWKARA+8 03465000 ZCRSVWK2 EQU ZCRWKARA+4 03466000 ZCRSVWK1 EQU ZCRWKARA 03467000 ZCRSVF25 EQU ZCRSVRTN+96 03468000 ZCRSVF24 EQU ZCRSVRTN+92 03469000 ZCRSVF23 EQU ZCRSVRTN+88 03470000 ZCRSVF22 EQU ZCRSVRTN+84 03471000 ZCRSVF21 EQU ZCRSVRTN+80 03472000 ZCRSVF20 EQU ZCRSVRTN+76 03473000 ZCRSVF19 EQU ZCRSVRTN+72 03474000 ZCRSVF18 EQU ZCRSVRTN+68 03475000 ZCRSVF17 EQU ZCRSVRTN+64 03476000 ZCRSVF16 EQU ZCRSVRTN+60 03477000 ZCRSVF15 EQU ZCRSVRTN+56 03478000 ZCRSVF14 EQU ZCRSVRTN+52 03479000 ZCRSVF13 EQU ZCRSVRTN+48 03480000 ZCRSVF12 EQU ZCRSVRTN+44 03481000 ZCRSVF11 EQU ZCRSVRTN+40 03482000 ZCRSVF10 EQU ZCRSVRTN+36 03483000 ZCRSVF9 EQU ZCRSVRTN+32 03484000 ZCRSVF8 EQU ZCRSVRTN+28 03485000 ZCRSVF7 EQU ZCRSVRTN+24 03486000 ZCRSVF6 EQU ZCRSVRTN+20 03487000 ZCRSVF5 EQU ZCRSVRTN+16 03488000 ZCRSVF4 EQU ZCRSVRTN+12 03489000 ZCRSVF3 EQU ZCRSVRTN+8 03490000 ZCRSVF2 EQU ZCRSVRTN+4 03491000 ZCRSVF1 EQU ZCRSVRTN 03492000 ZCRPVZB EQU ISTZCRR+52 03493000 ZCRZLB EQU ISTZCRR+48 03494000 ZCRBFPTR EQU ISTZCRR+44 03495000 ZCRCCWA EQU ISTZCRR+40 03496000 ZCRPSW EQU ZCRPARMS+15 03497000 ZCRPCHAR EQU ZCRPARMS+14 03498000 ZCRPRES2 EQU ZCRPCOD2 03499000 ZCRPMFGF EQU ZCRPCOD2 03500000 ZCRPFHDR EQU ZCRPCOD2 03501000 ZCRPPG2 EQU ZCRPCOD2 03502000 ZCRPRES EQU ZCRPCOD1 03503000 ZCRPCFTX EQU ZCRPCOD1 03504000 ZCRPBUF EQU ZCRPCOD1 03505000 ZCRPLSCB EQU ZCRPCOD1 03506000 ZCRPLSBQ EQU ZCRPLSBF 03507000 ZCRPFSB EQU ZCRPCOD1 03508000 ZCRPLNG EQU ZCRPCOD1 03509000 ZCRPPG EQU ZCRPCOD1 03510000 ZCRDTODA EQU ZCRDFRDA 03511000 ZCRMLNG EQU ZCRPARMS+8 03512000 ZCRTBPTR EQU ZCRPARMS+4 03513000 ZCRCBPTR EQU ZCRFBPTR 03514000 ZCRCRLCP EQU ISTZCRR+20 03515000 @NM00085 EQU ZCRSCPSW 03516000 ZCRSKIPT EQU ZCRSCPSW 03517000 ZCRFSBWE EQU ZCRSCPSW 03518000 ZCRPRCMP EQU ZCRSCPSW 03519000 ZCRLREQ EQU ZCRSCPSW 03520000 ZCRRJLCP EQU ZCRSCPSW 03521000 ZCRTPINV EQU ZCRSCPSW 03522000 ZCRTPEX EQU ZCRSCPSW 03523000 @NM00084 EQU ZCRIBPR 03524000 ZCR3270R EQU ZCRIBPR 03525000 ZCR3270 EQU ZCRIBPR 03526000 ZCRLCPFD EQU ZCRIBPR 03527000 ZCRLCPFR EQU ZCRIBPR 03528000 ZCRRELK EQU ZCRIBPR 03529000 ZCRERR EQU ZCRIBPR 03530000 ZCRNOBUF EQU ZCRIBPR 03531000 @NM00083 EQU ZCRPFLGS 03532000 ZCRQAHED EQU ZCRPFLGS 03533000 ZCRF1RES EQU ZCRGENSW 03534000 ZCRBRIS EQU ZCRGENSW 03535000 ZCRCLRBD EQU ZCRGENSW 03536000 ZCREXRES EQU ZCRGENSW 03537000 ZCRLCSYN EQU ZCRGENSW 03538000 ZCRRT06 EQU ZCRGENSW 03539000 ZCRTSW2 EQU ZCRGENSW 03540000 ZCRTSW1 EQU ZCRGENSW 03541000 ZCRINLCP EQU ZCRFLGS3 03542000 ZCRWRPTR EQU ZCRFLGS3 03543000 ZCRNOFRE EQU ZCRFLGS3 03544000 ZCREDRIV EQU ZCRFLGS3 03545000 ZCRDISC EQU ZCRFLGS3 03546000 ZCRTPDIS EQU ZCRFLGS3 03547000 ZCRTPCON EQU ZCRFLGS3 03548000 ZCRTIC EQU ZCRFLGS3 03549000 ZCRCNLXL EQU ZCRRESET 03550000 ZCRENDAN EQU ZCRSWFLD 03551000 ZCRENDXL EQU ZCRSWFLD 03552000 ZCRENDX EQU ZCRSWFLD 03553000 ZCROB1 EQU ZCRNDLCP 03554000 ZCRENDPR EQU ZCRSWFLD 03555000 ZCREXTYP EQU ZCRSWFLD 03556000 ZCRSLCP EQU ZCRENDSH 03557000 ZCRIF0E3 EQU ZCRFLGS2 03558000 ZCRIF0E2 EQU ZCRFLGS2 03559000 ZCRIF0E1 EQU ZCRFLGS2 03560000 ZCROB EQU ZCRFLGS2 03561000 ZCRFMSED EQU ZCRFLGS2 03562000 ZCRSHEDI EQU ZCRFLGS2 03563000 ZCRLOCAL EQU ZCRFLGS2 03564000 ZCRFEXIT EQU ZCRFLGS1 03565000 ZCRUNSOL EQU ZCRFLGS1 03566000 ZCRENDLP EQU ZCRFLGS1 03567000 ZCRNRMEX EQU ZCRFLGS1 03568000 ZCRWAIT EQU ZCRFLGS1 03569000 ZCRDEQSW EQU ZCRFLGS1 03570000 ZCRQUESW EQU ZCRFLGS1 03571000 ZCREXSW EQU ZCRFLGS1 03572000 ZCRFRRA EQU ISTZCRR+8 03573000 ZCRCHAIN EQU ISTZCRR+4 03574000 ZCRFLAG EQU ZCRCRR+3 03575000 ZCRLEN EQU ZCRCRR+1 03576000 ZCRID EQU ZCRCRR 03577000 CCFRSVD1 EQU CFCCRT 03578000 CCFCR2 EQU CFCCRT 03579000 CCFCRP EQU CFCCRT 03580000 CCFCR1 EQU CFCCRT 03581000 CCFCS2 EQU CFCCRT 03582000 CCFCS1 EQU CFCCRT 03583000 NCFRSVD EQU CFCNTRD 03584000 NCFCR2 EQU CFCNTRD 03585000 NCFCRP EQU CFCNTRD 03586000 NCFCR1 EQU CFCNTRD 03587000 NCFCS2 EQU CFCNTRD 03588000 NCFCS1 EQU CFCNTRD 03589000 PFCRSV01 EQU ISTPFCRR+13 03590000 PFCFTA EQU ISTPFCRR+12 03591000 CRRFRR EQU PFCFRRO 03592000 CRRCHAIN EQU PFCCRRO 03593000 CRRLEN EQU PFCCRRLN 03594000 PFCRSV10 EQU PFCCRR+1 03595000 CRRID EQU PFCCRRID 03596000 ZSAZTRAC EQU ISTZSAVE+36 03597000 ZSAZSVVR EQU ISTZSAVE+12 03598000 ZSAZSVRR EQU ISTZSAVE+8 03599000 ZSAZSVFC EQU ISTZSAVE+4 03600000 ZSAZACTV EQU ZSAZSVMS 03601000 LCPFTYPE EQU LCPRPHA 03602000 LCPRSTQH EQU LCPLCCW 03603000 LCPCLREP EQU ISTLCPB+44 03604000 LCPUBFSB EQU LCPFLCCW 03605000 LCPRSV77 EQU ISTLCPB+39 03606000 LCPLCCWC EQU ISTLCPB+38 03607000 LCPRSV78 EQU LCPFLG1 03608000 LCPTRANS EQU LCPFLG1 03609000 LCPSTLB EQU LCPFLG1 03610000 LCPREDRV EQU LCPFLG1 03611000 LCPDIRPT EQU LCPFLG1 03612000 LCPINTER EQU LCPFLG1 03613000 LCPRESET EQU LCPFLG1 03614000 LCPSTYPE EQU ISTLCPB+36 03615000 LCPFSNCH EQU ISTLCPB+34 03616000 LCPFOSN EQU ISTLCPB+32 03617000 LCPTLBAD EQU ISTLCPB+28 03618000 LCPFDB2 EQU LCPFDBA+1 03619000 LCPFDB1 EQU LCPFDBA 03620000 LCPNXLCW EQU ISTLCPB+20 03621000 LCPDAF EQU LCPCID+2 03622000 LCPSAF EQU LCPCID 03623000 LCPLCCW1 EQU ISTLCPB+12 03624000 LCPRRCNT EQU LCPSEQ+1 03625000 LCPRRCCT EQU LCPSEQ 03626000 LCPATOP EQU LCPFLAG2 03627000 LCPFREE EQU LCPFLAG2 03628000 LCPDSTAT EQU LCPFLAG2 03629000 LCPEXRES EQU LCPFID0 03630000 LCPZRIMM EQU LCPTLBPI 03631000 LCPRSTRT EQU LCPFLAG2 03632000 LCPASYN EQU LCPFLAG2 03633000 LCPPRFLG EQU LCPFLAG2 03634000 LCPZMIRC EQU LCPRUCNT 03635000 LCPCHAI2 EQU LCPCHAIN+1 03636000 LCPCHNG EQU LCPCHAI1 03637000 LCPZRT0B EQU LCPMNRCD 03638000 LCPZRT0A EQU LCPMNRCD 03639000 LCPZRTL9 EQU LCPZRT09 03640000 LCPZRTL8 EQU LCPZRT08 03641000 LCPZRTL7 EQU LCPZRT07 03642000 LCPZRTL6 EQU LCPZRT06 03643000 LCPZRTL5 EQU LCPZRT05 03644000 LCPZRTL4 EQU LCPZRT04 03645000 LCPZRTL3 EQU LCPZRT03 03646000 LCPZRTL2 EQU LCPZRT02 03647000 LCPZRT01 EQU LCPFLAGS 03648000 LCPZRT00 EQU LCPFLAGS 03649000 LCPLNGTH EQU ISTLCPB+1 03650000 LCPTYPE EQU ISTLCPB 03651000 LCCWDATA EQU ISTLCCW+4 03652000 LCCWCNT EQU ISTLCCW+2 03653000 LCCWACI EQU LCCWFLAG 03654000 LCCWRFI EQU LCCWFLAG 03655000 LCCWPER EQU LCCWLSI 03656000 LCCWIDAT EQU LCCWFLAG 03657000 LCCWNTVC EQU LCCWFLAG 03658000 LCCWCKPT EQU LCCWFLAG 03659000 LCCWCC EQU LCCWFLAG 03660000 LCCWCD EQU LCCWFLAG 03661000 LCCWTYPE EQU LCCWCTL 03662000 LCCWMODE EQU LCCWCTL 03663000 LCCWSOP EQU LCCWRWOP 03664000 @NM00082 EQU LCCWRWOP 03665000 LCCWSD EQU LCCWOP 03666000 LCCWSI EQU LCCWOP 03667000 ATCAOS EQU ISTATCVT+1584 03668000 ATCPOPAB EQU ATCAOSM+640 03669000 ATCVIOPM EQU ATCAOSM+636 03670000 ATCTPMMI EQU ATCAOSM+632 03671000 ATCTPMPB EQU ATCAOSM+600 03672000 ATCRSV88 EQU ATCAOSM+596 03673000 ATCRPLCT EQU ATCAOSM+594 03674000 ATCCRACT EQU ATCAOSM+592 03675000 ATCSRBCT EQU ATCAOSM+590 03676000 ATCRSV75 EQU ATCAOSM+589 03677000 ATCRSV66 EQU ATCZFLAG 03678000 ATCZF001 EQU ATCZFLAG 03679000 ATCTPCP1 EQU ATCAOSM+584 03680000 ATCTPCP0 EQU ATCAOSM+580 03681000 ATCAICTN EQU ATCAOSM+576 03682000 ATCZR01 EQU ATCAOSM+572 03683000 ATCMPLTA EQU ATCAOSM+568 03684000 ATCASCB EQU ATCAOSM+564 03685000 ATCAP86 EQU ATCAOSM+560 03686000 ATCAP85 EQU ATCAOSM+556 03687000 ATCAP84 EQU ATCAOSM+552 03688000 ATCAP83 EQU ATCAOSM+548 03689000 ATCAP82 EQU ATCAOSM+544 03690000 ATCAP69 EQU ATCAOSM+540 03691000 ATCAP66 EQU ATCAOSM+536 03692000 ATCAP62 EQU ATCAOSM+532 03693000 ATCAPC59 EQU ATCAOSM+528 03694000 ATCAP56 EQU ATCAOSM+524 03695000 ATCAP55 EQU ATCAOSM+520 03696000 ATCRCFY0 EQU ATCAOSM+516 03697000 ATCAP41 EQU ATCAOSM+512 03698000 ATCAPC25 EQU ATCAOSM+508 03699000 ATCAP23 EQU ATCAOSM+504 03700000 ATCTPSPB EQU ATCAOSM+472 03701000 ATCTRMPB EQU ATCAOSM+440 03702000 ATCAPBE EQU ATCAOSM+436 03703000 ATCPSTA EQU ATCAOSM+432 03704000 ATCSMABF EQU ATCAOSM+428 03705000 ATCSMAPR EQU ATCAOSM+424 03706000 ATCTPWQA EQU ATCAOSM+420 03707000 ATCSMAID EQU ATCAOSM+416 03708000 ATCSMARA EQU ATCAOSM+412 03709000 ATCCACXA EQU ATCAOSM+408 03710000 ATCZLAAB EQU ATCAOSM+404 03711000 ATCATA10 EQU ATCAOSM+400 03712000 ATCHLTCB EQU ATCAOSM+396 03713000 @NM00081 EQU ATCVTFLG 03714000 ATCVTACT EQU ATCVTFLG 03715000 ATCRPT40 EQU ATCAOSM+388 03716000 ATCRPT39 EQU ATCAOSM+384 03717000 ATCRPT38 EQU ATCAOSM+380 03718000 ATCRPT37 EQU ATCAOSM+376 03719000 ATCRPT36 EQU ATCAOSM+372 03720000 ATCRPT35 EQU ATCAOSM+368 03721000 ATCRPT34 EQU ATCAOSM+364 03722000 ATCRPT33 EQU ATCAOSM+360 03723000 ATCRPT32 EQU ATCAOSM+356 03724000 ATCRPT31 EQU ATCAOSM+352 03725000 ATCRPT30 EQU ATCAOSM+348 03726000 ATCRPT29 EQU ATCAOSM+344 03727000 ATCRPT28 EQU ATCAOSM+340 03728000 ATCRPT27 EQU ATCAOSM+336 03729000 ATCRPT26 EQU ATCAOSM+332 03730000 ATCRPT25 EQU ATCAOSM+328 03731000 ATCRPT24 EQU ATCAOSM+324 03732000 ATCRPT23 EQU ATCAOSM+320 03733000 ATCRPT22 EQU ATCAOSM+316 03734000 ATCRPT21 EQU ATCAOSM+312 03735000 ATCRPT20 EQU ATCAOSM+308 03736000 ATCRPT19 EQU ATCAOSM+304 03737000 ATCRPLAC EQU ATCRPLCN+2 03738000 ATCRPLRC EQU ATCRPLCN 03739000 ATCCRPLQ EQU ATCCRPL 03740000 ATCSRBAC EQU ATCSRBCN+2 03741000 ATCSRBRC EQU ATCSRBCN 03742000 ATCSRBQ EQU ATCSRB 03743000 ATCCRAAC EQU ATCCRACN+2 03744000 ATCCRARC EQU ATCCRACN 03745000 ATCCRAQ EQU ATCCRA 03746000 ATCRPT12 EQU ATCAOSM+276 03747000 ATCDMAPP EQU ATCAOSM+272 03748000 ATCAP38 EQU ATCAOSM+268 03749000 ATCAP37 EQU ATCAOSM+264 03750000 ATCZDFJ0 EQU ATCAOSM+260 03751000 ATCAP51 EQU ATCAOSM+256 03752000 ATCZPAB2 EQU ATCAOSM+224 03753000 ATCZPAB1 EQU ATCAOSM+192 03754000 ATCZLFVT EQU ATCAOSM+188 03755000 ATCZLPVT EQU ATCAOSM+184 03756000 ATCZDVTX EQU ATCAOSM+180 03757000 ATCZDVTA EQU ATCAOSM+176 03758000 ATCZDVT9 EQU ATCAOSM+172 03759000 ATCZDVT8 EQU ATCAOSM+168 03760000 ATCZDVT7 EQU ATCAOSM+164 03761000 ATCRSV56 EQU ATCDAPVT+22 03762000 ATCDAPDG EQU ATCDAPVT+20 03763000 ATCDXCEA EQU ATCDAPVT+16 03764000 ATCDCEA EQU ATCDAPVT+12 03765000 ATCDPCIA EQU ATCDAPVT+8 03766000 ATCDSIOA EQU ATCDAPVT+4 03767000 ATCDEOEA EQU ATCDAPVT 03768000 ATCZLAEA EQU ATCLDAPP+16 03769000 ATCZLCEA EQU ATCLDAPP+12 03770000 ATCRSV17 EQU ATCLDAPP+8 03771000 ATCSMFRR EQU ATCLDAPP+4 03772000 ATCCDTID EQU ATCLDAPP 03773000 ATCZAEA EQU ATCICAPP+16 03774000 ATCZCEA EQU ATCICAPP+12 03775000 ATCCDTCB EQU ATCICAPP+8 03776000 ATCZSIOA EQU ATCICAPP+4 03777000 ATCCDRPH EQU ATCICAPP 03778000 ATCAP65 EQU ATCAOSM+96 03779000 ATCZDVT6 EQU ATCAOSM+92 03780000 ATCZDVT4 EQU ATCAOSM+88 03781000 ATCZDVT3 EQU ATCAOSM+84 03782000 ATCZDVT1 EQU ATCAOSM+80 03783000 ATCICNCB EQU ATCAOSM+76 03784000 ATCZPSVT EQU ATCAOSM+72 03785000 ATCZFSVT EQU ATCAOSM+68 03786000 ATCAP64 EQU ATCAOSM+64 03787000 ATCAP63 EQU ATCAOSM+60 03788000 ATCAP61 EQU ATCAOSM+56 03789000 ATCAP58 EQU ATCAOSM+52 03790000 ATCAP57 EQU ATCAOSM+48 03791000 ATCAP54 EQU ATCAOSM+44 03792000 ATCAP53 EQU ATCAOSM+40 03793000 ATCAP52 EQU ATCAOSM+36 03794000 ATCAP34 EQU ATCAOSM+32 03795000 ATCAP12 EQU ATCAOSM+20 03796000 ATCAP11 EQU ATCAOSM+16 03797000 ATCCMTCB EQU ATCAOSM+12 03798000 ATCPRPH EQU ATCAOSM+8 03799000 ATCGSRBF EQU ATCGSRBG 03800000 ATCSRBRT EQU ATCAOSM 03801000 @NM00080 EQU @NM00079 03802000 ATCVTMAB EQU @NM00079 03803000 @NM00078 EQU ATCVTBAM 03804000 ATCVDLOK EQU ISTATCVT+904 03805000 ATCVFPAB EQU ISTATCVT+872 03806000 ATCVDPAB EQU ISTATCVT+840 03807000 ATCIOECB EQU ISTATCVT+836 03808000 ATCINCW3 EQU ISTATCVT+832 03809000 ATCMODTB EQU ISTATCVT+828 03810000 ATCUSSPT EQU ISTATCVT+824 03811000 ATCSRTAB EQU ISTATCVT+820 03812000 @NM00077 EQU ISTATCVT+819 03813000 @NM00076 EQU ATCSTAT2 03814000 ATCTRSMS EQU ATCSTAT2 03815000 ATCTRLOK EQU ATCSTAT2 03816000 ATCTRPSS EQU ATCSTAT2 03817000 ATCTRESC EQU ATCSTAT2 03818000 ATCTRAPI EQU ATCSTAT2 03819000 ATCNMCTR EQU ISTATCVT+816 03820000 ATCSEC51 EQU ATCSECST 03821000 ATCSEC40 EQU ATCSIPD+8 03822000 ATCSEC30 EQU ATCSIPD+4 03823000 ATCSEC21 EQU ATCSIPD 03824000 ATCSEC10 EQU ATCSOPD+4 03825000 ATCSEC01 EQU ATCSOPD 03826000 ATCPOIA EQU ATCRNO+1 03827000 @NM00075 EQU ATCRNO 03828000 ATCPODVT EQU ISTATCVT+784 03829000 ATCS49XL EQU ISTATCVT+780 03830000 ATCS49XI EQU ISTATCVT+776 03831000 ATCLCLCT EQU ATCVLCNT+2 03832000 ATCRNCNT EQU ATCVLCNT 03833000 ATCCFEAD EQU ISTATCVT+768 03834000 ATCPTR00 EQU ISTATCVT+736 03835000 ATCRSV10 EQU ISTATCVT+704 03836000 ATCTACB EQU ISTATCVT+700 03837000 ATCVTINM EQU ISTATCVT+696 03838000 ATCTCLIM EQU ISTATCVT+692 03839000 ATCTCLOM EQU ISTATCVT+688 03840000 ATCVTIPB EQU ISTATCVT+656 03841000 ATCTCIPB EQU ISTATCVT+624 03842000 ATCTIPAB EQU ISTATCVT+592 03843000 ATCOCCCB EQU ISTATCVT+588 03844000 ATCOCCOB EQU ISTATCVT+584 03845000 ATCCDLAD EQU ISTATCVT+580 03846000 ATCCCLAD EQU ISTATCVT+576 03847000 ATCDLRPB EQU ISTATCVT+544 03848000 ATCPGPAB EQU ISTATCVT+512 03849000 ATCVPAB1 EQU ISTATCVT+480 03850000 ATCRSV97 EQU ISTATCVT+476 03851000 ATCRDTLK EQU ISTATCVT+472 03852000 ATCVOCLK EQU ISTATCVT+468 03853000 ATCCDFDN EQU ISTATCVT+464 03854000 ATCCDFIN EQU ISTATCVT+460 03855000 ATCDVTLK EQU ISTATCVT+456 03856000 ATCAP35 EQU ISTATCVT+448 03857000 ATCRSV99 EQU ISTATCVT+440 03858000 ATCONFIG EQU ISTATCVT+432 03859000 ATCNODDS EQU ISTATCVT+428 03860000 ATCNODEL EQU ISTATCVT+420 03861000 ATCRSV69 EQU ISTATCVT+416 03862000 ATCAPCR5 EQU ISTATCVT+412 03863000 ATCLDECB EQU ISTATCVT+408 03864000 ATCLDNCS EQU ISTATCVT+404 03865000 ATCCDPTR EQU ISTATCVT+400 03866000 ATCADEL EQU ISTATCVT+396 03867000 ATCTODVT EQU ISTATCVT+392 03868000 ATCDEBCH EQU ISTATCVT+388 03869000 ATCHBSIZ EQU ATCHPGM+2 03870000 ATCHBFNO EQU ATCHPGM 03871000 ATCCRME EQU ISTATCVT+380 03872000 ATCRVCHS EQU ISTATCVT+372 03873000 ATCECTLP EQU ISTATCVT+368 03874000 ATCZDVTB EQU ISTATCVT+364 03875000 ATCECPRT EQU ISTATCVT+360 03876000 ATCVTLOD EQU ISTATCVT+356 03877000 ATCTRPAB EQU ISTATCVT+352 03878000 ATCMSGM EQU ISTATCVT+348 03879000 ATCMSGP EQU ISTATCVT+344 03880000 ATCEPT EQU ISTATCVT+340 03881000 ATCDVT EQU ISTATCVT+336 03882000 ATCTRCPT EQU ISTATCVT+332 03883000 ATCDVLOD EQU ISTATCVT+328 03884000 ATCALERT EQU ISTATCVT+324 03885000 ATCEPA EQU ISTATCVT+320 03886000 ATCSAF EQU ISTATCVT+318 03887000 ATCXRANG EQU ISTATCVT+317 03888000 ATCLAST EQU ATCSHRFG 03889000 ATCSHRTN EQU ISTATCVT+308 03890000 ATCUEP EQU ISTATCVT+304 03891000 ATCOCRT EQU ISTATCVT+300 03892000 ATCCSMA EQU ATCCSMR 03893000 ATCESC02 EQU ISTATCVT+292 03894000 ATCESC01 EQU ISTATCVT+288 03895000 ATCCDFND EQU ISTATCVT+284 03896000 ATCCDDEL EQU ISTATCVT+280 03897000 ATCCDADD EQU ISTATCVT+276 03898000 ATCMNT EQU ISTATCVT+272 03899000 ATCRSV16 EQU ISTATCVT+270 03900000 ATCMAXID EQU ISTATCVT+269 03901000 ATCMSGSP EQU ATCCOM+268 03902000 ATCCIDM EQU ATCCOM+266 03903000 ATCACTRM EQU ATCCOM+264 03904000 ATCNERAP EQU ATCCOM+260 03905000 ATCNESAL EQU ATCCOM+256 03906000 ATCRCC65 EQU ATCCOM+252 03907000 ATCRCC26 EQU ATCCOM+248 03908000 ATCRCC63 EQU ATCCOM+244 03909000 ATCRSV11 EQU ATCCOM+242 03910000 ATCVTMID EQU ATCCOM+240 03911000 ATCNERFN EQU ATCCOM+232 03912000 ATCNERNE EQU ATCCOM+228 03913000 ATCNERCV EQU ATCCOM+224 03914000 ATCNERST EQU ATCCOM+220 03915000 ATCDCC61 EQU ATCCOM+216 03916000 ATCDCC60 EQU ATCCOM+212 03917000 ATCSRTDF EQU ATCCOM+208 03918000 ATCSRTAD EQU ATCCOM+204 03919000 ATCFIRA EQU ATCCOM+200 03920000 ATCSMBQ EQU ATCCOM+196 03921000 ATCSMRC EQU ATCCOM+192 03922000 ATCSMRS EQU ATCCOM+188 03923000 ATCSMQU EQU ATCCOM+184 03924000 ATCSMRQ EQU ATCCOM+180 03925000 ATCACDA EQU ATCCOM+176 03926000 ATCSTMA EQU ATCCOM+172 03927000 ATCFRSTR EQU ATCCOM+168 03928000 ATCREADA EQU ATCCOM+160 03929000 ATCALOAD EQU ATCCOM+156 03930000 ATCBLDLA EQU ATCCOM+152 03931000 ATCFBRPH EQU ATCCOM+148 03932000 ATCBFTRC EQU ATCCOM+144 03933000 ATCTPBUF EQU ATCTHTRC 03934000 ATCREMOV EQU ATCCOM+136 03935000 ATCADD EQU ATCCOM+132 03936000 ATCBPDA EQU ATCCOM+128 03937000 ATCDVTPT EQU ATCCOM+124 03938000 ATCFEPT EQU ATCCOM+120 03939000 ATCFDVT EQU ATCCOM+116 03940000 ATCCONFT EQU ATCCOM+112 03941000 ATCPTCHA EQU ATCCOM+108 03942000 ATCAUTHA EQU ATCCOM+104 03943000 ATCACCTA EQU ATCCOM+100 03944000 ATCRDTH EQU ATCCOM+96 03945000 ATCFRSCH EQU ATCCOM+92 03946000 ATCFSB EQU ATCCOM+88 03947000 ATCHLTMS EQU ATCCOM+84 03948000 ATCECPRM EQU ATCCOM+80 03949000 ATCECNET EQU ATCCOM+76 03950000 ATCECOPC EQU ATCCOM+72 03951000 ATCVPARM EQU ATCCOM+68 03952000 ATCECVRQ EQU ATCCOM+64 03953000 ATCECSES EQU ATCCOM+60 03954000 ATCOCHA EQU ATCCOM+56 03955000 ATCDSPLQ EQU ATCCOM+52 03956000 ATCECDSP EQU ATCCOM+48 03957000 ATCVARYQ EQU ATCCOM+44 03958000 ATCECVRY EQU ATCCOM+40 03959000 ATCHALTQ EQU ATCCOM+36 03960000 ATCECHLT EQU ATCCOM+32 03961000 ATCMODQ EQU ATCCOM+28 03962000 ATCECMOD EQU ATCCOM+24 03963000 ATCASCHD EQU ATCCOM+20 03964000 ATCSRT EQU ATCCOM+16 03965000 ATCRDT EQU ATCCOM+12 03966000 ATCDCFRR EQU ATCCOM+8 03967000 ATCAPI EQU ATCCOM+4 03968000 ATCRSV04 EQU ATCSTAT4 03969000 ATCVTTRC EQU ATCSTAT4 03970000 ATCNCSD EQU ATCSTAT4 03971000 ATCMTST EQU ATCSTAT4 03972000 ATCTPRT EQU ATCSTAT4 03973000 ATCPRTAT EQU ATCSTAT4 03974000 @NM00074 EQU ATCPOFLG 03975000 ATCPOUNS EQU ATCPOFLG 03976000 ATCHSDMF EQU ATCSTFLG 03977000 @NM00073 EQU ATCSTAT1 03978000 ATCMDHLT EQU ATCSTAT1 03979000 ATCINHLT EQU ATCSTAT1 03980000 ATCNETSL EQU ATCSTAT1 03981000 ATCQKHLT EQU ATCSTAT1 03982000 ATCSNHLT EQU ATCSTAT1 03983000 ATCACTIV EQU ATCSTAT1 03984000 ATCSTART EQU ATCSTAT1 03985000 RPHNEXPO EQU ISTRPH+104 03986000 RPHSAV16 EQU RPHWORK+60 03987000 RPHSAV15 EQU RPHWORK+56 03988000 RPHSAV14 EQU RPHWORK+52 03989000 RPHSAV13 EQU RPHWORK+48 03990000 RPHSAV12 EQU RPHWORK+44 03991000 RPHSAV11 EQU RPHWORK+40 03992000 RPHSAV10 EQU RPHWORK+36 03993000 RPHSAVE9 EQU RPHWORK+32 03994000 RPHSAVE8 EQU RPHWORK+28 03995000 RPHSAVE7 EQU RPHWORK+24 03996000 RPHSAVE6 EQU RPHWORK+20 03997000 RPHSAVE5 EQU RPHWORK+16 03998000 RPHSAVE4 EQU RPHWORK+12 03999000 RPHSAVE3 EQU RPHWORK+8 04000000 RPHSAVE2 EQU RPHWORK+4 04001000 RPHSHALF EQU RPHSAVE1+2 04002000 RPHSBIT8 EQU RPHSBITS 04003000 RPHSBIT7 EQU RPHSBITS 04004000 RPHSBIT6 EQU RPHSBITS 04005000 RPHSBIT5 EQU RPHSBITS 04006000 RPHSBIT4 EQU RPHSBITS 04007000 RPHSBIT3 EQU RPHSBITS 04008000 RPHSBIT2 EQU RPHSBITS 04009000 RPHSBIT1 EQU RPHSBITS 04010000 RPHSBYTE EQU RPHSAVE1 04011000 RPHPABFG EQU RPHPABQA 04012000 RPHSRP34 EQU RPHSRPRM+2 04013000 RPHSRP12 EQU RPHSRPRM 04014000 RPHWEGT EQU RPHCSPA 04015000 RPHRESUM EQU RPHRESMA+1 04016000 RPHRSV01 EQU RPHWPFLG 04017000 RPHPURGE EQU RPHWPFLG 04018000 RPHPT EQU RPHWPFLG 04019000 RPHRSKEY EQU RPHWPFLG 04020000 RPHDVTA EQU ISTRPH+12 04021000 RPHTIK EQU RPHTSKID+3 04022000 @NM00072 EQU RPHTSKID 04023000 RPHRPHAP EQU RPHRPHA+1 04024000 @NM00071 EQU RPHRPHA 04025000 RPHGATE EQU RPHRPHA 04026000 @NM00070 EQU RPHFLGB 04027000 RPHRLCRA EQU RPHFLGB 04028000 RPHNRSAV EQU RPHFLGB 04029000 RPHPGCMP EQU RPHFLGB 04030000 RPHFBAPS EQU RPHFLGB 04031000 RPHBSSP EQU RPHFLGB 04032000 RPHLOCK EQU RPHFLGB 04033000 RPHFNFLG EQU RPHFSTLC 04034000 RPHMLTCP EQU RPHFLAGS 04035000 RPHSMCLR EQU RPHFLAGS 04036000 RPHSMTYP EQU RPHFLAGS 04037000 RPHSMQ EQU RPHFLAGS 04038000 RPHAUTEX EQU RPHAPTYP 04039000 RPHSPGIN EQU RPHFLAGS 04040000 RPHOGIND EQU RPHFLAGS 04041000 RPHLNGTH EQU RPHCNTL+1 04042000 RPHTYPE EQU RPHCNTL 04043000 OCASAV3 EQU ISTOCA+136 04044000 OCASAV2 EQU OCASAVES+28 04045000 OCASAV1 EQU OCASAVES 04046000 OCARSV03 EQU ISTOCA+32 04047000 OCADCPRM EQU ISTOCA+28 04048000 OCARSV10 EQU ISTOCA+25 04049000 OCANEXTF EQU ISTOCA+20 04050000 OCADEBAD EQU ISTOCA+16 04051000 @NM00060 EQU ISTOCA+12 04052000 OCAAPYAD EQU OCAPART1+8 04053000 OCAOCXAD EQU OCAPART1+4 04054000 OCALNTH EQU OCAPART1+2 04055000 OCARSV01 EQU OCAFLAGS 04056000 OCAABORT EQU OCAFLAGS 04057000 OCACLDEB EQU OCAFLAGS 04058000 OCAFLG1 EQU OCAFLAGS 04059000 OCAID EQU OCAPART1 04060000 ACDREFQ EQU ISTACDEB+204 04061000 ACDASFQ EQU ISTACDEB+200 04062000 ACDSOP EQU ISTACDEB+184 04063000 ACDSIP EQU ISTACDEB+168 04064000 ACDRSV24 EQU ACDVTAM+108 04065000 ACDRSV23 EQU ACDVTAM+104 04066000 ACDRSV22 EQU ACDVTAM+100 04067000 ACDRSV10 EQU ACDVTAM+92 04068000 ACDAPDDT EQU ACDAPDAT+1 04069000 ACDAPDLN EQU ACDAPDAT 04070000 ACDRSV07 EQU ACDVTAM+82 04071000 ACDRSV06 EQU ACDVTAM+81 04072000 ACDRSV09 EQU ACDSSFLG 04073000 ACDAICLS EQU ACDSSFLG 04074000 ACDABEND EQU ACDSSFLG 04075000 ACDCACB EQU ACDSSFLG 04076000 ACDRSV21 EQU ACDVTAM+64 04077000 ACDSSPAB EQU ACDVTAM+48 04078000 ACDNEPAB EQU ACDVTAM+32 04079000 ACDRSV20 EQU ACDVTAM+20 04080000 ACDRARQ EQU ACDVTAM+16 04081000 ACDRAFQ EQU ACDVTAM+12 04082000 ACDFMCB EQU ACDVTAM+8 04083000 ACDRDTE EQU ACDVTAM+4 04084000 ACDAPP EQU ACDAPPAD+1 04085000 ACDEXSCL EQU ACDAPPAD 04086000 ACDACB EQU ACDACBAD+1 04087000 ACDDEBID EQU ACDACBAD 04088000 ACDPROTG EQU ACDACBAD 04089000 ACDECBAD EQU ACDBASIC+20 04090000 ACDUSRPB EQU ACDUSRPG+1 04091000 ACDNMEXT EQU ACDUSRPG 04092000 ACDPRLEN EQU ACDBASIC+15 04093000 ACDFLGS1 EQU ACDBASIC+14 04094000 ACDQSCNT EQU ACDBASIC+13 04095000 ACDOPATB EQU ACDBASIC+12 04096000 ACDIRBAD EQU ACDBASIC+8 04097000 ACDDEB EQU ACDDEBAD+1 04098000 ACDAMLNG EQU ACDDEBAD 04099000 ACDTCB EQU ACDTCBAD+1 04100000 ACDOPNAD EQU ACDNMSUB 04101000 ACDRSV03 EQU ACDTBLOF+1 04102000 ACDRSV02 EQU ACDTBLOF 04103000 ACDAMTYP EQU ACDDBPFX+5 04104000 ACDLENG EQU ACDDBPFX+4 04105000 ACDDEBX EQU ACDDBPFX 04106000 ACDRSV08 EQU ACDVTPRX+12 04107000 ACDTSKID EQU ACDVTPRX+8 04108000 ACDCHN EQU ACDVTPRX+4 04109000 ACDSAF EQU ACDVTPRX+2 04110000 ACDLNGTH EQU ACDVTPRX+1 04111000 ACDTYPE EQU ACDVTPRX 04112000 OCWEND EQU ISTOCW+848 04113000 @NM00059 EQU OCWFLG1 04114000 OCWEXIT EQU OCWFLG1 04115000 OCWSENSE EQU ISTOCW+843 04116000 OCWBNDSZ EQU ISTOCW+841 04117000 OCWBINDD EQU OCWBIND+37 04118000 OCWBINDA EQU OCWBIND+1 04119000 OCWBINDC EQU OCWBIND 04120000 OCWSHPLC EQU OCWSHPL+8 04121000 OCWSHPLB EQU OCWSHPL+4 04122000 OCWSHPLA EQU OCWSHPL 04123000 OCWBNDRU EQU ISTOCW+780 04124000 OCWELCP EQU ISTOCW+776 04125000 OCWRSV12 EQU ISTOCW+772 04126000 OCWRSV11 EQU ISTOCW+768 04127000 OCWODOA EQU ISTOCW+764 04128000 OCWSCHIO EQU OCWIOCNT 04129000 OCWPROCD EQU ISTOCW+756 04130000 OCWDAF EQU OCWCID+2 04131000 OCWSAF EQU OCWCID 04132000 OCWNMLLN EQU ISTOCW+742 04133000 OCWRSV0A EQU ISTOCW+741 04134000 OCWRSV82 EQU OCWLOCKS 04135000 OCWMLOCK EQU OCWLOCKS 04136000 OCWDLOCK EQU OCWLOCKS 04137000 OCWCLOCK EQU OCWLOCKS 04138000 OCWELOCK EQU OCWLOCKS 04139000 OCWRLOCK EQU OCWLOCKS 04140000 OCWVLOCK EQU OCWLOCKS 04141000 OCWACE EQU ISTOCW+736 04142000 OCWIOMIN EQU ISTOCW+735 04143000 OCWIOMAJ EQU ISTOCW+734 04144000 OCWBHSID EQU ISTOCW+733 04145000 OCWRSV03 EQU ISTOCW+732 04146000 OCWSWTE7 EQU OCWSWTE 04147000 OCWSWTE6 EQU OCWSWTE 04148000 OCWSWTE5 EQU OCWSWTE 04149000 OCWSWTE4 EQU OCWSWTE 04150000 OCWSWTE3 EQU OCWSWTE 04151000 OCWSWTE2 EQU OCWSWTE 04152000 OCWLCPBC EQU OCWSWTE 04153000 OCWSKEL EQU OCWSWTE 04154000 OCWSWTR7 EQU OCWSWTRD 04155000 OCWSWTR6 EQU OCWSWTRD 04156000 OCWSWTR5 EQU OCWSWTRD 04157000 OCWDPDVT EQU OCWSWTRD 04158000 OCWEPTLP EQU OCWSWTRD 04159000 OCWCPARE EQU OCWSWTRD 04160000 OCWCLEN EQU OCWSWTRD 04161000 OCWSRDVT EQU OCWSWTRD 04162000 OCWCLCD2 EQU ISTOCW+728 04163000 OCWCLCD1 EQU ISTOCW+726 04164000 OCWLALEN EQU ISTOCW+724 04165000 OCWSDVTA EQU ISTOCW+720 04166000 OCWOENIB EQU ISTOCW+716 04167000 OCWSORTP EQU ISTOCW+712 04168000 OCWMDVT EQU ISTOCW+708 04169000 OCWSDVT EQU ISTOCW+704 04170000 OCWPREV EQU ISTOCW+700 04171000 OCWLCPBA EQU ISTOCW+696 04172000 OCWR14SV EQU ISTOCW+624 04173000 OCWSAVE5 EQU ISTOCW+552 04174000 OCWSAVE4 EQU ISTOCW+480 04175000 OCWSAVE3 EQU ISTOCW+408 04176000 OCWSAVE2 EQU ISTOCW+336 04177000 OCWSAVE1 EQU ISTOCW+264 04178000 OCWCSPL EQU ISTOCW+224 04179000 OCWRSVD EQU ISTOCW+212 04180000 OCWVPAB EQU ISTOCW+208 04181000 OCWSWTD7 EQU OCWSWTD 04182000 OCWSWTD6 EQU OCWSWTD 04183000 OCWSWTD5 EQU OCWSWTD 04184000 OCWSWTD4 EQU OCWSWTD 04185000 OCWPGDON EQU OCWSWTD 04186000 OCWSTCTL EQU OCWSWTD 04187000 OCWCLDEB EQU OCWSWTD 04188000 OCWVARY EQU OCWSWTC 04189000 OCWPRMTR EQU OCWSWTC 04190000 OCWPBH EQU OCWSWTC 04191000 OCWRBH EQU OCWSWTC 04192000 OCWCKACE EQU OCWSWTC 04193000 OCWODCLS EQU OCWSWTC 04194000 OCWSWTC1 EQU OCWSWTC 04195000 OCWSPCLS EQU OCWSWTC 04196000 OCWCSCAL EQU OCWSWTB 04197000 OCWPSREQ EQU OCWSWTB 04198000 OCWOLOCK EQU OCWSWTB 04199000 OCWCOREQ EQU OCWSWTB 04200000 OCWDOPHY EQU OCWSWTB 04201000 OCWCLOOP EQU OCWSWTB 04202000 OCWRECL EQU OCWSWTB 04203000 OCWGOFUN EQU OCWSWTB 04204000 OCWNODLT EQU OCWSWTA 04205000 OCWODCL EQU OCWSWTA 04206000 OCWGODST EQU OCWSWTA 04207000 OCWSORT EQU OCWSWTA 04208000 OCWGOCNT EQU OCWSWTA 04209000 OCWNOCON EQU OCWSWTA 04210000 OCWSRT EQU OCWSWTA 04211000 OCWGTLST EQU OCWSWTA 04212000 OCWDNIB EQU ISTOCW+112 04213000 OCWBADNO EQU ISTOCW+110 04214000 OCWDSTNO EQU ISTOCW+108 04215000 OCWODCT2 EQU ISTOCW+106 04216000 OCWODCT1 EQU ISTOCW+104 04217000 OCWRSV02 EQU ISTOCW+100 04218000 OCWRSV01 EQU ISTOCW+96 04219000 OCWSVEC EQU OCWSVCOD+1 04220000 OCWSVRC EQU OCWSVCOD 04221000 OCWEC EQU OCWODRC+1 04222000 OCWRC EQU OCWODRC 04223000 OCWODFST EQU ISTOCW+88 04224000 OCWODNAS EQU ISTOCW+84 04225000 OCWODLST EQU ISTOCW+80 04226000 OCWLPOST EQU ISTOCW+76 04227000 OCWCPOST EQU ISTOCW+72 04228000 OCWFPOST EQU ISTOCW+68 04229000 OCWNCB EQU ISTOCW+60 04230000 OCWFMCB EQU ISTOCW+56 04231000 OCWEPTAB EQU ISTOCW+52 04232000 OCWNIB EQU ISTOCW+44 04233000 OCWDRHOB EQU OCWDRDTE 04234000 OCWCSL EQU ISTOCW+28 04235000 OCWRPH EQU ISTOCW+16 04236000 OCWCHAIN EQU ISTOCW+8 04237000 OCWPBCHN EQU ISTOCW+4 04238000 OCWTLEN EQU ISTOCW+2 04239000 OCWSLEN EQU ISTOCW+1 04240000 OCWID EQU ISTOCW 04241000 NIBRESV EQU ISTNIB+60 04242000 NIBNDAR EQU ISTNIB+56 04243000 NIBLMODE EQU ISTNIB+48 04244000 NIBEXLST EQU ISTNIB+44 04245000 NIBLIMIT EQU ISTNIB+42 04246000 @NM00058 EQU ISTNIB+41 04247000 @NM00057 EQU NIBFLG1 04248000 @NM00056 EQU NIBFLG1 04249000 @NM00055 EQU NIBFLG1 04250000 @NM00054 EQU NIBFLG1 04251000 NIBSHLTP EQU NIBFLG1 04252000 NIBSDAPP EQU NIBFLG1 04253000 NIBCON EQU NIBFLG1 04254000 NIBLAST EQU NIBFLG1 04255000 NIBPROCD EQU ISTNIB+36 04256000 NIBDEVCH EQU ISTNIB+28 04257000 NIBMODE EQU ISTNIB+20 04258000 NIBSYM EQU ISTNIB+12 04259000 NIBUSER EQU ISTNIB+8 04260000 NIBCID EQU ISTNIB+4 04261000 NIBLEN EQU ISTNIB+3 04262000 NIBCONDN EQU ISTNIB+2 04263000 NIBRSV01 EQU ISTNIB+1 04264000 NIBID EQU ISTNIB 04265000 CSLDATAF EQU CSLDATA 04266000 CSLNIBF EQU CSLNIB 04267000 CSLRDTEF EQU CSLRDTE 04268000 BINUSE EQU ISTBIND+36 04269000 BINUSEL EQU ISTBIND+35 04270000 BINPRIM EQU ISTBIND+27 04271000 BINPRIML EQU ISTBIND+26 04272000 BINRSV05 EQU ISTBIND+25 04273000 BINLUTYP EQU BINLUP 04274000 BINRSV27 EQU BINLUP 04275000 BINRSV08 EQU BINTSU+4 04276000 BINPRUSE EQU BINPRUSZ 04277000 BINPRUSM EQU BINPRUSZ 04278000 BINSRUSE EQU BINSRUSZ 04279000 BINSRUSM EQU BINSRUSZ 04280000 BINRPACM EQU BINRPACE 04281000 BINRSV07 EQU BINRPACE 04282000 BINRSV06 EQU BINTSU 04283000 BINCONR EQU BINCMNP2 04284000 BINRCHN EQU BINCMNP2 04285000 BINMDIBK EQU BINCMNP2 04286000 BINBKFS EQU BINCMNP2 04287000 BINRCVR EQU BINCMNP2 04288000 BINFMTRM EQU BINCMNP2 04289000 BINRSV04 EQU BINCMNP 04290000 BINALT EQU BINCMNP 04291000 BINBKTR EQU BINCMNP 04292000 BINBRAK EQU BINCMNP 04293000 BINFMHD EQU BINCMNP 04294000 BINRSV03 EQU BINCMNP 04295000 BINSSEB EQU BINSECP 04296000 BINSCMP EQU BINSECP 04297000 BINRSV02 EQU BINSECP 04298000 BINSCHNR EQU BINSECP 04299000 BINSMCH EQU BINSECP 04300000 BINSCHN EQU BINSECP 04301000 BINPSEB EQU BINPRIP 04302000 BINPCMP EQU BINPRIP 04303000 BINRSV01 EQU BINPRIP 04304000 BINPCHNR EQU BINPRIP 04305000 BINPMCH EQU BINPRIP 04306000 BINPCHN EQU BINPRIP 04307000 BINTS EQU ISTBIND+2 04308000 BINFM EQU ISTBIND+1 04309000 BINTYPE EQU BINFMTY 04310000 BINFMT EQU BINFMTY 04311000 DYPPAB EQU ISTDYPAB+16 04312000 DYPRSV01 EQU ISTDYPAB+12 04313000 DYPTSKID EQU ISTDYPAB+8 04314000 DYPCHAIN EQU ISTDYPAB+4 04315000 DYPFLGS EQU ISTDYPAB+2 04316000 DYPLNGTH EQU ISTDYPAB+1 04317000 DYPTYPE EQU ISTDYPAB 04318000 PABRPHA EQU PABRPHFG+1 04319000 PABNODQ EQU PABFLAGS 04320000 PABINHBT EQU PABFLAGS 04321000 PABERLOK EQU PABERRLK 04322000 PABSSN EQU PABFLAGS 04323000 PABDYNAM EQU PABFLAGS 04324000 PABNORPR EQU PABFLAGS 04325000 PABPRIOR EQU PABFLAGS 04326000 PABAPYP EQU PABFLAGS 04327000 PABDVTA EQU ISTPAB+9 04328000 PABOFFST EQU ISTPAB+8 04329000 PABRSV02 EQU PABCHAIN 04330000 PABDELAY EQU PABCHAIN 04331000 PABRUNNG EQU PABCHAIN 04332000 PABRESET EQU PABCHAIN 04333000 PABUNCON EQU PABCHAIN 04334000 PABCDP EQU PABCHAIN 04335000 PABRESCH EQU PABCHAIN 04336000 PABCHNG EQU PABCHAIN 04337000 PABWEQP EQU PABWEQA+1 04338000 PABRSV01 EQU PABWEQA 04339000 PABWEQG EQU PABWEQA 04340000 PATRSV01 EQU PATFLAGA 04341000 PATUSEFG EQU PATFLAGA 04342000 PATRDCNT EQU ISTPAT+6 04343000 PATGRPID EQU ISTPAT+5 04344000 PATPTHID EQU ISTPAT+4 04345000 PATDINDX EQU ISTPAT+2 04346000 PATGINDX EQU ISTPAT 04347000 GNTGRPNM EQU ISTGNT 04348000 DNTTELNO EQU ISTDNT+1 04349000 DNTCTDIG EQU ISTDNT 04350000 RLSRSV02 EQU ISTRLS+140 04351000 RLSRSV01 EQU ISTRLS+138 04352000 RLSCTELU EQU ISTRLS+136 04353000 RLSPRE EQU ISTRLS 04354000 RDARSVPT EQU ISTRDA+84 04355000 RDAPUBI EQU ISTRDA+83 04356000 RDADFCUA EQU ISTRDA+80 04357000 RDACTPCC EQU ISTRDA+79 04358000 RDADACUA EQU ISTRDA+76 04359000 RDALUBA EQU RDAUCBAD+1 04360000 RDACHQI EQU RDAUCBAD 04361000 RDARSV01 EQU RDAFLAG 04362000 RDARBISA EQU RDAFLAG 04363000 RDAPRE EQU ISTRDA 04364000 RSWRSV01 EQU ISTRSW+152 04365000 RSWRSV02 EQU ISTRSW+150 04366000 RSWCTELU EQU ISTRSW+148 04367000 RSWGRUPZ EQU ISTRSW+146 04368000 RSWDIALZ EQU ISTRSW+144 04369000 RSWGRUPT EQU ISTRSW+140 04370000 RSWDIALT EQU ISTRSW+136 04371000 RSWPRE EQU ISTRSW 04372000 RLXRSV03 EQU ISTRLX+80 04373000 RLXRSV02 EQU ISTRLX+77 04374000 RLXRSV01 EQU RLXFLAGA 04375000 RLXINUSE EQU RLXFLAGA 04376000 RLXNLUX EQU ISTRLX+72 04377000 RLXPRE EQU ISTRLX 04378000 RPXRSV01 EQU ISTRPX+80 04379000 RPXRSV02 EQU ISTRPX+77 04380000 RPXMAXLU EQU ISTRPX+76 04381000 RPXFLUX EQU ISTRPX+72 04382000 RPXPRE EQU ISTRPX 04383000 RLURSV02 EQU ISTRLU+172 04384000 RLULGMOD EQU ISTRLU+164 04385000 RLUMODEP EQU RLUMODET+8 04386000 RLUMODEN EQU RLUMODET 04387000 RLUUSSPT EQU RLUUSSTB+8 04388000 RLUUSSNM EQU RLUUSSTB 04389000 RLURSV01 EQU ISTRLU+137 04390000 RLULOCAD EQU ISTRLU+136 04391000 RLUNCPPM EQU RLUNCPPC+1 04392000 RLUNCPPN EQU RLUNCPPC 04393000 RLUPACEM EQU RLUPACE+1 04394000 RLUPACEN EQU RLUPACE 04395000 RLUINTA EQU ISTRLU+128 04396000 RLUSSCFM EQU ISTRLU+127 04397000 RLUCRRSV EQU RLUCRFLG 04398000 RLUACTLU EQU RLUCRFLG 04399000 RLURSV00 EQU RLUFLAG 04400000 RLUNDSES EQU RLUFLAG 04401000 RLUGSTAT EQU RLUFLAG 04402000 RLUBATCH EQU RLUFLAG 04403000 RLURBISA EQU RLUFLAG 04404000 RLUTYPE EQU ISTRLU+124 04405000 RLUCRPR EQU ISTRLU 04406000 RCCRVPT2 EQU ISTRCC+144 04407000 RCCXTOSW EQU ISTRCC+140 04408000 RCCSWTOX EQU ISTRCC+136 04409000 RCCRSPT2 EQU ISTRCC+133 04410000 RCCADDR EQU ISTRCC+132 04411000 RCCPASSL EQU ISTRCC+131 04412000 RCCMXOUT EQU ISTRCC+130 04413000 RCCMXDAT EQU ISTRCC+128 04414000 RCCINDEX EQU ISTRCC+126 04415000 RCCPATHZ EQU ISTRCC+124 04416000 RCCPATHT EQU ISTRCC+120 04417000 RCCDPQ EQU ISTRCC+116 04418000 RCCTPAB EQU ISTRCC+112 04419000 RCCRSV02 EQU ISTRCC+109 04420000 RCCCRRSV EQU RCCCRFLG 04421000 RCCCTCFL EQU RCCCRFLG 04422000 RCCACTPU EQU RCCCRFLG 04423000 RCCNCSPL EQU ISTRCC+104 04424000 RCCRPHCN EQU ISTRCC+100 04425000 RCCEPAB EQU ISTRCC+96 04426000 RCCDPAB EQU ISTRCC+92 04427000 RCCVPAB EQU ISTRCC+88 04428000 @NM00053 EQU ISTRCC+87 04429000 RCCSESCT EQU ISTRCC+86 04430000 RCCIDNUM EQU RCCID48+3 04431000 RCCIDBLK EQU RCCID48+2 04432000 RCCIDPA2 EQU RCCID48+1 04433000 RCCIDPUT EQU RCCID48 04434000 RCCIDPA1 EQU RCCSTAID 04435000 RCCCTELU EQU ISTRCC+76 04436000 RCCCNCNT EQU ISTRCC+75 04437000 RCCRTGOH EQU RCCFLAGB 04438000 RCCBRKCN EQU RCCFLAGB 04439000 RCCRESET EQU RCCFLAGB 04440000 RCCFINAL EQU RCCFLAGB 04441000 RCCBNNSP EQU RCCFLAGB 04442000 RCCIRETR EQU RCCFLAGB 04443000 RCCDIALP EQU RCCFLAGB 04444000 RCCDSTCT EQU RCCFLAGB 04445000 RCCCTPGD EQU RCCFLAG 04446000 RCCPRGDN EQU RCCFLAG 04447000 RCCOUERP EQU RCCFLAG 04448000 RCCOHIMM EQU RCCFLAG 04449000 RCCLDISC EQU RCCFLAG 04450000 RCCERPIP EQU RCCFLAG 04451000 RCCCUDIE EQU RCCFLAG 04452000 RCCRBISA EQU RCCFLAG 04453000 RCCTYPE EQU ISTRCC+72 04454000 RCCPRE EQU ISTRCC 04455000 DOTADTRM EQU ISTDOT 04456000 RDSADDOT EQU ISTRDS+76 04457000 RDSCTATR EQU ISTRDS+74 04458000 RDSCTTRM EQU ISTRDS+72 04459000 RDSPRE EQU ISTRDS 04460000 RINRSV05 EQU ISTRIN+156 04461000 RINRSV04 EQU ISTRIN+152 04462000 RINLOCRN EQU ISTRIN+148 04463000 RINRSV02 EQU ISTRIN+145 04464000 RTRCNCNT EQU RINCNCNT 04465000 RTRNCSPL EQU RINNCSPL 04466000 RTRRPHCN EQU RINRPHCN 04467000 RTRVPAB EQU RINVPAB 04468000 RTRREMOT EQU RINREMOT 04469000 RTRRLDAF EQU RINRLDAF 04470000 RTRNODID EQU RINNODID 04471000 RINRSV01 EQU RINDFD 04472000 RTRLDISC EQU RINLDISC 04473000 RTRNODEF EQU RINNODEF 04474000 RTRREMPO EQU RINREMPO 04475000 RINCRPRE EQU ISTRIN 04476000 RTRRSV04 EQU ISTRTR+210 04477000 RTRLCTI EQU ISTRTR+209 04478000 RTRIDCAS EQU RTRBSCID+1 04479000 RTRIDLEN EQU RTRBSCID 04480000 RTRRSVDD EQU ISTRTR+181 04481000 RTRRDFG EQU ISTRTR+180 04482000 RTRDIAA EQU ISTRTR+176 04483000 RTRPOLA EQU ISTRTR+172 04484000 RTRCADDR EQU ISTRTR+164 04485000 RTRCTADR EQU ISTRTR+162 04486000 RTRCTPOL EQU ISTRTR+160 04487000 RTRCTDIA EQU ISTRTR+158 04488000 RTRRSV03 EQU ISTRTR+156 04489000 RTRRVPT1 EQU ISTRTR+152 04490000 RTRBHSN1 EQU ISTRTR+144 04491000 RTRCRSV2 EQU RTRCRFLG 04492000 RTRDTRLM EQU RTRLSCMD 04493000 RTRCRSV1 EQU RTRCRFLG 04494000 RTRTRMAX EQU ISTRTR+142 04495000 RTRRSV24 EQU RTRRDFF 04496000 RTRRFDEK EQU RTRRDFF 04497000 RTRRFANK EQU RTRRDFF 04498000 RTRRFPFK EQU RTRRDFF 04499000 RTRRFPEN EQU RTRRDFF 04500000 RTRRFXCT EQU RTRRDFF 04501000 RTRRESCT EQU RTRRDFE 04502000 RTRRESUP EQU RTRRDFE 04503000 RTRREATT EQU RTRRDFE 04504000 RTRRECHK EQU RTRRDFE 04505000 RTRREACR EQU RTRRDFE 04506000 RTRRSV0A EQU RTRRDFE 04507000 RTRREBRK EQU RTRRDFE 04508000 RTRRSV11 EQU RTRRDFD 04509000 RTRRSV10 EQU RTRRDFD 04510000 RTRRDBHI EQU RTRRDFD 04511000 RTRRDBHD EQU RTRRDFD 04512000 RTRRDBHN EQU RTRRDFD 04513000 RTRRSV23 EQU RTRRDFC 04514000 RTRRCXMS EQU RTRRDFC 04515000 RTRRCMSG EQU RTRRDFC 04516000 RTRRCBLK EQU RTRRDFC 04517000 RTRRCPT3 EQU RTRRDFC 04518000 RTRRCIT2 EQU RTRRDFC 04519000 RTRRCIT1 EQU RTRRDFC 04520000 RTRRSV32 EQU RTRRDFB 04521000 RTRRBEND EQU RTRRDFB 04522000 RTRRBECT EQU RTRRDFB 04523000 RTRRSV02 EQU RTRRDFA 04524000 RTRRACTR EQU RTRRDFA 04525000 RTRRSV60 EQU RTRRDFA 04526000 RTRRACDT EQU RTRRDFA 04527000 RTRRAPT3 EQU RTRRAALL 04528000 RTRRAPT2 EQU RTRRAALL 04529000 RTRRAPT1 EQU RTRRAALL 04530000 RTRRAATN EQU RTRRDFA 04531000 RTRRSV45 EQU ISTRTR+132 04532000 RTRRSV01 EQU ISTRTR+130 04533000 RTRCTECM EQU ISTRTR+128 04534000 RTRADRPT EQU RTRADR+1 04535000 RTRRSV22 EQU RTRFLAG 04536000 RTRVTERM EQU RTRFLAG 04537000 RTRRSV51 EQU RTRFLAG 04538000 RTRRBISA EQU RTRFLAG 04539000 RTRRSV21 EQU RTRFLAG 04540000 RTRCRPR EQU ISTRTR 04541000 RCLRVPT2 EQU ISTRCL+92 04542000 RCLRVPT1 EQU ISTRCL+88 04543000 RCLGPOLA EQU ISTRCL+84 04544000 RCLCTNGP EQU ISTRCL+82 04545000 RCLRSV01 EQU ISTRCL+80 04546000 RCLCTECM EQU ISTRCL+78 04547000 RCLCTETR EQU ISTRCL+76 04548000 RCLGPADR EQU RCLADR+1 04549000 RCLRSV33 EQU RCLFLAG 04550000 RCLBATCH EQU RCLFLAG 04551000 RCLRBISA EQU RCLFLAG 04552000 RCLRSV22 EQU RCLFLAG 04553000 RCLPRE EQU ISTRCL 04554000 RPTRSV03 EQU ISTRPT+156 04555000 RPTRSV02 EQU ISTRPT+152 04556000 RPTNSNSV EQU ISTRPT+148 04557000 RPTPTHCT EQU ISTRPT+146 04558000 RPTPEPCT EQU ISTRPT+144 04559000 RPTDAFSV EQU ISTRPT+142 04560000 RPTRSV01 EQU ISTRPT+141 04561000 RPTISTAT EQU RPTFLAG1 04562000 RPTDYNAM EQU RPTFLAG1 04563000 RPTVYIMM EQU RPTFLAG1 04564000 RPTVIODN EQU RPTFLAG1 04565000 RPTONLIN EQU RPTFLAG1 04566000 RPTHLVPD EQU RPTFLAG1 04567000 RPTVRYPD EQU RPTFLAG1 04568000 RPTASLEP EQU RPTFLAG1 04569000 RPTUTERM EQU ISTRPT+136 04570000 RPTATERM EQU ISTRPT+132 04571000 RPTDIVT EQU RPTDITT 04572000 RPTCTNM EQU ISTRPT+120 04573000 RPTLNDAF EQU RPTLNCID+2 04574000 RPTLNSAF EQU RPTLNCID 04575000 RPTLN EQU ISTRPT 04576000 RLNRVPT2 EQU ISTRLN+112 04577000 RLNNCSPL EQU ISTRLN+108 04578000 RLNX2SW EQU ISTRLN+104 04579000 @NM00052 EQU ISTRLN+103 04580000 RLNCRRSV EQU RLNCRFLG 04581000 RLNSWEP EQU RLNCRFLG 04582000 RLNSVSKP EQU RLNLSCMD 04583000 RLNSESLM EQU RLNLSCMD 04584000 RLNNPRLM EQU RLNLSCMD 04585000 RLNSWNCP EQU RLNCRFLG 04586000 RLNACTLN EQU RLNCRFLG 04587000 RLNPAUSE EQU ISTRLN+101 04588000 RLNPOLMT EQU ISTRLN+100 04589000 RLNACTSN EQU ISTRLN+98 04590000 RLNRESV1 EQU ISTRLN+97 04591000 RLNACTRM EQU ISTRLN+96 04592000 RLNCTSES EQU ISTRLN+95 04593000 RLNRDSLM EQU ISTRLN+94 04594000 RLNAUTOA EQU ISTRLN+92 04595000 RLNRDFD EQU RLNRDF+3 04596000 RLNRDFC EQU RLNRDF+2 04597000 RLNMULTP EQU RLNRDFB 04598000 RLNRATRN EQU RLNRDFB 04599000 RLNRAPOL EQU RLNRDFB 04600000 RLNTTV EQU RLNRDFB 04601000 RLNRSV0B EQU RLNRDFB 04602000 RLNAUTOD EQU RLNRDFB 04603000 RLNANSWR EQU RLNRDFB 04604000 RLNRBUSE EQU RLNRDFB 04605000 RLNRAPEP EQU RLNRDFA 04606000 RLNRANCP EQU RLNRDFA 04607000 RLNRAEP EQU RLNRDFA 04608000 RLNIDV EQU RLNRDFA 04609000 RLNPORT EQU RLNRDFA 04610000 RLNGANSW EQU RLNRDFA 04611000 RLNRACAN EQU RLNRACNT 04612000 RLNRACAT EQU RLNRACNT 04613000 RLNRSV04 EQU RLNSTAT2 04614000 RLNINUSE EQU RLNSTAT2 04615000 RLNOHIN EQU RLNSTAT2 04616000 RLNRSV03 EQU RLNSTAT1 04617000 RLNVD EQU RLNSTAT1 04618000 RLNINOPP EQU RLNSTAT1 04619000 RLNINOPL EQU RLNSTAT1 04620000 RLNLRST EQU RLNSTAT1 04621000 RLNTRAP EQU RLNSTAT1 04622000 RLNACTCT EQU ISTRLN+84 04623000 RLNCTECM EQU ISTRLN+82 04624000 RLNCTEIN EQU ISTRLN+80 04625000 RLNCTETR EQU ISTRLN+78 04626000 RLNCTECL EQU ISTRLN+76 04627000 RLNCUA EQU RLNUCBAD 04628000 RLNRSV01 EQU RLNFLAG 04629000 RLNRBISA EQU RLNFLAG 04630000 RLNEAM EQU RLNFLAG 04631000 RLNPRE EQU ISTRLN 04632000 RGPRVPT2 EQU ISTRGP+88 04633000 RGPRVPT1 EQU ISTRGP+84 04634000 RGPCTECM EQU ISTRGP+82 04635000 RGPCTEIN EQU ISTRGP+80 04636000 RGPCTETR EQU ISTRGP+78 04637000 RGPCTECL EQU ISTRGP+76 04638000 RGPCTELN EQU ISTRGP+74 04639000 RGPRSV03 EQU ISTRGP+73 04640000 RGPRSV02 EQU RGPFLG 04641000 RGPASDLC EQU RGPFLG 04642000 RGPABSC EQU RGPFLG 04643000 RGPASS EQU RGPFLG 04644000 RGPADIL EQU RGPFLG 04645000 RGPPRE EQU ISTRGP 04646000 RRNRINNM EQU ISTRRN+248 04647000 @NM00051 EQU ISTRRN+247 04648000 RRNRDCUA EQU ISTRRN+244 04649000 RRNLASTE EQU ISTRRN+240 04650000 RRNNCSPL EQU ISTRRN+236 04651000 RRNRPLPT EQU ISTRRN+232 04652000 RRNMSIZE EQU ISTRRN+228 04653000 RRNNCPNM EQU ISTRRN+221 04654000 RRNCTPCC EQU ISTRRN+220 04655000 RRNHBUFS EQU ISTRRN+218 04656000 RRNHLENT EQU RRNHPRE+1 04657000 RRNHLENH EQU RRNHPRE 04658000 RRNNMNCP EQU ISTRRN+208 04659000 RRNDELAY EQU ISTRRN+206 04660000 RRNRSV04 EQU ISTRRN+200 04661000 RRNRSV88 EQU RRNNMDPD+7 04662000 RRNPUBI EQU RRNNMDPD+6 04663000 RRNDPLUB EQU RRNNMDPD 04664000 RRNEPADR EQU ISTRRN+190 04665000 RRNCPLUB EQU ISTRRN+184 04666000 RRNFLUX EQU ISTRRN+180 04667000 RRNRSV05 EQU RRNCMFD 04668000 RRNREMPO EQU RRNCMFD 04669000 RRNCDREC EQU RRNCMFD 04670000 RRNCDDSI EQU RRNCMFD 04671000 RRNCDBCK EQU RRNCMFD 04672000 RRNCDDTL EQU RRNCMFD 04673000 RRNCDSTD EQU RRNCMFD 04674000 RRNCDCSP EQU RRNCMFD 04675000 RRNCCCSL EQU RRNCMFC 04676000 RRNCCSIM EQU RRNCMFC 04677000 RRNCCRCM EQU RRNCMFC 04678000 RRNCCRIM EQU RRNCMFC 04679000 RRNCCCRC EQU RRNCMFC 04680000 RRNCCRST EQU RRNCMFC 04681000 RRNCCRDQ EQU RRNCMFC 04682000 RRNCCRCN EQU RRNCMFC 04683000 RRNCBALT EQU RRNCMFB 04684000 RRNCBMOD EQU RRNCMFB 04685000 RRNCBNPL EQU RRNCMFB 04686000 RRNCBRLS EQU RRNCMFB 04687000 RRNCBRDS EQU RRNCMFB 04688000 RRNCBDLR EQU RRNCMFB 04689000 RRNCBDLH EQU RRNCMFB 04690000 RRNCBDLO EQU RRNCMFB 04691000 RRNCADGO EQU RRNCMFA 04692000 RRNCADTD EQU RRNCMFA 04693000 RRNCACDT EQU RRNCMFA 04694000 RRNCAMBH EQU RRNCMFA 04695000 RRNCAATI EQU RRNCMFA 04696000 RRNCAATG EQU RRNCMFA 04697000 RRNCAATD EQU RRNCMFA 04698000 RRNCAALL EQU RRNCMFA 04699000 RRNRSV55 EQU RRNRDF+3 04700000 RRNPTASL EQU RRNRDFB+1 04701000 RRNRSV01 EQU RRNRDFB+1 04702000 RRNVYDON EQU RRNRDFB+1 04703000 RRNRBBUP EQU RRNRDFB+1 04704000 RRNRSV03 EQU RRNRDFB 04705000 RRNRBCT2 EQU RRNRDFB 04706000 RRNRBCT1 EQU RRNRDFB 04707000 RRNRBSEC EQU RRNRDFB 04708000 RRNRBCCT EQU RRNRDFB 04709000 RRNRBCCL EQU RRNRDFB 04710000 RRNRSV02 EQU RRNRDFB 04711000 RRNRBMDL EQU RRNRDFB 04712000 RRNRAPEP EQU RRNRDFA 04713000 RRNRANCP EQU RRNRDFA 04714000 RRNRBREM EQU RRNRDFA 04715000 RRNRAOLT EQU RRNRDFA 04716000 RRNRASYN EQU RRNRDFA 04717000 RRNRADMP EQU RRNRDFA 04718000 RRNRAIPL EQU RRNRDFA 04719000 RRNRASHT EQU RRNRDFA 04720000 RRNCTENT EQU ISTRRN+170 04721000 RRNCTECM EQU ISTRRN+168 04722000 RRNCTEIN EQU ISTRRN+166 04723000 RRNCTETR EQU ISTRRN+164 04724000 RRNCTECL EQU ISTRRN+162 04725000 RRNCTELI EQU ISTRRN+160 04726000 RRNCTEGP EQU ISTRRN+158 04727000 RRNCTBHS EQU ISTRRN+156 04728000 RRNBHSET EQU ISTRRN+152 04729000 RRNTRENT EQU ISTRRN+148 04730000 RRNRLDIP EQU ISTRRN+147 04731000 RRNRNCUA EQU ISTRRN+144 04732000 RRNGRPA EQU ISTRRN+140 04733000 RRNLUBA EQU RRNUCBAD+1 04734000 RRNCHQI EQU RRNUCBAD 04735000 RRNRSV11 EQU RRNFLAG 04736000 RRNDSTCT EQU RRNFLAG 04737000 RRNERPIP EQU RRNFLAG 04738000 RRNLCDIP EQU RRNFLAG 04739000 RRNLCDIE EQU RRNFLAG 04740000 RRNLCSIP EQU RRNFLAG 04741000 RRNRBISA EQU RRNFLAG 04742000 RRNRSV89 EQU RRNFLAG 04743000 RRNPRE EQU ISTRRN 04744000 RLCRVPT2 EQU ISTRLC+80 04745000 RLCRVPT1 EQU ISTRLC+79 04746000 RLCLCCUA EQU ISTRLC+76 04747000 RLCUCBAD EQU RLCADR+1 04748000 RLCRSVDE EQU RLCFLAG 04749000 RLCACNT EQU RLCFLAG 04750000 RLCRSV14 EQU RLCFLAG 04751000 RLCRBISA EQU RLCFLAG 04752000 RLCRSV22 EQU RLCFLAG 04753000 RLCPRE EQU ISTRLC 04754000 RAPRVPT2 EQU ISTRAP+116 04755000 RAPRVPT1 EQU ISTRAP+112 04756000 RAPBFACT EQU ISTRAP+111 04757000 RAPRSV17 EQU RAPFLGC 04758000 RAPRSV16 EQU RAPFLGC 04759000 RAPRSV15 EQU RAPFLGC 04760000 RAPRSV14 EQU RAPFLGC 04761000 RAPRSV13 EQU RAPFLGC 04762000 RAPRSV12 EQU RAPFLGC 04763000 RAPRSV11 EQU RAPFLGC 04764000 RAPRSV10 EQU RAPFLGC 04765000 RAPANVPC EQU RAPFLGB 04766000 RAPASPO EQU RAPFLGB 04767000 RAPAPPO EQU RAPFLGB 04768000 RAPAACQ EQU RAPFLGB 04769000 RAPAPRMT EQU RAPFLGB 04770000 RAPAPASS EQU RAPFLGB 04771000 RAPABLCK EQU RAPFLGB 04772000 RAPRSV06 EQU RAPFLG 04773000 RAPRSV05 EQU RAPFLG 04774000 RAPRSV04 EQU RAPFLG 04775000 RAPRSV03 EQU RAPFLG 04776000 RAPATLGN EQU RAPFLG 04777000 RAPASLGI EQU RAPFLG 04778000 RAPAQUI EQU RAPFLG 04779000 RAPABLGN EQU RAPFLG 04780000 RAPACEQD EQU ISTRAP+106 04781000 RAPTRPRE EQU ISTRAP+104 04782000 RAPACEAP EQU ISTRAP+100 04783000 RAPICEAQ EQU ISTRAP+96 04784000 RAPICEAC EQU ISTRAP+92 04785000 RAPICELG EQU ISTRAP+88 04786000 RAPAPPWD EQU ISTRAP+80 04787000 RAPACDEB EQU ISTRAP+76 04788000 RAPACBA EQU ISTRAP+72 04789000 RAPPRE EQU ISTRAP 04790000 RDTVSRPL EQU ISTRDT+132 04791000 RDTCRSPW EQU ISTRDT+124 04792000 RDTCRSDS EQU ISTRDT+116 04793000 @NM00050 EQU ISTRDT+113 04794000 RRNSTCNT EQU RDTSTCNT 04795000 RRNVYRPH EQU RDTVYRPH 04796000 RDTTPAB EQU ISTRDT+104 04797000 RDTDPAB EQU ISTRDT+100 04798000 RDTEPAB EQU ISTRDT+96 04799000 RDTVPAB EQU ISTRDT+92 04800000 RDTRSV01 EQU RDTFLAGB 04801000 RDTBHSET EQU RDTFLAGB 04802000 RDTCTCFL EQU RDTFLAGB 04803000 RDTCTPGD EQU RDTFLAGB 04804000 RDTPRGDN EQU RDTFLAGB 04805000 RDTOUERP EQU RDTFLAGB 04806000 RDTLGCT EQU ISTRDT+90 04807000 RDTNODID EQU ISTRDT+89 04808000 RDTMAXID EQU ISTRDT+88 04809000 RDTCTSNT EQU ISTRDT+86 04810000 RDTFLAGS EQU ISTRDT+84 04811000 RDTBACK EQU ISTRDT+80 04812000 RDTFORW EQU ISTRDT+76 04813000 RDTLEN EQU RDTPLEN+1 04814000 RDTPRILS EQU RDTPRIOR 04815000 RDTPRISW EQU RDTPRIOR 04816000 RDTPRIRN EQU RDTPRIOR 04817000 RDTPRILC EQU RDTPRIOR 04818000 RDTPRIAP EQU RDTPRIOR 04819000 @NM00049 EQU RDTPRIOR 04820000 RDTPRE EQU ISTRDT 04821000 RCPRSV05 EQU ISTRCPRE+120 04822000 RCPRSV04 EQU ISTRCPRE+116 04823000 RCPRSV03 EQU ISTRCPRE+112 04824000 RCPINTA EQU RCPLGNIN+16 04825000 RCPLGNCT EQU RCPLGNIN+8 04826000 RCPLGNAP EQU RCPLGNIN 04827000 @NM00048 EQU RCPPMODE 04828000 RCPRRECD EQU RCPPMODE 04829000 RCPRBASC EQU RCPPMODE 04830000 RCPBFLIM EQU ISTRCPRE+90 04831000 RCPBHSI2 EQU ISTRCPRE+89 04832000 RCPBHSI1 EQU ISTRCPRE+88 04833000 RCPACETR EQU ISTRCPRE+84 04834000 RCPICEAQ EQU ISTRCPRE+80 04835000 RCPLNAPA EQU ISTRCPRE+76 04836000 RCPICELN EQU ISTRCPRE+72 04837000 RCPPRE EQU ISTRCPRE 04838000 RPRCONID EQU ISTRPRE+63 04839000 RPRCLVPD EQU RPRFLAGC 04840000 RPRINIMM EQU RPRFLAGD 04841000 RPRRSV05 EQU RPRFLAGD 04842000 RPRCONP EQU RPRFLAGD 04843000 RPRACTP EQU RPRFLAGD 04844000 RPRRSON EQU RPRFLAGD 04845000 RPRCONCT EQU RPRFLAGD 04846000 RPRLTASN EQU RPRFLAGD 04847000 RPRPTHCT EQU ISTRPRE+60 04848000 RPRSWDAF EQU ISTRPRE+58 04849000 RPRSTPCT EQU ISTRPRE+56 04850000 RPRRVPT1 EQU ISTRPRE+52 04851000 RPRDEVCH EQU ISTRPRE+44 04852000 RPRNCBA EQU ISTRPRE+40 04853000 RPRNSNEA EQU ISTRPRE+36 04854000 RPRLGONB EQU ISTRPRE+32 04855000 RPRLGONF EQU ISTRPRE+28 04856000 RPRHDTYP EQU ISTRPRE+27 04857000 RPRTIOCT EQU ISTRPRE+26 04858000 RPRPEPCT EQU ISTRPRE+24 04859000 RPRRSV03 EQU RPRCAUSE 04860000 RPRRSYNC EQU RPRCAUSE 04861000 RPRCRCPT EQU RPRCAUSE 04862000 RPRNOSRT EQU RPRCAUSE 04863000 RPRINTST EQU RPRFLAGB 04864000 RPRVYIMM EQU RPRFLAGB 04865000 RPRHLVPD EQU RPRFLAGB 04866000 RPRONLIN EQU RPRFLAGB 04867000 RPRVIODN EQU RPRFLAGB 04868000 RPRAOPN EQU RPRFLAGB 04869000 RPRENTVT EQU RPRFLAGB 04870000 RPRENTVH EQU RPRFLAGB 04871000 RPRLIVE EQU RPRFLAGA 04872000 RPRVRYPD EQU RPRFLAGA 04873000 RPRENTED EQU RPRFLAGA 04874000 RPRENTIO EQU RPRFLAGA 04875000 RPRENTBF EQU RPRFLAGA 04876000 RPRTIED EQU RPRFLAGA 04877000 RPRINV EQU RPRFLAGA 04878000 RPRACT EQU RPRFLAGA 04879000 RPRENTRY EQU ISTRPRE+20 04880000 RPRPELEN EQU ISTRPRE+18 04881000 RPRELEN EQU ISTRPRE+16 04882000 RPRRLOCK EQU ISTRPRE+12 04883000 RPRDAF EQU RPRCOMID+2 04884000 RPRSAF EQU RPRCOMID 04885000 RPRNAME EQU ISTRPRE 04886000 LOKXCL EQU @NM00046 04887000 LOKPRY EQU @NM00046 04888000 @NM00047 EQU @NM00046 04889000 @NM00045 EQU LOKCHNG 04890000 LOKCT EQU ISTLOK 04891000 CSPUNUSD EQU CSPRSC2B+4 04892000 CSPUECBA EQU CSPRSC2B 04893000 CSPTRDTE EQU ISTCSP+28 04894000 CSPRLRPH EQU ISTCSP+24 04895000 CSPNO EQU ISTCSP+22 04896000 CSPCC EQU ISTCSP+20 04897000 CSPDATA EQU ISTCSP+16 04898000 CSPRSCE EQU ISTCSP+12 04899000 CSPDEST EQU ISTCSP+8 04900000 CSPSRC EQU ISTCSP+4 04901000 @NM00044 EQU CSPOPT2 04902000 CSPRSC2F EQU CSPOPT2 04903000 CSPWASQD EQU CSPOPT2 04904000 CSPACQS EQU CSPOPT2 04905000 CSPACES EQU CSPOPT2 04906000 CSPNOREL EQU CSPOPT2 04907000 CSPCOREQ EQU CSPOPT2 04908000 CSPSTAP EQU CSPOPT2 04909000 @NM00043 EQU CSPOPT1 04910000 CSPANY EQU CSPOPT1 04911000 CSPACT EQU CSPOPT1 04912000 CSPSESS EQU CSPOPT1 04913000 CSPPND EQU CSPOPT1 04914000 CSPLOGI EQU CSPOPT1 04915000 CSPQ EQU CSPOPT1 04916000 CSPRSC EQU CSPOPT1 04917000 CSPIDX EQU ISTCSP 04918000 PROSRDEF EQU PROSETM4 04919000 PRORSV47 EQU PROSETM4 04920000 PROSCON EQU PROSETM4 04921000 PRORSV46 EQU PROSETM3 04922000 PROSMONT EQU PROSETM3 04923000 PRORSV45 EQU PROSETM3 04924000 PROSNTO EQU PROSETM3 04925000 PRORSV44 EQU PROSETM3 04926000 PRORSV43 EQU PROSETM2 04927000 PROSNTFL EQU PROSETM2 04928000 PRORSV42 EQU PROSETM2 04929000 PRORSV41 EQU PROPROCS 04930000 PROMODC EQU PROPROC4 04931000 PROMODT EQU PROPROC4 04932000 PROMODM EQU PROPROC4 04933000 PROMODB EQU PROPROC4 04934000 PRORSV14 EQU PROPROC4 04935000 PRORSV13 EQU PROPROC4 04936000 PRORSV12 EQU PROPROC4 04937000 PROEIB EQU PROPROC4 04938000 PRORSV11 EQU PROPROC3 04939000 PROMONT2 EQU PROPROC3 04940000 PROMONIT EQU PROPROC3 04941000 PROSUBLK EQU PROPROC3 04942000 PRONTO EQU PROPROC3 04943000 PROLGIN EQU PROPROC3 04944000 PROERPI EQU PROPROC3 04945000 PRORSV07 EQU PROPROC3 04946000 PROCFTX EQU PROPROC2 04947000 PROEMLC EQU PROPROC2 04948000 PRONTFL EQU PROPROC2 04949000 PRORSV05 EQU PROPROC2 04950000 PRORSV04 EQU PROPROC2 04951000 PROLGOT EQU PROPROC2 04952000 PROERPO EQU PROPROC2 04953000 PRORSV03 EQU PROPROC2 04954000 PRORPLC EQU PROPROC1 04955000 PROCS EQU PROPROC1 04956000 PROCA EQU PROPROC1 04957000 PRORESPX EQU PROPROC1 04958000 PRODFASY EQU PROPROC1 04959000 PROXPOPT EQU PROPROC1 04960000 PROTRUNC EQU PROPROC1 04961000 PROASYIP EQU PROPROC1 04962000 DEVRSV03 EQU ISTDEVCH+5 04963000 DEVPHYSA EQU ISTDEVCH+4 04964000 DEVCSLPN EQU DEVCHAR3 04965000 DEVCSTCL EQU DEVCHAR3 04966000 DEVCCHEK EQU DEVCHAR3 04967000 DEVCATTN EQU DEVCHAR3 04968000 DEVCSWL EQU DEVFCCTL 04969000 DEVCRVB EQU DEVFCCTL 04970000 DEVCSSL EQU DEVFCCTL 04971000 DEVCBSC EQU DEVFCCTL 04972000 DEVMCODE EQU ISTDEVCH+2 04973000 DEVCHAR2 EQU DEVTCODE 04974000 DEVRSV01 EQU DEVCHAR 04975000 DEVCCTL EQU DEVCHAR 04976000 DEVNNSPT EQU DEVCHAR 04977000 DEVSPS EQU DEVCHAR 04978000 DEVSUBND EQU DEVCHAR 04979000 DEVCONVR EQU DEVCHAR 04980000 DEVOTPUT EQU DEVCHAR 04981000 DEVINPUT EQU DEVCHAR 04982000 RPLSEQNO EQU RPLOF60+6 04983000 @NM00042 EQU RPLIBSQ 04984000 RPLIINV EQU RPLIBSQ 04985000 RPLINEG EQU RPLIBSQ 04986000 RPLIPOS EQU RPLIBSQ 04987000 RPLIIGN EQU RPLIBSQ 04988000 RPLIRSET EQU RPLIBSQ 04989000 RPLITST EQU RPLIBSQ 04990000 RPLISET EQU RPLIBSQ 04991000 @NM00041 EQU RPLOBSQ 04992000 RPLOINV EQU RPLOBSQ 04993000 RPLONEG EQU RPLOBSQ 04994000 RPLOPOS EQU RPLOBSQ 04995000 RPLOIGN EQU RPLOBSQ 04996000 RPLORSET EQU RPLOBSQ 04997000 RPLOTST EQU RPLOBSQ 04998000 RPLOSET EQU RPLOBSQ 04999000 RPLIBSQV EQU RPLOF60+2 05000000 RPLOBSQV EQU RPLOF60 05001000 @NM00040 EQU RPLCNTSC 05002000 RPLRSHUT EQU RPLCNTSC 05003000 RPLRQR EQU RPLCNTSC 05004000 RPLSHUTC EQU RPLCNTSC 05005000 RPLSHUTD EQU RPLCNTSC 05006000 RPLSTSN EQU RPLCNTSC 05007000 RPLCLEAR EQU RPLCNTSC 05008000 RPLSDT EQU RPLCNTSC 05009000 @NM00039 EQU RPLCNTDC 05010000 RPLSIGNL EQU RPLCNTDC 05011000 RPLLUS EQU RPLCNTDC 05012000 RPLRTR EQU RPLCNTDC 05013000 RPLBID EQU RPLCNTDC 05014000 @NM00038 EQU RPLCNTDF 05015000 RPLQI EQU RPLCNTDF 05016000 RPLRELQ EQU RPLCNTDF 05017000 RPLCHASE EQU RPLCNTDF 05018000 RPLQEC EQU RPLCNTDF 05019000 RPLQC EQU RPLCNTDF 05020000 RPLCNCEL EQU RPLCNTDF 05021000 RPLDATA EQU RPLCNTDF 05022000 RPLRRN EQU RPLRESP 05023000 RPLNFME EQU RPLRESP 05024000 RPLEX EQU RPLRESP 05025000 @NM00037 EQU RPLRESP 05026000 @NM00036 EQU RPLPOSTV 05027000 RPLSCHED EQU RPLPOSTV 05028000 @NM00035 EQU RPLVTFL1 05029000 RPLAUTUS EQU RPLVTFL1 05030000 RPLVTUSE EQU RPLVTFL1 05031000 @NM00034 EQU RPLVTFL1 05032000 @NM00033 EQU RPLCHN 05033000 RPLONLY EQU RPLCHN 05034000 RPLLAST EQU RPLCHN 05035000 RPLMIDLE EQU RPLCHN 05036000 RPLFIRST EQU RPLCHN 05037000 @NM00032 EQU RPLRTYPE 05038000 RPLDFASY EQU RPLRTYPE 05039000 RPLNFSYN EQU RPLRTYPE 05040000 RPLRRESP EQU RPLRTYPE 05041000 @NM00031 EQU RPLSTYPE 05042000 RPLSRESP EQU RPLSTYPE 05043000 @NM00030 EQU RPLRH3 05044000 RPLCSI EQU RPLRH3 05045000 RPLCHREQ EQU RPLRH3 05046000 RPLCMD EQU RPLRH3 05047000 RPLEB EQU RPLRH3 05048000 RPLBB EQU RPLRH3 05049000 RPLSIGDA EQU RPLVTEXT+32 05050000 RPLSAV13 EQU RPLVTEXT+28 05051000 RPLUSNSO EQU RPLOSENS+2 05052000 RPLSSMO EQU RPLSSNSO+1 05053000 @NM00029 EQU RPLSSEO 05054000 RPLRRO EQU RPLSSEO 05055000 RPLFIO EQU RPLSSEO 05056000 RPLSTATO EQU RPLSSEO 05057000 RPLCPMO EQU RPLSSEO 05058000 @NM00028 EQU RPLSSEO 05059000 RPLFMHDR EQU RPLOPT12 05060000 @NM00027 EQU RPLOPT12 05061000 @NM00026 EQU RPLOPT12 05062000 @NM00025 EQU RPLOPT12 05063000 RPLNIBTK EQU RPLOPT12 05064000 RPLTRUNC EQU RPLOPT12 05065000 RPLKEEP EQU RPLOPT12 05066000 @NM00024 EQU RPLOPT12 05067000 RPLRSVE8 EQU RPLOPT11 05068000 RPLRSVE7 EQU RPLOPT11 05069000 RPLRSVE6 EQU RPLOPT11 05070000 RPLRSVE5 EQU RPLOPT11 05071000 RPLRSVE4 EQU RPLOPT11 05072000 RPLSTOP EQU RPLOPT11 05073000 RPLSTART EQU RPLOPT11 05074000 RPLQUIES EQU RPLOPT11 05075000 RPLRSVI6 EQU RPLOPT10 05076000 RPLRSVI5 EQU RPLOPT10 05077000 RPLRSVI4 EQU RPLOPT10 05078000 RPLRSVI3 EQU RPLOPT10 05079000 RPLRSVI2 EQU RPLOPT10 05080000 RPLSPARM EQU RPLOPT10 05081000 RPLDSPLY EQU RPLOPT10 05082000 RPLBSCID EQU RPLOPT10 05083000 RPLTOPL EQU RPLOPT9 05084000 RPLCIDE EQU RPLOPT9 05085000 RPLRNNM EQU RPLOPT9 05086000 RPLAPPST EQU RPLOPT9 05087000 RPLCOUNT EQU RPLOPT9 05088000 RPLTERMS EQU RPLOPT9 05089000 RPLDEVCH EQU RPLOPT9 05090000 RPLLOGON EQU RPLOPT9 05091000 RPLUSFLD EQU RPLVTEXT+16 05092000 RPLESR2 EQU RPLUSNSI+1 05093000 RPLESR1 EQU RPLUSNSI 05094000 RPLSSMI EQU RPLDSB2 05095000 @NM00023 EQU RPLSSEI 05096000 RPLRRI EQU RPLSSEI 05097000 RPLFII EQU RPLSSEI 05098000 RPLSTATI EQU RPLSSEI 05099000 RPLCPMI EQU RPLSSEI 05100000 RPLPATHI EQU RPLSSEI 05101000 RPLARCLN EQU RPLVTEXT+8 05102000 RPLAARLN EQU RPLVTEXT+4 05103000 RPLAAREA EQU RPLVTEXT 05104000 RPLERMSA EQU RPLCOMN+72 05105000 RPLEMLEN EQU RPLCOMN+70 05106000 RPLACTIV EQU RPLCOMN+69 05107000 RPLBRANC EQU RPLEXTD1 05108000 RPLNIB EQU RPLEXTD1 05109000 @NM00022 EQU RPLEXTD1 05110000 RPLEXIT EQU RPLEXTD1 05111000 RPLNEXIT EQU RPLEXTD1 05112000 RPLEXSCH EQU RPLEXTD1 05113000 RPLDDDD EQU RPLRBAR+4 05114000 @NM00021 EQU RPLRBAR+3 05115000 @NM00020 EQU RPLAIXID 05116000 RPLAXPKP EQU RPLAIXID 05117000 RPLAIXPC EQU RPLRBAR 05118000 RPLRSV88 EQU RPLOPT8 05119000 RPLUNCON EQU RPLOPT8 05120000 RPLACTV EQU RPLOPT8 05121000 RPLSESS EQU RPLOPT8 05122000 RPLPEND EQU RPLOPT8 05123000 RPLODPRM EQU RPLOPT8 05124000 RPLODACP EQU RPLOPT8 05125000 RPLODACQ EQU RPLOPT8 05126000 RPLRSV78 EQU RPLOPT7 05127000 RPLTCRNO EQU RPLOPT7 05128000 RPLRLSOP EQU RPLOPT7 05129000 RPLQOPT EQU RPLOPT7 05130000 RPLCNIMM EQU RPLCNOPT 05131000 RPLCNANY EQU RPLCNOPT 05132000 RPLCNALL EQU RPLCNOPT 05133000 RPLRSV68 EQU RPLOPT6 05134000 RPLRSV67 EQU RPLOPT6 05135000 RPLLOCK EQU RPLOPT6 05136000 RPLNCOND EQU RPLOPT6 05137000 RPLCOND EQU RPLOPT6 05138000 RPLEOT EQU RPLUNTYP 05139000 RPLEOM EQU RPLUNTYP 05140000 RPLEOB EQU RPLUNTYP 05141000 RPLWROPT EQU RPLOPT5 05142000 RPLNODE EQU RPLOPT5 05143000 RPLERACE EQU RPLWRTYP 05144000 RPLEAU EQU RPLWRTYP 05145000 RPLNERAS EQU RPLWRTYP 05146000 RPLPSOPT EQU RPLOPT5 05147000 @NM00019 EQU RPLOPT5 05148000 RPLDLGIN EQU RPLOPT5 05149000 RPLBUFL EQU RPLCOMN+52 05150000 RPLRLEN EQU RPLCOMN+48 05151000 RPLCHAIN EQU RPLNXTRP 05152000 RPLBOP EQU RPLOPT4 05153000 @NM00018 EQU RPLOPT4 05154000 RPLMKFRM EQU RPLOPT4 05155000 RPLENDTR EQU RPLOPT4 05156000 RPLALIGN EQU RPLOPT3 05157000 RPLFMT EQU RPLOPT3 05158000 RPLFLD EQU RPLOPT3 05159000 RPLVFY EQU RPLOPT3 05160000 RPLBLK EQU RPLOPT3 05161000 RPLSFORM EQU RPLOPT3 05162000 RPLEODS EQU RPLOPT3 05163000 RPLNSP EQU RPLOPT2 05164000 RPLUPD EQU RPLOPT2 05165000 @NM00017 EQU RPLOPT2 05166000 RPLLRD EQU RPLOPT2 05167000 RPLBWD EQU RPLOPT2 05168000 RPLCNV EQU RPLOPT2 05169000 RPLADD EQU RPLADR 05170000 RPLKEY EQU RPLOPT2 05171000 RPLECBIN EQU RPLECBSW 05172000 RPLGEN EQU RPLOPT1 05173000 RPLKGE EQU RPLOPT1 05174000 RPLASY EQU RPLOPT1 05175000 RPLSKP EQU RPLOPT1 05176000 RPLSEQ EQU RPLOPT1 05177000 RPLDIR EQU RPLOPT1 05178000 RPLLOC EQU RPLOPT1 05179000 RPLDAF EQU RPLARG+2 05180000 RPLSAF EQU RPLARG 05181000 RPLAREA EQU RPLCOMN+32 05182000 RPLTCBPT EQU RPLCOMN+28 05183000 RPLDACB EQU RPLCOMN+24 05184000 RPLCCHAR EQU RPLCOMN+20 05185000 RPLSTRID EQU RPLCOMN+18 05186000 RPLKEYL EQU RPLKEYLE 05187000 RPLRDSOH EQU RPLFDB3 05188000 RPLRLG EQU RPLFDB3 05189000 RPLLGFRC EQU RPLFDB3 05190000 RPLREOT EQU RPLFDB3 05191000 RPLREOM EQU RPLFDB3 05192000 RPLREOB EQU RPLFDB3 05193000 RPLSV32 EQU RPLFDB3 05194000 RPLUINPT EQU RPLFDB3 05195000 RPLSTSAV EQU RPLFDB2 05196000 RPLCUERR EQU RPLFDB2 05197000 RPLDLGFL EQU RPLFDB2 05198000 RPLIOERR EQU RPLFDB2 05199000 RPLDVUNS EQU RPLFDB2 05200000 RPLATND EQU RPLFDB2 05201000 RPLRVID EQU RPLFDB2 05202000 RPLERLK EQU RPLFDB2 05203000 RPLERREG EQU RPLRTNCD 05204000 RPLSTAT EQU RPLFDBWD 05205000 RPLPOST EQU RPLECB 05206000 RPLWAIT EQU RPLECB 05207000 RPLPLHPT EQU RPLCOMN+4 05208000 RPLLEN2 EQU RPLLEN 05209000 RPLSTYP EQU RPLIDWD+1 05210000 RPLID EQU RPLIDWD 05211000 @NM00016 EQU ACBVTEXT+8 05212000 @NM00015 EQU ACBVTEXT+6 05213000 ACBRTN EQU ACBVTEXT 05214000 ACBAPID EQU ACBCOMN+72 05215000 ACBCBMWA EQU ACBCOMN+68 05216000 ACBUAPTR EQU ACBCOMN+64 05217000 ACBLRECL EQU ACBCOMN+62 05218000 ACBMSGLN EQU ACBBLKSZ 05219000 ACBBUFSP EQU ACBCOMN+56 05220000 @NM00014 EQU ACBUJFCB+1 05221000 ACBOPTN EQU ACBUJFCB 05222000 @NM00013 EQU ACBINFLG+1 05223000 ACBBYPSS EQU ACBINFLG 05224000 ACBSDS EQU ACBVVIC 05225000 ACBUCRA EQU ACBINFLG 05226000 ACBSCRA EQU ACBINFLG 05227000 ACBCAT EQU ACBINFLG 05228000 ACBIJRQE EQU ACBINFLG 05229000 ACBJEPS EQU ACBINFLG 05230000 @NM00012 EQU ACBINFLG 05231000 ACBERFLG EQU ACBCOMN+49 05232000 ACBBUSY EQU ACBIOSFG 05233000 ACBLOCK EQU ACBEXFG 05234000 @NM00011 EQU ACBOFLGS 05235000 ACBDSERR EQU ACBOFLGS 05236000 ACBOPEN EQU ACBOFLGS 05237000 ACBEOV EQU ACBOFLGS 05238000 @NM00010 EQU ACBOFLGS 05239000 ACBDEB EQU ACBDDNM+5 05240000 ACBERFL EQU ACBDDNM+4 05241000 ACBAM EQU ACBAMETH 05242000 ACBINFL EQU ACBDDNM+2 05243000 ACBTIOT EQU ACBDDNM 05244000 ACBUEL EQU ACBEXLST 05245000 ACBPASSW EQU ACBCOMN+32 05246000 ACBMSGAR EQU ACBCOMN+28 05247000 @NM00009 EQU ACBDSORG+1 05248000 ACBDORGA EQU ACBDSORG+1 05249000 @NM00008 EQU ACBDSORG 05250000 ACBOPTJ EQU ACBDVIND 05251000 ACBCRNRE EQU ACBCROPS 05252000 ACBCRNCK EQU ACBCROPS 05253000 ACBASA EQU ACBCCTYP 05254000 @NM00007 EQU ACBCCTYP 05255000 ACBTRCID EQU ACBCCTYP 05256000 @NM00006 EQU ACBRECFM 05257000 ACBRECAF EQU ACBRECFM 05258000 ACBJBUF EQU ACBBUFPL+2 05259000 ACBMACR4 EQU ACBBUFPL+1 05260000 @NM00005 EQU ACBMACR3 05261000 ACBNCFX EQU ACBMACR3 05262000 ACBSIS EQU ACBMACR3 05263000 ACBDFR EQU ACBMACR3 05264000 ACBICI EQU ACBMACR3 05265000 ACBGSR EQU ACBMACR3 05266000 ACBLSR EQU ACBMACR3 05267000 @NM00004 EQU ACBMACR3 05268000 ACBBUFNI EQU ACBCOMN+18 05269000 ACBBUFND EQU ACBCOMN+16 05270000 ACBSTRNO EQU ACBCOMN+15 05271000 ACBBSTNO EQU ACBCOMN+14 05272000 ACBAIX EQU ACBMACR2 05273000 ACBDSN EQU ACBMACR2 05274000 ACBRST EQU ACBMACR2 05275000 ACBLOGON EQU ACBMACR2 05276000 ACBSKP EQU ACBMACR2 05277000 @NM00003 EQU ACBMACR2 05278000 ACBUBF EQU ACBMACR1 05279000 ACBOUT EQU ACBMACR1 05280000 ACBIN EQU ACBMACR1 05281000 ACBDIR EQU ACBMACR1 05282000 ACBSEQ EQU ACBMACR1 05283000 ACBBLK EQU ACBCNV 05284000 ACBADD EQU ACBADR 05285000 ACBKEY EQU ACBMACR1 05286000 ACBINRTN EQU ACBCOMN+8 05287000 ACBIBCT EQU ACBJWA 05288000 ACBLEN2 EQU ACBLENG2 05289000 ACBSTYP EQU ACBCOMN+1 05290000 ACBID EQU ACBCOMN 05291000 CVTLEVL EQU CVTRELNO+2 05292000 CVTNUMB EQU CVTRELNO 05293000 CVTMDL EQU CVTFIX+250 05294000 @NM00002 EQU CVTFIX+248 05295000 @NM00001 EQU CVTFIX 05296000 CVTRV482 EQU CVTXTNT2+128 05297000 CVTRV481 EQU CVTXTNT2+124 05298000 CVTRV480 EQU CVTXTNT2+120 05299000 CVTRV479 EQU CVTXTNT2+118 05300000 CVTRV478 EQU CVTXTNT2+117 05301000 CVTRV477 EQU CVTXTNT2+116 05302000 CVTRV476 EQU CVTXTNT2+115 05303000 CVTRV475 EQU CVTXTNT2+114 05304000 CVTRV474 EQU CVTRV466 05305000 CVTRV473 EQU CVTRV466 05306000 CVTRV472 EQU CVTRV466 05307000 CVTRV471 EQU CVTRV466 05308000 CVTRV470 EQU CVTRV466 05309000 CVTRV469 EQU CVTRV466 05310000 CVTRV468 EQU CVTRV466 05311000 CVTRV467 EQU CVTRV466 05312000 CVTRV465 EQU CVTRV457 05313000 CVTRV464 EQU CVTRV457 05314000 CVTRV463 EQU CVTRV457 05315000 CVTRV462 EQU CVTRV457 05316000 CVTRV461 EQU CVTRV457 05317000 CVTRV460 EQU CVTRV457 05318000 CVTRV459 EQU CVTRV457 05319000 CVTRV458 EQU CVTRV457 05320000 CVTRV456 EQU CVTXTNT2+108 05321000 CVTRV455 EQU CVTXTNT2+104 05322000 CVTRV454 EQU CVTXTNT2+100 05323000 CVTRV453 EQU CVTXTNT2+96 05324000 CVTRV452 EQU CVTXTNT2+94 05325000 CVTRV451 EQU CVTXTNT2+92 05326000 CVTRV450 EQU CVTXTNT2+90 05327000 CVTRV449 EQU CVTXTNT2+88 05328000 CVTRV448 EQU CVTXTNT2+87 05329000 CVTRV447 EQU CVTXTNT2+86 05330000 CVTRV446 EQU CVTRV438 05331000 CVTRV445 EQU CVTRV438 05332000 CVTRV444 EQU CVTRV438 05333000 CVTRV443 EQU CVTRV438 05334000 CVTRV442 EQU CVTRV438 05335000 CVTRV441 EQU CVTRV438 05336000 CVTRV440 EQU CVTRV438 05337000 CVTRV439 EQU CVTRV438 05338000 CVTRV437 EQU CVTRV429 05339000 CVTRV436 EQU CVTRV429 05340000 CVTRV435 EQU CVTRV429 05341000 CVTRV434 EQU CVTRV429 05342000 CVTRV433 EQU CVTRV429 05343000 CVTRV432 EQU CVTRV429 05344000 CVTRV431 EQU CVTRV429 05345000 CVTRV430 EQU CVTRV429 05346000 CVTRV428 EQU CVTXTNT2+80 05347000 CVTRV427 EQU CVTXTNT2+76 05348000 CVTRV426 EQU CVTXTNT2+72 05349000 CVTRV425 EQU CVTXTNT2+68 05350000 CVTATACT EQU CVTATCVT 05351000 CVTRV423 EQU CVTXTNT2+62 05352000 CVTRV422 EQU CVTXTNT2+60 05353000 CVTRV421 EQU CVTXTNT2+58 05354000 CVTRV420 EQU CVTXTNT2+56 05355000 CVTRV419 EQU CVTXTNT2+55 05356000 CVTRV418 EQU CVTXTNT2+54 05357000 CVTRV417 EQU CVTRV409 05358000 CVTRV416 EQU CVTRV409 05359000 CVTRV415 EQU CVTRV409 05360000 CVTRV414 EQU CVTRV409 05361000 CVTRV413 EQU CVTRV409 05362000 CVTRV412 EQU CVTRV409 05363000 CVTRV411 EQU CVTRV409 05364000 CVTRV410 EQU CVTRV409 05365000 CVTRV408 EQU CVTRV400 05366000 CVTRV407 EQU CVTRV400 05367000 CVTRV406 EQU CVTRV400 05368000 CVTRV405 EQU CVTRV400 05369000 CVTRV404 EQU CVTRV400 05370000 CVTRV403 EQU CVTRV400 05371000 CVTRV402 EQU CVTRV400 05372000 CVTRV401 EQU CVTRV400 05373000 CVTICB EQU CVTXTNT2+48 05374000 CVTSKTA EQU CVTXTNT2+44 05375000 CVTSHSB EQU CVTSHS 05376000 CVTRSV98 EQU CVTXTNT2+36 05377000 CVTRSV97 EQU CVTXTNT2+34 05378000 CVTRSV96 EQU CVTXTNT2+32 05379000 CVTOLTEP EQU CVTXTNT2+28 05380000 CVTQIDA EQU CVTQID+1 05381000 CVTRSV95 EQU CVTQID 05382000 CVTRSV94 EQU CVTXTNT2+20 05383000 CVTRSV93 EQU CVTXTNT2+16 05384000 CVTRSV92 EQU CVTXTNT2+12 05385000 CVTDEBVR EQU CVTXTNT2+8 05386000 CVTRSV91 EQU CVTXTNT2+6 05387000 CVTRSV9H EQU CVTFLGBT 05388000 CVTRSV9G EQU CVTFLGBT 05389000 CVTRSV9F EQU CVTFLGBT 05390000 CVTRSV9E EQU CVTFLGBT 05391000 CVTRSV9D EQU CVTFLGBT 05392000 CVTRSV9C EQU CVTFLGBT 05393000 CVTVME EQU CVTFLGBT 05394000 CVTNPE EQU CVTFLGBT 05395000 CVTNUCLS EQU CVTXTNT2+4 05396000 CVTDSSVA EQU CVTDSSV+1 05397000 CVTRSV89 EQU CVTDSSV 05398000 CVTRSV88 EQU CVTXTNT1+8 05399000 CVTRSV87 EQU CVTXTNT1+4 05400000 CVTFACHN EQU CVTXTNT1 05401000 CVTRV488 EQU CVTMAP+412 05402000 CVTRV487 EQU CVTMAP+408 05403000 CVTRV486 EQU CVTMAP+404 05404000 CVTRV485 EQU CVTMAP+400 05405000 CVTACTAP EQU CVTMAP+396 05406000 CVTAUTH EQU CVTMAP+392 05407000 CVTATMCA EQU CVTATMCT+1 05408000 CVTATMST EQU CVTATMCT 05409000 CVTRSV61 EQU CVTMAP+384 05410000 CVTVOLT1 EQU CVTVOLM1+1 05411000 CVTVOLI1 EQU CVTVOLF1 05412000 CVTSTOA EQU CVTMAP+376 05413000 CVTRSV58 EQU CVTMAP+374 05414000 CVTRSV57 EQU CVTMAP+372 05415000 CVTDDCE EQU CVTMAP+368 05416000 CVTPNWFR EQU CVTMAP+364 05417000 CVTSMF EQU CVTMAP+360 05418000 CVTSULK EQU CVTMAP+358 05419000 CVTSLKO EQU CVTSYSK 05420000 CVTSLKP EQU CVTSYSK 05421000 CVTSLKQ EQU CVTSYSK 05422000 CVTSLKR EQU CVTSYSK 05423000 CVTRSV56 EQU CVTSYSK 05424000 CVTRSV55 EQU CVTSYSK 05425000 CVTRSV54 EQU CVTSYSK 05426000 CVTRSV53 EQU CVTSYSK 05427000 CVTRSV52 EQU CVTA1F1 05428000 CVTRSV51 EQU CVTA1F1 05429000 CVTRSV50 EQU CVTA1F1 05430000 CVTRSV49 EQU CVTA1F1 05431000 CVTRSV48 EQU CVTA1F1 05432000 CVTRSV47 EQU CVTA1F1 05433000 CVTSRSW EQU CVTA1F1 05434000 CVTPFSW EQU CVTA1F1 05435000 CVTPCVT EQU CVTMAP+352 05436000 CVTRSV46 EQU CVTMAP+344 05437000 CVTRSV45 EQU CVTMAP+340 05438000 CVTRSV44 EQU CVTMAP+338 05439000 CVTRSV43 EQU CVTMAP+336 05440000 CVTHJESA EQU CVTHJES+1 05441000 CVTRSV42 EQU CVTHJES 05442000 CVTEXT2A EQU CVTEXT2+1 05443000 CVTRSV41 EQU CVTEXT2 05444000 CVTAPFA EQU CVTAPF+1 05445000 CVTRSV40 EQU CVTAPF 05446000 CVTRV518 EQU CVTINTLA 05447000 CVTRV517 EQU CVTERPV 05448000 CVTEORM EQU CVTMAP+312 05449000 CVTMCHPR EQU CVTMAP+308 05450000 CVTTZ EQU CVTMAP+304 05451000 CVTJEPS EQU CVTMAP+300 05452000 CVTJESCT EQU CVTMAP+296 05453000 CVTMODE EQU CVTMAP+292 05454000 CVTPTRV EQU CVTMAP+288 05455000 CVTREAL EQU CVTMAP+284 05456000 CVTRSV39 EQU CVTMAP+280 05457000 CVTRSV38 EQU CVTMAP+276 05458000 CVTDMSRA EQU CVTDMSR+1 05459000 CVTRV634 EQU CVTDMSRF 05460000 CVTRV633 EQU CVTDMSRF 05461000 CVTRV632 EQU CVTDMSRF 05462000 CVTRV631 EQU CVTDMSRF 05463000 CVTRV630 EQU CVTDMSRF 05464000 CVTRV629 EQU CVTDMSRF 05465000 CVTUDUMP EQU CVTDMSRF 05466000 CVTSDUMP EQU CVTDMSRF 05467000 CVTQMSGA EQU CVTQMSG+1 05468000 CVTRSV36 EQU CVTQMSG 05469000 CVTAMFF EQU CVTMAP+264 05470000 CVTPURGA EQU CVTPURG+1 05471000 CVTRSV35 EQU CVTPURG 05472000 CVTCBSP EQU CVTMAP+256 05473000 CVTATERA EQU CVTATER+1 05474000 CVTSYST EQU CVTATER 05475000 CVTVOLT2 EQU CVTTAT 05476000 CVTVOLI2 EQU CVTVOLF2 05477000 CVTAQAVB EQU CVTAQAVT+1 05478000 CVTRSV34 EQU CVTTCMFG 05479000 CVTRSV33 EQU CVTTCMFG 05480000 CVTRSV32 EQU CVTTCMFG 05481000 CVTRSV31 EQU CVTTCMFG 05482000 CVTRSV30 EQU CVTTCMFG 05483000 CVTRSV29 EQU CVTTCMFG 05484000 CVTRSV28 EQU CVTTCMFG 05485000 CVTTCRDY EQU CVTTCMFG 05486000 CVTGTFA EQU CVTGTF+1 05487000 CVTRSV27 EQU CVTGTFST 05488000 CVTRNIO EQU CVTGTFST 05489000 CVTUSR EQU CVTGTFST 05490000 CVTRV318 EQU CVTFORM 05491000 CVTRV317 EQU CVTTMODE 05492000 CVTRV316 EQU CVTSTATE 05493000 CVTRV315 EQU CVTGTFS 05494000 CVTGTFAV EQU CVTGTFS 05495000 CVT0SCR1 EQU CVTMAP+232 05496000 CVTRV515 EQU CVTMAP+228 05497000 CVTRMS EQU CVTMAP+224 05498000 CVTPATCH EQU CVTMAP+220 05499000 CVTTSCE EQU CVTMAP+216 05500000 CVTLNKSC EQU CVTMAP+214 05501000 CVTQABST EQU CVTMAP+212 05502000 CVTMDLDS EQU CVTMAP+208 05503000 CVTUSER EQU CVTMAP+204 05504000 CVTABEND EQU CVTMAP+200 05505000 CVTSMCA EQU CVTMAP+196 05506000 CVTRSV18 EQU CVTMAP+192 05507000 CVTQLPAQ EQU CVTMAP+188 05508000 CVTQCDSR EQU CVTMAP+184 05509000 CVTRSV17 EQU CVTOPTB 05510000 CVTRSV16 EQU CVTOPTB 05511000 CVTFP EQU CVTOPTB 05512000 CVTAPTHR EQU CVTOPTB 05513000 CVTNLOG EQU CVTOPTB 05514000 CVTTOD EQU CVTOPTB 05515000 CVTCTIMS EQU CVTOPTB 05516000 CVTPROT EQU CVTOPTB 05517000 CVTXPFP EQU CVTOPTA 05518000 CVTASCII EQU CVTOPTA 05519000 CVTRSV13 EQU CVTOPTA 05520000 CVTRSV12 EQU CVTOPTA 05521000 CVTNIP EQU CVTOPTA 05522000 CVTDDR EQU CVTOPTA 05523000 CVTAPR EQU CVTOPTA 05524000 CVTCCH EQU CVTOPTA 05525000 CVTSNCTR EQU CVTMAP+180 05526000 CVTQMWR EQU CVTMAP+176 05527000 CVTQOCR EQU CVTMAP+172 05528000 CVT1EF00 EQU CVTMAP+168 05529000 CVTMZ00 EQU CVTMAP+164 05530000 CVTHEAD EQU CVTMAP+160 05531000 CVTRSV11 EQU CVTMAP+156 05532000 CVT0PT01 EQU CVTMAP+152 05533000 CVTMSER EQU CVTMAP+148 05534000 CVTRV516 EQU CVTIERLC 05535000 CVTILCH EQU CVTMAP+140 05536000 CVT0DS EQU CVTMAP+136 05537000 CVTFBOSV EQU CVTMAP+132 05538000 CVTNUCB EQU CVTMAP+128 05539000 CVTIXAVL EQU CVTMAP+124 05540000 CVTIOQET EQU CVTMAP+120 05541000 CVTDCBA EQU CVTMAP+117 05542000 CVTMVS2 EQU CVTDCB 05543000 CVT6DAT EQU CVTDCB 05544000 CVT4MPS EQU CVTDCB 05545000 CVTRSV09 EQU CVTDCB 05546000 CVT4MS1 EQU CVTDCB 05547000 CVT2SPS EQU CVTDCB 05548000 CVT1SSS EQU CVTDCB 05549000 CVTRSV08 EQU CVTDCB 05550000 CVTSTB EQU CVTMAP+112 05551000 CVTQTD00 EQU CVTMAP+108 05552000 CVTQTE00 EQU CVTMAP+104 05553000 CVTCUCB EQU CVTMAP+100 05554000 CVTSJQ EQU CVTMAP+96 05555000 CVTPBLDL EQU CVTMAP+92 05556000 CVTTPC EQU CVTMAP+88 05557000 CVTSVDCB EQU CVTMAP+84 05558000 CVTBRET EQU CVTMAP+82 05559000 CVTEXIT EQU CVTMAP+80 05560000 CVT0FN00 EQU CVTMAP+76 05561000 CVTDARA EQU CVTDAR+1 05562000 CVTRSV07 EQU CVTFLGS1 05563000 CVTRSV06 EQU CVTFLGS1 05564000 CVTRSV05 EQU CVTFLGS1 05565000 CVTRSV04 EQU CVTFLGS1 05566000 CVTRSV03 EQU CVTFLGS1 05567000 CVTRSV02 EQU CVTFLGS1 05568000 CVTRSV01 EQU CVTFLGS1 05569000 CVTDMPLK EQU CVTFLGS1 05570000 CVTXITP EQU CVTMAP+68 05571000 CVTZDTAB EQU CVTMAP+64 05572000 CVTMSLT EQU CVTMAP+60 05573000 CVTDATE EQU CVTMAP+56 05574000 CVTBTERM EQU CVTMAP+52 05575000 CVTSYSAD EQU CVTMAP+48 05576000 CVTXTLER EQU CVTMAP+44 05577000 CVTILK2 EQU CVTMAP+40 05578000 CVTILK1 EQU CVTMAP+36 05579000 CVTPRLTV EQU CVTMAP+32 05580000 CVTPCNVT EQU CVTMAP+28 05581000 CVT0VL00 EQU CVTMAP+24 05582000 CVTXAPG EQU CVTMAP+20 05583000 CVTBUF EQU CVTMAP+16 05584000 CVTJOB EQU CVTMAP+12 05585000 CVTLINK EQU CVTMAP+8 05586000 CVT0EF00 EQU CVTMAP+4 05587000 CVTTCBP EQU CVTMAP 05588000 CVT EQU CVTMAP 05589000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05590000 @RF00348 EQU @RC00346 05591000 @ENDDATA EQU * 05592000 END ISTOCCUR,(C'PLS2211',0701,77062) 05593000