TITLE 'BLSELP00 - LISTPROB SUBCOMMAND PROCESSOR FOR MVS/IPCS *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRD 00004000 BLSELP00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSELP00 78.065' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALLR R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 *BLREXTRN - IDENTIFY EXTERNAL REFERENCES 00024000 EXTRN BLSDPC00 00025000 EXTRN BLSDSV00 00026000 * ZZ2PTR=R1; 0477 00027000 LR ZZ2PTR,R1 0477 00028000 * RESPECIFY 0478 00029000 * R1; 0478 00030000 * RETC=ZERO; 0479 00031000 SLR RETC,RETC 0479 00032000 * DO; /* BLSUPARS ROUTING MF(E,PX) */ 00033000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00034000 ST ZZ2PTR,@AL00001 0481 00035000 L @10,PCPTR 0481 00036000 ST @10,@AL00001+4 0481 00037000 LA @10,PDAPTR 0481 00038000 ST @10,@AL00001+8 0481 00039000 L @10,ZZ2BVTP(,ZZ2PTR) 0481 00040000 L @15,BVTPARIP(,@10) 0481 00041000 LA @01,@AL00001 0481 00042000 BALR @14,@15 0481 00043000 * RESPECIFY 0482 00044000 * (GPR15F) RESTRICTED; 0482 00045000 * IF GPR15F^=ZZZFLAGI THEN 0483 00046000 * 0483 00047000 LTR GPR15F,GPR15F 0483 00048000 BZ @RF00483 0483 00049000 * /*************************************************************/ 00050000 * /* */ 00051000 * /* UNABLE TO PARSE */ 00052000 * /* */ 00053000 * /*************************************************************/ 00054000 * 0484 00055000 * DO; /* UNABLE TO PARSE */ 00056000 * RETC=GPR15F; /* RETURN CODE */ 00057000 LR RETC,GPR15F 0485 00058000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00059000 B EXITNORL 0486 00060000 * END; 0487 00061000 * RESPECIFY 0488 00062000 * (GPR15F) UNRESTRICTED; 0488 00063000 @RF00483 DS 0H 0489 00064000 * RESPECIFY 0489 00065000 * (PDRPTR) RESTRICTED; 0489 00066000 * PDRPTR=PDAPTR; /* ->PDL */ 00067000 L PDRPTR,PDAPTR 0490 00068000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0491 00069000 USING PD,PDRPTR 00070000 * IF PXTEST=PXTEST1 THEN 0492 00071000 CLC PXTEST(2),@CH00040 0492 00072000 BNE @RF00492 0492 00073000 * ZZ2AFX=ZZZ1; /* TEST */ 00074000 OI ZZ2AFX(ZZ2PTR),B'10000000' 0493 00075000 * ELSE 0494 00076000 * IF PXTEST=PXTEST0 THEN 0494 00077000 B @RC00492 0494 00078000 @RF00492 CLC PXTEST(2),@CH00067 0494 00079000 BNE @RF00494 0494 00080000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00081000 NI ZZ2AFX(ZZ2PTR),B'01111111' 0495 00082000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00083000 @RF00494 DS 0H 0496 00084000 @RC00492 ST ZZ2PTR,@AL00001 0496 00085000 ST PDRPTR,@AL00001+4 0496 00086000 LA @10,PXRO 0496 00087000 ST @10,@AL00001+8 0496 00088000 L @10,ZZ2BVTP(,ZZ2PTR) 0496 00089000 L @15,BVTPARUP(,@10) 0496 00090000 LA @01,@AL00001 0496 00091000 BALR @14,@15 0496 00092000 * RESPECIFY 0497 00093000 * (GPR15F) RESTRICTED; 0497 00094000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00095000 CR RETC,GPR15F 0498 00096000 BNL *+6 00097000 LR RETC,GPR15F 0498 00098000 * RESPECIFY 0499 00099000 * (GPR15F) UNRESTRICTED; 0499 00100000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00101000 C RETC,@CF00048 0500 00102000 BH @RT00500 0500 00103000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00104000 * END; /* BLSUPARS ROUTING MF(E,PX) */ 00105000 * 0502 00106000 * /*****************************************************************/ 00107000 * /* */ 00108000 * /* 3. SCAN PARSE DESCRIPTION LIST TO DETERMINE THE REQUIRED SIZE */ 00109000 * /* FOR THE LISTPROB WORK AREA. */ 00110000 * /* */ 00111000 * /*****************************************************************/ 00112000 * 0503 00113000 * COUNT=LENGTH(BLSELPWA); /* INITIALIZE COUNT TO HEADER 0503 00114000 * LENGTH */ 00115000 LA COUNT,16 0503 00116000 * ANYSEL=OFF; /* WE HAVENT FOUND ANY SELECTION 00117000 * CRITERIA YET */ 00118000 NI ANYSEL,B'01111111' 0504 00119000 SPACE 1 00120000 * IF GROUPWD=GROUP /* WAS GROUP SPECIFIED ? */ 00121000 * THEN 0505 00122000 CLC GROUPWD(2),@CH00040 0505 00123000 BNE @RF00505 0505 00124000 * CALL CNTLIST(GRP,GROUPWD); /* ADD SPACE FOR GROUP IN LPWA */ 00125000 LA @10,GRP 0506 00126000 ST @10,@AL00001 0506 00127000 LA @10,GROUPWD 0506 00128000 ST @10,@AL00001+4 0506 00129000 LA @01,@AL00001 0506 00130000 BAL @14,CNTLIST 0506 00131000 SPACE 1 00132000 * IF SYSTEMWD=SYSTEM /* WAS SYSTEM SPECIFIED ? */ 00133000 * THEN 0507 00134000 @RF00505 CLC SYSTEMWD(2),@CH00040 0507 00135000 BNE @RF00507 0507 00136000 * CALL CNTLIST(SID,SYSTEMWD); /* ADD SPACE FOR SYSTEM IN LPWA */ 00137000 LA @10,SID 0508 00138000 ST @10,@AL00001 0508 00139000 LA @10,SYSTEMWD 0508 00140000 ST @10,@AL00001+4 0508 00141000 LA @01,@AL00001 0508 00142000 BAL @14,CNTLIST 0508 00143000 SPACE 1 00144000 * IF USERWD=USER /* WAS USER SPECIFIED ? */ 00145000 * THEN 0509 00146000 @RF00507 CLC USERWD(2),@CH00040 0509 00147000 BNE @RF00509 0509 00148000 * CALL CNTLIST(UFL,USERWD); /* ADD SPACE FOR USER IN LPWA */ 00149000 LA @10,UFL 0510 00150000 ST @10,@AL00001 0510 00151000 LA @10,USERWD 0510 00152000 ST @10,@AL00001+4 0510 00153000 LA @01,@AL00001 0510 00154000 BAL @14,CNTLIST 0510 00155000 SPACE 1 00156000 * IF COMPIDWD=COMPID /* WAS COMPONENT ID SPECIFIED ? */ 00157000 * THEN 0511 00158000 @RF00509 CLC COMPIDWD(2),@CH00040 0511 00159000 BNE @RF00511 0511 00160000 * CALL CNTLIST(CID,COMPIDWD); /* ADD SPACE FOR COMPID IN LPWA */ 00161000 LA @10,CID 0512 00162000 ST @10,@AL00001 0512 00163000 LA @10,COMPIDWD 0512 00164000 ST @10,@AL00001+4 0512 00165000 LA @01,@AL00001 0512 00166000 BAL @14,CNTLIST 0512 00167000 SPACE 1 00168000 * ALLFLG=OFF; /* ASSUME OWNER(ALL) WASNT 0513 00169000 * SPECIFIED */ 00170000 @RF00511 NI ALLFLG,B'01111111' 0513 00171000 * IF OWNERWD=OWNER /* WAS OWNER SPECIFIED ? */ 00172000 * THEN 0514 00173000 CLC OWNERWD(2),@CH00040 0514 00174000 BNE @RF00514 0514 00175000 * CALL CNTOWNR; /* SPECIAL TREATMENT DUE TO ALL */ 00176000 BAL @14,CNTOWNR 0515 00177000 * ELSE 0516 00178000 * COUNT=COUNT+LENGTH(BLSESCB)+SCLEN;/* ROOM FOR CURRENT USERID */ 00179000 B @RC00514 0516 00180000 @RF00514 AL COUNT,@CF00059 0516 00181000 SPACE 1 00182000 * IF SEVWD=SEVERITY /* WAS SEVERITY SPECIFIED ? */ 00183000 * THEN 0517 00184000 @RC00514 CLC SEVWD(2),@CH00040 0517 00185000 BNE @RF00517 0517 00186000 * CALL CNTSEV; 0518 00187000 BAL @14,CNTSEV 0518 00188000 SPACE 1 00189000 * IF PSTATWD=PSTAT /* WAS PSTATUS SPECIFIED ? */ 00190000 * THEN 0519 00191000 @RF00517 LA @10,1 0519 00192000 CH @10,PSTATWD 0519 00193000 BNE @RF00519 0519 00194000 * DO; /* PSTATUS WAS SPECIFIED */ 00195000 * IF PSTOPNWD=OPEN /* WAS OPEN SPECIFIED ? */ 00196000 * THEN 0521 00197000 CH @10,PSTOPNWD 0521 00198000 BNE @RF00521 0521 00199000 * DO; /* OPEN WAS SPECIFIED */ 00200000 * PSTINTWD=INITL; /* INITIAL => OPEN */ 00201000 STH @10,PSTINTWD 0523 00202000 * PSTACTWD=ACTIVE; /* ACTIVE => OPEN */ 00203000 STH @10,PSTACTWD 0524 00204000 * PSTINAWD=INACTIVE; /* INACTIVE => OPEN */ 00205000 STH @10,PSTINAWD 0525 00206000 * END; /* OPEN WAS SPECIFIED */ 00207000 * IF PSTCLSWD=CLOSED /* WAS CLOSED SPECIFIED ? */ 00208000 * THEN 0527 00209000 @RF00521 LA @10,1 0527 00210000 CH @10,PSTCLSWD 0527 00211000 BNE @RF00527 0527 00212000 * DO; /* CLOSED WAS SPECIFIED */ 00213000 * PSTCLAWD=CLAPAR; /* CLAPAR => CLOSED */ 00214000 STH @10,PSTCLAWD 0529 00215000 * PSTCLDUP=CLDUP; /* CLDUP => CLOSED */ 00216000 STH @10,PSTCLDUP 0530 00217000 * PSTCLFWD=CLFIX; /* CLFIX => CLOSED */ 00218000 STH @10,PSTCLFWD 0531 00219000 * PSTOTHWD=CLOTHER; /* CLOTHER => CLOSED */ 00220000 STH @10,PSTOTHWD 0532 00221000 * PSTCLNWD=CLNTF; /* CLNTF => CLOSED */ 00222000 STH @10,PSTCLNWD 0533 00223000 * PSTCLPWD=CLPTF; /* CLPTF => CLOSED */ 00224000 STH @10,PSTCLPWD 0534 00225000 * END; /* CLOSED WAS SPECIFIED */ 00226000 * CALL COUNTKEY(PSTACTWD, /* ADD SPACE FOR PSTATUS IN LPWA */ 00227000 * PSTINTWD,PSTATWD); 0536 00228000 @RF00527 LA @10,PSTACTWD 0536 00229000 ST @10,@AL00001 0536 00230000 LA @10,PSTINTWD 0536 00231000 ST @10,@AL00001+4 0536 00232000 LA @10,PSTATWD 0536 00233000 ST @10,@AL00001+8 0536 00234000 LA @01,@AL00001 0536 00235000 BAL @14,COUNTKEY 0536 00236000 * END; /* PSTATUS WAS SPECIFIED */ 00237000 SPACE 1 00238000 * IF IBMSTWD=IBMSTAT /* WAS IBMSTATUS SPECIFIED ? */ 00239000 * THEN 0538 00240000 @RF00519 LA @10,1 0538 00241000 CH @10,IBMSTWD 0538 00242000 BNE @RF00538 0538 00243000 * DO; /* IBMSTATUS WAS SPECIFIED */ 00244000 * IF IBMCLSWD=IBMCLOSD /* WAS CLOSED SPECIFIED ? */ 00245000 * THEN 0540 00246000 CH @10,IBMCLSWD 0540 00247000 BNE @RF00540 0540 00248000 * DO; /* CLOSED WAS SPECIFIED */ 00249000 * IBMCANWD=CAN; /* CAN => CLOSED */ 00250000 STH @10,IBMCANWD 0542 00251000 * IBMDOCWD=DOC; /* DOC => CLOSED */ 00252000 STH @10,IBMDOCWD 0543 00253000 * IBMDUAWD=DUA; /* DUA => CLOSED */ 00254000 STH @10,IBMDUAWD 0544 00255000 * IBMDUBWD=DUB; /* DUB => CLOSED */ 00256000 STH @10,IBMDUBWD 0545 00257000 * IBMDUUWD=DUU; /* DUU => CLOSED */ 00258000 STH @10,IBMDUUWD 0546 00259000 * IBMMCHWD=MCH; /* MCH => CLOSED */ 00260000 STH @10,IBMMCHWD 0547 00261000 * IBMPERWD=PER; /* PER => CLOSED */ 00262000 STH @10,IBMPERWD 0548 00263000 * IBMPRSWD=PRS; /* PRS => CLOSED */ 00264000 STH @10,IBMPRSWD 0549 00265000 * IBMRETWD=RET; /* RET => CLOSED */ 00266000 STH @10,IBMRETWD 0550 00267000 * IBMSUGWD=SUG; /* SUG => CLOSED */ 00268000 STH @10,IBMSUGWD 0551 00269000 * IBMUR1WD=UR1; /* UR1 => CLOSED */ 00270000 STH @10,IBMUR1WD 0552 00271000 * IBMUR2WD=UR2; /* UR2 => CLOSED */ 00272000 STH @10,IBMUR2WD 0553 00273000 * IBMUR3WD=UR3; /* UR3 => CLOSED */ 00274000 STH @10,IBMUR3WD 0554 00275000 * IBMUR4WD=UR4; /* UR4 => CLOSED */ 00276000 STH @10,IBMUR4WD 0555 00277000 * IBMUR5WD=UR5; /* UR5 => CLOSED */ 00278000 STH @10,IBMUR5WD 0556 00279000 * IBMUSEWD=USE; /* USE => CLOSED */ 00280000 STH @10,IBMUSEWD 0557 00281000 * END; /* CLOSED WAS SPECIFIED */ 00282000 * CALL COUNTKEY(IBMNOWD, /* ADD SPACE FOR IBMSTATUS TO 0559 00283000 * LPWA */ 00284000 * IBMUSEWD,IBMSTWD); 0559 00285000 @RF00540 LA @10,IBMNOWD 0559 00286000 ST @10,@AL00001 0559 00287000 LA @10,IBMUSEWD 0559 00288000 ST @10,@AL00001+4 0559 00289000 LA @10,IBMSTWD 0559 00290000 ST @10,@AL00001+8 0559 00291000 LA @01,@AL00001 0559 00292000 BAL @14,COUNTKEY 0559 00293000 * END; /* IBMSTATUS WAS SPECIFIED */ 00294000 SPACE 1 00295000 * IF PTFSTWD=PTFSTAT /* WAS PTFSTATUS SPECIFIED ? */ 00296000 * THEN 0561 00297000 @RF00538 CLC PTFSTWD(2),@CH00040 0561 00298000 BNE @RF00561 0561 00299000 * CALL COUNTKEY(PTFNONWD, /* ADD SPACE FOR PTFSTATUS TO 0562 00300000 * LPWA */ 00301000 * PTFRQWD,PTFSTWD); 0562 00302000 LA @10,PTFNONWD 0562 00303000 ST @10,@AL00001 0562 00304000 LA @10,PTFRQWD 0562 00305000 ST @10,@AL00001+4 0562 00306000 LA @10,PTFSTWD 0562 00307000 ST @10,@AL00001+8 0562 00308000 LA @01,@AL00001 0562 00309000 BAL @14,COUNTKEY 0562 00310000 SPACE 1 00311000 * IF FIXSTWD=FIXSTAT /* WAS FIXSTATUS SPECIFIED ? */ 00312000 * THEN 0563 00313000 @RF00561 CLC FIXSTWD(2),@CH00040 0563 00314000 BNE @RF00563 0563 00315000 * CALL COUNTKEY(FIXNONWD, /* ADD SPACE FOR FIXSTATUS TO 0564 00316000 * LPWA */ 00317000 * FIXRQWD,FIXSTWD); 0564 00318000 LA @10,FIXNONWD 0564 00319000 ST @10,@AL00001 0564 00320000 LA @10,FIXRQWD 0564 00321000 ST @10,@AL00001+4 0564 00322000 LA @10,FIXSTWD 0564 00323000 ST @10,@AL00001+8 0564 00324000 LA @01,@AL00001 0564 00325000 BAL @14,COUNTKEY 0564 00326000 EJECT 00327000 * 0565 00328000 * /*****************************************************************/ 00329000 * /* */ 00330000 * /* 4. GETMAIN STORAGE FOR THE LISTPROB WORK AREA. */ 00331000 * /* */ 00332000 * /*****************************************************************/ 00333000 * 0565 00334000 * COUNT=8*((COUNT+7)/8); /* ROUND COUNT TO MULTIPLE OF 0565 00335000 * EIGHT BYTES */ 00336000 @RF00563 LA @00,7 0565 00337000 ALR @00,COUNT 0565 00338000 SRDA @00,32 0565 00339000 D @00,@CF00048 0565 00340000 SLA @01,3 0565 00341000 LR COUNT,@01 0565 00342000 * DO; /* GETMAIN (RC) LV(COUNT) 0566 00343000 * SP(ZZZSPEXC) */ 00344000 * RESPECIFY 0567 00345000 * (GPR01F, 0567 00346000 * GPR15F, 0567 00347000 * GPR00F) RESTRICTED; 0567 00348000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00349000 SLR GPR01F,GPR01F 0568 00350000 * GPR15F=0; /* RC-TYPE GETMAIN */ 00351000 SLR GPR15F,GPR15F 0569 00352000 * GPR00F=COUNT; /* LENGTH REQUESTED */ 00353000 LR GPR00F,COUNT 0570 00354000 * GPR15F=GPR15F|((ZZZSPEXC)*256);/* SP IN BYTE 2 */ 00355000 O GPR15F,@CF00167 0571 00356000 * SVC(120); /* RC/RU-FORM OF GETMAIN */ 00357000 SVC 120 0572 00358000 * RESPECIFY 0573 00359000 * (GPR01F, 0573 00360000 * GPR15F, 0573 00361000 * GPR00F) UNRESTRICTED; 0573 00362000 * END; /* GETMAIN (RC) LV(COUNT) 0574 00363000 * SP(ZZZSPEXC) */ 00364000 * 0574 00365000 * /*****************************************************************/ 00366000 * /* */ 00367000 * /* 5. IF UNABLE TO OBTAIN STORAGE THEN RETURN WITH RETURN CODE */ 00368000 * /* 16. */ 00369000 * /* */ 00370000 * /*****************************************************************/ 00371000 * 0575 00372000 * RESPECIFY 0575 00373000 * (R1, 0575 00374000 * RF) RESTRICTED; 0575 00375000 * IF RF^=ZERO /* DID GETMAIN SUCCEED ? */ 00376000 * THEN 0576 00377000 LTR RF,RF 0576 00378000 BZ @RF00576 0576 00379000 * RETC=SIXTEEN; /* GETMAIN WAS UNSUCCESSFUL */ 00380000 LA RETC,16 0577 00381000 * ELSE 0578 00382000 * DO; /* GETMAIN WAS SUCCESSFUL */ 00383000 B @RC00576 0578 00384000 @RF00576 DS 0H 0579 00385000 * LPWAPTR=R1; /* GET ADDRESS OF LPWA */ 00386000 LR LPWAPTR,R1 0579 00387000 * RESPECIFY 0580 00388000 * (R1, 0580 00389000 * RF); 0580 00390000 * 0580 00391000 * /*************************************************************/ 00392000 * /* */ 00393000 * /* 6. RESCAN THE PARSE DESCRIPTION LIST AND BUILD THE */ 00394000 * /* LISTPROB WORK AREA. */ 00395000 * /* */ 00396000 * /*************************************************************/ 00397000 * 0581 00398000 * LPWALEN=COUNT; /* STORE LENGTH OF LPWA */ 00399000 ST COUNT,LPWALEN(,LPWAPTR) 0581 00400000 * AVAILP=ADDR(LPSCBLKS); /* NEXT AVAILABLE SCBADDR */ 00401000 LA AVAILP,LPSCBLKS(,LPWAPTR) 0582 00402000 * LINKPP=ADDR(LPSCBLKP); /* LINK POINTER ADDRESS */ 00403000 LA LINKPP,LPSCBLKP(,LPWAPTR) 0583 00404000 * LPSCBLKP=ZERO; /* INITIALIZE SCB PTR */ 00405000 SLR @10,@10 0584 00406000 ST @10,LPSCBLKP(,LPWAPTR) 0584 00407000 * IF PROBWD=PROBLEMS /* WAS PROBLEMS SPECIFIED ? */ 00408000 * THEN 0585 00409000 CLC PROBWD(2),@CH00040 0585 00410000 BNE @RF00585 0585 00411000 * LPPRBPTR=ADDR(PRB); /* POINT TO LIST OF PROBLEMS */ 00412000 LA @10,PRB 0586 00413000 ST @10,LPPRBPTR(,LPWAPTR) 0586 00414000 * ELSE 0587 00415000 * IF PROBWD=PROBALL /* WAS ALL SPECIFIED ? */ 00416000 * THEN 0587 00417000 B @RC00585 0587 00418000 @RF00585 CLC PROBWD(2),@CH00067 0587 00419000 BNE @RF00587 0587 00420000 * LPPRBPTR=ALLPTR; /* SPECIAL VALUE INDICATES ALL */ 00421000 MVC LPPRBPTR(4,LPWAPTR),@CF01275 0588 00422000 * ELSE 0589 00423000 * IF ANYSEL=ON /* NO PROBLEM AND SELECTION 0589 00424000 * CRITERIA WERE SPECIFIED */ 00425000 * THEN 0589 00426000 B @RC00587 0589 00427000 @RF00587 TM ANYSEL,B'10000000' 0589 00428000 BNO @RF00589 0589 00429000 * LPPRBPTR=ALLPTR; /* FORCE ALL PROBLEMS */ 00430000 MVC LPPRBPTR(4,LPWAPTR),@CF01275 0590 00431000 * ELSE 0591 00432000 * DO; /* NO PROBLEM AND NO SELECTION 0591 00433000 * CRITERIA */ 00434000 B @RC00589 0591 00435000 @RF00589 DS 0H 0592 00436000 * ALLFLG=ON; /* FORCE OWNER(ALL) */ 00437000 OI ALLFLG,B'10000000' 0592 00438000 * LPPRBPTR=DEFPTR; /* USE DEFAULT PROBLEM */ 00439000 SLR @10,@10 0593 00440000 ST @10,LPPRBPTR(,LPWAPTR) 0593 00441000 * END; /* NO PROBLEM AND NO SELECTION 0594 00442000 * CRITERIA */ 00443000 * LPFRMFLG=''B; /* ZERO FORMATTING FLAGS */ 00444000 @RC00589 DS 0H 0595 00445000 @RC00587 DS 0H 0595 00446000 @RC00585 XC LPFRMFLG(4,LPWAPTR),LPFRMFLG(LPWAPTR) 0595 00447000 * IF TYPEWD=LISTTYPE /* WAS LIST SPECIFIED ? */ 00448000 * THEN 0596 00449000 CLC TYPEWD(2),@CH00040 0596 00450000 BNE @RF00596 0596 00451000 * LPLIST=ON; /* SET LIST OPTION */ 00452000 OI LPLIST(LPWAPTR),B'10000000' 0597 00453000 * ELSE 0598 00454000 * IF TYPEWD=ABSTRACT /* WAS ABSTRACT SPECIFIED ? */ 00455000 * THEN 0598 00456000 B @RC00596 0598 00457000 @RF00596 CLC TYPEWD(2),@CH00067 0598 00458000 BNE @RF00598 0598 00459000 * LPABST=ON; /* SET ABSTRACT OPTION */ 00460000 OI LPABST(LPWAPTR),B'01000000' 0599 00461000 * ELSE 0600 00462000 * IF TYPEWD=STATUS /* WAS STATUS SPECIFIED ? */ 00463000 * THEN 0600 00464000 B @RC00598 0600 00465000 @RF00598 CLC TYPEWD(2),@CH00093 0600 00466000 BNE @RF00600 0600 00467000 * LPSTAT=ON; /* SET STATUS OPTION */ 00468000 OI LPSTAT(LPWAPTR),B'00100000' 0601 00469000 * ELSE 0602 00470000 * IF TYPEWD=DESCTYPE /* WAS DESCRIPTION SPECIFIED ? */ 00471000 * THEN 0602 00472000 B @RC00600 0602 00473000 @RF00600 CLC TYPEWD(2),@CH00037 0602 00474000 BNE @RF00602 0602 00475000 * LPDESC=ON; /* SET DESCRIPTION OPTION */ 00476000 OI LPDESC(LPWAPTR),B'00010000' 0603 00477000 * IF DSNTYPE=DSNAMES /* WAS DSNAMES SPECIFIED ? */ 00478000 * THEN 0604 00479000 @RF00602 DS 0H 0604 00480000 @RC00600 DS 0H 0604 00481000 @RC00598 DS 0H 0604 00482000 @RC00596 LA @10,1 0604 00483000 CH @10,DSNTYPE 0604 00484000 BNE @RF00604 0604 00485000 * DO; /* DSNAMES WAS SPECIFIED */ 00486000 * LPDSNAME=ON; /* SET DSNAMES OPTION */ 00487000 OI LPDSNAME(LPWAPTR),B'00001000' 0606 00488000 * IF DSTYPE1=DSNDESC /* WAS DESCRIPTION SPECIFIED ? */ 00489000 * THEN 0607 00490000 CH @10,DSTYPE1 0607 00491000 BNE @RF00607 0607 00492000 * LPDSDESC=ON; /* SET DESCRIPTION OPTION */ 00493000 OI LPDSDESC(LPWAPTR),B'00000100' 0608 00494000 * END; 0609 00495000 @RF00607 DS 0H 0610 00496000 * IF GROUPWD=GROUP /* WAS GROUP SPECIFIED ? */ 00497000 * THEN 0610 00498000 @RF00604 CLC GROUPWD(2),@CH00040 0610 00499000 BNE @RF00610 0610 00500000 * CALL BLDLIST(GRP, /* BUILD TABLE FOR GROUP */ 00501000 * GROUPOFF,LENGTH(PDRGROUP)); 0611 00502000 MVC @AL00001+4(8),@AL00611 0611 00503000 LA @10,GRP 0611 00504000 ST @10,@AL00001 0611 00505000 LA @01,@AL00001 0611 00506000 BAL @14,BLDLIST 0611 00507000 SPACE 1 00508000 * IF SYSTEMWD=SYSTEM /* WAS SYSTEMID SPECIFIED ? */ 00509000 * THEN 0612 00510000 @RF00610 CLC SYSTEMWD(2),@CH00040 0612 00511000 BNE @RF00612 0612 00512000 * CALL BLDLIST(SID, /* BUILD TABLE FOR SYSTEM ID */ 00513000 * SYSOFF,LENGTH(PDRSYS)); 0613 00514000 MVC @AL00001+4(8),@AL00613 0613 00515000 LA @10,SID 0613 00516000 ST @10,@AL00001 0613 00517000 LA @01,@AL00001 0613 00518000 BAL @14,BLDLIST 0613 00519000 SPACE 1 00520000 * IF USERWD=USER /* WAS USER SPECIFIED ? */ 00521000 * THEN 0614 00522000 @RF00612 CLC USERWD(2),@CH00040 0614 00523000 BNE @RF00614 0614 00524000 * CALL BLDLIST(UFL, /* BUILD TABLE FOR SYSTEM ID */ 00525000 * USEROFF,LENGTH(PDRUSER)); 0615 00526000 MVC @AL00001+4(8),@AL00615 0615 00527000 LA @10,UFL 0615 00528000 ST @10,@AL00001 0615 00529000 LA @01,@AL00001 0615 00530000 BAL @14,BLDLIST 0615 00531000 SPACE 1 00532000 * IF COMPIDWD=COMPID /* WAS COMPONENT ID SPECIFIED ? */ 00533000 * THEN 0616 00534000 @RF00614 CLC COMPIDWD(2),@CH00040 0616 00535000 BNE @RF00616 0616 00536000 * CALL BLDLIST(CID, /* BUILD TABLE FOR COMPONENT ID */ 00537000 * COMPOFF,LENGTH(PDRCOMP)); 0617 00538000 MVC @AL00001+4(8),@AL00617 0617 00539000 LA @10,CID 0617 00540000 ST @10,@AL00001 0617 00541000 LA @01,@AL00001 0617 00542000 BAL @14,BLDLIST 0617 00543000 SPACE 1 00544000 * IF ALLFLG=OFF /* WAS OWNER(ALL) NOT SPECIFIED ?*/ 00545000 * THEN 0618 00546000 @RF00616 TM ALLFLG,B'10000000' 0618 00547000 BNZ @RF00618 0618 00548000 * CALL BLDOWNR; /* BUILD TABLE FOR OWNER */ 00549000 BAL @14,BLDOWNR 0619 00550000 SPACE 1 00551000 * IF SEVWD=SEVERITY /* WAS SEVERITY SPECIFIED ? */ 00552000 * THEN 0620 00553000 @RF00618 CLC SEVWD(2),@CH00040 0620 00554000 BNE @RF00620 0620 00555000 * CALL BLDSEV; /* BUILD TABLE FOR SEVERITY */ 00556000 BAL @14,BLDSEV 0621 00557000 SPACE 1 00558000 * IF PSTATWD=PSTAT /* WAS PSTATUS SPECIFIED ? */ 00559000 * THEN 0622 00560000 @RF00620 CLC PSTATWD(2),@CH00040 0622 00561000 BNE @RF00622 0622 00562000 * CALL BLDKEY(PSTACTWD, /* BUILD TABLE FOR PSTATUS */ 00563000 * PSTINTWD,STATPROB,PSTATOFF,LENGTH(PDRPSTAT)); 0623 00564000 MVC @AL00001+8(12),@AL00623 0623 00565000 LA @10,PSTACTWD 0623 00566000 ST @10,@AL00001 0623 00567000 LA @10,PSTINTWD 0623 00568000 ST @10,@AL00001+4 0623 00569000 LA @01,@AL00001 0623 00570000 BAL @14,BLDKEY 0623 00571000 SPACE 1 00572000 * IF IBMSTWD=IBMSTAT /* WAS IBMSTATUS SPECIFIED ? */ 00573000 * THEN 0624 00574000 @RF00622 CLC IBMSTWD(2),@CH00040 0624 00575000 BNE @RF00624 0624 00576000 * CALL BLDKEY(IBMNOWD, /* BUILD TABLE FOR IBMSTATUS */ 00577000 * IBMUSEWD,STATIBM,ISTATOFF,LENGTH(PDRISTAT)); 0625 00578000 MVC @AL00001+8(12),@AL00625 0625 00579000 LA @10,IBMNOWD 0625 00580000 ST @10,@AL00001 0625 00581000 LA @10,IBMUSEWD 0625 00582000 ST @10,@AL00001+4 0625 00583000 LA @01,@AL00001 0625 00584000 BAL @14,BLDKEY 0625 00585000 SPACE 1 00586000 * IF PTFSTWD=PTFSTAT /* WAS PTFSTATUS SPECIFIED ? */ 00587000 * THEN 0626 00588000 @RF00624 CLC PTFSTWD(2),@CH00040 0626 00589000 BNE @RF00626 0626 00590000 * CALL BLDKEY(PTFNONWD, /* BUILD TABLE FOR PTFSTATUS */ 00591000 * PTFRQWD,STATPTF,TSTATOFF,LENGTH(PDRTSTAT)); 0627 00592000 MVC @AL00001+8(12),@AL00627 0627 00593000 LA @10,PTFNONWD 0627 00594000 ST @10,@AL00001 0627 00595000 LA @10,PTFRQWD 0627 00596000 ST @10,@AL00001+4 0627 00597000 LA @01,@AL00001 0627 00598000 BAL @14,BLDKEY 0627 00599000 SPACE 1 00600000 * IF FIXSTWD=FIXSTAT /* WAS FIXSTATUS SPECIFIED ? */ 00601000 * THEN 0628 00602000 @RF00626 CLC FIXSTWD(2),@CH00040 0628 00603000 BNE @RF00628 0628 00604000 * CALL BLDKEY(FIXNONWD, /* BUILD TABLE FOR FIXSTATUS */ 00605000 * FIXRQWD,STATFIX,FSTATOFF,LENGTH(PDRFSTAT)); 0629 00606000 MVC @AL00001+8(12),@AL00629 0629 00607000 LA @10,FIXNONWD 0629 00608000 ST @10,@AL00001 0629 00609000 LA @10,FIXRQWD 0629 00610000 ST @10,@AL00001+4 0629 00611000 LA @01,@AL00001 0629 00612000 BAL @14,BLDKEY 0629 00613000 EJECT 00614000 * 0630 00615000 * /*************************************************************/ 00616000 * /* */ 00617000 * /* 7. CALL BLSELPDR TO PERFORM THE LISTPROB FUNCTION. */ 00618000 * /* */ 00619000 * /*************************************************************/ 00620000 * 0630 00621000 * LPWAPTRP=LPWAPTR; /* MAKE COPY OF LPWAPTR FOR 0630 00622000 * PARAMETER */ 00623000 @RF00628 ST LPWAPTR,LPWAPTRP 0630 00624000 * CALL BLSELPDR(ZZ2,LPWAPTRP); 0631 00625000 ST ZZ2PTR,@AL00001 0631 00626000 LA @10,LPWAPTRP 0631 00627000 ST @10,@AL00001+4 0631 00628000 L @15,@CV01358 0631 00629000 LA @01,@AL00001 0631 00630000 BALR @14,@15 0631 00631000 * RESPECIFY 0632 00632000 * RF RESTRICTED; 0632 00633000 * RETC=RF; 0633 00634000 LR RETC,RF 0633 00635000 * RESPECIFY 0634 00636000 * RF; 0634 00637000 * 0634 00638000 * /*************************************************************/ 00639000 * /* */ 00640000 * /* 8. FREEMAIN THE LISTPROB WORK AREA. */ 00641000 * /* */ 00642000 * /*************************************************************/ 00643000 * 0635 00644000 * DO; /* FREEMAIN(R) LV(LPWALEN)SP(ZZZS 00645000 * PEXC)A(BLSELPWA) */ 00646000 * RESPECIFY 0636 00647000 * (GPR01F, 0636 00648000 * GPR00F) RESTRICTED; 0636 00649000 * GPR00F=LPWALEN; /* LENGTH REQUESTED */ 00650000 L GPR00F,LPWALEN(,LPWAPTR) 0637 00651000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00652000 LA GPR01F,1 0638 00653000 * GEN(SLL GPR01F,24) 0639 00654000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0639 00655000 SLL GPR01F,24 00656000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00657000 OR GPR00F,GPR01F 0640 00658000 * GPR01F=ADDR(BLSELPWA); /* SET REGISTER ONE */ 00659000 LR GPR01F,LPWAPTR 0641 00660000 * SVC(10); /* R-FORM OF GETMAIN */ 00661000 SVC 10 0642 00662000 * RESPECIFY 0643 00663000 * (GPR01F, 0643 00664000 * GPR00F) UNRESTRICTED; 0643 00665000 * END; /* FREEMAIN(R) LV(LPWALEN)SP(ZZZS 00666000 * PEXC)A(BLSELPWA) */ 00667000 * END; /* GETMAIN WAS SUCCESSFUL */ 00668000 *EXITRLSA: 0646 00669000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 00670000 @RC00576 DS 0H 0646 00671000 EXITRLSA B @DE00646 0646 00672000 @DL00646 DS 0H 0647 00673000 * PDRPTR=PDAPTR; 0647 00674000 L PDRPTR,PDAPTR 0647 00675000 * PDAPTR=PDXP; 0648 00676000 L @10,PDXP-1(,PDRPTR) 0648 00677000 LA @10,0(,@10) 0648 00678000 ST @10,PDAPTR 0648 00679000 * DO; /* FREEMAIN(R) 0649 00680000 * LV(PDL)SP(1)A(PDDSECT) */ 00681000 * RESPECIFY 0650 00682000 * (GPR01F, 0650 00683000 * GPR00F) RESTRICTED; 0650 00684000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00685000 L GPR00F,PDL-1(,PDRPTR) 0651 00686000 ICM GPR00F,8,@CB01445 0651 00687000 * GPR01F=1; /* SP IN REG 1 */ 00688000 LA GPR01F,1 0652 00689000 * GEN(SLL GPR01F,24) 0653 00690000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0653 00691000 SLL GPR01F,24 00692000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00693000 OR GPR00F,GPR01F 0654 00694000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00695000 LR GPR01F,PDRPTR 0655 00696000 * SVC(10); /* R-FORM OF GETMAIN */ 00697000 SVC 10 0656 00698000 * RESPECIFY 0657 00699000 * (GPR01F, 0657 00700000 * GPR00F) UNRESTRICTED; 0657 00701000 * END; /* FREEMAIN(R) 0658 00702000 * LV(PDL)SP(1)A(PDDSECT) */ 00703000 * END; /* BLRRLSA MF(E,PD) */ 00704000 * 0659 00705000 @DE00646 L @10,PDAPTR 0659 00706000 LTR @10,@10 0659 00707000 BNZ @DL00646 0659 00708000 * /*****************************************************************/ 00709000 * /* */ 00710000 * /* 9. RETURN WITH THE RETURN CODE FROM BLSELPDR. */ 00711000 * /* */ 00712000 * /*****************************************************************/ 00713000 * 0660 00714000 * RETURN CODE(RETC); 0660 00715000 L @13,4(,@13) 0660 00716000 L @00,@SIZDATD 0660 00717000 LR @01,@11 0660 00718000 BLSUFRER R,LV=(0),A=(1) 00719000 LR @15,@06 0660 00720000 L @14,12(,@13) 0660 00721000 LM @00,@12,20(@13) 0660 00722000 BR @14 0660 00723000 *EXITNORL: 0661 00724000 * RETURN CODE(TWELVE); 0661 00725000 EXITNORL L @13,4(,@13) 0661 00726000 L @00,@SIZDATD 0661 00727000 LR @01,@11 0661 00728000 BLSUFRER R,LV=(0),A=(1) 00729000 LA @15,12 0661 00730000 L @14,12(,@13) 0661 00731000 LM @00,@12,20(@13) 0661 00732000 BR @14 0661 00733000 EJECT 00734000 *CNTLIST: 0662 00735000 * PROCEDURE(PDEC,SELPDE); 0662 00736000 * 0662 00737000 CNTLIST STM @14,@05,12(@13) 0662 00738000 STM @07,@12,48(@13) 0662 00739000 MVC @PC00002(8),0(@01) 0662 00740000 * /*****************************************************************/ 00741000 * /* */ 00742000 * /* PROCEDURE TO DETERMINE THE SPACE REQUIRED IN THE LPWA FOR A */ 00743000 * /* LIST TYPE SELECTION CRITERION */ 00744000 * /* */ 00745000 * /*****************************************************************/ 00746000 * 0663 00747000 * DCL 0663 00748000 * PDEC CHARACTER(*); 0663 00749000 * DCL 0664 00750000 * SELPDE FIXED(15); 0664 00751000 * VALUECT=ZERO; /* INITIALIZE SIZE COUNTER FOR 0665 00752000 * VALUE TABLE */ 00753000 SLR VALUECT,VALUECT 0665 00754000 * LISTP=ADDR(PDEC); /* ADDRESS FIRST PDE */ 00755000 L LISTP,@PC00002 0666 00756000 * DO WHILE(LISTP^=ZZZPNULL); /* LOOP THROUGH THE PDE LIST */ 00757000 B @DE00667 0667 00758000 @DL00667 DS 0H 0668 00759000 * IF VALUEFP=ON /* IS VALUE PRESENT */ 00760000 * THEN 0668 00761000 TM VALUEFP(LISTP),B'10000000' 0668 00762000 BNO @RF00668 0668 00763000 * VALUECT=VALUECT+SCLEN; /* ADD SPACE TO TABLE COUNT */ 00764000 AL VALUECT,@CF00051 0669 00765000 * LISTP=GENLISTP; /* ADDRESS NEXT PDE */ 00766000 @RF00668 L LISTP,GENLISTP(,LISTP) 0670 00767000 * END; /* LOOP THROUGH THE PDE LIST */ 00768000 @DE00667 CL LISTP,@CF00062 0671 00769000 BNE @DL00667 0671 00770000 * IF VALUECT^=ZERO /* WERE ANY VALUES FOUND */ 00771000 * THEN 0672 00772000 LTR VALUECT,VALUECT 0672 00773000 BZ @RF00672 0672 00774000 * DO; /* VALUES WERE FOUND */ 00775000 * COUNT=COUNT+LENGTH(BLSESCB)+VALUECT;/* RESERVE SPACE */ 00776000 LA @10,16 0674 00777000 ALR @10,COUNT 0674 00778000 ALR @10,VALUECT 0674 00779000 LR COUNT,@10 0674 00780000 * ANYSEL=ON; /* INDICATE THAT SELECTION 0675 00781000 * CRITERIA WAS FOUND */ 00782000 OI ANYSEL,B'10000000' 0675 00783000 * END; /* VALUES WERE FOUND */ 00784000 * ELSE 0677 00785000 * SELPDE=UNSPECD; 0677 00786000 B @RC00672 0677 00787000 @RF00672 L @10,@PC00002+4 0677 00788000 SLR @07,@07 0677 00789000 STH @07,SELPDE(,@10) 0677 00790000 * RETURN; 0678 00791000 @EL00002 DS 0H 0678 00792000 @EF00002 DS 0H 0678 00793000 @ER00002 LM @14,@05,12(@13) 0678 00794000 LM @07,@12,48(@13) 0678 00795000 BR @14 0678 00796000 * END; 0679 00797000 B @EL00002 0679 00798000 EJECT 00799000 *COUNTKEY: 0680 00800000 * PROCEDURE(PDE1C,PDE2C,ROOTPDE); 0680 00801000 * 0680 00802000 COUNTKEY STM @14,@05,12(@13) 0680 00803000 STM @07,@12,48(@13) 0680 00804000 MVC @PC00003(12),0(@01) 0680 00805000 * /*****************************************************************/ 00806000 * /* */ 00807000 * /* PROCEDURE TO DETERMINE THE SPACE REQUIRED IN THE LPWA FOR A */ 00808000 * /* KEYWORD SELECTION CRITERIA. IF ALL POSSIBLE VALUES FOR THE */ 00809000 * /* KEYWORD ARE SPECIFIED THEN NO SPACE IS RESERVED. NO SCB IS */ 00810000 * /* REQUIRED IN THIS CASE, SINCE ALL POSSIBLE VALUES FOR THE FIELD*/ 00811000 * /* WOULD BE IN THE TABLE EVERY PROBLEM WILL MATCH THE CRITERION */ 00812000 * /* AND THERE IS NO SENSE IN CHECKING THE FIELD */ 00813000 * /* */ 00814000 * /*****************************************************************/ 00815000 * 0681 00816000 * DCL 0681 00817000 * PDE1C FIXED(15), /* FIRST PDE IN SUBFIELD */ 00818000 * PDE2C FIXED(15), /* LAST PDE IN SUBFIELD */ 00819000 * ROOTPDE FIXED(15), /* ROOT PDE */ 00820000 * TSTPDE FIXED(15) BASED(TPPTR),/* PDE TO BE TESTED */ 00821000 * TPPTR POINTER, 0681 00822000 * ALLSPECD BIT(1); /* FLAG INDICATES THAT ALL 0681 00823000 * POSSIBLE VALUES WERE SPECIFIED 00824000 * AND KEYWORD CAN BE IGNORED */ 00825000 * ALLSPECD=ON; /* ASSUME ALL VALUES ARE 0682 00826000 * SPECIFIED UNTIL WE FIND ONE 0682 00827000 * THAT ISNT */ 00828000 OI ALLSPECD,B'10000000' 0682 00829000 * VALUECT=ZERO; /* NO SPACE TAKEN UP SO FAR */ 00830000 * 0683 00831000 SLR VALUECT,VALUECT 0683 00832000 * /*****************************************************************/ 00833000 * /* */ 00834000 * /* LOOP THROUGH THE KEYWORD PDES */ 00835000 * /* */ 00836000 * /*****************************************************************/ 00837000 * 0684 00838000 * DO TPPTR=ADDR(PDE1C) TO ADDR(PDE2C) BY LENGTH(PDE1C); 0684 00839000 L TPPTR,@PC00003 0684 00840000 B @DE00684 0684 00841000 @DL00684 DS 0H 0685 00842000 * IF TSTPDE=SPECFIED /* IS THIS KEYWORD SPECIFIED ? */ 00843000 * THEN 0685 00844000 CLC TSTPDE(2,TPPTR),@CH00040 0685 00845000 BNE @RF00685 0685 00846000 * VALUECT=VALUECT+SCLEN; /* IT WILL TAKE ONE TABLE SLOT */ 00847000 AL VALUECT,@CF00051 0686 00848000 * ELSE 0687 00849000 * ALLSPECD=OFF; /* WE FOUND ONE THAT WAS NOT 0687 00850000 * SPECIFIED */ 00851000 B @RC00685 0687 00852000 @RF00685 NI ALLSPECD,B'01111111' 0687 00853000 * END; 0688 00854000 @RC00685 AL TPPTR,@CF00067 0688 00855000 @DE00684 L @10,@PC00003+4 0688 00856000 CR TPPTR,@10 0688 00857000 BNH @DL00684 0688 00858000 * IF VALUECT^=ZERO /* WERE ANY VALUES SPECIFIED ? */ 00859000 * THEN 0689 00860000 LTR VALUECT,VALUECT 0689 00861000 BZ @RF00689 0689 00862000 * DO; /* VALUES WERE SPECIFIED */ 00863000 * IF ALLSPECD=OFF /* WERE ANY UNSPECIFIED ? */ 00864000 * THEN 0691 00865000 TM ALLSPECD,B'10000000' 0691 00866000 BNZ @RF00691 0691 00867000 * COUNT=COUNT+VALUECT+LENGTH(BLSESCB);/* RESERVE SPACE */ 00868000 LR @10,COUNT 0692 00869000 ALR @10,VALUECT 0692 00870000 AL @10,@CF00051 0692 00871000 LR COUNT,@10 0692 00872000 * ELSE 0693 00873000 * ROOTPDE=UNSPECD; /* THE ROOT KEYWORD MIGHT JUST AS 00874000 * WELL NOT HAVE BEEN SPECIFIED 00875000 * SO FIX IT SO THAT NO TABLE 0693 00876000 * WILL BE BUILT */ 00877000 B @RC00691 0693 00878000 @RF00691 L @10,@PC00003+8 0693 00879000 SLR @07,@07 0693 00880000 STH @07,ROOTPDE(,@10) 0693 00881000 * ANYSEL=ON; /* INDICATE SELECTION CRITERION 00882000 * WAS FOUND */ 00883000 @RC00691 OI ANYSEL,B'10000000' 0694 00884000 * END; 0695 00885000 * ELSE 0696 00886000 * ROOTPDE=UNSPECD; /* DONT BUILD AN SCB */ 00887000 B @RC00689 0696 00888000 @RF00689 L @10,@PC00003+8 0696 00889000 SLR @07,@07 0696 00890000 STH @07,ROOTPDE(,@10) 0696 00891000 * RETURN; 0697 00892000 @EL00003 DS 0H 0697 00893000 @EF00003 DS 0H 0697 00894000 @ER00003 LM @14,@05,12(@13) 0697 00895000 LM @07,@12,48(@13) 0697 00896000 BR @14 0697 00897000 * END; 0698 00898000 B @EL00003 0698 00899000 EJECT 00900000 *CNTOWNR: 0699 00901000 * PROCEDURE; 0699 00902000 * 0699 00903000 CNTOWNR STM @14,@05,@SA00004 0699 00904000 STM @07,@12,@SA00004+32 0699 00905000 * /*****************************************************************/ 00906000 * /* */ 00907000 * /* PROCEDURE TO COUNT OWNER FIELD. IF OWNER(ALL) IS SPECIFIED */ 00908000 * /* THEN NO SCB SHOULD BE ALLOCATED, OTHERWISE TREAT LIKE ANY */ 00909000 * /* OTHER LIST SELECTION CRITERIA */ 00910000 * /* */ 00911000 * /*****************************************************************/ 00912000 * 0700 00913000 SPACE 1 00914000 * 0700 00915000 * /*****************************************************************/ 00916000 * /* */ 00917000 * /* CHECK FOR OWNER(ALL) */ 00918000 * /* */ 00919000 * /*****************************************************************/ 00920000 * 0700 00921000 * IF OWNXP=ZZZPNULL /* IF NO LIST OF OWNERS */ 00922000 * &OWNIL=ALLLEN /* AND LENGTH MATCHES */ 00923000 * &OWNI(1:ALLLEN)=ALLCONS /* AND IT SAYS ALL */ 00924000 * THEN 0700 00925000 LA @10,OWN 0700 00926000 CLC OWNXP(4,@10),@CF00062 0700 00927000 BNE @RF00700 0700 00928000 CLC OWNIL(2,@10),@CH00093 0700 00929000 BNE @RF00700 0700 00930000 L @10,OWNIP(,@10) 0700 00931000 CLC OWNI(3,@10),@CC01308 0700 00932000 BNE @RF00700 0700 00933000 * DO; /* OWNER(ALL) WAS SPECIFIED */ 00934000 * ALLFLG=ON; /* FIX IT SO SCB WILL NOT BE 0702 00935000 * BUILT */ 00936000 OI ALLFLG,B'10000000' 0702 00937000 * ANYSEL=ON; /* SELECTION CRITERIA WAS FOUND */ 00938000 OI ANYSEL,B'10000000' 0703 00939000 * END; /* OWNER(ALL) WAS SPECIFIED */ 00940000 * ELSE 0705 00941000 * DO; /* OWNER(USERID...) WAS SPECIFIED*/ 00942000 B @RC00700 0705 00943000 @RF00700 DS 0H 0706 00944000 * ALLFLG=OFF; /* SCB WILL NEED TO BE BUILT */ 00945000 NI ALLFLG,B'01111111' 0706 00946000 * CALL CNTLIST(OWN,OWNERWD); /* COUNT THE USER IDS */ 00947000 LA @10,OWN 0707 00948000 ST @10,@AL00001 0707 00949000 LA @10,OWNERWD 0707 00950000 ST @10,@AL00001+4 0707 00951000 LA @01,@AL00001 0707 00952000 BAL @14,CNTLIST 0707 00953000 * END; /* OWNER(USERID...) WAS SPECIFIED*/ 00954000 * RETURN; 0709 00955000 @EL00004 DS 0H 0709 00956000 @EF00004 DS 0H 0709 00957000 @ER00004 LM @14,@05,@SA00004 0709 00958000 LM @07,@12,@SA00004+32 0709 00959000 BR @14 0709 00960000 * END; 0710 00961000 B @EL00004 0710 00962000 EJECT 00963000 *CNTSEV: 0711 00964000 * PROCEDURE; 0711 00965000 * 0711 00966000 CNTSEV STM @14,@05,12(@13) 0711 00967000 STM @07,@12,48(@13) 0711 00968000 * /*****************************************************************/ 00969000 * /* */ 00970000 * /* PROCEDURE TO DETERMINE THE SPACE FOR THE SEVERITY SELECTION */ 00971000 * /* CRITERION. FIRST THE SEVERITY PDE LIST IS SCANNED AND NOTE IS */ 00972000 * /* MADE OF ALL SPECIFIED SEVERITIES, IF ALL SEVERITIES WERE */ 00973000 * /* SPECIFIED NO SCB IS BUILT, OTHERWISE THE SCB IS BUILT WITH ALL*/ 00974000 * /* THE VALUES SPECIFIED */ 00975000 * /* */ 00976000 * /*****************************************************************/ 00977000 * 0712 00978000 * SEVFLGS=''B; /* NONE SPECIFIED AS YET */ 00979000 MVI SEVFLGS,X'00' 0712 00980000 * RESPECIFY 0713 00981000 * SEVX BASED(LISTP); /* BASE SEVERITY PDES ON LISTP */ 00982000 * LISTP=ADDR(SEV); /* FIRST SEVERITY PDE */ 00983000 LA LISTP,SEV 0714 00984000 * DO WHILE(LISTP^=ZZZPNULL); /* LOOP THROUGH SEVERITY PDES */ 00985000 B @DE00715 0715 00986000 @DL00715 DS 0H 0716 00987000 * IF SEVIFP=ON /* WAS ANYTHING SPECIFIED */ 00988000 * THEN 0716 00989000 TM SEVIFP(LISTP),B'10000000' 0716 00990000 BNO @RF00716 0716 00991000 * DO; 0717 00992000 * ANYSEL=ON; /* A SELECTION CRITERION WAS 0718 00993000 * FOUND */ 00994000 OI ANYSEL,B'10000000' 0718 00995000 * IF SEVI(1)='1' /* WAS IT 1 ? */ 00996000 * THEN 0719 00997000 L @10,SEVIP(,LISTP) 0719 00998000 CLI SEVI(@10),C'1' 0719 00999000 BNE @RF00719 0719 01000000 * SEV1=ON; /* MARK THE WALL */ 01001000 OI SEV1,B'01000000' 0720 01002000 * ELSE 0721 01003000 * IF SEVI(1)='2' /* WAS IT 2 ? */ 01004000 * THEN 0721 01005000 B @RC00719 0721 01006000 @RF00719 L @10,SEVIP(,LISTP) 0721 01007000 CLI SEVI(@10),C'2' 0721 01008000 BNE @RF00721 0721 01009000 * SEV2=ON; /* MARK THE WALL */ 01010000 OI SEV2,B'00100000' 0722 01011000 * ELSE 0723 01012000 * IF SEVI(1)='3' /* WAS IT 3 ? */ 01013000 * THEN 0723 01014000 B @RC00721 0723 01015000 @RF00721 L @10,SEVIP(,LISTP) 0723 01016000 CLI SEVI(@10),C'3' 0723 01017000 BNE @RF00723 0723 01018000 * SEV3=ON; /* MARK THE WALL */ 01019000 OI SEV3,B'00010000' 0724 01020000 * ELSE 0725 01021000 * IF SEVI(1)='4' /* WAS IT 4 ? */ 01022000 * THEN 0725 01023000 B @RC00723 0725 01024000 @RF00723 L @10,SEVIP(,LISTP) 0725 01025000 CLI SEVI(@10),C'4' 0725 01026000 BNE @RF00725 0725 01027000 * SEV4=ON; /* MARK THE WALL */ 01028000 OI SEV4,B'00001000' 0726 01029000 * ELSE 0727 01030000 * IF SEVI(1)='0' /* WAS IT 0 ? */ 01031000 * THEN 0727 01032000 B @RC00725 0727 01033000 @RF00725 L @10,SEVIP(,LISTP) 0727 01034000 CLI SEVI(@10),C'0' 0727 01035000 BNE @RF00727 0727 01036000 * SEV0=ON; /* MARK THE WALL */ 01037000 OI SEV0,B'10000000' 0728 01038000 * END; 0729 01039000 @RF00727 DS 0H 0729 01040000 @RC00725 DS 0H 0729 01041000 @RC00723 DS 0H 0729 01042000 @RC00721 DS 0H 0729 01043000 @RC00719 DS 0H 0730 01044000 * LISTP=GENLISTP; /* MOVE ON TO THE NEXT PDE */ 01045000 @RF00716 L LISTP,GENLISTP(,LISTP) 0730 01046000 * END; /* LOOP THROUGH SEVERITY PDES */ 01047000 @DE00715 CL LISTP,@CF00062 0731 01048000 BNE @DL00715 0731 01049000 * RESPECIFY 0732 01050000 * SEVX; /* REVERT BASING ON SEVERITY PDES*/ 01051000 * IF SEVFLG1^=ALLSEV /* WERE ANY SEVERITIES MISSING ? */ 01052000 * THEN 0733 01053000 TM SEVFLG1,B'11111000' 0733 01054000 BO @RF00733 0733 01055000 * DO; /* SOME MISSING SO BUILD SCB */ 01056000 * VALUECT=ZERO; /* INITIALIZE TABLE SPACE COUNTER*/ 01057000 SLR VALUECT,VALUECT 0735 01058000 * IF SEV0=ON /* WAS SEVERITY(0) SPECIFIED ? */ 01059000 * THEN 0736 01060000 TM SEV0,B'10000000' 0736 01061000 BNO @RF00736 0736 01062000 * VALUECT=VALUECT+SCLEN; 0737 01063000 AL VALUECT,@CF00051 0737 01064000 * IF SEV1=ON /* WAS SEVERITY(1) SPECIFIED ? */ 01065000 * THEN 0738 01066000 @RF00736 TM SEV1,B'01000000' 0738 01067000 BNO @RF00738 0738 01068000 * VALUECT=VALUECT+SCLEN; 0739 01069000 AL VALUECT,@CF00051 0739 01070000 * IF SEV2=ON /* WAS SEVERITY(2) SPECIFIED ? */ 01071000 * THEN 0740 01072000 @RF00738 TM SEV2,B'00100000' 0740 01073000 BNO @RF00740 0740 01074000 * VALUECT=VALUECT+SCLEN; 0741 01075000 AL VALUECT,@CF00051 0741 01076000 * IF SEV3=ON /* WAS SEVERITY(3) SPECIFIED ? */ 01077000 * THEN 0742 01078000 @RF00740 TM SEV3,B'00010000' 0742 01079000 BNO @RF00742 0742 01080000 * VALUECT=VALUECT+SCLEN; 0743 01081000 AL VALUECT,@CF00051 0743 01082000 * IF SEV4=ON /* WAS SEVERITY(4) SPECIFIED ? */ 01083000 * THEN 0744 01084000 @RF00742 TM SEV4,B'00001000' 0744 01085000 BNO @RF00744 0744 01086000 * VALUECT=VALUECT+SCLEN; 0745 01087000 AL VALUECT,@CF00051 0745 01088000 * IF VALUECT^=ZERO /* WERE ANY SPECIFIED ? */ 01089000 * THEN 0746 01090000 @RF00744 LTR VALUECT,VALUECT 0746 01091000 BZ @RF00746 0746 01092000 * COUNT=COUNT+VALUECT+LENGTH(BLSESCB);/* RESERVE SPACE */ 01093000 LR @10,COUNT 0747 01094000 ALR @10,VALUECT 0747 01095000 AL @10,@CF00051 0747 01096000 LR COUNT,@10 0747 01097000 * END; 0748 01098000 * ELSE 0749 01099000 * SEVWD=UNSPECD; /* ALL WERE SPECIFIED DONT BUILD 01100000 * SCB */ 01101000 B @RC00733 0749 01102000 @RF00733 SLR @10,@10 0749 01103000 STH @10,SEVWD 0749 01104000 * RETURN; 0750 01105000 @EL00005 DS 0H 0750 01106000 @EF00005 DS 0H 0750 01107000 @ER00005 LM @14,@05,12(@13) 0750 01108000 LM @07,@12,48(@13) 0750 01109000 BR @14 0750 01110000 * END; 0751 01111000 B @EL00005 0751 01112000 EJECT 01113000 *BLDLIST: 0752 01114000 * PROCEDURE(PDEB,OFFL,LENL); 0752 01115000 * 0752 01116000 BLDLIST STM @14,@05,12(@13) 0752 01117000 STM @07,@08,48(@13) 0752 01118000 STM @10,@12,60(@13) 0752 01119000 MVC @PC00006(12),0(@01) 0752 01120000 * /*****************************************************************/ 01121000 * /* */ 01122000 * /* PROCEDURE TO BUILD SCB FOR LIST SELECTION CRITERIA. VALUES ARE*/ 01123000 * /* MOVED INTO SCB VALUE TABLE. THE TABLE IS THEN SORTED SINCE */ 01124000 * /* LIST CAN BE INPUT IN ANY ORDER */ 01125000 * /* */ 01126000 * /*****************************************************************/ 01127000 * 0753 01128000 * DCL 0753 01129000 * PDEB CHARACTER(*), /* FIRST PDE IN LIST */ 01130000 * OFFL FIXED, /* OFFSET OF FIELD IN STATUS 0753 01131000 * RECORD */ 01132000 * LENL FIXED; /* LENGTH OF FIELD IN STATUS 0753 01133000 * RECORD */ 01134000 * 0753 01135000 * /*****************************************************************/ 01136000 * /* */ 01137000 * /* POINTERS USED FOR SORTING */ 01138000 * /* */ 01139000 * /*****************************************************************/ 01140000 * 0754 01141000 * DCL 0754 01142000 * SORTTOP POINTER, /* PTR TO LAST ELEMENT NOT KNOWN 01143000 * TO BE IN POSITION */ 01144000 * SORTBOT POINTER, /* PTR TO JUST BEFORE TABLE, SORT 01145000 * COMPLETE WHEN SORTTOP = 0754 01146000 * SORTBOT */ 01147000 * SORTSTRT POINTER, /* PTR TO FIRST ELEMENT OF TABLE */ 01148000 * SORTEND POINTER, /* PTR TO ELEMENT BEFORE SORTTOP */ 01149000 * SORTT POINTER; /* TEMPORARY USED TO DEVELOP NEXT 01150000 * VALUE FOR SORTTOP */ 01151000 * LISTP=ADDR(PDEB); /* ADDRESS FIRST PDE */ 01152000 L LISTP,@PC00006 0755 01153000 * SCBPTR=AVAILP; /* ADDRESS OF NEW SCB */ 01154000 LR SCBPTR,AVAILP 0756 01155000 * SELVALP=ADDR(SCBVALS(1)); /* FIRST SELECTION VALUE ADDRESS */ 01156000 * 0757 01157000 LA SELVALP,SCBVALS(,SCBPTR) 0757 01158000 * /*****************************************************************/ 01159000 * /* */ 01160000 * /* MOVE VALUES TO SCB */ 01161000 * /* */ 01162000 * /*****************************************************************/ 01163000 * 0758 01164000 * DO WHILE(LISTP^=ZZZPNULL); 0758 01165000 B @DE00758 0758 01166000 @DL00758 DS 0H 0759 01167000 * IF VALUEFP=ON /* IS VALUE PRESENT ? */ 01168000 * THEN 0759 01169000 TM VALUEFP(LISTP),B'10000000' 0759 01170000 BNO @RF00759 0759 01171000 * DO; 0760 01172000 * SELVAL=GENVAL(1:VALUEL); /* MOVE IN VALUE */ 01173000 MVI SELVAL+1(SELVALP),C' ' 0761 01174000 MVC SELVAL+2(14,SELVALP),SELVAL+1(SELVALP) 0761 01175000 LH @10,VALUEL(,LISTP) 0761 01176000 BCTR @10,0 0761 01177000 L @08,VALUEP(,LISTP) 0761 01178000 EX @10,@SM01446 0761 01179000 * SELVALP=SELVALP+SCLEN; /* BUMP SELVAL PTR */ 01180000 AL SELVALP,@CF00051 0762 01181000 * END; 0763 01182000 * LISTP=GENLISTP; /* ADDRESS OF NEXT PDE */ 01183000 @RF00759 L LISTP,GENLISTP(,LISTP) 0764 01184000 * END; 0765 01185000 @DE00758 CL LISTP,@CF00062 0765 01186000 BNE @DL00758 0765 01187000 * IF SELVALP>ADDR(SCBVALS(1)) /* WERE VALUES PRESENT ? */ 01188000 * THEN 0766 01189000 LA @10,SCBVALS(,SCBPTR) 0766 01190000 CR SELVALP,@10 0766 01191000 BNH @RF00766 0766 01192000 * DO; /* VALUES WERE PRESENT */ 01193000 * SCBFLDOF=OFFL; /* OFFSET TO SELECTION FIELD */ 01194000 L @08,@PC00006+4 0768 01195000 L @08,OFFL(,@08) 0768 01196000 ST @08,SCBFLDOF(,SCBPTR) 0768 01197000 * SCBFLDLN=LENL; /* LENGTH OF SELECTION FIELD */ 01198000 L @08,@PC00006+8 0769 01199000 L @08,LENL(,@08) 0769 01200000 ST @08,SCBFLDLN(,SCBPTR) 0769 01201000 * SCBNXTSC=ZERO; /* -> NEXT SCB */ 01202000 SLR @08,@08 0770 01203000 ST @08,SCBNXTSC(,SCBPTR) 0770 01204000 * SCBLASTP=SELVALP-SCLEN; /* -> LAST SELECTION CRITERION */ 01205000 LA @15,16 0771 01206000 LR @14,SELVALP 0771 01207000 SLR @14,@15 0771 01208000 ST @14,SCBLASTP(,SCBPTR) 0771 01209000 * AVAILP=SELVALP; /* NEXT AVAIL SCB ADDR */ 01210000 LR AVAILP,SELVALP 0772 01211000 * LINKP=SCBPTR; /* LINK PTR */ 01212000 ST SCBPTR,LINKP(,LINKPP) 0773 01213000 * LINKPP=ADDR(SCBNXTSC); /* PTR TO LINK PTR */ 01214000 LA LINKPP,SCBNXTSC(,SCBPTR) 0774 01215000 * SCBNXTSC=ZERO; /* THIS MAY BE THE LAST ONE */ 01216000 * 0775 01217000 ST @08,SCBNXTSC(,SCBPTR) 0775 01218000 * /*************************************************************/ 01219000 * /* */ 01220000 * /* SORT THE SELECTION VALUES USING BUBBLE SORT */ 01221000 * /* */ 01222000 * /*************************************************************/ 01223000 * 0776 01224000 * SORTSTRT=ADDR(SCBVALS(1)); /* SORTSTRT POINTS AT THE FIRST 01225000 * TABLE ENTRY */ 01226000 LR SORTSTRT,@10 0776 01227000 * SORTBOT=SORTSTRT-SCLEN; /* SORTBOT POINTS JUST BEFORE THE 01228000 * TABLE */ 01229000 LCR @15,@15 0777 01230000 ALR @15,SORTSTRT 0777 01231000 LR SORTBOT,@15 0777 01232000 * SORTTOP=SCBLASTP; /* AS FAR AS WE KNOW ALL OF THE 01233000 * ENTRIES ARE OUT OF ORDER */ 01234000 LR SORTTOP,@14 0778 01235000 * IF SORTTOP>SORTSTRT /* ONLY SORT IF TWO OR MORE 0779 01236000 * ENTRIES IN TABLE */ 01237000 * THEN 0779 01238000 CR SORTTOP,SORTSTRT 0779 01239000 BNH @RF00779 0779 01240000 * DO WHILE(SORTTOP^=SORTBOT);/* LOOP UNTIL ALL ENTRIES ARE 0780 01241000 * KNOWN TO BE IN ORDER */ 01242000 B @DE00780 0780 01243000 @DL00780 DS 0H 0781 01244000 * SORTT=SORTBOT; /* UNTIL WE FIND AN ENTRY OUT OF 01245000 * SEQUENCE ASSUME ALL ENTRIES 0781 01246000 * ARE IN ORDER */ 01247000 LR SORTT,SORTBOT 0781 01248000 * SORTEND=SORTTOP-SCLEN; /* SORTEND POINTS JUST BEFORE 0782 01249000 * SORTTOP */ 01250000 * 0782 01251000 LR SORTEND,SORTTOP 0782 01252000 SL SORTEND,@CF00051 0782 01253000 * /*********************************************************/ 01254000 * /* */ 01255000 * /* LOOP LOOKING FOR ENTRIES OUT OF SEQUENCE */ 01256000 * /* */ 01257000 * /*********************************************************/ 01258000 * 0783 01259000 * DO SELVALP=SORTSTRT TO SORTEND BY SCLEN; 0783 01260000 LR SELVALP,SORTSTRT 0783 01261000 B @DE00783 0783 01262000 @DL00783 DS 0H 0784 01263000 * SELVALP2=SELVALP+SCLEN;/* POINT TO NEXT VALUE */ 01264000 LA SELVALP2,16 0784 01265000 ALR SELVALP2,SELVALP 0784 01266000 * IF SELVAL>SELVAL2 /* ARE ADJACENT VALUES OUT OF 0785 01267000 * SEQUENCE ? */ 01268000 * THEN 0785 01269000 CLC SELVAL(16,SELVALP),SELVAL2(SELVALP2) 0785 01270000 BNH @RF00785 0785 01271000 * DO; /* ADJACENT VALUES ARE OUT OF 0786 01272000 * SEQUENCE */ 01273000 * 0786 01274000 * /***************************************************/ 01275000 * /* */ 01276000 * /* INTERCHANGE SELVAL AND SELVAL2 */ 01277000 * /* */ 01278000 * /***************************************************/ 01279000 * 0787 01280000 * SELVAL=SELVAL&&SELVAL2; 0787 01281000 XC SELVAL(16,SELVALP),SELVAL2(SELVALP2) 0787 01282000 * SELVAL2=SELVAL&&SELVAL2; 0788 01283000 XC SELVAL2(16,SELVALP2),SELVAL(SELVALP) 0788 01284000 * SELVAL=SELVAL&&SELVAL2; 0789 01285000 XC SELVAL(16,SELVALP),SELVAL2(SELVALP2) 0789 01286000 * SORTT=SELVALP; /* ANY VALUES UP TO HERE MIGHT BE 01287000 * OUT OF SEQUENCE */ 01288000 LR SORTT,SELVALP 0790 01289000 * END; 0791 01290000 * END; 0792 01291000 @RF00785 AL SELVALP,@CF00051 0792 01292000 @DE00783 CR SELVALP,SORTEND 0792 01293000 BNH @DL00783 0792 01294000 * SORTTOP=SORTT; /* SORTT POINTS TO LAST ENTRY NOT 01295000 * KNOWN TO BE IN ORDER */ 01296000 LR SORTTOP,SORTT 0793 01297000 * END; 0794 01298000 @DE00780 CR SORTTOP,SORTBOT 0794 01299000 BNE @DL00780 0794 01300000 * END; /* VALUES WERE PRESENT */ 01301000 * RETURN; 0796 01302000 @EL00006 DS 0H 0796 01303000 @EF00006 DS 0H 0796 01304000 @ER00006 LM @14,@05,12(@13) 0796 01305000 LM @07,@08,48(@13) 0796 01306000 LM @10,@12,60(@13) 0796 01307000 BR @14 0796 01308000 * END; 0797 01309000 B @EL00006 0797 01310000 EJECT 01311000 *BLDKEY: 0798 01312000 * PROCEDURE(PDE1BK,PDE2BK,TBL,OFFBK,LENBK); 0798 01313000 * 0798 01314000 BLDKEY STM @14,@05,12(@13) 0798 01315000 STM @07,@08,48(@13) 0798 01316000 STM @10,@12,60(@13) 0798 01317000 MVC @PC00007(20),0(@01) 0798 01318000 * /*****************************************************************/ 01319000 * /* */ 01320000 * /* PROCEDURE TO BUILD SCB FOR KEYWORD SELECTION CRITERIA. NO SORT*/ 01321000 * /* IS NEEDED SINCE THE VALUES ARE INSERTED IN PRE-SORTED ORDER */ 01322000 * /* */ 01323000 * /*****************************************************************/ 01324000 * 0799 01325000 * DCL 0799 01326000 * PDE1BK FIXED(15), /* PDE OF FIRST VALUE KEYWORD */ 01327000 * PDE2BK FIXED(15), /* PDE OF LAST VALUE KEYWORD */ 01328000 * TBL CHARACTER(*), /* TABLE OF STATUS RECORD VALUES, 01329000 * COORELATED TO VALUE KEYWORD 0799 01330000 * POSITION. THE VALUES IN THIS 01331000 * TABLE MUST BE PRE-SORTED, 0799 01332000 * HENCE THE REQUIREMENT THAT THE 01333000 * KEYWORDS MUST BE SPECIFIED IN 01334000 * THE PARSE PARAMETER LIST IN 0799 01335000 * THE ORDER OF STATUS FIELD 0799 01336000 * VALUE THEY REPRESENT */ 01337000 * OFFBK FIXED, /* OFFSET OF STATUS RECORD FIELD */ 01338000 * LENBK FIXED, /* LENGTH OF STATUS RECORD FIELD */ 01339000 * PDEBK FIXED(15) BASED(PDEBKP),/* PDE BEING TESTED */ 01340000 * PDEBKP POINTER, /* -> PDEBK */ 01341000 * TBLENT CHARACTER(*) BASED(TBLENTP),/* ENTRY IN TBL 0799 01342000 * COORESPONDING TO PDEBK */ 01343000 * TBLENTP POINTER, /* -> TBLENT */ 01344000 * LOCLEN FIXED; /* LOCAL COPY OF LOCLEN */ 01345000 * SCBPTR=AVAILP; /* ADDRESS NEW SCB */ 01346000 LR SCBPTR,AVAILP 0800 01347000 * LINKP=AVAILP; /* LINK IT IN */ 01348000 ST AVAILP,LINKP(,LINKPP) 0801 01349000 * LINKPP=ADDR(SCBNXTSC); /* PREPARE FOR NEXT LINK */ 01350000 LA LINKPP,SCBNXTSC(,SCBPTR) 0802 01351000 * SCBNXTSC=ZERO; /* THIS MAY BE THE LAST ONE */ 01352000 SLR @10,@10 0803 01353000 ST @10,SCBNXTSC(,SCBPTR) 0803 01354000 * SCBFLDOF=OFFBK; /* STORE FIELD OFFSET IN SCB */ 01355000 L @10,@PC00007+12 0804 01356000 L @10,OFFBK(,@10) 0804 01357000 ST @10,SCBFLDOF(,SCBPTR) 0804 01358000 * LOCLEN=LENBK; /* MAKE LOCAL COPY OF FIELD 0805 01359000 * LENGTH */ 01360000 L @10,@PC00007+16 0805 01361000 L LOCLEN,LENBK(,@10) 0805 01362000 * SCBFLDLN=LOCLEN; /* STORE FIELD LENGTH IN SCB */ 01363000 ST LOCLEN,SCBFLDLN(,SCBPTR) 0806 01364000 * SELVALP=ADDR(SCBVALS(1)); /* ADDR FIRST SLOT IN SCB TABLE */ 01365000 LA SELVALP,SCBVALS(,SCBPTR) 0807 01366000 * TBLENTP=ADDR(TBL); /* FIRST KEYWORD COORESPONDS TO 01367000 * FIRST ENTRY IN TBL */ 01368000 * 0808 01369000 L TBLENTP,@PC00007+8 0808 01370000 * /*****************************************************************/ 01371000 * /* */ 01372000 * /* LOOP THROUGH KEYWORDS, FOR EACH SPECIFIED KEYWORD MOVE ITS */ 01373000 * /* COORESPONDING STATUS RECORD VALUE INTO THE SCB TABLE */ 01374000 * /* */ 01375000 * /*****************************************************************/ 01376000 * 0809 01377000 * DO PDEBKP=ADDR(PDE1BK) TO ADDR(PDE2BK) BY LENGTH(PDE1BK); 0809 01378000 L PDEBKP,@PC00007 0809 01379000 B @DE00809 0809 01380000 @DL00809 DS 0H 0810 01381000 * IF PDEBK=SPECFIED /* WAS THIS KEYWORD SPECIFIED ? */ 01382000 * THEN 0810 01383000 CLC PDEBK(2,PDEBKP),@CH00040 0810 01384000 BNE @RF00810 0810 01385000 * DO; /* KEYWORD WAS SPECIFIED */ 01386000 * SELVAL=TBLENT(1:LOCLEN); /* MOVE VALUE TO SCB */ 01387000 MVI SELVAL+1(SELVALP),C' ' 0812 01388000 MVC SELVAL+2(14,SELVALP),SELVAL+1(SELVALP) 0812 01389000 LR @10,LOCLEN 0812 01390000 BCTR @10,0 0812 01391000 EX @10,@SM01448 0812 01392000 * SELVALP=SELVALP+SCLEN; /* ADDRESS NEXT SLOT IN SCB */ 01393000 AL SELVALP,@CF00051 0813 01394000 * END; /* KEYWORD WAS SPECIFIED */ 01395000 * TBLENTP=TBLENTP+LOCLEN; /* MAINTAIN KEYWORD VALUE 0815 01396000 * COORESPONDENCE */ 01397000 @RF00810 ALR TBLENTP,LOCLEN 0815 01398000 * END; 0816 01399000 AL PDEBKP,@CF00067 0816 01400000 @DE00809 L @10,@PC00007+4 0816 01401000 CR PDEBKP,@10 0816 01402000 BNH @DL00809 0816 01403000 * AVAILP=SELVALP; /* ADDRESS OF NEXT SCB TO BE 0817 01404000 * BUILT */ 01405000 LR AVAILP,SELVALP 0817 01406000 * SCBLASTP=SELVALP-SCLEN; /* STORE ADDRESS OF LAST SCB 0818 01407000 * TABLE ENTRY IN SCB */ 01408000 LR @10,SELVALP 0818 01409000 SL @10,@CF00051 0818 01410000 ST @10,SCBLASTP(,SCBPTR) 0818 01411000 * RETURN; 0819 01412000 @EL00007 DS 0H 0819 01413000 @EF00007 DS 0H 0819 01414000 @ER00007 LM @14,@05,12(@13) 0819 01415000 LM @07,@08,48(@13) 0819 01416000 LM @10,@12,60(@13) 0819 01417000 BR @14 0819 01418000 * END; 0820 01419000 EJECT 01420000 *BLDOWNR: 0821 01421000 * PROCEDURE; 0821 01422000 * 0821 01423000 BLDOWNR STM @14,@05,@SA00008 0821 01424000 STM @07,@08,@SA00008+32 0821 01425000 STM @10,@12,@SA00008+40 0821 01426000 * /*****************************************************************/ 01427000 * /* */ 01428000 * /* PROCEDURE TO BUILD SCB FOR OWNER SELECTION CRITERION. IF THE */ 01429000 * /* OWNER KEYWORD WAS NOT SPECIFIED THEN AN SCB CONTAINING THE */ 01430000 * /* USERID OF THE PERSON ISSUING THE SUBCOMMAND MUST BE BUILT, */ 01431000 * /* OTHERWISE OWNER IS TREATED LIKE A LIST SELECTION CRITERIA */ 01432000 * /* */ 01433000 * /*****************************************************************/ 01434000 * 0822 01435000 * IF OWNERWD^=OWNER /* WAS OWNER KEYWORD SPECIFIED ? */ 01436000 * THEN 0822 01437000 CLC OWNERWD(2),@CH00040 0822 01438000 BE @RF00822 0822 01439000 * DO; /* BUILD SCB FOR CURRENT USERID */ 01440000 * SCBPTR=AVAILP; /* ADDRESS OF SCB */ 01441000 LR SCBPTR,AVAILP 0824 01442000 * LINKP=AVAILP; /* LINK SCB INTO CHAIN */ 01443000 ST AVAILP,LINKP(,LINKPP) 0825 01444000 * LINKPP=ADDR(SCBNXTSC); /* PREPARE FOR THE NEXT SCB */ 01445000 LA LINKPP,SCBNXTSC(,SCBPTR) 0826 01446000 * SCBNXTSC=ZERO; /* THIS MAY BE THE LAST ONE */ 01447000 SLR @10,@10 0827 01448000 ST @10,SCBNXTSC(,SCBPTR) 0827 01449000 * SCBFLDOF=OWNIDOFF; /* STORE STATUS FIELD OFFSET IN 01450000 * SCB */ 01451000 L @10,OWNIDOFF 0828 01452000 ST @10,SCBFLDOF(,SCBPTR) 0828 01453000 * SCBFLDLN=LENGTH(PDROWNID); /* STORE STATUS FIELD LENGTH IN 01454000 * SCB */ 01455000 MVC SCBFLDLN(4,SCBPTR),@CF00416 0829 01456000 * SELVALP=ADDR(SCBVALS(1)); /* ADDRESS FIRST SLOT IN SCB */ 01457000 LA SELVALP,SCBVALS(,SCBPTR) 0830 01458000 * SELVAL=PSCBUSER; /* MOVE IN USERID */ 01459000 MVI SELVAL+7(SELVALP),C' ' 0831 01460000 MVC SELVAL+8(8,SELVALP),SELVAL+7(SELVALP) 0831 01461000 L @10,CPPLPSCB(,ZZ2PTR) 0831 01462000 MVC SELVAL(7,SELVALP),PSCBUSER(@10) 0831 01463000 * SCBLASTP=SELVALP; /* THE FIRST AND ONLY VALUE */ 01464000 ST SELVALP,SCBLASTP(,SCBPTR) 0832 01465000 * AVAILP=SELVALP+SCLEN; /* NEXT AVAILABLE ADDR FOR SCB */ 01466000 LA AVAILP,16 0833 01467000 ALR AVAILP,SELVALP 0833 01468000 * END; /* BUILD SCB FOR CURRENT USERID */ 01469000 * ELSE 0835 01470000 * CALL BLDLIST(OWN,OWNIDOFF,LENGTH(PDROWNID)); 0835 01471000 B @RC00822 0835 01472000 @RF00822 MVC @AL00001+4(8),@AL00835 0835 01473000 LA @10,OWN 0835 01474000 ST @10,@AL00001 0835 01475000 LA @01,@AL00001 0835 01476000 BAL @14,BLDLIST 0835 01477000 * RETURN; 0836 01478000 @EL00008 DS 0H 0836 01479000 @EF00008 DS 0H 0836 01480000 @ER00008 LM @14,@05,@SA00008 0836 01481000 LM @07,@08,@SA00008+32 0836 01482000 LM @10,@12,@SA00008+40 0836 01483000 BR @14 0836 01484000 * END; 0837 01485000 B @EL00008 0837 01486000 EJECT 01487000 *BLDSEV: 0838 01488000 * PROCEDURE; 0838 01489000 * 0838 01490000 BLDSEV STM @14,@05,12(@13) 0838 01491000 STM @07,@08,48(@13) 0838 01492000 STM @10,@12,60(@13) 0838 01493000 * /*****************************************************************/ 01494000 * /* */ 01495000 * /* PROCEDURE TO BUILD AN SCB FOR THE SEVERITY SELECTION CRITERIA.*/ 01496000 * /* */ 01497000 * /*****************************************************************/ 01498000 * 0839 01499000 * SCBPTR=AVAILP; /* ADDRESS OF SCB TO BE BUILT */ 01500000 LR SCBPTR,AVAILP 0839 01501000 * LINKP=AVAILP; /* LINK SCB TO SCB CHAIN */ 01502000 ST AVAILP,LINKP(,LINKPP) 0840 01503000 * LINKPP=ADDR(SCBNXTSC); /* PREPARE FOR NEXT SCB ON CHAIN */ 01504000 LA LINKPP,SCBNXTSC(,SCBPTR) 0841 01505000 * SCBNXTSC=ZERO; /* THIS MAY BE THE LAST SCB */ 01506000 SLR @10,@10 0842 01507000 ST @10,SCBNXTSC(,SCBPTR) 0842 01508000 * SCBFLDOF=SEVOFF; /* STORE FIELD OFFSET IN SCB */ 01509000 L @10,SEVOFF 0843 01510000 ST @10,SCBFLDOF(,SCBPTR) 0843 01511000 * SCBFLDLN=LENGTH(PDRSEV); /* STORE FIELD LENGTH IN SCB */ 01512000 MVC SCBFLDLN(4,SCBPTR),@CF00040 0844 01513000 * SELVALP=ADDR(SCBVALS(1)); /* ADDRESS FIRST SLOT IN SCB */ 01514000 LA SELVALP,SCBVALS(,SCBPTR) 0845 01515000 * IF SEV0=ON /* WAS SEVERITY(0) SPECIFIED ? */ 01516000 * THEN 0846 01517000 TM SEV0,B'10000000' 0846 01518000 BNO @RF00846 0846 01519000 * DO; /* SEVERITY(0) SPECIFIED */ 01520000 * SELVAL=''; /* BLANK SCB SLOT */ 01521000 MVI SELVAL(SELVALP),C' ' 0848 01522000 MVC SELVAL+1(15,SELVALP),SELVAL(SELVALP) 0848 01523000 * SELVALP=SELVALP+SCLEN; /* ADDRESS NEXT SCB SLOT */ 01524000 AL SELVALP,@CF00051 0849 01525000 * END; /* SEVERITY(0) SPECIFIED */ 01526000 * IF SEV1=ON /* WAS SEVERITY(1) SPECIFIED ? */ 01527000 * THEN 0851 01528000 @RF00846 TM SEV1,B'01000000' 0851 01529000 BNO @RF00851 0851 01530000 * DO; /* SEVERITY(1) SPECIFIED */ 01531000 * SELVAL='1'; /* STORE VALUE OF 1 IN SCB SLOT */ 01532000 MVI SELVAL+1(SELVALP),C' ' 0853 01533000 MVC SELVAL+2(14,SELVALP),SELVAL+1(SELVALP) 0853 01534000 MVI SELVAL(SELVALP),C'1' 0853 01535000 * SELVALP=SELVALP+SCLEN; /* ADDRESS NEXT SCB SLOT */ 01536000 AL SELVALP,@CF00051 0854 01537000 * END; /* SEVERITY(1) SPECIFIED */ 01538000 * IF SEV2=ON /* WAS SEVERITY(2) SPECIFIED ? */ 01539000 * THEN 0856 01540000 @RF00851 TM SEV2,B'00100000' 0856 01541000 BNO @RF00856 0856 01542000 * DO; /* SEVERITY(2) SPECIFIED */ 01543000 * SELVAL='2'; /* STORE VALUE OF 2 IN SLOT */ 01544000 MVI SELVAL+1(SELVALP),C' ' 0858 01545000 MVC SELVAL+2(14,SELVALP),SELVAL+1(SELVALP) 0858 01546000 MVI SELVAL(SELVALP),C'2' 0858 01547000 * SELVALP=SELVALP+SCLEN; /* ADDRESS NEXT SCB SLOT */ 01548000 AL SELVALP,@CF00051 0859 01549000 * END; /* SEVERITY(2) SPECIFIED */ 01550000 * IF SEV3=ON /* WAS SEVERITY(3) SPECIFIED ? */ 01551000 * THEN 0861 01552000 @RF00856 TM SEV3,B'00010000' 0861 01553000 BNO @RF00861 0861 01554000 * DO; /* SEVERITY(3) SPECIFIED */ 01555000 * SELVAL='3'; /* STORE VALUE OF 3 IN SCB SLOT */ 01556000 MVI SELVAL+1(SELVALP),C' ' 0863 01557000 MVC SELVAL+2(14,SELVALP),SELVAL+1(SELVALP) 0863 01558000 MVI SELVAL(SELVALP),C'3' 0863 01559000 * SELVALP=SELVALP+SCLEN; /* ADDRESS NEXT SCB SLOT */ 01560000 AL SELVALP,@CF00051 0864 01561000 * END; /* SEVERITY(3) SPECIFIED */ 01562000 * IF SEV4=ON /* WAS SEVERITY(4) SPECIFIED ? */ 01563000 * THEN 0866 01564000 @RF00861 TM SEV4,B'00001000' 0866 01565000 BNO @RF00866 0866 01566000 * DO; /* SEVERITY(4) SPECIFIED */ 01567000 * SELVAL='4'; /* STORE VALUE OF 4 IN SCB SLOT */ 01568000 MVI SELVAL+1(SELVALP),C' ' 0868 01569000 MVC SELVAL+2(14,SELVALP),SELVAL+1(SELVALP) 0868 01570000 MVI SELVAL(SELVALP),C'4' 0868 01571000 * SELVALP=SELVALP+SCLEN; /* ADDRESS NEXT SCB SLOT */ 01572000 AL SELVALP,@CF00051 0869 01573000 * END; /* SEVERITY(4) SPECIFIED */ 01574000 * AVAILP=SELVALP; /* NEXT AVAILABLE SCB ADDRESS */ 01575000 @RF00866 LR AVAILP,SELVALP 0871 01576000 * SCBLASTP=SELVALP-SCLEN; /* STORE ADDRESS OF LAST VALUE IN 01577000 * SCB */ 01578000 LR @10,SELVALP 0872 01579000 SL @10,@CF00051 0872 01580000 ST @10,SCBLASTP(,SCBPTR) 0872 01581000 * RETURN; 0873 01582000 @EL00009 DS 0H 0873 01583000 @EF00009 DS 0H 0873 01584000 @ER00009 LM @14,@05,12(@13) 0873 01585000 LM @07,@08,48(@13) 0873 01586000 LM @10,@12,60(@13) 0873 01587000 BR @14 0873 01588000 * END; 0874 01589000 EJECT 01590000 * 0875 01591000 */*BLSUPEND--MVS IPCS MODULE */ 01592000 * 0875 01593000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01594000 * GPR00F FIXED(31) REG(0), 0875 01595000 * GPR01F FIXED(31) REG(1), 0875 01596000 * GPR15F FIXED(31) REG(15); 0875 01597000 * DECLARE /* COMMON VARIABLES */ 01598000 * I256C CHAR(256) BASED, 0876 01599000 * I031F FIXED(31) BASED, 0876 01600000 * I031P PTR(31) BASED, 0876 01601000 * I015F FIXED(15) BASED, 0876 01602000 * I015P PTR(15) BASED, 0876 01603000 * I008P PTR(8) BASED, 0876 01604000 * I001C CHAR(1) BASED; 0876 01605000 * GENERATE NODEFS NOREFS DATA; 0877 01606000 * END /* BLRPEND */ 01607000 * 0878 01608000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01609000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01610000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01611000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01612000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01613000 */*%INCLUDE SYSLIB (IKJECT ) */ 01614000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01615000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01616000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01617000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01618000 */*%INCLUDE SYSLIB (BLSDSERV) */ 01619000 */*%INCLUDE SYSLIB (BLSELP ) */ 01620000 */*%INCLUDE SYSLIB (BLSPDR ) */ 01621000 */*%INCLUDE SYSLIB (BLSESTAT) */ 01622000 */*%INCLUDE SYSLIB (BLSELPWA) */ 01623000 * 0878 01624000 * ; 0878 01625000 @EL00001 L @13,4(,@13) 0878 01626000 @EF00001 L @00,@SIZDATD 0878 01627000 LR @01,@11 0878 01628000 BLSUFRER R,LV=(0),A=(1) 01629000 @ER00001 LM @14,@12,12(@13) 0878 01630000 BR @14 0878 01631000 @DATA DS 0H 01632000 @CH00093 DC H'3' 01633000 @SM01446 MVC SELVAL(0,SELVALP),GENVAL(@08) 01634000 @SM01448 MVC SELVAL(0,SELVALP),TBLENT(TBLENTP) 01635000 DS 0F 01636000 @AL00611 DC A(GROUPOFF) LIST WITH 2 ARGUMENT(S) 01637000 DC A(@CF00048) 01638000 @AL00613 DC A(SYSOFF) LIST WITH 2 ARGUMENT(S) 01639000 DC A(@CF00048) 01640000 @AL00615 DC A(USEROFF) LIST WITH 2 ARGUMENT(S) 01641000 DC A(@CF00048) 01642000 @AL00617 DC A(COMPOFF) LIST WITH 2 ARGUMENT(S) 01643000 DC A(@CF00474) 01644000 @AL00623 DC A(STATPROB) LIST WITH 3 ARGUMENT(S) 01645000 DC A(PSTATOFF) 01646000 DC A(@CF00048) 01647000 @AL00625 DC A(STATIBM) LIST WITH 3 ARGUMENT(S) 01648000 DC A(ISTATOFF) 01649000 DC A(@CF00048) 01650000 @AL00627 DC A(STATPTF) LIST WITH 3 ARGUMENT(S) 01651000 DC A(TSTATOFF) 01652000 DC A(@CF00037) 01653000 @AL00629 DC A(STATFIX) LIST WITH 3 ARGUMENT(S) 01654000 DC A(FSTATOFF) 01655000 DC A(@CF00037) 01656000 @AL00835 DC A(OWNIDOFF) LIST WITH 2 ARGUMENT(S) 01657000 DC A(@CF00416) 01658000 @DATD DSECT 01659000 DS 0F 01660000 @SA00001 DS 18F 01661000 @PC00002 DS 2F 01662000 @SA00004 DS 14F 01663000 @PC00003 DS 3F 01664000 @PC00006 DS 3F 01665000 @SA00008 DS 13F 01666000 @PC00007 DS 5F 01667000 @AL00001 DS 5A 01668000 BLSELP00 CSECT 01669000 DS 0F 01670000 @CF00040 DC F'1' 01671000 @CH00040 EQU @CF00040+2 01672000 @CF00067 DC F'2' 01673000 @CH00067 EQU @CF00067+2 01674000 @CF00037 DC F'4' 01675000 @CH00037 EQU @CF00037+2 01676000 @CF00416 DC F'7' 01677000 @CF00048 DC F'8' 01678000 @CF00474 DC F'10' 01679000 @CF00051 DC F'16' 01680000 @CF00059 DC F'32' 01681000 @CF00167 DC F'256' 01682000 @CF00062 DC XL4'FF000000' 01683000 @CF01275 DC XL4'FFFFFFFF' 01684000 @DATD DSECT 01685000 DS 0D 01686000 PDAPTR DS A 01687000 LPWAPTRP DS A 01688000 SEVFLGS DS BL1 01689000 ORG SEVFLGS 01690000 SEVFLG1 DS BL1 01691000 ORG SEVFLG1 01692000 SEV0 DS BL1 01693000 SEV1 EQU SEVFLG1+0 01694000 SEV2 EQU SEVFLG1+0 01695000 SEV3 EQU SEVFLG1+0 01696000 SEV4 EQU SEVFLG1+0 01697000 ORG SEVFLGS+0 01698000 @NM00078 EQU SEVFLGS+0 01699000 ORG SEVFLGS+1 01700000 ALLFLG DS BL1 01701000 ANYSEL DS BL1 01702000 ALLSPECD DS BL1 01703000 BLSELP00 CSECT 01704000 DS 0F 01705000 @SIZDATD DC AL1(0) 01706000 DC AL3(@ENDDATD-@DATD) 01707000 @CV01358 DC V(BLSELPDR) 01708000 DS 0D 01709000 PCPTR DC AL4(PC) 01710000 GROUPOFF DC AL4(PDRGROUP-PDREC) 01711000 SYSOFF DC AL4(PDRSYS-PDREC) 01712000 USEROFF DC AL4(PDRUSER-PDREC) 01713000 COMPOFF DC AL4(PDRCOMP-PDREC) 01714000 OWNIDOFF DC AL4(PDROWNID-PDREC) 01715000 SEVOFF DC AL4(PDRSEV-PDREC) 01716000 PSTATOFF DC AL4(PDRPSTAT-PDREC) 01717000 ISTATOFF DC AL4(PDRISTAT-PDREC) 01718000 TSTATOFF DC AL4(PDRTSTAT-PDREC) 01719000 FSTATOFF DC AL4(PDRFSTAT-PDREC) 01720000 @CC01308 DC C'ALL' 01721000 @CB01445 DC X'00' 01722000 PXRO DC AL2(PXPRINT-PD) 01723000 DC AL2(PXTERM-PD) 01724000 DC AL2(0) 01725000 DC AL2(0) 01726000 STATPROB DC CL8'ACTIVE ' 01727000 DC CL8'CLAPAR ' 01728000 DC CL8'CLDUP ' 01729000 DC CL8'CLFIX ' 01730000 DC CL8'CLNTF ' 01731000 DC CL8'CLOTHER ' 01732000 DC CL8'CLPTF ' 01733000 DC CL8'INACTIVE' 01734000 DC CL8'INITIAL ' 01735000 STATIBM DC CL8' ' 01736000 DC CL8'ABY ' 01737000 DC CL8'ACK ' 01738000 DC CL8'APARED ' 01739000 DC CL8'CAN ' 01740000 DC CL8'DOC ' 01741000 DC CL8'DUA ' 01742000 DC CL8'DUB ' 01743000 DC CL8'DUU ' 01744000 DC CL8'MCH ' 01745000 DC CL8'PER ' 01746000 DC CL8'PRS ' 01747000 DC CL8'PSRR ' 01748000 DC CL8'REPORTED' 01749000 DC CL8'RET ' 01750000 DC CL8'ROP ' 01751000 DC CL8'SUG ' 01752000 DC CL8'UR1 ' 01753000 DC CL8'UR2 ' 01754000 DC CL8'UR3 ' 01755000 DC CL8'UR4 ' 01756000 DC CL8'UR5 ' 01757000 DC CL8'USE ' 01758000 STATPTF DC CL4' ' 01759000 DC CL4'ACPT' 01760000 DC CL4'INST' 01761000 DC CL4'RCVD' 01762000 DC CL4'REJD' 01763000 DC CL4'RQST' 01764000 STATFIX DC CL4' ' 01765000 DC CL4'ACPT' 01766000 DC CL4'INST' 01767000 DC CL4'RCVD' 01768000 DC CL4'REJD' 01769000 DC CL4'RQST' 01770000 @DATD DSECT 01771000 SPACE 2 01772000 *********************************************************************** 01773000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01774000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01775000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01776000 *********************************************************************** 01777000 SPACE 01778000 BLSELP00 CSECT 01779000 ORG 01780000 DS 0D 01781000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSELP00+19)/20+7)/8)CL8'BLSELP00' 01782000 @DATD DSECT 01783000 SPACE 2 01784000 *********************************************************************** 01785000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01786000 *********************************************************************** 01787000 SPACE 01788000 BLSELP00 CSECT 01789000 PC IKJPARM DSECT=PD 01790000 @DATD DSECT 01791000 BLSELP00 CSECT 01792000 PROBWD IKJKEYWD 01793000 @DATD DSECT 01794000 BLSELP00 CSECT 01795000 IKJNAME 'PROBLEMS',SUBFLD=PROBSUB 01796000 @DATD DSECT 01797000 BLSELP00 CSECT 01798000 IKJNAME 'ALL' 01799000 @DATD DSECT 01800000 BLSELP00 CSECT 01801000 GROUPWD IKJKEYWD 01802000 @DATD DSECT 01803000 BLSELP00 CSECT 01804000 IKJNAME 'GROUP',SUBFLD=GRPSUB 01805000 @DATD DSECT 01806000 BLSELP00 CSECT 01807000 SYSTEMWD IKJKEYWD 01808000 @DATD DSECT 01809000 BLSELP00 CSECT 01810000 IKJNAME 'SYSTEM',SUBFLD=SIDSUB 01811000 @DATD DSECT 01812000 BLSELP00 CSECT 01813000 USERWD IKJKEYWD 01814000 @DATD DSECT 01815000 BLSELP00 CSECT 01816000 IKJNAME 'USER',SUBFLD=USESUB 01817000 @DATD DSECT 01818000 BLSELP00 CSECT 01819000 COMPIDWD IKJKEYWD 01820000 @DATD DSECT 01821000 BLSELP00 CSECT 01822000 IKJNAME 'COMPID',SUBFLD=CIDSUB 01823000 @DATD DSECT 01824000 BLSELP00 CSECT 01825000 OWNERWD IKJKEYWD 01826000 @DATD DSECT 01827000 BLSELP00 CSECT 01828000 IKJNAME 'OWNER',SUBFLD=OWNSUB 01829000 @DATD DSECT 01830000 BLSELP00 CSECT 01831000 SEVWD IKJKEYWD 01832000 @DATD DSECT 01833000 BLSELP00 CSECT 01834000 IKJNAME 'SEVERITY',SUBFLD=SEVSUB 01835000 @DATD DSECT 01836000 BLSELP00 CSECT 01837000 PSTATWD IKJKEYWD 01838000 @DATD DSECT 01839000 BLSELP00 CSECT 01840000 IKJNAME 'PSTATUS',SUBFLD=PSTATSUB 01841000 @DATD DSECT 01842000 BLSELP00 CSECT 01843000 IBMSTWD IKJKEYWD 01844000 @DATD DSECT 01845000 BLSELP00 CSECT 01846000 IKJNAME 'IBMSTATUS',SUBFLD=IBMSTSUB 01847000 @DATD DSECT 01848000 BLSELP00 CSECT 01849000 PTFSTWD IKJKEYWD 01850000 @DATD DSECT 01851000 BLSELP00 CSECT 01852000 IKJNAME 'PTFSTATUS',SUBFLD=PTFSTSUB 01853000 @DATD DSECT 01854000 BLSELP00 CSECT 01855000 FIXSTWD IKJKEYWD 01856000 @DATD DSECT 01857000 BLSELP00 CSECT 01858000 IKJNAME 'FIXSTATUS',SUBFLD=FIXSTSUB 01859000 @DATD DSECT 01860000 BLSELP00 CSECT 01861000 TYPEWD IKJKEYWD DEFAULT='STATUS' 01862000 @DATD DSECT 01863000 BLSELP00 CSECT 01864000 IKJNAME 'LIST' 01865000 @DATD DSECT 01866000 BLSELP00 CSECT 01867000 IKJNAME 'ABSTRACT' 01868000 @DATD DSECT 01869000 BLSELP00 CSECT 01870000 IKJNAME 'STATUS' 01871000 @DATD DSECT 01872000 BLSELP00 CSECT 01873000 IKJNAME 'DESCRIPTION' 01874000 @DATD DSECT 01875000 BLSELP00 CSECT 01876000 DSNTYPE IKJKEYWD DEFAULT='NODSNAMES' 01877000 @DATD DSECT 01878000 BLSELP00 CSECT 01879000 IKJNAME 'DSNAMES',ALIAS=('DATASETS'),SUBFLD=DSTYPSUB 01880000 @DATD DSECT 01881000 BLSELP00 CSECT 01882000 IKJNAME 'NODSNAMES',ALIAS=('NODATASETS') 01883000 @DATD DSECT 01884000 BLSELP00 CSECT 01885000 PXPRINT IKJKEYWD 01886000 @DATD DSECT 01887000 BLSELP00 CSECT 01888000 IKJNAME 'PRINT' 01889000 @DATD DSECT 01890000 BLSELP00 CSECT 01891000 IKJNAME 'NOPRINT' 01892000 @DATD DSECT 01893000 BLSELP00 CSECT 01894000 PXTERM IKJKEYWD 01895000 @DATD DSECT 01896000 BLSELP00 CSECT 01897000 IKJNAME 'TERMINAL' 01898000 @DATD DSECT 01899000 BLSELP00 CSECT 01900000 IKJNAME 'NOTERMINAL' 01901000 @DATD DSECT 01902000 BLSELP00 CSECT 01903000 PXTEST IKJKEYWD 01904000 @DATD DSECT 01905000 BLSELP00 CSECT 01906000 IKJNAME 'TEST' 01907000 @DATD DSECT 01908000 BLSELP00 CSECT 01909000 IKJNAME 'NOTEST' 01910000 @DATD DSECT 01911000 BLSELP00 CSECT 01912000 SPACE 01913000 PROBSUB IKJSUBF 01914000 @DATD DSECT 01915000 BLSELP00 CSECT 01916000 PRB IKJIDENT 'LIST PROB ID',LIST,RANGE,UPPERCASE,FIRST=NUMERIC, *01917000 MAXLNTH=5,OTHER=NUMERIC,PROMPT='ELIGIBLE PROBLEMS', *01918000 VALIDCK=BLSDPC00 01919000 @DATD DSECT 01920000 BLSELP00 CSECT 01921000 SPACE 01922000 GRPSUB IKJSUBF 01923000 @DATD DSECT 01924000 BLSELP00 CSECT 01925000 GRP IKJIDENT 'GROUP LIST',LIST,UPPERCASE,FIRST=ALPHANUM,MAXLNTH=8,*01926000 OTHER=ALPHANUM,PROMPT='GROUP LIST' 01927000 @DATD DSECT 01928000 BLSELP00 CSECT 01929000 SPACE 01930000 SIDSUB IKJSUBF 01931000 @DATD DSECT 01932000 BLSELP00 CSECT 01933000 SID IKJIDENT 'SYSID LIST',LIST,UPPERCASE,FIRST=ALPHANUM,MAXLNTH=8,*01934000 OTHER=ALPHANUM,PROMPT='SYSTEM ID LIST' 01935000 @DATD DSECT 01936000 BLSELP00 CSECT 01937000 SPACE 01938000 USESUB IKJSUBF 01939000 @DATD DSECT 01940000 BLSELP00 CSECT 01941000 UFL IKJIDENT 'USER FIELD',LIST,UPPERCASE,FIRST=ALPHANUM,MAXLNTH=8,*01942000 OTHER=ALPHANUM,PROMPT='USER FIELD LIST' 01943000 @DATD DSECT 01944000 BLSELP00 CSECT 01945000 SPACE 01946000 CIDSUB IKJSUBF 01947000 @DATD DSECT 01948000 BLSELP00 CSECT 01949000 CID IKJIDENT 'COMPID LIST',LIST,UPPERCASE,FIRST=ANY,MAXLNTH=10, *01950000 OTHER=ANY,PROMPT='COMPONENT ID LIST' 01951000 @DATD DSECT 01952000 BLSELP00 CSECT 01953000 SPACE 01954000 OWNSUB IKJSUBF 01955000 @DATD DSECT 01956000 BLSELP00 CSECT 01957000 OWN IKJIDENT 'OWNER ID',LIST,UPPERCASE,FIRST=ALPHA,MAXLNTH=7, *01958000 OTHER=ALPHANUM,PROMPT='OWNER LIST' 01959000 @DATD DSECT 01960000 BLSELP00 CSECT 01961000 SPACE 01962000 SEVSUB IKJSUBF 01963000 @DATD DSECT 01964000 BLSELP00 CSECT 01965000 SEV IKJIDENT 'SEVERITY LIST',LIST,UPPERCASE,FIRST=NUMERIC,MAXLNTH=*01966000 1,PROMPT='SEVERITY LIST',VALIDCK=BLSDSV00 01967000 @DATD DSECT 01968000 BLSELP00 CSECT 01969000 SPACE 01970000 PSTATSUB IKJSUBF 01971000 @DATD DSECT 01972000 BLSELP00 CSECT 01973000 PSTACTWD IKJKEYWD 01974000 @DATD DSECT 01975000 BLSELP00 CSECT 01976000 IKJNAME 'ACTIVE' 01977000 @DATD DSECT 01978000 BLSELP00 CSECT 01979000 PSTCLAWD IKJKEYWD 01980000 @DATD DSECT 01981000 BLSELP00 CSECT 01982000 IKJNAME 'CLAPAR' 01983000 @DATD DSECT 01984000 BLSELP00 CSECT 01985000 PSTCLDUP IKJKEYWD 01986000 @DATD DSECT 01987000 BLSELP00 CSECT 01988000 IKJNAME 'CLDUP' 01989000 @DATD DSECT 01990000 BLSELP00 CSECT 01991000 PSTCLFWD IKJKEYWD 01992000 @DATD DSECT 01993000 BLSELP00 CSECT 01994000 IKJNAME 'CLFIX' 01995000 @DATD DSECT 01996000 BLSELP00 CSECT 01997000 PSTCLNWD IKJKEYWD 01998000 @DATD DSECT 01999000 BLSELP00 CSECT 02000000 IKJNAME 'CLNTF' 02001000 @DATD DSECT 02002000 BLSELP00 CSECT 02003000 PSTOTHWD IKJKEYWD 02004000 @DATD DSECT 02005000 BLSELP00 CSECT 02006000 IKJNAME 'CLOTHER' 02007000 @DATD DSECT 02008000 BLSELP00 CSECT 02009000 PSTCLPWD IKJKEYWD 02010000 @DATD DSECT 02011000 BLSELP00 CSECT 02012000 IKJNAME 'CLPTF' 02013000 @DATD DSECT 02014000 BLSELP00 CSECT 02015000 PSTINAWD IKJKEYWD 02016000 @DATD DSECT 02017000 BLSELP00 CSECT 02018000 IKJNAME 'INACTIVE' 02019000 @DATD DSECT 02020000 BLSELP00 CSECT 02021000 PSTINTWD IKJKEYWD 02022000 @DATD DSECT 02023000 BLSELP00 CSECT 02024000 IKJNAME 'INITIAL' 02025000 @DATD DSECT 02026000 BLSELP00 CSECT 02027000 PSTOPNWD IKJKEYWD 02028000 @DATD DSECT 02029000 BLSELP00 CSECT 02030000 IKJNAME 'OPEN' 02031000 @DATD DSECT 02032000 BLSELP00 CSECT 02033000 PSTCLSWD IKJKEYWD 02034000 @DATD DSECT 02035000 BLSELP00 CSECT 02036000 IKJNAME 'CLOSED' 02037000 @DATD DSECT 02038000 BLSELP00 CSECT 02039000 SPACE 02040000 IBMSTSUB IKJSUBF 02041000 @DATD DSECT 02042000 BLSELP00 CSECT 02043000 IBMNOWD IKJKEYWD 02044000 @DATD DSECT 02045000 BLSELP00 CSECT 02046000 IKJNAME 'NONE' 02047000 @DATD DSECT 02048000 BLSELP00 CSECT 02049000 IBMABYWD IKJKEYWD 02050000 @DATD DSECT 02051000 BLSELP00 CSECT 02052000 IKJNAME 'ABY' 02053000 @DATD DSECT 02054000 BLSELP00 CSECT 02055000 IBMACKWD IKJKEYWD 02056000 @DATD DSECT 02057000 BLSELP00 CSECT 02058000 IKJNAME 'ACK' 02059000 @DATD DSECT 02060000 BLSELP00 CSECT 02061000 IBMAPDWD IKJKEYWD 02062000 @DATD DSECT 02063000 BLSELP00 CSECT 02064000 IKJNAME 'APARED' 02065000 @DATD DSECT 02066000 BLSELP00 CSECT 02067000 IBMCANWD IKJKEYWD 02068000 @DATD DSECT 02069000 BLSELP00 CSECT 02070000 IKJNAME 'CAN' 02071000 @DATD DSECT 02072000 BLSELP00 CSECT 02073000 IBMDOCWD IKJKEYWD 02074000 @DATD DSECT 02075000 BLSELP00 CSECT 02076000 IKJNAME 'DOC' 02077000 @DATD DSECT 02078000 BLSELP00 CSECT 02079000 IBMDUAWD IKJKEYWD 02080000 @DATD DSECT 02081000 BLSELP00 CSECT 02082000 IKJNAME 'DUA' 02083000 @DATD DSECT 02084000 BLSELP00 CSECT 02085000 IBMDUBWD IKJKEYWD 02086000 @DATD DSECT 02087000 BLSELP00 CSECT 02088000 IKJNAME 'DUB' 02089000 @DATD DSECT 02090000 BLSELP00 CSECT 02091000 IBMDUUWD IKJKEYWD 02092000 @DATD DSECT 02093000 BLSELP00 CSECT 02094000 IKJNAME 'DUU' 02095000 @DATD DSECT 02096000 BLSELP00 CSECT 02097000 IBMMCHWD IKJKEYWD 02098000 @DATD DSECT 02099000 BLSELP00 CSECT 02100000 IKJNAME 'MCH' 02101000 @DATD DSECT 02102000 BLSELP00 CSECT 02103000 IBMPERWD IKJKEYWD 02104000 @DATD DSECT 02105000 BLSELP00 CSECT 02106000 IKJNAME 'PER' 02107000 @DATD DSECT 02108000 BLSELP00 CSECT 02109000 IBMPRSWD IKJKEYWD 02110000 @DATD DSECT 02111000 BLSELP00 CSECT 02112000 IKJNAME 'PRS' 02113000 @DATD DSECT 02114000 BLSELP00 CSECT 02115000 IBMPSRWD IKJKEYWD 02116000 @DATD DSECT 02117000 BLSELP00 CSECT 02118000 IKJNAME 'PSRR' 02119000 @DATD DSECT 02120000 BLSELP00 CSECT 02121000 IBMRPTWD IKJKEYWD 02122000 @DATD DSECT 02123000 BLSELP00 CSECT 02124000 IKJNAME 'REPORTED' 02125000 @DATD DSECT 02126000 BLSELP00 CSECT 02127000 IBMRETWD IKJKEYWD 02128000 @DATD DSECT 02129000 BLSELP00 CSECT 02130000 IKJNAME 'RET' 02131000 @DATD DSECT 02132000 BLSELP00 CSECT 02133000 IBMROPWD IKJKEYWD 02134000 @DATD DSECT 02135000 BLSELP00 CSECT 02136000 IKJNAME 'ROP' 02137000 @DATD DSECT 02138000 BLSELP00 CSECT 02139000 IBMSUGWD IKJKEYWD 02140000 @DATD DSECT 02141000 BLSELP00 CSECT 02142000 IKJNAME 'SUG' 02143000 @DATD DSECT 02144000 BLSELP00 CSECT 02145000 IBMUR1WD IKJKEYWD 02146000 @DATD DSECT 02147000 BLSELP00 CSECT 02148000 IKJNAME 'UR1' 02149000 @DATD DSECT 02150000 BLSELP00 CSECT 02151000 IBMUR2WD IKJKEYWD 02152000 @DATD DSECT 02153000 BLSELP00 CSECT 02154000 IKJNAME 'UR2' 02155000 @DATD DSECT 02156000 BLSELP00 CSECT 02157000 IBMUR3WD IKJKEYWD 02158000 @DATD DSECT 02159000 BLSELP00 CSECT 02160000 IKJNAME 'UR3' 02161000 @DATD DSECT 02162000 BLSELP00 CSECT 02163000 IBMUR4WD IKJKEYWD 02164000 @DATD DSECT 02165000 BLSELP00 CSECT 02166000 IKJNAME 'UR4' 02167000 @DATD DSECT 02168000 BLSELP00 CSECT 02169000 IBMUR5WD IKJKEYWD 02170000 @DATD DSECT 02171000 BLSELP00 CSECT 02172000 IKJNAME 'UR5' 02173000 @DATD DSECT 02174000 BLSELP00 CSECT 02175000 IBMUSEWD IKJKEYWD 02176000 @DATD DSECT 02177000 BLSELP00 CSECT 02178000 IKJNAME 'USE' 02179000 @DATD DSECT 02180000 BLSELP00 CSECT 02181000 IBMCLSWD IKJKEYWD 02182000 @DATD DSECT 02183000 BLSELP00 CSECT 02184000 IKJNAME 'CLOSED' 02185000 @DATD DSECT 02186000 BLSELP00 CSECT 02187000 SPACE 02188000 PTFSTSUB IKJSUBF 02189000 @DATD DSECT 02190000 BLSELP00 CSECT 02191000 PTFNONWD IKJKEYWD 02192000 @DATD DSECT 02193000 BLSELP00 CSECT 02194000 IKJNAME 'NONE' 02195000 @DATD DSECT 02196000 BLSELP00 CSECT 02197000 PTFACPWD IKJKEYWD 02198000 @DATD DSECT 02199000 BLSELP00 CSECT 02200000 IKJNAME 'ACPT' 02201000 @DATD DSECT 02202000 BLSELP00 CSECT 02203000 PTFINSWD IKJKEYWD 02204000 @DATD DSECT 02205000 BLSELP00 CSECT 02206000 IKJNAME 'INST' 02207000 @DATD DSECT 02208000 BLSELP00 CSECT 02209000 PTFRCVWD IKJKEYWD 02210000 @DATD DSECT 02211000 BLSELP00 CSECT 02212000 IKJNAME 'RCVD' 02213000 @DATD DSECT 02214000 BLSELP00 CSECT 02215000 PTFREJWD IKJKEYWD 02216000 @DATD DSECT 02217000 BLSELP00 CSECT 02218000 IKJNAME 'REJD' 02219000 @DATD DSECT 02220000 BLSELP00 CSECT 02221000 PTFRQWD IKJKEYWD 02222000 @DATD DSECT 02223000 BLSELP00 CSECT 02224000 IKJNAME 'RQST' 02225000 @DATD DSECT 02226000 BLSELP00 CSECT 02227000 SPACE 02228000 FIXSTSUB IKJSUBF 02229000 @DATD DSECT 02230000 BLSELP00 CSECT 02231000 FIXNONWD IKJKEYWD 02232000 @DATD DSECT 02233000 BLSELP00 CSECT 02234000 IKJNAME 'NONE' 02235000 @DATD DSECT 02236000 BLSELP00 CSECT 02237000 FIXACPWD IKJKEYWD 02238000 @DATD DSECT 02239000 BLSELP00 CSECT 02240000 IKJNAME 'ACPT' 02241000 @DATD DSECT 02242000 BLSELP00 CSECT 02243000 FIXINSWD IKJKEYWD 02244000 @DATD DSECT 02245000 BLSELP00 CSECT 02246000 IKJNAME 'INST' 02247000 @DATD DSECT 02248000 BLSELP00 CSECT 02249000 FIXRCVWD IKJKEYWD 02250000 @DATD DSECT 02251000 BLSELP00 CSECT 02252000 IKJNAME 'RCVD' 02253000 @DATD DSECT 02254000 BLSELP00 CSECT 02255000 FIXREJWD IKJKEYWD 02256000 @DATD DSECT 02257000 BLSELP00 CSECT 02258000 IKJNAME 'REJD' 02259000 @DATD DSECT 02260000 BLSELP00 CSECT 02261000 FIXRQWD IKJKEYWD 02262000 @DATD DSECT 02263000 BLSELP00 CSECT 02264000 IKJNAME 'RQST' 02265000 @DATD DSECT 02266000 BLSELP00 CSECT 02267000 SPACE 02268000 DSTYPSUB IKJSUBF 02269000 @DATD DSECT 02270000 BLSELP00 CSECT 02271000 DSTYPE1 IKJKEYWD 02272000 @DATD DSECT 02273000 BLSELP00 CSECT 02274000 IKJNAME 'DESCRIPTION' 02275000 @DATD DSECT 02276000 PD DSECT 02277000 LISTEND DS 0C 02278000 BLSELP00 CSECT 02279000 IKJENDP 02280000 SPACE 2 02281000 *********************************************************************** 02282000 * IKJENDP--END SYNTAX DESCRIPTION * 02283000 *********************************************************************** 02284000 SPACE 02285000 @DATD DSECT 02286000 SPACE 2 02287000 *********************************************************************** 02288000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 02289000 *********************************************************************** 02290000 SPACE 02291000 DS 0D 02292000 @DATD DSECT 02293000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02294000 @ENDDATD EQU * 02295000 BLSELP00 CSECT 02296000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02297000 @01 EQU 01 02298000 @02 EQU 02 02299000 @03 EQU 03 02300000 @04 EQU 04 02301000 @05 EQU 05 02302000 @06 EQU 06 02303000 @07 EQU 07 02304000 @08 EQU 08 02305000 @09 EQU 09 02306000 @10 EQU 10 02307000 @11 EQU 11 02308000 @12 EQU 12 02309000 @13 EQU 13 02310000 @14 EQU 14 02311000 @15 EQU 15 02312000 LOCLEN EQU @06 02313000 TBLENTP EQU @04 02314000 PDEBKP EQU @07 02315000 SORTT EQU @10 02316000 SORTEND EQU @08 02317000 SORTSTRT EQU @07 02318000 SORTBOT EQU @04 02319000 SORTTOP EQU @02 02320000 TPPTR EQU @03 02321000 SELVALP2 EQU @03 02322000 SELVALP EQU @02 02323000 LISTP EQU @04 02324000 VALUECT EQU @02 02325000 COUNT EQU @06 02326000 RETC EQU @06 02327000 LINKPP EQU @09 02328000 AVAILP EQU @06 02329000 SCBPTR EQU @03 02330000 LPWAPTR EQU @07 02331000 ZZ2PTR EQU @08 02332000 R0 EQU @00 02333000 R1 EQU @01 02334000 R2 EQU @02 02335000 R3 EQU @03 02336000 R4 EQU @04 02337000 R5 EQU @05 02338000 R9 EQU @09 02339000 RB EQU @11 02340000 RD EQU @13 02341000 RE EQU @14 02342000 RF EQU @15 02343000 PDRPTR EQU @05 02344000 GPR15F EQU @15 02345000 GPR01F EQU @01 02346000 GPR00F EQU @00 02347000 RA EQU @10 02348000 RC EQU @12 02349000 R6 EQU @06 02350000 R7 EQU @07 02351000 R8 EQU @08 02352000 ZZ1 EQU 0 02353000 ZZ1ATTN EQU ZZ1+360 02354000 ZZ1EVE EQU ZZ1ATTN+4 02355000 ZZ1F EQU ZZ1+368 02356000 ZZ1N EQU ZZ1+1116 02357000 ZZ2 EQU 0 02358000 ZZ2AMD EQU ZZ2 02359000 @NM00013 EQU ZZ2AMD+7 02360000 ZZ2PRT EQU ZZ2+138 02361000 ZZ2PRTT EQU ZZ2PRT+4 02362000 ZZ2PRTT1 EQU ZZ2PRTT+1 02363000 ZZ2A EQU ZZ2+272 02364000 ZZ2AF EQU ZZ2A+16 02365000 ZZ2AFX EQU ZZ2AF+5 02366000 ZZ2APID EQU ZZ2A+64 02367000 ZZ2AD EQU ZZ2A+74 02368000 ZZ2ADD EQU ZZ2AD 02369000 ZZ2ADDT EQU ZZ2ADD+2 02370000 ZZ2ADM EQU ZZ2AD+46 02371000 ZZ2ADMT EQU ZZ2ADM+2 02372000 ZZ2ADP EQU ZZ2AD+56 02373000 ZZ2ADPT EQU ZZ2ADP+2 02374000 ZZ2AQAS EQU ZZ2A+144 02375000 ZZ2AQD EQU ZZ2A+160 02376000 ZZ2AQDT EQU ZZ2AQD+10 02377000 ZZ2AQDF EQU ZZ2AQD+52 02378000 ZZ2STG EQU ZZ2+960 02379000 ZZ2ALLOP EQU ZZ2+992 02380000 ZZ2FREEP EQU ZZ2+996 02381000 ZZ2FF19P EQU ZZ2+1000 02382000 ZZ2FRE1P EQU ZZ2+1004 02383000 ZZ2FF18P EQU ZZ2+1008 02384000 ZZ2DYNAP EQU ZZ2+1012 02385000 ZZ2ZZ2CP EQU ZZ2+1016 02386000 ZZ2ZZ2DP EQU ZZ2+1020 02387000 ZZ2STAIP EQU ZZ2+1024 02388000 ZZ2FF02P EQU ZZ2+1028 02389000 ZZ2GETLP EQU ZZ2+1032 02390000 ZZ2PARSP EQU ZZ2+1036 02391000 ZZ2PTGTP EQU ZZ2+1040 02392000 ZZ2PUTLP EQU ZZ2+1044 02393000 ZZ2SCANP EQU ZZ2+1048 02394000 ZZ2STCKP EQU ZZ2+1052 02395000 ZZ2ALOCP EQU ZZ2+1056 02396000 ZZ2MSGSP EQU ZZ2+1060 02397000 ZZ2TRMOP EQU ZZ2+1064 02398000 ZZ2TRMVP EQU ZZ2+1068 02399000 ZZ2MSG0P EQU ZZ2+1076 02400000 ZZ2PUTNP EQU ZZ2+1084 02401000 ZZ2TRMNP EQU ZZ2+1088 02402000 ZZ2ENQ0P EQU ZZ2+1092 02403000 ZZ2ADSDP EQU ZZ2+1096 02404000 ZZ2APDRP EQU ZZ2+1100 02405000 ZZ2FDSDP EQU ZZ2+1104 02406000 ZZ2FPDRP EQU ZZ2+1108 02407000 ZZ2ZZ1P EQU ZZ2+1264 02408000 ZZ2DVTP EQU ZZ2+1276 02409000 ZZ2BVTP EQU ZZ2+1280 02410000 ZZ2CPPL EQU ZZ2+1292 02411000 ZZ2CPPLC EQU ZZ2CPPL 02412000 ZZ2ITR EQU ZZ2+2840 02413000 ZZ2ITRE EQU ZZ2ITR+16 02414000 ZZ2ITSE EQU ZZ2+2864 02415000 ZZ2ES EQU ZZ2+2872 02416000 ZZ2AMDX EQU ZZ2+7160 02417000 ZZ2AXO EQU ZZ2+7934 02418000 ZZ2AXOT EQU ZZ2AXO+2 02419000 CMD EQU 0 02420000 CMDT EQU CMD+4 02421000 PSCB EQU 0 02422000 PSCBUSER EQU PSCB 02423000 PSCBATR1 EQU PSCB+16 02424000 ECT EQU 0 02425000 ECTSWS EQU ECT+28 02426000 ECTSWS2 EQU ECT+40 02427000 ECTSWS21 EQU ECTSWS2 02428000 UPT EQU 0 02429000 UPTSWS EQU UPT+12 02430000 SA EQU 0 02431000 SA1 EQU SA 02432000 SAR EQU SA+12 02433000 BLSUPARI EQU 0 02434000 BLSUPARU EQU 0 02435000 BVT EQU 0 02436000 BVTPUTLP EQU BVT+4 02437000 BVTPUTOP EQU BVT+12 02438000 BVTPUTTP EQU BVT+16 02439000 BVTPUTVP EQU BVT+20 02440000 BVTPUTAP EQU BVT+24 02441000 BVTPRTTP EQU BVT+28 02442000 BVTPRTAP EQU BVT+32 02443000 BVTPUTDP EQU BVT+36 02444000 BVTMONP EQU BVT+40 02445000 BVTMON2P EQU BVT+44 02446000 BVTVSARP EQU BVT+48 02447000 BVTVSENP EQU BVT+64 02448000 BVTVSERP EQU BVT+68 02449000 BVTVSGEP EQU BVT+72 02450000 BVTVSGUP EQU BVT+76 02451000 BVTVSPOP EQU BVT+80 02452000 BVTVSPUP EQU BVT+84 02453000 BVTMPKNP EQU BVT+104 02454000 BVTMONLP EQU BVT+108 02455000 BVTPUTCP EQU BVT+132 02456000 BVTMPK1P EQU BVT+136 02457000 BVTZZ2RP EQU BVT+140 02458000 BVTPGMRP EQU BVT+144 02459000 BVTMONAP EQU BVT+148 02460000 BVTBLDDP EQU BVT+152 02461000 BVTBLDLP EQU BVT+156 02462000 BVTPGMCP EQU BVT+160 02463000 BVTPGMDP EQU BVT+164 02464000 BVTPGMLP EQU BVT+168 02465000 BVTMONCP EQU BVT+180 02466000 BVTMONDP EQU BVT+184 02467000 BVTMONTP EQU BVT+188 02468000 BVTPARIP EQU BVT+192 02469000 BVTPARUP EQU BVT+196 02470000 BVTPRTNP EQU BVT+204 02471000 BVTVSCRP EQU BVT+208 02472000 BVTVSMRP EQU BVT+212 02473000 BVTMONXP EQU BVT+216 02474000 BVTTRMAP EQU BVT+228 02475000 DVT EQU 0 02476000 DVTDEQPP EQU DVT+8 02477000 DVTENQPP EQU DVT+12 02478000 DVTAUTHP EQU DVT+20 02479000 DVTLPCLP EQU DVT+24 02480000 DVTBP00P EQU DVT+28 02481000 DVTCN00P EQU DVT+32 02482000 DVTDF00P EQU DVT+36 02483000 DVTDS00P EQU DVT+44 02484000 DVTFL00P EQU DVT+48 02485000 DVTFP00P EQU DVT+52 02486000 DVTGD00P EQU DVT+56 02487000 DVTGG00P EQU DVT+60 02488000 DVTGP00P EQU DVT+64 02489000 DVTND00P EQU DVT+68 02490000 DVTND01P EQU DVT+72 02491000 DVTOD00P EQU DVT+76 02492000 DVTPS00P EQU DVT+80 02493000 DVTSD00P EQU DVT+84 02494000 DVTSL00P EQU DVT+88 02495000 DVTTL00P EQU DVT+92 02496000 DVTUD00P EQU DVT+96 02497000 DVTUP00P EQU DVT+100 02498000 DVTLP00P EQU DVT+104 02499000 DVTLALLP EQU DVT+108 02500000 DVTLPFMP EQU DVT+112 02501000 DVTCLOSP EQU DVT+116 02502000 DVTOPENP EQU DVT+120 02503000 DVTPERAP EQU DVT+124 02504000 DVTDALLP EQU DVT+128 02505000 PCCSECT EQU 0 02506000 PDDSECT EQU 0 02507000 PDXP EQU PDDSECT+1 02508000 PDL EQU PDDSECT+5 02509000 PRBX EQU 0 02510000 @NM00070 EQU PRBX 02511000 PRBIP EQU @NM00070 02512000 PRBIF EQU @NM00070+6 02513000 GRPX EQU 0 02514000 GRPIP EQU GRPX 02515000 GRPIF EQU GRPX+6 02516000 SIDX EQU 0 02517000 SIDIP EQU SIDX 02518000 SIDIF EQU SIDX+6 02519000 UFLX EQU 0 02520000 UFLIP EQU UFLX 02521000 UFLIF EQU UFLX+6 02522000 CIDX EQU 0 02523000 CIDIP EQU CIDX 02524000 CIDIF EQU CIDX+6 02525000 OWNX EQU 0 02526000 OWNIP EQU OWNX 02527000 OWNIL EQU OWNX+4 02528000 OWNIF EQU OWNX+6 02529000 OWNXP EQU OWNX+8 02530000 OWNI EQU 0 02531000 SEVX EQU 0 02532000 SEVIP EQU SEVX 02533000 SEVIF EQU SEVX+6 02534000 SEVIFP EQU SEVIF 02535000 SEVI EQU 0 02536000 PDREC EQU 0 02537000 PDRKEY EQU PDREC 02538000 PDRGRP EQU PDRKEY 02539000 PDRKPID EQU PDRGRP+2 02540000 PDRINFO EQU PDREC+16 02541000 BLSELPWA EQU 0 02542000 LPWALEN EQU BLSELPWA 02543000 LPSCBLKP EQU BLSELPWA+4 02544000 LPPRBPTR EQU BLSELPWA+8 02545000 LPFRMFLG EQU BLSELPWA+12 02546000 LPLIST EQU LPFRMFLG 02547000 LPABST EQU LPFRMFLG 02548000 LPSTAT EQU LPFRMFLG 02549000 LPDESC EQU LPFRMFLG 02550000 LPDSNAME EQU LPFRMFLG 02551000 LPDSDESC EQU LPFRMFLG 02552000 LPSCBLKS EQU BLSELPWA+16 02553000 BLSESCB EQU 0 02554000 SCBFLDOF EQU BLSESCB 02555000 SCBFLDLN EQU BLSESCB+4 02556000 SCBNXTSC EQU BLSESCB+8 02557000 SCBLASTP EQU BLSESCB+12 02558000 SCBVALS EQU BLSESCB+16 02559000 LINKP EQU 0 02560000 GENLIST EQU 0 02561000 VALUEP EQU GENLIST 02562000 VALUEL EQU GENLIST+4 02563000 VALUEF EQU GENLIST+6 02564000 VALUEFP EQU VALUEF 02565000 GENLISTP EQU GENLIST+8 02566000 GENVAL EQU 0 02567000 SELVAL EQU 0 02568000 SELVAL2 EQU 0 02569000 TSTPDE EQU 0 02570000 PDEBK EQU 0 02571000 TBLENT EQU 0 02572000 BLSCALOC EQU 0 02573000 BLSDADSD EQU 0 02574000 BLSDAPDR EQU 0 02575000 BLSDDEQP EQU 0 02576000 BLSDENQP EQU 0 02577000 BLSDENQ0 EQU 0 02578000 BLSDFDSD EQU 0 02579000 BLSDFPDR EQU 0 02580000 BLSDMSGS EQU 0 02581000 BLSDMSG0 EQU 0 02582000 BLSEAUTH EQU 0 02583000 BLSELPCL EQU 0 02584000 BLSELPFM EQU 0 02585000 BLSFBP00 EQU 0 02586000 BLSFCLOS EQU 0 02587000 BLSFCN00 EQU 0 02588000 BLSFDALL EQU 0 02589000 BLSFDF00 EQU 0 02590000 BLSFDS00 EQU 0 02591000 BLSFFL00 EQU 0 02592000 BLSFFP00 EQU 0 02593000 BLSFGD00 EQU 0 02594000 BLSFGG00 EQU 0 02595000 BLSFGP00 EQU 0 02596000 BLSFLALL EQU 0 02597000 BLSFLP00 EQU 0 02598000 BLSFND00 EQU 0 02599000 BLSFND01 EQU 0 02600000 BLSFOD00 EQU 0 02601000 BLSFOPEN EQU 0 02602000 BLSFPERA EQU 0 02603000 BLSFPS00 EQU 0 02604000 BLSFSD00 EQU 0 02605000 BLSFSL00 EQU 0 02606000 BLSFTL00 EQU 0 02607000 BLSFUD00 EQU 0 02608000 BLSFUP00 EQU 0 02609000 BLSUALLO EQU 0 02610000 BLSUBLDD EQU 0 02611000 BLSUBLDL EQU 0 02612000 BLSUDYNA EQU 0 02613000 BLSUFREE EQU 0 02614000 BLSUFRE1 EQU 0 02615000 BLSUMON EQU 0 02616000 BLSUMONA EQU 0 02617000 BLSUMONC EQU 0 02618000 BLSUMOND EQU 0 02619000 BLSUMONL EQU 0 02620000 BLSUMONT EQU 0 02621000 BLSUMONX EQU 0 02622000 BLSUMON2 EQU 0 02623000 BLSUMPKN EQU 0 02624000 BLSUMPK1 EQU 0 02625000 BLSUPGMC EQU 0 02626000 BLSUPGMD EQU 0 02627000 BLSUPGML EQU 0 02628000 BLSUPGMR EQU 0 02629000 BLSUPRTA EQU 0 02630000 BLSUPRTN EQU 0 02631000 BLSUPRTT EQU 0 02632000 BLSUPUTA EQU 0 02633000 BLSUPUTC EQU 0 02634000 BLSUPUTD EQU 0 02635000 BLSUPUTL EQU 0 02636000 BLSUPUTN EQU 0 02637000 BLSUPUTO EQU 0 02638000 BLSUPUTT EQU 0 02639000 BLSUPUTV EQU 0 02640000 BLSUSTAI EQU 0 02641000 BLSUTRMA EQU 0 02642000 BLSUTRMN EQU 0 02643000 BLSUTRMO EQU 0 02644000 BLSUTRMV EQU 0 02645000 BLSUVSAR EQU 0 02646000 BLSUVSCR EQU 0 02647000 BLSUVSEN EQU 0 02648000 BLSUVSER EQU 0 02649000 BLSUVSGE EQU 0 02650000 BLSUVSGU EQU 0 02651000 BLSUVSMR EQU 0 02652000 BLSUVSPO EQU 0 02653000 BLSUVSPU EQU 0 02654000 BLSUZZ2C EQU 0 02655000 BLSUZZ2D EQU 0 02656000 BLSUZZ2R EQU 0 02657000 CIDI EQU 0 02658000 GRPI EQU 0 02659000 IKJEFF02 EQU 0 02660000 IKJEFF18 EQU 0 02661000 IKJEFF19 EQU 0 02662000 IKJGETL EQU 0 02663000 IKJPARS EQU 0 02664000 IKJPTGT EQU 0 02665000 IKJPUTL EQU 0 02666000 IKJSCAN EQU 0 02667000 IKJSTCK EQU 0 02668000 I001C EQU 0 02669000 I008P EQU 0 02670000 I015F EQU 0 02671000 I015P EQU 0 02672000 I031F EQU 0 02673000 I031P EQU 0 02674000 I256C EQU 0 02675000 PRBI1 EQU 0 02676000 PRBI2 EQU 0 02677000 SIDI EQU 0 02678000 UFLI EQU 0 02679000 PDEC EQU 0 02680000 SELPDE EQU 0 02681000 PDE1C EQU 0 02682000 PDE2C EQU 0 02683000 ROOTPDE EQU 0 02684000 PDEB EQU 0 02685000 OFFL EQU 0 02686000 LENL EQU 0 02687000 PDE1BK EQU 0 02688000 PDE2BK EQU 0 02689000 TBL EQU 0 02690000 OFFBK EQU 0 02691000 LENBK EQU 0 02692000 CPPL EQU ZZ2CPPL 02693000 CPPLUPT EQU CPPL+4 02694000 CPPLPSCB EQU CPPL+8 02695000 CPPLECT EQU CPPL+12 02696000 PDRSTREC EQU PDRINFO 02697000 PDRODATE EQU PDRSTREC 02698000 PDRCOMP EQU PDRSTREC+16 02699000 PDRSEV EQU PDRSTREC+26 02700000 PDROWNNM EQU PDRSTREC+32 02701000 PDROWNID EQU PDROWNNM 02702000 PDRGROUP EQU PDRSTREC+40 02703000 PDRSYS EQU PDRSTREC+48 02704000 PDRUSER EQU PDRSTREC+56 02705000 PDRPSTAT EQU PDRSTREC+64 02706000 PDRISTAT EQU PDRSTREC+104 02707000 PDRTSTAT EQU PDRSTREC+140 02708000 PDRFSTAT EQU PDRSTREC+172 02709000 PDRDEREC EQU PDRINFO 02710000 PDRDESCR EQU PDRDEREC 02711000 PDRTRREC EQU PDRINFO 02712000 PDRTRARR EQU PDRTRREC 02713000 PDRHSREC EQU PDRINFO 02714000 PDRDSREC EQU PDRINFO 02715000 PDRDSNM EQU PDRDSREC 02716000 PDRSVALU EQU PDRODATE 02717000 * START UNREFERENCED COMPONENTS 02718000 PDRSVNUM EQU PDRSVALU+3 02719000 PDRSVRES EQU PDRSVALU 02720000 PDRDSRES EQU PDRDSREC+52 02721000 PDRMEMB EQU PDRDSNM+44 02722000 PDRDSN EQU PDRDSNM 02723000 PDRHYMSD EQU PDRHSREC+4 02724000 PDRHSLEN EQU PDRHSREC 02725000 PDRTRKD EQU PDRTRARR 02726000 PDRDESC EQU PDRDESCR 02727000 PDRDSSEQ EQU PDRSTREC+396 02728000 PDRRES6 EQU PDRSTREC+392 02729000 PDRTRKL EQU PDRSTREC+388 02730000 PDRDESCL EQU PDRSTREC+384 02731000 PDRABS EQU PDRSTREC+256 02732000 PDRRES5 EQU PDRSTREC+252 02733000 PDRFIXID EQU PDRSTREC+192 02734000 PDRFTIME EQU PDRSTREC+184 02735000 PDRFDATE EQU PDRSTREC+176 02736000 PDRRES4 EQU PDRSTREC+167 02737000 PDRPTFID EQU PDRSTREC+160 02738000 PDRTTIME EQU PDRSTREC+152 02739000 PDRTDATE EQU PDRSTREC+144 02740000 PDRRES3 EQU PDRSTREC+135 02741000 PDRAPRID EQU PDRSTREC+128 02742000 PDRITIME EQU PDRSTREC+120 02743000 PDRIDATE EQU PDRSTREC+112 02744000 PDRRTIME EQU PDRSTREC+96 02745000 PDRRDATE EQU PDRSTREC+88 02746000 PDRPTIME EQU PDRSTREC+80 02747000 PDRPDATE EQU PDRSTREC+72 02748000 PDROWNLN EQU PDROWNNM+7 02749000 PDRRES1 EQU PDRSTREC+27 02750000 PDROTIME EQU PDRSTREC+8 02751000 CPPLCBUF EQU CPPL 02752000 @NM00080 EQU GENLIST+7 02753000 @NM00079 EQU VALUEF 02754000 LPFRMRES EQU LPFRMFLG 02755000 LPSUBTIT EQU LPFRMFLG 02756000 PDRRESV EQU PDREC+14 02757000 PDRRECSQ EQU PDRKEY+10 02758000 PDRKPNUM EQU PDRKPID+3 02759000 PDRKPREF EQU PDRKPID 02760000 PDRKRCTY EQU PDRGRP 02761000 SEVXP EQU SEVX+8 02762000 @NM00077 EQU SEVX+7 02763000 SEVIF8 EQU SEVIF 02764000 SEVIF7 EQU SEVIF 02765000 SEVIF6 EQU SEVIF 02766000 SEVIF5 EQU SEVIF 02767000 SEVIF4 EQU SEVIF 02768000 SEVIF3 EQU SEVIF 02769000 SEVIF2 EQU SEVIF 02770000 SEVIL EQU SEVX+4 02771000 @NM00076 EQU OWNX+7 02772000 OWNIF8 EQU OWNIF 02773000 OWNIF7 EQU OWNIF 02774000 OWNIF6 EQU OWNIF 02775000 OWNIF5 EQU OWNIF 02776000 OWNIF4 EQU OWNIF 02777000 OWNIF3 EQU OWNIF 02778000 OWNIF2 EQU OWNIF 02779000 OWNIFP EQU OWNIF 02780000 CIDXP EQU CIDX+8 02781000 @NM00075 EQU CIDX+7 02782000 CIDIF8 EQU CIDIF 02783000 CIDIF7 EQU CIDIF 02784000 CIDIF6 EQU CIDIF 02785000 CIDIF5 EQU CIDIF 02786000 CIDIF4 EQU CIDIF 02787000 CIDIF3 EQU CIDIF 02788000 CIDIF2 EQU CIDIF 02789000 CIDIFP EQU CIDIF 02790000 CIDIL EQU CIDX+4 02791000 UFLXP EQU UFLX+8 02792000 @NM00074 EQU UFLX+7 02793000 UFLIF8 EQU UFLIF 02794000 UFLIF7 EQU UFLIF 02795000 UFLIF6 EQU UFLIF 02796000 UFLIF5 EQU UFLIF 02797000 UFLIF4 EQU UFLIF 02798000 UFLIF3 EQU UFLIF 02799000 UFLIF2 EQU UFLIF 02800000 UFLIFP EQU UFLIF 02801000 UFLIL EQU UFLX+4 02802000 SIDXP EQU SIDX+8 02803000 @NM00073 EQU SIDX+7 02804000 SIDIF8 EQU SIDIF 02805000 SIDIF7 EQU SIDIF 02806000 SIDIF6 EQU SIDIF 02807000 SIDIF5 EQU SIDIF 02808000 SIDIF4 EQU SIDIF 02809000 SIDIF3 EQU SIDIF 02810000 SIDIF2 EQU SIDIF 02811000 SIDIFP EQU SIDIF 02812000 SIDIL EQU SIDX+4 02813000 GRPXP EQU GRPX+8 02814000 @NM00072 EQU GRPX+7 02815000 GRPIF8 EQU GRPIF 02816000 GRPIF7 EQU GRPIF 02817000 GRPIF6 EQU GRPIF 02818000 GRPIF5 EQU GRPIF 02819000 GRPIF4 EQU GRPIF 02820000 GRPIF3 EQU GRPIF 02821000 GRPIF2 EQU GRPIF 02822000 GRPIFP EQU GRPIF 02823000 GRPIL EQU GRPX+4 02824000 PRBXP EQU PRBX+16 02825000 @NM00071 EQU @NM00070+7 02826000 PRBIF8 EQU PRBIF 02827000 PRBIF7 EQU PRBIF 02828000 PRBIF6 EQU PRBIF 02829000 PRBIF5 EQU PRBIF 02830000 PRBIF4 EQU PRBIF 02831000 PRBIF3 EQU PRBIF 02832000 PRBIF2 EQU PRBIF 02833000 PRBIFP EQU PRBIF 02834000 PRBIL EQU @NM00070+4 02835000 PDSP EQU PDDSECT+4 02836000 @NM00069 EQU PDDSECT 02837000 DVT99999 EQU DVT+256 02838000 DVT0064P EQU DVT+252 02839000 DVT0063P EQU DVT+248 02840000 DVT0062P EQU DVT+244 02841000 DVT0061P EQU DVT+240 02842000 DVT0060P EQU DVT+236 02843000 DVT0059P EQU DVT+232 02844000 DVT0058P EQU DVT+228 02845000 DVT0057P EQU DVT+224 02846000 DVT0056P EQU DVT+220 02847000 DVT0055P EQU DVT+216 02848000 DVT0054P EQU DVT+212 02849000 DVT0053P EQU DVT+208 02850000 DVT0052P EQU DVT+204 02851000 DVT0051P EQU DVT+200 02852000 DVT0050P EQU DVT+196 02853000 DVT0049P EQU DVT+192 02854000 DVT0048P EQU DVT+188 02855000 DVT0047P EQU DVT+184 02856000 DVT0046P EQU DVT+180 02857000 DVT0045P EQU DVT+176 02858000 DVT0044P EQU DVT+172 02859000 DVT0043P EQU DVT+168 02860000 DVT0042P EQU DVT+164 02861000 DVT0041P EQU DVT+160 02862000 DVT0040P EQU DVT+156 02863000 DVT0039P EQU DVT+152 02864000 DVT0038P EQU DVT+148 02865000 DVT0037P EQU DVT+144 02866000 DVT0036P EQU DVT+140 02867000 DVT0035P EQU DVT+136 02868000 DVT0034P EQU DVT+132 02869000 DVT0011P EQU DVT+40 02870000 DVT0005P EQU DVT+16 02871000 DVT0002P EQU DVT+4 02872000 DVT0001P EQU DVT 02873000 BVT99999 EQU BVT+256 02874000 BVT0064P EQU BVT+252 02875000 BVT0063P EQU BVT+248 02876000 BVT0062P EQU BVT+244 02877000 BVT0061P EQU BVT+240 02878000 BVT0060P EQU BVT+236 02879000 BVT0059P EQU BVT+232 02880000 BVT0057P EQU BVT+224 02881000 BVT0056P EQU BVT+220 02882000 BVTSTBLP EQU BVT+200 02883000 BVT0045P EQU BVT+176 02884000 BVT0044P EQU BVT+172 02885000 BVT0033P EQU BVT+128 02886000 BVT0032P EQU BVT+124 02887000 BVT0031P EQU BVT+120 02888000 BVT0030P EQU BVT+116 02889000 BVT0029P EQU BVT+112 02890000 BVT0026P EQU BVT+100 02891000 BVT0025P EQU BVT+96 02892000 BVT0024P EQU BVT+92 02893000 BVT0023P EQU BVT+88 02894000 BVT0016P EQU BVT+60 02895000 BVT0015P EQU BVT+56 02896000 BVT0014P EQU BVT+52 02897000 BVT0003P EQU BVT+8 02898000 BVT0001P EQU BVT 02899000 SA99 EQU SA+72 02900000 SARC EQU SAR+56 02901000 SARB EQU SAR+52 02902000 SARA EQU SAR+48 02903000 SAR9 EQU SAR+44 02904000 SAR8 EQU SAR+40 02905000 SAR7 EQU SAR+36 02906000 SAR6 EQU SAR+32 02907000 SAR5 EQU SAR+28 02908000 SAR4 EQU SAR+24 02909000 SAR3 EQU SAR+20 02910000 SAR2 EQU SAR+16 02911000 SAR1 EQU SAR+12 02912000 SAR0 EQU SAR+8 02913000 SARF EQU SAR+4 02914000 SARE EQU SAR 02915000 SAFWD EQU SA+8 02916000 SABAK EQU SA+4 02917000 SA1L EQU SA1+1 02918000 SA1P EQU SA1 02919000 UPTPREFL EQU UPT+23 02920000 UPTPREFX EQU UPT+16 02921000 @NM00068 EQU UPT+15 02922000 UPTLDEL EQU UPT+14 02923000 UPTCDEL EQU UPT+13 02924000 UPTWTP EQU UPTSWS 02925000 UPTMODE EQU UPTSWS 02926000 UPTALD EQU UPTSWS 02927000 UPTPAUS EQU UPTSWS 02928000 UPTNCOM EQU UPTSWS 02929000 UPTMID EQU UPTSWS 02930000 UPTNPRM EQU UPTSWS 02931000 UPTRCVR EQU UPTSWS 02932000 UPTUSER EQU UPT+2 02933000 @NM00067 EQU UPT 02934000 @NM00066 EQU ECT+52 02935000 @NM00065 EQU ECT+48 02936000 @NM00064 EQU ECT+44 02937000 @NM00063 EQU ECTSWS2+1 02938000 @NM00062 EQU ECTSWS21 02939000 ECTTABND EQU ECTSWS21 02940000 ECTDEFCS EQU ECTSWS21 02941000 ECTBKPB EQU ECT+36 02942000 ECTUSER EQU ECT+32 02943000 ECTDDNUM EQU ECT+29 02944000 ECTATTN EQU ECTSWS 02945000 ECTBKGRD EQU ECTSWS 02946000 ECTNNOT EQU ECTSWS 02947000 ECTNMAL EQU ECTSWS 02948000 ECTLOGF EQU ECTSWS 02949000 ECTATRM EQU ECTSWS 02950000 @NM00061 EQU ECTSWS 02951000 ECTNOPD EQU ECTSWS 02952000 ECTSCMD EQU ECT+20 02953000 ECTPCMD EQU ECT+12 02954000 ECTSMSG EQU ECT+9 02955000 ECTMSGF EQU ECT+8 02956000 ECTIOWA EQU ECT+4 02957000 ECTRTCD EQU ECT+1 02958000 ECTRCDF EQU ECT 02959000 PSCBU EQU PSCB+64 02960000 PSCBRSZ EQU PSCB+60 02961000 PSCBLINE EQU PSCB+59 02962000 PSCBCHAR EQU PSCB+58 02963000 PSCBUPTL EQU PSCB+56 02964000 PSCBUPT EQU PSCB+52 02965000 PSCBRLGB EQU PSCB+48 02966000 PSCBDEST EQU PSCB+40 02967000 @NM00060 EQU PSCB+36 02968000 @NM00059 EQU PSCB+32 02969000 @NM00058 EQU PSCB+28 02970000 PSCBLTI2 EQU PSCB+24 02971000 PSCBLTIM EQU PSCB+20 02972000 PSCBATR2 EQU PSCB+18 02973000 @NM00057 EQU PSCBATR1 02974000 @NM00056 EQU PSCBATR1 02975000 @NM00055 EQU PSCBATR1 02976000 PSCBATTN EQU PSCBATR1 02977000 PSCBVMNT EQU PSCBATR1 02978000 PSCBJCL EQU PSCBATR1 02979000 PSCBACCT EQU PSCBATR1 02980000 PSCBCTRL EQU PSCBATR1 02981000 PSCBGPNM EQU PSCB+8 02982000 PSCBUSRL EQU PSCB+7 02983000 CMDT1 EQU CMDT 02984000 CMDO EQU CMD+2 02985000 CMDL EQU CMD 02986000 ZZ299999 EQU ZZ2+8192 02987000 ZZ2AXOT1 EQU ZZ2AXOT 02988000 ZZ2AXOL EQU ZZ2AXO 02989000 @NM00054 EQU ZZ2+7288 02990000 @NM00053 EQU ZZ2AMDX+4 02991000 ZZ2AMDXC EQU ZZ2AMDX 02992000 ZZ2HSD EQU ZZ2+3056 02993000 @NM00052 EQU ZZ2ES 02994000 @NM00051 EQU ZZ2+2868 02995000 ZZ2ITSEC EQU ZZ2ITSE+1 02996000 @NM00050 EQU ZZ2ITSE 02997000 ZZ2ITSEP EQU ZZ2ITSE 02998000 ZZ2ITSEW EQU ZZ2ITSE 02999000 @NM00049 EQU ZZ2ITR+20 03000000 ZZ2ITREC EQU ZZ2ITRE+1 03001000 @NM00048 EQU ZZ2ITRE 03002000 ZZ2ITREP EQU ZZ2ITRE 03003000 ZZ2ITREW EQU ZZ2ITRE 03004000 @NM00047 EQU ZZ2ITR+9 03005000 ZZ2ITRRC EQU ZZ2ITR+8 03006000 ZZ2ITR2P EQU ZZ2ITR+4 03007000 ZZ2ITRPP EQU ZZ2ITR 03008000 @NM00046 EQU ZZ2+1544 03009000 ZZ2PGM EQU ZZ2+1536 03010000 @NM00045 EQU ZZ2+1526 03011000 ZZ2CW EQU ZZ2+1524 03012000 @NM00044 EQU ZZ2+1504 03013000 @NM00043 EQU ZZ2+1352 03014000 ZZ2FFSYP EQU ZZ2+1348 03015000 ZZ2SASYP EQU ZZ2+1344 03016000 ZZ2RDSYP EQU ZZ2+1340 03017000 ZZ2RASYP EQU ZZ2+1336 03018000 ZZ2PHSYP EQU ZZ2+1332 03019000 ZZ2ESSYP EQU ZZ2+1328 03020000 ZZ200SYP EQU ZZ2+1324 03021000 ZZ2SCWP EQU ZZ2+1320 03022000 ZZ2TTLP EQU ZZ2+1316 03023000 ZZ2LOADP EQU ZZ2+1312 03024000 ZZ2VRESP EQU ZZ2+1308 03025000 ZZ2CPPLE EQU ZZ2CPPL+12 03026000 ZZ2CPPLP EQU ZZ2CPPL+8 03027000 ZZ2CPPLU EQU ZZ2CPPL+4 03028000 ZZ2VRSAP EQU ZZ2+1288 03029000 ZZ2RVTP EQU ZZ2+1284 03030000 @NM00042 EQU ZZ2+1272 03031000 @NM00041 EQU ZZ2+1268 03032000 ZZ2RPLP EQU ZZ2+1260 03033000 ZZ2TCBP EQU ZZ2+1256 03034000 @NM00040 EQU ZZ2+1252 03035000 ZZ2ZZ2P EQU ZZ2+1248 03036000 @NM00039 EQU ZZ2+1112 03037000 @NM00038 EQU ZZ2+1080 03038000 ZZ2FT25P EQU ZZ2+1072 03039000 @NM00037 EQU ZZ2+976 03040000 ZZ2TOD EQU ZZ2+968 03041000 ZZ2STGN EQU ZZ2STG+4 03042000 ZZ2STGP EQU ZZ2STG 03043000 @NM00036 EQU ZZ2+952 03044000 ZZ2SCMDE EQU ZZ2+944 03045000 ZZ2SCMDN EQU ZZ2+936 03046000 ZZ2IDENT EQU ZZ2+928 03047000 ZZ2A9999 EQU ZZ2A+656 03048000 @NM00035 EQU ZZ2A+224 03049000 @NM00034 EQU ZZ2A+220 03050000 ZZ2AQD99 EQU ZZ2AQD+60 03051000 @NM00033 EQU ZZ2AQD+56 03052000 @NM00032 EQU ZZ2AQDF 03053000 ZZ2AQDFA EQU ZZ2AQDF 03054000 ZZ2AQDIL EQU ZZ2AQD+48 03055000 ZZ2AQDIM EQU ZZ2AQD+44 03056000 ZZ2AQDT9 EQU ZZ2AQDT+34 03057000 ZZ2AQDTE EQU ZZ2AQDT+33 03058000 ZZ2AQDTD EQU ZZ2AQDT+2 03059000 @NM00031 EQU ZZ2AQDT+1 03060000 ZZ2AQDTY EQU ZZ2AQDT 03061000 ZZ2AQDT0 EQU ZZ2AQDT 03062000 ZZ2AQDLB EQU ZZ2AQD+9 03063000 ZZ2AQDOB EQU ZZ2AQD+8 03064000 ZZ2AQDLE EQU ZZ2AQD+4 03065000 ZZ2AQDOF EQU ZZ2AQD 03066000 ZZ2AQD00 EQU ZZ2AQD 03067000 ZZ2AQAS9 EQU ZZ2AQAS+16 03068000 @NM00030 EQU ZZ2AQAS+12 03069000 ZZ2AQAS2 EQU ZZ2AQAS+8 03070000 ZZ2AQAS1 EQU ZZ2AQAS+4 03071000 @NM00029 EQU ZZ2AQAS+2 03072000 ZZ2AQAST EQU ZZ2AQAS 03073000 ZZ2AQAS0 EQU ZZ2AQAS 03074000 ZZ2AZZ6P EQU ZZ2A+140 03075000 ZZ2ADPTA EQU ZZ2ADPT 03076000 ZZ2ADPL EQU ZZ2ADP 03077000 ZZ2ADMTA EQU ZZ2ADMT 03078000 ZZ2ADML EQU ZZ2ADM 03079000 ZZ2ADDTA EQU ZZ2ADDT 03080000 ZZ2ADDL EQU ZZ2ADD 03081000 @NM00028 EQU ZZ2A+72 03082000 ZZ2APIDB EQU ZZ2APID+3 03083000 ZZ2APIDA EQU ZZ2APID 03084000 @NM00027 EQU ZZ2A+24 03085000 @NM00026 EQU ZZ2AF+5 03086000 @NM00025 EQU ZZ2AF+3 03087000 ZZ2AFS EQU ZZ2AF+2 03088000 ZZ2AFD EQU ZZ2AF+2 03089000 ZZ2AFQ EQU ZZ2AF+2 03090000 ZZ2AF$ EQU ZZ2AF+2 03091000 @NM00024 EQU ZZ2AF+2 03092000 ZZ2AFM EQU ZZ2AF+2 03093000 @NM00023 EQU ZZ2AF+2 03094000 @NM00022 EQU ZZ2AF+1 03095000 ZZ2AFV EQU ZZ2AF+1 03096000 @NM00021 EQU ZZ2AF+1 03097000 ZZ2AFC EQU ZZ2AF+1 03098000 @NM00020 EQU ZZ2AF 03099000 ZZ2AFFS EQU ZZ2AF 03100000 ZZ2AFT EQU ZZ2AF 03101000 ZZ2AFP EQU ZZ2AF 03102000 @NM00019 EQU ZZ2A+8 03103000 ZZ2ALINE EQU ZZ2A+4 03104000 @NM00018 EQU ZZ2A+3 03105000 ZZ2ASE EQU ZZ2A+2 03106000 ZZ2ACH EQU ZZ2A 03107000 @NM00017 EQU ZZ2+264 03108000 @NM00016 EQU ZZ2+263 03109000 ZZ2PRTT0 EQU ZZ2PRTT 03110000 ZZ2PRTO EQU ZZ2PRT+2 03111000 ZZ2PRTL EQU ZZ2PRT 03112000 @NM00015 EQU ZZ2AMD+56 03113000 ZZ2AMDXP EQU ZZ2AMD+52 03114000 ZZ2AMDD EQU ZZ2AMD+48 03115000 ZZ2AMDL EQU ZZ2AMD+44 03116000 ZZ2AMDU EQU ZZ2AMD+28 03117000 ZZ2AMDF EQU ZZ2AMD+24 03118000 ZZ2AMDS EQU ZZ2AMD+20 03119000 ZZ2AMDC EQU ZZ2AMD+16 03120000 ZZ2AMDP EQU ZZ2AMD+12 03121000 ZZ2AMDB EQU ZZ2AMD+8 03122000 @NM00014 EQU @NM00013 03123000 ZZ2AMD2 EQU @NM00013 03124000 ZZ2AMD1 EQU @NM00013 03125000 ZZ2AMD0 EQU ZZ2AMD+6 03126000 ZZ2AMDA EQU ZZ2AMD+4 03127000 ZZ2AMDT EQU ZZ2AMD 03128000 ZZ199999 EQU ZZ1+3072 03129000 @NM00012 EQU ZZ1+2160 03130000 ZZ1TRTAS EQU ZZ1+1904 03131000 ZZ1TRUPC EQU ZZ1+1648 03132000 ZZ1TRCTX EQU ZZ1+1392 03133000 ZZ1NASID EQU ZZ1N+274 03134000 ZZ1NSTRL EQU ZZ1N+272 03135000 ZZ1NOFF EQU ZZ1N+268 03136000 ZZ1NBDY EQU ZZ1N+264 03137000 ZZ1NADE EQU ZZ1N+260 03138000 ZZ1NADB EQU ZZ1N+256 03139000 ZZ1NSTR EQU ZZ1N 03140000 @NM00011 EQU ZZ1+1080 03141000 ZZ1TREBC EQU ZZ1+824 03142000 ZZ1TRHEX EQU ZZ1+568 03143000 @NM00010 EQU ZZ1+377 03144000 ZZ1USTAE EQU ZZ1+376 03145000 @NM00009 EQU ZZ1F+1 03146000 @NM00008 EQU ZZ1F 03147000 ZZ1FM EQU ZZ1F 03148000 ZZ1FX EQU ZZ1F 03149000 ZZ1FU EQU ZZ1F 03150000 ZZ1EVEC EQU ZZ1EVE+1 03151000 @NM00007 EQU ZZ1EVE 03152000 ZZ1EVEP EQU ZZ1EVE 03153000 ZZ1EVEW EQU ZZ1EVE 03154000 ZZ1ACMP EQU ZZ1ATTN 03155000 @NM00006 EQU ZZ1+144 03156000 ZZ1FPP EQU ZZ1+140 03157000 ZZ1ZZ6P EQU ZZ1+136 03158000 @NM00005 EQU ZZ1+84 03159000 ZZ1PLINE EQU ZZ1+80 03160000 ZZ1PGSZ EQU ZZ1+76 03161000 ZZ1PCNT EQU ZZ1+72 03162000 @NM00004 EQU ZZ1+68 03163000 ZZ1TPAGE EQU ZZ1+64 03164000 ZZ1TLINE EQU ZZ1+60 03165000 @NM00003 EQU ZZ1+52 03166000 ZZ1DMCBP EQU ZZ1+48 03167000 ZZ1DSDP EQU ZZ1+44 03168000 ZZ1PDRP EQU ZZ1+40 03169000 ZZ1ZZ2P EQU ZZ1+36 03170000 ZZ1327WP EQU ZZ1+32 03171000 ZZ1ACBP EQU ZZ1+28 03172000 @NM00002 EQU ZZ1+24 03173000 ZZ1PDCBP EQU ZZ1+20 03174000 ZZ1BLRBL EQU ZZ1+16 03175000 @NM00001 EQU ZZ1+12 03176000 ZZ1PNULL EQU ZZ1+8 03177000 ZZ1NULL EQU ZZ1+4 03178000 ZZ1IDE EQU ZZ1 03179000 * END UNREFERENCED COMPONENTS 03180000 @RT00500 EQU EXITRLSA 03181000 @RC00672 EQU @EL00002 03182000 @RC00689 EQU @EL00003 03183000 @RC00700 EQU @EL00004 03184000 @RC00733 EQU @EL00005 03185000 @RF00766 EQU @EL00006 03186000 @RF00779 EQU @EL00006 03187000 @RC00822 EQU @EL00008 03188000 @RF00746 EQU @RC00733 03189000 @ENDDATA EQU * 03190000 END BLSELP00,(C'PLS1346',0701,78065) 03191000