TITLE 'IGCV810D, STOPLINE FOR 3705 LINES *00001000 ' 00002000 IGCV810D CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 USING *,RBASE ESTABLISH A BASE REGISTER 00005000 LR RBASE,REG15 SETUP BASE REG 00006000 IGCV810D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00007000 * ROPCAVT=RPARM; /* SET BASE POINTER FOR OP 03S0503 00008000 * CONTROL AVT */ 00009000 LR ROPCAVT,RPARM 03S0503 00010000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00011000 * TCAM ADDRESS VECTOR TABLE */ 00012000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0504 00013000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00014000 * OPERATOR CONTROL ELEMENT */ 00015000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0505 00016000 * OPCFLAG1=ZERO; /* CLEAR CONTROL SWITCHES */ 00017000 MVI OPCFLAG1(ROPCAVT),X'00' 03S0506 00018000 * IF OCRESP=ON THEN 02S0507 00019000 TM OCRESP(ROPCE),B'00000001' 02S0507 00020000 BNO @RF00507 02S0507 00021000 * DO; /* IF THIS IS AN OPCE WITH A 00022000 * NON-SNA RESPONSE, PROCESS THE 00023000 * RESPONSE */ 00024000 * 03S0509 00025000 * /*************************************************************/ 00026000 * /* */ 00027000 * /* PROCESS.RESPROC: THIS ROUTINE WILL PROCESS A NON-SNA */ 00028000 * /* RESPONSE */ 00029000 * /* */ 00030000 * /*************************************************************/ 00031000 * 03S0509 00032000 * RFY 03S0509 00033000 * (RWORK6, 03S0509 00034000 * RWORK7) RSTD; 03S0509 00035000 * CALL IPWLSRCH; /* SEARCH WAITV CHAIN FOR 03S0510 00036000 * MATCHING OPCE */ 00037000 BAL @14,IPWLSRCH 03S0510 00038000 * RZERO->OCLINK=RPARM->OCLINK;/* UNLINK OPCE FROM CHAIN */ 00039000 LR @09,RZERO 03S0511 00040000 MVC OCLINK(4,@09),OCLINK(RPARM) 03S0511 00041000 * RWORK6=RPARM; /* SAVE ADDRESS OF REAL OPCE */ 00042000 LR RWORK6,RPARM 03S0512 00043000 * CALL IPWLSRCH; /* SEARCH FOR ANOTHER OPCE 03S0513 00044000 * OY14092 */ 00045000 BAL @14,IPWLSRCH 03S0513 00046000 * IF RPARM^=ZERO THEN /* OPCE OY14092 */ 00047000 LTR RPARM,RPARM 03S0514 00048000 BZ @RF00514 03S0514 00049000 * DO; /* YES OY14092 */ 00050000 * RZERO->OCLINK=RPARM->OCLINK;/* DELINK OPCE OY14092 */ 00051000 L @09,OCLINK(,RPARM) 03S0516 00052000 LR @05,RZERO 03S0516 00053000 ST @09,OCLINK(,@05) 03S0516 00054000 * RWORK6->OCATTACH=ON; /* INDICATE OPCE ATTACH OY14092 */ 00055000 OI OCATTACH(RWORK6),B'00000010' 03S0517 00056000 * RWORK6->OCELEM=RPARM; /* ATTACH IT OY14092 */ 00057000 ST RPARM,OCELEM(,RWORK6) 03S0518 00058000 * RPARM->OCLINK=RPARM->OCLINK&&RPARM->OCLINK;/* OY14092 */ 00059000 LR @05,@09 03S0519 00060000 XR @05,@09 03S0519 00061000 ST @05,OCLINK(,RPARM) 03S0519 00062000 * IF RPARM->OCWTG=MODVE THEN/* PARTIALLY DONE OY14092 */ 00063000 CLC OCWTG(2,RPARM),MODVE 03S0520 00064000 BNE @RF00520 03S0520 00065000 * RPARM->OCWTG=MODV8; /* RESTART OY14092 */ 00066000 MVC OCWTG(2,RPARM),MODV8 03S0521 00067000 * ELSE /* NOT STOPLINE OY14092 */ 00068000 * IF RPARM->OCWTG=MODVF THEN/* PARTIALLY DONE OY14092 */ 00069000 B @RC00520 03S0522 00070000 @RF00520 CLC OCWTG(2,RPARM),MODVF 03S0522 00071000 BNE @RF00522 03S0522 00072000 * RPARM->OCWTG=MODV9; /* RESTART OY14092 */ 00073000 MVC OCWTG(2,RPARM),MODV9 03S0523 00074000 * ELSE /* OY14092 */ 00075000 * IF RPARM->OCWTG^=MODVG&(RPARM->OCWTG^=MODV8&RPARM-> 00076000 * OCWTG^=MODV9) THEN/* ALL STARTED OY14092 */ 00077000 B @RC00522 03S0524 00078000 @RF00522 CLC OCWTG(2,RPARM),MODVG 03S0524 00079000 BE @RF00524 03S0524 00080000 CLC OCWTG(2,RPARM),MODV8 03S0524 00081000 BE @RF00524 03S0524 00082000 CLC OCWTG(2,RPARM),MODV9 03S0524 00083000 BE @RF00524 03S0524 00084000 * RPARM->OCWTG=MODV8;/* RESTART OY14092 */ 00085000 MVC OCWTG(2,RPARM),MODV8 03S0525 00086000 * END; /* OY14092 */ 00087000 * ELSE 03S0527 00088000 * ; /* NO OPCE WAITING OY14092 */ 00089000 @RF00514 DS 0H 03S0528 00090000 * RWORK7=OCPARM; /* SAVE RETURN CODE */ 00091000 @RC00514 LH @09,OCPARM(,ROPCE) 03S0528 00092000 LR RWORK7,@09 03S0528 00093000 * RWORK6->OCUNIT=INVALTIC; /* INDICATE OPCE ONLY UNIT TO BE 00094000 * FREED */ 00095000 MVC OCUNIT(4,RWORK6),@CF02034 03S0529 00096000 * IF OCPARM^=ONE&RWORK6->OCALLFLG=OFF THEN 03S0530 00097000 CH @09,@CH00060 03S0530 00098000 BE @RF00530 03S0530 00099000 TM OCALLFLG(RWORK6),B'00000100' 03S0530 00100000 BNZ @RF00530 03S0530 00101000 * DO; /* IF NOT A GOOD RESPONSE AND NOT 00102000 * AN 'ALL' REQUEST THEN @YM06145*/ 00103000 * IF OCPARM=TWO THEN 03S0532 00104000 CH @09,@CH00131 03S0532 00105000 BNE @RF00532 03S0532 00106000 * DO; /* IF LINE ALREADY STOPPED THEN */ 00107000 * IF RWORK6->OCTOTE=ON THEN 03S0534 00108000 TM OCTOTE(RWORK6),B'01000000' 03S0534 00109000 BNO @RF00534 03S0534 00110000 * TRMSTOTE=ON; /* INDICATE TOTE OWN @YM06145*/ 00111000 LR @09,RTRM 03S0535 00112000 AL @09,@CF02691 03S0535 00113000 OI TRMSTOTE-7(@09),B'00000001' 03S0535 00114000 * OPCWRKSP(1)=MSG25; /* SETUP MSG NUMBER */ 00115000 @RF00534 MVC OPCWRKSP(4,ROPCAVT),@CF02601 03S0536 00116000 * OPCWRKSP(2)=EIGHT; /* SETUP RETURN CODE */ 00117000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00045 03S0537 00118000 * END; 03S0538 00119000 * ELSE 03S0539 00120000 * DO; 03S0539 00121000 B @RC00532 03S0539 00122000 @RF00532 DS 0H 03S0540 00123000 * OPCWRKSP(1)=MSG199; /* BAD RESPONSE */ 00124000 MVC OPCWRKSP(4,ROPCAVT),@CF02607 03S0540 00125000 * OPCWRKSP(2)=FOUR; /* SETUP RETURN CODE */ 00126000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00250 03S0541 00127000 * RWORK6->OCUNIT=OCUNIT;/* ATTACH UNIT FROM INPUT OPCE 00128000 * TO REAL OPCE */ 00129000 MVC OCUNIT(4,RWORK6),OCUNIT(ROPCE) 03S0542 00130000 * END; 03S0543 00131000 * END; 03S0544 00132000 @RC00532 DS 0H 03S0545 00133000 * OCUNIT=INVALTIC; /* INDICATE LAST UNIT @ZM46746*/ 00134000 @RF00530 MVC OCUNIT(4,ROPCE),@CF02034 03S0545 00135000 * RPARM=ROPCE; /* SETUP INPUT OPCE TO BE FREED */ 00136000 LR RPARM,ROPCE 03S0546 00137000 * RFY 03S0547 00138000 * RSAVE RSTD; 03S0547 00139000 * RSAVE=ADDR(OPCSAVE); /* SETUP SAVEAREA */ 00140000 LA RSAVE,OPCSAVE(,ROPCAVT) 03S0548 00141000 * CALL FREEBUFF; /* FREE INPUT OPCE AND ATTACHED 00142000 * UNIT */ 00143000 L @15,OPCFREBF(,ROPCAVT) 03S0549 00144000 BALR @14,@15 03S0549 00145000 * RFY 03S0550 00146000 * RSAVE UNRSTD; 03S0550 00147000 * ROPCE=RWORK6; /* SETUP ADDRESS OF REAL OPCE */ 00148000 LR ROPCE,RWORK6 03S0551 00149000 * OPCCOPCE=RWORK6; /* SAVE OPCE ADDR IN OP CONTROL 00150000 * AVT */ 00151000 ST RWORK6,OPCCOPCE(,ROPCAVT) 03S0552 00152000 * RPARM=OCTRMTBL; /* GET TTCIN OF LINE TTE */ 00153000 SLR RPARM,RPARM 03S0553 00154000 ICM RPARM,3,OCTRMTBL(ROPCE) 03S0553 00155000 * CALL IEDQTNT; /* GET LINE TTE */ 00156000 L @15,AVTRNMPT(,RAVT) 03S0554 00157000 BALR @14,@15 03S0554 00158000 * RTRM=RPARM; /* SETUP TERM BASE */ 00159000 LR RTRM,RPARM 03S0555 00160000 * OCWTG=OCWTGB; /* SETUP WHERE-TO-GO FIELD */ 00161000 MVC OCWTG(2,ROPCE),OCWTGB(ROPCE) 03S0556 00162000 * IF RWORK7=ONE THEN 03S0557 00163000 CH RWORK7,@CH00060 03S0557 00164000 BNE @RF00557 03S0557 00165000 * DO; /* WAS IT A GOOD RESPONSE? */ 00166000 * OPCWRKSP(1)=MSG26; /* SETUP GOOD RESPONSE */ 00167000 MVC OPCWRKSP(4,ROPCAVT),@CF02603 03S0559 00168000 * OPCWRKSP(2)=ZERO; /* SETUP GOOD RETURN CODE */ 00169000 SLR @09,@09 03S0560 00170000 ST @09,OPCWRKSP+4(,ROPCAVT) 03S0560 00171000 * IF OCTOTE=ON THEN 03S0561 00172000 TM OCTOTE(ROPCE),B'01000000' 03S0561 00173000 BNO @RF00561 03S0561 00174000 * TRMSTOTE=ON; /* INDICATE TOTE OWNERSHIP */ 00175000 LR @09,RTRM 03S0562 00176000 AL @09,@CF02691 03S0562 00177000 OI TRMSTOTE-7(@09),B'00000001' 03S0562 00178000 * CALL IPEXIT; /* PERFORM NORMAL EXIT PROCESSING*/ 00179000 @RF00561 BAL @14,IPEXIT 03S0563 00180000 * END; 03S0564 00181000 * ELSE /* EITHER A BAD RESPONSE OR LINE 00182000 * ALREADY STOPPED */ 00183000 * CALL IPERROR; /* PERFORM ERROR PROCESSING */ 00184000 B @RC00557 03S0565 00185000 @RF00557 BAL @14,IPERROR 03S0565 00186000 * RFY 03S0566 00187000 * (RWORK6, 03S0566 00188000 * RWORK7) UNRSTD; 03S0566 00189000 @RC00557 DS 0H 03S0567 00190000 * END; 02S0567 00191000 * ELSE 02S0568 00192000 * IF OCPARM^=ZERO THEN 02S0568 00193000 B @RC00507 02S0568 00194000 @RF00507 LH @09,OCPARM(,ROPCE) 02S0568 00195000 LTR @09,@09 02S0568 00196000 BZ @RF00568 02S0568 00197000 * DO; /* IF THIS IS AN OPCE WITH A SNA 00198000 * RESPONSE, PROCESS IT */ 00199000 * 03S0570 00200000 * /***********************************************************/ 00201000 * /* */ 00202000 * /* PROCESS.SNAPROC: THIS SEGMENT PROCESSES SNA RESPONSES */ 00203000 * /* */ 00204000 * /***********************************************************/ 00205000 * 03S0570 00206000 * OCWTG=OCWTGB; /* SETUP WHERE-TO-GO FIELD */ 00207000 MVC OCWTG(2,ROPCE),OCWTGB(ROPCE) 03S0570 00208000 * OPCWRKSP(1)=OCPARM; /* SETUP MESSAGE NUMBER */ 00209000 ST @09,OPCWRKSP(,ROPCAVT) 03S0571 00210000 * RPARM=OCTRMTBL; /* SETUP TTCIN OF SNA LINE */ 00211000 SLR RPARM,RPARM 03S0572 00212000 ICM RPARM,3,OCTRMTBL(ROPCE) 03S0572 00213000 * CALL IEDQTNT; /* GET LINE TTE */ 00214000 L @15,AVTRNMPT(,RAVT) 03S0573 00215000 BALR @14,@15 03S0573 00216000 * RTRM=RPARM; /* SETUP TERM BASE */ 00217000 LR RTRM,RPARM 03S0574 00218000 * IF OCPARM=MSG401 THEN 03S0575 00219000 CLC OCPARM(2,ROPCE),@CH02613 03S0575 00220000 BNE @RF00575 03S0575 00221000 * DO; /* IF SNA LINE DEACTIVATED, 03S0576 00222000 * PROCESS NORMALLY */ 00223000 * OPCWRKSP(2)=ZERO; /* SETUP RETURN CODE */ 00224000 SLR @09,@09 03S0577 00225000 ST @09,OPCWRKSP+4(,ROPCAVT) 03S0577 00226000 * CALL IPEXIT; /* DO NORMAL EXIT PROCESSING */ 00227000 BAL @14,IPEXIT 03S0578 00228000 * END; 03S0579 00229000 * ELSE 03S0580 00230000 * DO; 03S0580 00231000 B @RC00575 03S0580 00232000 @RF00575 DS 0H 03S0581 00233000 * IF OCPARM=MSG539 THEN 03S0581 00234000 CLC OCPARM(2,ROPCE),@CH02615 03S0581 00235000 BNE @RF00581 03S0581 00236000 * OPCWRKSP(2)=EIGHT; /* LINE ALREADY DEACTIVATED */ 00237000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00045 03S0582 00238000 * ELSE 03S0583 00239000 * OPCWRKSP(2)=FOUR; /* ELSE SETUP ERROR RETURN CODE */ 00240000 B @RC00581 03S0583 00241000 @RF00581 MVC OPCWRKSP+4(4,ROPCAVT),@CF00250 03S0583 00242000 * CALL IPERROR; /* DO ERROR PROCESSING */ 00243000 @RC00581 BAL @14,IPERROR 03S0584 00244000 * END; 03S0585 00245000 * END; 02S0586 00246000 * ELSE 02S0587 00247000 * FIRSTREQ=ON; /* ELSE INDICATE ITS A FIRST 00248000 * REQUEST */ 00249000 B @RC00568 02S0587 00250000 @RF00568 OI FIRSTREQ(ROPCAVT),B'10000000' 02S0587 00251000 * DO WHILE(FIRSTREQ=ON|MORLINES=ON);/* IF THIS IS A FIRST REQUEST 00252000 * OR MORE LINES ARE LEFT TO 00253000 * PROCESS, PROCESS STOPLINE 00254000 * REQUEST */ 00255000 @RC00568 DS 0H 02S0588 00256000 @RC00507 B @DE00588 02S0588 00257000 @DL00588 DS 0H 02S0589 00258000 * 03S0589 00259000 * /***************************************************************/ 00260000 * /* */ 00261000 * /* PROCESS.STPLPROC: THIS SEGMENT PROCESSES STOPLINE REQUESTS */ 00262000 * /* */ 00263000 * /***************************************************************/ 00264000 * 03S0589 00265000 * MORLINES=OFF; /* RESET LINE INDICATOR */ 00266000 NI MORLINES(ROPCAVT),B'10111111' 03S0589 00267000 * IF FIRSTREQ=ON THEN 03S0590 00268000 TM FIRSTREQ(ROPCAVT),B'10000000' 03S0590 00269000 BNO @RF00590 03S0590 00270000 * DO; /* IF THIS REQUEST IS FIRST ONE, 00271000 * SETUP TO ESTABLISH FIRST LINE */ 00272000 * FIRSTREQ=OFF; /* TURN OFF FIRST REQUEST FLAG */ 00273000 NI FIRSTREQ(ROPCAVT),B'01111111' 03S0592 00274000 * 04S0593 00275000 * /***********************************************************/ 00276000 * /* */ 00277000 * /* PROCESS.STPLPROC.FIRSTLN: THIS SEGMENT ESTABLISHES THE */ 00278000 * /* FIRST LINE TO BE STOPPED */ 00279000 * /* */ 00280000 * /***********************************************************/ 00281000 * 04S0593 00282000 * IF OCRENTRD=ON THEN 04S0593 00283000 TM OCRENTRD(ROPCE),B'10000000' 04S0593 00284000 BNO @RF00593 04S0593 00285000 * DO; /* IS THIS A RE-ENTRY? */ 00286000 * OCRENTRD=OFF; /* RE-SET 'RE-ENTERED' INDICATOR */ 00287000 NI OCRENTRD(ROPCE),B'01111111' 04S0595 00288000 * OCWTG=OCWTGB; /* SETUP WHERE-TO-GO FIELD */ 00289000 MVC OCWTG(2,ROPCE),OCWTGB(ROPCE) 04S0596 00290000 * END; 04S0597 00291000 * RPARM=OCTRMTBL; /* GET TTCIN OF RESOURCE */ 00292000 @RF00593 SLR RPARM,RPARM 04S0598 00293000 ICM RPARM,3,OCTRMTBL(ROPCE) 04S0598 00294000 * CALL IEDQTNT; /* FIND TTE OF RESOURCE */ 00295000 L @15,AVTRNMPT(,RAVT) 04S0599 00296000 BALR @14,@15 04S0599 00297000 * RTRM=RPARM; /* SETUP TERM BASE */ 00298000 LR RTRM,RPARM 04S0600 00299000 * IF TRMTYPE=TRMGRP THEN 04S0601 00300000 LR @09,RTRM 04S0601 00301000 SH @09,@CH00035 04S0601 00302000 CLI TRMTYPE(@09),X'00' 04S0601 00303000 BNE @RF00601 04S0601 00304000 * DO; /* IS THIS A GROUP TTE */ 00305000 * IF TRMSUBST^=ZERO THEN 04S0603 00306000 ICM @05,3,TRMSUBST(@09) 04S0603 00307000 BZ @RF00603 04S0603 00308000 * DO; 04S0604 00309000 * OCTRMTBL=TRMSUBST;/* SAVE TTCIN OF LINE */ 00310000 SLR @05,@05 04S0605 00311000 ICM @05,3,TRMSUBST(@09) 04S0605 00312000 STH @05,OCTRMTBL(,ROPCE) 04S0605 00313000 * RPARM=OCTRMTBL; /* GET TTCIN FROM OPCE */ 00314000 LR RPARM,@05 04S0606 00315000 * CALL IEDQTNT; /* FIND LINE TTE */ 00316000 L @15,AVTRNMPT(,RAVT) 04S0607 00317000 BALR @14,@15 04S0607 00318000 * RTRM=RPARM; /* SETUP LINE TTE ADDRESS */ 00319000 LR RTRM,RPARM 04S0608 00320000 * END; 04S0609 00321000 * ELSE 04S0610 00322000 * DO; 04S0610 00323000 B @RC00603 04S0610 00324000 @RF00603 DS 0H 04S0611 00325000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00326000 OI EXITFLG(ROPCAVT),B'00010000' 04S0611 00327000 * OPCMODID=MOD03; /* SETUP MOD ID */ 00328000 MVC OPCMODID(2,ROPCAVT),MOD03 04S0612 00329000 * RZERO=MSG541; /* GROUP HAS NO LINES ATTACHED */ 00330000 LA RZERO,541 04S0613 00331000 * RPARM=FOUR; /* SETUP RETURN CODE */ 00332000 LA RPARM,4 04S0614 00333000 * END; 04S0615 00334000 * END; 04S0616 00335000 @RC00603 DS 0H 04S0617 00336000 * IF EXITFLG=OFF THEN 04S0617 00337000 @RF00601 TM EXITFLG(ROPCAVT),B'00010000' 04S0617 00338000 BNZ @RF00617 04S0617 00339000 * DO; 04S0618 00340000 * CALL IPWLSRCH; /* SEARCH WAITV CHAIN */ 00341000 BAL @14,IPWLSRCH 04S0619 00342000 * IF OCSWITCH^=OCSTPLNI THEN/* STOPLINE,C OY14092 */ 00343000 CLI OCSWITCH(ROPCE),X'12' 04S0620 00344000 BE @RF00620 04S0620 00345000 * DO; /* YES OY14092 */ 00346000 * IF RPARM=ZERO THEN 04S0622 00347000 LTR RPARM,RPARM 04S0622 00348000 BNZ @RF00622 04S0622 00349000 * DO; /* IF A MATCH WAS NOT FOUND */ 00350000 * IF OCALLFLG=ON THEN 04S0624 00351000 TM OCALLFLG(ROPCE),B'00000100' 04S0624 00352000 BNO @RF00624 04S0624 00353000 * DO; /* CHECK 'ALL' STATUS */ 00354000 * OCSOME=OFF;/* INDICATE AN UNSET STATUS */ 00355000 * OCNONE=OFF; 04S0627 00356000 NI OCSOME(ROPCE),B'11111100' 04S0627 00357000 * END; 04S0628 00358000 * END; 04S0629 00359000 * ELSE 04S0630 00360000 * DO; 04S0630 00361000 B @RC00622 04S0630 00362000 @RF00622 DS 0H 04S0631 00363000 * IF RPARM->OCSWITCH=OCSTPLNI THEN/* STOPLINE,I 00364000 * OY14092 */ 00365000 CLI OCSWITCH(RPARM),X'12' 04S0631 00366000 BNE @RF00631 04S0631 00367000 * DO; /* YES OY14092 */ 00368000 * OCELEM=RPARM;/* ATTACH THE WAITING OPCE 00369000 * OY14092 */ 00370000 ST RPARM,OCELEM(,ROPCE) 04S0633 00371000 * RZERO->OCLINK=RPARM->OCLINK;/* DELINK OPCE 00372000 * OY14092 */ 00373000 L @09,OCLINK(,RPARM) 04S0634 00374000 LR @05,RZERO 04S0634 00375000 ST @09,OCLINK(,@05) 04S0634 00376000 * RPARM->OCLINK=RPARM->OCLINK&&RPARM->OCLINK; 00377000 LR @05,@09 04S0635 00378000 XR @05,@09 04S0635 00379000 ST @05,OCLINK(,RPARM) 04S0635 00380000 * /* CLEAROY14092 */ 00381000 * OCATTACH=ON;/* INDICATE OPCE IS ATTACHED 00382000 * OY14092 */ 00383000 OI OCATTACH(ROPCE),B'00000010' 04S0636 00384000 * END; /* OY14092 */ 00385000 * ELSE /* STOPLINE,C OY14092 */ 00386000 * DO; /* YES OY14092 */ 00387000 B @RC00631 04S0638 00388000 @RF00631 DS 0H 04S0639 00389000 * OCWTGB=OCWTG;/* SETUP BACKUP WHERE-TO-GO */ 00390000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 04S0639 00391000 * OCRENTRD=ON;/* SETUP RE-ENTERED FLAG */ 00392000 OI OCRENTRD(ROPCE),B'10000000' 04S0640 00393000 * OCWTG=MODV8;/* SETUP TO RETURN TO THIS 00394000 * MODULE */ 00395000 MVC OCWTG(2,ROPCE),MODV8 04S0641 00396000 * RZERO=ZERO;/* SETUP INTERFACE TO NEXT MOD */ 00397000 SLR RZERO,RZERO 04S0642 00398000 * OPCMODID=MOD00;/* SETUP FOR XCTL TO NEXT 00399000 * MODULE */ 00400000 MVC OPCMODID(2,ROPCAVT),MOD00 04S0643 00401000 * EXITFLG=ON;/* SETUP TO EXIT */ 00402000 OI EXITFLG(ROPCAVT),B'00010000' 04S0644 00403000 * 05S0645 00404000 * /*******************************************/ 00405000 * /* */ 00406000 * /* PROCESS.STPLPROC.WLATTACH: THIS SEGMENT */ 00407000 * /* ATTACHES THE INPUT OPCE TO AN OPCE ON */ 00408000 * /* THE WAITV CHAIN WITH THE SAME GROUPNAME */ 00409000 * /* */ 00410000 * /*******************************************/ 00411000 * 05S0645 00412000 * DO WHILE(RPARM->OCATTACH=ON);/* SEARCH FOR 00413000 * LAST OPCE ATTACHED */ 00414000 B @DE00645 05S0645 00415000 @DL00645 DS 0H 05S0646 00416000 * RPARM=RPARM->OCELMPTR;/* GOTO NEXT OPCE */ 00417000 SLR @09,@09 05S0646 00418000 ICM @09,7,OCELMPTR(RPARM) 05S0646 00419000 LR RPARM,@09 05S0646 00420000 * END; 05S0647 00421000 @DE00645 TM OCATTACH(RPARM),B'00000010' 05S0647 00422000 BO @DL00645 05S0647 00423000 * RPARM->OCELMPTR=ROPCE;/* ATTACH INPUT OPCE 00424000 * TO WAIT CHAIN */ 00425000 STCM ROPCE,7,OCELMPTR(RPARM) 05S0648 00426000 * RPARM->OCATTACH=ON;/* INDICATE OPCE IS 00427000 * ATTACHED */ 00428000 OI OCATTACH(RPARM),B'00000010' 05S0649 00429000 * END; 04S0650 00430000 * END; /* OY14092 */ 00431000 * END; /* OY14092 */ 00432000 * END; 04S0653 00433000 * END; 03S0654 00434000 * ELSE 03S0655 00435000 * DO; 03S0655 00436000 B @RC00590 03S0655 00437000 @RF00590 DS 0H 03S0656 00438000 * RPARM=OCTRMTBL; /* GET TTCIN OF FIRST LINE */ 00439000 SLR RPARM,RPARM 03S0656 00440000 ICM RPARM,3,OCTRMTBL(ROPCE) 03S0656 00441000 * CALL IEDQTNT; /* FIND LINE TTE */ 00442000 L @15,AVTRNMPT(,RAVT) 03S0657 00443000 BALR @14,@15 03S0657 00444000 * RTRM=RPARM; /* SETUP TERM BASE */ 00445000 LR RTRM,RPARM 03S0658 00446000 * END; 03S0659 00447000 * IF TRMSTOTE=ON&OCTOTE=OFF THEN 03S0660 00448000 @RC00590 LR @09,RTRM 03S0660 00449000 AL @09,@CF02691 03S0660 00450000 TM TRMSTOTE-7(@09),B'00000001' 03S0660 00451000 BNO @RF00660 03S0660 00452000 TM OCTOTE(ROPCE),B'01000000' 03S0660 00453000 BNZ @RF00660 03S0660 00454000 * DO; /* TOTE IN CONTROL @YM08560*/ 00455000 * OPCWRKSP(1)=MSG49; /* SET UP FOR MSG 49 @YM08560*/ 00456000 MVC OPCWRKSP(4,ROPCAVT),@CF02605 03S0662 00457000 * OPCWRKSP(2)=FOUR; /* SET @YM08560*/ 00458000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00250 03S0663 00459000 * EXITFLG=ON; /* SET UP TO EXIT @YM08560*/ 00460000 OI EXITFLG(ROPCAVT),B'00010000' 03S0664 00461000 * CALL IPERROR; /* DO ERROR PROCESSINF @YM08560*/ 00462000 BAL @14,IPERROR 03S0665 00463000 * END; 03S0666 00464000 * IF EXITFLG=OFF THEN 03S0667 00465000 @RF00660 TM EXITFLG(ROPCAVT),B'00010000' 03S0667 00466000 BNZ @RF00667 03S0667 00467000 * DO; /* IF NOT DONE PROCESSING CHECK 00468000 * FOR SNA REQUEST */ 00469000 * 04S0669 00470000 * /***********************************************************/ 00471000 * /* */ 00472000 * /* PROCESS.STPLPROC.SNACHK: CHECK FOR SNA LINE PROCESSING */ 00473000 * /* */ 00474000 * /***********************************************************/ 00475000 * 04S0669 00476000 * IF TRMTYPE=TRMSDLC THEN 04S0669 00477000 LR @09,RTRM 04S0669 00478000 AL @09,@CF01705 04S0669 00479000 CLI TRMTYPE-15(@09),X'21' 04S0669 00480000 BNE @RF00669 04S0669 00481000 * DO; /* IF ITS A SNA LINE SETUP TO 00482000 * EXIT */ 00483000 * OCIPLWA=ZERO; /* CLEAR OUT FOR ACT/DEACT */ 00484000 SLR @09,@09 04S0671 00485000 ST @09,OCIPLWA(,ROPCE) 04S0671 00486000 * OCPTRSAV=ZERO; /* CLEAR OUT FOR ACT/DEACT */ 00487000 ST @09,OCPTRSAV(,ROPCE) 04S0672 00488000 * OCWTGB=OCWTG; /* SETUP BACKUP WHERE-TO-GO */ 00489000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 04S0673 00490000 * OCWTG=MODV8; /* SETUP TO RETURN TO THIS MODULE*/ 00491000 MVC OCWTG(2,ROPCE),MODV8 04S0674 00492000 * OPCMODID=MODFC; /* SETUP TO PROCESS SNA LINE */ 00493000 MVC OPCMODID(2,ROPCAVT),MODFC 04S0675 00494000 * IEDQOPCN(1:8)=IEDQOPCN(1:8)&&IEDQOPCN(1:8);/* CLEAR 00495000 * NEGATIVE PREFIX */ 00496000 LR @09,ROPCE 04S0676 00497000 AL @09,@CF02697 04S0676 00498000 XC IEDQOPCN(8,@09),IEDQOPCN(@09) 04S0676 00499000 * EXITFLG=ON; /* SETUP TO EXIT */ 00500000 OI EXITFLG(ROPCAVT),B'00010000' 04S0677 00501000 * END; 04S0678 00502000 * IF EXITFLG=OFF THEN 03S0679 00503000 @RF00669 TM EXITFLG(ROPCAVT),B'00010000' 03S0679 00504000 BNZ @RF00679 03S0679 00505000 * DO; /* IF NOT DONE PROCESSING THEN 00506000 * VERIFY NCP STATUS */ 00507000 * 04S0681 00508000 * /*******************************************************/ 00509000 * /* */ 00510000 * /* PROCESS.STPLPROC.NCPCHK: THIS SEGMENT CHECKS FOR */ 00511000 * /* STATUS OF NCP */ 00512000 * /* */ 00513000 * /*******************************************************/ 00514000 * 04S0681 00515000 * IF TRMCOHRT^=ZERO THEN 04S0681 00516000 LR @09,RTRM 04S0681 00517000 AL @09,@CF02698 04S0681 00518000 ICM @05,3,TRMCOHRT-8(@09) 04S0681 00519000 BZ @RF00681 04S0681 00520000 * DO; /* IF MORE TTES EXIST, CONTINUE 00521000 * PROCESSING */ 00522000 * RPARM=RTRM; /* SETUP TTE ADDRESS */ 00523000 LR RPARM,RTRM 04S0683 00524000 * RFY 04S0684 00525000 * RSAVE RSTD; 04S0684 00526000 * RSAVE=ADDR(OPCSAVE);/* SETUP A SAVEAREA */ 00527000 LA RSAVE,OPCSAVE(,ROPCAVT) 04S0685 00528000 * CALL COHORTLK; /* FIND NEXT HIGHER RESOURCE */ 00529000 L @15,OPCHORT(,ROPCAVT) 04S0686 00530000 BALR @14,@15 04S0686 00531000 * RFY 04S0687 00532000 * RSAVE UNRSTD; 04S0687 00533000 * RPARM=RPARM-LENGTH(IEDNTRM);/* POINT TO NEGATIVE 00534000 * PREFIX */ 00535000 LA @09,18 04S0688 00536000 SLR RPARM,@09 04S0688 00537000 * RFY 04S0689 00538000 * REG09 RSTD; 04S0689 00539000 * REG09=RPARM; /* SAVE NCP TTE FOR SETUP OF NSL 00540000 * BUFER */ 00541000 LR REG09,RPARM 04S0690 00542000 * IF OCACTREQ=OFF&RPARM->TRMINPG=ON THEN 04S0691 00543000 TM OCACTREQ(ROPCE),B'00001000' 04S0691 00544000 BNZ @RF00691 04S0691 00545000 TM TRMINPG(RPARM),B'00100000' 04S0691 00546000 BNO @RF00691 04S0691 00547000 * DO; /* IF THIS NOT AN ACT/DEACT RQST 00548000 * AND TERM IS IN PROGRESS */ 00549000 * OPCWRKSP(7)=RPARM;/* SAVE THE NCP ADDR */ 00550000 ST RPARM,OPCWRKSP+24(,ROPCAVT) 04S0693 00551000 * OCBACKUP=''B; /* CLEAR TO INSERT THE UCB 04S0694 00552000 * ADDRESS */ 00553000 XC OCBACKUP(8,ROPCE),OCBACKUP(ROPCE) 04S0694 00554000 * RFY 04S0695 00555000 * IHADCB BASED(RPARM);/* BASE FOR DCB @XM05704*/ 00556000 * RPARM=RPARM+LENGTH(IEDNTRM);/* BACK TO TTE 00557000 * @XM05704*/ 00558000 LA @05,18 04S0696 00559000 ALR RPARM,@05 04S0696 00560000 * RPARM=RPARM->TRMDESTQ->QCBDCBAD;/* GET DEB ADDR*/ 00561000 ICM @05,7,TRMDESTQ(RPARM) 04S0697 00562000 SLR @11,@11 04S0697 00563000 ICM @11,7,QCBDCBAD(@05) 04S0697 00564000 LR RPARM,@11 04S0697 00565000 * RPARM=DCBDEBAD;/* GET DEB ADDR @XM05704*/ 00566000 L @05,DCBDEBAD+40(,RPARM) 04S0698 00567000 LR RPARM,@05 04S0698 00568000 * RFY 04S0699 00569000 * IHADCB BASED;/* @XM05704*/ 00570000 * RFY 04S0700 00571000 * IEDQDEB BASED(RPARM); 04S0700 00572000 * RPARM=RPARM-(ADDR(DEBNMSUB)-ADDR(IEDQDEB)); 00573000 SH RPARM,@CH00800 04S0701 00574000 * OCBACKUP(1:3)=DEBUCBAD->UCBNAME;/* INSERT THE 00575000 * UCB ADDRESS */ 00576000 ICM @05,7,DEBUCBAD(RPARM) 04S0702 00577000 MVC OCBACKUP(3,ROPCE),UCBNAME(@05) 04S0702 00578000 * RPARM=OPCWRKSP(7);/* RESTORE NCP ADDR */ 00579000 L @05,OPCWRKSP+24(,ROPCAVT) 04S0703 00580000 LR RPARM,@05 04S0703 00581000 * OPCWRKSP(1)=MSG210;/* SETUP ERR MSG NUMBER */ 00582000 MVC OPCWRKSP(4,ROPCAVT),@CF02609 04S0704 00583000 * OPCWRKSP(2)=FOUR;/* SETUP RETURN CODE */ 00584000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00250 04S0705 00585000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00586000 OI EXITFLG(ROPCAVT),B'00010000' 04S0706 00587000 * CALL IPERROR; /* PROCESS ERROR */ 00588000 BAL @14,IPERROR 04S0707 00589000 * END; 04S0708 00590000 * END; 04S0709 00591000 * ELSE 04S0710 00592000 * DO; 04S0710 00593000 B @RC00681 04S0710 00594000 @RF00681 DS 0H 04S0711 00595000 * OPCWRKSP(1)=MSG400;/* SETUP MSG NUMBER */ 00596000 MVC OPCWRKSP(4,ROPCAVT),@CF02611 04S0711 00597000 * OPCWRKSP(2)=FOUR; /* SETUP ERROR MSG CODE */ 00598000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00250 04S0712 00599000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00600000 OI EXITFLG(ROPCAVT),B'00010000' 04S0713 00601000 * CALL IPERROR; /* PROCESS ERRORS */ 00602000 BAL @14,IPERROR 04S0714 00603000 * END; 04S0715 00604000 * IF EXITFLG=OFF THEN 03S0716 00605000 @RC00681 TM EXITFLG(ROPCAVT),B'00010000' 03S0716 00606000 BNZ @RF00716 03S0716 00607000 * DO; /* IF NOT DONE PROCESSING, VERIFY 00608000 * LINE STATUS */ 00609000 * 04S0718 00610000 * /***************************************************/ 00611000 * /* */ 00612000 * /* PROCESS.STPLPROC.LNCHK: THIS SEGMENT CHECKS */ 00613000 * /* STATUS OF LINE */ 00614000 * /* */ 00615000 * /***************************************************/ 00616000 * 04S0718 00617000 * IF TRMRSACT=OFF THEN 04S0718 00618000 LR @05,RTRM 04S0718 00619000 SH @05,@CH00035 04S0718 00620000 TM TRMRSACT(@05),B'10000000' 04S0718 00621000 BNZ @RF00718 04S0718 00622000 * DO; /* IF LINE IS NOT ACTIVE */ 00623000 * IF OCTOTE=ON THEN 04S0720 00624000 TM OCTOTE(ROPCE),B'01000000' 04S0720 00625000 BNO @RF00720 04S0720 00626000 * TRMSTOTE=ON;/* CHECK FOR TOTE REQUEST */ 00627000 OI TRMSTOTE(@05),B'00000001' 04S0721 00628000 * OPCWRKSP(1)=MSG25;/* SETUP MSG NUMBER */ 00629000 @RF00720 MVC OPCWRKSP(4,ROPCAVT),@CF02601 04S0722 00630000 * OPCWRKSP(2)=EIGHT;/* SETUP ERROR MSG CODE */ 00631000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00045 04S0723 00632000 * EXITFLG=ON; /* INDICATE EXIT */ 00633000 OI EXITFLG(ROPCAVT),B'00010000' 04S0724 00634000 * CALL IPERROR; /* PROCESS ERRORS */ 00635000 BAL @14,IPERROR 04S0725 00636000 * END; 04S0726 00637000 * IF EXITFLG=OFF THEN 03S0727 00638000 @RF00718 TM EXITFLG(ROPCAVT),B'00010000' 03S0727 00639000 BNZ @RF00727 03S0727 00640000 * DO; /* IF NOT DONE PROCESSING PREPARE 00641000 * TO BUILD STOPLINE REQUEST */ 00642000 * OCWTGB=OCWTG; /* SETUP BACKUP FIELD TO 03S0729 00643000 * WHERE-TO-GO */ 00644000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 03S0729 00645000 * RPARM=ONE; /* GET ONE BUFFER UNIT */ 00646000 LA RPARM,1 03S0730 00647000 * RFY 03S0731 00648000 * RSAVE RSTD; 03S0731 00649000 * RSAVE=ADDR(OPCSAVE);/* SETUP ADDRESS OF 03S0732 00650000 * SAVEAREA */ 00651000 LA RSAVE,OPCSAVE(,ROPCAVT) 03S0732 00652000 * CALL ALLOCBUF;/* GET A BUFFER UNIT, THEN BUILD 00653000 * STOPLINE REQUEST */ 00654000 L @15,OPCGETBF(,ROPCAVT) 03S0733 00655000 BALR @14,@15 03S0733 00656000 * RFY 03S0734 00657000 * RSAVE UNRSTD; 03S0734 00658000 * 04S0735 00659000 * /***********************************************/ 00660000 * /* */ 00661000 * /* PROCESS.STPLPROC.BLDACT: BUILD A STOPLINE */ 00662000 * /* REQUEST */ 00663000 * /* */ 00664000 * /***********************************************/ 00665000 * 04S0735 00666000 * IEDNSLD(1:LENGTH(IEDNSLD))=''B;/* CLEAR BUFFER */ 00667000 XC IEDNSLD(48,RPARM),IEDNSLD(RPARM) 04S0735 00668000 */* SETUP NSL BUFFER */ 00669000 * 04S0736 00670000 * IF OCACTREQ=ON THEN 04S0736 00671000 TM OCACTREQ(ROPCE),B'00001000' 04S0736 00672000 BNO @RF00736 04S0736 00673000 * DO; /* IF THIS IS RQST FROM 04S0737 00674000 * ACT/DEACT, CHECK FOR TYPE OF 00675000 * RQST */ 00676000 * IF OCFLUSHZ=ON THEN 04S0738 00677000 LR @05,ROPCE 04S0738 00678000 AL @05,@CF02699 04S0738 00679000 TM OCFLUSHZ-2(@05),B'10000000' 04S0738 00680000 BNO @RF00738 04S0738 00681000 * NSLREQTY=NSLCLOSN;/* IF THIS IS FLUSH 00682000 * CLOSEDOWN, INDICATE FLUSH TO 00683000 * NSL */ 00684000 MVI NSLREQTY(RPARM),X'0B' 04S0739 00685000 * ELSE 04S0740 00686000 * IF REG09->TRMNCPCL=ON THEN 04S0740 00687000 B @RC00738 04S0740 00688000 @RF00738 TM TRMNCPCL(REG09),B'01000000' 04S0740 00689000 BNO @RF00740 04S0740 00690000 * NSLREQTY=NSLSTOPL;/* IF CLOSEDOWN IN 00691000 * PROGRESS, PROCESS STOPLINE,C */ 00692000 MVI NSLREQTY(RPARM),X'02' 04S0741 00693000 * ELSE 04S0742 00694000 * NSLREQTY=NSLSTPLI;/* ELSE IT'S 'F 04S0742 00695000 * DEACT' RQST */ 00696000 B @RC00740 04S0742 00697000 @RF00740 MVI NSLREQTY(RPARM),X'09' 04S0742 00698000 * RFY 04S0743 00699000 * REG09 UNRSTD; 04S0743 00700000 @RC00740 DS 0H 04S0743 00701000 @RC00738 DS 0H 04S0744 00702000 * END; 04S0744 00703000 * ELSE 04S0745 00704000 * DO; 04S0745 00705000 B @RC00736 04S0745 00706000 @RF00736 DS 0H 04S0746 00707000 * IF OCSWITCH=OCSTPLNI THEN 04S0746 00708000 CLI OCSWITCH(ROPCE),X'12' 04S0746 00709000 BNE @RF00746 04S0746 00710000 * NSLREQTY=NSLSTPLI;/* IF THIS IS A 04S0747 00711000 * STOPLINE,I CMD, INDICATE FOR 00712000 * NSL */ 00713000 MVI NSLREQTY(RPARM),X'09' 04S0747 00714000 * ELSE 04S0748 00715000 * NSLREQTY=NSLSTOPL;/* ELSE THIS IS A 04S0748 00716000 * STOPLINE,C CMD */ 00717000 B @RC00746 04S0748 00718000 @RF00746 MVI NSLREQTY(RPARM),X'02' 04S0748 00719000 * END; 04S0749 00720000 @RC00746 DS 0H 04S0750 00721000 * NSLFLGBK=OPRVE;/* SETUP MOD NAME */ 00722000 @RC00736 MVI NSLFLGBK(RPARM),X'05' 04S0750 00723000 * NSLPRIBK=PRIMEDFG;/* SETUP PRIORITY */ 00724000 MVI NSLPRIBK(RPARM),X'DF' 04S0751 00725000 * NSLGRPNM=OCBACKUP;/* SETUP GROUP NAME */ 00726000 MVC NSLGRPNM(8,RPARM),OCBACKUP(ROPCE) 04S0752 00727000 * NSLTTEPT=RTRM;/* SETUP LINE TTE ADDRESS */ 00728000 ST RTRM,NSLTTEPT(,RPARM) 04S0753 00729000 */* SETUP OPRE FIELDS */ 00730000 * 04S0754 00731000 * OPREPRI=PRIOPCTL;/* SETUP POST PRIORITY */ 00732000 MVI OPREPRI(RPARM),X'DC' 04S0754 00733000 * OPREQCB=SAVTSPLN;/* SETUP STOPLINE QCB ADDR */ 00734000 L @09,AVTSAVTP(,RAVT) 04S0755 00735000 MVC OPREQCB(3,RPARM),SAVTSPLN+1(@09) 04S0755 00736000 */* SETUP SVC 102 PAREMETER LIST AND ISSUE SVC 102 */ 00737000 * 04S0756 00738000 * OPCAQWD1=RPARM;/* SETUP BUFF ADDR */ 00739000 ST RPARM,OPCAQWD1(,ROPCAVT) 04S0756 00740000 * OPCAQWD2=RPARM;/* SETUP BUFF ADDR */ 00741000 ST RPARM,OPCAQWD2(,ROPCAVT) 04S0757 00742000 * OPCAQREQ=OPRQST;/* TPOST REQUEST */ 00743000 MVC OPCAQREQ(1,ROPCAVT),OPRQST 04S0758 00744000 * OPCAQRQ2=OPEND;/* END OF LIST */ 00745000 MVC OPCAQRQ2(1,ROPCAVT),OPEND 04S0759 00746000 * RPARM=ADDR(OPCAQCTL);/* SETUP ADDRESS OF PLIST */ 00747000 LA RPARM,OPCAQCTL(,ROPCAVT) 04S0760 00748000 * GEN(SVC 102); /* POST ELEM TO IEDNSL */ 00749000 SVC 102 00750000 */* SETUP TO EXIT TO NEXT MODULE */ 00751000 * 04S0762 00752000 * OCWTG=MODVE; /* SETUP WHERE-TO-GO FIELD */ 00753000 MVC OCWTG(2,ROPCE),MODVE 04S0762 00754000 * OCLINK=OPCWAITV;/* GET FIRST OPCE */ 00755000 MVC OCLINK(4,ROPCE),OPCWAITV(ROPCAVT) 04S0763 00756000 * OPCWAITV=ROPCE;/* LINK THIS OPCE TO THE 04S0764 00757000 * BEGINNING OF THE OPCWAITV 00758000 * CHAIN */ 00759000 ST ROPCE,OPCWAITV(,ROPCAVT) 04S0764 00760000 * RZERO=ZERO; /* SETUP INTERFACE TO NEXT MOD */ 00761000 SLR RZERO,RZERO 04S0765 00762000 * OPCMODID=MOD00;/* SETUP TO XCTL TO NEXT MODULE */ 00763000 MVC OPCMODID(2,ROPCAVT),MOD00 04S0766 00764000 * END; 03S0767 00765000 * END; 03S0768 00766000 @RF00727 DS 0H 03S0769 00767000 * END; 03S0769 00768000 @RF00716 DS 0H 03S0770 00769000 * END; 03S0770 00770000 @RF00679 DS 0H 03S0771 00771000 * END; 02S0771 00772000 @RF00667 DS 0H 02S0771 00773000 @DE00588 TM FIRSTREQ(ROPCAVT),B'11000000' 02S0771 00774000 BNZ @DL00588 02S0771 00775000 * 02S0772 00776000 * /*****************************************************************/ 00777000 * /* */ 00778000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00779000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00780000 * /* */ 00781000 * /*****************************************************************/ 00782000 * 02S0772 00783000 * OPCFLAG1=ZERO; /* CLEAR FLAG FIELDS */ 00784000 MVI OPCFLAG1(ROPCAVT),X'00' 02S0772 00785000 * RPARM=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00786000 * PREPARATION TO TRANSFERRING 00787000 * CONTROL TO THE NEXT MODULE */ 00788000 LR RPARM,ROPCAVT 02S0773 00789000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0774 00790000 * /* 00791000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00792000 * 02S0775 00793000 * /*****************************************************************/ 00794000 * /* */ 00795000 * /* IPERROR: THIS SEGMENT PERFORMS FINAL ERROR PROCESSING */ 00796000 * /* */ 00797000 * /*****************************************************************/ 00798000 * 02S0775 00799000 *IPERROR: 02S0775 00800000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0775 00801000 @EL00001 DS 0H 02S0775 00802000 @EF00001 DS 0H 02S0775 00803000 @ER00001 BR @14 02S0775 00804000 IPERROR DS 0H 02S0776 00805000 * OPCWRKSP(3)=REG14; /* SAVE RETURN ADDRESS */ 00806000 ST REG14,OPCWRKSP+8(,ROPCAVT) 02S0776 00807000 * 03S0777 00808000 * /*****************************************************************/ 00809000 * /* */ 00810000 * /* PROCESS.IPERROR.UPDSTATE: THIS SEGMENT UPDATES STATUS FOR ALL */ 00811000 * /* ERROR PROCESSING */ 00812000 * /* */ 00813000 * /*****************************************************************/ 00814000 * 03S0777 00815000 * IF OCALLFLG=ON THEN 03S0777 00816000 TM OCALLFLG(ROPCE),B'00000100' 03S0777 00817000 BNO @RF00777 03S0777 00818000 * DO; /* CHECK FOR STOPLINE,ALL REQUEST*/ 00819000 * IF OCSOME=OFF THEN 03S0779 00820000 TM OCSOME(ROPCE),B'00000010' 03S0779 00821000 BNZ @RF00779 03S0779 00822000 * DO; /* IF STATUS IS UNSET OR NO LINES 00823000 * STOPPED */ 00824000 * OCNONE=ON; /* INDICATE NO LINES STOPPED */ 00825000 OI OCNONE(ROPCE),B'00000001' 03S0781 00826000 * OPCWRKSP(1)=MSG544; /* SETUP MSG NUMBER */ 00827000 MVC OPCWRKSP(4,ROPCAVT),@CF02623 03S0782 00828000 * END; 03S0783 00829000 * ELSE 03S0784 00830000 * DO; 03S0784 00831000 B @RC00779 03S0784 00832000 @RF00779 DS 0H 03S0785 00833000 * OCNONE=OFF; /* INDICATE SOME LINES STOPPED */ 00834000 NI OCNONE(ROPCE),B'11111110' 03S0785 00835000 * OPCWRKSP(1)=MSG545; /* SETUP MSG NUMBER */ 00836000 MVC OPCWRKSP(4,ROPCAVT),@CF02625 03S0786 00837000 * END; 03S0787 00838000 * CALL IPMLNCHK; /* CHECK FOR MORE LINES */ 00839000 @RC00779 BAL @14,IPMLNCHK 03S0788 00840000 * END; 03S0789 00841000 * IF MORLINES=OFF THEN 02S0790 00842000 @RF00777 TM MORLINES(ROPCAVT),B'01000000' 02S0790 00843000 BNZ @RF00790 02S0790 00844000 * DO; /* IF NO MORE LINES TO PROCESS, 00845000 * EXIT */ 00846000 * IF OCWTG=ZERO THEN 02S0792 00847000 ICM @09,3,OCWTG(ROPCE) 02S0792 00848000 BNZ @RF00792 02S0792 00849000 * DO; /* IF THIS IS AN EXTERNAL CALLER, 00850000 * SETUP FOR EXIT */ 00851000 * RZERO=OPCWRKSP(1); /* SETUP MSG NUMBER */ 00852000 L RZERO,OPCWRKSP(,ROPCAVT) 02S0794 00853000 * RPARM=OPCWRKSP(2); /* SETUP MSG CODE */ 00854000 L RPARM,OPCWRKSP+4(,ROPCAVT) 02S0795 00855000 * OPCMODID=MOD03; /* SETUP NEXT MODULE TO GET 02S0796 00856000 * CONTROL */ 00857000 MVC OPCMODID(2,ROPCAVT),MOD03 02S0796 00858000 * IF OCSOME=ON THEN 02S0797 00859000 TM OCSOME(ROPCE),B'00000010' 02S0797 00860000 BNO @RF00797 02S0797 00861000 * DO; /* IF SOME LINES HAVE BEEN 02S0798 00862000 * STOPPED SUCCESSFULLY THEN 00863000 * CHKPT THEM */ 00864000 * OCPARM=RZERO; /* SAVE MSG NUMBER @YM06145*/ 00865000 STH RZERO,OCPARM(,ROPCE) 02S0799 00866000 * OCWTG=MOD03; /* SETUP WHERE-TO-GO */ 00867000 MVC OCWTG(2,ROPCE),MOD03 02S0800 00868000 * OPCMODID=MOD06; /* SETUP EXIT TO CHKPOINT */ 00869000 MVC OPCMODID(2,ROPCAVT),MOD06 02S0801 00870000 * END; 02S0802 00871000 * CALL IPEXTERN; /* PERFORM NON-INTERNAL 02S0803 00872000 * INVOCATION PROCESSING */ 00873000 @RF00797 BAL @14,IPEXTERN 02S0803 00874000 * END; 02S0804 00875000 * ELSE 02S0805 00876000 * CALL IPINTERN; /* PERFORM INTERNAL INVOCATION 00877000 * PROCESSING */ 00878000 B @RC00792 02S0805 00879000 @RF00792 BAL @14,IPINTERN 02S0805 00880000 * END; 02S0806 00881000 @RC00792 DS 0H 02S0807 00882000 * REG14=OPCWRKSP(3); /* RESTORE RETURN ADDRESS */ 00883000 @RF00790 L REG14,OPCWRKSP+8(,ROPCAVT) 02S0807 00884000 * END; 02S0808 00885000 @EL00002 DS 0H 02S0808 00886000 @EF00002 DS 0H 02S0808 00887000 @ER00002 BR @14 02S0808 00888000 * 02S0809 00889000 * /*****************************************************************/ 00890000 * /* */ 00891000 * /* IPEXTERN: THIS INTERNAL PROCEDURE PROCESSES ALL EXTERNAL */ 00892000 * /* INVOCATIONS TO STOPLINE */ 00893000 * /* */ 00894000 * /*****************************************************************/ 00895000 * 02S0809 00896000 *IPEXTERN: 02S0809 00897000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0809 00898000 IPEXTERN DS 0H 02S0810 00899000 * IF OCTOTE=ON THEN 02S0810 00900000 TM OCTOTE(ROPCE),B'01000000' 02S0810 00901000 BNO @RF00810 02S0810 00902000 * DO; /* IF THIS IS TOTE INPUT */ 00903000 * OCWTG=MOD07; /* SETUP WHERE-TO-GO-FIELD */ 00904000 MVC OCWTG(2,ROPCE),MOD07 02S0812 00905000 * OCPARM=RPARM; /* SETUP INTERFACE TO NEXT MODULE*/ 00906000 STH RPARM,OCPARM(,ROPCE) 02S0813 00907000 * RZERO=RPARM; 02S0814 00908000 LR RZERO,RPARM 02S0814 00909000 * IF OPCMODID=MOD03 THEN 02S0815 00910000 CLC OPCMODID(2,ROPCAVT),MOD03 02S0815 00911000 BNE @RF00815 02S0815 00912000 * DO; /* IF NEXT MOD IS MSG MOD */ 00913000 * OPCMODID=MOD07; /* RESET NEXT MOD ID */ 00914000 MVC OPCMODID(2,ROPCAVT),MOD07 02S0817 00915000 * OCWTG=ZERO; /* INITIALIZE WHERE-TO-GO FIELD */ 00916000 SLR @09,@09 02S0818 00917000 STH @09,OCWTG(,ROPCE) 02S0818 00918000 * END; 02S0819 00919000 * END; 02S0820 00920000 * END; 02S0821 00921000 @EL00003 DS 0H 02S0821 00922000 @EF00003 DS 0H 02S0821 00923000 @ER00003 BR @14 02S0821 00924000 * 02S0822 00925000 * /*****************************************************************/ 00926000 * /* */ 00927000 * /* IPEXIT: THIS INTERNAL PROCEDURE PERFORMS ALL NORMAL EXIT */ 00928000 * /* PROCESSING */ 00929000 * /* */ 00930000 * /*****************************************************************/ 00931000 * 02S0822 00932000 *IPEXIT: 02S0822 00933000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0822 00934000 IPEXIT DS 0H 02S0823 00935000 * OPCWRKSP(5)=REG14; /* SAVE RETURN ADDRESS */ 00936000 ST REG14,OPCWRKSP+16(,ROPCAVT) 02S0823 00937000 * 03S0824 00938000 * /*****************************************************************/ 00939000 * /* */ 00940000 * /* PROCESS.IPEXIT.UPDSTATN: THIS SEGMENT UPDATES ALL STATUS FOR */ 00941000 * /* NORMAL PROCESSING */ 00942000 * /* */ 00943000 * /*****************************************************************/ 00944000 * 03S0824 00945000 * IF OCALLFLG=ON THEN 03S0824 00946000 TM OCALLFLG(ROPCE),B'00000100' 03S0824 00947000 BNO @RF00824 03S0824 00948000 * DO; /* CHECK FOR A STOPLINE,ALL 03S0825 00949000 * REQUEST */ 00950000 * IF(OCSOME=OFF&OCNONE=OFF)|(OCSOME=ON&OCNONE=ON) THEN 03S0826 00951000 TM OCSOME(ROPCE),B'00000011' 03S0826 00952000 BZ @RT00826 03S0826 00953000 TM OCSOME(ROPCE),B'00000011' 03S0826 00954000 BNO @RF00826 03S0826 00955000 @RT00826 DS 0H 03S0827 00956000 * DO; /* IF ALL LINES HAVE BEEN STOPPED 00957000 * OR STATUS IS UNSET */ 00958000 * OCSOME=ON; /* INDICATE ALL LINES HAVE */ 00959000 * OCNONE=ON; /* BEEN STOPPED */ 00960000 OI OCSOME(ROPCE),B'00000011' 03S0829 00961000 * OPCWRKSP(1)=MSG543; /* SETUP MSG NUMBER */ 00962000 MVC OPCWRKSP(4,ROPCAVT),@CF02621 03S0830 00963000 * END; 03S0831 00964000 * ELSE 03S0832 00965000 * DO; 03S0832 00966000 B @RC00826 03S0832 00967000 @RF00826 DS 0H 03S0833 00968000 * OCSOME=ON; /* INDICATE SOME LINES HAVE */ 00969000 * OCNONE=OFF; /* BEEN STOPPED */ 00970000 OI OCSOME(ROPCE),B'00000010' 03S0834 00971000 NI OCNONE(ROPCE),B'11111110' 03S0834 00972000 * OPCWRKSP(1)=MSG545; /* SETUP MSG NUMBER */ 00973000 MVC OPCWRKSP(4,ROPCAVT),@CF02625 03S0835 00974000 * END; 03S0836 00975000 * CALL IPMLNCHK; /* CHECK FOR MORE LINES */ 00976000 @RC00826 BAL @14,IPMLNCHK 03S0837 00977000 * END; 03S0838 00978000 * IF MORLINES=OFF THEN 02S0839 00979000 @RF00824 TM MORLINES(ROPCAVT),B'01000000' 02S0839 00980000 BNZ @RF00839 02S0839 00981000 * DO; /* IF NO MORE LINES TO PROCESS 00982000 * THEN */ 00983000 * IF OCWTG=ZERO THEN 02S0841 00984000 ICM @09,3,OCWTG(ROPCE) 02S0841 00985000 BNZ @RF00841 02S0841 00986000 * DO; /* IF THIS IS AN EXTERNAL CALL 00987000 * THEN PROCESS CALL */ 00988000 * RZERO=OPCWRKSP(1); /* SETUP INTERFACE TO NEXT MOD */ 00989000 L RZERO,OPCWRKSP(,ROPCAVT) 02S0843 00990000 * RPARM=OPCWRKSP(2); 02S0844 00991000 L RPARM,OPCWRKSP+4(,ROPCAVT) 02S0844 00992000 * OCPARM=RZERO; 02S0845 00993000 STH RZERO,OCPARM(,ROPCE) 02S0845 00994000 * OPCMODID=MOD06; /* SETUP NEXT MOD ID */ 00995000 MVC OPCMODID(2,ROPCAVT),MOD06 02S0846 00996000 * OCWTG=MOD09; /* SETUP WHERE-TO-GO FIELD */ 00997000 MVC OCWTG(2,ROPCE),MOD09 02S0847 00998000 * CALL IPEXTERN; /* PROCESS EXTERNAL INVOCATION */ 00999000 BAL @14,IPEXTERN 02S0848 01000000 * END; 02S0849 01001000 * ELSE 02S0850 01002000 * CALL IPINTERN; /* ELSE PROCESS INTERNAL 02S0850 01003000 * INVOCATION */ 01004000 B @RC00841 02S0850 01005000 @RF00841 BAL @14,IPINTERN 02S0850 01006000 * END; 02S0851 01007000 @RC00841 DS 0H 02S0852 01008000 * REG14=OPCWRKSP(5); /* RESTORE RETURN ADDRESS */ 01009000 @RF00839 L REG14,OPCWRKSP+16(,ROPCAVT) 02S0852 01010000 * END; 02S0853 01011000 @EL00004 DS 0H 02S0853 01012000 @EF00004 DS 0H 02S0853 01013000 @ER00004 BR @14 02S0853 01014000 * 02S0854 01015000 * /*****************************************************************/ 01016000 * /* */ 01017000 * /* IPINTERN: THIS INTERNAL PROCEDURE PROCESSES INTERNAL */ 01018000 * /* INVOCATIONS FOR STOPLINE */ 01019000 * /* */ 01020000 * /*****************************************************************/ 01021000 * 02S0854 01022000 *IPINTERN: 02S0854 01023000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0854 01024000 IPINTERN DS 0H 02S0855 01025000 * RFY 02S0855 01026000 * RSAVE RSTD; 02S0855 01027000 * OPCWRKSP(4)=REG14; /* SAVE RETURN REGISTER @YM07370*/ 01028000 ST REG14,OPCWRKSP+12(,ROPCAVT) 02S0856 01029000 * OCPARM=OPCWRKSP(1); /* SETUP MSG NUMBER */ 01030000 L @09,OPCWRKSP(,ROPCAVT) 02S0857 01031000 STH @09,OCPARM(,ROPCE) 02S0857 01032000 * RZERO=OPCWRKSP(1); /* SETUP FOR NEXT MODULE */ 01033000 LR RZERO,@09 02S0858 01034000 * OPCMODID=OCWTG; /* SETUP FOR NEXT MODULE */ 01035000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 02S0859 01036000 * OCWTG=ZERO; /* CLEAR WHERE-TO-GO FIELD */ 01037000 SLR @05,@05 02S0860 01038000 STH @05,OCWTG(,ROPCE) 02S0860 01039000 * IF OPCMODID=MODFG&OCPARM=MSG199 THEN 02S0861 01040000 CLC OPCMODID(2,ROPCAVT),MODFG 02S0861 01041000 BNE @RF00861 02S0861 01042000 CH @09,@CH02607 02S0861 01043000 BNE @RF00861 02S0861 01044000 * DO; /* IF EXIT IS TO DEACT */ 01045000 * RPARM=OCUNIT; /* SETUP TO FREE UNIT */ 01046000 L RPARM,OCUNIT(,ROPCE) 02S0863 01047000 * RSAVE=ADDR(OPCSAVE); /* SETUP ADDRESS OF SAVE AREA */ 01048000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0864 01049000 * CALL FREEBUFF; /* FREE UNIT */ 01050000 L @15,OPCFREBF(,ROPCAVT) 02S0865 01051000 BALR @14,@15 02S0865 01052000 * OCUNIT=INVALTIC; /* SETUP INVALID TIC */ 01053000 MVC OCUNIT(4,ROPCE),@CF02034 02S0866 01054000 * END; 02S0867 01055000 * ELSE 02S0868 01056000 * IF OPCMODID=MOD07 THEN 02S0868 01057000 B @RC00861 02S0868 01058000 @RF00861 CLC OPCMODID(2,ROPCAVT),MOD07 02S0868 01059000 BNE @RF00868 02S0868 01060000 * DO; /* IF WRITE MODULE IS NEXT MODULE 01061000 * TO GET CONTROL */ 01062000 * OCPARM=ZERO; /* RESET MSG NUMBER */ 01063000 SLR @09,@09 02S0870 01064000 STH @09,OCPARM(,ROPCE) 02S0870 01065000 * RZERO=ZERO; /* RESET MSG NUMBER */ 01066000 SLR RZERO,RZERO 02S0871 01067000 * END; 02S0872 01068000 * REG14=OPCWRKSP(4); /* RESTORE RETURN ADDRESS 02S0873 01069000 * @YM07370*/ 01070000 @RF00868 DS 0H 02S0873 01071000 @RC00861 L REG14,OPCWRKSP+12(,ROPCAVT) 02S0873 01072000 * END; 02S0874 01073000 @EL00005 DS 0H 02S0874 01074000 @EF00005 DS 0H 02S0874 01075000 @ER00005 BR @14 02S0874 01076000 * RFY 02S0875 01077000 * RSAVE UNRSTD; 02S0875 01078000 * 02S0876 01079000 * /*****************************************************************/ 01080000 * /* */ 01081000 * /* IPMLNCHK: THIS INTERNAL PROCEDURE CHECKS FOR MORE LINES TO */ 01082000 * /* PROCESS */ 01083000 * /* */ 01084000 * /*****************************************************************/ 01085000 * 02S0876 01086000 *IPMLNCHK: 02S0876 01087000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0876 01088000 IPMLNCHK DS 0H 02S0877 01089000 * OPCWRKSP(4)=REG14; /* SAVE RETURN ADDRESS */ 01090000 ST REG14,OPCWRKSP+12(,ROPCAVT) 02S0877 01091000 * RPARM=TRMCOHTG; /* GET TTCIN OF LINE */ 01092000 LR @09,RTRM 02S0878 01093000 AL @09,@CF02701 02S0878 01094000 SLR RPARM,RPARM 02S0878 01095000 ICM RPARM,3,TRMCOHTG-2(@09) 02S0878 01096000 * CALL IEDQTNT; /* GET LINE TTE */ 01097000 L @15,AVTRNMPT(,RAVT) 02S0879 01098000 BALR @14,@15 02S0879 01099000 * RPARM=RPARM-LENGTH(IEDNTRM); /* BACKUP TO NEGATIVE PREFIX */ 01100000 SH RPARM,@CH00035 02S0880 01101000 * IF RPARM->TRMTYPE=TRMGRP THEN 02S0881 01102000 CLI TRMTYPE(RPARM),X'00' 02S0881 01103000 BNE @RF00881 02S0881 01104000 * MORLINES=OFF; /* IF GROUP TTE, INDICATE NO MORE 01105000 * LINES TO PROCESS */ 01106000 NI MORLINES(ROPCAVT),B'10111111' 02S0882 01107000 * ELSE 02S0883 01108000 * DO; /* IF IT'S A LINE TTE CONTINUE 01109000 * PROCESSING */ 01110000 B @RC00881 02S0883 01111000 @RF00881 DS 0H 02S0884 01112000 * MORLINES=ON; /* INDICATE MORLINES TO PROCESS */ 01113000 OI MORLINES(ROPCAVT),B'01000000' 02S0884 01114000 * OCTRMTBL=TRMCOHTG; /* SETUP TTCIN OF NEW LINE TO 01115000 * PROCESS */ 01116000 LR @09,RTRM 02S0885 01117000 AL @09,@CF02701 02S0885 01118000 MVC OCTRMTBL(2,ROPCE),TRMCOHTG-2(@09) 02S0885 01119000 * END; 02S0886 01120000 * REG14=OPCWRKSP(4); /* RESTORE RETURN ADDRESS */ 01121000 @RC00881 L REG14,OPCWRKSP+12(,ROPCAVT) 02S0887 01122000 * END; 02S0888 01123000 @EL00006 DS 0H 02S0888 01124000 @EF00006 DS 0H 02S0888 01125000 @ER00006 BR @14 02S0888 01126000 * 02S0889 01127000 * /*****************************************************************/ 01128000 * /* */ 01129000 * /* IPWLSRCH: THIS INTERNAL PROCEDURE SEARCHES THE OPCWAITV CHAIN */ 01130000 * /* FOR AN OPCE WITH THE SAME GROUPNAME AS THE INPUT OPCE */ 01131000 * /* */ 01132000 * /*****************************************************************/ 01133000 * 02S0889 01134000 *IPWLSRCH: 02S0889 01135000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0889 01136000 IPWLSRCH DS 0H 02S0890 01137000 * RZERO=ADDR(OPCWAITV); /* SETUP ADDR OF OPCWAITV */ 01138000 LA RZERO,OPCWAITV(,ROPCAVT) 02S0890 01139000 * RPARM=OPCWAITV; /* GET FIRST ELEMENT ON THE CHAIN*/ 01140000 L RPARM,OPCWAITV(,ROPCAVT) 02S0891 01141000 * RPARM=RPARM&MASKBYTE; /* CLEAR HI BYTE @YM06061*/ 01142000 N RPARM,@CF02599 02S0892 01143000 * WAITFLG=ON; /* INITIALIZE WAIT INDICATOR */ 01144000 OI WAITFLG(ROPCAVT),B'00100000' 02S0893 01145000 * DO WHILE(WAITFLG=ON); /* SEARCH CHAIN FOR MATCHING 01146000 * GROUPNAME */ 01147000 B @DE00894 02S0894 01148000 @DL00894 DS 0H 02S0895 01149000 * IF RPARM=ZERO THEN /* IF THIS IS END OF CHAIN, SETUP 01150000 * TO EXIT */ 01151000 LTR RPARM,RPARM 02S0895 01152000 BNZ @RF00895 02S0895 01153000 * WAITFLG=OFF; /* INDICATE SEARCH ENDED */ 01154000 NI WAITFLG(ROPCAVT),B'11011111' 02S0896 01155000 * ELSE 02S0897 01156000 * DO; 02S0897 01157000 B @RC00895 02S0897 01158000 @RF00895 DS 0H 02S0898 01159000 * IF OCBACKUP=RPARM->OCBACKUP THEN 02S0898 01160000 CLC OCBACKUP(8,ROPCE),OCBACKUP(RPARM) 02S0898 01161000 BNE @RF00898 02S0898 01162000 * WAITFLG=OFF; /* IF THERE IS A MATCH, PREPARE 01163000 * TO EXIT */ 01164000 NI WAITFLG(ROPCAVT),B'11011111' 02S0899 01165000 * ELSE 02S0900 01166000 * DO; 02S0900 01167000 B @RC00898 02S0900 01168000 @RF00898 DS 0H 02S0901 01169000 * RZERO=RPARM; /* SAVE PREVIOUS OPCE ADDRESS */ 01170000 LR RZERO,RPARM 02S0901 01171000 * RPARM=RPARM->OCLINK; /* SETUP ADDRESS OF NEXT OPCE ON 01172000 * CHAIN */ 01173000 L RPARM,OCLINK(,RPARM) 02S0902 01174000 * END; 02S0903 01175000 * END; 02S0904 01176000 @RC00898 DS 0H 02S0905 01177000 * END; 02S0905 01178000 @RC00895 DS 0H 02S0905 01179000 @DE00894 TM WAITFLG(ROPCAVT),B'00100000' 02S0905 01180000 BO @DL00894 02S0905 01181000 * END; 02S0906 01182000 @EL00007 DS 0H 02S0906 01183000 @EF00007 DS 0H 02S0906 01184000 @ER00007 BR @14 02S0906 01185000 * END IGCV810D 01S0907 01186000 * 01S0907 01187000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01188000 */*%INCLUDE SYSLIB (TAVTD ) */ 01189000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01190000 */*%INCLUDE SYSLIB (IHADCB ) */ 01191000 */*%INCLUDE SYSLIB (TDEBD ) */ 01192000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01193000 */*%INCLUDE SYSLIB (TNSLD ) */ 01194000 */*%INCLUDE SYSLIB (TOPCED ) */ 01195000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01196000 */*%INCLUDE SYSLIB (TOPRED ) */ 01197000 */*%INCLUDE SYSLIB (TPRFD ) */ 01198000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01199000 */*%INCLUDE SYSLIB (TQCBD ) */ 01200000 */*%INCLUDE SYSLIB (TTRMD ) */ 01201000 */*%INCLUDE SYSUT5 (RFY ) */ 01202000 */*%INCLUDE SYSUT5 (DCL ) */ 01203000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01204000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01205000 */*%INCLUDE SYSUT5 (RESPROC ) */ 01206000 */*%INCLUDE SYSUT5 (SNAPROC ) */ 01207000 */*%INCLUDE SYSUT5 (STPLPROC) */ 01208000 */*%INCLUDE SYSUT5 (FIRSTLN ) */ 01209000 */*%INCLUDE SYSUT5 (WLATTACH) */ 01210000 */*%INCLUDE SYSUT5 (SNACHK ) */ 01211000 */*%INCLUDE SYSUT5 (NCPCHK ) */ 01212000 */*%INCLUDE SYSUT5 (LNCHK ) */ 01213000 */*%INCLUDE SYSUT5 (BLDACT ) */ 01214000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01215000 */*%INCLUDE SYSUT5 (IPERROR ) */ 01216000 */*%INCLUDE SYSUT5 (UPDSTATE) */ 01217000 */*%INCLUDE SYSUT5 (IPEXTERN) */ 01218000 */*%INCLUDE SYSUT5 (IPEXIT ) */ 01219000 */*%INCLUDE SYSUT5 (UPDSTATN) */ 01220000 */*%INCLUDE SYSUT5 (IPINTERN) */ 01221000 */*%INCLUDE SYSUT5 (IPMLNCHK) */ 01222000 */*%INCLUDE SYSUT5 (IPWLSRCH) */ 01223000 * 01S0907 01224000 * ; 01S0907 01225000 @DATA DS 0H 01226000 @CH00060 DC H'1' 01227000 @CH00131 DC H'2' 01228000 @CH00035 DC H'18' 01229000 @CH00800 DC H'36' 01230000 @CH02613 DC H'401' 01231000 @CH02615 DC H'539' 01232000 DS 0F 01233000 DS 0F 01234000 @CF00250 DC F'4' 01235000 @CF00045 DC F'8' 01236000 @CF02601 DC F'25' 01237000 @CF02603 DC F'26' 01238000 @CF02605 DC F'49' 01239000 @CF02607 DC F'199' 01240000 @CH02607 EQU @CF02607+2 01241000 @CF02609 DC F'210' 01242000 @CF02611 DC F'400' 01243000 @CF02621 DC F'543' 01244000 @CF02623 DC F'544' 01245000 @CF02625 DC F'545' 01246000 @CF02701 DC F'-16' 01247000 @CF02691 DC F'-11' 01248000 @CF02698 DC F'-10' 01249000 @CF02697 DC F'-8' 01250000 @CF02699 DC F'-6' 01251000 @CF01705 DC F'-3' 01252000 @CF02034 DC XL4'08000002' 01253000 @CF02599 DC XL4'00FFFFFF' 01254000 DS 0D 01255000 OPRQST DC X'0C' 01256000 OPEND DC X'80' 01257000 MOD00 DC CL2'00' 01258000 MOD03 DC CL2'03' 01259000 MOD06 DC CL2'06' 01260000 MOD07 DC CL2'07' 01261000 MOD09 DC CL2'09' 01262000 MODFC DC CL2'FC' 01263000 MODFG DC CL2'FG' 01264000 MODVE DC CL2'VE' 01265000 MODV8 DC CL2'V8' 01266000 MODV9 DC CL2'V9' 01267000 MODVG DC CL2'VG' 01268000 MODVF DC CL2'VF' 01269000 ZAPAREA DC XL104'0' 01270000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01271000 @01 EQU 01 01272000 @02 EQU 02 01273000 @03 EQU 03 01274000 @04 EQU 04 01275000 @05 EQU 05 01276000 @06 EQU 06 01277000 @07 EQU 07 01278000 @08 EQU 08 01279000 @09 EQU 09 01280000 @10 EQU 10 01281000 @11 EQU 11 01282000 @12 EQU 12 01283000 @13 EQU 13 01284000 @14 EQU 14 01285000 @15 EQU 15 01286000 ROPCE EQU @03 01287000 ROPCAVT EQU @02 01288000 RAVT EQU @04 01289000 RPARM EQU @01 01290000 RTRM EQU @08 01291000 RZERO EQU @00 01292000 RWORK6 EQU @06 01293000 RWORK7 EQU @07 01294000 REG09 EQU @09 01295000 RBASE EQU @12 01296000 RSAVE EQU @13 01297000 REG14 EQU @14 01298000 REG15 EQU @15 01299000 IEDQAVTD EQU 0 01300000 AVTSAVEX EQU IEDQAVTD+288 01301000 @NM00003 EQU IEDQAVTD+388 01302000 AVTCKFLG EQU @NM00003 01303000 AVTBASE EQU IEDQAVTD+412 01304000 AVTPKF EQU AVTBASE 01305000 AVTRNMPT EQU IEDQAVTD+424 01306000 AVTOSECB EQU IEDQAVTD+492 01307000 AVTECB1 EQU AVTOSECB 01308000 AVTHG02 EQU IEDQAVTD+528 01309000 AVTDISP EQU IEDQAVTD+552 01310000 AVTHD EQU IEDQAVTD+556 01311000 AVTSCOPT EQU AVTHD 01312000 AVTSAVTP EQU IEDQAVTD+612 01313000 AVTSAVTF EQU AVTSAVTP 01314000 AVTCKPEL EQU IEDQAVTD+652 01315000 AVTCKRMV EQU AVTCKPEL 01316000 AVTCKELF EQU IEDQAVTD+680 01317000 AVTCKBYT EQU IEDQAVTD+691 01318000 AVTHG01 EQU IEDQAVTD+692 01319000 AVTCKLNK EQU IEDQAVTD+696 01320000 AVTCRELE EQU IEDQAVTD+708 01321000 AVTCCELE EQU AVTCRELE 01322000 AVTCLRHI EQU IEDQAVTD+716 01323000 AVTADBUF EQU IEDQAVTD+720 01324000 AVTSYSER EQU IEDQAVTD+728 01325000 AVTBFRFG EQU IEDQAVTD+784 01326000 AVTCKPQB EQU IEDQAVTD+804 01327000 AVTCKPTB EQU AVTCKPQB 01328000 AVTCKPEC EQU AVTCKPQB+4 01329000 AVTCKPCC EQU AVTCKPEC 01330000 AVTOPCQB EQU IEDQAVTD+816 01331000 AVTOPCOB EQU AVTOPCQB 01332000 AVTOPCEC EQU AVTOPCQB+4 01333000 AVTOPCCC EQU AVTOPCEC 01334000 AVTOLTQB EQU IEDQAVTD+828 01335000 AVTCWFL1 EQU IEDQAVTD+924 01336000 AVTCWFL2 EQU IEDQAVTD+925 01337000 AVTSUBT EQU IEDQAVTD+948 01338000 AVTIOTR EQU IEDQAVTD+949 01339000 AVTBIT1 EQU IEDQAVTD+1050 01340000 AVTBIT2 EQU IEDQAVTD+1051 01341000 AVTBIT3 EQU IEDQAVTD+1052 01342000 AVTBIT4 EQU IEDQAVTD+1136 01343000 @NM00085 EQU IEDQAVTD+1232 01344000 IEDQAPTR EQU 0 01345000 IEDNSVTD EQU 0 01346000 SAVTDIAG EQU IEDNSVTD 01347000 SAVTDIAF EQU SAVTDIAG 01348000 SAVTLUSQ EQU IEDNSVTD+88 01349000 SAVTSPLN EQU IEDNSVTD+224 01350000 SAVTTCPU EQU IEDNSVTD+238 01351000 SAVTZELM EQU IEDNSVTD+270 01352000 SAVTRDRV EQU IEDNSVTD+284 01353000 SAVTCKQB EQU IEDNSVTD+300 01354000 SAVTCKTB EQU SAVTCKQB 01355000 SAVTCKEC EQU SAVTCKQB+4 01356000 SAVTCKCC EQU SAVTCKEC 01357000 SAVTNETF EQU IEDNSVTD+324 01358000 SAVTCDRV EQU IEDNSVTD+332 01359000 IHADCB EQU 0 01360000 IHADCS1A EQU 0 01361000 DCBBCKUP EQU IHADCS1A+8 01362000 IHADCS2K EQU 0 01363000 DCBDUMPD EQU IHADCS2K 01364000 DCBTRSTA EQU IHADCS2K+5 01365000 DCBDSORG EQU IHADCS2K+6 01366000 DCBDSRG2 EQU DCBDSORG+1 01367000 DCBRNCKD EQU IHADCS2K+12 01368000 DCBEXLST EQU IHADCS2K+16 01369000 IHADCS24 EQU 0 01370000 DCBOFLGS EQU IHADCS24+8 01371000 DCBOFLWR EQU DCBOFLGS 01372000 DCBIFLG EQU IHADCS24+9 01373000 DCBIBPCT EQU DCBIFLG 01374000 DCBMACR EQU IHADCS24+10 01375000 DCBMACR1 EQU DCBMACR 01376000 DCBMRFE EQU DCBMACR1 01377000 DCBMRGET EQU DCBMRFE 01378000 DCBMRAPG EQU DCBMACR1 01379000 DCBMRRD EQU DCBMRAPG 01380000 DCBMRCI EQU DCBMACR1 01381000 DCBMRMVG EQU DCBMRCI 01382000 DCBMRLCG EQU DCBMACR1 01383000 DCBMRABC EQU DCBMACR1 01384000 DCBMRPT1 EQU DCBMRABC 01385000 DCBMRSBG EQU DCBMRPT1 01386000 DCBMRCRL EQU DCBMACR1 01387000 DCBMRCHK EQU DCBMRCRL 01388000 DCBMRRDX EQU DCBMRCHK 01389000 DCBMRDMG EQU DCBMACR1 01390000 DCBMACR2 EQU DCBMACR+1 01391000 DCBMRPUT EQU DCBMACR2 01392000 DCBMRWRT EQU DCBMACR2 01393000 DCBMRMVP EQU DCBMACR2 01394000 DCBMR5WD EQU DCBMACR2 01395000 DCBMRLDM EQU DCBMR5WD 01396000 DCBMRLCP EQU DCBMRLDM 01397000 DCBMR4WD EQU DCBMACR2 01398000 DCBMRPT2 EQU DCBMR4WD 01399000 DCBMRTMD EQU DCBMRPT2 01400000 DCBMR3WD EQU DCBMACR2 01401000 DCBMRCTL EQU DCBMR3WD 01402000 DCBMRSTK EQU DCBMRCTL 01403000 DCBMR1WD EQU DCBMACR2 01404000 DCBMRSWA EQU DCBMR1WD 01405000 DCBMRDMD EQU DCBMRSWA 01406000 IHADCS25 EQU 0 01407000 DCBMACRF EQU IHADCS25+2 01408000 DCBMACF1 EQU DCBMACRF 01409000 DCBMFFE EQU DCBMACF1 01410000 DCBMFGET EQU DCBMFFE 01411000 DCBMFAPG EQU DCBMACF1 01412000 DCBMFRD EQU DCBMFAPG 01413000 DCBMFCI EQU DCBMACF1 01414000 DCBMFMVG EQU DCBMFCI 01415000 DCBMFLCG EQU DCBMACF1 01416000 DCBMFABC EQU DCBMACF1 01417000 DCBMFPT1 EQU DCBMFABC 01418000 DCBMFSBG EQU DCBMFPT1 01419000 DCBMFCRL EQU DCBMACF1 01420000 DCBMFCHK EQU DCBMFCRL 01421000 DCBMFDMG EQU DCBMACF1 01422000 DCBMACF2 EQU DCBMACRF+1 01423000 DCBMFPUT EQU DCBMACF2 01424000 DCBMFWRT EQU DCBMACF2 01425000 DCBMFMVP EQU DCBMACF2 01426000 DCBMF5WD EQU DCBMACF2 01427000 DCBMFLDM EQU DCBMF5WD 01428000 DCBMFLCP EQU DCBMFLDM 01429000 DCBMF4WD EQU DCBMACF2 01430000 DCBMFPT2 EQU DCBMF4WD 01431000 DCBMFTMD EQU DCBMFPT2 01432000 DCBMF3WD EQU DCBMACF2 01433000 DCBMFCTL EQU DCBMF3WD 01434000 DCBMFSTK EQU DCBMFCTL 01435000 DCBMF1WD EQU DCBMACF2 01436000 DCBMFSWA EQU DCBMF1WD 01437000 DCBMFDMD EQU DCBMFSWA 01438000 DCBDEBAD EQU IHADCS25+4 01439000 DCBIFLGS EQU DCBDEBAD 01440000 DCBIFPCT EQU DCBIFLGS 01441000 IHADCS27 EQU 0 01442000 DCBGET EQU IHADCS27 01443000 DCBPUT EQU DCBGET 01444000 DCBGETA EQU DCBPUT+1 01445000 IHADCS43 EQU 0 01446000 DCBSCTAB EQU IHADCS43 01447000 IEDQDEB EQU 0 01448000 DEBPRF EQU IEDQDEB 01449000 DEBAPVT EQU DEBPRF 01450000 DEBNMSUB EQU IEDQDEB+36 01451000 DEBNMEXT EQU IEDQDEB+52 01452000 DEBUCBS EQU IEDQDEB+68 01453000 IEDQDPTR EQU 0 01454000 UCB EQU 0 01455000 UCBOB EQU 0 01456000 UCBJBNR EQU UCBOB 01457000 UCBFL5 EQU UCBOB+1 01458000 UCBAF EQU UCBFL5 01459000 UCBSTAT EQU UCBOB+3 01460000 UCBCHAN EQU UCBOB+4 01461000 UCBSFLS EQU UCBOB+6 01462000 UCBFLA EQU UCBSFLS 01463000 UCBFL1 EQU UCBFLA 01464000 UCBBSY EQU UCBFL1 01465000 UCBNRY EQU UCBFL1 01466000 UCBPST EQU UCBFL1 01467000 UCBCUB EQU UCBFL1 01468000 UCBFLB EQU UCBSFLS+1 01469000 UCBCHM EQU UCBOB+8 01470000 UCBCHM1 EQU UCBCHM 01471000 UCBPTH0 EQU UCBCHM1 01472000 UCBPTH1 EQU UCBCHM1 01473000 UCBWGT EQU UCBOB+12 01474000 UCBNAME EQU UCBOB+13 01475000 UCBTYP EQU UCBOB+16 01476000 UCBTBYT1 EQU UCBTYP 01477000 UCB1FEA5 EQU UCBTBYT1 01478000 UCB1FEA6 EQU UCBTBYT1 01479000 UCBTBYT2 EQU UCBTYP+1 01480000 UCB2OPT2 EQU UCBTBYT2 01481000 UCBDUDN1 EQU UCB2OPT2 01482000 UCB2OPT3 EQU UCBTBYT2 01483000 UCBDUDN2 EQU UCB2OPT3 01484000 UCB2OPT4 EQU UCBTBYT2 01485000 UCBRWTAU EQU UCB2OPT4 01486000 UCB2OPT6 EQU UCBTBYT2 01487000 UCB2OPT7 EQU UCBTBYT2 01488000 UCBTBYT3 EQU UCBTYP+2 01489000 UCBDVCLS EQU UCBTBYT3 01490000 UCBTBYT4 EQU UCBTYP+3 01491000 UCBEXTPT EQU UCBOB+20 01492000 UCBFLC EQU UCBEXTPT 01493000 UCBDEV EQU UCBOB+24 01494000 UCBCMEXT EQU 0 01495000 UCBATI EQU UCBCMEXT+3 01496000 @NM00121 EQU UCBATI 01497000 UCBFLP1 EQU UCBCMEXT+5 01498000 UCBMT EQU 0 01499000 UCBOCR EQU 0 01500000 UCB3540X EQU 0 01501000 UCBDKBYT EQU UCB3540X+6 01502000 UCB3800X EQU 0 01503000 UCBOPTNS EQU UCB3800X 01504000 UCBACTIV EQU UCB3800X+3 01505000 UCBMDRBF EQU UCB3800X+36 01506000 UCBUCS EQU 0 01507000 UCBUCSOP EQU UCBUCS+4 01508000 UCBFCBOP EQU UCBUCS+5 01509000 IEDNNSLD EQU 0 01510000 IEDNSLD EQU 0 01511000 NSLPLCB EQU IEDNSLD+8 01512000 NSLGPCUS EQU IEDNSLD+12 01513000 NSLPRIBK EQU IEDNSLD+18 01514000 NSLFLGBK EQU IEDNSLD+19 01515000 NSLERB EQU IEDNSLD+20 01516000 NSLESTAT EQU NSLERB+8 01517000 NSLUNCNT EQU NSLERB+12 01518000 NSLREQTY EQU IEDNSLD+35 01519000 NSLGRPNM EQU IEDNSLD+36 01520000 NSLTTEBG EQU NSLGRPNM 01521000 NSLTTEPT EQU IEDNSLD+44 01522000 IEDNSLP EQU 0 01523000 IEDQOPCE EQU 0 01524000 OCLINK EQU IEDQOPCE 01525000 OCELEM EQU IEDQOPCE+4 01526000 OCELMPTR EQU OCELEM+1 01527000 OCUNIT EQU IEDQOPCE+8 01528000 OCRUDEST EQU OCUNIT 01529000 OCCKPKEY EQU OCRUDEST 01530000 OCSCAN EQU OCCKPKEY 01531000 @NM00128 EQU OCRUDEST+1 01532000 OCUNITBF EQU @NM00128+2 01533000 OCOPTCDE EQU IEDQOPCE+12 01534000 OCSWITCH EQU IEDQOPCE+13 01535000 OCFLAG EQU IEDQOPCE+14 01536000 OCTOTE EQU OCFLAG 01537000 OCATTACH EQU OCFLAG 01538000 OCRESP EQU OCFLAG 01539000 OCCIB EQU IEDQOPCE+16 01540000 OCMSTSAV EQU OCCIB 01541000 OCDEST EQU OCMSTSAV 01542000 OCTRMTBL EQU IEDQOPCE+20 01543000 OCLINENO EQU IEDQOPCE+22 01544000 OCTIOT EQU OCLINENO 01545000 OCWTGB EQU OCTIOT 01546000 OCTRUNIT EQU IEDQOPCE+24 01547000 OCRSID EQU OCTRUNIT 01548000 OCALSTAT EQU OCRSID 01549000 OCRENTRD EQU OCALSTAT 01550000 OCACTREQ EQU OCALSTAT 01551000 OCALLFLG EQU OCALSTAT 01552000 OCSOME EQU OCALSTAT 01553000 OCNONE EQU OCALSTAT 01554000 OCPARM EQU IEDQOPCE+28 01555000 OCWTG EQU IEDQOPCE+30 01556000 OCBACKUP EQU IEDQOPCE+32 01557000 OCBUFNED EQU OCBACKUP 01558000 OCBUFGOT EQU OCBACKUP+2 01559000 OCMODNME EQU IEDQOPCE+40 01560000 OCIPLWA EQU OCMODNME 01561000 OCPTRSAV EQU OCMODNME+4 01562000 OCCKDATA EQU IEDQOPCE+48 01563000 OCRSTGTM EQU OCCKDATA 01564000 OC379RRT EQU OCRSTGTM 01565000 IEDQOPCN EQU 0 01566000 OCLDNME EQU IEDQOPCN 01567000 OCLINTTE EQU OCLDNME 01568000 OCREQFLG EQU OCLINTTE+2 01569000 OCFLUSHZ EQU OCREQFLG 01570000 OCPREFLG EQU OCLINTTE+3 01571000 IEDQOPCD EQU 0 01572000 OPCAVTPT EQU IEDQOPCD+8 01573000 OPCCOPCE EQU IEDQOPCD+12 01574000 OPCSAVE EQU IEDQOPCD+56 01575000 OPCFLAG1 EQU IEDQOPCD+146 01576000 OPCAQCTL EQU IEDQOPCD+180 01577000 OPCXCTL EQU IEDQOPCD+204 01578000 OPCLDNME EQU IEDQOPCD+212 01579000 OPCMODID EQU OPCLDNME+3 01580000 OPCHORT EQU IEDQOPCD+256 01581000 OPCGETBF EQU IEDQOPCD+276 01582000 OPCFREBF EQU IEDQOPCD+280 01583000 OPCSPEC EQU IEDQOPCD+300 01584000 OPCWRKSP EQU IEDQOPCD+320 01585000 OPCWAITV EQU IEDQOPCD+364 01586000 OPCPWCOB EQU IEDQOPCD+368 01587000 OPCPWQCB EQU OPCPWCOB 01588000 OPCPWECB EQU OPCPWCOB+4 01589000 OPCSESS EQU IEDQOPCD+384 01590000 OPCPCID EQU IEDQOPCD+456 01591000 OPCUNIQP EQU OPCPCID+2 01592000 OPCSESSF EQU IEDQOPCD+464 01593000 OPCBLIN EQU OPCSESSF 01594000 IEDOPRED EQU 0 01595000 OPREQCB EQU IEDOPRED+1 01596000 OPREPRI EQU IEDOPRED+4 01597000 OPRESAVE EQU IEDOPRED+8 01598000 OPRETIC EQU OPRESAVE 01599000 OPRVTCHK EQU OPRETIC+3 01600000 OPREFLG3 EQU IEDOPRED+14 01601000 IEDQPRF EQU 0 01602000 PRFRCB EQU IEDQPRF 01603000 PRFKEY EQU PRFRCB 01604000 PRFQCBA EQU PRFRCB+1 01605000 PRFPRI EQU PRFRCB+4 01606000 PRFLINK EQU PRFRCB+5 01607000 PRFTIC EQU IEDQPRF+8 01608000 PRFTICC EQU PRFTIC 01609000 PRFTI0 EQU PRFTIC+1 01610000 PRFVTCHK EQU PRFTI0+2 01611000 PRFNBUNT EQU IEDQPRF+12 01612000 PRFSUNIT EQU PRFNBUNT 01613000 PRFPLQCB EQU PRFSUNIT 01614000 PRFSRCSZ EQU IEDQPRF+16 01615000 PRFSTAT1 EQU IEDQPRF+20 01616000 PRFEOFN EQU PRFSTAT1 01617000 PRFCORE EQU IEDQPRF+21 01618000 PRFXTRA EQU PRFCORE 01619000 PRFLU1TT EQU PRFXTRA+1 01620000 PRFSCAN EQU IEDQPRF+24 01621000 PRFTQBCK EQU IEDQPRF+26 01622000 PRFNTXT EQU PRFTQBCK 01623000 PRFEOBOF EQU PRFNTXT 01624000 PRFLU2TT EQU PRFNTXT+1 01625000 PRFCHDR EQU IEDQPRF+32 01626000 PRFHQBCK EQU IEDQPRF+35 01627000 IEDQPPTR EQU 0 01628000 IEDPF1 EQU 0 01629000 PRF1FLG1 EQU IEDPF1+3 01630000 PRF1WD2 EQU IEDPF1+4 01631000 PRF1SEQP EQU PRF1WD2 01632000 PRF1SQID EQU PRF1SEQP 01633000 PRF1TAG1 EQU PRF1SQID 01634000 PRF1RULN EQU PRF1SEQP+2 01635000 IEDPF2 EQU 0 01636000 PRF2FLG2 EQU IEDPF2 01637000 PRF2WD2 EQU IEDPF2+4 01638000 IEDQQCB EQU 0 01639000 QCBDSFLG EQU IEDQQCB 01640000 QCBDISK EQU QCBDSFLG 01641000 QCBELCHN EQU IEDQQCB+1 01642000 QCBEOLDT EQU IEDQQCB+16 01643000 QCBBYTE1 EQU QCBEOLDT+1 01644000 QCBLKRLN EQU IEDQQCB+18 01645000 QCBRETCT EQU QCBLKRLN 01646000 QCBSTAT EQU IEDQQCB+19 01647000 QCBINSRC EQU IEDQQCB+21 01648000 QCBTSOF2 EQU QCBINSRC+1 01649000 QCBTSOF1 EQU QCBINSRC+2 01650000 QCBINTVL EQU IEDQQCB+24 01651000 QCBPREN EQU IEDQQCB+28 01652000 QCBLKRRN EQU QCBPREN+1 01653000 QCBDCBAD EQU IEDQQCB+33 01654000 QCBFLAG EQU IEDQQCB+36 01655000 IEDQQPTR EQU 0 01656000 IEDQPQCB EQU 0 01657000 QCBFHDLZ EQU IEDQPQCB+3 01658000 QCBFHDTZ EQU IEDQPQCB+6 01659000 QCBINTLF EQU IEDQPQCB+12 01660000 IEDNQCB EQU 0 01661000 QCBSTAT1 EQU IEDNQCB+4 01662000 QCBPLCBA EQU IEDNQCB+5 01663000 IEDQTRM EQU 0 01664000 TRMSTATE EQU IEDQTRM 01665000 TRMLOG EQU TRMSTATE 01666000 TRMDESTQ EQU IEDQTRM+1 01667000 TRMRSTRT EQU TRMDESTQ+2 01668000 TRMINSEQ EQU IEDQTRM+4 01669000 TLISTCNT EQU TRMINSEQ 01670000 TRMSESCT EQU TLISTCNT 01671000 TRMOUTSQ EQU IEDQTRM+6 01672000 TLISTEN EQU TRMOUTSQ 01673000 TRMDSORG EQU TLISTEN 01674000 TRMPLIM EQU TLISTEN+1 01675000 TRMALTD EQU IEDQTRM+8 01676000 TRMPRILK EQU TRMALTD 01677000 TRMDEVFL EQU IEDQTRM+10 01678000 TRMADDC EQU TRMDEVFL 01679000 TRMNCPI EQU TRMDEVFL+1 01680000 TRMSTAT EQU IEDQTRM+12 01681000 TRMSIO EQU TRMSTAT 01682000 TRMOWNER EQU TRMSIO 01683000 IEDQTPTR EQU 0 01684000 IEDNTRM EQU 0 01685000 TRMINDEX EQU IEDNTRM 01686000 TRMCOHTG EQU IEDNTRM+2 01687000 TRMBYTE6 EQU TRMCOHTG 01688000 TRMCDF0 EQU TRMBYTE6 01689000 TRMBYTE5 EQU TRMCOHTG+1 01690000 TRMBYTE4 EQU IEDNTRM+4 01691000 TRMBYTE3 EQU IEDNTRM+5 01692000 TRMBYTE2 EQU IEDNTRM+6 01693000 TRMRSACT EQU TRMBYTE2 01694000 TRMINPG EQU TRMBYTE2 01695000 TRMBYTE1 EQU IEDNTRM+7 01696000 TRMSCPRQ EQU TRMBYTE1 01697000 TRMSTOTE EQU TRMBYTE1 01698000 TRMCOHRT EQU IEDNTRM+8 01699000 TRMBYTE0 EQU IEDNTRM+10 01700000 TRMNOWCD EQU TRMBYTE0 01701000 TRMSIBPT EQU IEDNTRM+11 01702000 TRMLTRAC EQU TRMSIBPT 01703000 TRMRLMCT EQU IEDNTRM+14 01704000 TRMLGBST EQU TRMRLMCT 01705000 TRMTYPE EQU IEDNTRM+15 01706000 TRMSUBST EQU IEDNTRM+16 01707000 IEDQTNT EQU 0 01708000 COHORTLK EQU 0 01709000 FREEBUFF EQU 0 01710000 ALLOCBUF EQU 0 01711000 DEBSUBR EQU 0 01712000 QCBLDCB EQU 0 01713000 UCBBGN EQU 0 01714000 UCBDCPTR EQU 0 01715000 DCBPTR EQU QCBDCBAD 01716000 DEBUCB EQU DEBUCBS 01717000 DEBDVMOD EQU DEBUCB 01718000 DEBUCBAD EQU DEBUCB+1 01719000 UCBPTR EQU DEBUCBAD 01720000 UCBOBS01 EQU UCBDEV 01721000 UCBSTAB EQU UCBOBS01+10 01722000 UCBBSVL EQU UCBSTAB 01723000 UCBPRSRS EQU UCBSTAB 01724000 UCBDMCT EQU UCBOBS01+11 01725000 UCBFL4 EQU UCBOBS01+13 01726000 UCBOBS02 EQU UCBDEV 01727000 UCBTFL1 EQU UCBOBS02+19 01728000 UCBXTN EQU UCBOBS02+20 01729000 UCBVOPT EQU UCBXTN 01730000 UCBOBS03 EQU UCBDEV 01731000 UCBXTADR EQU UCBOBS03 01732000 UCBOBS04 EQU UCBDEV 01733000 UCBBTA EQU UCBOBS04+12 01734000 UCBOBS06 EQU UCBDEV 01735000 UCBAOF EQU UCBOBS06 01736000 UCBAOF1 EQU UCBAOF 01737000 UCBAOF2 EQU UCBAOF+1 01738000 @NM00120 EQU UCBOBS06+3 01739000 UCBIRB EQU UCBOBS06+4 01740000 UCBGRAF EQU UCBIRB 01741000 UCBLDNCA EQU UCBOBS06+8 01742000 UCBRDYQ EQU UCBLDNCA 01743000 UCBIRLN EQU UCBRDYQ 01744000 UCBLDNCB EQU UCBRDYQ+1 01745000 UCBCTLNK EQU UCBOBS06+12 01746000 UCBOBS07 EQU UCBDEV 01747000 UCBOBS08 EQU UCBDEV 01748000 UCBCTCAD EQU UCBOBS08 01749000 UCBCTCF1 EQU UCBOBS08+4 01750000 UCBOBS09 EQU UCBDEV 01751000 @NM00137 EQU OCCIB 01752000 @NM00138 EQU @NM00137+1 01753000 OCCKPKY1 EQU OCCKPKEY 01754000 OCCKPTYP EQU OCCKPKY1 01755000 OCICACTN EQU OCMODNME 01756000 OCICDADR EQU OCICACTN 01757000 OCICSW EQU OCICDADR+3 01758000 OCFID0 EQU OCMODNME 01759000 OCFID01 EQU OCBACKUP 01760000 @NM00143 EQU OCCKDATA 01761000 OCMSGFLG EQU OCPREFLG 01762000 OCBKUP1 EQU OCMODNME 01763000 @NM00148 EQU OCMODNME 01764000 OCBKUP2 EQU OCCKDATA 01765000 OCBKUP3 EQU OCLDNME 01766000 OCRESPTR EQU OCBKUP3+4 01767000 OCDIALLN EQU OCRESPTR 01768000 OCIPLDMP EQU OCLDNME+4 01769000 OPCAQWD EQU OPCAQCTL 01770000 OPCAQWD1 EQU OPCAQWD 01771000 OPCAQREQ EQU OPCAQWD1 01772000 OPCAQWD2 EQU OPCAQWD+4 01773000 OPCAQRQ2 EQU OPCAQWD2 01774000 OPCAQWD3 EQU OPCAQWD+8 01775000 @NM00183 EQU PRFSRCSZ 01776000 @NM00193 EQU QCBFHDLZ 01777000 TRMDIALQ EQU TRMPLIM 01778000 @NM00202 EQU TRMSTATE 01779000 TRMCDFD0 EQU TRMBYTE5 01780000 TRMPRE1 EQU TRMBYTE4 01781000 TRMNCP1 EQU TRMBYTE4 01782000 TRMLU1 EQU TRMBYTE4 01783000 TRMLINK1 EQU TRMBYTE4 01784000 TRMDCONS EQU TRMLINK1 01785000 TRMPRE EQU TRMBYTE3 01786000 TRMNCP EQU TRMBYTE3 01787000 TRMNCPCL EQU TRMNCP 01788000 TRMPU EQU TRMBYTE3 01789000 TRMLU EQU TRMBYTE3 01790000 TRMCDMGR EQU TRMBYTE3 01791000 TRMLINK EQU TRMBYTE3 01792000 FLAGS EQU OPCFLAG1 01793000 FIRSTREQ EQU FLAGS 01794000 MORLINES EQU FLAGS 01795000 WAITFLG EQU FLAGS 01796000 EXITFLG EQU FLAGS 01797000 OCLINRRT EQU OCTRUNIT 01798000 OCPCID EQU OCBACKUP 01799000 OCRSNCDE EQU OCALSTAT 01800000 PRFSHDR EQU IEDQPRF+42 01801000 TRMOPT EQU IEDQTRM+20 01802000 TRMPOOLP EQU TRMINSEQ 01803000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01804000 ERRFLG EQU FLAGS 01805000 TRMLDISC EQU TRMLINK 01806000 @NM00219 EQU TRMLINK 01807000 TRMLALOC EQU TRMLINK 01808000 TRMLSTAT EQU TRMLINK 01809000 TRMLINT EQU TRMLINK 01810000 TRMEPMOD EQU TRMLINK 01811000 TRMCDLOG EQU TRMCDMGR 01812000 @NM00218 EQU TRMCDMGR 01813000 @NM00217 EQU TRMCDMGR 01814000 @NM00216 EQU TRMCDMGR 01815000 @NM00215 EQU TRMCDMGR 01816000 @NM00214 EQU TRMCDMGR 01817000 TRMBKDUP EQU TRMCDMGR 01818000 TRMLULOG EQU TRMLU 01819000 @NM00213 EQU TRMLU 01820000 @NM00212 EQU TRMLU 01821000 @NM00211 EQU TRMLU 01822000 TRMTDIFF EQU TRMLU 01823000 @NM00210 EQU TRMLU 01824000 @NM00209 EQU TRMLU 01825000 TRMAUTO EQU TRMLU 01826000 TRMPCONT EQU TRMPU 01827000 TRMPDOCQ EQU TRMPU 01828000 TRMPULOC EQU TRMPU 01829000 TRMPDNAS EQU TRMPU 01830000 TRMPALOC EQU TRMPU 01831000 TRMNCONT EQU TRMNCP 01832000 TRMQUCKN EQU TRMNCP 01833000 TRMSLOWN EQU TRMNCP 01834000 TRMSYGEN EQU TRMNCP 01835000 TRMIPLDM EQU TRMNCP 01836000 TRMINOUT EQU TRMPRE 01837000 TRMRDOUT EQU TRMPRE 01838000 TRMNLOUT EQU TRMPRE 01839000 TRMWROUT EQU TRMPRE 01840000 TRMASNXI EQU TRMPRE 01841000 TRMSTMM EQU TRMPRE 01842000 TRMCMODE EQU TRMPRE 01843000 TRMSTPND EQU TRMPRE 01844000 TRMNCPLK EQU TRMLINK1 01845000 @NM00208 EQU TRMLINK1 01846000 TRMDCONN EQU TRMDCONS 01847000 TRMDCOP EQU TRMDCONS 01848000 TRMPMARY EQU TRMLU1 01849000 @NM00207 EQU TRMLU1 01850000 @NM00206 EQU TRMLU1 01851000 TRMCDSRQ EQU TRMLU1 01852000 TRMLSCVP EQU TRMLU1 01853000 @NM00205 EQU TRMLU1 01854000 @NM00204 EQU TRMNCP1 01855000 TRMANS EQU TRMNCP1 01856000 TRMLINOP EQU TRMNCP1 01857000 TRMINOP EQU TRMNCP1 01858000 TRMLYNCH EQU TRMPRE1 01859000 TRMSPOUT EQU TRMPRE1 01860000 TRMERLCK EQU TRMPRE1 01861000 TRMQNPL EQU TRMPRE1 01862000 TRMSPACT EQU TRMPRE1 01863000 TRMOCNI EQU TRMPRE1 01864000 TRMSESSN EQU TRMPRE1 01865000 TRMCONT EQU TRMPRE1 01866000 TRMINERR EQU TRMCDFD0 01867000 TRMLUTM EQU TRMCDFD0 01868000 TRMLUIT EQU TRMCDFD0 01869000 TRMLUREQ EQU TRMCDFD0 01870000 TRMCDPRE EQU TRMCDFD0 01871000 TRMWASCD EQU TRMCDFD0 01872000 TRMSRPFG EQU TRMCDFD0 01873000 TRMSESRQ EQU TRMCDFD0 01874000 @NM00203 EQU @NM00202 01875000 TRMENTRY EQU @NM00202 01876000 TRMSRPTR EQU TRMDIALQ 01877000 QCBPFEFO EQU @NM00193+1 01878000 QCBDATFL EQU @NM00193 01879000 PRFSVFLG EQU @NM00183+3 01880000 PRFSVFFO EQU @NM00183 01881000 OPCAQLST EQU OPCAQWD3+1 01882000 OPCAQRQ3 EQU OPCAQWD3 01883000 OPCAQSEC EQU OPCAQWD2+1 01884000 OPCAQFST EQU OPCAQWD1+1 01885000 @NM00151 EQU OCIPLDMP 01886000 OCACTRQ EQU OCIPLDMP 01887000 OCDACRQ EQU OCIPLDMP 01888000 OCIPLRQ EQU OCIPLDMP 01889000 OCDMPRQ EQU OCIPLDMP 01890000 @NM00150 EQU OCRESPTR+2 01891000 OCOHNATA EQU OCDIALLN 01892000 OCRRTPTR EQU OCBKUP3 01893000 @NM00149 EQU OCBKUP2+4 01894000 OCNHITTC EQU OCBKUP2+2 01895000 OCLINTTC EQU OCBKUP2 01896000 OCCSIB EQU @NM00148 01897000 @NM00147 EQU OCBKUP1+6 01898000 OCTARTTC EQU OCBKUP1+4 01899000 OCSRTTC EQU OCBKUP1+2 01900000 OCRSTTC EQU OCBKUP1 01901000 @NM00146 EQU OCMSGFLG 01902000 OCRRT EQU OCMSGFLG 01903000 OCNAME EQU OCMSGFLG 01904000 OCLU1TTE EQU @NM00143+4 01905000 OCLU2TTI EQU @NM00143+2 01906000 OCLU1TTI EQU @NM00143 01907000 OCSLUTNT EQU OCFID01+6 01908000 OCPLUTNT EQU OCFID01+4 01909000 OCBIADDR EQU OCFID01 01910000 OCSRCED EQU OCFID0+4 01911000 OCSRCEU EQU OCFID0 01912000 OCICINAC EQU OCICSW 01913000 @NM00142 EQU OCICSW 01914000 OCICATST EQU OCICDADR+1 01915000 OCICTYPE EQU OCICDADR 01916000 @NM00141 EQU OCCKPKY1 01917000 OCCKPENV EQU OCCKPKY1 01918000 OCCKPRST EQU OCCKPTYP 01919000 OCCKPNCP EQU OCCKPTYP 01920000 OCCKPINC EQU OCCKPTYP 01921000 @NM00140 EQU @NM00137+2 01922000 @NM00139 EQU @NM00138 01923000 OCTSTAT EQU @NM00138 01924000 OCREASON EQU @NM00137 01925000 UCBRV066 EQU UCBOBS09+4 01926000 UCBIOSBA EQU UCBOBS09 01927000 UCBRV042 EQU UCBOBS08+5 01928000 UCBRV082 EQU UCBCTCF1 01929000 UCBRV081 EQU UCBCTCF1 01930000 UCBRV080 EQU UCBCTCF1 01931000 UCBRV079 EQU UCBCTCF1 01932000 UCBRV078 EQU UCBCTCF1 01933000 UCBRV077 EQU UCBCTCF1 01934000 UCBRV076 EQU UCBCTCF1 01935000 UCBCTC80 EQU UCBCTCF1 01936000 UCBCTCAL EQU UCBCTCAD 01937000 UCBICNCB EQU UCBOBS07+4 01938000 UCBRV040 EQU UCBOBS07 01939000 UCBCTLNA EQU UCBCTLNK+1 01940000 UCBRLN EQU UCBCTLNK 01941000 UCBRDYQA EQU UCBLDNCB 01942000 UCBINRLN EQU UCBIRLN 01943000 UCBIRBA EQU UCBIRB+1 01944000 UCBRV039 EQU UCBGRAF 01945000 UCBDWNR EQU UCBGRAF 01946000 UCBRPND EQU UCBGRAF 01947000 UCBUPM EQU UCBGRAF 01948000 UCBBTAM EQU UCBGRAF 01949000 UCBDRNO EQU UCBGRAF 01950000 UCBDRO EQU UCBGRAF 01951000 UCBOIP EQU UCBGRAF 01952000 UCBATRCD EQU @NM00120 01953000 UCBSKPFG EQU @NM00120 01954000 UCBRIPND EQU @NM00120 01955000 UCBRTIAC EQU @NM00120 01956000 UCBRSV79 EQU @NM00120 01957000 UCBRSV78 EQU @NM00120 01958000 UCBRSV77 EQU @NM00120 01959000 UCBOLTEP EQU @NM00120 01960000 UCBATNCT EQU UCBOBS06+2 01961000 UCBRSV76 EQU UCBAOF2 01962000 UCBRSV75 EQU UCBAOF2 01963000 UCBRSV74 EQU UCBAOF2 01964000 UCBRSV73 EQU UCBAOF2 01965000 UCBRSV72 EQU UCBAOF2 01966000 UCBRSV71 EQU UCBAOF2 01967000 UCBRSV70 EQU UCBAOF2 01968000 UCBRSV69 EQU UCBAOF2 01969000 UCBRSV68 EQU UCBAOF1 01970000 UCBRSV67 EQU UCBAOF1 01971000 UCBRSV66 EQU UCBAOF1 01972000 UCBRSV65 EQU UCBAOF1 01973000 UCBRSV64 EQU UCBAOF1 01974000 UCBOFNL EQU UCBAOF1 01975000 UCBOFSP EQU UCBAOF1 01976000 UCBOFMCR EQU UCBAOF1 01977000 UCBBTB EQU UCBBTA+1 01978000 UCBDI EQU UCBBTA 01979000 UCBSNS EQU UCBOBS04+8 01980000 UCBTEB EQU UCBOBS04+4 01981000 UCBGCB EQU UCBOBS04+3 01982000 UCBOPEN EQU UCBOBS04+2 01983000 UCBSTART EQU UCBOBS04 01984000 UCBXTNB EQU UCBXTN+1 01985000 UCBRSV22 EQU UCBVOPT 01986000 UCBRSV21 EQU UCBVOPT 01987000 UCBRSV20 EQU UCBVOPT 01988000 UCBESVE EQU UCBVOPT 01989000 UCBERPC EQU UCBVOPT 01990000 UCBESVC EQU UCBVOPT 01991000 UCBEVA EQU UCBVOPT 01992000 UCBESV EQU UCBVOPT 01993000 UCBRV009 EQU UCBTFL1 01994000 UCBRV008 EQU UCBTFL1 01995000 UCBRV007 EQU UCBTFL1 01996000 UCBRV006 EQU UCBTFL1 01997000 UCBRV005 EQU UCBTFL1 01998000 UCBRV038 EQU UCBTFL1 01999000 UCBNSLTP EQU UCBTFL1 02000000 UCBNLTP EQU UCBTFL1 02001000 UCBRES1B EQU UCBOBS02+18 02002000 UCBFSER EQU UCBOBS02+12 02003000 @NM00119 EQU UCBOBS02+4 02004000 UCBFSEQ EQU UCBOBS02+2 02005000 UCBFSCT EQU UCBOBS02 02006000 UCBNEXP EQU UCBOBS01+20 02007000 UCBBASE EQU UCBOBS01+16 02008000 UCBRES1A EQU UCBOBS01+15 02009000 UCBUSER EQU UCBOBS01+14 02010000 UCBFL47 EQU UCBFL4 02011000 UCBFL46 EQU UCBFL4 02012000 UCBFL45 EQU UCBFL4 02013000 UCBRV065 EQU UCBFL4 02014000 UCBDSS EQU UCBFL4 02015000 UCBRV028 EQU UCBFL4 02016000 UCBWDAV EQU UCBFL4 02017000 UCBDAVV EQU UCBFL4 02018000 UCBSQC EQU UCBOBS01+12 02019000 UCBDATP EQU UCBOBS01+12 02020000 UCBDMC EQU UCBDMCT 02021000 UCBMOUNT EQU UCBDMCT 02022000 UCBBNUL EQU UCBSTAB 02023000 UCBSHAR EQU UCBSTAB 02024000 UCBBSTR EQU UCBSTAB 02025000 UCBBPUB EQU UCBSTAB 02026000 UCBBPRV EQU UCBSTAB 02027000 UCBBALB EQU UCBPRSRS 02028000 UCBPGFL EQU UCBSTAB 02029000 UCBDVSHR EQU UCBBSVL 02030000 UCBVOLI EQU UCBOBS01+4 02031000 UCBVTOC EQU UCBOBS01 02032000 TRMPRIME EQU TRMLGBST 02033000 TRMOWNR EQU TRMLTRAC+1 02034000 TRMGPCNT EQU TRMLTRAC 02035000 TRMBUFRD EQU TRMBYTE0 02036000 TRMSNA EQU TRMBYTE0 02037000 TRMGP EQU TRMBYTE0 02038000 TRMDIAL EQU TRMBYTE0 02039000 TRMACDC EQU TRMNOWCD 02040000 TRMOUTPT EQU TRMBYTE0 02041000 TRMINPUT EQU TRMBYTE0 02042000 TRMUDEF EQU TRMBYTE0 02043000 TRMCKPRN EQU TRMBYTE1 02044000 TRMTSATN EQU TRMBYTE1 02045000 TRMTRACE EQU TRMBYTE1 02046000 TRMSWBCK EQU TRMBYTE1 02047000 TRMAUTOC EQU TRMBYTE1 02048000 TRMINPTP EQU TRMBYTE1 02049000 TRMWTNEG EQU TRMSCPRQ 02050000 TRMWRBRK EQU TRMBYTE2 02051000 TRMNOSND EQU TRMBYTE2 02052000 TRMPREP EQU TRMBYTE2 02053000 TRMGPACT EQU TRMBYTE2 02054000 TRMANDL EQU TRMBYTE2 02055000 TRMCLOSN EQU TRMINPG 02056000 TRMREMB EQU TRMBYTE2 02057000 @NM00201 EQU TRMCDF0 02058000 TRMPURGE EQU TRMCDF0 02059000 TRMCDST EQU TRMINDEX 02060000 TRMOPTBL EQU IEDQTRM+18 02061000 TRMOPNO EQU IEDQTRM+17 02062000 TRMCHCIN EQU IEDQTRM+16 02063000 TRMSENSE EQU TRMSTAT+3 02064000 TRMTEMPR EQU TRMSTAT+2 02065000 TRMNADDR EQU TRMOWNER 02066000 @NM00200 EQU TRMDEVFL+1 02067000 TRMTPIN EQU TRMDEVFL+1 02068000 @NM00199 EQU TRMNCPI 02069000 TRMRNTRM EQU TRMDEVFL+1 02070000 @NM00198 EQU TRMDEVFL+1 02071000 TRMLMD EQU TRMDEVFL+1 02072000 TRMCONC EQU TRMDEVFL+1 02073000 TRMTSOB EQU TRMDEVFL 02074000 TRMBFDY EQU TRMDEVFL 02075000 TRMTBLK EQU TRMDEVFL 02076000 TRMSBLK EQU TRMDEVFL 02077000 TRMBLKS EQU TRMDEVFL 02078000 TRMSCV EQU TRMADDC 02079000 TRMDDIG EQU TRMDEVFL 02080000 TRMBUFS EQU TRMDEVFL 02081000 TRMSTEAL EQU TRMPRILK 02082000 TRMLGB EQU TRMDSORG 02083000 TRMUTERM EQU TRMSESCT 02084000 TRMVERIF EQU TRMRSTRT 02085000 @NM00197 EQU TRMRSTRT 02086000 @NM00196 EQU TRMDESTQ 02087000 TRMSCNYN EQU TRMSTATE 02088000 TRMOPTFN EQU TRMSTATE 02089000 TRMHELDN EQU TRMSTATE 02090000 TRMACPTN EQU TRMSTATE 02091000 TRMPREF EQU TRMSTATE 02092000 TRMPROC EQU TRMLOG 02093000 TRMLIST EQU TRMLOG 02094000 TRMLINE EQU TRMSTATE 02095000 QCBTTCIN EQU QCBPLCBA+1 02096000 @NM00195 EQU QCBPLCBA 02097000 @NM00194 EQU QCBSTAT1 02098000 QCBFLUSH EQU QCBSTAT1 02099000 QCBNDXRQ EQU QCBSTAT1 02100000 QCBESIG EQU QCBSTAT1 02101000 QCBRCVRQ EQU QCBSTAT1 02102000 QCBSNDRQ EQU QCBSTAT1 02103000 QCBWAITC EQU QCBSTAT1 02104000 QCBPLCBN EQU QCBSTAT1 02105000 QCBCHAIN EQU IEDNQCB 02106000 QCBPQBCK EQU IEDQPQCB+25 02107000 QCBPRIPQ EQU IEDQPQCB+24 02108000 QCBCFHDR EQU IEDQPQCB+21 02109000 QCBLFEFO EQU IEDQPQCB+18 02110000 QCBFFEFO EQU IEDQPQCB+15 02111000 QCBPREVF EQU QCBINTLF 02112000 QCBINTFF EQU IEDQPQCB+9 02113000 QCBDATSQ EQU QCBFHDTZ+1 02114000 @NM00192 EQU QCBFHDTZ 02115000 QCBDNHDR EQU IEDQPQCB 02116000 QCBQBACK EQU IEDQQCB+37 02117000 QCBCKPT EQU QCBFLAG 02118000 QCBPROC EQU QCBFLAG 02119000 QCBSDFFO EQU QCBFLAG 02120000 QCBTERMQ EQU QCBFLAG 02121000 QCBRSRV EQU QCBFLAG 02122000 QCBREAD EQU QCBFLAG 02123000 QCBNOBRK EQU QCBFLAG 02124000 QCBTSSES EQU QCBFLAG 02125000 QCBLGBAD EQU QCBDCBAD 02126000 QCBRELLN EQU IEDQQCB+32 02127000 QCBTJID EQU QCBLKRRN+1 02128000 QCBCARCT EQU QCBLKRRN 02129000 QCBPRLVL EQU QCBPREN 02130000 QCBMSGCT EQU IEDQQCB+26 02131000 QCBEXTO EQU QCBINTVL 02132000 QCBDISC EQU QCBTSOF1 02133000 QCBDELAY EQU QCBTSOF1 02134000 QCBPARTO EQU QCBTSOF1 02135000 QCBSATRD EQU QCBTSOF1 02136000 QCBNOBUF EQU QCBTSOF1 02137000 QCBTPUT EQU QCBTSOF1 02138000 QCBTGET EQU QCBTSOF1 02139000 QCBWRBRK EQU QCBTSOF1 02140000 QCBSATLC EQU QCBTSOF2 02141000 QCBSATTI EQU QCBTSOF2 02142000 QCBSATCH EQU QCBTSOF2 02143000 QCBSIMRD EQU QCBTSOF2 02144000 QCBDSSMI EQU QCBTSOF2 02145000 QCBPOSTO EQU QCBTSOF2 02146000 QCBBUFQ EQU QCBTSOF2 02147000 QCBINHBN EQU QCBTSOF2 02148000 QCBSATCT EQU QCBINSRC 02149000 QCBSCBOF EQU IEDQQCB+20 02150000 QCBTIME EQU QCBSTAT 02151000 QCBCLOCK EQU QCBSTAT 02152000 QCBSCHDL EQU QCBSTAT 02153000 QCBSMODE EQU QCBSTAT 02154000 QCBSEND EQU QCBSTAT 02155000 QCBBUFRD EQU QCBSTAT 02156000 QCBTRMHO EQU QCBSTAT 02157000 QCBEOM EQU QCBSTAT 02158000 QCBHUCT EQU QCBRETCT 02159000 QCBIEND EQU QCBRETCT 02160000 QCBEND EQU QCBRETCT 02161000 QCBNL EQU QCBRETCT 02162000 QCBLOGCT EQU QCBRETCT 02163000 @NM00191 EQU QCBBYTE1 02164000 QCBRITRM EQU QCBBYTE1 02165000 @NM00190 EQU QCBEOLDT 02166000 QCBSLINK EQU IEDQQCB+13 02167000 QCBSTPRI EQU IEDQQCB+12 02168000 QCBSTCHN EQU IEDQQCB+9 02169000 QCBSTVTO EQU IEDQQCB+8 02170000 QCBLINK EQU IEDQQCB+5 02171000 QCBPRI EQU IEDQQCB+4 02172000 QCBCNTEN EQU QCBELCHN+2 02173000 @NM00189 EQU QCBELCHN+2 02174000 @NM00188 EQU QCBELCHN 02175000 QCBHELD EQU QCBDSFLG 02176000 QCBFQCB EQU QCBDSFLG 02177000 QCBDRQQ EQU QCBDSFLG 02178000 QCBALTMH EQU QCBDSFLG 02179000 QCBREUS EQU QCBDISK 02180000 QCBNREUS EQU QCBDISK 02181000 QCBCORE EQU QCBDSFLG 02182000 QCBTSQ EQU QCBDSFLG 02183000 PRF2SEQP EQU PRF2WD2 02184000 @NM00187 EQU IEDPF2+1 02185000 @NM00186 EQU PRF2FLG2 02186000 PRF2TERM EQU PRF2FLG2 02187000 PRF2SMI EQU PRF2FLG2 02188000 PRF2FORM EQU PRF2FLG2 02189000 PRF2TNTI EQU PRF2FLG2 02190000 PRF1RCDE EQU PRF1RULN 02191000 PRF1TAG2 EQU PRF1SQID+1 02192000 @NM00185 EQU PRF1TAG1 02193000 PRF1TAGS EQU PRF1TAG1 02194000 @NM00184 EQU PRF1FLG1 02195000 PRF1LOGD EQU PRF1FLG1 02196000 PRF1USS EQU PRF1FLG1 02197000 PRF1FORM EQU PRF1FLG1 02198000 PRF1EXPI EQU PRF1FLG1 02199000 PRF1FIDI EQU PRF1FLG1 02200000 PRF1RH EQU IEDPF1 02201000 PRFDEST EQU IEDQPRF+40 02202000 PRFISEQ EQU IEDQPRF+38 02203000 PRFSTXT EQU PRFHQBCK 02204000 PRFNHDR EQU PRFCHDR 02205000 PRFCRCD EQU IEDQPRF+29 02206000 PRFSVSEQ EQU PRFLU2TT 02207000 PRFSVPRI EQU PRFEOBOF 02208000 PRFISIZE EQU PRFSCAN+1 02209000 @NM00182 EQU PRFSCAN 02210000 PRFEOB EQU PRFLU1TT 02211000 PRFSTSO EQU PRFXTRA 02212000 PRFNHDRN EQU PRFSTAT1 02213000 PRFNLSTN EQU PRFSTAT1 02214000 PRFLOCK EQU PRFEOFN 02215000 PRFDUPLN EQU PRFSTAT1 02216000 PRFTSMSG EQU PRFSTAT1 02217000 PRFITCPN EQU PRFSTAT1 02218000 PRFERMGN EQU PRFSTAT1 02219000 PRFCNCLN EQU PRFSTAT1 02220000 PRFSIZE EQU PRFSRCSZ+2 02221000 PRFSRCE EQU PRFSRCSZ 02222000 PRFLCB EQU IEDQPRF+13 02223000 PRFPIUO EQU PRFPLQCB 02224000 @NM00181 EQU PRFVTCHK 02225000 PRFITSET EQU PRFVTCHK 02226000 @NM00180 EQU PRFVTCHK 02227000 @NM00179 EQU PRFTI0 02228000 @NM00178 EQU PRFTICC 02229000 @NM00177 EQU PRFTICC 02230000 @NM00176 EQU PRFTICC 02231000 PRFTICON EQU PRFTICC 02232000 @NM00175 EQU PRFTICC 02233000 @NM00174 EQU PRFTICC 02234000 PRFBFMM EQU PRFTICC 02235000 PRFEOMSG EQU PRFTICC 02236000 PRFCOUNT EQU PRFLINK+1 02237000 @NM00173 EQU PRFLINK 02238000 PRFFLAGS EQU PRFPRI 02239000 PRFIOADR EQU PRFQCBA 02240000 PRFOPCDE EQU PRFKEY 02241000 @NM00172 EQU OPREFLG3 02242000 OPREATCH EQU OPREFLG3 02243000 @NM00171 EQU OPREFLG3 02244000 OPREFLG2 EQU IEDOPRED+13 02245000 OPREFLG1 EQU IEDOPRED+12 02246000 @NM00170 EQU OPRVTCHK 02247000 OPRITSET EQU OPRVTCHK 02248000 @NM00169 EQU OPRVTCHK 02249000 @NM00168 EQU OPRETIC 02250000 OPRELINK EQU IEDOPRED+5 02251000 OPREKEY EQU IEDOPRED 02252000 OPCBOTTM EQU IEDQOPCD+1276 02253000 OPCDSRWT EQU IEDQOPCD+1272 02254000 @NM00167 EQU IEDQOPCD+1188 02255000 @NM00166 EQU IEDQOPCD+1036 02256000 @NM00165 EQU IEDQOPCD+1028 02257000 @NM00164 EQU IEDQOPCD+468 02258000 OPCLSABC EQU IEDQOPCD+466 02259000 @NM00163 EQU IEDQOPCD+465 02260000 @NM00162 EQU OPCBLIN 02261000 OPCBLDSC EQU OPCBLIN 02262000 OPCUNIQV EQU OPCUNIQP+2 02263000 OPCUNIQU EQU OPCUNIQP 02264000 OPCOSSCP EQU OPCPCID 02265000 OPCSDUPU EQU IEDQOPCD+452 02266000 OPCSDULU EQU IEDQOPCD+448 02267000 OPCSDRVT EQU IEDQOPCD+444 02268000 OPCSDRET EQU IEDQOPCD+440 02269000 OPCSDHSY EQU IEDQOPCD+436 02270000 OPCSDENQ EQU IEDQOPCD+432 02271000 OPCSDDIA EQU IEDQOPCD+428 02272000 OPCSDCIS EQU IEDQOPCD+424 02273000 OPCSDBIS EQU IEDQOPCD+420 02274000 OPCSDAPU EQU IEDQOPCD+416 02275000 OPCSDALU EQU IEDQOPCD+412 02276000 OPCCSKEY EQU IEDQOPCD+408 02277000 OPCSSKEY EQU IEDQOPCD+404 02278000 OPCPRTTE EQU IEDQOPCD+400 02279000 OPCLU2TT EQU OPCSESS+14 02280000 OPCLU1TT EQU OPCSESS+12 02281000 OPCSENSE EQU OPCSESS+8 02282000 OPCCSIB EQU OPCSESS+4 02283000 OPCCTTE EQU OPCSESS 02284000 OPCGTSIB EQU IEDQOPCD+380 02285000 @NM00161 EQU OPCPWCOB+9 02286000 @NM00160 EQU OPCPWCOB+8 02287000 @NM00159 EQU OPCPWECB+1 02288000 OPCPWCCC EQU OPCPWECB 02289000 OPCPWCHN EQU OPCPWQCB+1 02290000 OPCPWVTO EQU OPCPWQCB 02291000 OPCTOTCK EQU IEDQOPCD+360 02292000 OPCAPXTL EQU IEDQOPCD+356 02293000 OPCDECR EQU IEDQOPCD+352 02294000 OPCBUFWT EQU IEDQOPCD+348 02295000 OPCADGOT EQU IEDQOPCD+318 02296000 OPCRQCNT EQU IEDQOPCD+316 02297000 OPPOLSTP EQU IEDQOPCD+312 02298000 OPCCKCIB EQU IEDQOPCD+308 02299000 OPCEND EQU IEDQOPCD+307 02300000 OPCSTCBS EQU IEDQOPCD+306 02301000 OPCHNEND EQU IEDQOPCD+302 02302000 OPCOQSW EQU IEDQOPCD+301 02303000 @NM00158 EQU OPCSPEC 02304000 @NM00157 EQU OPCSPEC 02305000 @NM00156 EQU OPCSPEC 02306000 @NM00155 EQU OPCSPEC 02307000 OPCFRMCA EQU OPCSPEC 02308000 OPCRSTRT EQU OPCSPEC 02309000 OPCPART EQU OPCSPEC 02310000 OPCALTD EQU OPCSPEC 02311000 OPCBFEND EQU IEDQOPCD+296 02312000 OPCBFIRS EQU IEDQOPCD+292 02313000 OPCAVBUF EQU IEDQOPCD+290 02314000 OPCIPLCT EQU IEDQOPCD+289 02315000 OPCCLNTS EQU IEDQOPCD+288 02316000 OPCHA8 EQU IEDQOPCD+286 02317000 OPCBFREQ EQU IEDQOPCD+284 02318000 OPCNEXT EQU IEDQOPCD+272 02319000 OPCFMDFC EQU IEDQOPCD+268 02320000 OPCSCNC EQU IEDQOPCD+264 02321000 OPCHORTG EQU IEDQOPCD+260 02322000 OPCCKPTL EQU IEDQOPCD+252 02323000 OPCCKPTF EQU IEDQOPCD+248 02324000 OPCWAITA EQU IEDQOPCD+244 02325000 OPCWAITR EQU IEDQOPCD+240 02326000 OPCWAITP EQU IEDQOPCD+236 02327000 OPCWAITO EQU IEDQOPCD+232 02328000 OPCWAITN EQU IEDQOPCD+228 02329000 OPCWAITL EQU IEDQOPCD+224 02330000 OPCWAITC EQU IEDQOPCD+220 02331000 @NM00154 EQU OPCLDNME+5 02332000 @NM00153 EQU OPCLDNME 02333000 OPCWAIT EQU IEDQOPCD+192 02334000 OPCCKERB EQU IEDQOPCD+164 02335000 OPCBFERB EQU IEDQOPCD+148 02336000 OPCFLAG2 EQU IEDQOPCD+147 02337000 OPCWRKSZ EQU IEDQOPCD+144 02338000 OPCWORK EQU IEDQOPCD+140 02339000 OPCRSAVE EQU IEDQOPCD+132 02340000 OPCQCBAD EQU IEDQOPCD+128 02341000 OPCTRMWA EQU IEDQOPCD+52 02342000 OPCPSTWT EQU IEDQOPCD+48 02343000 OPCTNTEA EQU IEDQOPCD+44 02344000 OPCPGCK EQU IEDQOPCD+40 02345000 OPCLCB EQU IEDQOPCD+36 02346000 @NM00152 EQU IEDQOPCD+32 02347000 OPCIPLAD EQU IEDQOPCD+28 02348000 OPCTOFLK EQU IEDQOPCD+24 02349000 OPCOPTLK EQU IEDQOPCD+20 02350000 OPCDCBLK EQU IEDQOPCD+16 02351000 OPCDOUBL EQU IEDQOPCD 02352000 @NM00145 EQU OCLDNME+4 02353000 @NM00144 EQU OCPREFLG 02354000 OCREMCON EQU OCPREFLG 02355000 OCCLNUP EQU OCPREFLG 02356000 OCTOTEP EQU OCPREFLG 02357000 OCREPOST EQU OCPREFLG 02358000 OCRSPSNT EQU OCPREFLG 02359000 OCBFREQ EQU OCPREFLG 02360000 OCIDLE EQU OCREQFLG 02361000 OCFORCE EQU OCREQFLG 02362000 OCDCARD EQU OCREQFLG 02363000 OCPARTAL EQU OCREQFLG 02364000 OCADNCP EQU OCREQFLG 02365000 OCRMPORQ EQU OCREQFLG 02366000 OCCDLACT EQU OCREQFLG 02367000 OCRESPCT EQU OCLINTTE 02368000 OCCKPTWA EQU OCCKDATA+4 02369000 OCNCP EQU OCRSTGTM+2 02370000 OCCKDAT2 EQU OC379RRT+1 02371000 OCCKDAT1 EQU OC379RRT 02372000 OCPUADR EQU OCIPLWA+2 02373000 OCWTGSAV EQU OCIPLWA 02374000 OCDVRDCT EQU OCBACKUP+6 02375000 @NM00136 EQU OCBACKUP+4 02376000 OCBUFRET EQU OCBUFGOT 02377000 OCBUFUSD EQU OCBUFNED 02378000 OCRESNUM EQU OCPARM 02379000 OCSEQ EQU OCTRUNIT+2 02380000 @NM00135 EQU OCRSID+1 02381000 OCREDRVE EQU OCALSTAT 02382000 OCSEQIND EQU OCALSTAT 02383000 @NM00134 EQU OCALSTAT 02384000 OCDIALX EQU OCWTGB 02385000 @NM00133 EQU OCMSTSAV+2 02386000 OCREQVAL EQU OCDEST+1 02387000 OCCONID EQU OCDEST 02388000 OCRLN EQU IEDQOPCE+15 02389000 OCSSCP EQU OCFLAG 02390000 OCOUTPUT EQU OCFLAG 02391000 OCLINE EQU OCFLAG 02392000 OCMPP EQU OCFLAG 02393000 OCCONSOL EQU OCFLAG 02394000 @NM00132 EQU OCSWITCH 02395000 OCQUCKN EQU OCSWITCH 02396000 OCPRIFLG EQU OCOPTCDE 02397000 @NM00131 EQU OCUNITBF 02398000 OCINVTIC EQU OCUNITBF 02399000 @NM00130 EQU OCUNITBF 02400000 @NM00129 EQU @NM00128 02401000 @NM00127 EQU OCSCAN 02402000 OCNOTUCB EQU OCSCAN 02403000 OCNONAME EQU OCSCAN 02404000 OCALLRLN EQU OCSCAN 02405000 OCDDNAME EQU OCSCAN 02406000 OCDDNRLN EQU OCSCAN 02407000 OCADDR EQU OCSCAN 02408000 OCELMPRI EQU OCELEM 02409000 NSLTTEND EQU NSLGRPNM+4 02410000 NSLOPCEP EQU NSLTTEBG 02411000 @NM00126 EQU IEDNSLD+34 02412000 NSLUNREQ EQU NSLUNCNT+1 02413000 NSLBFREQ EQU NSLUNCNT 02414000 NSLBUFFR EQU NSLERB+9 02415000 @NM00125 EQU NSLESTAT 02416000 NSLMPPI EQU NSLESTAT 02417000 @NM00124 EQU NSLESTAT 02418000 NSLELINK EQU NSLERB+5 02419000 NSLERBPR EQU NSLERB+4 02420000 NSLERQCB EQU NSLERB 02421000 NSLTTCIN EQU IEDNSLD+16 02422000 NSLCTTRM EQU IEDNSLD+13 02423000 @NM00123 EQU NSLGPCUS 02424000 NSLDRDRV EQU NSLGPCUS 02425000 NSLSDIAL EQU NSLGPCUS 02426000 NSLNGPSL EQU NSLGPCUS 02427000 NSLGPTSP EQU NSLGPCUS 02428000 NSLNGPST EQU NSLGPCUS 02429000 NSLSAVE EQU IEDNSLD+9 02430000 @NM00122 EQU NSLPLCB 02431000 NSLPLCBR EQU NSLPLCB 02432000 NSLOPRE EQU IEDNSLD 02433000 NSLSAVE2 EQU IEDNNSLD+4 02434000 NSLSAVE1 EQU IEDNNSLD 02435000 UCBERADR EQU UCBUCS+12 02436000 UCBFCBID EQU UCBUCS+8 02437000 UCBERCNT EQU UCBUCS+7 02438000 UCBRSV51 EQU UCBUCS+6 02439000 UCBRSV50 EQU UCBFCBOP 02440000 UCBRSV49 EQU UCBFCBOP 02441000 UCBRSV48 EQU UCBFCBOP 02442000 UCBRSV47 EQU UCBFCBOP 02443000 UCBRSV46 EQU UCBFCBOP 02444000 UCBRSV45 EQU UCBFCBOP 02445000 UCBRSV44 EQU UCBFCBOP 02446000 UCBFCBO1 EQU UCBFCBOP 02447000 UCBUCSPE EQU UCBUCSOP 02448000 UCBRSV43 EQU UCBUCSOP 02449000 UCBRSV42 EQU UCBUCSOP 02450000 UCBRSV41 EQU UCBUCSOP 02451000 UCBRSV40 EQU UCBUCSOP 02452000 UCBRSV39 EQU UCBUCSOP 02453000 UCBUCSO2 EQU UCBUCSOP 02454000 UCBUCSO1 EQU UCBUCSOP 02455000 UCBUCSID EQU UCBUCS 02456000 UCBMDRBA EQU UCBMDRBF+1 02457000 UCBRV075 EQU UCBMDRBF 02458000 UCBRV074 EQU UCB3800X+32 02459000 UCBIMAGE EQU UCB3800X+28 02460000 UCBFCBNM EQU UCB3800X+24 02461000 UCBCHAR4 EQU UCB3800X+20 02462000 UCBCHAR3 EQU UCB3800X+16 02463000 UCBCHAR2 EQU UCB3800X+12 02464000 UCBCHAR1 EQU UCB3800X+8 02465000 UCBCGMID EQU UCB3800X+4 02466000 UCBBRSTA EQU UCBACTIV 02467000 UCBRV063 EQU UCBACTIV 02468000 UCBRV062 EQU UCBACTIV 02469000 UCBRV061 EQU UCBACTIV 02470000 UCBRV060 EQU UCBACTIV 02471000 UCBRV059 EQU UCBACTIV 02472000 UCBRV058 EQU UCBACTIV 02473000 UCBRV057 EQU UCBACTIV 02474000 UCBRV050 EQU UCB3800X+2 02475000 UCBCGMNO EQU UCB3800X+1 02476000 UCBRV083 EQU UCBOPTNS 02477000 UCBBRSTR EQU UCBOPTNS 02478000 UCBRV056 EQU UCBOPTNS 02479000 UCBRV055 EQU UCBOPTNS 02480000 UCBRV054 EQU UCBOPTNS 02481000 UCBRV053 EQU UCBOPTNS 02482000 UCBRV052 EQU UCBOPTNS 02483000 UCBRV051 EQU UCBOPTNS 02484000 UCBRV073 EQU UCB3540X+7 02485000 UCBRV072 EQU UCBDKBYT 02486000 UCBRV071 EQU UCBDKBYT 02487000 UCBRV070 EQU UCBDKBYT 02488000 UCBRV069 EQU UCBDKBYT 02489000 UCBRV068 EQU UCBDKBYT 02490000 UCBRV067 EQU UCBDKBYT 02491000 UCBVLVER EQU UCBDKBYT 02492000 UCBDKAMX EQU UCBDKBYT 02493000 UCBVLSER EQU UCB3540X 02494000 UCBRDATA EQU UCBOCR+4 02495000 UCBFRID EQU UCBOCR 02496000 UCBCLN EQU UCBMT+14 02497000 UCBERG EQU UCBMT+12 02498000 UCBMS EQU UCBMT+11 02499000 UCBNB EQU UCBMT+10 02500000 UCBPW EQU UCBMT+9 02501000 UCBPR EQU UCBMT+8 02502000 UCBSIO EQU UCBMT+6 02503000 UCBTW EQU UCBMT+5 02504000 UCBTR EQU UCBMT+4 02505000 UCBTWT EQU UCBMT+3 02506000 UCBTRT EQU UCBMT+2 02507000 UCBCTD EQU UCBMT 02508000 UCBWTOID EQU UCBCMEXT+17 02509000 UCBRV043 EQU UCBCMEXT+16 02510000 UCBASID EQU UCBCMEXT+14 02511000 UCBMFCNT EQU UCBCMEXT+12 02512000 UCBPMSK EQU UCBCMEXT+10 02513000 UCBCCWOF EQU UCBCMEXT+8 02514000 UCBRV041 EQU UCBCMEXT+6 02515000 UCBRV036 EQU UCBFLP1 02516000 UCBRV035 EQU UCBFLP1 02517000 UCBERLOG EQU UCBFLP1 02518000 UCBRV033 EQU UCBFLP1 02519000 UCBRV032 EQU UCBFLP1 02520000 UCBRV031 EQU UCBFLP1 02521000 UCBSHRUP EQU UCBFLP1 02522000 UCBNSRCH EQU UCBFLP1 02523000 UCBSNSCT EQU UCBCMEXT+4 02524000 UCBHPDV EQU @NM00121 02525000 UCBHALI EQU @NM00121 02526000 UCBRSV09 EQU @NM00121 02527000 UCBRSV08 EQU @NM00121 02528000 UCBRSV07 EQU @NM00121 02529000 UCBRSV06 EQU @NM00121 02530000 UCBRSV05 EQU @NM00121 02531000 UCBRSV04 EQU @NM00121 02532000 UCBDTI EQU UCBCMEXT+2 02533000 UCBSTI EQU UCBCMEXT+1 02534000 UCBETI EQU UCBCMEXT 02535000 UCBEXTP EQU UCBEXTPT+1 02536000 UCBDDRSW EQU UCBFLC 02537000 UCBTICBT EQU UCBFLC 02538000 UCBIVRR EQU UCBFLC 02539000 UCBIVRS EQU UCBFLC 02540000 UCBITF EQU UCBFLC 02541000 UCBUDE EQU UCBFLC 02542000 UCBWAA EQU UCBFLC 02543000 UCBATTP EQU UCBFLC 02544000 UCBUNTYP EQU UCBTBYT4 02545000 UCBRSV11 EQU UCBDVCLS 02546000 UCBRSV10 EQU UCBDVCLS 02547000 UCB3CHAR EQU UCBDVCLS 02548000 UCB3UREC EQU UCBDVCLS 02549000 UCB3DISP EQU UCBDVCLS 02550000 UCB3DACC EQU UCBDVCLS 02551000 UCB3COMM EQU UCBDVCLS 02552000 UCB3TAPE EQU UCBDVCLS 02553000 UCBDVPWR EQU UCB2OPT7 02554000 UCBVLPWR EQU UCB2OPT6 02555000 UCB2OPT5 EQU UCBTBYT2 02556000 UCBRVDEV EQU UCBRWTAU 02557000 UCBRPS EQU UCBDUDN2 02558000 UCBRR EQU UCBDUDN1 02559000 UCB2OPT1 EQU UCBTBYT2 02560000 UCB2OPT0 EQU UCBTBYT2 02561000 UCB1FEA7 EQU UCBTBYT1 02562000 UCBD6250 EQU UCB1FEA6 02563000 UCBD1600 EQU UCB1FEA5 02564000 UCB1FEA4 EQU UCBTBYT1 02565000 UCB1FEA3 EQU UCBTBYT1 02566000 UCB1FEA2 EQU UCBTBYT1 02567000 UCB1FEA1 EQU UCBTBYT1 02568000 UCB1FEA0 EQU UCBTBYT1 02569000 UCBRV029 EQU UCBWGT 02570000 UCBVHRSN EQU UCBWGT 02571000 UCBVORSN EQU UCBWGT 02572000 UCBMTPXP EQU UCBWGT 02573000 UCBREW EQU UCBWGT 02574000 UCBPUB EQU UCBWGT 02575000 UCBOUT EQU UCBWGT 02576000 UCBIN EQU UCBWGT 02577000 UCBCPU EQU UCBOB+11 02578000 UCBLCI EQU UCBOB+10 02579000 UCBCNT EQU UCBOB+9 02580000 UCBRV017 EQU UCBCHM1 02581000 UCBRV016 EQU UCBCHM1 02582000 UCBRV015 EQU UCBCHM1 02583000 UCBRV014 EQU UCBCHM1 02584000 UCBSPB EQU UCBPTH1 02585000 UCBPPB EQU UCBPTH1 02586000 UCBSPA EQU UCBPTH0 02587000 UCBPPA EQU UCBPTH0 02588000 UCBSIGP EQU UCBFLB 02589000 UCBVALPH EQU UCBFLB 02590000 UCBCRHSN EQU UCBFLB 02591000 UCBCRHRV EQU UCBFLB 02592000 UCBRESVH EQU UCBFLB 02593000 UCBSPST EQU UCBFLB 02594000 UCBASNS EQU UCBFLB 02595000 UCBIORST EQU UCBFLB 02596000 UCBQISCE EQU UCBFL1 02597000 UCBACTV EQU UCBFL1 02598000 UCBSAP EQU UCBFL1 02599000 UCBNOTRC EQU UCBCUB 02600000 UCBPSNS EQU UCBFL1 02601000 UCBUSING EQU UCBPST 02602000 UCBNOTRD EQU UCBNRY 02603000 UCBBUSYD EQU UCBBSY 02604000 UCBUA EQU UCBCHAN+1 02605000 UCBCHA EQU UCBCHAN 02606000 UCBDADI EQU UCBSTAT 02607000 UCBSYSR EQU UCBSTAT 02608000 UCBPRES EQU UCBSTAT 02609000 UCBALOC EQU UCBSTAT 02610000 UCBUNLD EQU UCBSTAT 02611000 UCBRESV EQU UCBSTAT 02612000 UCBCHGS EQU UCBSTAT 02613000 UCBONLI EQU UCBSTAT 02614000 UCBID EQU UCBOB+2 02615000 UCBALTPH EQU UCBFL5 02616000 UCBALTCU EQU UCBFL5 02617000 UCBNALOC EQU UCBFL5 02618000 UCBENVRD EQU UCBFL5 02619000 UCBVSDR EQU UCBFL5 02620000 UCBSASK EQU UCBFL5 02621000 UCBAMV EQU UCBAF 02622000 UCBDCC EQU UCBFL5 02623000 UCBMONT EQU UCBJBNR 02624000 UCBRV011 EQU UCBJBNR 02625000 UCBRSV02 EQU UCBJBNR 02626000 UCBOLDSM EQU UCBJBNR 02627000 UCBRV003 EQU UCBJBNR 02628000 UCBDUC EQU UCBJBNR 02629000 UCBJES3 EQU UCBJBNR 02630000 UCBVRDEV EQU UCBJBNR 02631000 UCBCMSEG EQU UCBOB 02632000 UCBPFXND EQU UCB+512 02633000 UCBIOQ EQU UCB+508 02634000 UCBLOCK EQU UCB+504 02635000 UCBPXST EQU UCB+504 02636000 @NM00118 EQU UCB 02637000 DEBAPPAD EQU IEDQDEB+65 02638000 DEBEXSCL EQU IEDQDEB+64 02639000 DEBDCBAD EQU IEDQDEB+61 02640000 DEBPROTG EQU IEDQDEB+60 02641000 DEBECBAD EQU IEDQDEB+57 02642000 DEBPRIOR EQU IEDQDEB+56 02643000 DEBUSRPG EQU IEDQDEB+53 02644000 DEBSYSPG EQU IEDQDEB+49 02645000 DEBOPATB EQU IEDQDEB+48 02646000 DEBIRBAD EQU IEDQDEB+45 02647000 DEBOFLGS EQU IEDQDEB+44 02648000 DEBDEBAD EQU IEDQDEB+41 02649000 DEBAMLNG EQU IEDQDEB+40 02650000 DEBTCBAD EQU IEDQDEB+37 02651000 @NM00117 EQU DEBPRF+33 02652000 DEBLNGTH EQU DEBPRF+32 02653000 DEBDCBMK EQU DEBPRF+28 02654000 DEBDSCBA EQU DEBPRF+21 02655000 DEBWKARA EQU DEBPRF+20 02656000 DEBXCEA EQU DEBAPVT+16 02657000 DEBCEA EQU DEBAPVT+12 02658000 DEBPCIA EQU DEBAPVT+8 02659000 DEBSIOA EQU DEBAPVT+4 02660000 DEBEOEA EQU DEBAPVT 02661000 DCBBUFSI EQU IHADCS43+6 02662000 DCBUNTCT EQU IHADCS43+5 02663000 DCBILCT EQU IHADCS43+4 02664000 DCBSCTAD EQU DCBSCTAB+1 02665000 @NM00116 EQU DCBSCTAB 02666000 DCBPUTA EQU DCBGETA 02667000 @NM00115 EQU DCBPUT 02668000 DCBDEBA EQU DCBDEBAD+1 02669000 @NM00114 EQU DCBIFLGS 02670000 DCBIFIOE EQU DCBIFLGS 02671000 DCBCH12 EQU DCBIFPCT 02672000 DCBCH9 EQU DCBIFPCT 02673000 DCBIFEC EQU DCBIFLGS 02674000 DCBMFSTI EQU DCBMFDMD 02675000 DCBMFAWR EQU DCBMFSTK 02676000 DCBMFUIP EQU DCBMFTMD 02677000 DCBMFIDW EQU DCBMFLCP 02678000 DCBMFWRK EQU DCBMFMVP 02679000 DCBMFRDQ EQU DCBMFWRT 02680000 DCBMFGTQ EQU DCBMFPUT 02681000 DCBMFSTL EQU DCBMACF2 02682000 DCBMFCK EQU DCBMFDMG 02683000 DCBMFRDX EQU DCBMFCHK 02684000 DCBMFDBF EQU DCBMFSBG 02685000 DCBMFRDI EQU DCBMFLCG 02686000 DCBMFRDK EQU DCBMFMVG 02687000 DCBMFWRQ EQU DCBMFRD 02688000 DCBMFPTQ EQU DCBMFGET 02689000 DCBMFECP EQU DCBMACF1 02690000 DCBTIOT EQU IHADCS25 02691000 DCBMRSTI EQU DCBMRDMD 02692000 DCBMRAWR EQU DCBMRSTK 02693000 DCBMRUIP EQU DCBMRTMD 02694000 DCBMRIDW EQU DCBMRLCP 02695000 DCBMRWRK EQU DCBMRMVP 02696000 DCBMRRDQ EQU DCBMRWRT 02697000 DCBMRGTQ EQU DCBMRPUT 02698000 DCBMRSTL EQU DCBMACR2 02699000 DCBMRCK EQU DCBMRDMG 02700000 DCBPGFXA EQU DCBMRRDX 02701000 DCBMRDBF EQU DCBMRSBG 02702000 DCBMRRDI EQU DCBMRLCG 02703000 DCBMRRDK EQU DCBMRMVG 02704000 DCBMRWRQ EQU DCBMRRD 02705000 DCBMRPTQ EQU DCBMRGET 02706000 DCBMRECP EQU DCBMACR1 02707000 @NM00113 EQU DCBIFLG 02708000 DCBIBIOE EQU DCBIFLG 02709000 DCBICH12 EQU DCBIBPCT 02710000 DCBICH9 EQU DCBIBPCT 02711000 DCBIBEC EQU DCBIFLG 02712000 DCBOFIOF EQU DCBOFLGS 02713000 DCBOFUEX EQU DCBOFLGS 02714000 DCBOFTM EQU DCBOFLGS 02715000 DCBOFPPC EQU DCBOFLGS 02716000 DCBOFOPN EQU DCBOFLGS 02717000 DCBOFEOV EQU DCBOFLGS 02718000 DCBOFLRB EQU DCBOFLGS 02719000 DCBOFIOD EQU DCBOFLWR 02720000 DCBDDNAM EQU IHADCS24 02721000 DCBEXLSA EQU DCBEXLST+1 02722000 DCBEIOBX EQU DCBEXLST 02723000 DCBRNCKA EQU DCBRNCKD+1 02724000 @NM00112 EQU DCBRNCKD 02725000 DCBIOBAD EQU IHADCS2K+8 02726000 DCBDSGTR EQU DCBDSRG2 02727000 @NM00111 EQU DCBDSRG2 02728000 DCBDSRG1 EQU DCBDSORG 02729000 DCBCHNGL EQU DCBTRSTA 02730000 DCBNIDLE EQU DCBTRSTA 02731000 DCBBAKUP EQU DCBTRSTA 02732000 DCBIPLED EQU DCBTRSTA 02733000 DCBRSTRT EQU DCBTRSTA 02734000 DCBINITL EQU DCBTRSTA 02735000 DCBAUTOD EQU DCBTRSTA 02736000 DCBAUTOI EQU DCBTRSTA 02737000 @NM00110 EQU IHADCS2K+4 02738000 DCBDUMPA EQU DCBDUMPD+1 02739000 DCBUNITN EQU DCBDUMPD 02740000 DCBBCKUA EQU DCBBCKUP+1 02741000 @NM00109 EQU DCBBCKUP 02742000 DCBIPLTX EQU IHADCS1A 02743000 @NM00108 EQU IHADCB 02744000 SAVTLLCB EQU IEDNSVTD+380 02745000 SAVTSCF0 EQU IEDNSVTD+376 02746000 SAVTLSNY EQU IEDNSVTD+372 02747000 SAVTLSZP EQU IEDNSVTD+368 02748000 SAVTOMSU EQU IEDNSVTD+364 02749000 SAVTGTSB EQU IEDNSVTD+360 02750000 SAVTHIBL EQU IEDNSVTD+356 02751000 SAVTHISY EQU IEDNSVTD+352 02752000 SAVTNAX2 EQU IEDNSVTD+348 02753000 SAVTCDRU EQU IEDNSVTD+344 02754000 SAVTPOLC EQU IEDNSVTD+342 02755000 SAVTPOLM EQU IEDNSVTD+340 02756000 SAVTPOLR EQU IEDNSVTD+336 02757000 SAVTCDRN EQU SAVTCDRV 02758000 SAVTPOLL EQU IEDNSVTD+328 02759000 SAVTPOLN EQU IEDNSVTD+326 02760000 @NM00107 EQU IEDNSVTD+325 02761000 @NM00106 EQU SAVTNETF 02762000 SAVTSDIS EQU SAVTNETF 02763000 SAVTROUT EQU SAVTNETF 02764000 SAVTNETW EQU SAVTNETF 02765000 SAVTDIAL EQU IEDNSVTD+320 02766000 SAVTRQUT EQU IEDNSVTD+316 02767000 SAVTBITN EQU IEDNSVTD+312 02768000 @NM00105 EQU SAVTCKQB+8 02769000 @NM00104 EQU SAVTCKEC+1 02770000 @NM00103 EQU SAVTCKCC 02771000 SAVTCKPO EQU SAVTCKCC 02772000 SAVTCKWA EQU SAVTCKCC 02773000 SAVTCKCH EQU SAVTCKTB+1 02774000 SAVTCKVT EQU SAVTCKTB 02775000 @NM00102 EQU IEDNSVTD+297 02776000 SAVTRDFG EQU SAVTRDRV+12 02777000 @NM00101 EQU SAVTRDRV+5 02778000 SAVTRDPY EQU SAVTRDRV+4 02779000 SAVTRDQB EQU SAVTRDRV+1 02780000 SAVTRDKY EQU SAVTRDRV 02781000 SAVTNID EQU IEDNSVTD+280 02782000 SAVTDVAS EQU IEDNSVTD+276 02783000 SAVTPLSZ EQU IEDNSVTD+274 02784000 @NM00100 EQU IEDNSVTD+273 02785000 SAVTSUBL EQU IEDNSVTD+272 02786000 @NM00099 EQU SAVTZELM+1 02787000 SAVTSUBM EQU SAVTZELM 02788000 SAVTMHDX EQU IEDNSVTD+268 02789000 SAVTNAT1 EQU IEDNSVTD+266 02790000 SAVTSH20 EQU IEDNSVTD+264 02791000 SAVTLCBS EQU IEDNSVTD+260 02792000 SAVTRNMP EQU IEDNSVTD+256 02793000 SAVTTNTX EQU IEDNSVTD+252 02794000 SAVTNAX EQU IEDNSVTD+248 02795000 SAVTSUBV EQU IEDNSVTD+247 02796000 SAVTSUBA EQU IEDNSVTD+246 02797000 SAVTSIBC EQU IEDNSVTD+244 02798000 SAVTBSM EQU IEDNSVTD+240 02799000 SAVTSCPT EQU SAVTTCPU 02800000 SAVTRQTG EQU IEDNSVTD+236 02801000 SAVTRQCH EQU IEDNSVTD+232 02802000 SAVTMAND EQU IEDNSVTD+228 02803000 SAVTNADL EQU IEDNSVTD+222 02804000 SAVTNATL EQU IEDNSVTD+220 02805000 SAVTMHTB EQU IEDNSVTD+216 02806000 SAVTSSMH EQU IEDNSVTD+212 02807000 SAVTQRS EQU IEDNSVTD+208 02808000 SAVTRQIN EQU IEDNSVTD+204 02809000 SAVTDFCO EQU IEDNSVTD+200 02810000 SAVTSAO EQU IEDNSVTD+196 02811000 SAVTSARI EQU IEDNSVTD+192 02812000 SAVTSAC EQU IEDNSVTD+188 02813000 SAVTSAI EQU IEDNSVTD+184 02814000 SAVTCSCI EQU IEDNSVTD+180 02815000 SAVTSSRP EQU IEDNSVTD+176 02816000 SAVTSSRQ EQU IEDNSVTD+172 02817000 SAVTSCLU EQU IEDNSVTD+168 02818000 SAVTXTRQ EQU IEDNSVTD+164 02819000 SAVTMVBF EQU IEDNSVTD+160 02820000 @NM00098 EQU IEDNSVTD+148 02821000 SAVTIPCQ EQU IEDNSVTD+144 02822000 @NM00097 EQU IEDNSVTD+136 02823000 SAVTXFMI EQU IEDNSVTD+132 02824000 @NM00096 EQU IEDNSVTD+124 02825000 SAVTXFMO EQU IEDNSVTD+120 02826000 @NM00095 EQU IEDNSVTD+116 02827000 SAVTSSSR EQU IEDNSVTD+112 02828000 SAVTSCPQ EQU IEDNSVTD+108 02829000 SAVTSLCB EQU IEDNSVTD+104 02830000 SAVTLUSR EQU IEDNSVTD+100 02831000 @NM00094 EQU SAVTLUSQ+8 02832000 SAVTLUSP EQU SAVTLUSQ+4 02833000 SAVTLUSB EQU SAVTLUSQ 02834000 @NM00093 EQU IEDNSVTD+84 02835000 SAVTSAT EQU IEDNSVTD+80 02836000 SAVTNAT EQU IEDNSVTD+76 02837000 SAVTCLUP EQU IEDNSVTD+72 02838000 SAVTPIUT EQU IEDNSVTD+68 02839000 SAVTRNTA EQU IEDNSVTD+64 02840000 SAVTDNIR EQU IEDNSVTD+60 02841000 SAVTCNIR EQU IEDNSVTD+56 02842000 SAVTFLDH EQU IEDNSVTD+52 02843000 SAVTSRTN EQU IEDNSVTD+48 02844000 SAVTSREQ EQU IEDNSVTD+44 02845000 SAVTFAIL EQU IEDNSVTD+42 02846000 SAVTSUSE EQU IEDNSVTD+40 02847000 SAVTSIB EQU IEDNSVTD+36 02848000 SAVTPRTN EQU IEDNSVTD+32 02849000 @NM00092 EQU IEDNSVTD+28 02850000 SAVTWH20 EQU IEDNSVTD+26 02851000 SAVTPWT EQU IEDNSVTD+24 02852000 SAVTPRTQ EQU IEDNSVTD+20 02853000 SAVTPREQ EQU IEDNSVTD+16 02854000 SAVTPH20 EQU IEDNSVTD+14 02855000 SAVTPUSE EQU IEDNSVTD+12 02856000 SAVTPLCB EQU IEDNSVTD+8 02857000 SAVTPOOL EQU IEDNSVTD+4 02858000 SAVTPRMT EQU SAVTDIAF 02859000 SAVTVIRT EQU SAVTDIAF 02860000 AVTSITS EQU IEDQAVTD+1264 02861000 AVTMSUHI EQU IEDQAVTD+1260 02862000 AVTSITU EQU IEDQAVTD+1256 02863000 AVTSITP EQU IEDQAVTD+1252 02864000 AVTPADDR EQU IEDQAVTD+1248 02865000 @NM00091 EQU IEDQAVTD+1246 02866000 AVTCPBNO EQU IEDQAVTD+1244 02867000 AVTHRESS EQU IEDQAVTD+1243 02868000 @NM00090 EQU IEDQAVTD+1242 02869000 @NM00089 EQU IEDQAVTD+1241 02870000 @NM00088 EQU IEDQAVTD+1240 02871000 @NM00087 EQU IEDQAVTD+1237 02872000 @NM00086 EQU IEDQAVTD+1236 02873000 AVTHRESE EQU @NM00085 02874000 AVTRADDR EQU IEDQAVTD+1228 02875000 AVTNADDR EQU IEDQAVTD+1224 02876000 AVTHRESN EQU IEDQAVTD+1220 02877000 AVTVOLRN EQU IEDQAVTD+1216 02878000 AVTTOTNN EQU IEDQAVTD+1212 02879000 AVTTRCYN EQU IEDQAVTD+1208 02880000 AVTRCTRN EQU IEDQAVTD+1204 02881000 AVTNOVON EQU IEDQAVTD+1200 02882000 AVTADEBN EQU IEDQAVTD+1196 02883000 AVTVOLRR EQU IEDQAVTD+1192 02884000 AVTTOTNR EQU IEDQAVTD+1188 02885000 AVTTRCYR EQU IEDQAVTD+1184 02886000 AVTRCTRR EQU IEDQAVTD+1180 02887000 AVTNOVOR EQU IEDQAVTD+1176 02888000 AVTADEBR EQU IEDQAVTD+1172 02889000 AVTLODPT EQU IEDQAVTD+1168 02890000 AVTIOBN EQU IEDQAVTD+1164 02891000 AVTIOBR EQU IEDQAVTD+1160 02892000 AVTCPBPT EQU IEDQAVTD+1156 02893000 AVTFCPB EQU IEDQAVTD+1152 02894000 @NM00084 EQU IEDQAVTD+1148 02895000 AVTINCPQ EQU IEDQAVTD+1144 02896000 @NM00083 EQU IEDQAVTD+1140 02897000 @NM00082 EQU IEDQAVTD+1137 02898000 @NM00081 EQU AVTBIT4 02899000 @NM00080 EQU AVTBIT4 02900000 @NM00079 EQU AVTBIT4 02901000 @NM00078 EQU AVTBIT4 02902000 @NM00077 EQU AVTBIT4 02903000 @NM00076 EQU AVTBIT4 02904000 @NM00075 EQU AVTBIT4 02905000 AVTRUFTN EQU AVTBIT4 02906000 @NM00074 EQU IEDQAVTD+1132 02907000 AVTNOBFQ EQU IEDQAVTD+1128 02908000 @NM00073 EQU IEDQAVTD+1124 02909000 AVTDKENQ EQU IEDQAVTD+1120 02910000 @NM00072 EQU IEDQAVTD+1116 02911000 AVTDKAPQ EQU IEDQAVTD+1112 02912000 AVTCOPY EQU IEDQAVTD+1108 02913000 AVTIA EQU IEDQAVTD+1104 02914000 AVTFL EQU IEDQAVTD+1100 02915000 @NM00071 EQU IEDQAVTD+1096 02916000 AVTNCPBQ EQU IEDQAVTD+1092 02917000 AVTTOTNC EQU IEDQAVTD+1088 02918000 AVTCMAX EQU IEDQAVTD+1084 02919000 AVTCMIN EQU IEDQAVTD+1080 02920000 AVTHM02 EQU IEDQAVTD+1076 02921000 AVTOPCIN EQU IEDQAVTD+1074 02922000 AVTDCTLN EQU IEDQAVTD+1072 02923000 AVTOPMSK EQU IEDQAVTD+1068 02924000 AVTDDFT EQU IEDQAVTD+1064 02925000 AVTSTEAL EQU IEDQAVTD+1060 02926000 AVTOPTN EQU IEDQAVTD+1056 02927000 AVTDSKCT EQU IEDQAVTD+1054 02928000 AVTCKRST EQU IEDQAVTD+1053 02929000 AVTSTAN EQU AVTBIT3 02930000 AVTSTACN EQU AVTBIT3 02931000 AVTSTAIN EQU AVTBIT3 02932000 AVTSTAYN EQU AVTBIT3 02933000 AVTOLTBN EQU AVTBIT3 02934000 AVTTSAB EQU AVTBIT3 02935000 AVTRFULN EQU AVTBIT3 02936000 AVTRECVN EQU AVTBIT3 02937000 @NM00070 EQU AVTBIT2 02938000 @NM00069 EQU AVTBIT2 02939000 AVTOPEIN EQU AVTBIT2 02940000 AVTSTRTN EQU AVTBIT2 02941000 AVTTOPOL EQU AVTBIT2 02942000 AVTCOPYN EQU AVTBIT2 02943000 AVTREUSN EQU AVTBIT2 02944000 AVTEXTSC EQU AVTBIT2 02945000 AVTDISKN EQU AVTBIT1 02946000 AVTQUCKN EQU AVTBIT1 02947000 AVTCLOSN EQU AVTBIT1 02948000 AVTREADN EQU AVTBIT1 02949000 AVTDLAYN EQU AVTBIT1 02950000 AVTAQTAN EQU AVTBIT1 02951000 AVTTSON EQU AVTBIT1 02952000 AVTAPLKN EQU AVTBIT1 02953000 AVTDUMBR EQU IEDQAVTD+1048 02954000 AVTDLQX EQU IEDQAVTD+1046 02955000 AVTINTLV EQU IEDQAVTD+1044 02956000 AVTSMCNT EQU IEDQAVTD+1042 02957000 AVTAVFCT EQU IEDQAVTD+1040 02958000 AVTOPCON EQU IEDQAVTD+1038 02959000 AVTOPCNT EQU IEDQAVTD+1036 02960000 AVTLNCNT EQU IEDQAVTD+1034 02961000 AVTKEYLE EQU IEDQAVTD+1032 02962000 AVTHA16 EQU IEDQAVTD+1030 02963000 AVTHA7 EQU IEDQAVTD+1028 02964000 AVTHA4 EQU IEDQAVTD+1026 02965000 AVTHA3 EQU IEDQAVTD+1024 02966000 AVTHA2 EQU IEDQAVTD+1022 02967000 AVTGETMS EQU IEDQAVTD+1021 02968000 @NM00068 EQU IEDQAVTD+1020 02969000 AVTGETMD EQU IEDQAVTD+1016 02970000 AVTGETMN EQU IEDQAVTD+1012 02971000 AVTCWTOT EQU IEDQAVTD+1008 02972000 AVTCWINT EQU IEDQAVTD+956 02973000 AVTDTRAP EQU IEDQAVTD+952 02974000 @NM00067 EQU IEDQAVTD+950 02975000 @NM00066 EQU AVTIOTR 02976000 AVTIOTRH EQU AVTIOTR 02977000 AVTIOTRE EQU AVTIOTR 02978000 @NM00065 EQU AVTSUBT 02979000 AVTSUBPT EQU AVTSUBT 02980000 AVTSUBON EQU AVTSUBT 02981000 AVTAFE30 EQU IEDQAVTD+944 02982000 AVTAFE20 EQU IEDQAVTD+940 02983000 AVTAFE10 EQU IEDQAVTD+936 02984000 AVTCWEC2 EQU IEDQAVTD+932 02985000 AVTCWPM2 EQU IEDQAVTD+928 02986000 AVTCWTS2 EQU IEDQAVTD+927 02987000 AVTCWTS1 EQU IEDQAVTD+926 02988000 AVTCWCLD EQU AVTCWFL2 02989000 AVTCWRAP EQU AVTCWFL2 02990000 @NM00064 EQU AVTCWFL2 02991000 @NM00063 EQU AVTCWFL2 02992000 @NM00062 EQU AVTCWFL2 02993000 @NM00061 EQU AVTCWFL2 02994000 @NM00060 EQU AVTCWFL2 02995000 AVTCWACT EQU AVTCWFL2 02996000 @NM00059 EQU AVTCWFL1 02997000 @NM00058 EQU AVTCWFL1 02998000 @NM00057 EQU AVTCWFL1 02999000 @NM00056 EQU AVTCWFL1 03000000 @NM00055 EQU AVTCWFL1 03001000 @NM00054 EQU AVTCWFL1 03002000 @NM00053 EQU AVTCWFL1 03003000 AVTCOMWN EQU AVTCWFL1 03004000 AVTCWEC1 EQU IEDQAVTD+920 03005000 AVTCWPM1 EQU IEDQAVTD+916 03006000 AVTCAREA EQU IEDQAVTD+912 03007000 AVTFZERO EQU IEDQAVTD+908 03008000 AVTCADDR EQU IEDQAVTD+904 03009000 AVTCOREC EQU IEDQAVTD+900 03010000 @NM00052 EQU IEDQAVTD+892 03011000 AVTCPBCB EQU IEDQAVTD+888 03012000 @NM00051 EQU IEDQAVTD+880 03013000 AVTDSIOB EQU IEDQAVTD+876 03014000 @NM00050 EQU IEDQAVTD+868 03015000 AVTCPRMB EQU IEDQAVTD+864 03016000 @NM00049 EQU IEDQAVTD+856 03017000 AVTCLOSB EQU IEDQAVTD+852 03018000 @NM00048 EQU IEDQAVTD+844 03019000 AVTACTIB EQU IEDQAVTD+840 03020000 @NM00047 EQU IEDQAVTD+836 03021000 AVTOLTEB EQU IEDQAVTD+832 03022000 AVTOLTCH EQU AVTOLTQB+1 03023000 AVTOLTVT EQU AVTOLTQB 03024000 @NM00046 EQU AVTOPCQB+8 03025000 @NM00045 EQU AVTOPCEC+1 03026000 @NM00044 EQU AVTOPCCC 03027000 AVTOPCPO EQU AVTOPCCC 03028000 AVTOPCWA EQU AVTOPCCC 03029000 AVTOPCCH EQU AVTOPCOB+1 03030000 AVTOPCVT EQU AVTOPCOB 03031000 @NM00043 EQU AVTCKPQB+9 03032000 AVTCKPTS EQU AVTCKPQB+8 03033000 @NM00042 EQU AVTCKPEC+1 03034000 @NM00041 EQU AVTCKPCC 03035000 AVTCKPPO EQU AVTCKPCC 03036000 AVTCKPWA EQU AVTCKPCC 03037000 AVTCKPCH EQU AVTCKPTB+1 03038000 AVTCKPVT EQU AVTCKPTB 03039000 @NM00040 EQU IEDQAVTD+796 03040000 AVTBFRTB EQU IEDQAVTD+792 03041000 @NM00039 EQU IEDQAVTD+788 03042000 AVTSELCH EQU IEDQAVTD+785 03043000 AVTBFRTN EQU AVTBFRFG 03044000 AVTBFREB EQU IEDQAVTD+780 03045000 AVTTIMQ EQU IEDQAVTD+776 03046000 @NM00038 EQU IEDQAVTD+772 03047000 AVTIMQPS EQU IEDQAVTD+768 03048000 AVTINOUT EQU IEDQAVTD+766 03049000 AVTREFTM EQU IEDQAVTD+764 03050000 @NM00037 EQU IEDQAVTD+752 03051000 AVTDELYB EQU IEDQAVTD+748 03052000 AVTOCQPT EQU IEDQAVTD+744 03053000 AVTTSOPT EQU IEDQAVTD+740 03054000 AVTSUPPT EQU IEDQAVTD+736 03055000 AVTCBQCB EQU IEDQAVTD+732 03056000 AVTMSGS EQU IEDQAVTD+729 03057000 @NM00036 EQU AVTSYSER 03058000 @NM00035 EQU AVTSYSER 03059000 @NM00034 EQU AVTSYSER 03060000 @NM00033 EQU AVTSYSER 03061000 @NM00032 EQU AVTSYSER 03062000 @NM00031 EQU AVTSYSER 03063000 AVTCMAXN EQU AVTSYSER 03064000 AVTCMINN EQU AVTSYSER 03065000 AVT2260L EQU IEDQAVTD+724 03066000 AVTABEPL EQU AVTADBUF 03067000 AVTHFF EQU AVTCLRHI+2 03068000 @NM00030 EQU AVTCLRHI 03069000 AVTCCLNK EQU AVTCRELE+5 03070000 AVTCCPRI EQU AVTCRELE+4 03071000 AVTCCQCB EQU AVTCCELE+1 03072000 AVTCCKEY EQU AVTCCELE 03073000 AVTDELAD EQU IEDQAVTD+704 03074000 AVTDELEM EQU IEDQAVTD+700 03075000 AVTBSX EQU AVTCKLNK 03076000 AVTOPETR EQU AVTHG01 03077000 @NM00029 EQU AVTCKBYT 03078000 AVTCKONQ EQU AVTCKBYT 03079000 @NM00028 EQU AVTCKBYT 03080000 @NM00027 EQU AVTCKBYT 03081000 @NM00026 EQU AVTCKBYT 03082000 @NM00025 EQU AVTCKBYT 03083000 @NM00024 EQU AVTCKBYT 03084000 @NM00023 EQU AVTCKBYT 03085000 AVTOPERT EQU IEDQAVTD+690 03086000 AVTOPXCL EQU IEDQAVTD+688 03087000 AVTOPERL EQU IEDQAVTD+687 03088000 @NM00022 EQU IEDQAVTD+686 03089000 AVTCKTIM EQU IEDQAVTD+684 03090000 AVTCKELV EQU IEDQAVTD+682 03091000 AVTCPRCD EQU IEDQAVTD+681 03092000 AVTWARMN EQU AVTCKELF 03093000 AVTCRTLN EQU AVTCKELF 03094000 AVTCPIPN EQU AVTCKELF 03095000 AVTCCLCN EQU AVTCKELF 03096000 AVTCINCN EQU AVTCKELF 03097000 @NM00021 EQU AVTCKELF 03098000 AVTCMCPN EQU AVTCKELF 03099000 AVTNQBCK EQU AVTCKELF 03100000 AVTCKQAD EQU IEDQAVTD+677 03101000 AVTSCBSZ EQU IEDQAVTD+676 03102000 @NM00020 EQU IEDQAVTD+672 03103000 AVTCKELE EQU IEDQAVTD+668 03104000 @NM00019 EQU AVTCKPEL+8 03105000 AVTCKRLK EQU AVTCKPEL+5 03106000 AVTCKRPR EQU AVTCKPEL+4 03107000 AVTCKRMQ EQU AVTCKRMV+1 03108000 AVTCKRKY EQU AVTCKRMV 03109000 AVTHK EQU IEDQAVTD+648 03110000 AVTHI EQU IEDQAVTD+644 03111000 AVTIOT EQU IEDQAVTD+640 03112000 AVTNX EQU IEDQAVTD+636 03113000 AVTTONE EQU IEDQAVTD+632 03114000 AVTA3TL EQU IEDQAVTD+628 03115000 AVTDMECB EQU IEDQAVTD+624 03116000 AVTABEND EQU IEDQAVTD+618 03117000 AVTPLCBN EQU IEDQAVTD+616 03118000 @NM00018 EQU AVTSAVTP+1 03119000 @NM00017 EQU AVTSAVTF 03120000 AVTSNA EQU AVTSAVTF 03121000 AVTONSNA EQU AVTSAVTF 03122000 AVTVTMCP EQU AVTSAVTF 03123000 @NM00016 EQU IEDQAVTD+608 03124000 AVTCMBSS EQU IEDQAVTD+604 03125000 AVTRCV EQU IEDQAVTD+600 03126000 AVTSEND EQU IEDQAVTD+596 03127000 AVTCSCH EQU IEDQAVTD+592 03128000 AVTQ1 EQU IEDQAVTD+588 03129000 AVTE7 EQU IEDQAVTD+584 03130000 AVTHB EQU IEDQAVTD+580 03131000 AVTR1 EQU IEDQAVTD+576 03132000 AVTBZ EQU IEDQAVTD+572 03133000 AVTEZ EQU IEDQAVTD+568 03134000 AVTEC EQU IEDQAVTD+564 03135000 AVTEW EQU IEDQAVTD+560 03136000 AVTNDIAL EQU AVTSCOPT 03137000 AVTN2741 EQU AVTSCOPT 03138000 AVTCONCO EQU AVTSCOPT 03139000 AVTCONC EQU AVTSCOPT 03140000 AVTCMBUF EQU AVTSCOPT 03141000 AVTAPDMP EQU AVTSCOPT 03142000 @NM00015 EQU AVTSCOPT 03143000 AVTHA EQU AVTDISP 03144000 AVTEA EQU IEDQAVTD+548 03145000 AVTAX EQU IEDQAVTD+544 03146000 AVTA3 EQU IEDQAVTD+540 03147000 AVTGD EQU IEDQAVTD+536 03148000 AVTAL EQU IEDQAVTD+532 03149000 AVTOLTST EQU AVTHG02 03150000 AVTE8 EQU IEDQAVTD+524 03151000 AVTUI EQU IEDQAVTD+520 03152000 AVTCOMPT EQU IEDQAVTD+516 03153000 AVTCRSRF EQU IEDQAVTD+512 03154000 @NM00014 EQU IEDQAVTD+508 03155000 AVTKA02 EQU IEDQAVTD+504 03156000 AVTOPTPT EQU IEDQAVTD+500 03157000 AVTPCBPT EQU IEDQAVTD+496 03158000 @NM00013 EQU AVTECB1 03159000 AVTCOMP EQU AVTECB1 03160000 @NM00012 EQU AVTECB1 03161000 AVTOPECA EQU IEDQAVTD+488 03162000 AVTOLECA EQU IEDQAVTD+484 03163000 AVTCKECA EQU IEDQAVTD+480 03164000 AVTCWECA EQU IEDQAVTD+476 03165000 AVTCWTCB EQU IEDQAVTD+472 03166000 AVTOLTCB EQU IEDQAVTD+468 03167000 AVTOCTCB EQU IEDQAVTD+464 03168000 AVTCKTCB EQU IEDQAVTD+460 03169000 AVTAS EQU IEDQAVTD+456 03170000 AVTNOLBF EQU IEDQAVTD+454 03171000 AVTNCKPR EQU IEDQAVTD+453 03172000 AVTCIB EQU IEDQAVTD+452 03173000 AVTSPLPT EQU IEDQAVTD+448 03174000 AVTMVBFR EQU IEDQAVTD+444 03175000 AVTSBTA EQU IEDQAVTD+440 03176000 AVTRARTN EQU IEDQAVTD+436 03177000 AVTBSCAN EQU IEDQAVTD+432 03178000 AVTRDYA EQU IEDQAVTD+428 03179000 AVTDISTR EQU IEDQAVTD+420 03180000 AVTPARM3 EQU IEDQAVTD+416 03181000 @NM00011 EQU AVTPKF 03182000 @NM00010 EQU AVTPKF 03183000 @NM00009 EQU AVTPKF 03184000 AVTFTCHF EQU AVTPKF 03185000 @NM00008 EQU AVTPKF 03186000 @NM00007 EQU AVTPKF 03187000 @NM00006 EQU AVTPKF 03188000 @NM00005 EQU AVTPKF 03189000 AVTPARM EQU IEDQAVTD+408 03190000 AVTEXS2A EQU IEDQAVTD+402 03191000 AVTEXA2S EQU IEDQAVTD+396 03192000 AVTOCGET EQU IEDQAVTD+392 03193000 AVTCKAVT EQU @NM00003+1 03194000 @NM00004 EQU AVTCKFLG 03195000 AVTCKHLT EQU AVTCKFLG 03196000 AVTCKREQ EQU AVTCKFLG 03197000 AVTCKENV EQU AVTCKFLG 03198000 AVTCKNAC EQU AVTCKFLG 03199000 AVTCKTAC EQU AVTCKFLG 03200000 @NM00002 EQU IEDQAVTD+384 03201000 AVTREADD EQU IEDQAVTD+380 03202000 AVTREADY EQU IEDQAVTD+376 03203000 AVTRACE EQU IEDQAVTD+372 03204000 AVTTCB EQU IEDQAVTD+368 03205000 AVTPASWD EQU IEDQAVTD+360 03206000 AVTCTLCH EQU IEDQAVTD+352 03207000 AVTDOUBL EQU IEDQAVTD+344 03208000 AVTDOUBX EQU IEDQAVTD+336 03209000 AVTDPARM EQU IEDQAVTD+332 03210000 AVTCSTCS EQU IEDQAVTD+328 03211000 AVTDLQ EQU AVTSAVEX+32 03212000 @NM00001 EQU AVTSAVEX 03213000 AVTSAVE4 EQU IEDQAVTD+216 03214000 AVTSAVE3 EQU IEDQAVTD+144 03215000 AVTSAVE2 EQU IEDQAVTD+72 03216000 AVTSAVE1 EQU IEDQAVTD 03217000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03218000 @RF00524 EQU @RC00514 03219000 @RC00522 EQU @RC00514 03220000 @RC00520 EQU @RC00514 03221000 @RC00575 EQU @RC00568 03222000 @RF00617 EQU @RC00590 03223000 @RF00620 EQU @RC00590 03224000 @RC00622 EQU @RC00590 03225000 @RC00631 EQU @RC00590 03226000 @RF00691 EQU @RC00681 03227000 @RF00810 EQU @EL00003 03228000 @RF00815 EQU @EL00003 03229000 @RF00624 EQU @RC00622 03230000 @ENDDATA EQU * 03231000 END IGCV810D,(C'PLS1442',0701,77356) 03232000