TITLE 'IEFI922B, BUILD INTERFACE FOR 922 COMPLETION CODE ' 00001000 IEFI922B CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEFI922B 73.020' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 L @00,@SIZDATD 0001 00013000 GETMAIN R,LV=(0) 00014000 LR @11,@01 0001 00015000 USING @DATD,@11 0001 00016000 LM @00,@01,20(@13) 0001 00017000 MVC @PC00001(4),0(@01) 0001 00018000 * 0013 00019000 * /*****************************************************************/ 00020000 * /* */ 00021000 * /* BUILD A PARAMETER LIST IN LCTPARM1 THROUGH LCTPARM4 FOR */ 00022000 * /* IEFSD164, AS IF THE P/P HAD ABENDED WITH A 922 SYSTEM */ 00023000 * /* COMPLETION CODE. */ 00024000 * /* */ 00025000 * /*****************************************************************/ 00026000 * 0013 00027000 * PARM1A=TCBFABIT; /* SET BIT INDICATING THIS IS AN 00028000 * ABEND CODE (NOT A REG 15 0013 00029000 * RETURN CODE) */ 00030000 L @10,@PC00001 0013 00031000 L @10,PARAMPTR(,@10) 0013 00032000 L @15,IEFLCTAD(,@10) 0013 00033000 MVI PARM1A(@15),X'80' 0013 00034000 * PARM1BCD=TCBTCTB; /* PASS TCT POINTER */ 00035000 L @14,LCTTCBAD(,@15) 0014 00036000 MVC PARM1BCD(3,@15),TCBTCTB(@14) 0014 00037000 * PARM3A=TCBDSP; /* PASS TCB PRIORITY */ 00038000 MVC PARM3A(1,@15),TCBDSP(@14) 0015 00039000 * LCTPARM4=CODE922; /* PASS COMPLETION CODE */ 00040000 MVC LCTPARM4(4,@15),CODE922 0016 00041000 * LCTADDR=ADDR(LCT); /* LCT POINTER IS REQUIRED IN 0017 00042000 * FIRST WORD BY IEFSD164 */ 00043000 ST @15,LCTADDR(,@10) 0017 00044000 * END 0018 00045000 * 0018 00046000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00047000 */*%INCLUDE SYSLIB (IEFZB630) */ 00048000 */*%INCLUDE SYSLIB (IEFALLCT) */ 00049000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00050000 * 0018 00051000 * ; 0018 00052000 @EL00001 DS 0H 0018 00053000 @EF00001 L @00,@SIZDATD 0018 00054000 LR @01,@11 0018 00055000 FREEMAIN R,LV=(0),A=(1) 00056000 @ER00001 LM @14,@12,12(@13) 0018 00057000 BR @14 0018 00058000 @DATA DS 0H 00059000 @DATD DSECT 00060000 DS 0F 00061000 @PC00001 DS 1F 00062000 IEFI922B CSECT 00063000 DS 0F 00064000 @DATD DSECT 00065000 DS 0D 00066000 @ENDDATD EQU * 00067000 IEFI922B CSECT 00068000 DS 0F 00069000 @SIZDATD DC AL1(230) 00070000 DC AL3(@ENDDATD-@DATD) 00071000 DS 0D 00072000 CODE922 DC XL4'00922000' 00073000 PATCH DC CL16' ' 00074000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00075000 @01 EQU 01 00076000 @02 EQU 02 00077000 @03 EQU 03 00078000 @04 EQU 04 00079000 @05 EQU 05 00080000 @06 EQU 06 00081000 @07 EQU 07 00082000 @08 EQU 08 00083000 @09 EQU 09 00084000 @10 EQU 10 00085000 @11 EQU 11 00086000 @12 EQU 12 00087000 @13 EQU 13 00088000 @14 EQU 14 00089000 @15 EQU 15 00090000 IEFPARAM EQU 0 00091000 IEFUSADD EQU IEFPARAM 00092000 IEFDCBAD EQU IEFPARAM+4 00093000 IEFLCTAD EQU IEFPARAM+12 00094000 IEFTCBAD EQU IEFPARAM+16 00095000 IEFECBLT EQU IEFPARAM+24 00096000 @NM00002 EQU IEFPARAM+32 00097000 LCT EQU 0 00098000 LCTQDRTY EQU LCT 00099000 LCTSRTAD EQU LCT+4 00100000 LCTTCBAD EQU LCT+8 00101000 LCTQENTY EQU LCT+12 00102000 @NM00009 EQU LCTQENTY 00103000 LCTJCTAD EQU LCT+16 00104000 LCTSCTAD EQU LCT+20 00105000 LCTSCTDA EQU LCT+24 00106000 LCTWORKA EQU LCTSCTDA 00107000 LCTPSPAR EQU LCT+28 00108000 LCTERROR EQU LCT+32 00109000 LCTERR EQU LCTERROR 00110000 LCTPARM1 EQU LCT+36 00111000 LCTPARM3 EQU LCT+44 00112000 LCTPARM4 EQU LCT+48 00113000 LCTCMCBA EQU LCT+52 00114000 LCTNSPAD EQU LCT+56 00115000 LCTJFCBH EQU LCT+57 00116000 LCTSMBAD EQU LCT+60 00117000 LCTCOMCD EQU LCT+68 00118000 LCTRTRN EQU LCT+72 00119000 LCTSREG EQU LCTRTRN 00120000 @NM00036 EQU LCT+76 00121000 LCTINTSW EQU @NM00036 00122000 LCTTMWRK EQU LCT+80 00123000 LCTJOBLB EQU LCT+96 00124000 LCTATLST EQU LCT+100 00125000 LCTECBAD EQU LCT+328 00126000 ECBLIST EQU LCTECBAD 00127000 LCTIDENT EQU LCT+332 00128000 LCTSPIL EQU LCTIDENT+4 00129000 LCTALCFG EQU LCTSPIL+2 00130000 LCTENTR EQU LCT+352 00131000 LCTEXIT EQU LCTENTR 00132000 LCTOPSW1 EQU LCTEXIT 00133000 @NM00062 EQU LCT+356 00134000 LCTOPSW2 EQU @NM00062 00135000 LCTJSCB EQU LCT+360 00136000 LCTOPSW3 EQU LCTJSCB 00137000 LCTJCTDA EQU LCT+408 00138000 LCTSTATA EQU LCT+416 00139000 LCTSTATB EQU LCT+417 00140000 LCTRFB EQU LCT+418 00141000 @NM00076 EQU LCT+420 00142000 LCTINTS2 EQU @NM00076+1 00143000 TCBFIX EQU 0 00144000 TCBFRS EQU TCBFIX 00145000 TCB EQU 0 00146000 TCBPIE EQU TCB+4 00147000 TCBPMASK EQU TCBPIE 00148000 TCBCMP EQU TCB+16 00149000 TCBCMPF EQU TCBCMP 00150000 TCBCPP EQU TCBCMPF 00151000 TCBSTCC EQU TCBCMPF 00152000 TCBCDBL EQU TCBCMPF 00153000 TCBCWTO EQU TCBCMPF 00154000 TCBCIND EQU TCBCMPF 00155000 TCBCMSG EQU TCBCMPF 00156000 TCBTRN EQU TCB+20 00157000 TCBABF EQU TCBTRN 00158000 TCBMSS EQU TCB+24 00159000 TCBPKF EQU TCB+28 00160000 TCBFLGS EQU TCB+29 00161000 TCBFLGS1 EQU TCBFLGS 00162000 TCBFLGS2 EQU TCBFLGS+1 00163000 TCBFLGS3 EQU TCBFLGS+2 00164000 TCBFLGS4 EQU TCBFLGS+3 00165000 TCBFLGS5 EQU TCBFLGS+4 00166000 TCBABWF EQU TCBFLGS5 00167000 TCBDSP EQU TCB+35 00168000 TCBJPQ EQU TCB+44 00169000 TCBPURGE EQU TCBJPQ 00170000 TCBGRS EQU TCB+48 00171000 TCBFSA EQU TCB+112 00172000 TCBTME EQU TCB+120 00173000 TCBJSTCB EQU TCB+124 00174000 TCBTSFLG EQU TCB+148 00175000 TCBTSTSK EQU TCBTSFLG 00176000 TCBSTAB EQU TCB+160 00177000 TCBNSTAE EQU TCBSTAB 00178000 TCBTCT EQU TCB+164 00179000 TCBTCTGF EQU TCBTCT 00180000 TCBTCTB EQU TCBTCT+1 00181000 TCBSCNDY EQU TCB+172 00182000 TCBNDSP EQU TCBSCNDY 00183000 TCBNDSP1 EQU TCBNDSP+1 00184000 TCBNDSP2 EQU TCBNDSP+2 00185000 TCBNDSP3 EQU TCBNDSP+3 00186000 TCBJSCB EQU TCB+180 00187000 TCBRECDE EQU TCBJSCB 00188000 TCBEXT1 EQU TCB+196 00189000 TCBBITS EQU TCB+200 00190000 TCBNDSP4 EQU TCBBITS 00191000 TCBNDSP5 EQU TCBBITS+1 00192000 TCBFLGS6 EQU TCBBITS+2 00193000 TCBFLGS7 EQU TCBBITS+3 00194000 TCBDAR EQU TCB+204 00195000 TCBDARC EQU TCBDAR 00196000 TCBEXT2 EQU TCB+208 00197000 TCBFOE EQU TCB+244 00198000 TCBESTAE EQU TCB+264 00199000 TCBESTRM EQU TCBESTAE+1 00200000 TCBFBYT1 EQU TCB+276 00201000 TCBFBYT2 EQU TCB+277 00202000 TCBRV124 EQU TCB+278 00203000 TCBRV133 EQU TCB+279 00204000 TCBXTNT2 EQU 0 00205000 TCBGTF EQU TCBXTNT2 00206000 TCBTFLG EQU TCBGTF 00207000 TCBRV146 EQU TCBXTNT2+28 00208000 TCBRV155 EQU TCBXTNT2+29 00209000 TCBRV164 EQU TCBXTNT2+30 00210000 TCBRV173 EQU TCBXTNT2+31 00211000 PARAMPTR EQU 0 00212000 LCTADDR EQU IEFUSADD 00213000 @NM00083 EQU LCTPARM1 00214000 PARM1A EQU @NM00083 00215000 PARM1BCD EQU @NM00083+1 00216000 @NM00084 EQU LCTPARM3 00217000 PARM3A EQU @NM00084 00218000 COMPCODE EQU IEFDCBAD 00219000 JOBSTCB EQU IEFUSADD 00220000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00221000 @NM00082 EQU TCBXTNT2+32 00222000 TCBRV181 EQU TCBRV173 00223000 TCBRV180 EQU TCBRV173 00224000 TCBRV179 EQU TCBRV173 00225000 TCBRV178 EQU TCBRV173 00226000 TCBRV177 EQU TCBRV173 00227000 TCBRV176 EQU TCBRV173 00228000 TCBRV175 EQU TCBRV173 00229000 TCBRV174 EQU TCBRV173 00230000 TCBRV172 EQU TCBRV164 00231000 TCBRV171 EQU TCBRV164 00232000 TCBRV170 EQU TCBRV164 00233000 TCBRV169 EQU TCBRV164 00234000 TCBRV168 EQU TCBRV164 00235000 TCBRV167 EQU TCBRV164 00236000 TCBRV166 EQU TCBRV164 00237000 TCBRV165 EQU TCBRV164 00238000 TCBRV163 EQU TCBRV155 00239000 TCBRV162 EQU TCBRV155 00240000 TCBRV161 EQU TCBRV155 00241000 TCBRV160 EQU TCBRV155 00242000 TCBRV159 EQU TCBRV155 00243000 TCBRV158 EQU TCBRV155 00244000 TCBRV157 EQU TCBRV155 00245000 TCBRV156 EQU TCBRV155 00246000 TCBRV154 EQU TCBRV146 00247000 TCBRV153 EQU TCBRV146 00248000 TCBRV152 EQU TCBRV146 00249000 TCBRV151 EQU TCBRV146 00250000 TCBRV150 EQU TCBRV146 00251000 TCBRV149 EQU TCBRV146 00252000 TCBRV148 EQU TCBRV146 00253000 TCBRV147 EQU TCBRV146 00254000 TCBRV145 EQU TCBXTNT2+26 00255000 TCBRV144 EQU TCBXTNT2+24 00256000 TCBRV143 EQU TCBXTNT2+20 00257000 TCBRV142 EQU TCBXTNT2+16 00258000 TCBRSV49 EQU TCBXTNT2+12 00259000 TCBRSV48 EQU TCBXTNT2+8 00260000 TCBRCMP EQU TCBXTNT2+5 00261000 TCBRSVAB EQU TCBXTNT2+4 00262000 TCBGTFA EQU TCBGTF+1 00263000 TCBRSV47 EQU TCBTFLG 00264000 TCBRSV46 EQU TCBTFLG 00265000 TCBRSV45 EQU TCBTFLG 00266000 TCBRSV44 EQU TCBTFLG 00267000 TCBRSV43 EQU TCBTFLG 00268000 TCBDSPIT EQU TCBTFLG 00269000 TCBERRTN EQU TCBTFLG 00270000 TCBASYNC EQU TCBTFLG 00271000 @NM00081 EQU TCB+296 00272000 TCBRV185 EQU TCB+292 00273000 TCBRV184 EQU TCB+288 00274000 TCBRV183 EQU TCB+284 00275000 TCBRV182 EQU TCB+280 00276000 TCBRV141 EQU TCBRV133 00277000 TCBRV140 EQU TCBRV133 00278000 TCBRV139 EQU TCBRV133 00279000 TCBRV138 EQU TCBRV133 00280000 TCBRV137 EQU TCBRV133 00281000 TCBRV136 EQU TCBRV133 00282000 TCBRV135 EQU TCBRV133 00283000 TCBRV134 EQU TCBRV133 00284000 TCBRV132 EQU TCBRV124 00285000 TCBRV131 EQU TCBRV124 00286000 TCBRV130 EQU TCBRV124 00287000 TCBRV129 EQU TCBRV124 00288000 TCBRV128 EQU TCBRV124 00289000 TCBRV127 EQU TCBRV124 00290000 TCBRV126 EQU TCBRV124 00291000 TCBRV125 EQU TCBRV124 00292000 TCBRV123 EQU TCBFBYT2 00293000 TCBRV122 EQU TCBFBYT2 00294000 TCBRV121 EQU TCBFBYT2 00295000 TCBSSSYN EQU TCBFBYT2 00296000 TCBFPRAP EQU TCBFBYT2 00297000 TCBFDW EQU TCBFBYT2 00298000 TCBFMW EQU TCBFBYT2 00299000 TCBCNCB EQU TCBFBYT2 00300000 TCBLLH EQU TCBFBYT1 00301000 TCBRV113 EQU TCBFBYT1 00302000 TCBEOT EQU TCBFBYT1 00303000 TCBRTM2 EQU TCBFBYT1 00304000 TCBPGNLY EQU TCBFBYT1 00305000 TCBNDIOS EQU TCBFBYT1 00306000 TCBACTIV EQU TCBFBYT1 00307000 TCBEOTFM EQU TCBFBYT1 00308000 TCBAFFN EQU TCB+274 00309000 TCBCCPVI EQU TCB+272 00310000 TCBRV103 EQU TCB+268 00311000 TCBMODE EQU TCBESTAE+3 00312000 TCBERTYP EQU TCBESTAE+2 00313000 TCBRV314 EQU TCBESTRM 00314000 TCBRV313 EQU TCBESTRM 00315000 TCBRV312 EQU TCBESTRM 00316000 TCBRV311 EQU TCBESTRM 00317000 TCBRV310 EQU TCBESTRM 00318000 TCBRV309 EQU TCBESTRM 00319000 TCBRV308 EQU TCBESTRM 00320000 TCBETERM EQU TCBESTRM 00321000 TCBSCBKY EQU TCBESTAE 00322000 TCBRTM12 EQU TCB+260 00323000 TCBTCBID EQU TCB+256 00324000 TCBRSV96 EQU TCB+252 00325000 TCBSWA EQU TCB+248 00326000 TCBFOEA EQU TCBFOE+1 00327000 TCBRSV42 EQU TCBFOE 00328000 TCBRV306 EQU TCB+240 00329000 TCBRSV41 EQU TCB+239 00330000 TCBTID EQU TCB+238 00331000 TCBRSVAA EQU TCB+237 00332000 TCBABCUR EQU TCB+236 00333000 TCBTMSAV EQU TCB+232 00334000 TCBIOTIM EQU TCB+228 00335000 TCBRTWA EQU TCB+224 00336000 TCBBACK EQU TCB+220 00337000 TCBTIRB EQU TCB+216 00338000 TCBAECB EQU TCB+212 00339000 TCBEXT2A EQU TCBEXT2+1 00340000 TCBRSV39 EQU TCBEXT2 00341000 TCBSTMCT EQU TCB+207 00342000 TCBSYSCT EQU TCB+206 00343000 TCBRSV37 EQU TCB+205 00344000 TCBEXSVC EQU TCBDAR 00345000 TCBRSV36 EQU TCBDAR 00346000 TCBDARWT EQU TCBDAR 00347000 TCBDARO EQU TCBDAR 00348000 TCBDARMC EQU TCBDARC 00349000 TCBDARD EQU TCBDAR 00350000 TCBDARS EQU TCBDAR 00351000 TCBDARP EQU TCBDAR 00352000 TCBGTOFM EQU TCBFLGS7 00353000 TCBADMP EQU TCBFLGS7 00354000 TCBRSTSK EQU TCBFLGS7 00355000 TCBRSV35 EQU TCBFLGS7 00356000 TCBSTACK EQU TCBFLGS7 00357000 TCBRSV34 EQU TCBFLGS7 00358000 TCBRSV33 EQU TCBFLGS7 00359000 TCBGPECB EQU TCBFLGS7 00360000 TCBNTJS EQU TCBFLGS6 00361000 TCBAPG EQU TCBFLGS6 00362000 TCBMIGR EQU TCBFLGS6 00363000 TCBRV303 EQU TCBFLGS6 00364000 TCBSPVLK EQU TCBFLGS6 00365000 TCBCPU EQU TCBFLGS6 00366000 TCBPIE17 EQU TCBFLGS6 00367000 TCBRV EQU TCBFLGS6 00368000 TCBRSV79 EQU TCBNDSP5 00369000 TCBRSV78 EQU TCBNDSP5 00370000 TCBRSV77 EQU TCBNDSP5 00371000 TCBRSV76 EQU TCBNDSP5 00372000 TCBRSV75 EQU TCBNDSP5 00373000 TCBRSV74 EQU TCBNDSP5 00374000 TCBRSV95 EQU TCBNDSP5 00375000 TCBRSV94 EQU TCBNDSP5 00376000 TCBRSV93 EQU TCBNDSP4 00377000 TCBRSV92 EQU TCBNDSP4 00378000 TCBRSV91 EQU TCBNDSP4 00379000 TCBRSV90 EQU TCBNDSP4 00380000 TCBRSV89 EQU TCBNDSP4 00381000 TCBRSV88 EQU TCBNDSP4 00382000 TCBRSV87 EQU TCBNDSP4 00383000 TCBRSV86 EQU TCBNDSP4 00384000 TCBEXT1A EQU TCBEXT1+1 00385000 TCBRSV32 EQU TCBEXT1 00386000 TCBRSV30 EQU TCB+192 00387000 TCBIOBRC EQU TCB+188 00388000 TCBDDWTC EQU TCB+186 00389000 TCBDDEXC EQU TCB+184 00390000 TCBJSCBB EQU TCBJSCB+1 00391000 @NM00080 EQU TCBRECDE 00392000 TCBREC EQU TCBRECDE 00393000 TCBMDIDS EQU TCB+176 00394000 TCBRSV28 EQU TCBNDSP3 00395000 TCBRSV27 EQU TCBNDSP3 00396000 TCBRSV26 EQU TCBNDSP3 00397000 TCBRSV25 EQU TCBNDSP3 00398000 TCBRSV24 EQU TCBNDSP3 00399000 TCBSRBND EQU TCBNDSP3 00400000 TCBRV302 EQU TCBNDSP3 00401000 TCBLJSND EQU TCBNDSP3 00402000 TCBABE EQU TCBNDSP2 00403000 TCBDSS EQU TCBNDSP2 00404000 TCBOWAIT EQU TCBNDSP2 00405000 TCBIWAIT EQU TCBNDSP2 00406000 TCBNDTS EQU TCBNDSP2 00407000 TCBNDSVC EQU TCBNDSP2 00408000 TCBSTPP EQU TCBNDSP2 00409000 TCBABD EQU TCBNDSP2 00410000 TCBRSV22 EQU TCBNDSP1 00411000 TCBPIEND EQU TCBNDSP1 00412000 TCBTPSP EQU TCBNDSP1 00413000 TCBDDRND EQU TCBNDSP1 00414000 TCBRSPND EQU TCBNDSP1 00415000 TCBRSTND EQU TCBNDSP1 00416000 TCBDARPN EQU TCBNDSP1 00417000 TCBDARTN EQU TCBNDSP1 00418000 TCBNDSP0 EQU TCBNDSP 00419000 TCBUSER EQU TCB+168 00420000 TCBRSV9C EQU TCBTCTGF 00421000 TCBRSV9B EQU TCBTCTGF 00422000 TCBRSV9A EQU TCBTCTGF 00423000 TCBRSV99 EQU TCBTCTGF 00424000 TCBRSV98 EQU TCBTCTGF 00425000 TCBRSV97 EQU TCBTCTGF 00426000 TCBRSV20 EQU TCBTCTGF 00427000 TCBSMFGF EQU TCBTCTGF 00428000 TCBSTABB EQU TCBSTAB+1 00429000 TCBSTCUR EQU TCBNSTAE 00430000 TCBRV301 EQU TCBNSTAE 00431000 TCBSYNCH EQU TCBNSTAE 00432000 TCBHALT EQU TCBNSTAE 00433000 TCBPPSUP EQU TCBNSTAE 00434000 TCB33E EQU TCBNSTAE 00435000 TCBQUIES EQU TCBNSTAE 00436000 TCBSTABE EQU TCBNSTAE 00437000 TCBAQE EQU TCB+156 00438000 TCBPQE EQU TCB+152 00439000 TCBTSDP EQU TCB+151 00440000 TCBTSLP EQU TCB+150 00441000 TCBSTPCT EQU TCB+149 00442000 TCBCPUBN EQU TCBTSFLG 00443000 TCBDYDSP EQU TCBTSFLG 00444000 TCBRSV18 EQU TCBTSFLG 00445000 TCBRSV17 EQU TCBTSFLG 00446000 TCBTIOTG EQU TCBTSFLG 00447000 TCBATT EQU TCBTSFLG 00448000 TCBSTPPR EQU TCBTSFLG 00449000 TCBRV300 EQU TCBTSTSK 00450000 TCBECB EQU TCB+144 00451000 TCBIQE EQU TCB+140 00452000 TCBLTC EQU TCB+136 00453000 TCBOTC EQU TCB+132 00454000 TCBNTC EQU TCB+128 00455000 TCBJSTCA EQU TCBJSTCB+1 00456000 TCBRSV16 EQU TCBJSTCB 00457000 TCBTQET EQU TCBTME 00458000 TCBTCB EQU TCB+116 00459000 TCBFSAB EQU TCBFSA+1 00460000 TCBQEL EQU TCBFSA 00461000 TCBGRS15 EQU TCBGRS+60 00462000 TCBGRS14 EQU TCBGRS+56 00463000 TCBGRS13 EQU TCBGRS+52 00464000 TCBGRS12 EQU TCBGRS+48 00465000 TCBGRS11 EQU TCBGRS+44 00466000 TCBGRS10 EQU TCBGRS+40 00467000 TCBGRS9 EQU TCBGRS+36 00468000 TCBGRS8 EQU TCBGRS+32 00469000 TCBGRS7 EQU TCBGRS+28 00470000 TCBGRS6 EQU TCBGRS+24 00471000 TCBGRS5 EQU TCBGRS+20 00472000 TCBGRS4 EQU TCBGRS+16 00473000 TCBGRS3 EQU TCBGRS+12 00474000 TCBGRS2 EQU TCBGRS+8 00475000 TCBGRS1 EQU TCBGRS+4 00476000 TCBGRS0 EQU TCBGRS 00477000 TCBJPQB EQU TCBJPQ+1 00478000 TCBRSV15 EQU TCBPURGE 00479000 TCBRSV14 EQU TCBPURGE 00480000 TCBRSV13 EQU TCBPURGE 00481000 TCBRSV12 EQU TCBPURGE 00482000 TCBRSV11 EQU TCBPURGE 00483000 TCBRSV10 EQU TCBPURGE 00484000 TCBRSV09 EQU TCBPURGE 00485000 TCBJPQF EQU TCBPURGE 00486000 TCBJLB EQU TCB+40 00487000 TCBLLS EQU TCB+36 00488000 TCBLMP EQU TCB+34 00489000 TCBPNDSP EQU TCBFLGS5 00490000 TCBFCD1 EQU TCBFLGS5 00491000 TCBSTP EQU TCBFLGS5 00492000 TCBSYS EQU TCBFLGS5 00493000 TCBANDSP EQU TCBFLGS5 00494000 TCBPAGE EQU TCBFLGS5 00495000 TCBUXNDF EQU TCBABWF 00496000 TCBFC EQU TCBFLGS5 00497000 TCBONDSP EQU TCBFLGS4 00498000 TCBMPCND EQU TCBFLGS4 00499000 TCBMPCVQ EQU TCBFLGS4 00500000 TCBUXNDV EQU TCBFLGS4 00501000 TCBHNDSP EQU TCBFLGS4 00502000 TCBRQENA EQU TCBFLGS4 00503000 TCBSER EQU TCBFLGS4 00504000 TCBNDUMP EQU TCBFLGS4 00505000 TCBDWSTA EQU TCBFLGS3 00506000 TCBRSV08 EQU TCBFLGS3 00507000 TCBRSV07 EQU TCBFLGS3 00508000 TCBRSV06 EQU TCBFLGS3 00509000 TCBABGM EQU TCBFLGS3 00510000 TCBABTRM EQU TCBFLGS3 00511000 TCBADINP EQU TCBFLGS3 00512000 TCBFSM EQU TCBFLGS3 00513000 TCBFTS EQU TCBFLGS2 00514000 TCBFETXR EQU TCBFLGS2 00515000 TCBFDSOP EQU TCBFLGS2 00516000 TCBFJMC EQU TCBFLGS2 00517000 TCBFSMC EQU TCBFLGS2 00518000 TCBFABOP EQU TCBFLGS2 00519000 TCBFSTI EQU TCBFLGS2 00520000 TCBFOINP EQU TCBFLGS2 00521000 TCBFX EQU TCBFLGS1 00522000 TCBFS EQU TCBFLGS1 00523000 TCBFT EQU TCBFLGS1 00524000 TCBPDUMP EQU TCBFLGS1 00525000 TCBRSV04 EQU TCBFLGS1 00526000 TCBFERA EQU TCBFLGS1 00527000 TCBFE EQU TCBFLGS1 00528000 TCBFA EQU TCBFLGS1 00529000 TCBZERO EQU TCBPKF 00530000 TCBFLAG EQU TCBPKF 00531000 TCBMSSB EQU TCBMSS+1 00532000 TCBRSV03 EQU TCBMSS 00533000 TCBTRNB EQU TCBTRN+1 00534000 TCBRSV02 EQU TCBABF 00535000 TCBOLTEP EQU TCBABF 00536000 TCBTCP EQU TCBABF 00537000 TCBTCPP EQU TCBABF 00538000 TCBRSV01 EQU TCBABF 00539000 TCBGRPH EQU TCBABF 00540000 TCBNOCHK EQU TCBABF 00541000 TCBMOD91 EQU TCBABF 00542000 TCBCMPC EQU TCBCMP+1 00543000 TCBRV318 EQU TCBCMSG 00544000 TCBRV317 EQU TCBCIND 00545000 TCBRV316 EQU TCBCWTO 00546000 TCBCASID EQU TCBCDBL 00547000 TCBNOCC EQU TCBSTCC 00548000 TCBDMPO EQU TCBCPP 00549000 TCBCSTEP EQU TCBCMPF 00550000 TCBCREQ EQU TCBCMPF 00551000 TCBTIO EQU TCB+12 00552000 TCBDEB EQU TCB+8 00553000 TCBPIEA EQU TCBPIE+1 00554000 TCBPM EQU TCBPMASK 00555000 @NM00079 EQU TCBPMASK 00556000 TCBRBP EQU TCB 00557000 TCBFRS6 EQU TCBFRS+24 00558000 TCBFRS4 EQU TCBFRS+16 00559000 TCBFRS2 EQU TCBFRS+8 00560000 TCBFRS0 EQU TCBFRS 00561000 @NM00078 EQU LCT+436 00562000 LCTIMSG EQU LCT+432 00563000 LCTLBWAP EQU LCT+428 00564000 @NM00077 EQU LCT+424 00565000 LCTSYS EQU LCTINTS2 00566000 LCTTSIZ EQU @NM00076 00567000 LCTRFB1 EQU LCT+419 00568000 @NM00075 EQU LCTRFB 00569000 LCTRFBRP EQU LCTRFB 00570000 LCTRFBEF EQU LCTRFB 00571000 LCTRFBMS EQU LCTRFB 00572000 LCTRFBDC EQU LCTRFB 00573000 LCTRFBRV EQU LCTRFB 00574000 LCTRFBCR EQU LCTRFB 00575000 LCTRFBSM EQU LCTRFB 00576000 LCTMFTIO EQU LCTSTATB 00577000 LCTNPKEY EQU LCTSTATB 00578000 LCTSBPOL EQU LCTSTATB 00579000 LCTNREAD EQU LCTSTATB 00580000 LCTWRITE EQU LCTSTATB 00581000 LCTNOATC EQU LCTSTATB 00582000 LCTNOREG EQU LCTSTATB 00583000 LCTECBPB EQU LCTSTATB 00584000 LCTCPART EQU LCTSTATA 00585000 LCTNOGCB EQU LCTSTATA 00586000 LCTNOSDP EQU LCTSTATA 00587000 LCTJCPIB EQU LCTSTATA 00588000 LCTNECBL EQU LCTSTATA 00589000 LCTBTJOB EQU LCTSTATA 00590000 LCTSNOWK EQU LCTSTATA 00591000 LCTSUSPD EQU LCTSTATA 00592000 LCTTIOTI EQU LCT+412 00593000 @NM00074 EQU LCTJCTDA+3 00594000 LCTJCTVA EQU LCTJCTDA 00595000 LCTSSOBA EQU LCT+404 00596000 LCTSTEPL EQU LCT+400 00597000 @NM00073 EQU LCT+364 00598000 @NM00072 EQU LCTJSCB+1 00599000 @NM00071 EQU LCTOPSW3 00600000 @NM00070 EQU LCTOPSW3 00601000 LCTALERR EQU LCTOPSW3 00602000 LCTJNLF EQU LCTOPSW3 00603000 @NM00069 EQU LCTOPSW3 00604000 LCTNSYS EQU LCTOPSW3 00605000 LCTRDER EQU LCTOPSW3 00606000 @NM00068 EQU LCTOPSW3 00607000 @NM00067 EQU @NM00062+1 00608000 LCTENQU EQU LCTOPSW2 00609000 LCTNORC EQU LCTOPSW2 00610000 @NM00066 EQU LCTOPSW2 00611000 @NM00065 EQU LCTOPSW2 00612000 @NM00064 EQU LCTOPSW2 00613000 @NM00063 EQU LCTOPSW2 00614000 LCTCRF EQU LCTOPSW2 00615000 LCTTIMEF EQU LCTOPSW2 00616000 @NM00061 EQU LCTEXIT+1 00617000 @NM00060 EQU LCTOPSW1 00618000 @NM00059 EQU LCTOPSW1 00619000 LCTONEJF EQU LCTOPSW1 00620000 LCTCANF EQU LCTOPSW1 00621000 @NM00058 EQU LCTOPSW1 00622000 @NM00057 EQU LCTOPSW1 00623000 LCTDWFF EQU LCTOPSW1 00624000 LCTDPSWA EQU LCTOPSW1 00625000 @NM00056 EQU LCT+348 00626000 @NM00055 EQU LCT+340 00627000 @NM00054 EQU LCTSPIL+3 00628000 @NM00053 EQU LCTALCFG 00629000 @NM00052 EQU LCTALCFG 00630000 @NM00051 EQU LCTALCFG 00631000 @NM00050 EQU LCTALCFG 00632000 @NM00049 EQU LCTALCFG 00633000 @NM00048 EQU LCTALCFG 00634000 LCTMSGWT EQU LCTALCFG 00635000 LCTODSFL EQU LCTALCFG 00636000 LCTDSBCT EQU LCTSPIL 00637000 LCTPIB EQU LCTIDENT 00638000 @NM00047 EQU ECBLIST+1 00639000 @NM00046 EQU ECBLIST 00640000 LCTJMRAD EQU LCT+324 00641000 LCTASCBA EQU LCT+320 00642000 @NM00045 EQU LCT+284 00643000 QMGR1 EQU LCT+248 00644000 REGSAVE EQU LCT+104 00645000 @NM00044 EQU LCTATLST+1 00646000 @NM00043 EQU LCTATLST 00647000 @NM00042 EQU LCTJOBLB+1 00648000 @NM00041 EQU LCTJOBLB 00649000 @NM00040 EQU LCTTMWRK+12 00650000 LCTSMF EQU LCTTMWRK+8 00651000 @NM00039 EQU LCTTMWRK+4 00652000 @NM00038 EQU LCTTMWRK 00653000 @NM00037 EQU @NM00036+1 00654000 LCTNDSI EQU LCTINTSW 00655000 LCTABEND EQU LCTINTSW 00656000 LCTSTOP EQU LCTINTSW 00657000 LCTSTART EQU LCTINTSW 00658000 LCTMINRG EQU LCTINTSW 00659000 LCTPPAA EQU LCTINTSW 00660000 LCTPRIV EQU LCTINTSW 00661000 LCTINPPT EQU LCTINTSW 00662000 @NM00035 EQU LCTSREG+1 00663000 @NM00034 EQU LCTSREG 00664000 LCTCOMD2 EQU LCTCOMCD+2 00665000 LCTCOMD1 EQU LCTCOMCD 00666000 LCTBATMN EQU LCT+64 00667000 @NM00033 EQU LCTSMBAD+1 00668000 @NM00032 EQU LCTSMBAD 00669000 LCTACTON EQU LCT+59 00670000 LCTSNUMB EQU LCT+58 00671000 @NM00031 EQU LCTJFCBH 00672000 @NM00030 EQU LCTJFCBH 00673000 @NM00029 EQU LCTJFCBH 00674000 @NM00028 EQU LCTJFCBH 00675000 @NM00027 EQU LCTJFCBH 00676000 LCTS2FES EQU LCTJFCBH 00677000 LCTS2COP EQU LCTJFCBH 00678000 LCTS2PEM EQU LCTJFCBH 00679000 LCTSTIND EQU LCTNSPAD 00680000 @NM00026 EQU LCTCMCBA+1 00681000 @NM00025 EQU LCTCMCBA 00682000 LCTPARM2 EQU LCT+40 00683000 LCTSFAIL EQU LCTERR 00684000 LCTPALCD EQU LCTERR 00685000 LCTSALCD EQU LCTERR 00686000 LCTJFAIL EQU LCTERR 00687000 @NM00024 EQU LCTPSPAR+1 00688000 @NM00023 EQU LCTPSPAR 00689000 @NM00022 EQU LCTWORKA+3 00690000 LCTSCTVA EQU LCTWORKA 00691000 @NM00021 EQU LCTSCTAD+1 00692000 @NM00020 EQU LCTSCTAD 00693000 @NM00019 EQU LCTJCTAD+1 00694000 @NM00018 EQU LCTJCTAD 00695000 @NM00017 EQU LCTQENTY+1 00696000 LCTERRM EQU @NM00009 00697000 @NM00016 EQU @NM00009 00698000 @NM00015 EQU @NM00009 00699000 @NM00014 EQU @NM00009 00700000 @NM00013 EQU @NM00009 00701000 @NM00012 EQU @NM00009 00702000 @NM00011 EQU @NM00009 00703000 @NM00010 EQU @NM00009 00704000 @NM00008 EQU LCTTCBAD+1 00705000 @NM00007 EQU LCTTCBAD 00706000 @NM00006 EQU LCTSRTAD+1 00707000 @NM00005 EQU LCTSRTAD 00708000 @NM00004 EQU LCTQDRTY+1 00709000 @NM00003 EQU LCTQDRTY 00710000 PARDSABQ EQU IEFPARAM+44 00711000 PARTIOTB EQU IEFPARAM+40 00712000 IEFAECB EQU IEFPARAM+36 00713000 PARPRFMF EQU @NM00002+2 00714000 PARNMEMP EQU @NM00002+1 00715000 PAROMEMP EQU @NM00002 00716000 CANECBAD EQU IEFECBLT+4 00717000 ATTECBAD EQU IEFECBLT 00718000 IEFTIOTA EQU IEFPARAM+20 00719000 INITTCB EQU IEFTCBAD+1 00720000 @NM00001 EQU IEFTCBAD 00721000 IEFREMLS EQU IEFPARAM+8 00722000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00723000 @ENDDATA EQU * 00724000 END IEFI922B 00725000