TITLE 'IGG0CLA1 VSAM CATALOG TRANSIENT LOAD *00001000 ' 00002000 IGG0CLA1 CSECT , 0001 00003000 @PROLOG BALR @11,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@11 0001 00006000 * IF R1=0 /* RECURSION */ 00007000 * THEN 0028 00008000 LTR R1,R1 0028 00009000 BNZ @RF00028 0028 00010000 * DO; /* YES */ 00011000 * GOTO IGG0CLC9; /* BR TO IGG0CLC9 Y02020*/ 00012000 L @15,@CV01255 0030 00013000 BR @15 0030 00014000 * END; 0031 00015000 * ELSE 0032 00016000 * ; /* NO */ 00017000 @RF00028 DS 0H 0033 00018000 * CALL IGG0CLC9; /* CALL VSAM CATLG MGT Y02020*/ 00019000 L @15,@CV01255 0033 00020000 BALR @14,@15 0033 00021000 * GEN; 0034 00022000 * /* 00023000 RCLA1 LR @11,R14 SET UP BASE 00024000 USING RCLA1,@11 00025000 * IF CVOLRNAM(1:1)^='00'X THEN /* CVOL PROC REQD Y02020*/ 00026000 CLI CVOLRNAM(R12),X'00' 0035 00027000 BE @RF00035 0035 00028000 * LNAM=CVPNAM; /* YES,SET CVOL EXIT Y02020*/ 00029000 MVC LNAM+96(8,R5),@CC01252 0036 00030000 * ELSE /* NO, Y02020*/ 00031000 * LNAM=CAT2FNM; /* SET CONTROLLER EXIT Y02020*/ 00032000 B @RC00035 0037 00033000 @RF00035 MVC LNAM+96(8,R5),@CC01254 0037 00034000 * RFY 0038 00035000 * R15 RSTD; 0038 00036000 @RC00035 DS 0H 0039 00037000 * R15=ADDR(XCTLLST); /* GET ADDR OF XCTL LIST */ 00038000 LA R15,96 0039 00039000 ALR R15,R5 0039 00040000 * R15->XCTLNAM=ADDR(R15->LNAM); /* PTR TO NAME Y02020*/ 00041000 LA @10,LNAM(,R15) 0040 00042000 ST @10,XCTLNAM(,R15) 0040 00043000 * R15->XCTLDCB=0; /* INDICATE XCTL BY NAME */ 00044000 SLR @10,@10 0041 00045000 ST @10,XCTLDCB(,R15) 0041 00046000 * GEN(SVC 7); /* XCTL */ 00047000 SVC 7 00048000 *PATCH: 0043 00049000 * GEN(DC 10F'0' ); /* PATCH AREA */ 00050000 * 0043 00051000 PATCH DC 10F'0' 00052000 * /*****************************************************************/ 00053000 * /* */ 00054000 * /* */ 00055000 * /*****************************************************************/ 00056000 * 0044 00057000 * END IGG0CLA1 0044 00058000 * 0044 00059000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00060000 */*%INCLUDE SYSLIB (CVT ) */ 00061000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00062000 */*%INCLUDE SYSLIB (IHARB ) */ 00063000 */*%INCLUDE SYSLIB (IEZXRB ) */ 00064000 * 0044 00065000 * ; 0044 00066000 @EL00001 DS 0H 0044 00067000 @EF00001 DS 0H 0044 00068000 @ER00001 BR @14 0044 00069000 @DATA DS 0H 00070000 @DATD DSECT 00071000 DS 0F 00072000 IGG0CLA1 CSECT 00073000 DS 0F 00074000 @DATD DSECT 00075000 DS 0D 00076000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00077000 @ENDDATD EQU * 00078000 IGG0CLA1 CSECT 00079000 DS 0F 00080000 @SIZDATD DC AL1(0) 00081000 DC AL3(@ENDDATD-@DATD) 00082000 @CV01255 DC V(IGG0CLC9) 00083000 DS 0D 00084000 @CC01252 DC C'IGG0CLCA' 00085000 @CC01254 DC C'IGG0102F' 00086000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00087000 @01 EQU 01 00088000 @02 EQU 02 00089000 @03 EQU 03 00090000 @04 EQU 04 00091000 @05 EQU 05 00092000 @06 EQU 06 00093000 @07 EQU 07 00094000 @08 EQU 08 00095000 @09 EQU 09 00096000 @10 EQU 10 00097000 @11 EQU 11 00098000 @12 EQU 12 00099000 @13 EQU 13 00100000 @14 EQU 14 00101000 @15 EQU 15 00102000 RBSECPTR EQU @01 00103000 R5 EQU @05 00104000 CDBPTR EQU @01 00105000 R12 EQU @12 00106000 R2 EQU @02 00107000 R0 EQU @00 00108000 R1 EQU @01 00109000 R9 EQU @09 00110000 R14 EQU @14 00111000 R15 EQU @15 00112000 CVTPTR EQU 16 00113000 CVTMAP EQU 0 00114000 CVTTCBP EQU CVTMAP 00115000 CVTDAR EQU CVTMAP+72 00116000 CVTFLGS1 EQU CVTDAR 00117000 CVTDCB EQU CVTMAP+116 00118000 CVTIERLC EQU CVTMAP+144 00119000 CVTOPTA EQU CVTMAP+182 00120000 CVTOPTB EQU CVTMAP+183 00121000 CVTGTF EQU CVTMAP+236 00122000 CVTGTFST EQU CVTGTF 00123000 CVTGTFS EQU CVTGTFST 00124000 CVTSTATE EQU CVTGTFST 00125000 CVTTMODE EQU CVTGTFST 00126000 CVTFORM EQU CVTGTFST 00127000 CVTAQAVT EQU CVTMAP+240 00128000 CVTTCMFG EQU CVTAQAVT 00129000 CVTVOLM2 EQU CVTMAP+244 00130000 CVTTATA EQU CVTVOLM2 00131000 CVTTSKS EQU CVTTATA 00132000 CVTVOLF2 EQU CVTTSKS 00133000 CVTTAT EQU CVTTATA+1 00134000 CVTATER EQU CVTMAP+248 00135000 CVTEXT1 EQU CVTMAP+252 00136000 CVTPURG EQU CVTMAP+260 00137000 CVTQMSG EQU CVTMAP+268 00138000 CVTDMSR EQU CVTMAP+272 00139000 CVTERPV EQU CVTMAP+316 00140000 CVTINTLA EQU CVTMAP+320 00141000 CVTAPF EQU CVTMAP+324 00142000 CVTEXT2 EQU CVTMAP+328 00143000 CVTHJES EQU CVTMAP+332 00144000 CVTPGSIA EQU CVTMAP+348 00145000 CVTA1F1 EQU CVTMAP+356 00146000 CVTSYSK EQU CVTMAP+357 00147000 CVTVOLM1 EQU CVTMAP+380 00148000 CVTVOLF1 EQU CVTVOLM1 00149000 CVTATMCT EQU CVTMAP+388 00150000 CVTXTNT1 EQU 0 00151000 CVTXTNT2 EQU 0 00152000 CVTDSSV EQU CVTXTNT2 00153000 CVTFLGBT EQU CVTXTNT2+5 00154000 CVTQID EQU CVTXTNT2+24 00155000 CVTRV400 EQU CVTXTNT2+52 00156000 CVTRV409 EQU CVTXTNT2+53 00157000 CVTATCVT EQU CVTXTNT2+64 00158000 CVTRV429 EQU CVTXTNT2+84 00159000 CVTRV438 EQU CVTXTNT2+85 00160000 CVTRV457 EQU CVTXTNT2+112 00161000 CVTRV466 EQU CVTXTNT2+113 00162000 CVTFIX EQU 0 00163000 CVTRELNO EQU CVTFIX+252 00164000 TCBWORDS EQU 0 00165000 TCBPTR EQU TCBWORDS+4 00166000 TCBFIX EQU 0 00167000 TCBFRS EQU TCBFIX 00168000 TCB EQU 0 00169000 TCBPIE EQU TCB+4 00170000 TCBPMASK EQU TCBPIE 00171000 TCBCMP EQU TCB+16 00172000 TCBCMPF EQU TCBCMP 00173000 TCBCPP EQU TCBCMPF 00174000 TCBSTCC EQU TCBCMPF 00175000 TCBCDBL EQU TCBCMPF 00176000 TCBCWTO EQU TCBCMPF 00177000 TCBCIND EQU TCBCMPF 00178000 TCBCMSG EQU TCBCMPF 00179000 TCBTRN EQU TCB+20 00180000 TCBABF EQU TCBTRN 00181000 TCBMSS EQU TCB+24 00182000 TCBPKF EQU TCB+28 00183000 TCBFLGS EQU TCB+29 00184000 TCBFLGS1 EQU TCBFLGS 00185000 TCBFLGS2 EQU TCBFLGS+1 00186000 TCBFLGS3 EQU TCBFLGS+2 00187000 TCBFLGS4 EQU TCBFLGS+3 00188000 TCBFLGS5 EQU TCBFLGS+4 00189000 TCBABWF EQU TCBFLGS5 00190000 TCBJPQ EQU TCB+44 00191000 TCBPURGE EQU TCBJPQ 00192000 TCBGRS EQU TCB+48 00193000 TCBFSA EQU TCB+112 00194000 TCBTME EQU TCB+120 00195000 TCBJSTCB EQU TCB+124 00196000 TCBTSFLG EQU TCB+148 00197000 TCBTSTSK EQU TCBTSFLG 00198000 TCBSTAB EQU TCB+160 00199000 TCBNSTAE EQU TCBSTAB 00200000 TCBTCT EQU TCB+164 00201000 TCBTCTGF EQU TCBTCT 00202000 TCBSCNDY EQU TCB+172 00203000 TCBNDSP EQU TCBSCNDY 00204000 TCBNDSP1 EQU TCBNDSP+1 00205000 TCBNDSP2 EQU TCBNDSP+2 00206000 TCBNDSP3 EQU TCBNDSP+3 00207000 TCBJSCB EQU TCB+180 00208000 TCBRECDE EQU TCBJSCB 00209000 TCBEXT1 EQU TCB+196 00210000 TCBBITS EQU TCB+200 00211000 TCBNDSP4 EQU TCBBITS 00212000 TCBNDSP5 EQU TCBBITS+1 00213000 TCBFLGS6 EQU TCBBITS+2 00214000 TCBFLGS7 EQU TCBBITS+3 00215000 TCBDAR EQU TCB+204 00216000 TCBDARC EQU TCBDAR 00217000 TCBEXT2 EQU TCB+208 00218000 TCBFOE EQU TCB+244 00219000 TCBESTAE EQU TCB+264 00220000 TCBESTRM EQU TCBESTAE+1 00221000 TCBFBYT1 EQU TCB+276 00222000 TCBFBYT2 EQU TCB+277 00223000 TCBRV124 EQU TCB+278 00224000 TCBRV133 EQU TCB+279 00225000 TCBXTNT2 EQU 0 00226000 TCBGTF EQU TCBXTNT2 00227000 TCBTFLG EQU TCBGTF 00228000 TCBRV146 EQU TCBXTNT2+28 00229000 TCBRV155 EQU TCBXTNT2+29 00230000 TCBRV164 EQU TCBXTNT2+30 00231000 TCBRV173 EQU TCBXTNT2+31 00232000 RBPRFX EQU 0 00233000 RBBASIC EQU 0 00234000 RBEXRTNM EQU RBBASIC 00235000 RBTMFLD EQU RBEXRTNM 00236000 RBSTAB EQU RBBASIC+10 00237000 XSTAB EQU RBSTAB 00238000 RBSTAB1 EQU XSTAB 00239000 XSTAB1 EQU RBSTAB1 00240000 RBFTCKPT EQU XSTAB1 00241000 RBSTAB2 EQU XSTAB+1 00242000 XSTAB2 EQU RBSTAB2 00243000 RBTCBNXT EQU XSTAB2 00244000 RBFACTV EQU XSTAB2 00245000 RBFDYN EQU XSTAB2 00246000 RBECBWT EQU XSTAB2 00247000 RBOPSW EQU RBBASIC+16 00248000 RBLINK EQU RBBASIC+28 00249000 XRBLNK EQU RBLINK 00250000 RBWCF EQU XRBLNK 00251000 RBLINKB EQU XRBLNK+1 00252000 RBGRSAVE EQU RBBASIC+32 00253000 XRBREG EQU RBGRSAVE 00254000 RBGRS0 EQU XRBREG 00255000 RBGRS1 EQU XRBREG+4 00256000 RBGRS2 EQU XRBREG+8 00257000 RBGRS3 EQU XRBREG+12 00258000 RBGRS4 EQU XRBREG+16 00259000 RBGRS5 EQU XRBREG+20 00260000 RBGRS6 EQU XRBREG+24 00261000 RBGRS7 EQU XRBREG+28 00262000 RBGRS8 EQU XRBREG+32 00263000 RBGRS9 EQU XRBREG+36 00264000 RBGRS10 EQU XRBREG+40 00265000 RBGRS11 EQU XRBREG+44 00266000 RBGRS12 EQU XRBREG+48 00267000 RBGRS13 EQU XRBREG+52 00268000 RBGRS14 EQU XRBREG+56 00269000 RBGRS15 EQU XRBREG+60 00270000 XRBESA EQU RBBASIC+96 00271000 XRBPRFX EQU 0 00272000 XRBPRFX1 EQU 0 00273000 XRB EQU 0 00274000 @NM00016 EQU XRB+10 00275000 @NM00017 EQU @NM00016 00276000 XRBLRBFX EQU @NM00017 00277000 @NM00019 EQU @NM00016+1 00278000 @NM00020 EQU @NM00019 00279000 @NM00021 EQU @NM00019 00280000 XRBWTL EQU XRB+12 00281000 XRBEP EQU XRBWTL 00282000 @NM00024 EQU XRB+16 00283000 XRTLPRB EQU @NM00024+4 00284000 XRBLOCK EQU XRTLPRB 00285000 XRBFLAG1 EQU XRBLOCK 00286000 @NM00027 EQU XRB+28 00287000 CDB EQU 0 00288000 CDBMDAD EQU CDB 00289000 CDBMDSZ EQU CDB+4 00290000 XCTLLST EQU 0 00291000 XCTLNAM EQU XCTLLST 00292000 XCTLDCB EQU XCTLLST+4 00293000 LNAM EQU XCTLLST+8 00294000 CVOLWA EQU 0 00295000 CVOLRNAM EQU CVOLWA+500 00296000 CVTS01 EQU CVTPGSIA 00297000 CVTLPDIA EQU CVTS01+12 00298000 CVTDIRST EQU CVTLPDIA 00299000 CVTSLIDA EQU CVTS01+24 00300000 CVTCTLFG EQU CVTS01+50 00301000 CVTRV210 EQU CVTS01+424 00302000 CVTRV219 EQU CVTS01+425 00303000 CVTRV228 EQU CVTS01+426 00304000 CVTRV237 EQU CVTS01+427 00305000 CVTMFRTR EQU CVTS01+452 00306000 CVTRV262 EQU CVTS01+468 00307000 CVTRV271 EQU CVTS01+469 00308000 CVTRV280 EQU CVTS01+470 00309000 CVTRV289 EQU CVTS01+471 00310000 CVTGSDA EQU CVTS01+600 00311000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00312000 CVTRV628 EQU CVTS01+728 00313000 CVTRV627 EQU CVTS01+724 00314000 CVTRV626 EQU CVTS01+720 00315000 CVTRV625 EQU CVTS01+716 00316000 CVTRV624 EQU CVTS01+712 00317000 CVTRV623 EQU CVTS01+708 00318000 CVTRV622 EQU CVTS01+704 00319000 CVTRV621 EQU CVTS01+700 00320000 CVTRV620 EQU CVTS01+696 00321000 CVTRV619 EQU CVTS01+692 00322000 CVTRV618 EQU CVTS01+688 00323000 CVTRV617 EQU CVTS01+684 00324000 CVTRV616 EQU CVTS01+680 00325000 CVTRV615 EQU CVTS01+676 00326000 CVTRV614 EQU CVTS01+672 00327000 CVTRV613 EQU CVTS01+668 00328000 CVTRV612 EQU CVTS01+664 00329000 CVTRV611 EQU CVTS01+660 00330000 CVTRV610 EQU CVTS01+656 00331000 CVTRV609 EQU CVTS01+652 00332000 CVTRV608 EQU CVTS01+648 00333000 CVTRV607 EQU CVTS01+644 00334000 CVTRV606 EQU CVTS01+640 00335000 CVTRV605 EQU CVTS01+636 00336000 CVTRV604 EQU CVTS01+632 00337000 CVTEFF02 EQU CVTS01+628 00338000 CVTCBBR EQU CVTS01+624 00339000 CVTSSCR EQU CVTS01+620 00340000 CVTEVENT EQU CVTS01+616 00341000 CVTCRCA EQU CVTS01+612 00342000 CVTTPIO EQU CVTS01+608 00343000 CVTADV EQU CVTS01+604 00344000 CVTGSDAB EQU CVTGSDA 00345000 CVTQV3 EQU CVTS01+596 00346000 CVTQV2 EQU CVTS01+592 00347000 CVTQV1 EQU CVTS01+588 00348000 CVTRPT EQU CVTS01+584 00349000 CVTSSRB EQU CVTS01+580 00350000 CVTCSDRL EQU CVTS01+576 00351000 CVTEXP1 EQU CVTS01+572 00352000 CVTRMPMT EQU CVTS01+568 00353000 CVTRMPTT EQU CVTS01+564 00354000 CVTVPSA EQU CVTS01+560 00355000 CVTVSTOP EQU CVTS01+556 00356000 CVTGTFR8 EQU CVTS01+552 00357000 CVTQUIT EQU CVTS01+548 00358000 CVTVACR EQU CVTS01+544 00359000 CVTWTCB EQU CVTS01+540 00360000 CVTSTPRS EQU CVTS01+536 00361000 CVT0PT02 EQU CVTS01+532 00362000 CVTDARCM EQU CVTS01+528 00363000 CVTIRECM EQU CVTS01+524 00364000 CVTJRECM EQU CVTS01+520 00365000 CVTVEMS0 EQU CVTS01+516 00366000 CVTSPFRR EQU CVTS01+512 00367000 CVTRLSTG EQU CVTS01+508 00368000 CVT0TC0A EQU CVTS01+504 00369000 CVTGMBR EQU CVTS01+500 00370000 CVTLFRM EQU CVTS01+496 00371000 CVTRMBR EQU CVTS01+492 00372000 CVTVIOP EQU CVTS01+488 00373000 CVTRV307 EQU CVTS01+486 00374000 CVTRV306 EQU CVTS01+484 00375000 CVTRV305 EQU CVTS01+482 00376000 CVTRV304 EQU CVTS01+480 00377000 CVTRV303 EQU CVTS01+478 00378000 CVTRV302 EQU CVTS01+476 00379000 CVTRV301 EQU CVTS01+475 00380000 CVTRV300 EQU CVTS01+474 00381000 CVTRV299 EQU CVTS01+473 00382000 CVTRV298 EQU CVTS01+472 00383000 CVTRV297 EQU CVTRV289 00384000 CVTRV296 EQU CVTRV289 00385000 CVTRV295 EQU CVTRV289 00386000 CVTRV294 EQU CVTRV289 00387000 CVTRV293 EQU CVTRV289 00388000 CVTRV292 EQU CVTRV289 00389000 CVTRV291 EQU CVTRV289 00390000 CVTRV290 EQU CVTRV289 00391000 CVTRV288 EQU CVTRV280 00392000 CVTRV287 EQU CVTRV280 00393000 CVTRV286 EQU CVTRV280 00394000 CVTRV285 EQU CVTRV280 00395000 CVTRV284 EQU CVTRV280 00396000 CVTRV283 EQU CVTRV280 00397000 CVTRV282 EQU CVTRV280 00398000 CVTRV281 EQU CVTRV280 00399000 CVTRV279 EQU CVTRV271 00400000 CVTRV278 EQU CVTRV271 00401000 CVTRV277 EQU CVTRV271 00402000 CVTRV276 EQU CVTRV271 00403000 CVTRV275 EQU CVTRV271 00404000 CVTRV274 EQU CVTRV271 00405000 CVTRV273 EQU CVTRV271 00406000 CVTRV272 EQU CVTRV271 00407000 CVTRV270 EQU CVTRV262 00408000 CVTRV269 EQU CVTRV262 00409000 CVTRV268 EQU CVTRV262 00410000 CVTRV267 EQU CVTRV262 00411000 CVTRV266 EQU CVTRV262 00412000 CVTRV265 EQU CVTRV262 00413000 CVTRV264 EQU CVTRV262 00414000 CVTRV263 EQU CVTRV262 00415000 CVTVFP EQU CVTS01+464 00416000 CVTVSI EQU CVTS01+460 00417000 CVTVPSIB EQU CVTS01+456 00418000 CVTMFACT EQU CVTMFRTR 00419000 CVTMFCTL EQU CVTS01+448 00420000 CVTPVBP EQU CVTS01+444 00421000 CVTPWI EQU CVTS01+440 00422000 CVTRV254 EQU CVTS01+438 00423000 CVTRV253 EQU CVTS01+436 00424000 CVTRV252 EQU CVTS01+434 00425000 CVTRV251 EQU CVTS01+433 00426000 CVTRV250 EQU CVTS01+432 00427000 CVTRV249 EQU CVTS01+431 00428000 CVTRV248 EQU CVTS01+430 00429000 CVTRV247 EQU CVTS01+429 00430000 CVTRV246 EQU CVTS01+428 00431000 CVTRV245 EQU CVTRV237 00432000 CVTRV244 EQU CVTRV237 00433000 CVTRV243 EQU CVTRV237 00434000 CVTRV242 EQU CVTRV237 00435000 CVTRV241 EQU CVTRV237 00436000 CVTRV240 EQU CVTRV237 00437000 CVTRV239 EQU CVTRV237 00438000 CVTRV238 EQU CVTRV237 00439000 CVTRV236 EQU CVTRV228 00440000 CVTRV235 EQU CVTRV228 00441000 CVTRV234 EQU CVTRV228 00442000 CVTRV233 EQU CVTRV228 00443000 CVTRV232 EQU CVTRV228 00444000 CVTRV231 EQU CVTRV228 00445000 CVTRV230 EQU CVTRV228 00446000 CVTRV229 EQU CVTRV228 00447000 CVTRV227 EQU CVTRV219 00448000 CVTRV226 EQU CVTRV219 00449000 CVTRV225 EQU CVTRV219 00450000 CVTRV224 EQU CVTRV219 00451000 CVTRV223 EQU CVTRV219 00452000 CVTRV222 EQU CVTRV219 00453000 CVTRV221 EQU CVTRV219 00454000 CVTRV220 EQU CVTRV219 00455000 CVTRV218 EQU CVTRV210 00456000 CVTRV217 EQU CVTRV210 00457000 CVTRV216 EQU CVTRV210 00458000 CVTRV215 EQU CVTRV210 00459000 CVTRV214 EQU CVTRV210 00460000 CVTRV213 EQU CVTRV210 00461000 CVTRV212 EQU CVTRV210 00462000 CVTRV211 EQU CVTRV210 00463000 CVTLCCAT EQU CVTS01+420 00464000 CVTPCCAT EQU CVTS01+416 00465000 CVTIPCRP EQU CVTS01+412 00466000 CVTIPCRI EQU CVTS01+408 00467000 CVTIPCDS EQU CVTS01+404 00468000 CVTAIDVT EQU CVTS01+400 00469000 CVTSSAP EQU CVTS01+396 00470000 CVTEHCIR EQU CVTS01+392 00471000 CVTEHDEF EQU CVTS01+388 00472000 CVTDAIR EQU CVTS01+384 00473000 CVTPERFM EQU CVTS01+380 00474000 CVT044R2 EQU CVTS01+376 00475000 CVTFETCH EQU CVTS01+372 00476000 CVTRSTWD EQU CVTS01+368 00477000 CVTSPOST EQU CVTS01+364 00478000 CVTIOBP EQU CVTS01+360 00479000 CVTASMVT EQU CVTS01+356 00480000 CVTRECRQ EQU CVTS01+352 00481000 CVTWSAC EQU CVTS01+348 00482000 CVTRV149 EQU CVTS01+344 00483000 CVTWSAL EQU CVTS01+340 00484000 CVTSPSA EQU CVTS01+336 00485000 CVTGLMN EQU CVTS01+332 00486000 CVTVEAC0 EQU CVTS01+328 00487000 CVT062R1 EQU CVTS01+324 00488000 CVTRPOST EQU CVTS01+320 00489000 CVTDQIQE EQU CVTS01+316 00490000 CVTCSD EQU CVTS01+312 00491000 CVTLKRMA EQU CVTS01+308 00492000 CVTRSPIE EQU CVTS01+304 00493000 CVTRENQ EQU CVTS01+300 00494000 CVTLQCB EQU CVTS01+296 00495000 CVTFQCB EQU CVTS01+292 00496000 CVTQCS01 EQU CVTS01+288 00497000 CVTAPFT EQU CVTS01+284 00498000 CVTPARRL EQU CVTS01+280 00499000 CVTVWAIT EQU CVTS01+276 00500000 CVTGSPL EQU CVTS01+272 00501000 CVTLSMQ EQU CVTS01+268 00502000 CVTGSMQ EQU CVTS01+264 00503000 CVTEXPRO EQU CVTS01+260 00504000 CVTOPCTP EQU CVTS01+256 00505000 CVTSIC EQU CVTS01+252 00506000 CVTTPIOS EQU CVTS01+248 00507000 CVTRTMS EQU CVTS01+244 00508000 CVTSDBF EQU CVTS01+240 00509000 CVTSCBP EQU CVTS01+236 00510000 CVTSDMP EQU CVTS01+232 00511000 CVTSV60 EQU CVTS01+228 00512000 CVTRTMCT EQU CVTS01+224 00513000 CVTASCBL EQU CVTS01+220 00514000 CVTASCBH EQU CVTS01+216 00515000 CVTGDA EQU CVTS01+212 00516000 CVTASVT EQU CVTS01+208 00517000 CVTVVMDI EQU CVTS01+204 00518000 CVTAQTOP EQU CVTS01+200 00519000 CVTIOSCS EQU CVTS01+196 00520000 CVTSDRM EQU CVTS01+192 00521000 CVTOPTE EQU CVTS01+188 00522000 CVTSTXU EQU CVTS01+184 00523000 CVTQUIS EQU CVTS01+180 00524000 CVTPARS EQU CVTS01+176 00525000 CVTS1EE EQU CVTS01+172 00526000 CVTFRAS EQU CVTS01+168 00527000 CVTQSAS EQU CVTS01+164 00528000 CVTCRAS EQU CVTS01+160 00529000 CVTCRMN EQU CVTS01+156 00530000 CVTDELCP EQU CVTS01+152 00531000 CVTFRECL EQU CVTS01+148 00532000 CVTGETCL EQU CVTS01+144 00533000 CVTBLDCP EQU CVTS01+140 00534000 CVTAUTHL EQU CVTS01+136 00535000 CVTSCAN EQU CVTS01+132 00536000 CVTRV144 EQU CVTS01+130 00537000 CVTMAXMP EQU CVTS01+128 00538000 CVTSTCK EQU CVTS01+124 00539000 CVTRV139 EQU CVTS01+123 00540000 CVTDSSAC EQU CVTS01+122 00541000 CVTRV513 EQU CVTS01+121 00542000 CVTIOSPL EQU CVTS01+120 00543000 CVTPTGT EQU CVTS01+116 00544000 CVTCSPIE EQU CVTS01+112 00545000 CVTSMFEX EQU CVTS01+108 00546000 CVTOLT0A EQU CVTS01+104 00547000 CVTSRBRT EQU CVTS01+100 00548000 CVTPUTL EQU CVTS01+96 00549000 CVTRV519 EQU CVTS01+92 00550000 CVTRV327 EQU CVTS01+88 00551000 CVTRV326 EQU CVTS01+84 00552000 CVTRV325 EQU CVTS01+80 00553000 CVTRV324 EQU CVTS01+76 00554000 CVT0VL01 EQU CVTS01+72 00555000 CVTSHRVM EQU CVTS01+68 00556000 CVTRV332 EQU CVTS01+64 00557000 CVTTAS EQU CVTS01+60 00558000 CVTRSCN EQU CVTS01+56 00559000 CVTTRAC2 EQU CVTS01+54 00560000 CVTTRACE EQU CVTS01+52 00561000 CVTAPG EQU CVTS01+51 00562000 CVTSDTRC EQU CVTCTLFG 00563000 CVTGTRCE EQU CVTCTLFG 00564000 CVTNOMP EQU CVTCTLFG 00565000 CVTRSV79 EQU CVTCTLFG 00566000 CVTDSTAT EQU CVTCTLFG 00567000 CVTRSV78 EQU CVTCTLFG 00568000 CVTRV333 EQU CVTCTLFG 00569000 CVTRV323 EQU CVTCTLFG 00570000 CVTSPVLK EQU CVTS01+49 00571000 CVTRSV77 EQU CVTS01+48 00572000 CVTRV331 EQU CVTS01+44 00573000 CVTRV330 EQU CVTS01+40 00574000 CVTRV329 EQU CVTS01+36 00575000 CVTRV328 EQU CVTS01+32 00576000 CVTRV322 EQU CVTS01+28 00577000 CVTSLID EQU CVTSLIDA+1 00578000 CVTSYLK EQU CVTSLIDA 00579000 CVTRV321 EQU CVTS01+20 00580000 CVTRV320 EQU CVTS01+16 00581000 CVTLPDIR EQU CVTLPDIA+1 00582000 CVTRSV69 EQU CVTDIRST 00583000 CVTRSV68 EQU CVTDIRST 00584000 CVTRSV67 EQU CVTDIRST 00585000 CVTRSV66 EQU CVTDIRST 00586000 CVTRSV65 EQU CVTDIRST 00587000 CVTRSV64 EQU CVTDIRST 00588000 CVTRSV63 EQU CVTDIRST 00589000 CVTDICOM EQU CVTDIRST 00590000 CVTPVTP EQU CVTS01+8 00591000 CVTLPDSR EQU CVTS01+4 00592000 CVTGETL EQU CVTS01 00593000 CVOLANAM EQU CVOLWA+544 00594000 @NM00032 EQU CVOLWA 00595000 CDBMDSZA EQU CDBMDSZ+1 00596000 CDBSUBPL EQU CDBMDSZ 00597000 CDBMDADA EQU CDBMDAD+1 00598000 CDBNLSZ EQU CDBMDAD 00599000 XSVRBEND EQU XRB+152 00600000 @NM00031 EQU XRB+96 00601000 XSIRBEND EQU XRB+96 00602000 XIRBEND EQU XRB+96 00603000 @NM00030 EQU XRB+32 00604000 XLPRBEND EQU XRB+32 00605000 XPRBEND EQU XRB+32 00606000 @NM00029 EQU @NM00027+1 00607000 @NM00028 EQU @NM00027 00608000 XRBQ EQU XRB+24 00609000 XFRBEND EQU XRB+24 00610000 @NM00026 EQU XRTLPRB+1 00611000 XRBWTIS EQU XRBFLAG1 00612000 @NM00025 EQU XRBFLAG1 00613000 XRBSRSW EQU XRBFLAG1 00614000 XRBPFSW EQU XRBFLAG1 00615000 XRREQ EQU @NM00024 00616000 XLRBEND EQU XRB+16 00617000 XRBEPA EQU XRBEP+1 00618000 XRBUSE EQU XRBEP 00619000 @NM00023 EQU @NM00019 00620000 @NM00022 EQU @NM00019 00621000 XRBIRBBT EQU @NM00019 00622000 XRBREUS EQU @NM00019 00623000 XRBRSREG EQU @NM00019 00624000 XRBGTMAN EQU @NM00021 00625000 XRBNRENT EQU @NM00020 00626000 XRBREFR EQU @NM00017 00627000 XRBETXR EQU XRBLRBFX 00628000 @NM00018 EQU @NM00017 00629000 XRBSVRES EQU @NM00017 00630000 XRBTYPF EQU @NM00017 00631000 XRBSZY EQU XRB+9 00632000 XRBCDBPY EQU XRB+8 00633000 XRBNM EQU XRB 00634000 XRBPFXND EQU XRBPRFX1+8 00635000 XRBPRE EQU XRBPRFX1+4 00636000 XRBSUC EQU XRBPRFX1 00637000 XRBQMAJ EQU XRBPRFX+4 00638000 @NM00015 EQU XRBPRFX 00639000 RBEXSAVE EQU XRBESA 00640000 XRBREG15 EQU RBGRS15 00641000 XRBREG14 EQU RBGRS14 00642000 XRBREG13 EQU RBGRS13 00643000 XRBREG12 EQU RBGRS12 00644000 XRBREG11 EQU RBGRS11 00645000 XRBREG10 EQU RBGRS10 00646000 XRBREG9 EQU RBGRS9 00647000 XRBREG8 EQU RBGRS8 00648000 XRBREG7 EQU RBGRS7 00649000 XRBREG6 EQU RBGRS6 00650000 XRBREG5 EQU RBGRS5 00651000 XRBREG4 EQU RBGRS4 00652000 XRBREG3 EQU RBGRS3 00653000 XRBREG2 EQU RBGRS2 00654000 XRBREG1 EQU RBGRS1 00655000 XRBREG0 EQU RBGRS0 00656000 XRBLNKA EQU RBLINKB 00657000 XRBWT EQU RBWCF 00658000 @NM00014 EQU RBBASIC+24 00659000 XRBPSW EQU RBOPSW 00660000 @NM00013 EQU RBBASIC+12 00661000 XRBWAIT EQU RBECBWT 00662000 XRBFRRB EQU RBFDYN 00663000 @NM00012 EQU XSTAB2 00664000 XRBACTV EQU RBFACTV 00665000 XRBTCBP EQU RBTCBNXT 00666000 @NM00011 EQU XSTAB1 00667000 XRBCKPT EQU RBFTCKPT 00668000 @NM00010 EQU XSTAB1 00669000 @NM00009 EQU RBBASIC+8 00670000 @NM00008 EQU RBEXRTNM+1 00671000 RBTMIND3 EQU RBTMFLD 00672000 RBTMIND2 EQU RBTMFLD 00673000 RBTMCMP EQU RBTMFLD 00674000 RBWLIM EQU RBTMFLD 00675000 RBRSV005 EQU RBTMFLD 00676000 RBTMTOD EQU RBTMFLD 00677000 RBTMQUE EQU RBTMFLD 00678000 @NM00007 EQU RBPRFX 00679000 @NM00006 EQU TCBXTNT2+32 00680000 TCBRV181 EQU TCBRV173 00681000 TCBRV180 EQU TCBRV173 00682000 TCBRV179 EQU TCBRV173 00683000 TCBRV178 EQU TCBRV173 00684000 TCBRV177 EQU TCBRV173 00685000 TCBRV176 EQU TCBRV173 00686000 TCBRV175 EQU TCBRV173 00687000 TCBRV174 EQU TCBRV173 00688000 TCBRV172 EQU TCBRV164 00689000 TCBRV171 EQU TCBRV164 00690000 TCBRV170 EQU TCBRV164 00691000 TCBRV169 EQU TCBRV164 00692000 TCBRV168 EQU TCBRV164 00693000 TCBRV167 EQU TCBRV164 00694000 TCBRV166 EQU TCBRV164 00695000 TCBRV165 EQU TCBRV164 00696000 TCBRV163 EQU TCBRV155 00697000 TCBRV162 EQU TCBRV155 00698000 TCBRV161 EQU TCBRV155 00699000 TCBRV160 EQU TCBRV155 00700000 TCBRV159 EQU TCBRV155 00701000 TCBRV158 EQU TCBRV155 00702000 TCBRV157 EQU TCBRV155 00703000 TCBRV156 EQU TCBRV155 00704000 TCBRV154 EQU TCBRV146 00705000 TCBRV153 EQU TCBRV146 00706000 TCBRV152 EQU TCBRV146 00707000 TCBRV151 EQU TCBRV146 00708000 TCBRV150 EQU TCBRV146 00709000 TCBRV149 EQU TCBRV146 00710000 TCBRV148 EQU TCBRV146 00711000 TCBRV147 EQU TCBRV146 00712000 TCBRV145 EQU TCBXTNT2+26 00713000 TCBRV144 EQU TCBXTNT2+24 00714000 TCBRV143 EQU TCBXTNT2+20 00715000 TCBRV142 EQU TCBXTNT2+16 00716000 TCBRSV49 EQU TCBXTNT2+12 00717000 TCBRSV48 EQU TCBXTNT2+8 00718000 TCBRCMP EQU TCBXTNT2+5 00719000 TCBRSVAB EQU TCBXTNT2+4 00720000 TCBGTFA EQU TCBGTF+1 00721000 TCBRSV47 EQU TCBTFLG 00722000 TCBRSV46 EQU TCBTFLG 00723000 TCBRSV45 EQU TCBTFLG 00724000 TCBRSV44 EQU TCBTFLG 00725000 TCBRSV43 EQU TCBTFLG 00726000 TCBDSPIT EQU TCBTFLG 00727000 TCBERRTN EQU TCBTFLG 00728000 TCBASYNC EQU TCBTFLG 00729000 @NM00005 EQU TCB+296 00730000 TCBSCBQ EQU TCB+292 00731000 TCBSWASA EQU TCB+288 00732000 TCBDBTB EQU TCB+284 00733000 TCBRPT EQU TCB+280 00734000 TCBRV141 EQU TCBRV133 00735000 TCBRV140 EQU TCBRV133 00736000 TCBRV139 EQU TCBRV133 00737000 TCBRV138 EQU TCBRV133 00738000 TCBRV137 EQU TCBRV133 00739000 TCBRV136 EQU TCBRV133 00740000 TCBRV135 EQU TCBRV133 00741000 TCBRV134 EQU TCBRV133 00742000 TCBRV132 EQU TCBRV124 00743000 TCBRV131 EQU TCBRV124 00744000 TCBRV130 EQU TCBRV124 00745000 TCBRV129 EQU TCBRV124 00746000 TCBRV128 EQU TCBRV124 00747000 TCBRV127 EQU TCBRV124 00748000 TCBRV126 EQU TCBRV124 00749000 TCBRV125 EQU TCBRV124 00750000 TCBRV123 EQU TCBFBYT2 00751000 TCBRV122 EQU TCBFBYT2 00752000 TCBECBNV EQU TCBFBYT2 00753000 TCBSSSYN EQU TCBFBYT2 00754000 TCBFPRAP EQU TCBFBYT2 00755000 TCBFDW EQU TCBFBYT2 00756000 TCBFMW EQU TCBFBYT2 00757000 TCBCNCB EQU TCBFBYT2 00758000 TCBLLH EQU TCBFBYT1 00759000 TCBRV113 EQU TCBFBYT1 00760000 TCBEOT EQU TCBFBYT1 00761000 TCBRTM2 EQU TCBFBYT1 00762000 TCBPGNLY EQU TCBFBYT1 00763000 TCBNDIOS EQU TCBFBYT1 00764000 TCBACTIV EQU TCBFBYT1 00765000 TCBEOTFM EQU TCBFBYT1 00766000 TCBAFFN EQU TCB+274 00767000 TCBCCPVI EQU TCB+272 00768000 TCBUKYSP EQU TCB+268 00769000 TCBMODE EQU TCBESTAE+3 00770000 TCBERTYP EQU TCBESTAE+2 00771000 TCBRV314 EQU TCBESTRM 00772000 TCBRV313 EQU TCBESTRM 00773000 TCBRV312 EQU TCBESTRM 00774000 TCBRV311 EQU TCBESTRM 00775000 TCBRV310 EQU TCBESTRM 00776000 TCBRV309 EQU TCBESTRM 00777000 TCBRV308 EQU TCBESTRM 00778000 TCBETERM EQU TCBESTRM 00779000 TCBSCBKY EQU TCBESTAE 00780000 TCBRTM12 EQU TCB+260 00781000 TCBTCBID EQU TCB+256 00782000 TCBRSV96 EQU TCB+252 00783000 TCBSWA EQU TCB+248 00784000 TCBFOEA EQU TCBFOE+1 00785000 TCBRSV42 EQU TCBFOE 00786000 TCBRV306 EQU TCB+240 00787000 TCBRSV41 EQU TCB+239 00788000 TCBTID EQU TCB+238 00789000 TCBRSVAA EQU TCB+237 00790000 TCBABCUR EQU TCB+236 00791000 TCBTMSAV EQU TCB+232 00792000 TCBIOTIM EQU TCB+228 00793000 TCBRTWA EQU TCB+224 00794000 TCBBACK EQU TCB+220 00795000 TCBTIRB EQU TCB+216 00796000 TCBAECB EQU TCB+212 00797000 TCBEXT2A EQU TCBEXT2+1 00798000 TCBRSV39 EQU TCBEXT2 00799000 TCBSTMCT EQU TCB+207 00800000 TCBSYSCT EQU TCB+206 00801000 TCBRSV37 EQU TCB+205 00802000 TCBEXSVC EQU TCBDAR 00803000 TCBRSV36 EQU TCBDAR 00804000 TCBDARWT EQU TCBDAR 00805000 TCBDARO EQU TCBDAR 00806000 TCBDARMC EQU TCBDARC 00807000 TCBDARD EQU TCBDAR 00808000 TCBDARS EQU TCBDAR 00809000 TCBDARP EQU TCBDAR 00810000 TCBGTOFM EQU TCBFLGS7 00811000 TCBADMP EQU TCBFLGS7 00812000 TCBRSTSK EQU TCBFLGS7 00813000 TCBRSV35 EQU TCBFLGS7 00814000 TCBSTACK EQU TCBFLGS7 00815000 TCBRSV34 EQU TCBFLGS7 00816000 TCBRSV33 EQU TCBFLGS7 00817000 TCBGPECB EQU TCBFLGS7 00818000 TCBNTJS EQU TCBFLGS6 00819000 TCBAPG EQU TCBFLGS6 00820000 TCBMIGR EQU TCBFLGS6 00821000 TCBRV303 EQU TCBFLGS6 00822000 TCBSPVLK EQU TCBFLGS6 00823000 TCBCPU EQU TCBFLGS6 00824000 TCBPIE17 EQU TCBFLGS6 00825000 TCBRV EQU TCBFLGS6 00826000 TCBRSV79 EQU TCBNDSP5 00827000 TCBRSV78 EQU TCBNDSP5 00828000 TCBRSV77 EQU TCBNDSP5 00829000 TCBRSV76 EQU TCBNDSP5 00830000 TCBRSV75 EQU TCBNDSP5 00831000 TCBRSV74 EQU TCBNDSP5 00832000 TCBRSV95 EQU TCBNDSP5 00833000 TCBRSV94 EQU TCBNDSP5 00834000 TCBRSV93 EQU TCBNDSP4 00835000 TCBRSV92 EQU TCBNDSP4 00836000 TCBRSV91 EQU TCBNDSP4 00837000 TCBRSV90 EQU TCBNDSP4 00838000 TCBRSV89 EQU TCBNDSP4 00839000 TCBRSV88 EQU TCBNDSP4 00840000 TCBRSV87 EQU TCBNDSP4 00841000 TCBRSV86 EQU TCBNDSP4 00842000 TCBEXT1A EQU TCBEXT1+1 00843000 TCBRSV32 EQU TCBEXT1 00844000 TCBEXCPD EQU TCB+192 00845000 TCBIOBRC EQU TCB+188 00846000 TCBDDWTC EQU TCB+186 00847000 TCBDDEXC EQU TCB+184 00848000 TCBJSCBB EQU TCBJSCB+1 00849000 @NM00004 EQU TCBRECDE 00850000 TCBREC EQU TCBRECDE 00851000 TCBMDIDS EQU TCB+176 00852000 TCBNDINT EQU TCBNDSP3 00853000 TCBRSV27 EQU TCBNDSP3 00854000 TCBRSV26 EQU TCBNDSP3 00855000 TCBRSV25 EQU TCBNDSP3 00856000 TCBRSV24 EQU TCBNDSP3 00857000 TCBSRBND EQU TCBNDSP3 00858000 TCBRV302 EQU TCBNDSP3 00859000 TCBLJSND EQU TCBNDSP3 00860000 TCBABE EQU TCBNDSP2 00861000 TCBDSS EQU TCBNDSP2 00862000 TCBOWAIT EQU TCBNDSP2 00863000 TCBIWAIT EQU TCBNDSP2 00864000 TCBNDTS EQU TCBNDSP2 00865000 TCBNDSVC EQU TCBNDSP2 00866000 TCBSTPP EQU TCBNDSP2 00867000 TCBABD EQU TCBNDSP2 00868000 TCBRSV22 EQU TCBNDSP1 00869000 TCBPIEND EQU TCBNDSP1 00870000 TCBTPSP EQU TCBNDSP1 00871000 TCBDDRND EQU TCBNDSP1 00872000 TCBRSPND EQU TCBNDSP1 00873000 TCBRSTND EQU TCBNDSP1 00874000 TCBDARPN EQU TCBNDSP1 00875000 TCBDARTN EQU TCBNDSP1 00876000 TCBNDSP0 EQU TCBNDSP 00877000 TCBUSER EQU TCB+168 00878000 TCBTCTB EQU TCBTCT+1 00879000 TCBRSV9C EQU TCBTCTGF 00880000 TCBRSV9B EQU TCBTCTGF 00881000 TCBRSV9A EQU TCBTCTGF 00882000 TCBRSV99 EQU TCBTCTGF 00883000 TCBRSV98 EQU TCBTCTGF 00884000 TCBRSV97 EQU TCBTCTGF 00885000 TCBRSV20 EQU TCBTCTGF 00886000 TCBSMFGF EQU TCBTCTGF 00887000 TCBSTABB EQU TCBSTAB+1 00888000 TCBSTCUR EQU TCBNSTAE 00889000 TCBRV301 EQU TCBNSTAE 00890000 TCBSYNCH EQU TCBNSTAE 00891000 TCBHALT EQU TCBNSTAE 00892000 TCBPPSUP EQU TCBNSTAE 00893000 TCB33E EQU TCBNSTAE 00894000 TCBQUIES EQU TCBNSTAE 00895000 TCBSTABE EQU TCBNSTAE 00896000 TCBAQE EQU TCB+156 00897000 TCBPQE EQU TCB+152 00898000 TCBTSDP EQU TCB+151 00899000 TCBTSLP EQU TCB+150 00900000 TCBSTPCT EQU TCB+149 00901000 TCBCPUBN EQU TCBTSFLG 00902000 TCBDYDSP EQU TCBTSFLG 00903000 TCBRSV18 EQU TCBTSFLG 00904000 TCBRSV17 EQU TCBTSFLG 00905000 TCBTIOTG EQU TCBTSFLG 00906000 TCBATT EQU TCBTSFLG 00907000 TCBSTPPR EQU TCBTSFLG 00908000 TCBRV300 EQU TCBTSTSK 00909000 TCBECB EQU TCB+144 00910000 TCBIQE EQU TCB+140 00911000 TCBLTC EQU TCB+136 00912000 TCBOTC EQU TCB+132 00913000 TCBNTC EQU TCB+128 00914000 TCBJSTCA EQU TCBJSTCB+1 00915000 TCBRSV16 EQU TCBJSTCB 00916000 TCBTQET EQU TCBTME 00917000 TCBTCB EQU TCB+116 00918000 TCBFSAB EQU TCBFSA+1 00919000 TCBQEL EQU TCBFSA 00920000 TCBGRS15 EQU TCBGRS+60 00921000 TCBGRS14 EQU TCBGRS+56 00922000 TCBGRS13 EQU TCBGRS+52 00923000 TCBGRS12 EQU TCBGRS+48 00924000 TCBGRS11 EQU TCBGRS+44 00925000 TCBGRS10 EQU TCBGRS+40 00926000 TCBGRS9 EQU TCBGRS+36 00927000 TCBGRS8 EQU TCBGRS+32 00928000 TCBGRS7 EQU TCBGRS+28 00929000 TCBGRS6 EQU TCBGRS+24 00930000 TCBGRS5 EQU TCBGRS+20 00931000 TCBGRS4 EQU TCBGRS+16 00932000 TCBGRS3 EQU TCBGRS+12 00933000 TCBGRS2 EQU TCBGRS+8 00934000 TCBGRS1 EQU TCBGRS+4 00935000 TCBGRS0 EQU TCBGRS 00936000 TCBJPQB EQU TCBJPQ+1 00937000 TCBRSV15 EQU TCBPURGE 00938000 TCBRSV14 EQU TCBPURGE 00939000 TCBRSV13 EQU TCBPURGE 00940000 TCBRSV12 EQU TCBPURGE 00941000 TCBRSV11 EQU TCBPURGE 00942000 TCBRSV10 EQU TCBPURGE 00943000 TCBRSV09 EQU TCBPURGE 00944000 TCBJPQF EQU TCBPURGE 00945000 TCBJLB EQU TCB+40 00946000 TCBLLS EQU TCB+36 00947000 TCBDSP EQU TCB+35 00948000 TCBLMP EQU TCB+34 00949000 TCBPNDSP EQU TCBFLGS5 00950000 TCBFCD1 EQU TCBFLGS5 00951000 TCBSTP EQU TCBFLGS5 00952000 TCBSYS EQU TCBFLGS5 00953000 TCBANDSP EQU TCBFLGS5 00954000 TCBPAGE EQU TCBFLGS5 00955000 TCBUXNDF EQU TCBABWF 00956000 TCBFC EQU TCBFLGS5 00957000 TCBONDSP EQU TCBFLGS4 00958000 TCBMPCND EQU TCBFLGS4 00959000 TCBMPCVQ EQU TCBFLGS4 00960000 TCBUXNDV EQU TCBFLGS4 00961000 TCBHNDSP EQU TCBFLGS4 00962000 TCBRQENA EQU TCBFLGS4 00963000 TCBSER EQU TCBFLGS4 00964000 TCBNDUMP EQU TCBFLGS4 00965000 TCBDWSTA EQU TCBFLGS3 00966000 TCBRSV08 EQU TCBFLGS3 00967000 TCBRSV07 EQU TCBFLGS3 00968000 TCBRSV06 EQU TCBFLGS3 00969000 TCBABGM EQU TCBFLGS3 00970000 TCBABTRM EQU TCBFLGS3 00971000 TCBADINP EQU TCBFLGS3 00972000 TCBFSM EQU TCBFLGS3 00973000 TCBFTS EQU TCBFLGS2 00974000 TCBFETXR EQU TCBFLGS2 00975000 TCBFDSOP EQU TCBFLGS2 00976000 TCBFJMC EQU TCBFLGS2 00977000 TCBFSMC EQU TCBFLGS2 00978000 TCBFABOP EQU TCBFLGS2 00979000 TCBFSTI EQU TCBFLGS2 00980000 TCBFOINP EQU TCBFLGS2 00981000 TCBFX EQU TCBFLGS1 00982000 TCBFS EQU TCBFLGS1 00983000 TCBFT EQU TCBFLGS1 00984000 TCBPDUMP EQU TCBFLGS1 00985000 TCBRSV04 EQU TCBFLGS1 00986000 TCBFERA EQU TCBFLGS1 00987000 TCBFE EQU TCBFLGS1 00988000 TCBFA EQU TCBFLGS1 00989000 TCBZERO EQU TCBPKF 00990000 TCBFLAG EQU TCBPKF 00991000 TCBMSSB EQU TCBMSS+1 00992000 TCBRSV03 EQU TCBMSS 00993000 TCBTRNB EQU TCBTRN+1 00994000 TCBRSV02 EQU TCBABF 00995000 TCBOLTEP EQU TCBABF 00996000 TCBTCP EQU TCBABF 00997000 TCBTCPP EQU TCBABF 00998000 TCBRSV01 EQU TCBABF 00999000 TCBGRPH EQU TCBABF 01000000 TCBNOCHK EQU TCBABF 01001000 TCBMOD91 EQU TCBABF 01002000 TCBCMPC EQU TCBCMP+1 01003000 TCBRV318 EQU TCBCMSG 01004000 TCBRV317 EQU TCBCIND 01005000 TCBRV316 EQU TCBCWTO 01006000 TCBCASID EQU TCBCDBL 01007000 TCBNOCC EQU TCBSTCC 01008000 TCBDMPO EQU TCBCPP 01009000 TCBCSTEP EQU TCBCMPF 01010000 TCBCREQ EQU TCBCMPF 01011000 TCBTIO EQU TCB+12 01012000 TCBDEB EQU TCB+8 01013000 TCBPIEA EQU TCBPIE+1 01014000 TCBPM EQU TCBPMASK 01015000 @NM00003 EQU TCBPMASK 01016000 TCBRBP EQU TCB 01017000 TCBFRS6 EQU TCBFRS+24 01018000 TCBFRS4 EQU TCBFRS+16 01019000 TCBFRS2 EQU TCBFRS+8 01020000 TCBFRS0 EQU TCBFRS 01021000 NEXTTCB EQU TCBWORDS 01022000 CVTLEVL EQU CVTRELNO+2 01023000 CVTNUMB EQU CVTRELNO 01024000 CVTMDL EQU CVTFIX+250 01025000 @NM00002 EQU CVTFIX+248 01026000 @NM00001 EQU CVTFIX 01027000 CVTRV482 EQU CVTXTNT2+128 01028000 CVTRV481 EQU CVTXTNT2+124 01029000 CVTRV480 EQU CVTXTNT2+120 01030000 CVTRV479 EQU CVTXTNT2+118 01031000 CVTRV478 EQU CVTXTNT2+117 01032000 CVTRV477 EQU CVTXTNT2+116 01033000 CVTRV476 EQU CVTXTNT2+115 01034000 CVTRV475 EQU CVTXTNT2+114 01035000 CVTRV474 EQU CVTRV466 01036000 CVTRV473 EQU CVTRV466 01037000 CVTRV472 EQU CVTRV466 01038000 CVTRV471 EQU CVTRV466 01039000 CVTRV470 EQU CVTRV466 01040000 CVTRV469 EQU CVTRV466 01041000 CVTRV468 EQU CVTRV466 01042000 CVTRV467 EQU CVTRV466 01043000 CVTRV465 EQU CVTRV457 01044000 CVTRV464 EQU CVTRV457 01045000 CVTRV463 EQU CVTRV457 01046000 CVTRV462 EQU CVTRV457 01047000 CVTRV461 EQU CVTRV457 01048000 CVTRV460 EQU CVTRV457 01049000 CVTRV459 EQU CVTRV457 01050000 CVTRV458 EQU CVTRV457 01051000 CVTRV456 EQU CVTXTNT2+108 01052000 CVTRV455 EQU CVTXTNT2+104 01053000 CVTRV454 EQU CVTXTNT2+100 01054000 CVTRV453 EQU CVTXTNT2+96 01055000 CVTRV452 EQU CVTXTNT2+94 01056000 CVTRV451 EQU CVTXTNT2+92 01057000 CVTRV450 EQU CVTXTNT2+90 01058000 CVTRV449 EQU CVTXTNT2+88 01059000 CVTRV448 EQU CVTXTNT2+87 01060000 CVTRV447 EQU CVTXTNT2+86 01061000 CVTRV446 EQU CVTRV438 01062000 CVTRV445 EQU CVTRV438 01063000 CVTRV444 EQU CVTRV438 01064000 CVTRV443 EQU CVTRV438 01065000 CVTRV442 EQU CVTRV438 01066000 CVTRV441 EQU CVTRV438 01067000 CVTRV440 EQU CVTRV438 01068000 CVTRV439 EQU CVTRV438 01069000 CVTRV437 EQU CVTRV429 01070000 CVTRV436 EQU CVTRV429 01071000 CVTRV435 EQU CVTRV429 01072000 CVTRV434 EQU CVTRV429 01073000 CVTRV433 EQU CVTRV429 01074000 CVTRV432 EQU CVTRV429 01075000 CVTRV431 EQU CVTRV429 01076000 CVTRV430 EQU CVTRV429 01077000 CVTRV428 EQU CVTXTNT2+80 01078000 CVTRV427 EQU CVTXTNT2+76 01079000 CVTRV426 EQU CVTXTNT2+72 01080000 CVTRV425 EQU CVTXTNT2+68 01081000 CVTATACT EQU CVTATCVT 01082000 CVTRV423 EQU CVTXTNT2+62 01083000 CVTRV422 EQU CVTXTNT2+60 01084000 CVTRV421 EQU CVTXTNT2+58 01085000 CVTRV420 EQU CVTXTNT2+56 01086000 CVTRV419 EQU CVTXTNT2+55 01087000 CVTRV418 EQU CVTXTNT2+54 01088000 CVTRV417 EQU CVTRV409 01089000 CVTRV416 EQU CVTRV409 01090000 CVTRV415 EQU CVTRV409 01091000 CVTRV414 EQU CVTRV409 01092000 CVTRV413 EQU CVTRV409 01093000 CVTRV412 EQU CVTRV409 01094000 CVTRV411 EQU CVTRV409 01095000 CVTRV410 EQU CVTRV409 01096000 CVTRV408 EQU CVTRV400 01097000 CVTRV407 EQU CVTRV400 01098000 CVTRV406 EQU CVTRV400 01099000 CVTRV405 EQU CVTRV400 01100000 CVTRV404 EQU CVTRV400 01101000 CVTRV403 EQU CVTRV400 01102000 CVTRV402 EQU CVTRV400 01103000 CVTRV401 EQU CVTRV400 01104000 CVTICB EQU CVTXTNT2+48 01105000 CVTSKTA EQU CVTXTNT2+44 01106000 CVTRSV99 EQU CVTXTNT2+40 01107000 CVTRSV98 EQU CVTXTNT2+36 01108000 CVTRSV97 EQU CVTXTNT2+34 01109000 CVTRSV96 EQU CVTXTNT2+32 01110000 CVTOLTEP EQU CVTXTNT2+28 01111000 CVTQIDA EQU CVTQID+1 01112000 CVTRSV95 EQU CVTQID 01113000 CVTRSV94 EQU CVTXTNT2+20 01114000 CVTRSV93 EQU CVTXTNT2+16 01115000 CVTRSV92 EQU CVTXTNT2+12 01116000 CVTDEBVR EQU CVTXTNT2+8 01117000 CVTRSV91 EQU CVTXTNT2+6 01118000 CVTRSV9H EQU CVTFLGBT 01119000 CVTRSV9G EQU CVTFLGBT 01120000 CVTRSV9F EQU CVTFLGBT 01121000 CVTRSV9E EQU CVTFLGBT 01122000 CVTRSV9D EQU CVTFLGBT 01123000 CVTRSV9C EQU CVTFLGBT 01124000 CVTVME EQU CVTFLGBT 01125000 CVTNPE EQU CVTFLGBT 01126000 CVTNUCLS EQU CVTXTNT2+4 01127000 CVTDSSVA EQU CVTDSSV+1 01128000 CVTRSV89 EQU CVTDSSV 01129000 CVTRSV88 EQU CVTXTNT1+8 01130000 CVTRSV87 EQU CVTXTNT1+4 01131000 CVTFACHN EQU CVTXTNT1 01132000 CVTRV488 EQU CVTMAP+412 01133000 CVTRV487 EQU CVTMAP+408 01134000 CVTRV486 EQU CVTMAP+404 01135000 CVTRV485 EQU CVTMAP+400 01136000 CVTACTAP EQU CVTMAP+396 01137000 CVTAUTH EQU CVTMAP+392 01138000 CVTATMCA EQU CVTATMCT+1 01139000 CVTATMST EQU CVTATMCT 01140000 CVTRSV61 EQU CVTMAP+384 01141000 CVTVOLT1 EQU CVTVOLM1+1 01142000 CVTVOLI1 EQU CVTVOLF1 01143000 CVTSTOA EQU CVTMAP+376 01144000 CVTRSV58 EQU CVTMAP+374 01145000 CVTRSV57 EQU CVTMAP+372 01146000 CVTDDCE EQU CVTMAP+368 01147000 CVTPNWFR EQU CVTMAP+364 01148000 CVTSMF EQU CVTMAP+360 01149000 CVTSULK EQU CVTMAP+358 01150000 CVTSLKO EQU CVTSYSK 01151000 CVTSLKP EQU CVTSYSK 01152000 CVTSLKQ EQU CVTSYSK 01153000 CVTSLKR EQU CVTSYSK 01154000 CVTRSV56 EQU CVTSYSK 01155000 CVTRSV55 EQU CVTSYSK 01156000 CVTRSV54 EQU CVTSYSK 01157000 CVTRSV53 EQU CVTSYSK 01158000 CVTRSV52 EQU CVTA1F1 01159000 CVTRSV51 EQU CVTA1F1 01160000 CVTRSV50 EQU CVTA1F1 01161000 CVTRSV49 EQU CVTA1F1 01162000 CVTRSV48 EQU CVTA1F1 01163000 CVTRSV47 EQU CVTA1F1 01164000 CVTSRSW EQU CVTA1F1 01165000 CVTPFSW EQU CVTA1F1 01166000 CVTPCVT EQU CVTMAP+352 01167000 CVTRSV46 EQU CVTMAP+344 01168000 CVTRSV45 EQU CVTMAP+340 01169000 CVTRSV44 EQU CVTMAP+338 01170000 CVTRSV43 EQU CVTMAP+336 01171000 CVTHJESA EQU CVTHJES+1 01172000 CVTRSV42 EQU CVTHJES 01173000 CVTEXT2A EQU CVTEXT2+1 01174000 CVTRSV41 EQU CVTEXT2 01175000 CVTAPFA EQU CVTAPF+1 01176000 CVTRSV40 EQU CVTAPF 01177000 CVTRV518 EQU CVTINTLA 01178000 CVTRV517 EQU CVTERPV 01179000 CVTEORM EQU CVTMAP+312 01180000 CVTMCHPR EQU CVTMAP+308 01181000 CVTTZ EQU CVTMAP+304 01182000 CVTJEPS EQU CVTMAP+300 01183000 CVTJESCT EQU CVTMAP+296 01184000 CVTMODE EQU CVTMAP+292 01185000 CVTPTRV EQU CVTMAP+288 01186000 CVTREAL EQU CVTMAP+284 01187000 CVTRSV39 EQU CVTMAP+280 01188000 CVTRSV38 EQU CVTMAP+276 01189000 CVTDMSRA EQU CVTDMSR+1 01190000 CVTRSV37 EQU CVTDMSR 01191000 CVTQMSGA EQU CVTQMSG+1 01192000 CVTRSV36 EQU CVTQMSG 01193000 CVTAMFF EQU CVTMAP+264 01194000 CVTPURGA EQU CVTPURG+1 01195000 CVTRSV35 EQU CVTPURG 01196000 CVTCBSP EQU CVTMAP+256 01197000 CVTATERA EQU CVTATER+1 01198000 CVTSYST EQU CVTATER 01199000 CVTVOLT2 EQU CVTTAT 01200000 CVTVOLI2 EQU CVTVOLF2 01201000 CVTAQAVB EQU CVTAQAVT+1 01202000 CVTRSV34 EQU CVTTCMFG 01203000 CVTRSV33 EQU CVTTCMFG 01204000 CVTRSV32 EQU CVTTCMFG 01205000 CVTRSV31 EQU CVTTCMFG 01206000 CVTRSV30 EQU CVTTCMFG 01207000 CVTRSV29 EQU CVTTCMFG 01208000 CVTRSV28 EQU CVTTCMFG 01209000 CVTTCRDY EQU CVTTCMFG 01210000 CVTGTFA EQU CVTGTF+1 01211000 CVTRSV27 EQU CVTGTFST 01212000 CVTRNIO EQU CVTGTFST 01213000 CVTUSR EQU CVTGTFST 01214000 CVTRV318 EQU CVTFORM 01215000 CVTRV317 EQU CVTTMODE 01216000 CVTRV316 EQU CVTSTATE 01217000 CVTRV315 EQU CVTGTFS 01218000 CVTGTFAV EQU CVTGTFS 01219000 CVT0SCR1 EQU CVTMAP+232 01220000 CVTRV515 EQU CVTMAP+228 01221000 CVTRMS EQU CVTMAP+224 01222000 CVTPATCH EQU CVTMAP+220 01223000 CVTTSCE EQU CVTMAP+216 01224000 CVTLNKSC EQU CVTMAP+214 01225000 CVTQABST EQU CVTMAP+212 01226000 CVTMDLDS EQU CVTMAP+208 01227000 CVTUSER EQU CVTMAP+204 01228000 CVTABEND EQU CVTMAP+200 01229000 CVTSMCA EQU CVTMAP+196 01230000 CVTRSV18 EQU CVTMAP+192 01231000 CVTQLPAQ EQU CVTMAP+188 01232000 CVTQCDSR EQU CVTMAP+184 01233000 CVTRSV17 EQU CVTOPTB 01234000 CVTRSV16 EQU CVTOPTB 01235000 CVTFP EQU CVTOPTB 01236000 CVTAPTHR EQU CVTOPTB 01237000 CVTNLOG EQU CVTOPTB 01238000 CVTTOD EQU CVTOPTB 01239000 CVTCTIMS EQU CVTOPTB 01240000 CVTPROT EQU CVTOPTB 01241000 CVTXPFP EQU CVTOPTA 01242000 CVTASCII EQU CVTOPTA 01243000 CVTRSV13 EQU CVTOPTA 01244000 CVTRSV12 EQU CVTOPTA 01245000 CVTNIP EQU CVTOPTA 01246000 CVTDDR EQU CVTOPTA 01247000 CVTAPR EQU CVTOPTA 01248000 CVTCCH EQU CVTOPTA 01249000 CVTSNCTR EQU CVTMAP+180 01250000 CVTQMWR EQU CVTMAP+176 01251000 CVTQOCR EQU CVTMAP+172 01252000 CVT1EF00 EQU CVTMAP+168 01253000 CVTMZ00 EQU CVTMAP+164 01254000 CVTHEAD EQU CVTMAP+160 01255000 CVTRSV11 EQU CVTMAP+156 01256000 CVT0PT01 EQU CVTMAP+152 01257000 CVTMSER EQU CVTMAP+148 01258000 CVTRV516 EQU CVTIERLC 01259000 CVTILCH EQU CVTMAP+140 01260000 CVT0DS EQU CVTMAP+136 01261000 CVTFBOSV EQU CVTMAP+132 01262000 CVTNUCB EQU CVTMAP+128 01263000 CVTIXAVL EQU CVTMAP+124 01264000 CVTIOQET EQU CVTMAP+120 01265000 CVTDCBA EQU CVTMAP+117 01266000 CVTMVS2 EQU CVTDCB 01267000 CVT6DAT EQU CVTDCB 01268000 CVT4MPS EQU CVTDCB 01269000 CVTRSV09 EQU CVTDCB 01270000 CVT4MS1 EQU CVTDCB 01271000 CVT2SPS EQU CVTDCB 01272000 CVT1SSS EQU CVTDCB 01273000 CVTRSV08 EQU CVTDCB 01274000 CVTSTB EQU CVTMAP+112 01275000 CVTQTD00 EQU CVTMAP+108 01276000 CVTQTE00 EQU CVTMAP+104 01277000 CVTCUCB EQU CVTMAP+100 01278000 CVTSJQ EQU CVTMAP+96 01279000 CVTPBLDL EQU CVTMAP+92 01280000 CVTTPC EQU CVTMAP+88 01281000 CVTSVDCB EQU CVTMAP+84 01282000 CVTBRET EQU CVTMAP+82 01283000 CVTEXIT EQU CVTMAP+80 01284000 CVT0FN00 EQU CVTMAP+76 01285000 CVTDARA EQU CVTDAR+1 01286000 CVTRSV07 EQU CVTFLGS1 01287000 CVTRSV06 EQU CVTFLGS1 01288000 CVTRSV05 EQU CVTFLGS1 01289000 CVTRSV04 EQU CVTFLGS1 01290000 CVTRSV03 EQU CVTFLGS1 01291000 CVTRSV02 EQU CVTFLGS1 01292000 CVTRSV01 EQU CVTFLGS1 01293000 CVTDMPLK EQU CVTFLGS1 01294000 CVTXITP EQU CVTMAP+68 01295000 CVTZDTAB EQU CVTMAP+64 01296000 CVTMSLT EQU CVTMAP+60 01297000 CVTDATE EQU CVTMAP+56 01298000 CVTBTERM EQU CVTMAP+52 01299000 CVTSYSAD EQU CVTMAP+48 01300000 CVTXTLER EQU CVTMAP+44 01301000 CVTILK2 EQU CVTMAP+40 01302000 CVTILK1 EQU CVTMAP+36 01303000 CVTPRLTV EQU CVTMAP+32 01304000 CVTPCNVT EQU CVTMAP+28 01305000 CVT0VL00 EQU CVTMAP+24 01306000 CVTXAPG EQU CVTMAP+20 01307000 CVTBUF EQU CVTMAP+16 01308000 CVTJOB EQU CVTMAP+12 01309000 CVTLINK EQU CVTMAP+8 01310000 CVT0EF00 EQU CVTMAP+4 01311000 CVT EQU CVTMAP 01312000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01313000 @ENDDATA EQU * 01314000 END IGG0CLA1,(C'PLS0139',0602,75012) 01315000