ADPR TITLE 'BLSEADPR- ADD PROBLEM TO IPCS DATA BASE *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * 01/31/78 PTM 7638 00004000 * 02/09/78 PTM 7668 00005000 * 02/14/78 PTM 7755 00006000 * 03/07/78 PTM 7812 00007000 * THIS MODULE IS WRITTEN FOR @G57LPJD 00008000 BLSEADPR CSECT , 0002 00009000 @MAINENT DS 0H 0002 00010000 USING *,@15 0002 00011000 B @PROLOG 0002 00012000 DC AL1(16) 0002 00013000 DC C'BLSEADPR 78.067' 0002 00014000 DROP @15 00015000 @PROLOG STM @14,@12,12(@13) 0002 00016000 BALR @12,0 0002 00017000 @PSTART LA @10,4095(,@12) 0002 00018000 USING @PSTART,@12 0002 00019000 USING @PSTART+4095,@10 0002 00020000 L @00,@SIZDATD 0002 00021000 BLSUALLR R,LV=(0) 00022000 LR @11,@01 0002 00023000 USING @DATD,@11 0002 00024000 ST @13,@SA00001+4 0002 00025000 LM @00,@01,20(@13) 0002 00026000 ST @11,8(,@13) 0002 00027000 LR @13,@11 0002 00028000 *BLREXTRN - IDENTIFY EXTERNAL REFERENCES 00029000 EXTRN BLSDDT00 00030000 EXTRN BLSDTM00 00031000 EXTRN BLSDSV00 00032000 EXTRN BLSDC070 00033000 EXTRN BLSDC600 00034000 EXTRN BLSDC128 00035000 * ZZ2PTR=R1; /* GET TASK VARIABLE */ 00036000 LR ZZ2PTR,R1 0369 00037000 * RESPECIFY 0370 00038000 * R1 UNRESTRICTED; /* FINISHED WITH REG1 */ 00039000 * RETC=0; /* INITIALIZE THE RETC */ 00040000 SLR RETC,RETC 0371 00041000 SPACE 1 00042000 * DO; /* BLSUPARS MF(E,PX) */ 00043000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00044000 ST ZZ2PTR,@AL00001 0373 00045000 L @01,PCPTR 0373 00046000 ST @01,@AL00001+4 0373 00047000 LA @15,PDAPTR 0373 00048000 ST @15,@AL00001+8 0373 00049000 L @01,ZZ2BVTP(,ZZ2PTR) 0373 00050000 L @15,BVTPARIP(,@01) 0373 00051000 LA @01,@AL00001 0373 00052000 BALR @14,@15 0373 00053000 * RESPECIFY 0374 00054000 * (GPR15F) RESTRICTED; 0374 00055000 * IF GPR15F^=ZZZFLAGI THEN 0375 00056000 * 0375 00057000 LTR GPR15F,GPR15F 0375 00058000 BZ @RF00375 0375 00059000 * /*************************************************************/ 00060000 * /* */ 00061000 * /* UNABLE TO PARSE */ 00062000 * /* */ 00063000 * /*************************************************************/ 00064000 * 0376 00065000 * DO; /* UNABLE TO PARSE */ 00066000 * RETC=GPR15F; /* RETURN CODE */ 00067000 LR RETC,GPR15F 0377 00068000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00069000 B EXITNORL 0378 00070000 * END; 0379 00071000 * RESPECIFY 0380 00072000 * (GPR15F) UNRESTRICTED; 0380 00073000 @RF00375 DS 0H 0381 00074000 * RESPECIFY 0381 00075000 * (PDRPTR) RESTRICTED; 0381 00076000 * PDRPTR=PDAPTR; /* ->PDL */ 00077000 L PDRPTR,PDAPTR 0382 00078000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0383 00079000 USING PD,PDRPTR 00080000 * IF PXTEST=PXTEST1 THEN 0384 00081000 CLC PXTEST(2),@CH00041 0384 00082000 BNE @RF00384 0384 00083000 * ZZ2AFX=ZZZ1; /* TEST */ 00084000 OI ZZ2AFX(ZZ2PTR),B'10000000' 0385 00085000 * ELSE 0386 00086000 * IF PXTEST=PXTEST0 THEN 0386 00087000 B @RC00384 0386 00088000 @RF00384 CLC PXTEST(2),@CH00068 0386 00089000 BNE @RF00386 0386 00090000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00091000 NI ZZ2AFX(ZZ2PTR),B'01111111' 0387 00092000 * END; /* BLSUPARS MF(E,PX) ISSUE THE 0388 00093000 * CALL TO IKJPARSE */ 00094000 @RF00386 DS 0H 0388 00095000 @RC00384 DS 0H 0389 00096000 EJECT 00097000 * 0389 00098000 */********************************************************************/ 00099000 */* */ 00100000 */* COMMAND PROCESSOR CODE BEGINS */ 00101000 */* */ 00102000 */********************************************************************/ 00103000 * 0389 00104000 * MSGPTR=0; /* CLEAR MESSAGE POINTER */ 00105000 SLR @04,@04 0389 00106000 ST @04,MSGPTR 0389 00107000 * CALL BLSDTIME(ZZ2,CURTIME,CURDATE);/* GET CURRENT TIME AND DATE */ 00108000 ST ZZ2PTR,@AL00001 0390 00109000 LA @04,CURTIME 0390 00110000 ST @04,@AL00001+4 0390 00111000 LA @04,CURDATE 0390 00112000 ST @04,@AL00001+8 0390 00113000 L @15,@CV01347 0390 00114000 LA @01,@AL00001 0390 00115000 BALR @14,@15 0390 00116000 * RESPECIFY 0391 00117000 * RF RESTRICTED; 0391 00118000 * IF RF^=0 THEN /* CHECK RETURN CODE */ 00119000 LTR RF,RF 0392 00120000 BZ @RF00392 0392 00121000 * DO; /* SOMETHING IS WRONG WITH TIME */ 00122000 * RESPECIFY 0394 00123000 * RF UNRESTRICTED; 0394 00124000 * CURTIME=''; /* SET TIME TO BLANKS */ 00125000 MVI CURTIME,C' ' 0395 00126000 MVC CURTIME+1(7),CURTIME 0395 00127000 * CURDATE=''; /* SET DATE TO BLANKS */ 00128000 MVI CURDATE,C' ' 0396 00129000 MVC CURDATE+1(7),CURDATE 0396 00130000 * END; 0397 00131000 * ELSE 0398 00132000 * ; /* TIME AND DATE ARE OK */ 00133000 @RF00392 DS 0H 0399 00134000 * CALL OPEN; /* OPEN THE PROBLEM DIRECTORY */ 00135000 BAL @14,OPEN 0399 00136000 * IF RETC=0 THEN 0400 00137000 LTR RETC,RETC 0400 00138000 BNZ @RF00400 0400 00139000 * CALL SEG1; /* OPEN IS OK */ 00140000 BAL @14,SEG1 0401 00141000 * ELSE 0402 00142000 * ; 0402 00143000 @RF00400 DS 0H 0403 00144000 EJECT 00145000 *EXITRLSA: 0403 00146000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(EXECUTE,PD) */ 00147000 EXITRLSA B @DE00403 0403 00148000 @DL00403 DS 0H 0404 00149000 * PDRPTR=PDAPTR; 0404 00150000 L PDRPTR,PDAPTR 0404 00151000 * PDAPTR=PDXP; 0405 00152000 L @06,PDXP-1(,PDRPTR) 0405 00153000 LA @06,0(,@06) 0405 00154000 ST @06,PDAPTR 0405 00155000 * DO; /* FREEMAIN(R) 0406 00156000 * LV(PDL)SP(1)A(PDDSECT) */ 00157000 * RESPECIFY 0407 00158000 * (GPR01F, 0407 00159000 * GPR00F) RESTRICTED; 0407 00160000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00161000 L GPR00F,PDL-1(,PDRPTR) 0408 00162000 ICM GPR00F,8,@CB01629 0408 00163000 * GPR01F=1; /* SP IN REG 1 */ 00164000 LA GPR01F,1 0409 00165000 * GEN(SLL GPR01F,24) 0410 00166000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0410 00167000 SLL GPR01F,24 00168000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00169000 OR GPR00F,GPR01F 0411 00170000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00171000 LR GPR01F,PDRPTR 0412 00172000 * SVC(10); /* R-FORM OF GETMAIN */ 00173000 SVC 10 0413 00174000 * RESPECIFY 0414 00175000 * (GPR01F, 0414 00176000 * GPR00F) UNRESTRICTED; 0414 00177000 * END; /* FREEMAIN(R) 0415 00178000 * LV(PDL)SP(1)A(PDDSECT) */ 00179000 * END; /* BLRRLSA MF(EXECUTE,PD) FREE 0416 00180000 * PARSE PARAMETER LIST */ 00181000 @DE00403 L @06,PDAPTR 0416 00182000 LTR @06,@06 0416 00183000 BNZ @DL00403 0416 00184000 * RETURN CODE(RETC); /* RETURN TO CALLING PROGRAM 0417 00185000 * NORMAL EXIT */ 00186000 L @13,4(,@13) 0417 00187000 L @00,@SIZDATD 0417 00188000 LR @01,@11 0417 00189000 BLSUFRER R,LV=(0),A=(1) 00190000 LR @15,@07 0417 00191000 L @14,12(,@13) 0417 00192000 LM @00,@12,20(@13) 0417 00193000 BR @14 0417 00194000 SPACE 1 00195000 *EXITNORL: 0418 00196000 * RETURN CODE(RETC); /* RETURN TO THE CALLER BAD 0418 00197000 * RETURN CODE */ 00198000 EXITNORL L @13,4(,@13) 0418 00199000 L @00,@SIZDATD 0418 00200000 LR @01,@11 0418 00201000 BLSUFRER R,LV=(0),A=(1) 00202000 LR @15,@07 0418 00203000 L @14,12(,@13) 0418 00204000 LM @00,@12,20(@13) 0418 00205000 BR @14 0418 00206000 EJECT 00207000 *OPEN: 0419 00208000 * PROCEDURE; 0419 00209000 OPEN STM @14,@06,@SA00002 0419 00210000 STM @08,@12,@SA00002+36 0419 00211000 * DO; /* BLSOPEN(ZZ1PDRP)OUTPUT */ 00212000 * RFY 0421 00213000 * GPR01P RSTD; 0421 00214000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 00215000 L @04,ZZ2ZZ1P(,ZZ2PTR) 0422 00216000 L GPR01P,ZZ1PDRP(,@04) 0422 00217000 * RFY 0423 00218000 * DMCB BASED(GPR01P); 0423 00219000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00220000 * THEN 0424 00221000 LR @04,GPR01P 0424 00222000 N @04,@CF01517 0424 00223000 CLR @04,GPR01P 0424 00224000 BNE @RF00424 0424 00225000 CLC DMCBID(4,GPR01P),@CC01518 0424 00226000 BNE @RF00424 0424 00227000 * DO; 0425 00228000 * DMCBRQST=DMCBOPR; /* INDICATE OPEN REQUEST */ 00229000 MVI DMCBRQST(GPR01P),X'01' 0426 00230000 * DMCBOUT='1'B; /* INDICATE OPEN FOR OUTPUR */ 00231000 OI DMCBOUT(GPR01P),B'10000000' 0427 00232000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00233000 L @15,DMCBRI(,GPR01P) 0428 00234000 BALR @14,@15 0428 00235000 * END; 0429 00236000 * ELSE 0430 00237000 * DO; 0430 00238000 B @RC00424 0430 00239000 @RF00424 DS 0H 0431 00240000 * RFY 0431 00241000 * (GPR00F, 0431 00242000 * GPR15F) RSTD; 0431 00243000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00244000 SLR GPR00F,GPR00F 0432 00245000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00246000 LA GPR15F,16 0433 00247000 * RFY 0434 00248000 * (GPR00F, 0434 00249000 * GPR15F); 0434 00250000 * END; 0435 00251000 * RFY 0436 00252000 * DMCB; 0436 00253000 @RC00424 DS 0H 0437 00254000 * RFY 0437 00255000 * GPR01P; 0437 00256000 * END; /* BLSOPEN(ZZ1PDRP)OUTPUT OPEN 0438 00257000 * PROBLEM DIRECTORY */ 00258000 * RESPECIFY 0439 00259000 * RF RESTRICTED; 0439 00260000 * IF RF^=0 THEN /* IF OPEN NOT OK */ 00261000 LTR RF,RF 0440 00262000 BZ @RF00440 0440 00263000 * DO; 0441 00264000 * IF RF=16 THEN /* IF INVALID DMCB */ 00265000 C RF,@CF00052 0442 00266000 BNE @RF00442 0442 00267000 * DO; /* ABEND(147) DUMP */ 00268000 * RESPECIFY 0444 00269000 * (GPR01F) RESTRICTED; 0444 00270000 * GPR01F=147; /* COMP CODE IN REG 1 */ 00271000 LA GPR01F,147 0445 00272000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00273000 O GPR01F,@CF00061 0446 00274000 * SVC(13); /* ISSUE ABEND SVC */ 00275000 SVC 13 0447 00276000 * RESPECIFY 0448 00277000 * (GPR01F) UNRESTRICTED; 0448 00278000 * END; /* ABEND(147) DUMP QUIT RIGHT 0449 00279000 * HERE */ 00280000 * ELSE 0450 00281000 * ; 0450 00282000 @RF00442 DS 0H 0451 00283000 * RETC=RF; 0451 00284000 LR RETC,RF 0451 00285000 * RESPECIFY 0452 00286000 * RF UNRESTRICTED; 0452 00287000 * DO; /* BLSDMSG 0453 00288000 * (ZZ2,04042,DMCBMSG,BLSDMSGS) 00289000 * ROUTE(BOTH)LIFO */ 00290000 * CALL BLSDMSG0(ZZ2,04042,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00291000 * BUILD MESSAGE */ 00292000 ST ZZ2PTR,@AL00001 0454 00293000 LA @04,@CF01520 0454 00294000 ST @04,@AL00001+4 0454 00295000 L @04,ZZ2ZZ1P(,ZZ2PTR) 0454 00296000 L @04,ZZ1PDRP(,@04) 0454 00297000 LA @04,DMCBMSG(,@04) 0454 00298000 ST @04,@AL00001+8 0454 00299000 L @04,ZZ2MSGSP(,ZZ2PTR) 0454 00300000 ST @04,@AL00001+12 0454 00301000 LA @04,@CB01521 0454 00302000 ST @04,@AL00001+16 0454 00303000 LA @04,@CF00046 0454 00304000 ST @04,@AL00001+20 0454 00305000 L @15,ZZ2MSG0P(,ZZ2PTR) 0454 00306000 LA @01,@AL00001 0454 00307000 BALR @14,@15 0454 00308000 * END; /* BLSDMSG 0455 00309000 * (ZZ2,04042,DMCBMSG,BLSDMSGS) 00310000 * ROUTE(BOTH)LIFO */ 00311000 * END; 0456 00312000 * ELSE 0457 00313000 * ; 0457 00314000 @RF00440 DS 0H 0458 00315000 * END OPEN; 0458 00316000 @EL00002 DS 0H 0458 00317000 @EF00002 DS 0H 0458 00318000 @ER00002 LM @14,@06,@SA00002 0458 00319000 LM @08,@12,@SA00002+36 0458 00320000 BR @14 0458 00321000 EJECT 00322000 *SEG1: 0459 00323000 * PROCEDURE; 0459 00324000 SEG1 STM @14,@06,@SA00003 0459 00325000 STM @08,@12,@SA00003+36 0459 00326000 * BUFPTR=ADDR(BUF1); /* SET POINTER TO MYBUF */ 00327000 LA BUFPTR,BUF1 0460 00328000 * PDRKRCTY=PDRSVALC; /* SET TO READ SEED RECORD */ 00329000 MVC PDRKRCTY(2,BUFPTR),@CC01262 0461 00330000 * PDRKPREF=FPDBPIDP; /* SET PROBLEM PREFIX IN KEY */ 00331000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0462 00332000 L @09,ZZ1FPP(,@09) 0462 00333000 MVC PDRKPREF(3,BUFPTR),FPDBPIDP(@09) 0462 00334000 * PDRKPNUM='00000'; /* SET PROBLEM NUMBER IN KEY */ 00335000 MVC PDRKPNUM(5,BUFPTR),@CC01525 0463 00336000 * PDRRECSQ='0000'; /* SET RECORD SEQUENCE NUMBER */ 00337000 MVC PDRRECSQ(4,BUFPTR),@CC01526 0464 00338000 * CALL SEG3; /* CONTINUE PROCESSING */ 00339000 BAL @14,SEG3 0465 00340000 * CALL CLOSE; 0466 00341000 BAL @14,CLOSE 0466 00342000 * IF RETC=0 THEN 0467 00343000 SLR @09,@09 0467 00344000 CR RETC,@09 0467 00345000 BNE @RF00467 0467 00346000 * DO; /* NO PROBLEM */ 00347000 * DO; /* BLSDMSG 0469 00348000 * (ZZ2,05100,MSGPTR,BLSDMSGS) IN 00349000 * SERT(FPPIDP,PDRKPNUM)ROUTE(BOT 00350000 * H) */ 00351000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00352000 LA @04,IOPTLIST+12 0470 00353000 ST @04,IOPTLIST 0470 00354000 * IOPTLIST(2)=ADDR(FPPIDP); /* INSERT NAME POINTER */ 00355000 L @04,ZZ2ZZ1P(,ZZ2PTR) 0471 00356000 L @04,ZZ1FPP(,@04) 0471 00357000 LA @04,FPPIDP(,@04) 0471 00358000 ST @04,IOPTLIST+4 0471 00359000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00360000 ST @09,IOPTLIST+8 0472 00361000 * RFY 0473 00362000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00363000 * I015F=LENGTH(FPPIDP); /* INSERT LENGTH */ 00364000 LA @04,IOPTLIST+8 0474 00365000 MVC I015F(2,@04),@CH00094 0474 00366000 * IOPTLIST(4)=0; /* LAST INSERT */ 00367000 ST @09,IOPTLIST+12 0475 00368000 * IOPTLIST(5)=ADDR(PDRKPNUM);/* INSERT NAME POINTER */ 00369000 LA @04,PDRKPNUM(,BUFPTR) 0476 00370000 ST @04,IOPTLIST+16 0476 00371000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00372000 ST @09,IOPTLIST+20 0477 00373000 * RFY 0478 00374000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00375000 * I015F=LENGTH(PDRKPNUM); /* INSERT LENGTH */ 00376000 LA @09,IOPTLIST+20 0479 00377000 MVC I015F(2,@09),@CH00091 0479 00378000 * CALL BLSDMSG0(ZZ2,05100,MSGPTR,BLSDMSGS,'00110000'B,ADDR( 00379000 * IOPTLIST)); /* BUILD MESSAGE */ 00380000 ST ZZ2PTR,@AL00001 0480 00381000 LA @09,@CF01535 0480 00382000 ST @09,@AL00001+4 0480 00383000 LA @09,MSGPTR 0480 00384000 ST @09,@AL00001+8 0480 00385000 L @09,ZZ2MSGSP(,ZZ2PTR) 0480 00386000 ST @09,@AL00001+12 0480 00387000 LA @09,@CB01536 0480 00388000 ST @09,@AL00001+16 0480 00389000 LA @09,IOPTLIST 0480 00390000 ST @09,@AFTEMPS 0480 00391000 LA @09,@AFTEMPS 0480 00392000 ST @09,@AL00001+20 0480 00393000 L @15,ZZ2MSG0P(,ZZ2PTR) 0480 00394000 LA @01,@AL00001 0480 00395000 BALR @14,@15 0480 00396000 * END; /* BLSDMSG 0481 00397000 * (ZZ2,05100,MSGPTR,BLSDMSGS) IN 00398000 * SERT(FPPIDP,PDRKPNUM)ROUTE(BOT 00399000 * H) */ 00400000 * IF DEFLTWD=DEFAULT THEN /* IF DEFAULT KEYWORD PRESENT */ 00401000 CLC DEFLTWD(2),@CH00041 0482 00402000 BNE @RF00482 0482 00403000 * ZZ1ZZ2P->ZZ2APID=PDRKPID; /* SET NEW PROBLEM AS DEFAULT */ 00404000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0483 00405000 L @09,ZZ1ZZ2P(,@09) 0483 00406000 MVC ZZ2APID(8,@09),PDRKPID(BUFPTR) 0483 00407000 * ELSE 0484 00408000 * ; /* LEAVE DEFAULT PROBLEM ALONE */ 00409000 @RF00482 DS 0H 0485 00410000 * END; 0485 00411000 * ELSE 0486 00412000 * IF DEFLTWD=DEFAULT THEN /* IF ADDPROB FAILED AND DEFAULT */ 00413000 B @RC00467 0486 00414000 @RF00467 CLC DEFLTWD(2),@CH00041 0486 00415000 BNE @RF00486 0486 00416000 * DO; /* BLSDMSG 0487 00417000 * (ZZ2,04069,MSGPTR,BLSDMSGS) 0487 00418000 * ROUTE(BOTH) */ 00419000 * CALL BLSDMSG0(ZZ2,04069,MSGPTR,BLSDMSGS,'00110000'B,0);/* 00420000 * BUILD MESSAGE */ 00421000 ST ZZ2PTR,@AL00001 0488 00422000 LA @04,@CF01537 0488 00423000 ST @04,@AL00001+4 0488 00424000 LA @04,MSGPTR 0488 00425000 ST @04,@AL00001+8 0488 00426000 L @04,ZZ2MSGSP(,ZZ2PTR) 0488 00427000 ST @04,@AL00001+12 0488 00428000 LA @04,@CB01536 0488 00429000 ST @04,@AL00001+16 0488 00430000 LA @04,@CF00046 0488 00431000 ST @04,@AL00001+20 0488 00432000 L @15,ZZ2MSG0P(,ZZ2PTR) 0488 00433000 LA @01,@AL00001 0488 00434000 BALR @14,@15 0488 00435000 * END; /* BLSDMSG 0489 00436000 * (ZZ2,04069,MSGPTR,BLSDMSGS) 0489 00437000 * ROUTE(BOTH) TELL USER THAT 0489 00438000 * DEFAULT NOT ESTABLISHED */ 00439000 * ELSE 0490 00440000 * ; 0490 00441000 @RF00486 DS 0H 0491 00442000 * END SEG1; 0491 00443000 @EL00003 DS 0H 0491 00444000 @EF00003 DS 0H 0491 00445000 @ER00003 LM @14,@06,@SA00003 0491 00446000 LM @08,@12,@SA00003+36 0491 00447000 BR @14 0491 00448000 EJECT 00449000 *CLOSE: 0492 00450000 * PROCEDURE; 0492 00451000 CLOSE STM @14,@06,@SA00004 0492 00452000 STM @08,@12,@SA00004+36 0492 00453000 * DO; /* BLSCLOSE(ZZ1PDRP) */ 00454000 * RFY 0494 00455000 * GPR01P RSTD; 0494 00456000 * GPR01P=ZZ1PDRP; /* ADDRESS THE DMCB */ 00457000 L @04,ZZ2ZZ1P(,ZZ2PTR) 0495 00458000 L GPR01P,ZZ1PDRP(,@04) 0495 00459000 * RFY 0496 00460000 * DMCB BASED(GPR01P); 0496 00461000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00462000 * THEN 0497 00463000 LR @04,GPR01P 0497 00464000 N @04,@CF01517 0497 00465000 CLR @04,GPR01P 0497 00466000 BNE @RF00497 0497 00467000 CLC DMCBID(4,GPR01P),@CC01518 0497 00468000 BNE @RF00497 0497 00469000 * DO; 0498 00470000 * DMCBRQST=DMCBCLR; /* INDICATE CLOSE REQUEST */ 00471000 MVI DMCBRQST(GPR01P),X'02' 0499 00472000 * DMCBTMP='0'B; /* INDICATE NON TEMP CLOSE */ 00473000 * DMCBRM6='0'B; /* INDICATE */ 00474000 * DMCBRM5='0'B; /* DISP OPTION */ 00475000 NI DMCBTMP(GPR01P),B'00011111' 0502 00476000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00477000 L @15,DMCBRI(,GPR01P) 0503 00478000 BALR @14,@15 0503 00479000 * END; 0504 00480000 * ELSE 0505 00481000 * DO; 0505 00482000 B @RC00497 0505 00483000 @RF00497 DS 0H 0506 00484000 * RFY 0506 00485000 * (GPR00F, 0506 00486000 * GPR15F) RSTD; 0506 00487000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00488000 SLR GPR00F,GPR00F 0507 00489000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00490000 LA GPR15F,16 0508 00491000 * RFY 0509 00492000 * (GPR00F, 0509 00493000 * GPR15F); 0509 00494000 * END; 0510 00495000 * RFY 0511 00496000 * DMCB; 0511 00497000 @RC00497 DS 0H 0512 00498000 * RFY 0512 00499000 * GPR01P; 0512 00500000 * END; /* BLSCLOSE(ZZ1PDRP) CLOSE 0513 00501000 * PROBLEM DIRECTORY */ 00502000 * RESPECIFY 0514 00503000 * RF RESTRICTED; 0514 00504000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00505000 LTR RF,RF 0515 00506000 BZ @RF00515 0515 00507000 * DO; 0516 00508000 * IF RF=16 THEN /* IF INVALID DMCB */ 00509000 C RF,@CF00052 0517 00510000 BNE @RF00517 0517 00511000 * DO; /* ABEND(147) DUMP */ 00512000 * RESPECIFY 0519 00513000 * (GPR01F) RESTRICTED; 0519 00514000 * GPR01F=147; /* COMP CODE IN REG 1 */ 00515000 LA GPR01F,147 0520 00516000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00517000 O GPR01F,@CF00061 0521 00518000 * SVC(13); /* ISSUE ABEND SVC */ 00519000 SVC 13 0522 00520000 * RESPECIFY 0523 00521000 * (GPR01F) UNRESTRICTED; 0523 00522000 * END; /* ABEND(147) DUMP QUIT RIGHT 0524 00523000 * HERE */ 00524000 * ELSE 0525 00525000 * ; 0525 00526000 @RF00517 DS 0H 0526 00527000 * RETC=RF; /* SAVE RETURN CODE */ 00528000 LR RETC,RF 0526 00529000 * RESPECIFY 0527 00530000 * RF UNRESTRICTED; 0527 00531000 * DO; /* BLSDMSG 0528 00532000 * (ZZ2,04045,DMCBMSG,BLSDMSGS) 00533000 * ROUTE(BOTH)LIFO */ 00534000 * CALL BLSDMSG0(ZZ2,04045,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00535000 * BUILD MESSAGE */ 00536000 ST ZZ2PTR,@AL00001 0529 00537000 LA @04,@CF01542 0529 00538000 ST @04,@AL00001+4 0529 00539000 L @04,ZZ2ZZ1P(,ZZ2PTR) 0529 00540000 L @04,ZZ1PDRP(,@04) 0529 00541000 LA @04,DMCBMSG(,@04) 0529 00542000 ST @04,@AL00001+8 0529 00543000 L @04,ZZ2MSGSP(,ZZ2PTR) 0529 00544000 ST @04,@AL00001+12 0529 00545000 LA @04,@CB01521 0529 00546000 ST @04,@AL00001+16 0529 00547000 LA @04,@CF00046 0529 00548000 ST @04,@AL00001+20 0529 00549000 L @15,ZZ2MSG0P(,ZZ2PTR) 0529 00550000 LA @01,@AL00001 0529 00551000 BALR @14,@15 0529 00552000 * END; /* BLSDMSG 0530 00553000 * (ZZ2,04045,DMCBMSG,BLSDMSGS) 00554000 * ROUTE(BOTH)LIFO */ 00555000 * END; 0531 00556000 * ELSE 0532 00557000 * ; 0532 00558000 @RF00515 DS 0H 0533 00559000 * END CLOSE; 0533 00560000 @EL00004 DS 0H 0533 00561000 @EF00004 DS 0H 0533 00562000 @ER00004 LM @14,@06,@SA00004 0533 00563000 LM @08,@12,@SA00004+36 0533 00564000 BR @14 0533 00565000 EJECT 00566000 *SEG3: 0534 00567000 * PROCEDURE; 0534 00568000 * 0534 00569000 SEG3 STM @14,@06,@SA00005 0534 00570000 STM @08,@12,@SA00005+36 0534 00571000 * /*****************************************************************/ 00572000 * /* */ 00573000 * /* BLSGET (ZZ1PDRP) ARG(PDRKEY)ARGLEN(LENGTH(PDRKEY))AREA(MYBUF)A*/ 00574000 * /* REALEN(LENGTH(MYBUF))UPD KEYEQ */ 00575000 * /* */ 00576000 * /*****************************************************************/ 00577000 * 0535 00578000 * DO; /* BLSGET (ZZ1PDRP) ARG(PDRKEY)AR 00579000 * GLEN(LENGTH(PDRKEY))AREA(MYBUF 00580000 * )AREALEN(LENGTH(MYBUF))UPD 0535 00581000 * KEYEQ */ 00582000 * RFY 0536 00583000 * GPR01P RSTD; 0536 00584000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 00585000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0537 00586000 L GPR01P,ZZ1PDRP(,@09) 0537 00587000 * RFY 0538 00588000 * DMCB BASED(GPR01P); 0538 00589000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00590000 * THEN 0539 00591000 LR @09,GPR01P 0539 00592000 N @09,@CF01517 0539 00593000 CLR @09,GPR01P 0539 00594000 BNE @RF00539 0539 00595000 CLC DMCBID(4,GPR01P),@CC01518 0539 00596000 BNE @RF00539 0539 00597000 * DO; 0540 00598000 * DMCBBUFP=ADDR(MYBUF); /* PLACE BUFFER ADDRESS IN DMCB */ 00599000 ST BUFPTR,DMCBBUFP(,GPR01P) 0541 00600000 * DMCBBLEN=LENGTH(MYBUF)&'7FFFFFFF'X;/* PLACE BUFFER LENGTH 00601000 * IN DMCB */ 00602000 MVC DMCBBLEN(4,GPR01P),@CF00394 0542 00603000 * DMCBKEYP=ADDR(PDRKEY); /* PLACE KEY ADDRESS IN DMCB */ 00604000 ST BUFPTR,DMCBKEYP(,GPR01P) 0543 00605000 * DMCBKEYL=(LENGTH(PDRKEY))&'7FFFFFFF'X;/* PLACE KEY LENGTH 00606000 * IN DMCB */ 00607000 MVC DMCBKEYL(4,GPR01P),@CF01016 0544 00608000 * DMCBKYD='1'B; /* INDICATE KEYED ACCESS */ 00609000 * DMCBAPX='0'B; /* INDICATE EXACT KEY MATCH */ 00610000 * DMCBGKY='0'B; /* INDICATE FULL KEY SEARCH */ 00611000 * DMCBUPD='1'B; /* INDICATE UPDATE OPTION */ 00612000 OI DMCBKYD(GPR01P),B'10010000' 0548 00613000 NI DMCBAPX(GPR01P),B'10011111' 0548 00614000 * DMCBRQST=DMCBGER; /* INDICATE GET REQUEST */ 00615000 MVI DMCBRQST(GPR01P),X'04' 0549 00616000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00617000 L @15,DMCBRI(,GPR01P) 0550 00618000 BALR @14,@15 0550 00619000 * END; 0551 00620000 * ELSE 0552 00621000 * DO; 0552 00622000 B @RC00539 0552 00623000 @RF00539 DS 0H 0553 00624000 * RFY 0553 00625000 * (GPR00F, 0553 00626000 * GPR15F) RSTD; 0553 00627000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00628000 SLR GPR00F,GPR00F 0554 00629000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00630000 LA GPR15F,16 0555 00631000 * RFY 0556 00632000 * (GPR00F, 0556 00633000 * GPR15F); 0556 00634000 * END; 0557 00635000 * RFY 0558 00636000 * DMCB; 0558 00637000 @RC00539 DS 0H 0559 00638000 * RFY 0559 00639000 * GPR01P; 0559 00640000 * END; /* BLSGET (ZZ1PDRP) ARG(PDRKEY)AR 00641000 * GLEN(LENGTH(PDRKEY))AREA(MYBUF 00642000 * )AREALEN(LENGTH(MYBUF))UPD 0560 00643000 * KEYEQ GET SEED RECORD FOR 0560 00644000 * UPDATE */ 00645000 * RESPECIFY 0561 00646000 * RF RESTRICTED; 0561 00647000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00648000 LTR RF,RF 0562 00649000 BZ @RF00562 0562 00650000 * DO; 0563 00651000 * IF RF=16 THEN /* IF INVALID DMCB */ 00652000 C RF,@CF00052 0564 00653000 BNE @RF00564 0564 00654000 * DO; /* ABEND(147) DUMP */ 00655000 * RESPECIFY 0566 00656000 * (GPR01F) RESTRICTED; 0566 00657000 * GPR01F=147; /* COMP CODE IN REG 1 */ 00658000 LA GPR01F,147 0567 00659000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00660000 O GPR01F,@CF00061 0568 00661000 * SVC(13); /* ISSUE ABEND SVC */ 00662000 SVC 13 0569 00663000 * RESPECIFY 0570 00664000 * (GPR01F) UNRESTRICTED; 0570 00665000 * END; /* ABEND(147) DUMP QUIT RIGHT 0571 00666000 * HERE */ 00667000 * ELSE 0572 00668000 * ; 0572 00669000 @RF00564 DS 0H 0573 00670000 * RETC=RF; 0573 00671000 LR RETC,RF 0573 00672000 * RESPECIFY 0574 00673000 * RF UNRESTRICTED; 0574 00674000 * DO; /* BLSDMSG 0575 00675000 * (ZZ2,04043,DMCBMSG,BLSDMSGS) 00676000 * ROUTE(BOTH)LIFO */ 00677000 * CALL BLSDMSG0(ZZ2,04043,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00678000 * BUILD MESSAGE */ 00679000 ST ZZ2PTR,@AL00001 0576 00680000 LA @09,@CF01548 0576 00681000 ST @09,@AL00001+4 0576 00682000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0576 00683000 L @09,ZZ1PDRP(,@09) 0576 00684000 LA @09,DMCBMSG(,@09) 0576 00685000 ST @09,@AL00001+8 0576 00686000 L @09,ZZ2MSGSP(,ZZ2PTR) 0576 00687000 ST @09,@AL00001+12 0576 00688000 LA @09,@CB01521 0576 00689000 ST @09,@AL00001+16 0576 00690000 LA @09,@CF00046 0576 00691000 ST @09,@AL00001+20 0576 00692000 L @15,ZZ2MSG0P(,ZZ2PTR) 0576 00693000 LA @01,@AL00001 0576 00694000 BALR @14,@15 0576 00695000 * END; /* BLSDMSG 0577 00696000 * (ZZ2,04043,DMCBMSG,BLSDMSGS) 00697000 * ROUTE(BOTH)LIFO */ 00698000 * END; 0578 00699000 * ELSE 0579 00700000 * CALL SEG4; /* A SEED RECORD IS IN BUFFER */ 00701000 B @RC00562 0579 00702000 @RF00562 BAL @14,SEG4 0579 00703000 * END SEG3; 0580 00704000 @EL00005 DS 0H 0580 00705000 @EF00005 DS 0H 0580 00706000 @ER00005 LM @14,@06,@SA00005 0580 00707000 LM @08,@12,@SA00005+36 0580 00708000 BR @14 0580 00709000 EJECT 00710000 *SEG4: 0581 00711000 * PROCEDURE; 0581 00712000 SEG4 STM @14,@06,@SA00006 0581 00713000 STM @08,@12,@SA00006+36 0581 00714000 * PACK(PACKED,PDRSVNUM); /* CONVERT TO PACKED FORMAT */ 00715000 PACK PACKED(8),PDRSVNUM(5,BUFPTR) 0582 00716000 * CVB(PNUM,PACKED); /* CONVERT PROB NUMBER TO BINARY */ 00717000 CVB PNUM,PACKED 0583 00718000 * PNUM=PNUM+1; /* INCREMENT PROBLEM NUMBER */ 00719000 AL PNUM,@CF00041 0584 00720000 * IF PNUM>99999 THEN /* IF PROBLEM NUMBER OVERFLOWED */ 00721000 C PNUM,@CF01555 0585 00722000 BNH @RF00585 0585 00723000 * DO; /* START OVER WITH 1 */ 00724000 * DO; /* BLSDMSG 0587 00725000 * (ZZ2,05101,DMCBMSG,BLSDMSGS) 00726000 * ROUTE(BOTH)LIFO */ 00727000 * CALL BLSDMSG0(ZZ2,05101,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00728000 * BUILD MESSAGE */ 00729000 ST ZZ2PTR,@AL00001 0588 00730000 LA @09,@CF01556 0588 00731000 ST @09,@AL00001+4 0588 00732000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0588 00733000 L @09,ZZ1PDRP(,@09) 0588 00734000 LA @09,DMCBMSG(,@09) 0588 00735000 ST @09,@AL00001+8 0588 00736000 L @09,ZZ2MSGSP(,ZZ2PTR) 0588 00737000 ST @09,@AL00001+12 0588 00738000 LA @09,@CB01521 0588 00739000 ST @09,@AL00001+16 0588 00740000 LA @09,@CF00046 0588 00741000 ST @09,@AL00001+20 0588 00742000 L @15,ZZ2MSG0P(,ZZ2PTR) 0588 00743000 LA @01,@AL00001 0588 00744000 BALR @14,@15 0588 00745000 * END; /* BLSDMSG 0589 00746000 * (ZZ2,05101,DMCBMSG,BLSDMSGS) 00747000 * ROUTE(BOTH)LIFO */ 00748000 * RETC=12; /* SET ERROR RETURN CODE */ 00749000 LA RETC,12 0590 00750000 * END; 0591 00751000 * ELSE 0592 00752000 * DO; /* PROBLEM NUMBER OK */ 00753000 B @RC00585 0592 00754000 @RF00585 DS 0H 0593 00755000 * CVD(PNUM,PACKED); /* CONVERT PROB NUMBER TO PACKED */ 00756000 CVD PNUM,PACKED 0593 00757000 * UNPK(PDRSVNUM,PACKED); /* CONVERT PROB NUMBER TO EBCDIC */ 00758000 UNPK PDRSVNUM(5,BUFPTR),PACKED(8) 0594 00759000 * PDRSVNUM(LENGTH(PDRSVNUM))=PDRSVNUM(LENGTH(PDRSVNUM))|'0'; 0595 00760000 OI PDRSVNUM+4(BUFPTR),C'0' 0595 00761000 * END; 0596 00762000 * 0596 00763000 * /*****************************************************************/ 00764000 * /* */ 00765000 * /* BLSPUT (ZZ1PDRP) */ 00766000 * /* */ 00767000 * /*****************************************************************/ 00768000 * 0597 00769000 * DO; /* BLSPUT (ZZ1PDRP) */ 00770000 @RC00585 DS 0H 0598 00771000 * RFY 0598 00772000 * GPR01P RSTD; 0598 00773000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 00774000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0599 00775000 L GPR01P,ZZ1PDRP(,@09) 0599 00776000 * RFY 0600 00777000 * DMCB BASED(GPR01P); 0600 00778000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00779000 * THEN 0601 00780000 LR @09,GPR01P 0601 00781000 N @09,@CF01517 0601 00782000 CLR @09,GPR01P 0601 00783000 BNE @RF00601 0601 00784000 CLC DMCBID(4,GPR01P),@CC01518 0601 00785000 BNE @RF00601 0601 00786000 * DO; 0602 00787000 * DMCBRQST=DMCBPUR; /* INDICATE PUT REQUEST */ 00788000 MVI DMCBRQST(GPR01P),X'05' 0603 00789000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00790000 L @15,DMCBRI(,GPR01P) 0604 00791000 BALR @14,@15 0604 00792000 * END; 0605 00793000 * ELSE 0606 00794000 * DO; 0606 00795000 B @RC00601 0606 00796000 @RF00601 DS 0H 0607 00797000 * RFY 0607 00798000 * (GPR00F, 0607 00799000 * GPR15F) RSTD; 0607 00800000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00801000 SLR GPR00F,GPR00F 0608 00802000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00803000 LA GPR15F,16 0609 00804000 * RFY 0610 00805000 * (GPR00F, 0610 00806000 * GPR15F); 0610 00807000 * END; 0611 00808000 * RFY 0612 00809000 * DMCB; 0612 00810000 @RC00601 DS 0H 0613 00811000 * RFY 0613 00812000 * GPR01P; 0613 00813000 * END; /* BLSPUT (ZZ1PDRP) WRITE UPDATED 00814000 * SEED RECORD */ 00815000 * RESPECIFY 0615 00816000 * RF RESTRICTED; 0615 00817000 * IF RF^=0|RETC^=0 THEN /* IF RETURN CODE NOT ZERO */ 00818000 SLR @14,@14 0616 00819000 CR RF,@14 0616 00820000 BNE @RT00616 0616 00821000 CR RETC,@14 0616 00822000 BE @RF00616 0616 00823000 @RT00616 DS 0H 0617 00824000 * DO; 0617 00825000 * IF RF=16 THEN /* IF INVALID DMCB */ 00826000 C RF,@CF00052 0618 00827000 BNE @RF00618 0618 00828000 * DO; /* ABEND(147) DUMP */ 00829000 * RESPECIFY 0620 00830000 * (GPR01F) RESTRICTED; 0620 00831000 * GPR01F=147; /* COMP CODE IN REG 1 */ 00832000 LA GPR01F,147 0621 00833000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00834000 O GPR01F,@CF00061 0622 00835000 * SVC(13); /* ISSUE ABEND SVC */ 00836000 SVC 13 0623 00837000 * RESPECIFY 0624 00838000 * (GPR01F) UNRESTRICTED; 0624 00839000 * END; /* ABEND(147) DUMP QUIT RIGHT 0625 00840000 * HERE */ 00841000 * ELSE 0626 00842000 * ; 0626 00843000 @RF00618 DS 0H 0627 00844000 * RETC=MAX(RF,RETC); 0627 00845000 CR RETC,RF 0627 00846000 BNL *+6 00847000 LR RETC,RF 0627 00848000 * IF RF^=0 THEN 0628 00849000 LTR RF,RF 0628 00850000 BZ @RF00628 0628 00851000 * DO; 0629 00852000 * RESPECIFY 0630 00853000 * RF UNRESTRICTED; 0630 00854000 * DO; /* BLSDMSG 0631 00855000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 00856000 * ROUTE(BOTH)LIFO */ 00857000 * CALL BLSDMSG0(ZZ2,04044,DMCBMSG,BLSDMSGS,'10110000'B,0); 00858000 ST ZZ2PTR,@AL00001 0632 00859000 LA @09,@CF01562 0632 00860000 ST @09,@AL00001+4 0632 00861000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0632 00862000 L @09,ZZ1PDRP(,@09) 0632 00863000 LA @09,DMCBMSG(,@09) 0632 00864000 ST @09,@AL00001+8 0632 00865000 L @09,ZZ2MSGSP(,ZZ2PTR) 0632 00866000 ST @09,@AL00001+12 0632 00867000 LA @09,@CB01521 0632 00868000 ST @09,@AL00001+16 0632 00869000 LA @09,@CF00046 0632 00870000 ST @09,@AL00001+20 0632 00871000 L @15,ZZ2MSG0P(,ZZ2PTR) 0632 00872000 LA @01,@AL00001 0632 00873000 BALR @14,@15 0632 00874000 * /* BUILD MESSAGE */ 00875000 * END; /* BLSDMSG 0633 00876000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 00877000 * ROUTE(BOTH)LIFO */ 00878000 * END; 0634 00879000 * ELSE 0635 00880000 * ; 0635 00881000 @RF00628 DS 0H 0636 00882000 * END; 0636 00883000 * ELSE 0637 00884000 * CALL SEG5; /* NO PROBLEM */ 00885000 B @RC00616 0637 00886000 @RF00616 BAL @14,SEG5 0637 00887000 * END SEG4; 0638 00888000 @EL00006 DS 0H 0638 00889000 @EF00006 DS 0H 0638 00890000 @ER00006 LM @14,@06,@SA00006 0638 00891000 LM @08,@12,@SA00006+36 0638 00892000 BR @14 0638 00893000 EJECT 00894000 *SEG5: 0639 00895000 * PROCEDURE; 0639 00896000 SEG5 STM @14,@06,@SA00007 0639 00897000 STM @08,@12,@SA00007+36 0639 00898000 * CALL CLOSE; /* CLOSE PROBLEM DIRECTORY */ 00899000 BAL @14,CLOSE 0640 00900000 * IF RETC=0 THEN /* IF CLOSE OK */ 00901000 LTR RETC,RETC 0641 00902000 BNZ @RF00641 0641 00903000 * DO; /* PROCEED WITH OPEN */ 00904000 * CALL OPEN; /* OPEN THE PROBLEM DIRECTORY */ 00905000 BAL @14,OPEN 0643 00906000 * IF RETC=0 THEN /* IF OPEN OK */ 00907000 LTR RETC,RETC 0644 00908000 BNZ @RF00644 0644 00909000 * DO; /* BUILD THE STATUS RECORD */ 00910000 * PDRKRCTY=PDRSTATC; /* SET RECORD TYPE TO STATUS */ 00911000 MVC PDRKRCTY(2,BUFPTR),@CC01252 0646 00912000 * PDRKPNUM=PDRSVNUM; /* SET NEW PROBLEM NUMBER IN KEY */ 00913000 MVC PDRKPNUM(5,BUFPTR),PDRSVNUM(BUFPTR) 0647 00914000 * CALL CLEAR; /* CLEAR STATUS RECORD */ 00915000 BAL @14,CLEAR 0648 00916000 * PDRODATE=CURDATE; /* SET CURRENT DATE INTO PDR */ 00917000 MVC PDRODATE(8,BUFPTR),CURDATE 0649 00918000 * PDROTIME=CURTIME; /* SET CURRENT TIME INTO PDR */ 00919000 MVC PDROTIME(8,BUFPTR),CURTIME 0650 00920000 * PDRCOMP=''; /* CLEAR COMPONENT ID FIELD */ 00921000 MVI PDRCOMP(BUFPTR),C' ' 0651 00922000 MVC PDRCOMP+1(9,BUFPTR),PDRCOMP(BUFPTR) 0651 00923000 * PDRSEV=' '; /* SET SEVERITY TO BLANK */ 00924000 MVI PDRSEV(BUFPTR),C' ' 0652 00925000 * PDROWNID=PSCBUSER; /* SET DEFAULT PROBLEM OWNER */ 00926000 L @09,CPPLPSCB(,ZZ2PTR) 0653 00927000 MVC PDROWNID(7,BUFPTR),PSCBUSER(@09) 0653 00928000 * PDROWNLN=PSCBUSRL; /* SET LENGTH OF OWNER ID */ 00929000 IC @04,PSCBUSRL(,@09) 0654 00930000 STC @04,PDROWNLN(,BUFPTR) 0654 00931000 * PDRGROUP=FPGRPID; /* SET DEFAULT GROUP ID */ 00932000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0655 00933000 L @09,ZZ1FPP(,@09) 0655 00934000 MVC PDRGROUP(8,BUFPTR),FPGRPID(@09) 0655 00935000 * PDRSYS=FPSYSID; /* SET DEFAULT SYSTEM ID */ 00936000 MVC PDRSYS(8,BUFPTR),FPSYSID(@09) 0656 00937000 * PDRUSER=''; /* CLEAR USER FIELD */ 00938000 MVI PDRUSER(BUFPTR),C' ' 0657 00939000 MVC PDRUSER+1(7,BUFPTR),PDRUSER(BUFPTR) 0657 00940000 * PDRPSTAT=PDRPINIC; /* SET DEFAULT PROBLEM STATUS */ 00941000 MVC PDRPSTAT(8,BUFPTR),@CC01278 0658 00942000 * PDRPDATE=''; /* SET DATE OF STATUS CHANGE */ 00943000 MVI PDRPDATE(BUFPTR),C' ' 0659 00944000 MVC PDRPDATE+1(7,BUFPTR),PDRPDATE(BUFPTR) 0659 00945000 * PDRPTIME=''; /* SET TIME OF STATUS CHANGE */ 00946000 MVI PDRPTIME(BUFPTR),C' ' 0660 00947000 MVC PDRPTIME+1(7,BUFPTR),PDRPTIME(BUFPTR) 0660 00948000 * PDRRDATE=CURDATE; /* SET DATE PROBLEM REPORTED */ 00949000 MVC PDRRDATE(8,BUFPTR),CURDATE 0661 00950000 * PDRRTIME=CURTIME; /* SET TIME PROBLEM REPORTED */ 00951000 MVC PDRRTIME(8,BUFPTR),CURTIME 0662 00952000 * PDRISTAT=''; /* SET DEFAULT IBM STATUS */ 00953000 MVI PDRISTAT(BUFPTR),C' ' 0663 00954000 MVC PDRISTAT+1(7,BUFPTR),PDRISTAT(BUFPTR) 0663 00955000 * PDRIDATE=''; /* SET DATE OF IBM STATUS CHANGE */ 00956000 MVI PDRIDATE(BUFPTR),C' ' 0664 00957000 MVC PDRIDATE+1(7,BUFPTR),PDRIDATE(BUFPTR) 0664 00958000 * PDRITIME=''; /* SET TIME OF IBM STATUS CHANGE */ 00959000 MVI PDRITIME(BUFPTR),C' ' 0665 00960000 MVC PDRITIME+1(7,BUFPTR),PDRITIME(BUFPTR) 0665 00961000 * PDRAPRID=''; /* SET DEFAULT APAR ID */ 00962000 MVI PDRAPRID(BUFPTR),C' ' 0666 00963000 MVC PDRAPRID+1(6,BUFPTR),PDRAPRID(BUFPTR) 0666 00964000 * PDRTSTAT=''; /* SET DEFAULT PTF STATUS */ 00965000 MVI PDRTSTAT(BUFPTR),C' ' 0667 00966000 MVC PDRTSTAT+1(3,BUFPTR),PDRTSTAT(BUFPTR) 0667 00967000 * PDRTDATE=''; /* SET DATE OF PTF STATUS CHANGE */ 00968000 MVI PDRTDATE(BUFPTR),C' ' 0668 00969000 MVC PDRTDATE+1(7,BUFPTR),PDRTDATE(BUFPTR) 0668 00970000 * PDRTTIME=''; /* SET TIME OF PTF STATUS CHANGE */ 00971000 MVI PDRTTIME(BUFPTR),C' ' 0669 00972000 MVC PDRTTIME+1(7,BUFPTR),PDRTTIME(BUFPTR) 0669 00973000 * PDRPTFID=''; /* SET DEFAULT PTF ID */ 00974000 MVI PDRPTFID(BUFPTR),C' ' 0670 00975000 MVC PDRPTFID+1(6,BUFPTR),PDRPTFID(BUFPTR) 0670 00976000 * PDRFSTAT=''; /* SET DEFAULT FIX STATUS */ 00977000 MVI PDRFSTAT(BUFPTR),C' ' 0671 00978000 MVC PDRFSTAT+1(3,BUFPTR),PDRFSTAT(BUFPTR) 0671 00979000 * PDRFDATE=''; /* SET DATE OF FIX STATUS CHANGE */ 00980000 MVI PDRFDATE(BUFPTR),C' ' 0672 00981000 MVC PDRFDATE+1(7,BUFPTR),PDRFDATE(BUFPTR) 0672 00982000 * PDRFTIME=''; /* SET TIME OF FIX STATUS CHANGE */ 00983000 MVI PDRFTIME(BUFPTR),C' ' 0673 00984000 MVC PDRFTIME+1(7,BUFPTR),PDRFTIME(BUFPTR) 0673 00985000 * PDRFIXID=''; /* SET DEFAULT FIX ID */ 00986000 MVI PDRFIXID(BUFPTR),C' ' 0674 00987000 MVC PDRFIXID+1(59,BUFPTR),PDRFIXID(BUFPTR) 0674 00988000 * PDRABS=''; /* CLEAR PROBLEM ABSTRACT FIELD */ 00989000 MVI PDRABS(BUFPTR),C' ' 0675 00990000 MVC PDRABS+1(127,BUFPTR),PDRABS(BUFPTR) 0675 00991000 * PDRDSSEQ='0000'; /* SET DATA SET RECORD SEQUENCE 00992000 * NUMBER */ 00993000 * 0676 00994000 MVC PDRDSSEQ(4,BUFPTR),@CC01526 0676 00995000 * /*********************************************************/ 00996000 * /* */ 00997000 * /* MERGE COMMAND PARAMETERS INTO STATUS RECORD */ 00998000 * /* */ 00999000 * /*********************************************************/ 01000000 * 0677 01001000 * IF DTEIFP=ON&DTEIL^=0 THEN/* IF DATE PRESENT IN COMMAND */ 01002000 TM DTEIFP,B'10000000' 0677 01003000 BNO @RF00677 0677 01004000 LH @09,DTEIL 0677 01005000 LTR @09,@09 0677 01006000 BZ @RF00677 0677 01007000 * PDRODATE=DTEI(1:DTEIL);/* SET DATE PROBLEM OCCURRED */ 01008000 MVI PDRODATE+1(BUFPTR),C' ' 0678 01009000 MVC PDRODATE+2(6,BUFPTR),PDRODATE+1(BUFPTR) 0678 01010000 BCTR @09,0 0678 01011000 L @04,DTEIP 0678 01012000 EX @09,@SM01630 0678 01013000 * ELSE 0679 01014000 * ; /* DATE IS NOT PRESENT, LEAVE IT */ 01015000 @RF00677 DS 0H 0680 01016000 * IF TMEIFP=ON&TMEIL^=0 THEN/* IF TIME PRESENT IN COMMAND */ 01017000 TM TMEIFP,B'10000000' 0680 01018000 BNO @RF00680 0680 01019000 LH @09,TMEIL 0680 01020000 LTR @09,@09 0680 01021000 BZ @RF00680 0680 01022000 * PDROTIME=TMEI(1:TMEIL);/* SET TIME PROBLEM OCCURRED */ 01023000 MVI PDROTIME+1(BUFPTR),C' ' 0681 01024000 MVC PDROTIME+2(6,BUFPTR),PDROTIME+1(BUFPTR) 0681 01025000 BCTR @09,0 0681 01026000 L @04,TMEIP 0681 01027000 EX @09,@SM01632 0681 01028000 * ELSE 0682 01029000 * ; /* TIME IS NOT PRESENT, LEAVE IT */ 01030000 @RF00680 DS 0H 0683 01031000 * IF GRPIFP=ON&GRPIL^=0 THEN/* IF GROUP ID PRESENT IN 0683 01032000 * COMMAND */ 01033000 TM GRPIFP,B'10000000' 0683 01034000 BNO @RF00683 0683 01035000 LH @09,GRPIL 0683 01036000 LTR @09,@09 0683 01037000 BZ @RF00683 0683 01038000 * PDRGROUP=GRPI(1:GRPIL);/* SET GROUP ID IN STATUS RECORD*/ 01039000 MVI PDRGROUP+1(BUFPTR),C' ' 0684 01040000 MVC PDRGROUP+2(6,BUFPTR),PDRGROUP+1(BUFPTR) 0684 01041000 BCTR @09,0 0684 01042000 L @04,GRPIP 0684 01043000 EX @09,@SM01634 0684 01044000 * ELSE 0685 01045000 * ; /* USE DEFAULT GROUP ID */ 01046000 @RF00683 DS 0H 0686 01047000 * IF SIDIFP=ON&SIDIL^=0 THEN/* IF SYS ID PRESENT IN COMMAND*/ 01048000 TM SIDIFP,B'10000000' 0686 01049000 BNO @RF00686 0686 01050000 LH @09,SIDIL 0686 01051000 LTR @09,@09 0686 01052000 BZ @RF00686 0686 01053000 * PDRSYS=SIDI(1:SIDIL); /* SET SYSTEM ID IN STATUS RECORD*/ 01054000 MVI PDRSYS+1(BUFPTR),C' ' 0687 01055000 MVC PDRSYS+2(6,BUFPTR),PDRSYS+1(BUFPTR) 0687 01056000 BCTR @09,0 0687 01057000 L @04,SIDIP 0687 01058000 EX @09,@SM01636 0687 01059000 * ELSE 0688 01060000 * ; /* USE DEFAULT SYSTEM ID */ 01061000 @RF00686 DS 0H 0689 01062000 * IF UFLIFP=ON&UFLIL^=0 THEN/* IF USER FIELD IS PRESENT */ 01063000 TM UFLIFP,B'10000000' 0689 01064000 BNO @RF00689 0689 01065000 LH @09,UFLIL 0689 01066000 LTR @09,@09 0689 01067000 BZ @RF00689 0689 01068000 * PDRUSER=UFLI(1:UFLIL);/* SET VALUE IN USER FIELD */ 01069000 MVI PDRUSER+1(BUFPTR),C' ' 0690 01070000 MVC PDRUSER+2(6,BUFPTR),PDRUSER+1(BUFPTR) 0690 01071000 BCTR @09,0 0690 01072000 L @04,UFLIP 0690 01073000 EX @09,@SM01638 0690 01074000 * ELSE 0691 01075000 * ; /* LEAVE IT BLANK */ 01076000 @RF00689 DS 0H 0692 01077000 * IF CIDIFP=ON&CIDIL^=0 THEN/* IF COMPONENT ID PRESENT */ 01078000 TM CIDIFP,B'10000000' 0692 01079000 BNO @RF00692 0692 01080000 LH @09,CIDIL 0692 01081000 LTR @09,@09 0692 01082000 BZ @RF00692 0692 01083000 * PDRCOMP=CIDI(1:CIDIL);/* SET COMPONENT ID IN RECORD */ 01084000 MVI PDRCOMP+1(BUFPTR),C' ' 0693 01085000 MVC PDRCOMP+2(8,BUFPTR),PDRCOMP+1(BUFPTR) 0693 01086000 BCTR @09,0 0693 01087000 L @04,CIDIP 0693 01088000 EX @09,@SM01640 0693 01089000 * ELSE 0694 01090000 * ; /* LEAVE COMPONENT ID BLANK */ 01091000 @RF00692 DS 0H 0695 01092000 * IF OWNIFP=ON&OWNIL^=0 THEN/* IF PROBLEM OWNER ID PRESENT */ 01093000 TM OWNIFP,B'10000000' 0695 01094000 BNO @RF00695 0695 01095000 LH @09,OWNIL 0695 01096000 LTR @09,@09 0695 01097000 BZ @RF00695 0695 01098000 * DO; 0696 01099000 * PDROWNID=OWNI(1:OWNIL);/* SET PROBLEM OWNER IN RECORD*/ 01100000 MVI PDROWNID+1(BUFPTR),C' ' 0697 01101000 MVC PDROWNID+2(5,BUFPTR),PDROWNID+1(BUFPTR) 0697 01102000 LR @04,@09 0697 01103000 BCTR @04,0 0697 01104000 L @01,OWNIP 0697 01105000 EX @04,@SM01642 0697 01106000 * PDROWNLN=OWNIL; /* SET LENGTH OF OWNER ID */ 01107000 STC @09,PDROWNLN(,BUFPTR) 0698 01108000 * END; 0699 01109000 * ELSE 0700 01110000 * ; /* USE CURRENT LOGON ID */ 01111000 @RF00695 DS 0H 0701 01112000 * IF SEVIFP=ON&SEVI(1)^='0' THEN/* IF PROBLEM SEVERITY 0701 01113000 * PRESENT */ 01114000 TM SEVIFP,B'10000000' 0701 01115000 BNO @RF00701 0701 01116000 L @09,SEVIP 0701 01117000 CLI SEVI(@09),C'0' 0701 01118000 BE @RF00701 0701 01119000 * PDRSEV=SEVI(1); /* SET PROBLEM SEVERITY */ 01120000 MVC PDRSEV(1,BUFPTR),SEVI(@09) 0702 01121000 * ELSE 0703 01122000 * ; /* LEAVE SEVERITY BLANK */ 01123000 @RF00701 DS 0H 0704 01124000 * IF APRIFP=ON&APRIL^=0 THEN/* IF APAR ID PRESENT IN 0704 01125000 * COMMAND */ 01126000 TM APRIFP,B'10000000' 0704 01127000 BNO @RF00704 0704 01128000 LH @09,APRIL 0704 01129000 LTR @09,@09 0704 01130000 BZ @RF00704 0704 01131000 * PDRAPRID=APRI(1:APRIL);/* SET APAR ID IN RECORD */ 01132000 MVI PDRAPRID+1(BUFPTR),C' ' 0705 01133000 MVC PDRAPRID+2(5,BUFPTR),PDRAPRID+1(BUFPTR) 0705 01134000 BCTR @09,0 0705 01135000 L @04,APRIP 0705 01136000 EX @09,@SM01644 0705 01137000 * ELSE 0706 01138000 * ; /* LEAVE APAR ID BLANK */ 01139000 @RF00704 DS 0H 0707 01140000 * IF PTFIFP=ON&PTFIL^=0 THEN/* IF PTF ID PRESENT IN COMMAND*/ 01141000 TM PTFIFP,B'10000000' 0707 01142000 BNO @RF00707 0707 01143000 LH @09,PTFIL 0707 01144000 LTR @09,@09 0707 01145000 BZ @RF00707 0707 01146000 * PDRPTFID=PTFI(1:PTFIL);/* SET PTF ID IN RECORD */ 01147000 MVI PDRPTFID+1(BUFPTR),C' ' 0708 01148000 MVC PDRPTFID+2(5,BUFPTR),PDRPTFID+1(BUFPTR) 0708 01149000 BCTR @09,0 0708 01150000 L @04,PTFIP 0708 01151000 EX @09,@SM01646 0708 01152000 * ELSE 0709 01153000 * ; /* LEAVE PTF ID BLANK */ 01154000 @RF00707 DS 0H 0710 01155000 * IF FIXQFP=ON&FIXQL^=0 THEN/* IF FIX ID PRESENT IN COMMAND*/ 01156000 TM FIXQFP,B'10000000' 0710 01157000 BNO @RF00710 0710 01158000 LH @09,FIXQL 0710 01159000 LTR @09,@09 0710 01160000 BZ @RF00710 0710 01161000 * PDRFIXID=FIXQ(1:FIXQL);/* SET FIX ID IN RECORD */ 01162000 MVI PDRFIXID+1(BUFPTR),C' ' 0711 01163000 MVC PDRFIXID+2(58,BUFPTR),PDRFIXID+1(BUFPTR) 0711 01164000 BCTR @09,0 0711 01165000 L @04,FIXQP 0711 01166000 EX @09,@SM01648 0711 01167000 * ELSE 0712 01168000 * ; /* LEAVE FIX ID BLANK */ 01169000 @RF00710 DS 0H 0713 01170000 * IF ABSQFP=ON&ABSQL^=0 THEN/* IF ABSTRACT PRESENT IN 0713 01171000 * COMMAND */ 01172000 TM ABSQFP,B'10000000' 0713 01173000 BNO @RF00713 0713 01174000 LH @09,ABSQL 0713 01175000 LTR @09,@09 0713 01176000 BZ @RF00713 0713 01177000 * PDRABS=ABSQ(1:ABSQL); /* SET ABSTRACT IN RECORD */ 01178000 MVI PDRABS+1(BUFPTR),C' ' 0714 01179000 MVC PDRABS+2(126,BUFPTR),PDRABS+1(BUFPTR) 0714 01180000 BCTR @09,0 0714 01181000 L @04,ABSQP 0714 01182000 EX @09,@SM01650 0714 01183000 * ELSE 0715 01184000 * ; /* LEAVE ABSTRACT FIELD BLANK */ 01185000 @RF00713 DS 0H 0716 01186000 * IF PSTTYPE>0 THEN /* IF STATUS VALID */ 01187000 LH @09,PSTTYPE 0716 01188000 LTR @09,@09 0716 01189000 BNP @RF00716 0716 01190000 * DO; 0717 01191000 * PDRPSTAT=STATPROB(PSTTYPE);/* SET STATUS FIELD */ 01192000 SLA @09,3 0718 01193000 LA @04,STATPROB-8(@09) 0718 01194000 MVC PDRPSTAT(8,BUFPTR),0(@04) 0718 01195000 * PDRPDATE=CURDATE; /* SET DATE OF STATUS CHANGE */ 01196000 MVC PDRPDATE(8,BUFPTR),CURDATE 0719 01197000 * PDRPTIME=CURTIME; /* SET TIME OF STATUS CHANGE */ 01198000 MVC PDRPTIME(8,BUFPTR),CURTIME 0720 01199000 * END; 0721 01200000 * ELSE 0722 01201000 * ; /* LEAVE STATUS AS INITIAL */ 01202000 @RF00716 DS 0H 0723 01203000 * IF IBMFLDWD>0 THEN /* IF IBM STATUS VALID */ 01204000 LH @09,IBMFLDWD 0723 01205000 LTR @09,@09 0723 01206000 BNP @RF00723 0723 01207000 * DO; 0724 01208000 * PDRISTAT=STATIBM(IBMFLDWD);/* SET IBM STATUS FIELD */ 01209000 SLA @09,3 0725 01210000 LA @04,STATIBM-8(@09) 0725 01211000 MVC PDRISTAT(8,BUFPTR),0(@04) 0725 01212000 * PDRIDATE=CURDATE; /* SET DATE OF IBM STATUS CHANGE */ 01213000 MVC PDRIDATE(8,BUFPTR),CURDATE 0726 01214000 * PDRITIME=CURTIME; /* SET TIME OF IBM STATUS CHANGE */ 01215000 MVC PDRITIME(8,BUFPTR),CURTIME 0727 01216000 * END; 0728 01217000 * ELSE 0729 01218000 * ; /* LEAVE IBM STATUS BLANK(NONE) */ 01219000 @RF00723 DS 0H 0730 01220000 * IF PTFFLDWD>0 THEN /* IF PTF STATUS VALID */ 01221000 LH @09,PTFFLDWD 0730 01222000 LTR @09,@09 0730 01223000 BNP @RF00730 0730 01224000 * DO; 0731 01225000 * PDRTSTAT=STATPTF(PTFFLDWD);/* SET PTF STATUS FIELD */ 01226000 SLA @09,2 0732 01227000 LA @04,STATPTF-4(@09) 0732 01228000 MVC PDRTSTAT(4,BUFPTR),0(@04) 0732 01229000 * PDRTDATE=CURDATE; /* SET DATE OF PTF STATUS CHANGE */ 01230000 MVC PDRTDATE(8,BUFPTR),CURDATE 0733 01231000 * PDRTTIME=CURTIME; /* SET TIME OF PTF STATUS CHANGE */ 01232000 MVC PDRTTIME(8,BUFPTR),CURTIME 0734 01233000 * END; 0735 01234000 * ELSE 0736 01235000 * ; /* LEAVE PTF STATUS BLANK (NONE) */ 01236000 @RF00730 DS 0H 0737 01237000 * IF FIXFLDWD>0 THEN /* IF FIX STATUS VALID */ 01238000 LH @09,FIXFLDWD 0737 01239000 LTR @09,@09 0737 01240000 BNP @RF00737 0737 01241000 * DO; 0738 01242000 * PDRFSTAT=STATFIX(FIXFLDWD);/* SET FIX STATUS FIELD */ 01243000 SLA @09,2 0739 01244000 LA @04,STATFIX-4(@09) 0739 01245000 MVC PDRFSTAT(4,BUFPTR),0(@04) 0739 01246000 * PDRFDATE=CURDATE; /* SET DATE OF FIX STATUS CHANGE */ 01247000 MVC PDRFDATE(8,BUFPTR),CURDATE 0740 01248000 * PDRFTIME=CURTIME; /* SET TIME OF FIX STATUS CHANGE */ 01249000 MVC PDRFTIME(8,BUFPTR),CURTIME 0741 01250000 * END; 0742 01251000 * ELSE 0743 01252000 * ; /* LEAVE FIX STATUS BLANK (NONE) */ 01253000 @RF00737 DS 0H 0744 01254000 * IF DSCQFP=ON THEN /* IF PROBLEM DESCRIPTION PRESENT*/ 01255000 TM DSCQFP,B'10000000' 0744 01256000 BNO @RF00744 0744 01257000 * DO; 0745 01258000 * CALL DESLOCAL; /* BUILD DESCRIPTION RECORD(S) */ 01259000 BAL @14,DESLOCAL 0746 01260000 * RESPECIFY 0747 01261000 * RF RESTRICTED; 0747 01262000 * RETC=RF; /* SAVE RETURN CODE */ 01263000 LR RETC,RF 0748 01264000 * RESPECIFY 0749 01265000 * RF UNRESTRICTED; 0749 01266000 * END; 0750 01267000 * ELSE 0751 01268000 * ; /* NO PROBLEM DESCRIPTION TEXT */ 01269000 @RF00744 DS 0H 0752 01270000 * IF DDSDFP=ON THEN /* IF PROB DESCRIPTION IN DATA 0752 01271000 * SET */ 01272000 TM DDSDFP,B'10000000' 0752 01273000 BNO @RF00752 0752 01274000 * DO; 0753 01275000 * CALL BLSEADP1(ZZ2,DDS,MYBUF);/* BUILD RECORDS 0754 01276000 * REMOTELY */ 01277000 ST ZZ2PTR,@AL00001 0754 01278000 LA @09,DDS 0754 01279000 ST @09,@AL00001+4 0754 01280000 ST BUFPTR,@AL00001+8 0754 01281000 L @15,@CV01348 0754 01282000 LA @01,@AL00001 0754 01283000 BALR @14,@15 0754 01284000 * RESPECIFY 0755 01285000 * RF RESTRICTED; 0755 01286000 * RETC=RF; /* SAVE RETURN CODE */ 01287000 LR RETC,RF 0756 01288000 * RESPECIFY 0757 01289000 * RF UNRESTRICTED; 0757 01290000 * END; 0758 01291000 * ELSE 0759 01292000 * ; /* NO PROBLEM DESCRIPTION DATASET*/ 01293000 @RF00752 DS 0H 0760 01294000 * CALL SET; 0760 01295000 BAL @14,SET 0760 01296000 * IF RETC=0 THEN 0761 01297000 LTR RETC,RETC 0761 01298000 BNZ @RF00761 0761 01299000 * DO; 0762 01300000 * 0762 01301000 * /*****************************************************/ 01302000 * /* */ 01303000 * /* BLSPUT (ZZ1PDRP) RECLEN(LENGTH(PDREC)+LENGTH(PDRST*/ 01304000 * /* REC))AREALEN(LENGTH(MYBUF))AREA(MYBUF) */ 01305000 * /* */ 01306000 * /*****************************************************/ 01307000 * 0763 01308000 * DO; /* BLSPUT (ZZ1PDRP) RECLEN(LENGTH 01309000 * (PDREC)+LENGTH(PDRSTREC))AREAL 01310000 * EN(LENGTH(MYBUF))AREA(MYBUF) */ 01311000 * RFY 0764 01312000 * GPR01P RSTD; 0764 01313000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 01314000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0765 01315000 L GPR01P,ZZ1PDRP(,@09) 0765 01316000 * RFY 0766 01317000 * DMCB BASED(GPR01P); 0766 01318000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* 0767 01319000 * VALID DMCB ? */ 01320000 * THEN 0767 01321000 LR @09,GPR01P 0767 01322000 N @09,@CF01517 0767 01323000 CLR @09,GPR01P 0767 01324000 BNE @RF00767 0767 01325000 CLC DMCBID(4,GPR01P),@CC01518 0767 01326000 BNE @RF00767 0767 01327000 * DO; 0768 01328000 * DMCBBUFP=ADDR(MYBUF);/* PLACE BUFFER ADDRESS IN 01329000 * DMCB */ 01330000 ST BUFPTR,DMCBBUFP(,GPR01P) 0769 01331000 * DMCBBLEN=LENGTH(MYBUF)&'7FFFFFFF'X;/* PLACE 0770 01332000 * BUFFER LENGTH IN DMCB */ 01333000 MVC DMCBBLEN(4,GPR01P),@CF00394 0770 01334000 * DMCBORL=(LENGTH(PDREC)+LENGTH(PDRSTREC))& 0771 01335000 * '7FFFFFFF'X;/* PLACE RECORD LENGTH IN DMCB */ 01336000 MVC DMCBORL(4,GPR01P),@CF01618 0771 01337000 * DMCBRQST=DMCBPUR;/* INDICATE PUT REQUEST */ 01338000 MVI DMCBRQST(GPR01P),X'05' 0772 01339000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 01340000 L @15,DMCBRI(,GPR01P) 0773 01341000 BALR @14,@15 0773 01342000 * END; 0774 01343000 * ELSE 0775 01344000 * DO; 0775 01345000 B @RC00767 0775 01346000 @RF00767 DS 0H 0776 01347000 * RFY 0776 01348000 * (GPR00F, 0776 01349000 * GPR15F) RSTD; 0776 01350000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 01351000 SLR GPR00F,GPR00F 0777 01352000 * GPR15F=16; /* INDICATE INVALID DMCB */ 01353000 LA GPR15F,16 0778 01354000 * RFY 0779 01355000 * (GPR00F, 0779 01356000 * GPR15F); 0779 01357000 * END; 0780 01358000 * RFY 0781 01359000 * DMCB; 0781 01360000 @RC00767 DS 0H 0782 01361000 * RFY 0782 01362000 * GPR01P; 0782 01363000 * END; /* BLSPUT (ZZ1PDRP) RECLEN(LENGTH 01364000 * (PDREC)+LENGTH(PDRSTREC))AREAL 01365000 * EN(LENGTH(MYBUF))AREA(MYBUF) 01366000 * WRITE OUT THEN NEW PROBLEM 0783 01367000 * STATUS RECORD */ 01368000 * RESPECIFY 0784 01369000 * RF RESTRICTED; 0784 01370000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 01371000 LTR RF,RF 0785 01372000 BZ @RF00785 0785 01373000 * DO; 0786 01374000 * IF RF=16 THEN /* IF INVALID DMCB */ 01375000 C RF,@CF00052 0787 01376000 BNE @RF00787 0787 01377000 * DO; /* ABEND(147) DUMP */ 01378000 * RESPECIFY 0789 01379000 * (GPR01F) RESTRICTED; 0789 01380000 * GPR01F=147; /* COMP CODE IN REG 1 */ 01381000 LA GPR01F,147 0790 01382000 * GPR01F=GPR01F|'80000000'X;/* 0791 01383000 * DUMP/STEP/DUMPOPTS FLAG */ 01384000 O GPR01F,@CF00061 0791 01385000 * SVC(13); /* ISSUE ABEND SVC */ 01386000 SVC 13 0792 01387000 * RESPECIFY 0793 01388000 * (GPR01F) UNRESTRICTED; 0793 01389000 * END; /* ABEND(147) DUMP QUIT RIGHT 0794 01390000 * HERE */ 01391000 * ELSE 0795 01392000 * ; 0795 01393000 @RF00787 DS 0H 0796 01394000 * RETC=RF; /* SAVE RETURN CODE */ 01395000 LR RETC,RF 0796 01396000 * RESPECIFY 0797 01397000 * RF UNRESTRICTED; 0797 01398000 * DO; /* BLSDMSG 0798 01399000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 01400000 * ROUTE(BOTH)LIFO */ 01401000 * CALL BLSDMSG0(ZZ2,04044,DMCBMSG,BLSDMSGS, 0799 01402000 * '10110000'B,0);/* BUILD MESSAGE */ 01403000 ST ZZ2PTR,@AL00001 0799 01404000 LA @09,@CF01562 0799 01405000 ST @09,@AL00001+4 0799 01406000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0799 01407000 L @09,ZZ1PDRP(,@09) 0799 01408000 LA @09,DMCBMSG(,@09) 0799 01409000 ST @09,@AL00001+8 0799 01410000 L @09,ZZ2MSGSP(,ZZ2PTR) 0799 01411000 ST @09,@AL00001+12 0799 01412000 LA @09,@CB01521 0799 01413000 ST @09,@AL00001+16 0799 01414000 LA @09,@CF00046 0799 01415000 ST @09,@AL00001+20 0799 01416000 L @15,ZZ2MSG0P(,ZZ2PTR) 0799 01417000 LA @01,@AL00001 0799 01418000 BALR @14,@15 0799 01419000 * END; /* BLSDMSG 0800 01420000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 01421000 * ROUTE(BOTH)LIFO */ 01422000 * END; 0801 01423000 * ELSE 0802 01424000 * ; /* NO PROBLEM */ 01425000 @RF00785 DS 0H 0803 01426000 * END; 0803 01427000 * ELSE 0804 01428000 * ; 0804 01429000 @RF00761 DS 0H 0805 01430000 * END; 0805 01431000 * ELSE 0806 01432000 * ; 0806 01433000 @RF00644 DS 0H 0807 01434000 * END; 0807 01435000 * ELSE 0808 01436000 * ; 0808 01437000 @RF00641 DS 0H 0809 01438000 * END SEG5; 0809 01439000 @EL00007 DS 0H 0809 01440000 @EF00007 DS 0H 0809 01441000 @ER00007 LM @14,@06,@SA00007 0809 01442000 LM @08,@12,@SA00007+36 0809 01443000 BR @14 0809 01444000 EJECT 01445000 *SET: 0810 01446000 * PROCEDURE; 0810 01447000 * 0810 01448000 SET STM @14,@06,@SA00008 0810 01449000 STM @08,@12,@SA00008+36 0810 01450000 * /*****************************************************************/ 01451000 * /* */ 01452000 * /* BLSSET (ZZ1PDRP) AREA(MYBUF)AREALEN(LENGTH(MYBUF))KEYEQ */ 01453000 * /* */ 01454000 * /*****************************************************************/ 01455000 * 0811 01456000 * DO; /* BLSSET (ZZ1PDRP) AREA(MYBUF)AR 01457000 * EALEN(LENGTH(MYBUF))KEYEQ */ 01458000 * RFY 0812 01459000 * GPR01P RSTD; 0812 01460000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 01461000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0813 01462000 L GPR01P,ZZ1PDRP(,@09) 0813 01463000 * RFY 0814 01464000 * DMCB BASED(GPR01P); 0814 01465000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 01466000 * THEN 0815 01467000 LR @09,GPR01P 0815 01468000 N @09,@CF01517 0815 01469000 CLR @09,GPR01P 0815 01470000 BNE @RF00815 0815 01471000 CLC DMCBID(4,GPR01P),@CC01518 0815 01472000 BNE @RF00815 0815 01473000 * DO; 0816 01474000 * DMCBBUFP=ADDR(MYBUF); /* PLACE BUFFER ADDRESS IN DMCB */ 01475000 ST BUFPTR,DMCBBUFP(,GPR01P) 0817 01476000 * DMCBBLEN=LENGTH(MYBUF)&'7FFFFFFF'X;/* PLACE BUFFER LENGTH 01477000 * IN DMCB */ 01478000 MVC DMCBBLEN(4,GPR01P),@CF00394 0818 01479000 * DMCBKYD='1'B; /* INDICATE KEYED ACCESS */ 01480000 * DMCBAPX='0'B; /* INDICATE EXACT KEY MATCH */ 01481000 * DMCBGKY='0'B; /* INDICATE FULL KEY SEARCH */ 01482000 OI DMCBKYD(GPR01P),B'10000000' 0821 01483000 NI DMCBAPX(GPR01P),B'10011111' 0821 01484000 * DMCBRQST=DMCBSER; /* INDICATE SET REQUEST */ 01485000 MVI DMCBRQST(GPR01P),X'03' 0822 01486000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 01487000 L @15,DMCBRI(,GPR01P) 0823 01488000 BALR @14,@15 0823 01489000 * END; 0824 01490000 * ELSE 0825 01491000 * DO; 0825 01492000 B @RC00815 0825 01493000 @RF00815 DS 0H 0826 01494000 * RFY 0826 01495000 * (GPR00F, 0826 01496000 * GPR15F) RSTD; 0826 01497000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 01498000 SLR GPR00F,GPR00F 0827 01499000 * GPR15F=16; /* INDICATE INVALID DMCB */ 01500000 LA GPR15F,16 0828 01501000 * RFY 0829 01502000 * (GPR00F, 0829 01503000 * GPR15F); 0829 01504000 * END; 0830 01505000 * RFY 0831 01506000 * DMCB; 0831 01507000 @RC00815 DS 0H 0832 01508000 * RFY 0832 01509000 * GPR01P; 0832 01510000 * END; /* BLSSET (ZZ1PDRP) AREA(MYBUF)AR 01511000 * EALEN(LENGTH(MYBUF))KEYEQ */ 01512000 * RESPECIFY 0834 01513000 * RF RESTRICTED; 0834 01514000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 01515000 LTR RF,RF 0835 01516000 BZ @RF00835 0835 01517000 * DO; 0836 01518000 * IF RF=16 THEN /* IF INVALID DMCB */ 01519000 C RF,@CF00052 0837 01520000 BNE @RF00837 0837 01521000 * DO; /* ABEND(147) DUMP */ 01522000 * RESPECIFY 0839 01523000 * (GPR01F) RESTRICTED; 0839 01524000 * GPR01F=147; /* COMP CODE IN REG 1 */ 01525000 LA GPR01F,147 0840 01526000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 01527000 O GPR01F,@CF00061 0841 01528000 * SVC(13); /* ISSUE ABEND SVC */ 01529000 SVC 13 0842 01530000 * RESPECIFY 0843 01531000 * (GPR01F) UNRESTRICTED; 0843 01532000 * END; /* ABEND(147) DUMP QUIT RIGHT 0844 01533000 * HERE */ 01534000 * ELSE 0845 01535000 * ; 0845 01536000 @RF00837 DS 0H 0846 01537000 * RETC=RF; /* SAVE RETURN CODE */ 01538000 LR RETC,RF 0846 01539000 * RESPECIFY 0847 01540000 * RF UNRESTRICTED; 0847 01541000 * DO; /* BLSDMSG 0848 01542000 * (ZZ2,04041,DMCBMSG,BLSDMSGS) 01543000 * ROUTE(BOTH)LIFO */ 01544000 * CALL BLSDMSG0(ZZ2,04041,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 01545000 * BUILD MESSAGE */ 01546000 ST ZZ2PTR,@AL00001 0849 01547000 LA @09,@CF01576 0849 01548000 ST @09,@AL00001+4 0849 01549000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0849 01550000 L @09,ZZ1PDRP(,@09) 0849 01551000 LA @09,DMCBMSG(,@09) 0849 01552000 ST @09,@AL00001+8 0849 01553000 L @09,ZZ2MSGSP(,ZZ2PTR) 0849 01554000 ST @09,@AL00001+12 0849 01555000 LA @09,@CB01521 0849 01556000 ST @09,@AL00001+16 0849 01557000 LA @09,@CF00046 0849 01558000 ST @09,@AL00001+20 0849 01559000 L @15,ZZ2MSG0P(,ZZ2PTR) 0849 01560000 LA @01,@AL00001 0849 01561000 BALR @14,@15 0849 01562000 * END; /* BLSDMSG 0850 01563000 * (ZZ2,04041,DMCBMSG,BLSDMSGS) 01564000 * ROUTE(BOTH)LIFO */ 01565000 * END; 0851 01566000 * ELSE 0852 01567000 * ; /* NO PROBLEM */ 01568000 @RF00835 DS 0H 0853 01569000 * END SET; 0853 01570000 @EL00008 DS 0H 0853 01571000 @EF00008 DS 0H 0853 01572000 @ER00008 LM @14,@06,@SA00008 0853 01573000 LM @08,@12,@SA00008+36 0853 01574000 BR @14 0853 01575000 EJECT 01576000 *CLEAR: 0854 01577000 * PROCEDURE; 0854 01578000 * 0854 01579000 CLEAR STM @14,@12,12(@13) 0854 01580000 */**************************************************************** */ 01581000 */* */ 01582000 */* BY USING A SUBROUTINE THE REGISTER VALUES ARE PRESERVED */ 01583000 */* */ 01584000 */**************************************************************** */ 01585000 * 0855 01586000 * DECLARE 0855 01587000 * GPR4P REGISTER(4) UNRESTRICTED, 0855 01588000 * GPR5F REGISTER(5) UNRESTRICTED, 0855 01589000 * GPR6P REGISTER(6) UNRESTRICTED, 0855 01590000 * GPR7F REGISTER(7) UNRESTRICTED; 0855 01591000 * RESPECIFY 0856 01592000 * (GPR4P, 0856 01593000 * GPR5F, 0856 01594000 * GPR6P, 0856 01595000 * GPR7F) RESTRICTED; /* RESTRICT REGISTERS FOR MOVE */ 01596000 * GPR4P=ADDR(PDRSTREC); /* STARTING ADDRESS TO CLEAR */ 01597000 LA GPR4P,PDRSTREC(,BUFPTR) 0857 01598000 * GPR5F=LENGTH(PDRSTREC); /* LENGTH OF AREA TO CLEAR */ 01599000 LA GPR5F,400 0858 01600000 * GPR6P=0; /* SOURCE LOCATION NOT RELEVANT */ 01601000 SLR GPR6P,GPR6P 0859 01602000 * GPR7F=0; /* CLEAR BYTE AND SOURCE LENGTH */ 01603000 SLR GPR7F,GPR7F 0860 01604000 * MVCL(GPR4P,GPR6P); /* WIPE IT CLEAN */ 01605000 MVCL GPR4P,GPR6P 0861 01606000 * RESPECIFY 0862 01607000 * (GPR4P, 0862 01608000 * GPR5F, 0862 01609000 * GPR6P, 0862 01610000 * GPR7F) UNRESTRICTED; /* RELEASE REGISTERS */ 01611000 * END CLEAR; 0863 01612000 @EL00009 DS 0H 0863 01613000 @EF00009 DS 0H 0863 01614000 @ER00009 LM @14,@12,12(@13) 0863 01615000 BR @14 0863 01616000 EJECT 01617000 *DESLOCAL: 0864 01618000 * PROCEDURE; 0864 01619000 * 0864 01620000 DESLOCAL STM @14,@12,@SA00010 0864 01621000 * /*****************************************************************/ 01622000 * /* */ 01623000 * /* THIS ROUTINE COPIES THE PROBLEM DESCRIPTION INTO THE PROBLEM */ 01624000 * /* DIRECTORY DATA SET */ 01625000 * /* */ 01626000 * /*****************************************************************/ 01627000 * 0865 01628000 * DECLARE 0865 01629000 * DESBUFP POINTER(31), /* LOCAL BUFFER POINTER */ 01630000 * I POINTER(31), /* INDEX TO INPUT BYTE */ 01631000 * J POINTER(31), /* INDEX TO OUTPUT BYTE */ 01632000 * K POINTER(31), /* INDEX TO DESCRIPTION LINE */ 01633000 * L POINTER(31), /* INDEX TO LAST BLANK IN OUTPUT */ 01634000 * RNUM FIXED(31); /* DESCRIPTION RECORD SEQUENCE 0865 01635000 * NUMBER */ 01636000 * CALL SET; /* SET FOR DIRECT INSERTS */ 01637000 BAL @14,SET 0866 01638000 * IF RETC=0 THEN 0867 01639000 SLR @09,@09 0867 01640000 CR RETC,@09 0867 01641000 BNE @RF00867 0867 01642000 * DO; 0868 01643000 * DESBUFP=ADDR(BUF2); /* SET POINTER TO BUFFER */ 01644000 LA DESBUFP,BUF2 0869 01645000 * DESBUFP->PDREC=PDREC; /* COPY RECORD HEADER */ 01646000 MVC PDREC(16,DESBUFP),PDREC(BUFPTR) 0870 01647000 * RESPECIFY 0871 01648000 * PDREC BASED(DESBUFP); /* BASE DIRECTORY RECORD IN 0871 01649000 * BUFFER */ 01650000 * PDRKRCTY=PDRDESCC; /* SET RECORD TYPE TO PROBLEM 0872 01651000 * DESCRIPTION */ 01652000 MVC PDRKRCTY(2,DESBUFP),@CC01254 0872 01653000 * RNUM=0; /* INITIALIZE RECORD SEQUENCE 0873 01654000 * NUMBER */ 01655000 SLR @04,@04 0873 01656000 ST @04,RNUM 0873 01657000 * J=1; /* INITIALIZE INDEX TO OUTPUT 0874 01658000 * BYTE */ 01659000 LA @04,1 0874 01660000 LR J,@04 0874 01661000 * K=1; /* INITIALIZE INDEX TO RECORD */ 01662000 ST @04,K 0875 01663000 * L=1; /* INITIALIZE BLANK INDEX */ 01664000 ST @04,L 0876 01665000 * DO I=1 TO DSCQL WHILE RETC=0;/* COPY DESCRIPTION TEXT */ 01666000 LR I,@04 0877 01667000 B @DE00877 0877 01668000 @DL00877 LTR RETC,RETC 0877 01669000 BNZ @DC00877 0877 01670000 * IF J^=L|DSCQ(I)^=' ' THEN /* SKIP OVER LEADING BLANKS */ 01671000 C J,L 0878 01672000 BNE @RT00878 0878 01673000 L @04,DSCQP 0878 01674000 ALR @04,I 0878 01675000 BCTR @04,0 0878 01676000 CLI DSCQ(@04),C' ' 0878 01677000 BE @RF00878 0878 01678000 @RT00878 DS 0H 0879 01679000 * DO; /* ON OUR WAY */ 01680000 * PDRDESC(K,J)=DSCQ(I)|' ';/* COPY A BYTE */ 01681000 L @04,K 0880 01682000 MH @04,@CH01235 0880 01683000 ALR @04,J 0880 01684000 ALR @04,DESBUFP 0880 01685000 AL @04,@CF01652 0880 01686000 L @15,DSCQP 0880 01687000 LR @14,@15 0880 01688000 ALR @14,I 0880 01689000 BCTR @14,0 0880 01690000 MVC PDRDESC-16(1,@04),DSCQ(@14) 0880 01691000 OI PDRDESC-16(@04),C' ' 0880 01692000 * J=J+1; /* BUMP INDEX TO OUTPUT BYTE */ 01693000 AL J,@CF00041 0881 01694000 * IF DSCQ(I)=' ' THEN /* IF A BLANK WAS MOVED */ 01695000 ALR @15,I 0882 01696000 BCTR @15,0 0882 01697000 CLI DSCQ(@15),C' ' 0882 01698000 BNE @RF00882 0882 01699000 * L=J; /* SAVE THE INDEX TO NEXT BYTE */ 01700000 ST J,L 0883 01701000 * ELSE 0884 01702000 * ; /* NOT A BLANK */ 01703000 @RF00882 DS 0H 0885 01704000 * IF J>LENGTH(PDRDESC) THEN/* IF DESCRIPTION LINE IS FULL*/ 01705000 C J,@CF01235 0885 01706000 BNH @RF00885 0885 01707000 * DO; 0886 01708000 * CALL STEPLINE; /* STEP TO NEXT LINE */ 01709000 BAL @14,STEPLINE 0887 01710000 * RESPECIFY 0888 01711000 * RF RESTRICTED; 0888 01712000 * RETC=RF; /* RETURN TO CALLER */ 01713000 LR RETC,RF 0889 01714000 * RESPECIFY 0890 01715000 * RF UNRESTRICTED; 0890 01716000 * END; 0891 01717000 * ELSE 0892 01718000 * ; /* LINE NOT FULL */ 01719000 @RF00885 DS 0H 0893 01720000 * END; /* ONE BYTE MOVED */ 01721000 * ELSE 0894 01722000 * ; /* SKIPPING LEADING AND MULTIPLE 01723000 * BLANKS */ 01724000 @RF00878 DS 0H 0895 01725000 * END; /* FINISHED WITH INPUT TEXT */ 01726000 AL I,@CF00041 0895 01727000 @DE00877 CH I,DSCQL 0895 01728000 BNH @DL00877 0895 01729000 @DC00877 DS 0H 0896 01730000 * IF J>1 THEN /* IF PARTIAL LINE FILLED */ 01731000 C J,@CF00041 0896 01732000 BNH @RF00896 0896 01733000 * DO; /* BLANK OUT THE REST OF IT */ 01734000 * DO I=J TO LENGTH(PDRDESC);/* JUST DO ONE LINE */ 01735000 LR I,J 0898 01736000 B @DE00898 0898 01737000 @DL00898 DS 0H 0899 01738000 * PDRDESC(K,I)=' '; /* PAD IT WITH BLANKS */ 01739000 L @04,K 0899 01740000 MH @04,@CH01235 0899 01741000 ALR @04,I 0899 01742000 ALR @04,DESBUFP 0899 01743000 AL @04,@CF01652 0899 01744000 MVI PDRDESC-16(@04),C' ' 0899 01745000 * END; /* END OF PADDING LOOP */ 01746000 AL I,@CF00041 0900 01747000 @DE00898 C I,@CF01235 0900 01748000 BNH @DL00898 0900 01749000 * K=K+1; /* BUMP THE LINE COUNTER */ 01750000 LA @04,1 0901 01751000 L @15,K 0901 01752000 ALR @15,@04 0901 01753000 ST @15,K 0901 01754000 * BUFPTR->PDRDESCL=BUFPTR->PDRDESCL+1;/* LIKEWISE THE TOTAL*/ 01755000 AL @04,PDRDESCL(,BUFPTR) 0902 01756000 ST @04,PDRDESCL(,BUFPTR) 0902 01757000 * END; /* END OF ODD LINE PROCESS */ 01758000 * ELSE 0904 01759000 * ; /* NO PARTIAL LINE PRESENT */ 01760000 @RF00896 DS 0H 0905 01761000 * IF K>1&RETC=0 THEN /* IF ANY LINES IN RECORD */ 01762000 L @04,K 0905 01763000 C @04,@CF00041 0905 01764000 BNH @RF00905 0905 01765000 LTR RETC,RETC 0905 01766000 BNZ @RF00905 0905 01767000 * DO; /* WRITE OUT THE LAST ONE */ 01768000 * K=K-1; /* STEP BACK TO TRUE LINE COUNT */ 01769000 BCTR @04,0 0907 01770000 ST @04,K 0907 01771000 * IF RNUM<10000 THEN 0908 01772000 L @15,RNUM 0908 01773000 C @15,@CF01596 0908 01774000 BNL @RF00908 0908 01775000 * DO; 0909 01776000 * CVD(RNUM,PACKED); /* CONVERT RECORD NUMBER TO 0910 01777000 * DECIMAL */ 01778000 CVD @15,PACKED 0910 01779000 * UNPK(PDRRECSQ,PACKED);/* UNPACK IT */ 01780000 UNPK PDRRECSQ(4,DESBUFP),PACKED(8) 0911 01781000 * PDRRECSQ(LENGTH(PDRRECSQ))=PDRRECSQ(LENGTH(PDRRECSQ))| 01782000 * '0'; /* CORRECT ZONE OF LAST DIGIT */ 01783000 * 0912 01784000 OI PDRRECSQ+3(DESBUFP),C'0' 0912 01785000 * /*****************************************************/ 01786000 * /* */ 01787000 * /* BLSPUT (ZZ1PDRP) */ 01788000 * /* AREA(PDREC)RECLEN(LENGTH(PDREC)+K*LENGTH(PDRDESC))*/ 01789000 * /* */ 01790000 * /*****************************************************/ 01791000 * 0913 01792000 * DO; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 01793000 * CLEN(LENGTH(PDREC)+K*LENGTH(PD 01794000 * RDESC)) */ 01795000 * RFY 0914 01796000 * GPR01P RSTD; 0914 01797000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 01798000 L @15,ZZ2ZZ1P(,ZZ2PTR) 0915 01799000 L GPR01P,ZZ1PDRP(,@15) 0915 01800000 * RFY 0916 01801000 * DMCB BASED(GPR01P); 0916 01802000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* 0917 01803000 * VALID DMCB ? */ 01804000 * THEN 0917 01805000 LR @00,GPR01P 0917 01806000 N @00,@CF01517 0917 01807000 CLR @00,GPR01P 0917 01808000 BNE @RF00917 0917 01809000 CLC DMCBID(4,GPR01P),@CC01518 0917 01810000 BNE @RF00917 0917 01811000 * DO; 0918 01812000 * DMCBBUFP=ADDR(PDREC);/* PLACE BUFFER ADDRESS IN 01813000 * DMCB */ 01814000 ST DESBUFP,DMCBBUFP(,GPR01P) 0919 01815000 * DMCBORL=(LENGTH(PDREC)+K*LENGTH(PDRDESC))& 0920 01816000 * '7FFFFFFF'X;/* PLACE RECORD LENGTH IN DMCB */ 01817000 MH @04,@CH01235 0920 01818000 AL @04,@CF00052 0920 01819000 N @04,@CF01547 0920 01820000 ST @04,DMCBORL(,GPR01P) 0920 01821000 * DMCBRQST=DMCBPUR;/* INDICATE PUT REQUEST */ 01822000 MVI DMCBRQST(GPR01P),X'05' 0921 01823000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 01824000 L @15,DMCBRI(,GPR01P) 0922 01825000 BALR @14,@15 0922 01826000 * END; 0923 01827000 * ELSE 0924 01828000 * DO; 0924 01829000 B @RC00917 0924 01830000 @RF00917 DS 0H 0925 01831000 * RFY 0925 01832000 * (GPR00F, 0925 01833000 * GPR15F) RSTD; 0925 01834000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 01835000 SLR GPR00F,GPR00F 0926 01836000 * GPR15F=16; /* INDICATE INVALID DMCB */ 01837000 LA GPR15F,16 0927 01838000 * RFY 0928 01839000 * (GPR00F, 0928 01840000 * GPR15F); 0928 01841000 * END; 0929 01842000 * RFY 0930 01843000 * DMCB; 0930 01844000 @RC00917 DS 0H 0931 01845000 * RFY 0931 01846000 * GPR01P; 0931 01847000 * END; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 01848000 * CLEN(LENGTH(PDREC)+K*LENGTH(PD 01849000 * RDESC)) WRITE OUT LAST 0932 01850000 * DESCRIPTION RECORD */ 01851000 * RESPECIFY 0933 01852000 * RF RESTRICTED; 0933 01853000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 01854000 LTR RF,RF 0934 01855000 BZ @RF00934 0934 01856000 * DO; 0935 01857000 * IF RF=16 THEN /* IF INVALID DMCB */ 01858000 C RF,@CF00052 0936 01859000 BNE @RF00936 0936 01860000 * DO; /* ABEND(147) DUMP */ 01861000 * RESPECIFY 0938 01862000 * (GPR01F) RESTRICTED; 0938 01863000 * GPR01F=147; /* COMP CODE IN REG 1 */ 01864000 LA GPR01F,147 0939 01865000 * GPR01F=GPR01F|'80000000'X;/* 0940 01866000 * DUMP/STEP/DUMPOPTS FLAG */ 01867000 O GPR01F,@CF00061 0940 01868000 * SVC(13); /* ISSUE ABEND SVC */ 01869000 SVC 13 0941 01870000 * RESPECIFY 0942 01871000 * (GPR01F) UNRESTRICTED; 0942 01872000 * END; /* ABEND(147) DUMP QUIT RIGHT 0943 01873000 * HERE */ 01874000 * ELSE 0944 01875000 * ; 0944 01876000 @RF00936 DS 0H 0945 01877000 * RETC=RF; /* SAVE RETURN CODE */ 01878000 LR RETC,RF 0945 01879000 * RESPECIFY 0946 01880000 * RF UNRESTRICTED; 0946 01881000 * DO; /* BLSDMSG 0947 01882000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 01883000 * ROUTE(BOTH)LIFO */ 01884000 * CALL BLSDMSG0(ZZ2,04044,DMCBMSG,BLSDMSGS, 0948 01885000 * '10110000'B,0);/* BUILD MESSAGE */ 01886000 ST ZZ2PTR,@AL00001 0948 01887000 LA @09,@CF01562 0948 01888000 ST @09,@AL00001+4 0948 01889000 L @09,ZZ2ZZ1P(,ZZ2PTR) 0948 01890000 L @09,ZZ1PDRP(,@09) 0948 01891000 LA @09,DMCBMSG(,@09) 0948 01892000 ST @09,@AL00001+8 0948 01893000 L @09,ZZ2MSGSP(,ZZ2PTR) 0948 01894000 ST @09,@AL00001+12 0948 01895000 LA @09,@CB01521 0948 01896000 ST @09,@AL00001+16 0948 01897000 LA @09,@CF00046 0948 01898000 ST @09,@AL00001+20 0948 01899000 L @15,ZZ2MSG0P(,ZZ2PTR) 0948 01900000 LA @01,@AL00001 0948 01901000 BALR @14,@15 0948 01902000 * END; /* BLSDMSG 0949 01903000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 01904000 * ROUTE(BOTH)LIFO */ 01905000 * END; /* RETURN TO CALLER */ 01906000 * ELSE 0951 01907000 * ; /* NO PROBLEM */ 01908000 @RF00934 DS 0H 0952 01909000 * END; 0952 01910000 * ELSE 0953 01911000 * CALL OVF; /* RECORD SEQUENCE # OVERFLOW */ 01912000 B @RC00908 0953 01913000 @RF00908 BAL @14,OVF 0953 01914000 * END; 0954 01915000 * ELSE 0955 01916000 * ; /* CAME OUT EVEN WITH NOTHING 0955 01917000 * LEFT OVER (THAT'S UNUSUAL!) */ 01918000 @RF00905 DS 0H 0956 01919000 * END; 0956 01920000 * ELSE 0957 01921000 * ; 0957 01922000 @RF00867 DS 0H 0958 01923000 * RETURN CODE(RETC); /* ALL IS WELL */ 01924000 @RC00867 LR @15,RETC 0958 01925000 L @14,@SA00010 0958 01926000 LM @00,@12,@SA00010+8 0958 01927000 BR @14 0958 01928000 EJECT 01929000 *STEPLINE: 0959 01930000 * PROCEDURE; 0959 01931000 STEPLINE STM @14,@01,@SA00011 0959 01932000 STM @04,@12,@SA00011+16 0959 01933000 * IF L^=J&IPDRDESCL=BUFPTR->PDRDESCL+1;/* BUMP TOTAL LINE COUNT */ 01981000 AL @04,PDRDESCL(,BUFPTR) 0971 01982000 ST @04,PDRDESCL(,BUFPTR) 0971 01983000 * IF K>PDRDEMAX THEN /* IF RECORD IS FULL */ 01984000 C @15,@CF00142 0972 01985000 BNH @RF00972 0972 01986000 * DO; 0973 01987000 * CALL WRITEIT; /* FILL IT IN AND WRITE IT OUT */ 01988000 BAL @14,WRITEIT 0974 01989000 * RESPECIFY 0975 01990000 * RF RESTRICTED; 0975 01991000 * RETC=RF; /* SAVE RETURN CODE */ 01992000 LR RETC,RF 0976 01993000 * RESPECIFY 0977 01994000 * RF UNRESTRICTED; 0977 01995000 * END; 0978 01996000 * ELSE 0979 01997000 * ; /* RECORD NOT FULL */ 01998000 @RF00972 DS 0H 0980 01999000 * RETURN CODE(RETC); /* ALL IS OK */ 02000000 LR @15,RETC 0980 02001000 L @14,@SA00011 0980 02002000 LM @00,@01,@SA00011+8 0980 02003000 LM @04,@12,@SA00011+16 0980 02004000 BR @14 0980 02005000 * END STEPLINE; /* READY TO PROCESS NEXT LINE */ 02006000 EJECT 02007000 *WRITEIT: 0982 02008000 * PROCEDURE; 0982 02009000 WRITEIT STM @14,@12,@SA00012 0982 02010000 * K=1; /* RESET LINE NUMBER */ 02011000 LA @08,1 0983 02012000 ST @08,K 0983 02013000 * IF RNUM<10000 THEN 0984 02014000 L @04,RNUM 0984 02015000 C @04,@CF01596 0984 02016000 BNL @RF00984 0984 02017000 * DO; 0985 02018000 * CVD(RNUM,PACKED); /* CONVERT RSEQUENCE NUMBER TO */ 02019000 CVD @04,PACKED 0986 02020000 * UNPK(PDRRECSQ,PACKED); /* DECIMAL AND UNPACK IT */ 02021000 UNPK PDRRECSQ(4,DESBUFP),PACKED(8) 0987 02022000 * PDRRECSQ(LENGTH(PDRRECSQ))=PDRRECSQ(LENGTH(PDRRECSQ))|'0';/* 02023000 * CORRECT THE ZONE OF LAST DIGIT*/ 02024000 OI PDRRECSQ+3(DESBUFP),C'0' 0988 02025000 * RNUM=RNUM+1; /* BUMP THE SEQUENCE NUMBER */ 02026000 * 0989 02027000 ALR @04,@08 0989 02028000 ST @04,RNUM 0989 02029000 * /*************************************************************/ 02030000 * /* */ 02031000 * /* BLSPUT (ZZ1PDRP) */ 02032000 * /* AREA(PDREC)RECLEN(LENGTH(PDREC)+PDRDEMAX*LENGTH(PDRDESC)) */ 02033000 * /* */ 02034000 * /*************************************************************/ 02035000 * 0990 02036000 * DO; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 02037000 * CLEN(LENGTH(PDREC)+PDRDEMAX*LE 02038000 * NGTH(PDRDESC)) */ 02039000 * RFY 0991 02040000 * GPR01P RSTD; 0991 02041000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 02042000 L @08,ZZ2ZZ1P(,ZZ2PTR) 0992 02043000 L GPR01P,ZZ1PDRP(,@08) 0992 02044000 * RFY 0993 02045000 * DMCB BASED(GPR01P); 0993 02046000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB 02047000 * ? */ 02048000 * THEN 0994 02049000 LR @08,GPR01P 0994 02050000 N @08,@CF01517 0994 02051000 CLR @08,GPR01P 0994 02052000 BNE @RF00994 0994 02053000 CLC DMCBID(4,GPR01P),@CC01518 0994 02054000 BNE @RF00994 0994 02055000 * DO; 0995 02056000 * DMCBBUFP=ADDR(PDREC); /* PLACE BUFFER ADDRESS IN DMCB */ 02057000 ST DESBUFP,DMCBBUFP(,GPR01P) 0996 02058000 * DMCBORL=(LENGTH(PDREC)+PDRDEMAX*LENGTH(PDRDESC))& 0997 02059000 * '7FFFFFFF'X; /* PLACE RECORD LENGTH IN DMCB */ 02060000 MVC DMCBORL(4,GPR01P),@CF01621 0997 02061000 * DMCBRQST=DMCBPUR; /* INDICATE PUT REQUEST */ 02062000 MVI DMCBRQST(GPR01P),X'05' 0998 02063000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 02064000 L @15,DMCBRI(,GPR01P) 0999 02065000 BALR @14,@15 0999 02066000 * END; 1000 02067000 * ELSE 1001 02068000 * DO; 1001 02069000 B @RC00994 1001 02070000 @RF00994 DS 0H 1002 02071000 * RFY 1002 02072000 * (GPR00F, 1002 02073000 * GPR15F) RSTD; 1002 02074000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 02075000 SLR GPR00F,GPR00F 1003 02076000 * GPR15F=16; /* INDICATE INVALID DMCB */ 02077000 LA GPR15F,16 1004 02078000 * RFY 1005 02079000 * (GPR00F, 1005 02080000 * GPR15F); 1005 02081000 * END; 1006 02082000 * RFY 1007 02083000 * DMCB; 1007 02084000 @RC00994 DS 0H 1008 02085000 * RFY 1008 02086000 * GPR01P; 1008 02087000 * END; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 02088000 * CLEN(LENGTH(PDREC)+PDRDEMAX*LE 02089000 * NGTH(PDRDESC)) WRITE OUT THE 02090000 * RECORD */ 02091000 * RESPECIFY 1010 02092000 * RF RESTRICTED; 1010 02093000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 02094000 LTR RF,RF 1011 02095000 BZ @RF01011 1011 02096000 * DO; 1012 02097000 * IF RF=16 THEN /* IF INVALID DMCB */ 02098000 C RF,@CF00052 1013 02099000 BNE @RF01013 1013 02100000 * DO; /* ABEND(147) DUMP */ 02101000 * RESPECIFY 1015 02102000 * (GPR01F) RESTRICTED; 1015 02103000 * GPR01F=147; /* COMP CODE IN REG 1 */ 02104000 LA GPR01F,147 1016 02105000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 02106000 O GPR01F,@CF00061 1017 02107000 * SVC(13); /* ISSUE ABEND SVC */ 02108000 SVC 13 1018 02109000 * RESPECIFY 1019 02110000 * (GPR01F) UNRESTRICTED; 1019 02111000 * END; /* ABEND(147) DUMP QUIT RIGHT 1020 02112000 * HERE */ 02113000 * ELSE 1021 02114000 * ; 1021 02115000 @RF01013 DS 0H 1022 02116000 * RETC=RF; /* SAVE RETURN CODE */ 02117000 LR RETC,RF 1022 02118000 * RESPECIFY 1023 02119000 * RF UNRESTRICTED; 1023 02120000 * DO; /* BLSDMSG 1024 02121000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 02122000 * ROUTE(BOTH)LIFO */ 02123000 * CALL BLSDMSG0(ZZ2,04044,DMCBMSG,BLSDMSGS,'10110000'B,0); 02124000 ST ZZ2PTR,@AL00001 1025 02125000 LA @08,@CF01562 1025 02126000 ST @08,@AL00001+4 1025 02127000 L @08,ZZ2ZZ1P(,ZZ2PTR) 1025 02128000 L @08,ZZ1PDRP(,@08) 1025 02129000 LA @08,DMCBMSG(,@08) 1025 02130000 ST @08,@AL00001+8 1025 02131000 L @08,ZZ2MSGSP(,ZZ2PTR) 1025 02132000 ST @08,@AL00001+12 1025 02133000 LA @08,@CB01521 1025 02134000 ST @08,@AL00001+16 1025 02135000 LA @08,@CF00046 1025 02136000 ST @08,@AL00001+20 1025 02137000 L @15,ZZ2MSG0P(,ZZ2PTR) 1025 02138000 LA @01,@AL00001 1025 02139000 BALR @14,@15 1025 02140000 * /* BUILD MESSAGE */ 02141000 * END; /* BLSDMSG 1026 02142000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 02143000 * ROUTE(BOTH)LIFO */ 02144000 * END; /* DONE */ 02145000 * ELSE 1028 02146000 * ; /* NO PROBLEM */ 02147000 @RF01011 DS 0H 1029 02148000 * END; 1029 02149000 * ELSE 1030 02150000 * CALL OVF; /* RECORD SEQUENCE # OVERFLOW */ 02151000 B @RC00984 1030 02152000 @RF00984 BAL @14,OVF 1030 02153000 * RETURN CODE(RETC); /* ALL IS OK */ 02154000 @RC00984 LR @15,RETC 1031 02155000 L @14,@SA00012 1031 02156000 LM @00,@12,@SA00012+8 1031 02157000 BR @14 1031 02158000 * END WRITEIT; /* READY TO PROCESS NEXT RECORD */ 02159000 * END DESLOCAL; /* ALL DONE */ 02160000 EJECT 02161000 *OVF: 1034 02162000 * PROCEDURE; /* RECORD SEQUENCE # OVERFLOW */ 02163000 OVF STM @14,@12,@SA00013 1034 02164000 * MSGPTR=0; 1035 02165000 SLR @07,@07 1035 02166000 ST @07,MSGPTR 1035 02167000 * DO; /* BLSDMSG 1036 02168000 * (ZZ2,04070,MSGPTR,BLSDMSGS) 1036 02169000 * ROUTE(BOTH)LIFO */ 02170000 * CALL BLSDMSG0(ZZ2,04070,MSGPTR,BLSDMSGS,'10110000'B,0);/* BUILD 02171000 * MESSAGE */ 02172000 ST ZZ2PTR,@AL00001 1037 02173000 LA @07,@CF01610 1037 02174000 ST @07,@AL00001+4 1037 02175000 LA @07,MSGPTR 1037 02176000 ST @07,@AL00001+8 1037 02177000 L @07,ZZ2MSGSP(,ZZ2PTR) 1037 02178000 ST @07,@AL00001+12 1037 02179000 LA @07,@CB01521 1037 02180000 ST @07,@AL00001+16 1037 02181000 LA @07,@CF00046 1037 02182000 ST @07,@AL00001+20 1037 02183000 L @15,ZZ2MSG0P(,ZZ2PTR) 1037 02184000 LA @01,@AL00001 1037 02185000 BALR @14,@15 1037 02186000 * END; /* BLSDMSG 1038 02187000 * (ZZ2,04070,MSGPTR,BLSDMSGS) 1038 02188000 * ROUTE(BOTH)LIFO */ 02189000 * END OVF; 1039 02190000 * 1039 02191000 @EL00013 DS 0H 1039 02192000 @EF00013 DS 0H 1039 02193000 @ER00013 LM @14,@12,@SA00013 1039 02194000 BR @14 1039 02195000 */********************************************************************/ 02196000 */* */ 02197000 */* COMMAND PROCESSOR CODE ENDS */ 02198000 */* */ 02199000 */********************************************************************/ 02200000 * 1040 02201000 EJECT 02202000 * 1040 02203000 */*BLSUPEND--MVS IPCS MODULE */ 02204000 * 1040 02205000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 02206000 * GPR00F FIXED(31) REG(0), 1040 02207000 * GPR01F FIXED(31) REG(1), 1040 02208000 * GPR15F FIXED(31) REG(15), 1040 02209000 * GPR01P PTR(31) REG(1); 1040 02210000 * DECLARE /* COMMON VARIABLES */ 02211000 * I256C CHAR(256) BASED, 1041 02212000 * I031F FIXED(31) BASED, 1041 02213000 * I031P PTR(31) BASED, 1041 02214000 * I015F FIXED(15) BASED, 1041 02215000 * I015P PTR(15) BASED, 1041 02216000 * I008P PTR(8) BASED, 1041 02217000 * I001C CHAR(1) BASED; 1041 02218000 * DECLARE 1042 02219000 * IOPTLIST(6) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 02220000 * GENERATE NODEFS NOREFS DATA; 1043 02221000 * END /* BLRPEND */ 02222000 * 1044 02223000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02224000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 02225000 */*%INCLUDE SYSLIB (BLRFULL ) */ 02226000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 02227000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 02228000 */*%INCLUDE SYSLIB (IKJECT ) */ 02229000 */*%INCLUDE SYSLIB (IKJUPT ) */ 02230000 */*%INCLUDE SYSLIB (BLSUSERV) */ 02231000 */*%INCLUDE SYSLIB (BLRSERV ) */ 02232000 */*%INCLUDE SYSLIB (BLRSERVD) */ 02233000 */*%INCLUDE SYSLIB (BLSDSERV) */ 02234000 */*%INCLUDE SYSLIB (BLSEAP ) */ 02235000 */*%INCLUDE SYSLIB (BLSPDR ) */ 02236000 */*%INCLUDE SYSLIB (BLSFP ) */ 02237000 */*%INCLUDE SYSLIB (BLSESTAT) */ 02238000 * 1044 02239000 * ; 1044 02240000 @EL00001 L @13,4(,@13) 1044 02241000 @EF00001 L @00,@SIZDATD 1044 02242000 LR @01,@11 1044 02243000 BLSUFRER R,LV=(0),A=(1) 02244000 @ER00001 LM @14,@12,12(@13) 1044 02245000 BR @14 1044 02246000 @DATA DS 0H 02247000 @CH00068 DC H'2' 02248000 @CH00094 DC H'3' 02249000 @CH00091 DC H'5' 02250000 @SM01630 MVC PDRODATE(0,BUFPTR),DTEI(@04) 02251000 @SM01632 MVC PDROTIME(0,BUFPTR),TMEI(@04) 02252000 @SM01634 MVC PDRGROUP(0,BUFPTR),GRPI(@04) 02253000 @SM01636 MVC PDRSYS(0,BUFPTR),SIDI(@04) 02254000 @SM01638 MVC PDRUSER(0,BUFPTR),UFLI(@04) 02255000 @SM01640 MVC PDRCOMP(0,BUFPTR),CIDI(@04) 02256000 @SM01642 MVC PDROWNID(0,BUFPTR),OWNI(@01) 02257000 @SM01644 MVC PDRAPRID(0,BUFPTR),APRI(@04) 02258000 @SM01646 MVC PDRPTFID(0,BUFPTR),PTFI(@04) 02259000 @SM01648 MVC PDRFIXID(0,BUFPTR),FIXQ(@04) 02260000 @SM01650 MVC PDRABS(0,BUFPTR),ABSQ(@04) 02261000 @DATD DSECT 02262000 DS 0F 02263000 @SA00001 DS 18F 02264000 @SA00002 DS 14F 02265000 @SA00003 DS 14F 02266000 @SA00005 DS 14F 02267000 @SA00004 DS 14F 02268000 @SA00006 DS 14F 02269000 @SA00007 DS 14F 02270000 @SA00010 DS 15F 02271000 @SA00008 DS 14F 02272000 @SA00011 DS 13F 02273000 @SA00013 DS 15F 02274000 @SA00012 DS 15F 02275000 @AL00001 DS 6A 02276000 @AFTEMPS DS 1F 02277000 BLSEADPR CSECT 02278000 DS 0F 02279000 @CF00046 DC F'0' 02280000 @CF00041 DC F'1' 02281000 @CH00041 EQU @CF00041+2 02282000 @CF00142 DC F'13' 02283000 @CF01016 DC F'14' 02284000 @CF00052 DC F'16' 02285000 @CF01235 DC F'72' 02286000 @CH01235 EQU @CF01235+2 02287000 @CF01618 DC F'416' 02288000 @CF01621 DC F'952' 02289000 @CF00394 DC F'1024' 02290000 @CF01576 DC F'4041' 02291000 @CF01520 DC F'4042' 02292000 @CF01548 DC F'4043' 02293000 @CF01562 DC F'4044' 02294000 @CF01542 DC F'4045' 02295000 @CF01537 DC F'4069' 02296000 @CF01610 DC F'4070' 02297000 @CF01535 DC F'5100' 02298000 @CF01556 DC F'5101' 02299000 @CF01596 DC F'10000' 02300000 @CF01555 DC F'99999' 02301000 @CF01652 DC F'-57' 02302000 @CF00061 DC XL4'80000000' 02303000 @CF01517 DC XL4'FFFFFFF8' 02304000 @CF01547 DC XL4'7FFFFFFF' 02305000 @DATD DSECT 02306000 DS 0D 02307000 PDAPTR DS A 02308000 MSGPTR DS A 02309000 K DS A 02310000 L DS A 02311000 RNUM DS F 02312000 CURDATE DS CL8 02313000 CURTIME DS CL8 02314000 DS CL4 02315000 PACKED DS CL8 02316000 BUF1 DS CL1024 02317000 BUF2 DS CL1024 02318000 IOPTLIST DS 6A 02319000 BLSEADPR CSECT 02320000 DS 0F 02321000 @SIZDATD DC AL1(0) 02322000 DC AL3(@ENDDATD-@DATD) 02323000 @CV01347 DC V(BLSDTIME) 02324000 @CV01348 DC V(BLSEADP1) 02325000 DS 0D 02326000 PCPTR DC AL4(PC) 02327000 @CC01278 DC C'INITIAL ' 02328000 @CC01525 DC C'00000' 02329000 @CC01518 DC C'DMCB' 02330000 @CC01526 EQU @CC01525 02331000 @CC01252 DC C'ST' 02332000 @CC01254 DC C'DE' 02333000 @CC01262 DC C'SV' 02334000 @CB01629 DC X'00' 02335000 @CB01521 DC B'10110000' 02336000 @CB01536 DC B'00110000' 02337000 STATPROB DC CL8'ACTIVE ' 02338000 DC CL8'CLAPAR ' 02339000 DC CL8'CLDUP ' 02340000 DC CL8'CLFIX ' 02341000 DC CL8'CLNTF ' 02342000 DC CL8'CLOTHER ' 02343000 DC CL8'CLPTF ' 02344000 DC CL8'INACTIVE' 02345000 DC CL8'INITIAL ' 02346000 STATIBM DC CL8' ' 02347000 DC CL8'ABY ' 02348000 DC CL8'ACK ' 02349000 DC CL8'APARED ' 02350000 DC CL8'CAN ' 02351000 DC CL8'DOC ' 02352000 DC CL8'DUA ' 02353000 DC CL8'DUB ' 02354000 DC CL8'DUU ' 02355000 DC CL8'MCH ' 02356000 DC CL8'PER ' 02357000 DC CL8'PRS ' 02358000 DC CL8'PSRR ' 02359000 DC CL8'REPORTED' 02360000 DC CL8'RET ' 02361000 DC CL8'ROP ' 02362000 DC CL8'SUG ' 02363000 DC CL8'UR1 ' 02364000 DC CL8'UR2 ' 02365000 DC CL8'UR3 ' 02366000 DC CL8'UR4 ' 02367000 DC CL8'UR5 ' 02368000 DC CL8'USE ' 02369000 STATPTF DC CL4' ' 02370000 DC CL4'ACPT' 02371000 DC CL4'INST' 02372000 DC CL4'RCVD' 02373000 DC CL4'REJD' 02374000 DC CL4'RQST' 02375000 STATFIX DC CL4' ' 02376000 DC CL4'ACPT' 02377000 DC CL4'INST' 02378000 DC CL4'RCVD' 02379000 DC CL4'REJD' 02380000 DC CL4'RQST' 02381000 @DATD DSECT 02382000 SPACE 2 02383000 *********************************************************************** 02384000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 02385000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 02386000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 02387000 *********************************************************************** 02388000 SPACE 02389000 BLSEADPR CSECT 02390000 ORG 02391000 DS 0D 02392000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSEADPR+19)/20+7)/8)CL8'BLSEADPR' 02393000 @DATD DSECT 02394000 SPACE 2 02395000 *********************************************************************** 02396000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 02397000 *********************************************************************** 02398000 SPACE 02399000 BLSEADPR CSECT 02400000 PC IKJPARM DSECT=PD 02401000 @DATD DSECT 02402000 BLSEADPR CSECT 02403000 DATEWD IKJKEYWD 02404000 @DATD DSECT 02405000 BLSEADPR CSECT 02406000 IKJNAME 'DATE',SUBFLD=DATESUB 02407000 @DATD DSECT 02408000 BLSEADPR CSECT 02409000 TIMEWD IKJKEYWD 02410000 @DATD DSECT 02411000 BLSEADPR CSECT 02412000 IKJNAME 'TIME',SUBFLD=TIMESUB 02413000 @DATD DSECT 02414000 BLSEADPR CSECT 02415000 GROUPWD IKJKEYWD 02416000 @DATD DSECT 02417000 BLSEADPR CSECT 02418000 IKJNAME 'GROUP',SUBFLD=GRPSUB 02419000 @DATD DSECT 02420000 BLSEADPR CSECT 02421000 SYSTEMWD IKJKEYWD 02422000 @DATD DSECT 02423000 BLSEADPR CSECT 02424000 IKJNAME 'SYSTEM',SUBFLD=SIDSUB 02425000 @DATD DSECT 02426000 BLSEADPR CSECT 02427000 USERWD IKJKEYWD 02428000 @DATD DSECT 02429000 BLSEADPR CSECT 02430000 IKJNAME 'USER',SUBFLD=USESUB 02431000 @DATD DSECT 02432000 BLSEADPR CSECT 02433000 COMPIDWD IKJKEYWD 02434000 @DATD DSECT 02435000 BLSEADPR CSECT 02436000 IKJNAME 'COMPID',SUBFLD=CIDSUB 02437000 @DATD DSECT 02438000 BLSEADPR CSECT 02439000 OWNERWD IKJKEYWD 02440000 @DATD DSECT 02441000 BLSEADPR CSECT 02442000 IKJNAME 'OWNER',SUBFLD=OWNSUB 02443000 @DATD DSECT 02444000 BLSEADPR CSECT 02445000 SEVWD IKJKEYWD 02446000 @DATD DSECT 02447000 BLSEADPR CSECT 02448000 IKJNAME 'SEVERITY',SUBFLD=SEVSUB 02449000 @DATD DSECT 02450000 BLSEADPR CSECT 02451000 PSTATWD IKJKEYWD DEFAULT='PSTATUS' 02452000 @DATD DSECT 02453000 BLSEADPR CSECT 02454000 IKJNAME 'PSTATUS',SUBFLD=PSTATSUB 02455000 @DATD DSECT 02456000 BLSEADPR CSECT 02457000 IBMSTWD IKJKEYWD 02458000 @DATD DSECT 02459000 BLSEADPR CSECT 02460000 IKJNAME 'IBMSTATUS',SUBFLD=IBMSTSUB 02461000 @DATD DSECT 02462000 BLSEADPR CSECT 02463000 PTFSTWD IKJKEYWD 02464000 @DATD DSECT 02465000 BLSEADPR CSECT 02466000 IKJNAME 'PTFSTATUS',SUBFLD=PTFSTSUB 02467000 @DATD DSECT 02468000 BLSEADPR CSECT 02469000 FIXSTWD IKJKEYWD 02470000 @DATD DSECT 02471000 BLSEADPR CSECT 02472000 IKJNAME 'FIXSTATUS',SUBFLD=FIXSTSUB 02473000 @DATD DSECT 02474000 BLSEADPR CSECT 02475000 APARWD IKJKEYWD 02476000 @DATD DSECT 02477000 BLSEADPR CSECT 02478000 IKJNAME 'APARID',SUBFLD=APARSUB 02479000 @DATD DSECT 02480000 BLSEADPR CSECT 02481000 PTFIDWD IKJKEYWD 02482000 @DATD DSECT 02483000 BLSEADPR CSECT 02484000 IKJNAME 'PTFID',SUBFLD=PTFSUB 02485000 @DATD DSECT 02486000 BLSEADPR CSECT 02487000 FIXWD IKJKEYWD 02488000 @DATD DSECT 02489000 BLSEADPR CSECT 02490000 IKJNAME 'FIXID',SUBFLD=FIXSUB 02491000 @DATD DSECT 02492000 BLSEADPR CSECT 02493000 ABSWD IKJKEYWD 02494000 @DATD DSECT 02495000 BLSEADPR CSECT 02496000 IKJNAME 'ABSTRACT',SUBFLD=ABSSUB 02497000 @DATD DSECT 02498000 BLSEADPR CSECT 02499000 DESCWD IKJKEYWD 02500000 @DATD DSECT 02501000 BLSEADPR CSECT 02502000 IKJNAME 'DESCRIPTION',SUBFLD=DESCSUB 02503000 @DATD DSECT 02504000 BLSEADPR CSECT 02505000 IKJNAME 'DSDESCRIPTION',SUBFLD=DSDSUB 02506000 @DATD DSECT 02507000 BLSEADPR CSECT 02508000 DEFLTWD IKJKEYWD 02509000 @DATD DSECT 02510000 BLSEADPR CSECT 02511000 IKJNAME 'DEFAULT' 02512000 @DATD DSECT 02513000 BLSEADPR CSECT 02514000 PXTEST IKJKEYWD 02515000 @DATD DSECT 02516000 BLSEADPR CSECT 02517000 IKJNAME 'TEST' 02518000 @DATD DSECT 02519000 BLSEADPR CSECT 02520000 IKJNAME 'NOTEST' 02521000 @DATD DSECT 02522000 BLSEADPR CSECT 02523000 SPACE 02524000 DATESUB IKJSUBF 02525000 @DATD DSECT 02526000 BLSEADPR CSECT 02527000 DTE IKJIDENT 'DATE',UPPERCASE,FIRST=NUMERIC,MAXLNTH=8,OTHER=ANY, *02528000 PROMPT='DATE OCCURRED - MM/DD/YY',VALIDCK=BLSDDT00 02529000 @DATD DSECT 02530000 BLSEADPR CSECT 02531000 SPACE 02532000 TIMESUB IKJSUBF 02533000 @DATD DSECT 02534000 BLSEADPR CSECT 02535000 TME IKJIDENT 'TIME',UPPERCASE,FIRST=NUMERIC,MAXLNTH=8,OTHER=ANY, *02536000 PROMPT='TIME OCCURRED - HH:MM:SS',VALIDCK=BLSDTM00 02537000 @DATD DSECT 02538000 BLSEADPR CSECT 02539000 SPACE 02540000 GRPSUB IKJSUBF 02541000 @DATD DSECT 02542000 BLSEADPR CSECT 02543000 GRP IKJIDENT 'GROUP',UPPERCASE,FIRST=ALPHANUM,MAXLNTH=8,OTHER=ALPH*02544000 ANUM,PROMPT='GROUP ASSIGNED TO THIS PROBLEM' 02545000 @DATD DSECT 02546000 BLSEADPR CSECT 02547000 SPACE 02548000 SIDSUB IKJSUBF 02549000 @DATD DSECT 02550000 BLSEADPR CSECT 02551000 SID IKJIDENT 'SYSTEM ID',UPPERCASE,FIRST=ALPHANUM,MAXLNTH=8,OTHER=*02552000 ALPHANUM,PROMPT='SYSTEM ID' 02553000 @DATD DSECT 02554000 BLSEADPR CSECT 02555000 SPACE 02556000 USESUB IKJSUBF 02557000 @DATD DSECT 02558000 BLSEADPR CSECT 02559000 UFL IKJIDENT 'USER FIELD',UPPERCASE,FIRST=ALPHANUM,MAXLNTH=8, *02560000 OTHER=ALPHANUM,PROMPT='USER FIELD' 02561000 @DATD DSECT 02562000 BLSEADPR CSECT 02563000 SPACE 02564000 CIDSUB IKJSUBF 02565000 @DATD DSECT 02566000 BLSEADPR CSECT 02567000 CID IKJIDENT 'COMPONENT ID',UPPERCASE,FIRST=ANY,MAXLNTH=10,OTHER=A*02568000 NY,PROMPT='SUSPECTED FAILING COMPONENT ID' 02569000 @DATD DSECT 02570000 BLSEADPR CSECT 02571000 SPACE 02572000 OWNSUB IKJSUBF 02573000 @DATD DSECT 02574000 BLSEADPR CSECT 02575000 OWN IKJIDENT 'OWNER',UPPERCASE,FIRST=ALPHA,MAXLNTH=7,OTHER=ALPHANU*02576000 M,PROMPT='OWNER OF THE PROBLEM' 02577000 @DATD DSECT 02578000 BLSEADPR CSECT 02579000 SPACE 02580000 SEVSUB IKJSUBF 02581000 @DATD DSECT 02582000 BLSEADPR CSECT 02583000 SEV IKJIDENT 'SEVERITY',UPPERCASE,FIRST=NUMERIC,MAXLNTH=1,PROMPT='*02584000 SEVERITY ASSOCIATED WITH THIS PROBLEM',VALIDCK=BLSDSV00 02585000 @DATD DSECT 02586000 BLSEADPR CSECT 02587000 SPACE 02588000 PSTATSUB IKJSUBF 02589000 @DATD DSECT 02590000 BLSEADPR CSECT 02591000 PSTTYPE IKJKEYWD DEFAULT='INITIAL' 02592000 @DATD DSECT 02593000 BLSEADPR CSECT 02594000 IKJNAME 'ACTIVE' 02595000 @DATD DSECT 02596000 BLSEADPR CSECT 02597000 IKJNAME 'CLAPAR' 02598000 @DATD DSECT 02599000 BLSEADPR CSECT 02600000 IKJNAME 'CLDUP' 02601000 @DATD DSECT 02602000 BLSEADPR CSECT 02603000 IKJNAME 'CLFIX' 02604000 @DATD DSECT 02605000 BLSEADPR CSECT 02606000 IKJNAME 'CLNTF' 02607000 @DATD DSECT 02608000 BLSEADPR CSECT 02609000 IKJNAME 'CLOTHER' 02610000 @DATD DSECT 02611000 BLSEADPR CSECT 02612000 IKJNAME 'CLPTF' 02613000 @DATD DSECT 02614000 BLSEADPR CSECT 02615000 IKJNAME 'INACTIVE' 02616000 @DATD DSECT 02617000 BLSEADPR CSECT 02618000 IKJNAME 'INITIAL' 02619000 @DATD DSECT 02620000 BLSEADPR CSECT 02621000 SPACE 02622000 IBMSTSUB IKJSUBF 02623000 @DATD DSECT 02624000 BLSEADPR CSECT 02625000 IBMFLDWD IKJKEYWD 02626000 @DATD DSECT 02627000 BLSEADPR CSECT 02628000 IKJNAME 'NONE' 02629000 @DATD DSECT 02630000 BLSEADPR CSECT 02631000 IKJNAME 'ABY' 02632000 @DATD DSECT 02633000 BLSEADPR CSECT 02634000 IKJNAME 'ACK' 02635000 @DATD DSECT 02636000 BLSEADPR CSECT 02637000 IKJNAME 'APARED' 02638000 @DATD DSECT 02639000 BLSEADPR CSECT 02640000 IKJNAME 'CAN' 02641000 @DATD DSECT 02642000 BLSEADPR CSECT 02643000 IKJNAME 'DOC' 02644000 @DATD DSECT 02645000 BLSEADPR CSECT 02646000 IKJNAME 'DUA' 02647000 @DATD DSECT 02648000 BLSEADPR CSECT 02649000 IKJNAME 'DUB' 02650000 @DATD DSECT 02651000 BLSEADPR CSECT 02652000 IKJNAME 'DUU' 02653000 @DATD DSECT 02654000 BLSEADPR CSECT 02655000 IKJNAME 'MCH' 02656000 @DATD DSECT 02657000 BLSEADPR CSECT 02658000 IKJNAME 'PER' 02659000 @DATD DSECT 02660000 BLSEADPR CSECT 02661000 IKJNAME 'PRS' 02662000 @DATD DSECT 02663000 BLSEADPR CSECT 02664000 IKJNAME 'PSRR' 02665000 @DATD DSECT 02666000 BLSEADPR CSECT 02667000 IKJNAME 'REPORTED' 02668000 @DATD DSECT 02669000 BLSEADPR CSECT 02670000 IKJNAME 'RET' 02671000 @DATD DSECT 02672000 BLSEADPR CSECT 02673000 IKJNAME 'ROP' 02674000 @DATD DSECT 02675000 BLSEADPR CSECT 02676000 IKJNAME 'SUG' 02677000 @DATD DSECT 02678000 BLSEADPR CSECT 02679000 IKJNAME 'UR1' 02680000 @DATD DSECT 02681000 BLSEADPR CSECT 02682000 IKJNAME 'UR2' 02683000 @DATD DSECT 02684000 BLSEADPR CSECT 02685000 IKJNAME 'UR3' 02686000 @DATD DSECT 02687000 BLSEADPR CSECT 02688000 IKJNAME 'UR4' 02689000 @DATD DSECT 02690000 BLSEADPR CSECT 02691000 IKJNAME 'UR5' 02692000 @DATD DSECT 02693000 BLSEADPR CSECT 02694000 IKJNAME 'USE' 02695000 @DATD DSECT 02696000 BLSEADPR CSECT 02697000 SPACE 02698000 PTFSTSUB IKJSUBF 02699000 @DATD DSECT 02700000 BLSEADPR CSECT 02701000 PTFFLDWD IKJKEYWD 02702000 @DATD DSECT 02703000 BLSEADPR CSECT 02704000 IKJNAME 'NONE' 02705000 @DATD DSECT 02706000 BLSEADPR CSECT 02707000 IKJNAME 'ACPT' 02708000 @DATD DSECT 02709000 BLSEADPR CSECT 02710000 IKJNAME 'INST' 02711000 @DATD DSECT 02712000 BLSEADPR CSECT 02713000 IKJNAME 'RCVD' 02714000 @DATD DSECT 02715000 BLSEADPR CSECT 02716000 IKJNAME 'REJD' 02717000 @DATD DSECT 02718000 BLSEADPR CSECT 02719000 IKJNAME 'RQST' 02720000 @DATD DSECT 02721000 BLSEADPR CSECT 02722000 SPACE 02723000 FIXSTSUB IKJSUBF 02724000 @DATD DSECT 02725000 BLSEADPR CSECT 02726000 FIXFLDWD IKJKEYWD 02727000 @DATD DSECT 02728000 BLSEADPR CSECT 02729000 IKJNAME 'NONE' 02730000 @DATD DSECT 02731000 BLSEADPR CSECT 02732000 IKJNAME 'ACPT' 02733000 @DATD DSECT 02734000 BLSEADPR CSECT 02735000 IKJNAME 'INST' 02736000 @DATD DSECT 02737000 BLSEADPR CSECT 02738000 IKJNAME 'RCVD' 02739000 @DATD DSECT 02740000 BLSEADPR CSECT 02741000 IKJNAME 'REJD' 02742000 @DATD DSECT 02743000 BLSEADPR CSECT 02744000 IKJNAME 'RQST' 02745000 @DATD DSECT 02746000 BLSEADPR CSECT 02747000 SPACE 02748000 APARSUB IKJSUBF 02749000 @DATD DSECT 02750000 BLSEADPR CSECT 02751000 APR IKJIDENT 'APAR',UPPERCASE,FIRST=ALPHA,MAXLNTH=7,OTHER=NONATNUM*02752000 ,PROMPT='APAR IDENTIFIER ASSIGNED TO THIS PROBLEM', *02753000 VALIDCK=BLSDC070 02754000 @DATD DSECT 02755000 BLSEADPR CSECT 02756000 SPACE 02757000 PTFSUB IKJSUBF 02758000 @DATD DSECT 02759000 BLSEADPR CSECT 02760000 PTF IKJIDENT 'PTF',UPPERCASE,FIRST=ALPHA,MAXLNTH=7,OTHER=NONATNUM,*02761000 PROMPT='PTF IDENTIFIER ASSIGNED TO THIS PROBLEM', *02762000 VALIDCK=BLSDC070 02763000 @DATD DSECT 02764000 BLSEADPR CSECT 02765000 SPACE 02766000 FIXSUB IKJSUBF 02767000 @DATD DSECT 02768000 BLSEADPR CSECT 02769000 FIX IKJPOSIT QSTRING,UPPERCASE,PROMPT='FIX IDENTIFIER ASSIGNED TO *02770000 THIS PROBLEM',VALIDCK=BLSDC600 02771000 @DATD DSECT 02772000 BLSEADPR CSECT 02773000 SPACE 02774000 ABSSUB IKJSUBF 02775000 @DATD DSECT 02776000 BLSEADPR CSECT 02777000 ABS IKJPOSIT QSTRING,UPPERCASE,HELP=('ABSTRACT OF PROBLEM ENTERED *02778000 AS QUOTED TEXT'),PROMPT='ABSTRACT - 128 CHARACTERS MAXIM*02779000 UM',VALIDCK=BLSDC128 02780000 @DATD DSECT 02781000 BLSEADPR CSECT 02782000 SPACE 02783000 DESCSUB IKJSUBF 02784000 @DATD DSECT 02785000 BLSEADPR CSECT 02786000 DSC IKJPOSIT QSTRING,UPPERCASE,HELP=('DESCRIPTION OF PROBLEM ENTER*02787000 ED AS QUOTED TEXT'),PROMPT='DESCRIPTION OF PROBLEM' 02788000 @DATD DSECT 02789000 BLSEADPR CSECT 02790000 SPACE 02791000 DSDSUB IKJSUBF 02792000 @DATD DSECT 02793000 BLSEADPR CSECT 02794000 DDS IKJPOSIT DSNAME,USID,UPPERCASE,PROMPT='DATA SET NAME CONTAININ*02795000 G DESCRIPTION' 02796000 @DATD DSECT 02797000 PD DSECT 02798000 LISTEND DS 0C 02799000 BLSEADPR CSECT 02800000 IKJENDP 02801000 SPACE 2 02802000 *********************************************************************** 02803000 * IKJENDP--END SYNTAX DESCRIPTION * 02804000 *********************************************************************** 02805000 SPACE 02806000 @DATD DSECT 02807000 SPACE 2 02808000 *********************************************************************** 02809000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 02810000 *********************************************************************** 02811000 SPACE 02812000 DS 0D 02813000 @DATD DSECT 02814000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02815000 @ENDDATD EQU * 02816000 BLSEADPR CSECT 02817000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02818000 @01 EQU 01 02819000 @02 EQU 02 02820000 @03 EQU 03 02821000 @04 EQU 04 02822000 @05 EQU 05 02823000 @06 EQU 06 02824000 @07 EQU 07 02825000 @08 EQU 08 02826000 @09 EQU 09 02827000 @10 EQU 10 02828000 @11 EQU 11 02829000 @12 EQU 12 02830000 @13 EQU 13 02831000 @14 EQU 14 02832000 @15 EQU 15 02833000 J EQU @03 02834000 I EQU @02 02835000 DESBUFP EQU @09 02836000 PNUM EQU @02 02837000 RETC EQU @07 02838000 BUFPTR EQU @08 02839000 ZZ2PTR EQU @06 02840000 R0 EQU @00 02841000 R1 EQU @01 02842000 R2 EQU @02 02843000 R3 EQU @03 02844000 R4 EQU @04 02845000 R5 EQU @05 02846000 R9 EQU @09 02847000 RB EQU @11 02848000 RD EQU @13 02849000 RE EQU @14 02850000 RF EQU @15 02851000 PDRPTR EQU @05 02852000 GPR15F EQU @15 02853000 GPR01F EQU @01 02854000 GPR00F EQU @00 02855000 GPR01P EQU @01 02856000 GPR4P EQU @04 02857000 GPR5F EQU @05 02858000 GPR6P EQU @06 02859000 GPR7F EQU @07 02860000 RA EQU @10 02861000 RC EQU @12 02862000 R6 EQU @06 02863000 R7 EQU @07 02864000 R8 EQU @08 02865000 ZZ1 EQU 0 02866000 ZZ1ZZ2P EQU ZZ1+36 02867000 ZZ1PDRP EQU ZZ1+40 02868000 ZZ1FPP EQU ZZ1+140 02869000 ZZ1ATTN EQU ZZ1+360 02870000 ZZ1EVE EQU ZZ1ATTN+4 02871000 ZZ1F EQU ZZ1+368 02872000 ZZ1N EQU ZZ1+1116 02873000 ZZ2 EQU 0 02874000 ZZ2AMD EQU ZZ2 02875000 @NM00013 EQU ZZ2AMD+7 02876000 ZZ2PRT EQU ZZ2+138 02877000 ZZ2PRTT EQU ZZ2PRT+4 02878000 ZZ2PRTT1 EQU ZZ2PRTT+1 02879000 ZZ2A EQU ZZ2+272 02880000 ZZ2AF EQU ZZ2A+16 02881000 ZZ2AFX EQU ZZ2AF+5 02882000 ZZ2APID EQU ZZ2A+64 02883000 ZZ2AD EQU ZZ2A+74 02884000 ZZ2ADD EQU ZZ2AD 02885000 ZZ2ADDT EQU ZZ2ADD+2 02886000 ZZ2ADM EQU ZZ2AD+46 02887000 ZZ2ADMT EQU ZZ2ADM+2 02888000 ZZ2ADP EQU ZZ2AD+56 02889000 ZZ2ADPT EQU ZZ2ADP+2 02890000 ZZ2AQAS EQU ZZ2A+144 02891000 ZZ2AQD EQU ZZ2A+160 02892000 ZZ2AQDT EQU ZZ2AQD+10 02893000 ZZ2AQDF EQU ZZ2AQD+52 02894000 ZZ2STG EQU ZZ2+960 02895000 ZZ2ALLOP EQU ZZ2+992 02896000 ZZ2FREEP EQU ZZ2+996 02897000 ZZ2FF19P EQU ZZ2+1000 02898000 ZZ2FRE1P EQU ZZ2+1004 02899000 ZZ2FF18P EQU ZZ2+1008 02900000 ZZ2DYNAP EQU ZZ2+1012 02901000 ZZ2ZZ2CP EQU ZZ2+1016 02902000 ZZ2ZZ2DP EQU ZZ2+1020 02903000 ZZ2STAIP EQU ZZ2+1024 02904000 ZZ2FF02P EQU ZZ2+1028 02905000 ZZ2GETLP EQU ZZ2+1032 02906000 ZZ2PARSP EQU ZZ2+1036 02907000 ZZ2PTGTP EQU ZZ2+1040 02908000 ZZ2PUTLP EQU ZZ2+1044 02909000 ZZ2SCANP EQU ZZ2+1048 02910000 ZZ2STCKP EQU ZZ2+1052 02911000 ZZ2ALOCP EQU ZZ2+1056 02912000 ZZ2MSGSP EQU ZZ2+1060 02913000 ZZ2TRMOP EQU ZZ2+1064 02914000 ZZ2TRMVP EQU ZZ2+1068 02915000 ZZ2MSG0P EQU ZZ2+1076 02916000 ZZ2PUTNP EQU ZZ2+1084 02917000 ZZ2TRMNP EQU ZZ2+1088 02918000 ZZ2ENQ0P EQU ZZ2+1092 02919000 ZZ2ADSDP EQU ZZ2+1096 02920000 ZZ2APDRP EQU ZZ2+1100 02921000 ZZ2FDSDP EQU ZZ2+1104 02922000 ZZ2FPDRP EQU ZZ2+1108 02923000 ZZ2ZZ1P EQU ZZ2+1264 02924000 ZZ2DVTP EQU ZZ2+1276 02925000 ZZ2BVTP EQU ZZ2+1280 02926000 ZZ2CPPL EQU ZZ2+1292 02927000 ZZ2CPPLC EQU ZZ2CPPL 02928000 ZZ2ITR EQU ZZ2+2840 02929000 ZZ2ITRE EQU ZZ2ITR+16 02930000 ZZ2ITSE EQU ZZ2+2864 02931000 ZZ2ES EQU ZZ2+2872 02932000 ZZ2AMDX EQU ZZ2+7160 02933000 ZZ2AXO EQU ZZ2+7934 02934000 ZZ2AXOT EQU ZZ2AXO+2 02935000 CMD EQU 0 02936000 CMDT EQU CMD+4 02937000 PSCB EQU 0 02938000 PSCBUSER EQU PSCB 02939000 PSCBUSRL EQU PSCB+7 02940000 PSCBATR1 EQU PSCB+16 02941000 ECT EQU 0 02942000 ECTSWS EQU ECT+28 02943000 ECTSWS2 EQU ECT+40 02944000 ECTSWS21 EQU ECTSWS2 02945000 UPT EQU 0 02946000 UPTSWS EQU UPT+12 02947000 SA EQU 0 02948000 SA1 EQU SA 02949000 SAR EQU SA+12 02950000 BLSUPARI EQU 0 02951000 BVT EQU 0 02952000 BVTPUTLP EQU BVT+4 02953000 BVTPUTOP EQU BVT+12 02954000 BVTPUTTP EQU BVT+16 02955000 BVTPUTVP EQU BVT+20 02956000 BVTPUTAP EQU BVT+24 02957000 BVTPRTTP EQU BVT+28 02958000 BVTPRTAP EQU BVT+32 02959000 BVTPUTDP EQU BVT+36 02960000 BVTMONP EQU BVT+40 02961000 BVTMON2P EQU BVT+44 02962000 BVTVSARP EQU BVT+48 02963000 BVTVSENP EQU BVT+64 02964000 BVTVSERP EQU BVT+68 02965000 BVTVSGEP EQU BVT+72 02966000 BVTVSGUP EQU BVT+76 02967000 BVTVSPOP EQU BVT+80 02968000 BVTVSPUP EQU BVT+84 02969000 BVTMPKNP EQU BVT+104 02970000 BVTMONLP EQU BVT+108 02971000 BVTPUTCP EQU BVT+132 02972000 BVTMPK1P EQU BVT+136 02973000 BVTZZ2RP EQU BVT+140 02974000 BVTPGMRP EQU BVT+144 02975000 BVTMONAP EQU BVT+148 02976000 BVTBLDDP EQU BVT+152 02977000 BVTBLDLP EQU BVT+156 02978000 BVTPGMCP EQU BVT+160 02979000 BVTPGMDP EQU BVT+164 02980000 BVTPGMLP EQU BVT+168 02981000 BVTMONCP EQU BVT+180 02982000 BVTMONDP EQU BVT+184 02983000 BVTMONTP EQU BVT+188 02984000 BVTPARIP EQU BVT+192 02985000 BVTPARUP EQU BVT+196 02986000 BVTPRTNP EQU BVT+204 02987000 BVTVSCRP EQU BVT+208 02988000 BVTVSMRP EQU BVT+212 02989000 BVTMONXP EQU BVT+216 02990000 BVTTRMAP EQU BVT+228 02991000 BLSDMSGS EQU 0 02992000 BLSDMSG0 EQU 0 02993000 DVT EQU 0 02994000 DVTDEQPP EQU DVT+8 02995000 DVTENQPP EQU DVT+12 02996000 DVTAUTHP EQU DVT+20 02997000 DVTLPCLP EQU DVT+24 02998000 DVTBP00P EQU DVT+28 02999000 DVTCN00P EQU DVT+32 03000000 DVTDF00P EQU DVT+36 03001000 DVTDS00P EQU DVT+44 03002000 DVTFL00P EQU DVT+48 03003000 DVTFP00P EQU DVT+52 03004000 DVTGD00P EQU DVT+56 03005000 DVTGG00P EQU DVT+60 03006000 DVTGP00P EQU DVT+64 03007000 DVTND00P EQU DVT+68 03008000 DVTND01P EQU DVT+72 03009000 DVTOD00P EQU DVT+76 03010000 DVTPS00P EQU DVT+80 03011000 DVTSD00P EQU DVT+84 03012000 DVTSL00P EQU DVT+88 03013000 DVTTL00P EQU DVT+92 03014000 DVTUD00P EQU DVT+96 03015000 DVTUP00P EQU DVT+100 03016000 DVTLP00P EQU DVT+104 03017000 DVTLALLP EQU DVT+108 03018000 DVTLPFMP EQU DVT+112 03019000 DVTCLOSP EQU DVT+116 03020000 DVTOPENP EQU DVT+120 03021000 DVTPERAP EQU DVT+124 03022000 DVTDALLP EQU DVT+128 03023000 PCCSECT EQU 0 03024000 PDDSECT EQU 0 03025000 PDXP EQU PDDSECT+1 03026000 PDL EQU PDDSECT+5 03027000 DTEI EQU 0 03028000 TMEI EQU 0 03029000 GRPI EQU 0 03030000 SIDI EQU 0 03031000 UFLI EQU 0 03032000 CIDI EQU 0 03033000 OWNI EQU 0 03034000 SEVI EQU 0 03035000 APRI EQU 0 03036000 PTFI EQU 0 03037000 FIXQ EQU 0 03038000 ABSQ EQU 0 03039000 DSCQ EQU 0 03040000 PDREC EQU 0 03041000 PDRKEY EQU PDREC 03042000 PDRGRP EQU PDRKEY 03043000 PDRKRCTY EQU PDRGRP 03044000 PDRKPID EQU PDRGRP+2 03045000 PDRKPREF EQU PDRKPID 03046000 PDRKPNUM EQU PDRKPID+3 03047000 PDRRECSQ EQU PDRKEY+10 03048000 PDRINFO EQU PDREC+16 03049000 FPBLOK EQU 0 03050000 FPPIDP EQU FPBLOK+96 03051000 FPDBPIDP EQU FPBLOK+100 03052000 FPSYSID EQU FPBLOK+104 03053000 FPGRPID EQU FPBLOK+112 03054000 FPADMNM EQU FPBLOK+120 03055000 FPDELNM EQU FPBLOK+128 03056000 MYBUF EQU 0 03057000 DMCB EQU 0 03058000 DMCBID EQU DMCB 03059000 DMCBFTY EQU DMCB+20 03060000 DMCBOPN EQU DMCB+21 03061000 DMCBRQST EQU DMCB+22 03062000 DMCBRMOD EQU DMCB+23 03063000 DMCBOUT EQU DMCBRMOD 03064000 DMCBTMP EQU DMCBOUT 03065000 DMCBRM6 EQU DMCBRMOD 03066000 DMCBRM5 EQU DMCBRMOD 03067000 DMCBOPTS EQU DMCB+24 03068000 DMCBKYD EQU DMCBOPTS 03069000 DMCBGKY EQU DMCBOPTS 03070000 DMCBAPX EQU DMCBOPTS 03071000 DMCBUPD EQU DMCBOPTS 03072000 DMCBMFLG EQU DMCB+28 03073000 DMCBBUFP EQU DMCB+32 03074000 DMCBBLEN EQU DMCB+36 03075000 DMCBORL EQU DMCB+40 03076000 DMCBKEYP EQU DMCB+44 03077000 DMCBKEYL EQU DMCB+48 03078000 DMCBMSG EQU DMCB+52 03079000 DMCBRI EQU DMCB+64 03080000 DMCBACBE EQU DMCB+124 03081000 DMCBSPEC EQU DMCB+380 03082000 DMCBAMS EQU DMCB+416 03083000 DMCBAUDT EQU DMCB+568 03084000 DMCBLSCP EQU DMCBAUDT+16 03085000 DMCBDMGR EQU 0 03086000 I015F EQU 0 03087000 BLSCALOC EQU 0 03088000 BLSDADSD EQU 0 03089000 BLSDAPDR EQU 0 03090000 BLSDDEQP EQU 0 03091000 BLSDENQP EQU 0 03092000 BLSDENQ0 EQU 0 03093000 BLSDFDSD EQU 0 03094000 BLSDFPDR EQU 0 03095000 BLSEAUTH EQU 0 03096000 BLSELPCL EQU 0 03097000 BLSELPFM EQU 0 03098000 BLSFBP00 EQU 0 03099000 BLSFCLOS EQU 0 03100000 BLSFCN00 EQU 0 03101000 BLSFDALL EQU 0 03102000 BLSFDF00 EQU 0 03103000 BLSFDS00 EQU 0 03104000 BLSFFL00 EQU 0 03105000 BLSFFP00 EQU 0 03106000 BLSFGD00 EQU 0 03107000 BLSFGG00 EQU 0 03108000 BLSFGP00 EQU 0 03109000 BLSFLALL EQU 0 03110000 BLSFLP00 EQU 0 03111000 BLSFND00 EQU 0 03112000 BLSFND01 EQU 0 03113000 BLSFOD00 EQU 0 03114000 BLSFOPEN EQU 0 03115000 BLSFPERA EQU 0 03116000 BLSFPS00 EQU 0 03117000 BLSFSD00 EQU 0 03118000 BLSFSL00 EQU 0 03119000 BLSFTL00 EQU 0 03120000 BLSFUD00 EQU 0 03121000 BLSFUP00 EQU 0 03122000 BLSUALLO EQU 0 03123000 BLSUBLDD EQU 0 03124000 BLSUBLDL EQU 0 03125000 BLSUDYNA EQU 0 03126000 BLSUFREE EQU 0 03127000 BLSUFRE1 EQU 0 03128000 BLSUMON EQU 0 03129000 BLSUMONA EQU 0 03130000 BLSUMONC EQU 0 03131000 BLSUMOND EQU 0 03132000 BLSUMONL EQU 0 03133000 BLSUMONT EQU 0 03134000 BLSUMONX EQU 0 03135000 BLSUMON2 EQU 0 03136000 BLSUMPKN EQU 0 03137000 BLSUMPK1 EQU 0 03138000 BLSUPARU EQU 0 03139000 BLSUPGMC EQU 0 03140000 BLSUPGMD EQU 0 03141000 BLSUPGML EQU 0 03142000 BLSUPGMR EQU 0 03143000 BLSUPRTA EQU 0 03144000 BLSUPRTN EQU 0 03145000 BLSUPRTT EQU 0 03146000 BLSUPUTA EQU 0 03147000 BLSUPUTC EQU 0 03148000 BLSUPUTD EQU 0 03149000 BLSUPUTL EQU 0 03150000 BLSUPUTN EQU 0 03151000 BLSUPUTO EQU 0 03152000 BLSUPUTT EQU 0 03153000 BLSUPUTV EQU 0 03154000 BLSUSTAI EQU 0 03155000 BLSUTRMA EQU 0 03156000 BLSUTRMN EQU 0 03157000 BLSUTRMO EQU 0 03158000 BLSUTRMV EQU 0 03159000 BLSUVSAR EQU 0 03160000 BLSUVSCR EQU 0 03161000 BLSUVSEN EQU 0 03162000 BLSUVSER EQU 0 03163000 BLSUVSGE EQU 0 03164000 BLSUVSGU EQU 0 03165000 BLSUVSMR EQU 0 03166000 BLSUVSPO EQU 0 03167000 BLSUVSPU EQU 0 03168000 BLSUZZ2C EQU 0 03169000 BLSUZZ2D EQU 0 03170000 BLSUZZ2R EQU 0 03171000 DDSD EQU 0 03172000 DDSM EQU 0 03173000 DDSP EQU 0 03174000 DMCBRQC EQU 0 03175000 IKJEFF02 EQU 0 03176000 IKJEFF18 EQU 0 03177000 IKJEFF19 EQU 0 03178000 IKJGETL EQU 0 03179000 IKJPARS EQU 0 03180000 IKJPTGT EQU 0 03181000 IKJPUTL EQU 0 03182000 IKJSCAN EQU 0 03183000 IKJSTCK EQU 0 03184000 I001C EQU 0 03185000 I008P EQU 0 03186000 I015P EQU 0 03187000 I031F EQU 0 03188000 I031P EQU 0 03189000 I256C EQU 0 03190000 DTEIP EQU DTE 03191000 DTEIL EQU DTE+4 03192000 DTEIF EQU DTE+6 03193000 DTEIFP EQU DTEIF 03194000 TMEIP EQU TME 03195000 TMEIL EQU TME+4 03196000 TMEIF EQU TME+6 03197000 TMEIFP EQU TMEIF 03198000 GRPIP EQU GRP 03199000 GRPIL EQU GRP+4 03200000 GRPIF EQU GRP+6 03201000 GRPIFP EQU GRPIF 03202000 SIDIP EQU SID 03203000 SIDIL EQU SID+4 03204000 SIDIF EQU SID+6 03205000 SIDIFP EQU SIDIF 03206000 UFLIP EQU UFL 03207000 UFLIL EQU UFL+4 03208000 UFLIF EQU UFL+6 03209000 UFLIFP EQU UFLIF 03210000 CIDIP EQU CID 03211000 CIDIL EQU CID+4 03212000 CIDIF EQU CID+6 03213000 CIDIFP EQU CIDIF 03214000 OWNIP EQU OWN 03215000 OWNIL EQU OWN+4 03216000 OWNIF EQU OWN+6 03217000 OWNIFP EQU OWNIF 03218000 SEVIP EQU SEV 03219000 SEVIF EQU SEV+6 03220000 SEVIFP EQU SEVIF 03221000 APRIP EQU APR 03222000 APRIL EQU APR+4 03223000 APRIF EQU APR+6 03224000 APRIFP EQU APRIF 03225000 PTFIP EQU PTF 03226000 PTFIL EQU PTF+4 03227000 PTFIF EQU PTF+6 03228000 PTFIFP EQU PTFIF 03229000 FIXQP EQU FIX 03230000 FIXQL EQU FIX+4 03231000 FIXQF EQU FIX+6 03232000 FIXQFP EQU FIXQF 03233000 ABSQP EQU ABS 03234000 ABSQL EQU ABS+4 03235000 ABSQF EQU ABS+6 03236000 ABSQFP EQU ABSQF 03237000 DSCQP EQU DSC 03238000 DSCQL EQU DSC+4 03239000 DSCQF EQU DSC+6 03240000 DSCQFP EQU DSCQF 03241000 DDSDP EQU DDS 03242000 DDSDF EQU DDS+6 03243000 DDSDFP EQU DDSDF 03244000 DDSMP EQU DDS+8 03245000 DDSMF EQU DDS+14 03246000 DDSPP EQU DDS+16 03247000 DDSPF EQU DDS+22 03248000 CPPL EQU ZZ2CPPL 03249000 CPPLUPT EQU CPPL+4 03250000 CPPLPSCB EQU CPPL+8 03251000 CPPLECT EQU CPPL+12 03252000 PDRSTREC EQU PDRINFO 03253000 PDRODATE EQU PDRSTREC 03254000 PDROTIME EQU PDRSTREC+8 03255000 PDRCOMP EQU PDRSTREC+16 03256000 PDRSEV EQU PDRSTREC+26 03257000 PDROWNNM EQU PDRSTREC+32 03258000 PDROWNID EQU PDROWNNM 03259000 PDROWNLN EQU PDROWNNM+7 03260000 PDRGROUP EQU PDRSTREC+40 03261000 PDRSYS EQU PDRSTREC+48 03262000 PDRUSER EQU PDRSTREC+56 03263000 PDRPSTAT EQU PDRSTREC+64 03264000 PDRPDATE EQU PDRSTREC+72 03265000 PDRPTIME EQU PDRSTREC+80 03266000 PDRRDATE EQU PDRSTREC+88 03267000 PDRRTIME EQU PDRSTREC+96 03268000 PDRISTAT EQU PDRSTREC+104 03269000 PDRIDATE EQU PDRSTREC+112 03270000 PDRITIME EQU PDRSTREC+120 03271000 PDRAPRID EQU PDRSTREC+128 03272000 PDRTSTAT EQU PDRSTREC+140 03273000 PDRTDATE EQU PDRSTREC+144 03274000 PDRTTIME EQU PDRSTREC+152 03275000 PDRPTFID EQU PDRSTREC+160 03276000 PDRFSTAT EQU PDRSTREC+172 03277000 PDRFDATE EQU PDRSTREC+176 03278000 PDRFTIME EQU PDRSTREC+184 03279000 PDRFIXID EQU PDRSTREC+192 03280000 PDRABS EQU PDRSTREC+256 03281000 PDRDESCL EQU PDRSTREC+384 03282000 PDRDSSEQ EQU PDRSTREC+396 03283000 PDRDEREC EQU PDRINFO 03284000 PDRDESCR EQU PDRDEREC 03285000 PDRDESC EQU PDRDESCR 03286000 PDRTRREC EQU PDRINFO 03287000 PDRTRARR EQU PDRTRREC 03288000 PDRHSREC EQU PDRINFO 03289000 PDRDSREC EQU PDRINFO 03290000 PDRDSNM EQU PDRDSREC 03291000 PDRSVALU EQU PDRODATE 03292000 PDRSVNUM EQU PDRSVALU+3 03293000 DMCBVSM EQU DMCBAMS 03294000 DMCBQSM EQU DMCBAMS 03295000 * START UNREFERENCED COMPONENTS 03296000 DMCBRES7 EQU DMCBQSM+96 03297000 DMCBDCB EQU DMCBQSM 03298000 DMCBACB EQU DMCBVSM+76 03299000 DMCBRPL EQU DMCBVSM 03300000 PDRSVRES EQU PDRSVALU 03301000 PDRDSRES EQU PDRDSREC+52 03302000 PDRMEMB EQU PDRDSNM+44 03303000 PDRDSN EQU PDRDSNM 03304000 PDRHYMSD EQU PDRHSREC+4 03305000 PDRHSLEN EQU PDRHSREC 03306000 PDRTRKD EQU PDRTRARR 03307000 PDRRES6 EQU PDRSTREC+392 03308000 PDRTRKL EQU PDRSTREC+388 03309000 PDRRES5 EQU PDRSTREC+252 03310000 PDRRES4 EQU PDRSTREC+167 03311000 PDRRES3 EQU PDRSTREC+135 03312000 PDRRES1 EQU PDRSTREC+27 03313000 CPPLCBUF EQU CPPL 03314000 @NM00100 EQU DDS+24 03315000 @NM00099 EQU DDS+23 03316000 DDSPF8 EQU DDSPF 03317000 DDSPF7 EQU DDSPF 03318000 DDSPF6 EQU DDSPF 03319000 DDSPF5 EQU DDSPF 03320000 DDSPF4 EQU DDSPF 03321000 DDSPF3 EQU DDSPF 03322000 DDSPF2 EQU DDSPF 03323000 DDSPFP EQU DDSPF 03324000 DDSPL EQU DDS+20 03325000 @NM00098 EQU DDS+15 03326000 DDSMF8 EQU DDSMF 03327000 DDSMF7 EQU DDSMF 03328000 DDSMF6 EQU DDSMF 03329000 DDSMF5 EQU DDSMF 03330000 DDSMF4 EQU DDSMF 03331000 DDSMF3 EQU DDSMF 03332000 DDSMF2 EQU DDSMF 03333000 DDSMFP EQU DDSMF 03334000 DDSML EQU DDS+12 03335000 @NM00097 EQU DDS+7 03336000 @NM00096 EQU DDSDF 03337000 DDSDFQ EQU DDSDF 03338000 DDSDL EQU DDS+4 03339000 @NM00095 EQU DSC+8 03340000 @NM00094 EQU DSC+7 03341000 DSCQF8 EQU DSCQF 03342000 DSCQF7 EQU DSCQF 03343000 DSCQF6 EQU DSCQF 03344000 DSCQF5 EQU DSCQF 03345000 DSCQF4 EQU DSCQF 03346000 DSCQF3 EQU DSCQF 03347000 DSCQF2 EQU DSCQF 03348000 @NM00093 EQU ABS+8 03349000 @NM00092 EQU ABS+7 03350000 ABSQF8 EQU ABSQF 03351000 ABSQF7 EQU ABSQF 03352000 ABSQF6 EQU ABSQF 03353000 ABSQF5 EQU ABSQF 03354000 ABSQF4 EQU ABSQF 03355000 ABSQF3 EQU ABSQF 03356000 ABSQF2 EQU ABSQF 03357000 @NM00091 EQU FIX+8 03358000 @NM00090 EQU FIX+7 03359000 FIXQF8 EQU FIXQF 03360000 FIXQF7 EQU FIXQF 03361000 FIXQF6 EQU FIXQF 03362000 FIXQF5 EQU FIXQF 03363000 FIXQF4 EQU FIXQF 03364000 FIXQF3 EQU FIXQF 03365000 FIXQF2 EQU FIXQF 03366000 @NM00089 EQU PTF+8 03367000 @NM00088 EQU PTF+7 03368000 PTFIF8 EQU PTFIF 03369000 PTFIF7 EQU PTFIF 03370000 PTFIF6 EQU PTFIF 03371000 PTFIF5 EQU PTFIF 03372000 PTFIF4 EQU PTFIF 03373000 PTFIF3 EQU PTFIF 03374000 PTFIF2 EQU PTFIF 03375000 @NM00087 EQU APR+8 03376000 @NM00086 EQU APR+7 03377000 APRIF8 EQU APRIF 03378000 APRIF7 EQU APRIF 03379000 APRIF6 EQU APRIF 03380000 APRIF5 EQU APRIF 03381000 APRIF4 EQU APRIF 03382000 APRIF3 EQU APRIF 03383000 APRIF2 EQU APRIF 03384000 @NM00085 EQU SEV+8 03385000 @NM00084 EQU SEV+7 03386000 SEVIF8 EQU SEVIF 03387000 SEVIF7 EQU SEVIF 03388000 SEVIF6 EQU SEVIF 03389000 SEVIF5 EQU SEVIF 03390000 SEVIF4 EQU SEVIF 03391000 SEVIF3 EQU SEVIF 03392000 SEVIF2 EQU SEVIF 03393000 SEVIL EQU SEV+4 03394000 @NM00083 EQU OWN+8 03395000 @NM00082 EQU OWN+7 03396000 OWNIF8 EQU OWNIF 03397000 OWNIF7 EQU OWNIF 03398000 OWNIF6 EQU OWNIF 03399000 OWNIF5 EQU OWNIF 03400000 OWNIF4 EQU OWNIF 03401000 OWNIF3 EQU OWNIF 03402000 OWNIF2 EQU OWNIF 03403000 @NM00081 EQU CID+8 03404000 @NM00080 EQU CID+7 03405000 CIDIF8 EQU CIDIF 03406000 CIDIF7 EQU CIDIF 03407000 CIDIF6 EQU CIDIF 03408000 CIDIF5 EQU CIDIF 03409000 CIDIF4 EQU CIDIF 03410000 CIDIF3 EQU CIDIF 03411000 CIDIF2 EQU CIDIF 03412000 @NM00079 EQU UFL+8 03413000 @NM00078 EQU UFL+7 03414000 UFLIF8 EQU UFLIF 03415000 UFLIF7 EQU UFLIF 03416000 UFLIF6 EQU UFLIF 03417000 UFLIF5 EQU UFLIF 03418000 UFLIF4 EQU UFLIF 03419000 UFLIF3 EQU UFLIF 03420000 UFLIF2 EQU UFLIF 03421000 @NM00077 EQU SID+8 03422000 @NM00076 EQU SID+7 03423000 SIDIF8 EQU SIDIF 03424000 SIDIF7 EQU SIDIF 03425000 SIDIF6 EQU SIDIF 03426000 SIDIF5 EQU SIDIF 03427000 SIDIF4 EQU SIDIF 03428000 SIDIF3 EQU SIDIF 03429000 SIDIF2 EQU SIDIF 03430000 @NM00075 EQU GRP+8 03431000 @NM00074 EQU GRP+7 03432000 GRPIF8 EQU GRPIF 03433000 GRPIF7 EQU GRPIF 03434000 GRPIF6 EQU GRPIF 03435000 GRPIF5 EQU GRPIF 03436000 GRPIF4 EQU GRPIF 03437000 GRPIF3 EQU GRPIF 03438000 GRPIF2 EQU GRPIF 03439000 @NM00073 EQU TME+8 03440000 @NM00072 EQU TME+7 03441000 TMEIF8 EQU TMEIF 03442000 TMEIF7 EQU TMEIF 03443000 TMEIF6 EQU TMEIF 03444000 TMEIF5 EQU TMEIF 03445000 TMEIF4 EQU TMEIF 03446000 TMEIF3 EQU TMEIF 03447000 TMEIF2 EQU TMEIF 03448000 @NM00071 EQU DTE+8 03449000 @NM00070 EQU DTE+7 03450000 DTEIF8 EQU DTEIF 03451000 DTEIF7 EQU DTEIF 03452000 DTEIF6 EQU DTEIF 03453000 DTEIF5 EQU DTEIF 03454000 DTEIF4 EQU DTEIF 03455000 DTEIF3 EQU DTEIF 03456000 DTEIF2 EQU DTEIF 03457000 DMCBWRK EQU DMCB+648 03458000 DMCBRES8 EQU DMCB+640 03459000 DMCBMODN EQU DMCB+632 03460000 DMCBCARY EQU DMCBAUDT+20 03461000 DMCBCLC EQU DMCBAUDT+12 03462000 DMCBOPC EQU DMCBAUDT+8 03463000 DMCBFRC EQU DMCBAUDT+4 03464000 DMCBALC EQU DMCBAUDT 03465000 DMCBFR EQU DMCB+412 03466000 DMCBRES6 EQU DMCB+410 03467000 DMCBIRSC EQU DMCB+408 03468000 DMCBSUBC EQU DMCB+404 03469000 DMCBDRBP EQU DMCB+400 03470000 DMCBRSZM EQU DMCB+398 03471000 DMCBRSZA EQU DMCB+396 03472000 DMCBCISZ EQU DMCB+394 03473000 DMCBDCBL EQU DMCB+392 03474000 DMCBDCLR EQU DMCB+390 03475000 DMCBDCFM EQU DMCB+389 03476000 DMCBRES5 EQU DMCB+388 03477000 DMCBLBRT EQU DMCB+386 03478000 DMCBLBSQ EQU DMCB+384 03479000 DMCBLBPS EQU DMCB+383 03480000 DMCBLBTY EQU DMCB+382 03481000 DMCBRES4 EQU DMCB+381 03482000 DMCBSPRS EQU DMCBSPEC 03483000 DMCBSPRN EQU DMCBSPEC 03484000 DMCBSPCT EQU DMCBSPEC 03485000 DMCBSPRL EQU DMCBSPEC 03486000 DMCBSPSE EQU DMCB+376 03487000 DMCBSPPR EQU DMCB+372 03488000 DMCBSPTY EQU DMCB+369 03489000 DMCBODIS EQU DMCB+368 03490000 DMCBDISP EQU DMCB+367 03491000 DMCBSTAT EQU DMCB+366 03492000 DMCBRES3 EQU DMCB+364 03493000 DMCBMEMB EQU DMCB+356 03494000 DMCBMODL EQU DMCB+348 03495000 DMCBRES9 EQU DMCB+340 03496000 DMCBPID EQU DMCB+332 03497000 DMCBTYPE EQU DMCB+328 03498000 DMCBDSN EQU DMCB+284 03499000 DMCBUNIT EQU DMCB+276 03500000 DMCBDSOR EQU DMCB+274 03501000 DMCBVOL EQU DMCB+268 03502000 DMCBDDNM EQU DMCB+260 03503000 DMCBSYNM EQU DMCB+132 03504000 DMCBRPLF EQU DMCB+128 03505000 DMCBDCBE EQU DMCBACBE 03506000 DMCBARC EQU DMCB+120 03507000 DMCBCPC EQU DMCB+116 03508000 DMCBRET EQU DMCB+112 03509000 DMCBSTL EQU DMCB+96 03510000 DMCBEOB EQU DMCB+92 03511000 DMCBFRE EQU DMCB+88 03512000 DMCBRES2 EQU DMCB+85 03513000 DMCBSPID EQU DMCB+84 03514000 DMCBRESC EQU DMCB+80 03515000 DMCBZZ1P EQU DMCB+76 03516000 DMCBMSGS EQU DMCB+72 03517000 DMCBMSG0 EQU DMCB+68 03518000 DMCBRRL EQU DMCB+60 03519000 DMCBRBA EQU DMCB+56 03520000 DMCBKPC EQU DMCBKEYP 03521000 DMCBBFPC EQU DMCBBUFP 03522000 DMCBRES1 EQU DMCB+31 03523000 DMCBACCM EQU DMCB+30 03524000 DMCBREJ EQU DMCB+29 03525000 DMCBRESB EQU DMCBMFLG 03526000 DMCBFMOD EQU DMCBMFLG 03527000 DMCBLOPT EQU DMCB+27 03528000 DMCBLRM EQU DMCB+26 03529000 DMCBLRQ EQU DMCB+25 03530000 DMCBOPRS EQU DMCBOPTS 03531000 DMCBLRD EQU DMCBOPTS 03532000 DMCBBWD EQU DMCBOPTS 03533000 DMCBRNO EQU DMCBGKY 03534000 DMCBRMRS EQU DMCBRMOD 03535000 DMCBRESA EQU DMCBOPN 03536000 DMCBSOUT EQU DMCBOPN 03537000 DMCBSIN EQU DMCBOPN 03538000 DMCBVSF EQU DMCBFTY 03539000 DMCBKSF EQU DMCBFTY 03540000 DMCBFTRS EQU DMCBFTY 03541000 DMCBSHF EQU DMCBFTY 03542000 DMCBIRL EQU DMCB+16 03543000 DMCBRTC EQU DMCB+12 03544000 DMCBTVP EQU DMCB+8 03545000 DMCBNEXT EQU DMCB+4 03546000 FPRES6 EQU FPBLOK+136 03547000 FPDELLN EQU FPDELNM+7 03548000 FPDELID EQU FPDELNM 03549000 FPADMLN EQU FPADMNM+7 03550000 FPADMID EQU FPADMNM 03551000 FPRES4 EQU FPBLOK+103 03552000 FPRES3 EQU FPBLOK+99 03553000 FPRES2 EQU FPBLOK+92 03554000 FPDSDS EQU FPBLOK+48 03555000 FPRES1 EQU FPBLOK+44 03556000 FPPDDS EQU FPBLOK 03557000 PDRRESV EQU PDREC+14 03558000 PDSP EQU PDDSECT+4 03559000 @NM00069 EQU PDDSECT 03560000 DVT99999 EQU DVT+256 03561000 DVT0064P EQU DVT+252 03562000 DVT0063P EQU DVT+248 03563000 DVT0062P EQU DVT+244 03564000 DVT0061P EQU DVT+240 03565000 DVT0060P EQU DVT+236 03566000 DVT0059P EQU DVT+232 03567000 DVT0058P EQU DVT+228 03568000 DVT0057P EQU DVT+224 03569000 DVT0056P EQU DVT+220 03570000 DVT0055P EQU DVT+216 03571000 DVT0054P EQU DVT+212 03572000 DVT0053P EQU DVT+208 03573000 DVT0052P EQU DVT+204 03574000 DVT0051P EQU DVT+200 03575000 DVT0050P EQU DVT+196 03576000 DVT0049P EQU DVT+192 03577000 DVT0048P EQU DVT+188 03578000 DVT0047P EQU DVT+184 03579000 DVT0046P EQU DVT+180 03580000 DVT0045P EQU DVT+176 03581000 DVT0044P EQU DVT+172 03582000 DVT0043P EQU DVT+168 03583000 DVT0042P EQU DVT+164 03584000 DVT0041P EQU DVT+160 03585000 DVT0040P EQU DVT+156 03586000 DVT0039P EQU DVT+152 03587000 DVT0038P EQU DVT+148 03588000 DVT0037P EQU DVT+144 03589000 DVT0036P EQU DVT+140 03590000 DVT0035P EQU DVT+136 03591000 DVT0034P EQU DVT+132 03592000 DVT0011P EQU DVT+40 03593000 DVT0005P EQU DVT+16 03594000 DVT0002P EQU DVT+4 03595000 DVT0001P EQU DVT 03596000 BVT99999 EQU BVT+256 03597000 BVT0064P EQU BVT+252 03598000 BVT0063P EQU BVT+248 03599000 BVT0062P EQU BVT+244 03600000 BVT0061P EQU BVT+240 03601000 BVT0060P EQU BVT+236 03602000 BVT0059P EQU BVT+232 03603000 BVT0057P EQU BVT+224 03604000 BVT0056P EQU BVT+220 03605000 BVTSTBLP EQU BVT+200 03606000 BVT0045P EQU BVT+176 03607000 BVT0044P EQU BVT+172 03608000 BVT0033P EQU BVT+128 03609000 BVT0032P EQU BVT+124 03610000 BVT0031P EQU BVT+120 03611000 BVT0030P EQU BVT+116 03612000 BVT0029P EQU BVT+112 03613000 BVT0026P EQU BVT+100 03614000 BVT0025P EQU BVT+96 03615000 BVT0024P EQU BVT+92 03616000 BVT0023P EQU BVT+88 03617000 BVT0016P EQU BVT+60 03618000 BVT0015P EQU BVT+56 03619000 BVT0014P EQU BVT+52 03620000 BVT0003P EQU BVT+8 03621000 BVT0001P EQU BVT 03622000 SA99 EQU SA+72 03623000 SARC EQU SAR+56 03624000 SARB EQU SAR+52 03625000 SARA EQU SAR+48 03626000 SAR9 EQU SAR+44 03627000 SAR8 EQU SAR+40 03628000 SAR7 EQU SAR+36 03629000 SAR6 EQU SAR+32 03630000 SAR5 EQU SAR+28 03631000 SAR4 EQU SAR+24 03632000 SAR3 EQU SAR+20 03633000 SAR2 EQU SAR+16 03634000 SAR1 EQU SAR+12 03635000 SAR0 EQU SAR+8 03636000 SARF EQU SAR+4 03637000 SARE EQU SAR 03638000 SAFWD EQU SA+8 03639000 SABAK EQU SA+4 03640000 SA1L EQU SA1+1 03641000 SA1P EQU SA1 03642000 UPTPREFL EQU UPT+23 03643000 UPTPREFX EQU UPT+16 03644000 @NM00068 EQU UPT+15 03645000 UPTLDEL EQU UPT+14 03646000 UPTCDEL EQU UPT+13 03647000 UPTWTP EQU UPTSWS 03648000 UPTMODE EQU UPTSWS 03649000 UPTALD EQU UPTSWS 03650000 UPTPAUS EQU UPTSWS 03651000 UPTNCOM EQU UPTSWS 03652000 UPTMID EQU UPTSWS 03653000 UPTNPRM EQU UPTSWS 03654000 UPTRCVR EQU UPTSWS 03655000 UPTUSER EQU UPT+2 03656000 @NM00067 EQU UPT 03657000 @NM00066 EQU ECT+52 03658000 @NM00065 EQU ECT+48 03659000 @NM00064 EQU ECT+44 03660000 @NM00063 EQU ECTSWS2+1 03661000 @NM00062 EQU ECTSWS21 03662000 ECTTABND EQU ECTSWS21 03663000 ECTDEFCS EQU ECTSWS21 03664000 ECTBKPB EQU ECT+36 03665000 ECTUSER EQU ECT+32 03666000 ECTDDNUM EQU ECT+29 03667000 ECTATTN EQU ECTSWS 03668000 ECTBKGRD EQU ECTSWS 03669000 ECTNNOT EQU ECTSWS 03670000 ECTNMAL EQU ECTSWS 03671000 ECTLOGF EQU ECTSWS 03672000 ECTATRM EQU ECTSWS 03673000 @NM00061 EQU ECTSWS 03674000 ECTNOPD EQU ECTSWS 03675000 ECTSCMD EQU ECT+20 03676000 ECTPCMD EQU ECT+12 03677000 ECTSMSG EQU ECT+9 03678000 ECTMSGF EQU ECT+8 03679000 ECTIOWA EQU ECT+4 03680000 ECTRTCD EQU ECT+1 03681000 ECTRCDF EQU ECT 03682000 PSCBU EQU PSCB+64 03683000 PSCBRSZ EQU PSCB+60 03684000 PSCBLINE EQU PSCB+59 03685000 PSCBCHAR EQU PSCB+58 03686000 PSCBUPTL EQU PSCB+56 03687000 PSCBUPT EQU PSCB+52 03688000 PSCBRLGB EQU PSCB+48 03689000 PSCBDEST EQU PSCB+40 03690000 @NM00060 EQU PSCB+36 03691000 @NM00059 EQU PSCB+32 03692000 @NM00058 EQU PSCB+28 03693000 PSCBLTI2 EQU PSCB+24 03694000 PSCBLTIM EQU PSCB+20 03695000 PSCBATR2 EQU PSCB+18 03696000 @NM00057 EQU PSCBATR1 03697000 @NM00056 EQU PSCBATR1 03698000 @NM00055 EQU PSCBATR1 03699000 PSCBATTN EQU PSCBATR1 03700000 PSCBVMNT EQU PSCBATR1 03701000 PSCBJCL EQU PSCBATR1 03702000 PSCBACCT EQU PSCBATR1 03703000 PSCBCTRL EQU PSCBATR1 03704000 PSCBGPNM EQU PSCB+8 03705000 CMDT1 EQU CMDT 03706000 CMDO EQU CMD+2 03707000 CMDL EQU CMD 03708000 ZZ299999 EQU ZZ2+8192 03709000 ZZ2AXOT1 EQU ZZ2AXOT 03710000 ZZ2AXOL EQU ZZ2AXO 03711000 @NM00054 EQU ZZ2+7288 03712000 @NM00053 EQU ZZ2AMDX+4 03713000 ZZ2AMDXC EQU ZZ2AMDX 03714000 ZZ2HSD EQU ZZ2+3056 03715000 @NM00052 EQU ZZ2ES 03716000 @NM00051 EQU ZZ2+2868 03717000 ZZ2ITSEC EQU ZZ2ITSE+1 03718000 @NM00050 EQU ZZ2ITSE 03719000 ZZ2ITSEP EQU ZZ2ITSE 03720000 ZZ2ITSEW EQU ZZ2ITSE 03721000 @NM00049 EQU ZZ2ITR+20 03722000 ZZ2ITREC EQU ZZ2ITRE+1 03723000 @NM00048 EQU ZZ2ITRE 03724000 ZZ2ITREP EQU ZZ2ITRE 03725000 ZZ2ITREW EQU ZZ2ITRE 03726000 @NM00047 EQU ZZ2ITR+9 03727000 ZZ2ITRRC EQU ZZ2ITR+8 03728000 ZZ2ITR2P EQU ZZ2ITR+4 03729000 ZZ2ITRPP EQU ZZ2ITR 03730000 @NM00046 EQU ZZ2+1544 03731000 ZZ2PGM EQU ZZ2+1536 03732000 @NM00045 EQU ZZ2+1526 03733000 ZZ2CW EQU ZZ2+1524 03734000 @NM00044 EQU ZZ2+1504 03735000 @NM00043 EQU ZZ2+1352 03736000 ZZ2FFSYP EQU ZZ2+1348 03737000 ZZ2SASYP EQU ZZ2+1344 03738000 ZZ2RDSYP EQU ZZ2+1340 03739000 ZZ2RASYP EQU ZZ2+1336 03740000 ZZ2PHSYP EQU ZZ2+1332 03741000 ZZ2ESSYP EQU ZZ2+1328 03742000 ZZ200SYP EQU ZZ2+1324 03743000 ZZ2SCWP EQU ZZ2+1320 03744000 ZZ2TTLP EQU ZZ2+1316 03745000 ZZ2LOADP EQU ZZ2+1312 03746000 ZZ2VRESP EQU ZZ2+1308 03747000 ZZ2CPPLE EQU ZZ2CPPL+12 03748000 ZZ2CPPLP EQU ZZ2CPPL+8 03749000 ZZ2CPPLU EQU ZZ2CPPL+4 03750000 ZZ2VRSAP EQU ZZ2+1288 03751000 ZZ2RVTP EQU ZZ2+1284 03752000 @NM00042 EQU ZZ2+1272 03753000 @NM00041 EQU ZZ2+1268 03754000 ZZ2RPLP EQU ZZ2+1260 03755000 ZZ2TCBP EQU ZZ2+1256 03756000 @NM00040 EQU ZZ2+1252 03757000 ZZ2ZZ2P EQU ZZ2+1248 03758000 @NM00039 EQU ZZ2+1112 03759000 @NM00038 EQU ZZ2+1080 03760000 ZZ2FT25P EQU ZZ2+1072 03761000 @NM00037 EQU ZZ2+976 03762000 ZZ2TOD EQU ZZ2+968 03763000 ZZ2STGN EQU ZZ2STG+4 03764000 ZZ2STGP EQU ZZ2STG 03765000 @NM00036 EQU ZZ2+952 03766000 ZZ2SCMDE EQU ZZ2+944 03767000 ZZ2SCMDN EQU ZZ2+936 03768000 ZZ2IDENT EQU ZZ2+928 03769000 ZZ2A9999 EQU ZZ2A+656 03770000 @NM00035 EQU ZZ2A+224 03771000 @NM00034 EQU ZZ2A+220 03772000 ZZ2AQD99 EQU ZZ2AQD+60 03773000 @NM00033 EQU ZZ2AQD+56 03774000 @NM00032 EQU ZZ2AQDF 03775000 ZZ2AQDFA EQU ZZ2AQDF 03776000 ZZ2AQDIL EQU ZZ2AQD+48 03777000 ZZ2AQDIM EQU ZZ2AQD+44 03778000 ZZ2AQDT9 EQU ZZ2AQDT+34 03779000 ZZ2AQDTE EQU ZZ2AQDT+33 03780000 ZZ2AQDTD EQU ZZ2AQDT+2 03781000 @NM00031 EQU ZZ2AQDT+1 03782000 ZZ2AQDTY EQU ZZ2AQDT 03783000 ZZ2AQDT0 EQU ZZ2AQDT 03784000 ZZ2AQDLB EQU ZZ2AQD+9 03785000 ZZ2AQDOB EQU ZZ2AQD+8 03786000 ZZ2AQDLE EQU ZZ2AQD+4 03787000 ZZ2AQDOF EQU ZZ2AQD 03788000 ZZ2AQD00 EQU ZZ2AQD 03789000 ZZ2AQAS9 EQU ZZ2AQAS+16 03790000 @NM00030 EQU ZZ2AQAS+12 03791000 ZZ2AQAS2 EQU ZZ2AQAS+8 03792000 ZZ2AQAS1 EQU ZZ2AQAS+4 03793000 @NM00029 EQU ZZ2AQAS+2 03794000 ZZ2AQAST EQU ZZ2AQAS 03795000 ZZ2AQAS0 EQU ZZ2AQAS 03796000 ZZ2AZZ6P EQU ZZ2A+140 03797000 ZZ2ADPTA EQU ZZ2ADPT 03798000 ZZ2ADPL EQU ZZ2ADP 03799000 ZZ2ADMTA EQU ZZ2ADMT 03800000 ZZ2ADML EQU ZZ2ADM 03801000 ZZ2ADDTA EQU ZZ2ADDT 03802000 ZZ2ADDL EQU ZZ2ADD 03803000 @NM00028 EQU ZZ2A+72 03804000 ZZ2APIDB EQU ZZ2APID+3 03805000 ZZ2APIDA EQU ZZ2APID 03806000 @NM00027 EQU ZZ2A+24 03807000 @NM00026 EQU ZZ2AF+5 03808000 @NM00025 EQU ZZ2AF+3 03809000 ZZ2AFS EQU ZZ2AF+2 03810000 ZZ2AFD EQU ZZ2AF+2 03811000 ZZ2AFQ EQU ZZ2AF+2 03812000 ZZ2AF$ EQU ZZ2AF+2 03813000 @NM00024 EQU ZZ2AF+2 03814000 ZZ2AFM EQU ZZ2AF+2 03815000 @NM00023 EQU ZZ2AF+2 03816000 @NM00022 EQU ZZ2AF+1 03817000 ZZ2AFV EQU ZZ2AF+1 03818000 @NM00021 EQU ZZ2AF+1 03819000 ZZ2AFC EQU ZZ2AF+1 03820000 @NM00020 EQU ZZ2AF 03821000 ZZ2AFFS EQU ZZ2AF 03822000 ZZ2AFT EQU ZZ2AF 03823000 ZZ2AFP EQU ZZ2AF 03824000 @NM00019 EQU ZZ2A+8 03825000 ZZ2ALINE EQU ZZ2A+4 03826000 @NM00018 EQU ZZ2A+3 03827000 ZZ2ASE EQU ZZ2A+2 03828000 ZZ2ACH EQU ZZ2A 03829000 @NM00017 EQU ZZ2+264 03830000 @NM00016 EQU ZZ2+263 03831000 ZZ2PRTT0 EQU ZZ2PRTT 03832000 ZZ2PRTO EQU ZZ2PRT+2 03833000 ZZ2PRTL EQU ZZ2PRT 03834000 @NM00015 EQU ZZ2AMD+56 03835000 ZZ2AMDXP EQU ZZ2AMD+52 03836000 ZZ2AMDD EQU ZZ2AMD+48 03837000 ZZ2AMDL EQU ZZ2AMD+44 03838000 ZZ2AMDU EQU ZZ2AMD+28 03839000 ZZ2AMDF EQU ZZ2AMD+24 03840000 ZZ2AMDS EQU ZZ2AMD+20 03841000 ZZ2AMDC EQU ZZ2AMD+16 03842000 ZZ2AMDP EQU ZZ2AMD+12 03843000 ZZ2AMDB EQU ZZ2AMD+8 03844000 @NM00014 EQU @NM00013 03845000 ZZ2AMD2 EQU @NM00013 03846000 ZZ2AMD1 EQU @NM00013 03847000 ZZ2AMD0 EQU ZZ2AMD+6 03848000 ZZ2AMDA EQU ZZ2AMD+4 03849000 ZZ2AMDT EQU ZZ2AMD 03850000 ZZ199999 EQU ZZ1+3072 03851000 @NM00012 EQU ZZ1+2160 03852000 ZZ1TRTAS EQU ZZ1+1904 03853000 ZZ1TRUPC EQU ZZ1+1648 03854000 ZZ1TRCTX EQU ZZ1+1392 03855000 ZZ1NASID EQU ZZ1N+274 03856000 ZZ1NSTRL EQU ZZ1N+272 03857000 ZZ1NOFF EQU ZZ1N+268 03858000 ZZ1NBDY EQU ZZ1N+264 03859000 ZZ1NADE EQU ZZ1N+260 03860000 ZZ1NADB EQU ZZ1N+256 03861000 ZZ1NSTR EQU ZZ1N 03862000 @NM00011 EQU ZZ1+1080 03863000 ZZ1TREBC EQU ZZ1+824 03864000 ZZ1TRHEX EQU ZZ1+568 03865000 @NM00010 EQU ZZ1+377 03866000 ZZ1USTAE EQU ZZ1+376 03867000 @NM00009 EQU ZZ1F+1 03868000 @NM00008 EQU ZZ1F 03869000 ZZ1FM EQU ZZ1F 03870000 ZZ1FX EQU ZZ1F 03871000 ZZ1FU EQU ZZ1F 03872000 ZZ1EVEC EQU ZZ1EVE+1 03873000 @NM00007 EQU ZZ1EVE 03874000 ZZ1EVEP EQU ZZ1EVE 03875000 ZZ1EVEW EQU ZZ1EVE 03876000 ZZ1ACMP EQU ZZ1ATTN 03877000 @NM00006 EQU ZZ1+144 03878000 ZZ1ZZ6P EQU ZZ1+136 03879000 @NM00005 EQU ZZ1+84 03880000 ZZ1PLINE EQU ZZ1+80 03881000 ZZ1PGSZ EQU ZZ1+76 03882000 ZZ1PCNT EQU ZZ1+72 03883000 @NM00004 EQU ZZ1+68 03884000 ZZ1TPAGE EQU ZZ1+64 03885000 ZZ1TLINE EQU ZZ1+60 03886000 @NM00003 EQU ZZ1+52 03887000 ZZ1DMCBP EQU ZZ1+48 03888000 ZZ1DSDP EQU ZZ1+44 03889000 ZZ1327WP EQU ZZ1+32 03890000 ZZ1ACBP EQU ZZ1+28 03891000 @NM00002 EQU ZZ1+24 03892000 ZZ1PDCBP EQU ZZ1+20 03893000 ZZ1BLRBL EQU ZZ1+16 03894000 @NM00001 EQU ZZ1+12 03895000 ZZ1PNULL EQU ZZ1+8 03896000 ZZ1NULL EQU ZZ1+4 03897000 ZZ1IDE EQU ZZ1 03898000 * END UNREFERENCED COMPONENTS 03899000 @RC00467 EQU @EL00003 03900000 @RC00562 EQU @EL00005 03901000 @RC00616 EQU @EL00006 03902000 @RC00905 EQU @RC00867 03903000 @RC00908 EQU @RC00905 03904000 @ENDDATA EQU * 03905000 END BLSEADPR,(C'PLS0954',0701,78067) 03906000