SALI TITLE 'BLSRSALI--IPCS LISTMAP SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPJZ */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRSALI CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRSALI 78.069' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLR R,LV=(0) 00018000 LR @11,@01 0002 00019000 LA @10,4095(,@11) 0002 00020000 USING @DATD,@11 0002 00021000 USING @DATD+4095,@10 0002 00022000 ST @13,@SA00001+4 0002 00023000 LM @00,@01,20(@13) 0002 00024000 ST @11,8(,@13) 0002 00025000 LR @13,@11 0002 00026000 *BLREXTRN - IDENTIFY EXTERNAL REFERENCES 00027000 EXTRN BLSUVP31 00028000 EXTRN BLSUVP32 00029000 EXTRN BLSRVPCP 00030000 EXTRN BLSRVPAS 00031000 EXTRN BLSRVPAD 00032000 * POSITION OF KEY */ 00033000 * 0363 00034000 */********************************************************************/ 00035000 */* */ 00036000 */* BLSRSALI--IPCS LISTMAP SUBCOMMAND */ 00037000 */* */ 00038000 */********************************************************************/ 00039000 * 0363 00040000 * ERRCOUNT=0; /* ERROR RECORDS */ 00041000 SLR @08,@08 0363 00042000 ST @08,ERRCOUNT 0363 00043000 * FMTCOUNT=0; /* BLOCKS FORMATTED */ 00044000 ST @08,FMTCOUNT 0364 00045000 * RECCOUNT=0; /* RECORDS READ IN THE RANGE */ 00046000 ST @08,RECCOUNT 0365 00047000 * UNSCOUNT=0; /* RECORDS COMPLETELY UNSCANNED */ 00048000 ST @08,UNSCOUNT 0366 00049000 */********************************************************************/ 00050000 */* */ 00051000 */* BLSRSASI--INITIALIZATION SEGMENT */ 00052000 */* USED WITH BLSRSASD COMMON DECLARATION SEGMENT */ 00053000 */* */ 00054000 */********************************************************************/ 00055000 * 0367 00056000 * RESPECIFY 0367 00057000 * (RF) RESTRICTED; /* RETURN CODES */ 00058000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00059000 * 0368 00060000 SLR RETC,RETC 0368 00061000 * /*****************************************************************/ 00062000 * /* */ 00063000 * /* CREATE AN RPL */ 00064000 * /* */ 00065000 * /*****************************************************************/ 00066000 * 0369 00067000 * RESPECIFY 0369 00068000 * (R2, /* KEY LENGTH */ 00069000 * R3, /* ->ACB */ 00070000 * R4, /* ->RECORD AREA AND KEY */ 00071000 * R5) RESTRICTED; /* RECORD LENGTH */ 00072000 * R2=SAAULKL; /* KEY LENGTH */ 00073000 LA R2,66 0370 00074000 * R3=ZZ1ACBP; /* ->ACB */ 00075000 L @14,ZZ2ZZ1P(,R9) 0371 00076000 L R3,ZZ1ACBP(,@14) 0371 00077000 * R4=ADDR(SAAU); /* ->RECORD AREA AND KEY */ 00078000 LA R4,SAAU 0372 00079000 * R5=SAAUHRL; /* RECORD LENGTH */ 00080000 LA R5,3072 0373 00081000 * GENERATE DEFS(GENPARML) SETS(GENPARM) CODE; 0374 00082000 *---------------------------------------------------------------------* 00083000 * CREATE AN RPL (SEQUENTIAL READ, NO UPDATE) * 00084000 *---------------------------------------------------------------------* 00085000 GENCB BLK=RPL,WAREA=(S,MYRPL),ACB=(R3),AREA=(R4), *00086000 AREALEN=(R5),ARG=(R4),OPTCD=(GEN,KGE,NUP), *00087000 LENGTH=256,KEYLEN=(R2),MF=(L,GENPARM,GENPARML) 00088000 * GENERATE DEFS(GENPARM) REFS(GENPARML) DATA; 0375 00089000 * RESPECIFY 0376 00090000 * (R2, /* KEY LENGTH */ 00091000 * R3, /* ->ACB */ 00092000 * R4, /* ->RECORD AREA AND KEY */ 00093000 * R5) UNRESTRICTED; /* RECORD LENGTH */ 00094000 * CALL BLSUVSCR(ZZ2,GENPARM); /* CREATE AN RPL */ 00095000 ST R9,@AL00001 0377 00096000 LA @14,GENPARM 0377 00097000 ST @14,@AL00001+4 0377 00098000 L @08,ZZ2BVTP(,R9) 0377 00099000 L @15,BVTVSCRP(,@08) 0377 00100000 LA @01,@AL00001 0377 00101000 BALR @14,@15 0377 00102000 * IF RF^=ZZZFLAGI THEN /* GENCB ERROR */ 00103000 LTR RF,RF 0378 00104000 BZ @RF00378 0378 00105000 * DO; /* GENCB ERROR */ 00106000 * RETC=ZZZFLAGT; /* TERMINATING CONDITION */ 00107000 LA RETC,16 0380 00108000 * GO TO EXITNORL; /* EXIT WITH NO PDL */ 00109000 B EXITNORL 0381 00110000 * END; /* GENCB ERROR */ 00111000 * 0383 00112000 * /*****************************************************************/ 00113000 * /* */ 00114000 * /* PARSE COMMAND */ 00115000 * /* */ 00116000 * /*****************************************************************/ 00117000 * 0383 00118000 * DO; /* BLSRPARS DISPLAY FLAG 0383 00119000 * MF(EXECUTE,PX) */ 00120000 @RF00378 DS 0H 0384 00121000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00122000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00123000 * TE,PX)FLAG ROUTING */ 00124000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00125000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00126000 * ROUTING */ 00127000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00128000 ST R9,@AL00001 0386 00129000 L @14,PCPTR 0386 00130000 ST @14,@AL00001+4 0386 00131000 LA @14,PDAPTR 0386 00132000 ST @14,@AL00001+8 0386 00133000 L @08,ZZ2BVTP(,R9) 0386 00134000 L @15,BVTPARIP(,@08) 0386 00135000 LA @01,@AL00001 0386 00136000 BALR @14,@15 0386 00137000 * RESPECIFY 0387 00138000 * (GPR15F) RESTRICTED; 0387 00139000 * IF GPR15F^=ZZZFLAGI THEN 0388 00140000 * 0388 00141000 LTR GPR15F,GPR15F 0388 00142000 BZ @RF00388 0388 00143000 * /*********************************************************/ 00144000 * /* */ 00145000 * /* UNABLE TO PARSE */ 00146000 * /* */ 00147000 * /*********************************************************/ 00148000 * 0389 00149000 * DO; /* UNABLE TO PARSE */ 00150000 * RETC=GPR15F; /* RETURN CODE */ 00151000 LR RETC,GPR15F 0390 00152000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00153000 B EXITNORL 0391 00154000 * END; 0392 00155000 * RESPECIFY 0393 00156000 * (GPR15F) UNRESTRICTED; 0393 00157000 @RF00388 DS 0H 0394 00158000 * RESPECIFY 0394 00159000 * (PDRPTR) RESTRICTED; 0394 00160000 * PDRPTR=PDAPTR; /* ->PDL */ 00161000 L PDRPTR,PDAPTR 0395 00162000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0396 00163000 USING PD,PDRPTR 00164000 * IF PXTEST=PXTEST1 THEN 0397 00165000 CLC PXTEST(2),@CH00044 0397 00166000 BNE @RF00397 0397 00167000 * ZZ2AFX=ZZZ1; /* TEST */ 00168000 OI ZZ2AFX(R9),B'10000000' 0398 00169000 * ELSE 0399 00170000 * IF PXTEST=PXTEST0 THEN 0399 00171000 B @RC00397 0399 00172000 @RF00397 CLC PXTEST(2),@CH00069 0399 00173000 BNE @RF00399 0399 00174000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00175000 NI ZZ2AFX(R9),B'01111111' 0400 00176000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00177000 @RF00399 DS 0H 0401 00178000 @RC00397 ST R9,@AL00001 0401 00179000 ST PDRPTR,@AL00001+4 0401 00180000 LA @14,PXRO 0401 00181000 ST @14,@AL00001+8 0401 00182000 L @06,ZZ2BVTP(,R9) 0401 00183000 L @15,BVTPARUP(,@06) 0401 00184000 LA @01,@AL00001 0401 00185000 BALR @14,@15 0401 00186000 * RESPECIFY 0402 00187000 * (GPR15F) RESTRICTED; 0402 00188000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00189000 CR RETC,GPR15F 0403 00190000 BNL *+6 00191000 LR RETC,GPR15F 0403 00192000 * RESPECIFY 0404 00193000 * (GPR15F) UNRESTRICTED; 0404 00194000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00195000 C RETC,@CF00052 0405 00196000 BH @RT00405 0405 00197000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00198000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00199000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00200000 * ROUTING */ 00201000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00202000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00203000 * TE,PX)FLAG ROUTING */ 00204000 * CALL BLSRPADS(ZZ2,PDDSECT,PXDO);/* SET DISPLAY OPTIONS */ 00205000 ST R9,@AL00001 0409 00206000 ST PDRPTR,@AL00001+4 0409 00207000 LA @14,PXDO 0409 00208000 ST @14,@AL00001+8 0409 00209000 L @06,ZZ2RVTP(,R9) 0409 00210000 L @15,RVTPADSP(,@06) 0409 00211000 LA @01,@AL00001 0409 00212000 BALR @14,@15 0409 00213000 * END; /* BLSRPARS DISPLAY FLAG 0410 00214000 * MF(EXECUTE,PX) */ 00215000 * 0411 00216000 * /*****************************************************************/ 00217000 * /* */ 00218000 * /* BLSRSASI COMMON SEGMENT COMMAND PROCESSING */ 00219000 * /* */ 00220000 * /*****************************************************************/ 00221000 * 0411 00222000 * ESAU(1:ESAULRL)=ESCO(1:ESAULRL);/* INITIALIZE ES RECORD */ 00223000 MVC ESAU(182),ESCO 0411 00224000 * SAAU(1:SAAULRL)=SACO(1:SAAULRL);/* INITIALIZE SA RECORD */ 00225000 MVC SAAU(256),SACO 0412 00226000 * DRDX=ZZ6DRDX; /* CURRENT DUMP INDEX */ 00227000 L @14,ZZ2AZZ6P(,R9) 0413 00228000 L DRDX,ZZ6DRDX(,@14) 0413 00229000 * ESAURDX=DRDX; /* CURRENT DUMP */ 00230000 ST DRDX,ESAURDX 0414 00231000 * SAAURDX=DRDX; /* CURRENT DUMP */ 00232000 ST DRDX,SAAURDX 0415 00233000 * SAAUDTY='00'X; /* LOWEST DATA TYPE POSSIBLE */ 00234000 MVI SAAUDTY,X'00' 0416 00235000 * P1=0; /* ->FIRST ADDRESS SUPPORTED */ 00236000 SLR P1,P1 0417 00237000 * P9=ZZZP31MX; /* ->FINAL ADDRESS SUPPORTED */ 00238000 L P9,@CF00124 0418 00239000 * IF PDRANGE=PDRANGE1| /* RANGE KEYWORD SPECIFIED */ 00240000 * PXA1^=0|PXA2^=0 /* DESCRIPTIVE KEYWORDS */ 00241000 * THEN 0419 00242000 * 0419 00243000 CLC PDRANGE(2),@CH00044 0419 00244000 BE @RT00419 0419 00245000 SLR @14,@14 0419 00246000 CH @14,PXA1 0419 00247000 BNE @RT00419 0419 00248000 CH @14,PXA2 0419 00249000 BE @RF00419 0419 00250000 @RT00419 DS 0H 0420 00251000 * /***************************************************************/ 00252000 * /* */ 00253000 * /* PROCESS RANGE OF ADDRESSES IN A SINGLE MEMORY */ 00254000 * /* */ 00255000 * /***************************************************************/ 00256000 * 0420 00257000 * DO; /* MAP ADDRESS RANGE */ 00258000 * IF PDRANGE=PDRANGE1 THEN 0421 00259000 * 0421 00260000 CLC PDRANGE(2),@CH00044 0421 00261000 BNE @RF00421 0421 00262000 * /***********************************************************/ 00263000 * /* */ 00264000 * /* EXPLICIT RANGE OF ADDRESSES */ 00265000 * /* */ 00266000 * /***********************************************************/ 00267000 * 0422 00268000 * DO; /* EXPLICIT RANGE */ 00269000 * CALL BLSRADDR(ZZ2,ESAU,PD,PXAO,PDAD);/* PROCESS ADDRESS */ 00270000 ST R9,@AL00001 0423 00271000 LA @14,ESAU 0423 00272000 ST @14,@AL00001+4 0423 00273000 LA @14,PD 0423 00274000 ST @14,@AL00001+8 0423 00275000 LA @14,PXAO 0423 00276000 ST @14,@AL00001+12 0423 00277000 LA @14,PDAD 0423 00278000 ST @14,@AL00001+16 0423 00279000 L @06,ZZ2RVTP(,R9) 0423 00280000 L @15,RVTADDRP(,@06) 0423 00281000 LA @01,@AL00001 0423 00282000 BALR @14,@15 0423 00283000 * P1=ESAULAD+ESAUDOF; /* ->FIRST ADDRESS OF INTEREST */ 00284000 L P1,ESAULAD 0424 00285000 AL P1,ESAUDOF 0424 00286000 * P9=P1+ESAUDLE*MAX(ESAUDIM,1)-1;/* ->FINAL ADDRESS OF 0425 00287000 * INTEREST */ 00288000 L @01,ESAUDIM 0425 00289000 LA P9,1 0425 00290000 CLR @01,P9 0425 00291000 BNL *+6 00292000 LR @01,P9 0425 00293000 M @00,ESAUDLE 0425 00294000 ALR @01,P1 0425 00295000 BCTR @01,0 0425 00296000 LR P9,@01 0425 00297000 * ESAUSYM=ESCOSYM; /* NO SYMBOL */ 00298000 MVC ESAUSYM(31),ESCOSYM 0426 00299000 * ESAURL=0; /* NO REMARK */ 00300000 SLR @14,@14 0427 00301000 STH @14,ESAURL 0427 00302000 * END; 0428 00303000 * ELSE 0429 00304000 * 0429 00305000 * /***********************************************************/ 00306000 * /* */ 00307000 * /* DEFAULT RANGE (ENTIRE ADDRESS SPACE) */ 00308000 * /* */ 00309000 * /***********************************************************/ 00310000 * 0429 00311000 * CALL BLSRADD2(ZZ2,ESAU,PD,PXAO);/* GENERATE ADDRESS SPACE */ 00312000 B @RC00421 0429 00313000 @RF00421 ST R9,@AL00001 0429 00314000 LA @14,ESAU 0429 00315000 ST @14,@AL00001+4 0429 00316000 LA @14,PD 0429 00317000 ST @14,@AL00001+8 0429 00318000 LA @14,PXAO 0429 00319000 ST @14,@AL00001+12 0429 00320000 L @06,ZZ2RVTP(,R9) 0429 00321000 L @15,RVTADD2P(,@06) 0429 00322000 LA @01,@AL00001 0429 00323000 BALR @14,@15 0429 00324000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00325000 @RC00421 CR RETC,RF 0430 00326000 BNL *+6 00327000 LR RETC,RF 0430 00328000 * IF RETC>ZZZFLAGE THEN /* SERIOUS CONDITION */ 00329000 C RETC,@CF00052 0431 00330000 BH @RT00431 0431 00331000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00332000 * ASAU=ESAUAS; /* ONLY INTERESTING ADDRESS SPACE*/ 00333000 MVC ASAU(16),ESAUAS 0433 00334000 * END; 0434 00335000 * ELSE 0435 00336000 * ASAUT='FFFF'X; /* FINAL ADDRESS SPACE POSSIBLE */ 00337000 B @RC00419 0435 00338000 @RF00419 MVC ASAUT(2),@CB00139 0435 00339000 * 0436 00340000 * /*****************************************************************/ 00341000 * /* */ 00342000 * /* START LISTMAP PROCESSING */ 00343000 * /* */ 00344000 * /*****************************************************************/ 00345000 * 0436 00346000 * SAAUAS=ESAUAS; /* INTERESTING ADDRESS SPACE */ 00347000 @RC00419 MVC SAAUAS(16),ESAUAS 0436 00348000 * SAAULAD=P1; /* ->FIRST ADDRESS OF INTEREST */ 00349000 ST P1,SAAULAD 0437 00350000 * CALL BLSUVSPO(ZZ2,MYRPL); /* POINT TO INTERESTING RECORD */ 00351000 ST R9,@AL00001 0438 00352000 LA @14,MYRPL 0438 00353000 ST @14,@AL00001+4 0438 00354000 L @06,ZZ2BVTP(,R9) 0438 00355000 L @15,BVTVSPOP(,@06) 0438 00356000 LA @01,@AL00001 0438 00357000 BALR @14,@15 0438 00358000 * IF RF^=ZZZFLAGI THEN 0439 00359000 * 0439 00360000 LTR RF,RF 0439 00361000 BZ @RF00439 0439 00362000 * /***************************************************************/ 00363000 * /* */ 00364000 * /* POINT ERROR */ 00365000 * /* */ 00366000 * /***************************************************************/ 00367000 * 0440 00368000 * DO; /* POINT ERROR */ 00369000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00370000 CR RETC,RF 0441 00371000 BNL *+6 00372000 LR RETC,RF 0441 00373000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00374000 B EXITRLSA 0442 00375000 * END; 0443 00376000 * IF PYVER^=0 THEN 0444 00377000 * 0444 00378000 @RF00439 LH @14,PYVER 0444 00379000 LTR @14,@14 0444 00380000 BZ @RF00444 0444 00381000 * /***************************************************************/ 00382000 * /* */ 00383000 * /* VERIFICATION KEYWORD SPECIFIED */ 00384000 * /* */ 00385000 * /***************************************************************/ 00386000 * 0445 00387000 * IF PYVER=PYVER1 THEN 0445 00388000 C @14,@CF00044 0445 00389000 BNE @RF00445 0445 00390000 * ZZ2AFV='1'B; /* VERIFY */ 00391000 OI ZZ2AFV(R9),B'00001000' 0446 00392000 * ELSE 0447 00393000 * ZZ2AFV='0'B; /* NOVERIFY */ 00394000 B @RC00445 0447 00395000 @RF00445 NI ZZ2AFV(R9),B'11110111' 0447 00396000 * 0448 00397000 * /*****************************************************************/ 00398000 * /* */ 00399000 * /* PROCESS ALL INTERESTING STORAGE ADDRESS RECORDS */ 00400000 * /* */ 00401000 * /*****************************************************************/ 00402000 * 0448 00403000 * DO WHILE(ZZ1EVEP='0'B); /* PROCESS SA RECORD(S) */ 00404000 * 0448 00405000 @RC00445 DS 0H 0448 00406000 @RF00444 B @DE00448 0448 00407000 @DL00448 DS 0H 0449 00408000 * /***************************************************************/ 00409000 * /* */ 00410000 * /* GET RECORD */ 00411000 * /* */ 00412000 * /***************************************************************/ 00413000 * 0449 00414000 * CALL BLSUVSGU(ZZ2,MYRPL); /* RETRIEVE RECORD */ 00415000 ST R9,@AL00001 0449 00416000 LA @14,MYRPL 0449 00417000 ST @14,@AL00001+4 0449 00418000 L @06,ZZ2BVTP(,R9) 0449 00419000 L @15,BVTVSGUP(,@06) 0449 00420000 LA @01,@AL00001 0449 00421000 BALR @14,@15 0449 00422000 * IF RF^=ZZZFLAGI THEN 0450 00423000 LTR RF,RF 0450 00424000 BZ @RF00450 0450 00425000 * DO; /* GET ERROR */ 00426000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00427000 CR RETC,RF 0452 00428000 BNL *+6 00429000 LR RETC,RF 0452 00430000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00431000 B EXITRLSA 0453 00432000 * END; 0454 00433000 * IF SAAURID^=SACORID| /* NOT AN SA RECORD */ 00434000 * SAAURDX^=DRDX| /* NOT CURRENT DUMP */ 00435000 * SAAUAS>ASAU| /* PAST INTERESTING ADDRESS SPACE*/ 00436000 * SAAULAD>P9 THEN /* PAST FINAL ADDRESS OF INTEREST*/ 00437000 @RF00450 CLC SAAURID(2),SACORID 0455 00438000 BNE @RT00455 0455 00439000 CL DRDX,SAAURDX 0455 00440000 BNE @RT00455 0455 00441000 CLC SAAUAS(16),ASAU 0455 00442000 BH @RT00455 0455 00443000 CL P9,SAAULAD 0455 00444000 BL @RT00455 0455 00445000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00446000 * RECCOUNT=RECCOUNT+1; /* RECORDS PROCESSED */ 00447000 * 0457 00448000 LA @14,1 0457 00449000 L @06,RECCOUNT 0457 00450000 ALR @06,@14 0457 00451000 ST @06,RECCOUNT 0457 00452000 * /***************************************************************/ 00453000 * /* */ 00454000 * /* RESCAN THIS BLOCK IF REQUESTED */ 00455000 * /* */ 00456000 * /***************************************************************/ 00457000 * 0458 00458000 * IF SAAUSF9='1'B& /* SCAN COMPLETED(FOR THIS BLOCK)*/ 00459000 * PDSCAN^=PDSCAN0& /* SCAN(DEFAULT) SPECIFIED */ 00460000 * SAAUPGV^=SACOPGV& /* SCAN PROGRAM NAME SPECIFIED */ 00461000 * SAAUSRC>=ZZ2ASE THEN /* SCAN RETURN CODE ABOVE FLAG 0458 00462000 * SETTING */ 00463000 TM SAAUSF9,B'01000000' 0458 00464000 BNO @RF00458 0458 00465000 CLC PDSCAN(2),@CH00069 0458 00466000 BE @RF00458 0458 00467000 CLC SAAUPGV(8),SACOPGV 0458 00468000 BE @RF00458 0458 00469000 CLC SAAUSRC(1),ZZ2ASE(R9) 0458 00470000 BL @RF00458 0458 00471000 * DO; /* RESCAN THIS BLOCK */ 00472000 * ERRCOUNT=ERRCOUNT+1; /* ERROR RECORDS */ 00473000 AL @14,ERRCOUNT 0460 00474000 ST @14,ERRCOUNT 0460 00475000 * DO; /* BLSULINK(ZZ2,SAAU,0) 0461 00476000 * EP(SAAUPGV) */ 00477000 * ZZ2PGM=SAAUPGV; /* ENTRY POINT NAME */ 00478000 MVC ZZ2PGM(8,R9),SAAUPGV 0462 00479000 * CALL BLSUPGMC(ZZ2,SAAU,0);/* CALL NON-RESIDENT IPCS 0463 00480000 * PROGRAM */ 00481000 ST R9,@AL00001 0463 00482000 LA @14,SAAU 0463 00483000 ST @14,@AL00001+4 0463 00484000 LA @14,@CF00049 0463 00485000 ST @14,@AL00001+8 0463 00486000 L @06,ZZ2BVTP(,R9) 0463 00487000 L @15,BVTPGMCP(,@06) 0463 00488000 LA @01,@AL00001 0463 00489000 BALR @14,@15 0463 00490000 * END; /* BLSULINK(ZZ2,SAAU,0) 0464 00491000 * EP(SAAUPGV) SCAN PROGRAM NAME 00492000 * SPECIFIED */ 00493000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00494000 CR RETC,RF 0465 00495000 BNL *+6 00496000 LR RETC,RF 0465 00497000 * END; /* RESCAN THE BLOCK */ 00498000 * 0466 00499000 * /***************************************************************/ 00500000 * /* */ 00501000 * /* VERIFY IF REQUESTED */ 00502000 * /* */ 00503000 * /***************************************************************/ 00504000 * 0467 00505000 * IF SAAUSF1='1'B& /* SCAN STARTED */ 00506000 * ZZ2AFV='1'B THEN /* VERIFY SPECIFIED */ 00507000 @RF00458 TM SAAUSF1,B'10000000' 0467 00508000 BNO @RF00467 0467 00509000 TM ZZ2AFV(R9),B'00001000' 0467 00510000 BNO @RF00467 0467 00511000 * DO; /* VERIFY */ 00512000 * 0468 00513000 * /***********************************************************/ 00514000 * /* */ 00515000 * /* TERMINATE SEQUENTIAL READ IF SA RECORD MAY BE REWRITTEN */ 00516000 * /* BY FORMAT ROUTINES */ 00517000 * /* */ 00518000 * /***********************************************************/ 00519000 * 0469 00520000 * IF SAAUPGV=SACOPGV& /* NO SCAN EXIT NAME SPECIFIED */ 00521000 * (ZZ2AFM='1'B| /* DISPLAY(MACHINE) */ 00522000 * ZZ2AFD='1'B) /* DISPLAY(STORAGE) */ 00523000 * THEN 0469 00524000 CLC SAAUPGV(8),SACOPGV 0469 00525000 BNE @RF00469 0469 00526000 TM ZZ2AFM(R9),B'00100010' 0469 00527000 BZ @RF00469 0469 00528000 * DO; /* TERMINATE SEQUNTIAL READ */ 00529000 * CALL BLSUVSEN(ZZ2,MYRPL);/* TERMINATE VSAM REQUEST 0471 00530000 * STRING */ 00531000 ST R9,@AL00001 0471 00532000 LA @14,MYRPL 0471 00533000 ST @14,@AL00001+4 0471 00534000 L @06,ZZ2BVTP(,R9) 0471 00535000 L @15,BVTVSENP(,@06) 0471 00536000 LA @01,@AL00001 0471 00537000 BALR @14,@15 0471 00538000 * IF RF^=ZZZFLAGI THEN 0472 00539000 LTR RF,RF 0472 00540000 BZ @RF00472 0472 00541000 * DO; /* ENDREQ ERROR */ 00542000 * RETC=MAX(RETC,RF);/* RETURN CODE */ 00543000 CR RETC,RF 0474 00544000 BNL *+6 00545000 LR RETC,RF 0474 00546000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00547000 B EXITRLSA 0475 00548000 * END; 0476 00549000 * END; /* TERMINATE SEQUENTIAL READ */ 00550000 * 0477 00551000 @RF00472 DS 0H 0478 00552000 * /***********************************************************/ 00553000 * /* */ 00554000 * /* FORMAT RECORD */ 00555000 * /* */ 00556000 * /***********************************************************/ 00557000 * 0478 00558000 * FMTCOUNT=FMTCOUNT+1; /* RECORDS FORMATTED */ 00559000 @RF00469 LA @14,1 0478 00560000 AL @14,FMTCOUNT 0478 00561000 ST @14,FMTCOUNT 0478 00562000 * ESAUAS=SAAUAS; /* ADDRESS SPACE */ 00563000 MVC ESAUAS(16),SAAUAS 0479 00564000 * ESAULAD=SAAULAD; /* LOGICAL ADDRESS */ 00565000 L @14,SAAULAD 0480 00566000 ST @14,ESAULAD 0480 00567000 * ESAUD=SAAUF; /* STORAGE ATTRIBUTES */ 00568000 MVC ESAUD(60),SAAUF 0481 00569000 * IF SAAUPGV=ZZZPGM40 THEN /* NO SCAN EXIT */ 00570000 * 0482 00571000 CLC SAAUPGV(8),@CC00160 0482 00572000 BNE @RF00482 0482 00573000 * /*********************************************************/ 00574000 * /* */ 00575000 * /* NO SCAN EXIT */ 00576000 * /* */ 00577000 * /*********************************************************/ 00578000 * 0483 00579000 * DO; /* NO SCAN EXIT */ 00580000 * IF SAAUAST=ZZZASTCV THEN/* MVS VIRTUAL STORAGE */ 00581000 CLC SAAUAST(2),@CC00076 0484 00582000 BNE @RF00484 0484 00583000 * IF SAAULADPACKED 0522 00795000 * DECIMAL */ 00796000 L @14,RECCOUNT 0522 00797000 CVD @14,PACKED 0522 00798000 * ED(M048BT2,PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00799000 ED M048BT2(15),PACKED+2 0523 00800000 * END; /* BLRCNVUC(RECCOUNT) 0524 00801000 * FROM(UNSIGNED BINARY)TO(CHARAC 00802000 * TER)SET(M048BT2)PATTERN('40202 00803000 * 06B2020206B2020206B202120'X)OP 00804000 * TIONS(PATTERN IN 0524 00805000 * PLACE)REMARK(NUMBER OF RECORDS 00806000 * PROCESSED) */ 00807000 * IF RECCOUNT=1 THEN 0525 00808000 C @14,@CF00044 0525 00809000 BNE @RF00525 0525 00810000 * M048BT31=' '; /* SINGULAR */ 00811000 MVI M048BT31,C' ' 0526 00812000 * END; /* CONVERT RECORD COUNT */ 00813000 @RF00525 DS 0H 0528 00814000 * IF ERRCOUNT=0 THEN 0528 00815000 @RC00518 L @14,ERRCOUNT 0528 00816000 LTR @14,@14 0528 00817000 BNZ @RF00528 0528 00818000 * M048BT4='NONE'; /* NO BLOCKS RESCANNED */ 00819000 MVI M048BT4+4,C' ' 0529 00820000 MVC M048BT4+5(10),M048BT4+4 0529 00821000 MVC M048BT4(4),@CC01786 0529 00822000 * ELSE 0530 00823000 * DO; /* BLRCNVUC(ERRCOUNT) 0530 00824000 * FROM(UNSIGNED BINARY)TO(CHARAC 00825000 * TER)SET(M048BT4)PATTERN('40202 00826000 * 06B2020206B2020206B202120'X)OP 00827000 * TIONS(PATTERN IN 0530 00828000 * PLACE)REMARK(NUMBER OF RECORDS 00829000 * RESCANNED) */ 00830000 * 0530 00831000 B @RC00528 0530 00832000 @RF00528 DS 0H 0531 00833000 * /*********************************************************/ 00834000 * /* */ 00835000 * /* NUMBER OF RECORDS RESCANNED */ 00836000 * /* */ 00837000 * /*********************************************************/ 00838000 * 0531 00839000 * CVD(ERRCOUNT,PACKED); /* UNSIGNED BINARY=>PACKED 0531 00840000 * DECIMAL */ 00841000 L @14,ERRCOUNT 0531 00842000 CVD @14,PACKED 0531 00843000 * ED(M048BT4,PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00844000 ED M048BT4(15),PACKED+2 0532 00845000 * END; /* BLRCNVUC(ERRCOUNT) 0533 00846000 * FROM(UNSIGNED BINARY)TO(CHARAC 00847000 * TER)SET(M048BT4)PATTERN('40202 00848000 * 06B2020206B2020206B202120'X)OP 00849000 * TIONS(PATTERN IN 0533 00850000 * PLACE)REMARK(NUMBER OF RECORDS 00851000 * RESCANNED) */ 00852000 * IF FMTCOUNT=0 THEN 0534 00853000 @RC00528 L @14,FMTCOUNT 0534 00854000 LTR @14,@14 0534 00855000 BNZ @RF00534 0534 00856000 * M048BT6='NONE'; /* NO RECORDS VERIFIED(FORMATTED)*/ 00857000 MVI M048BT6+4,C' ' 0535 00858000 MVC M048BT6+5(10),M048BT6+4 0535 00859000 MVC M048BT6(4),@CC01786 0535 00860000 * ELSE 0536 00861000 * DO; /* BLRCNVUC(FMTCOUNT) 0536 00862000 * FROM(UNSIGNED BINARY)TO(CHARAC 00863000 * TER)SET(M048BT6)PATTERN('40202 00864000 * 06B2020206B2020206B202120'X)OP 00865000 * TIONS(PATTERN IN 0536 00866000 * PLACE)REMARK(NUMBER OF RECORDS 00867000 * VERIFIED) */ 00868000 * 0536 00869000 B @RC00534 0536 00870000 @RF00534 DS 0H 0537 00871000 * /*********************************************************/ 00872000 * /* */ 00873000 * /* NUMBER OF RECORDS VERIFIED */ 00874000 * /* */ 00875000 * /*********************************************************/ 00876000 * 0537 00877000 * CVD(FMTCOUNT,PACKED); /* UNSIGNED BINARY=>PACKED 0537 00878000 * DECIMAL */ 00879000 L @14,FMTCOUNT 0537 00880000 CVD @14,PACKED 0537 00881000 * ED(M048BT6,PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00882000 ED M048BT6(15),PACKED+2 0538 00883000 * END; /* BLRCNVUC(FMTCOUNT) 0539 00884000 * FROM(UNSIGNED BINARY)TO(CHARAC 00885000 * TER)SET(M048BT6)PATTERN('40202 00886000 * 06B2020206B2020206B202120'X)OP 00887000 * TIONS(PATTERN IN 0539 00888000 * PLACE)REMARK(NUMBER OF RECORDS 00889000 * VERIFIED) */ 00890000 * IF UNSCOUNT=0 THEN 0540 00891000 @RC00534 L @14,UNSCOUNT 0540 00892000 LTR @14,@14 0540 00893000 BNZ @RF00540 0540 00894000 * M048BT8='NONE'; /* NO RECORDS UNSCANNED */ 00895000 MVI M048BT8+4,C' ' 0541 00896000 MVC M048BT8+5(10),M048BT8+4 0541 00897000 MVC M048BT8(4),@CC01786 0541 00898000 * ELSE 0542 00899000 * DO; /* BLRCNVUC(UNSCOUNT) 0542 00900000 * FROM(UNSIGNED BINARY)TO(CHARAC 00901000 * TER)SET(M048BT8)PATTERN('40202 00902000 * 06B2020206B2020206B202120'X)OP 00903000 * TIONS(PATTERN IN 0542 00904000 * PLACE)REMARK(NUMBER OF RECORDS 00905000 * COMPLETELY UNSCANNED) */ 00906000 * 0542 00907000 B @RC00540 0542 00908000 @RF00540 DS 0H 0543 00909000 * /*********************************************************/ 00910000 * /* */ 00911000 * /* NUMBER OF RECORDS COMPLETELY UNSCANNED */ 00912000 * /* */ 00913000 * /*********************************************************/ 00914000 * 0543 00915000 * CVD(UNSCOUNT,PACKED); /* UNSIGNED BINARY=>PACKED 0543 00916000 * DECIMAL */ 00917000 L @14,UNSCOUNT 0543 00918000 CVD @14,PACKED 0543 00919000 * ED(M048BT8,PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00920000 ED M048BT8(15),PACKED+2 0544 00921000 * END; /* BLRCNVUC(UNSCOUNT) 0545 00922000 * FROM(UNSIGNED BINARY)TO(CHARAC 00923000 * TER)SET(M048BT8)PATTERN('40202 00924000 * 06B2020206B2020206B202120'X)OP 00925000 * TIONS(PATTERN IN 0545 00926000 * PLACE)REMARK(NUMBER OF RECORDS 00927000 * COMPLETELY UNSCANNED) */ 00928000 * CALL BLSUMPK1(ZZ2,M048B); /* ELIMINATE EXTRANEOUS BLANKS */ 00929000 @RC00540 ST R9,@AL00001 0546 00930000 LA @14,M048B 0546 00931000 ST @14,@AL00001+4 0546 00932000 L @06,ZZ2BVTP(,R9) 0546 00933000 L @15,BVTMPK1P(,@06) 0546 00934000 LA @01,@AL00001 0546 00935000 BALR @14,@15 0546 00936000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00937000 CR RETC,RF 0547 00938000 BNL *+6 00939000 LR RETC,RF 0547 00940000 * CALL BLSUPUTV(ZZ2,M048B); /* TRANSMIT MESSAGE M048 */ 00941000 ST R9,@AL00001 0548 00942000 LA @14,M048B 0548 00943000 ST @14,@AL00001+4 0548 00944000 L @06,ZZ2BVTP(,R9) 0548 00945000 L @15,BVTPUTVP(,@06) 0548 00946000 LA @01,@AL00001 0548 00947000 BALR @14,@15 0548 00948000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00949000 CR RETC,RF 0549 00950000 BNL *+6 00951000 LR RETC,RF 0549 00952000 * END; 0550 00953000 * 0550 00954000 * /*****************************************************************/ 00955000 * /* */ 00956000 * /* EXIT WITH PDL */ 00957000 * /* */ 00958000 * /*****************************************************************/ 00959000 * 0551 00960000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(EXECUTE,PD) */ 00961000 @RF00515 B @DE00551 0551 00962000 @DL00551 DS 0H 0552 00963000 * PDRPTR=PDAPTR; 0552 00964000 L PDRPTR,PDAPTR 0552 00965000 * PDAPTR=PDXP; 0553 00966000 L @14,PDXP-1(,PDRPTR) 0553 00967000 LA @14,0(,@14) 0553 00968000 ST @14,PDAPTR 0553 00969000 * DO; /* FREEMAIN(R) 0554 00970000 * LV(PDL)SP(1)A(PDDSECT) */ 00971000 * RESPECIFY 0555 00972000 * (GPR01F, 0555 00973000 * GPR00F) RESTRICTED; 0555 00974000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00975000 L GPR00F,PDL-1(,PDRPTR) 0556 00976000 ICM GPR00F,8,@CB01592 0556 00977000 * GPR01F=1; /* SP IN REG 1 */ 00978000 LA GPR01F,1 0557 00979000 * GEN(SLL GPR01F,24) 0558 00980000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0558 00981000 SLL GPR01F,24 00982000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00983000 OR GPR00F,GPR01F 0559 00984000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00985000 LR GPR01F,PDRPTR 0560 00986000 * SVC(10); /* R-FORM OF GETMAIN */ 00987000 SVC 10 0561 00988000 * RESPECIFY 0562 00989000 * (GPR01F, 0562 00990000 * GPR00F) UNRESTRICTED; 0562 00991000 * END; /* FREEMAIN(R) 0563 00992000 * LV(PDL)SP(1)A(PDDSECT) */ 00993000 * END; /* BLRRLSA MF(EXECUTE,PD) */ 00994000 * 0564 00995000 @DE00551 L @14,PDAPTR 0564 00996000 LTR @14,@14 0564 00997000 BNZ @DL00551 0564 00998000 * /*****************************************************************/ 00999000 * /* */ 01000000 * /* EXIT WITH NO PDL */ 01001000 * /* */ 01002000 * /*****************************************************************/ 01003000 * 0565 01004000 *EXITNORL: /* EXIT WITH NO PDL */ 01005000 * RETURN CODE(RETC); /* MODULE EXIT */ 01006000 EXITNORL L @13,4(,@13) 0565 01007000 L @00,@SIZDATD 0565 01008000 LR @01,@11 0565 01009000 BLSUFRER R,LV=(0),A=(1) 01010000 LR @15,@07 0565 01011000 L @14,12(,@13) 0565 01012000 LM @00,@12,20(@13) 0565 01013000 BR @14 0565 01014000 */*BLSRPEND--DEBUGGING MODULE */ 01015000 */*BLSUPEND--MVS IPCS MODULE */ 01016000 * 0566 01017000 * DECLARE /* DATA FOR AHB MACROS */ 01018000 * PACKED BIT(64) BOUNDARY(DWORD);/* DATA CONVERSION WORK AREA */ 01019000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01020000 * GPR00F FIXED(31) REG(0), 0567 01021000 * GPR01F FIXED(31) REG(1), 0567 01022000 * GPR15F FIXED(31) REG(15); 0567 01023000 * DECLARE /* COMMON VARIABLES */ 01024000 * I256C CHAR(256) BASED, 0568 01025000 * I031F FIXED(31) BASED, 0568 01026000 * I031P PTR(31) BASED, 0568 01027000 * I015F FIXED(15) BASED, 0568 01028000 * I015P PTR(15) BASED, 0568 01029000 * I008P PTR(8) BASED, 0568 01030000 * I001C CHAR(1) BASED; 0568 01031000 * GENERATE NODEFS NOREFS DATA; 0569 01032000 * END BLSRSALI /* BLRPEND(BLSRSALI) */ 01033000 * 0570 01034000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01035000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01036000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01037000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01038000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01039000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01040000 */*%INCLUDE SYSLIB (IKJECT ) */ 01041000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01042000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01043000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01044000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01045000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01046000 */*%INCLUDE SYSLIB (BLSUPASU) */ 01047000 */*%INCLUDE SYSLIB (BLSRSASD) */ 01048000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01049000 */*%INCLUDE SYSLIB (IKJEFFGF) */ 01050000 */*%INCLUDE SYSLIB (BLSRSASI) */ 01051000 * 0570 01052000 * ; 0570 01053000 @EL00001 L @13,4(,@13) 0570 01054000 @EF00001 L @00,@SIZDATD 0570 01055000 LR @01,@11 0570 01056000 BLSUFRER R,LV=(0),A=(1) 01057000 @ER00001 LM @14,@12,12(@13) 0570 01058000 BR @14 0570 01059000 @DATA DS 0H 01060000 @CH00069 DC H'2' 01061000 @DATD DSECT 01062000 DS 0F 01063000 @SA00001 DS 18F 01064000 @AL00001 DS 5A 01065000 BLSRSALI CSECT 01066000 DS 0F 01067000 @CF00049 DC F'0' 01068000 @CF00044 DC F'1' 01069000 @CH00044 EQU @CF00044+2 01070000 @CF00052 DC F'8' 01071000 @CF00092 DC F'4096' 01072000 @CF00450 DC F'4104' 01073000 @CF00122 DC F'16777216' 01074000 @CF00124 DC F'2147483647' 01075000 @DATD DSECT 01076000 DS 0D 01077000 PDAPTR DS A 01078000 ERRCOUNT DS F 01079000 FMTCOUNT DS F 01080000 RECCOUNT DS F 01081000 UNSCOUNT DS F 01082000 GFPARMS DS CL44 01083000 ORG GFPARMS 01084000 GFCBPTR DS AL4 01085000 GFRCODE DS FL4 01086000 GF02PTR DS AL4 01087000 GFCALLID DS FL2 01088000 GFBITS DS BL1 01089000 ORG GFBITS 01090000 GFKEYN08 DS BL1 01091000 GFSUBSYS EQU GFBITS+0 01092000 GFWTPSW EQU GFBITS+0 01093000 @NM00082 EQU GFBITS+0 01094000 ORG GFPARMS+15 01095000 @NM00083 DS AL1 01096000 GFCPPLP DS AL4 01097000 GFECBP DS AL4 01098000 GFDSNLEN DS FL2 01099000 GFPGMNL DS FL2 01100000 GFDSNP DS AL4 01101000 GFPGMNP DS AL4 01102000 @NM00084 DS AL4 01103000 @NM00085 DS AL4 01104000 ORG GFPARMS+44 01105000 ESAU DS CL694 01106000 ORG ESAU 01107000 ESAURID DS CL2 01108000 @NM00086 DS BL6 01109000 @NM00087 DS CL8 01110000 @NM00088 DS BL8 01111000 ESAURDX DS FL4 01112000 ESAUSYM DS CL31 01113000 ESAUELK DS 0C 01114000 ESAURV1 DS CL1 01115000 ESAUAS DS CL16 01116000 ORG ESAUAS 01117000 ESAUAS0 DS 0C 01118000 ESAUAST DS CL2 01119000 @NM00089 DS BL2 01120000 ESAUAS1 DS FL4 01121000 ESAUAS2 DS FL4 01122000 @NM00090 DS BL4 01123000 ESAUAS9 DS 0C 01124000 ORG ESAU+76 01125000 ESAULAD DS AL4 01126000 ESAUD DS CL60 01127000 ORG ESAUD 01128000 ESAUD00 DS 0C 01129000 ESAUDOF DS FL4 01130000 ESAUDLE DS FL4 01131000 ESAUDOB DS FL1 01132000 ESAUDLB DS FL1 01133000 ESAUDT DS CL34 01134000 ORG ESAUDT 01135000 ESAUDT0 DS 0C 01136000 ESAUDTY DS CL1 01137000 @NM00091 DS BL1 01138000 ESAUDTD DS CL31 01139000 ESAUDTE DS CL1 01140000 ESAUDT9 DS 0C 01141000 ORG ESAUD+44 01142000 ESAUDIM DS FL4 01143000 ESAUDIL DS FL4 01144000 ESAUDF DS BL4 01145000 ORG ESAUDF 01146000 ESAUDFA DS BL1 01147000 @NM00092 EQU ESAUDF+0 01148000 ORG ESAUD+56 01149000 @NM00093 DS BL4 01150000 ESAUD99 DS 0C 01151000 ORG ESAU+140 01152000 ESAUMAD DS AL4 01153000 @NM00094 DS BL16 01154000 ESAUKEY DS BL1 01155000 ESAUF DS BL3 01156000 ORG ESAUF 01157000 ESAUFS DS BL1 01158000 ORG ESAUFS 01159000 ESAUFSC DS BL1 01160000 ESAUFS2 EQU ESAUFS+0 01161000 ESAUFSM EQU ESAUFS+0 01162000 ESAUFSA EQU ESAUFS+0 01163000 ESAUFSP EQU ESAUFS+0 01164000 ESAUFSR EQU ESAUFS+0 01165000 ESAUFSX EQU ESAUFS+0 01166000 ESAUFSS EQU ESAUFS+0 01167000 ORG ESAUF+1 01168000 ESAUFC DS BL1 01169000 ORG ESAUFC 01170000 ESAUFCD DS BL1 01171000 @NM00095 EQU ESAUFC+0 01172000 ORG ESAUF+2 01173000 @NM00096 DS BL1 01174000 ORG ESAU+164 01175000 ESAUABS DS FL4 01176000 @NM00097 DS BL12 01177000 ESAUR DS CL514 01178000 ORG ESAUR 01179000 ESAURL DS FL2 01180000 ESAURT DS CL512 01181000 ORG ESAURT 01182000 ESAURT1 DS CL512 01183000 ORG ESAU+694 01184000 ESAU999 DS 0C 01185000 ORG ESAU+694 01186000 DS CL2 01187000 ASAU DS CL16 01188000 ORG ASAU 01189000 ASAU0 DS 0C 01190000 ASAUT DS CL2 01191000 @NM00122 DS BL2 01192000 ASAU1 DS FL4 01193000 ASAU2 DS FL4 01194000 @NM00123 DS BL4 01195000 ASAU9 DS 0C 01196000 ORG ASAU+16 01197000 SAAU DS CL3072 01198000 ORG SAAU 01199000 SAAURID DS CL2 01200000 @NM00124 DS BL6 01201000 SAAURDX DS FL4 01202000 SAAUAS DS CL16 01203000 ORG SAAUAS 01204000 SAAUAS0 DS 0C 01205000 SAAUAST DS CL2 01206000 @NM00125 DS BL2 01207000 SAAUAS1 DS FL4 01208000 SAAUAS2 DS FL4 01209000 @NM00126 DS BL4 01210000 SAAUAS9 DS 0C 01211000 ORG SAAU+28 01212000 SAAULAD DS AL4 01213000 SAAUDT DS CL34 01214000 ORG SAAUDT 01215000 SAAUDT0 DS 0C 01216000 SAAUDTY DS CL1 01217000 @NM00127 DS BL1 01218000 SAAUDTD DS CL31 01219000 SAAUDTE DS CL1 01220000 SAAUDT9 DS 0C 01221000 ORG SAAU+66 01222000 SAAUELK DS 0C 01223000 @NM00128 DS BL2 01224000 SAAUF DS CL60 01225000 ORG SAAUF 01226000 SAAUF00 DS 0C 01227000 SAAUFOF DS FL4 01228000 SAAUFLE DS FL4 01229000 SAAUFOB DS FL1 01230000 SAAUFLB DS FL1 01231000 SAAUFT DS CL34 01232000 ORG SAAUFT 01233000 SAAUFT0 DS 0C 01234000 SAAUFTY DS CL1 01235000 @NM00129 DS BL1 01236000 SAAUFTD DS CL31 01237000 SAAUFTE DS CL1 01238000 SAAUFT9 DS 0C 01239000 ORG SAAUF+44 01240000 SAAUFIM DS FL4 01241000 SAAUFIL DS FL4 01242000 SAAUFF DS BL4 01243000 ORG SAAUFF 01244000 SAAUFFA DS BL1 01245000 @NM00130 EQU SAAUFF+0 01246000 ORG SAAUF+56 01247000 @NM00131 DS BL4 01248000 SAAUF99 DS 0C 01249000 ORG SAAU+128 01250000 SAAUSF DS BL8 01251000 ORG SAAUSF 01252000 SAAUSF1 DS BL1 01253000 SAAUSF9 EQU SAAUSF+0 01254000 SAAUSFI EQU SAAUSF+0 01255000 SAAUSFS EQU SAAUSF+0 01256000 @NM00132 EQU SAAUSF+0 01257000 ORG SAAU+136 01258000 SAAUGMT DS BL8 01259000 SAAUPGV DS CL8 01260000 SAAUSRC DS FL1 01261000 @NM00133 DS 101BL1 01262000 SAAUC DS CL2818 01263000 ORG SAAUC 01264000 SAAUCL DS FL2 01265000 SAAUCT DS CL2816 01266000 ORG SAAUCT 01267000 SAAUCT1 DS CL2816 01268000 ORG SAAU+3072 01269000 SAAU999 DS 0C 01270000 ORG SAAU+3072 01271000 MYRPL DS CL256 01272000 M048B DS CL117 01273000 ORG M048B 01274000 M048BL DS FL2 01275000 @NM00157 DS BL2 01276000 M048BT DS CL113 01277000 ORG M048BT 01278000 M048BT1 DS CL10 01279000 M048BT2 DS CL15 01280000 M048BT3 DS CL10 01281000 ORG M048BT3 01282000 M048BT30 DS CL7 01283000 M048BT31 DS CL1 01284000 M048BT32 DS CL2 01285000 ORG M048BT+35 01286000 M048BT4 DS CL15 01287000 M048BT5 DS CL12 01288000 M048BT6 DS CL15 01289000 M048BT7 DS CL11 01290000 M048BT8 DS CL15 01291000 M048BT9 DS CL10 01292000 ORG M048B+117 01293000 DS CL3 01294000 PACKED DS BL8 01295000 BLSRSALI CSECT 01296000 DS 0F 01297000 @SIZDATD DC AL1(0) 01298000 DC AL3(@ENDDATD-@DATD) 01299000 DS 0D 01300000 PCPTR DC AL4(PC) 01301000 @CC00160 DC C' ' 01302000 @CC01786 DC C'NONE' 01303000 @CC00072 DC C'C ' 01304000 @CC00076 DC C'CV' 01305000 @CC00080 DC C'H ' 01306000 @CC01781 EQU @CC01786 01307000 @CB00139 DC X'FFFF' 01308000 @CB01592 DC X'00' 01309000 DS CL7 01310000 SACO DS CL256 01311000 ORG SACO 01312000 SACORID DC CL2'SA' 01313000 @NM00134 DC X'000000000000' 01314000 SACORDX DC A(0) 01315000 SACOAS DS CL16 01316000 ORG SACOAS 01317000 SACOAS0 DS 0C 01318000 SACOAST DC CL2' ' 01319000 @NM00135 DC X'0000' 01320000 SACOAS1 DC A(0) 01321000 SACOAS2 DC A(0) 01322000 @NM00136 DC X'00' 01323000 DC XL3'0' 01324000 SACOAS9 DS 0C 01325000 ORG SACO+28 01326000 SACOLAD DC A(0) 01327000 SACODT DS CL34 01328000 ORG SACODT 01329000 SACODT0 DS 0C 01330000 SACODTY DC CL1'U' 01331000 @NM00137 DC X'00' 01332000 SACODTD DC CL31' ' 01333000 SACODTE DC CL1' ' 01334000 SACODT9 DS 0C 01335000 ORG SACO+66 01336000 SACOELK DS 0C 01337000 @NM00138 DC X'00' 01338000 DC XL1'0' 01339000 SACOF DS CL60 01340000 ORG SACOF 01341000 SACOF00 DS 0C 01342000 SACOFOF DC F'0' 01343000 SACOFLE DC A(4) 01344000 SACOFOB DC AL1(0) 01345000 SACOFLB DC AL1(0) 01346000 SACOFT DS CL34 01347000 ORG SACOFT 01348000 SACOFT0 DS 0C 01349000 SACOFTY DC CL1'U' 01350000 @NM00139 DC X'00' 01351000 SACOFTD DC CL31' ' 01352000 SACOFTE DC CL1' ' 01353000 SACOFT9 DS 0C 01354000 ORG SACOF+44 01355000 SACOFIM DC A(0) 01356000 SACOFIL DC F'0' 01357000 SACOFF DC X'00000000' 01358000 ORG SACOFF 01359000 SACOFFA DS BL1 01360000 @NM00140 EQU SACOFF+0 01361000 ORG SACOF+56 01362000 @NM00141 DC X'00' 01363000 DC XL3'0' 01364000 SACOF99 DS 0C 01365000 ORG SACO+128 01366000 SACOSF DC X'00' 01367000 DC XL7'0' 01368000 ORG SACOSF 01369000 SACOSF1 DS BL1 01370000 SACOSF9 EQU SACOSF+0 01371000 SACOSFI EQU SACOSF+0 01372000 SACOSFS EQU SACOSF+0 01373000 @NM00142 EQU SACOSF+0 01374000 ORG SACO+136 01375000 SACOGMT DC X'00' 01376000 DC XL7'0' 01377000 SACOPGV DC CL8' ' 01378000 SACOSRC DC AL1(0) 01379000 @NM00143 DC 101X'00' 01380000 SACOC DS CL2 01381000 ORG SACOC 01382000 SACOCL DC AL2(0) 01383000 SACOCT DS 0C 01384000 ORG SACOCT 01385000 SACOCT1 DS 0C 01386000 ORG SACO+256 01387000 SACO999 DS 0C 01388000 ORG SACO+256 01389000 ESCO DS CL182 01390000 ORG ESCO 01391000 ESCORID DC CL2'ES' 01392000 @NM00144 DC X'000000000000' 01393000 @NM00145 DC CL8' ' 01394000 @NM00146 DC X'00' 01395000 DC XL7'0' 01396000 ESCORDX DC A(0) 01397000 ESCOSYM DC CL31' ' 01398000 ESCOELK DS 0C 01399000 ESCORV1 DC CL1' ' 01400000 ESCOAS DS CL16 01401000 ORG ESCOAS 01402000 ESCOAS0 DS 0C 01403000 ESCOAST DC CL2' ' 01404000 @NM00147 DC X'0000' 01405000 ESCOAS1 DC A(0) 01406000 ESCOAS2 DC A(0) 01407000 @NM00148 DC X'00' 01408000 DC XL3'0' 01409000 ESCOAS9 DS 0C 01410000 ORG ESCO+76 01411000 ESCOLAD DC A(0) 01412000 ESCOD DS CL60 01413000 ORG ESCOD 01414000 ESCOD00 DS 0C 01415000 ESCODOF DC F'0' 01416000 ESCODLE DC A(4) 01417000 ESCODOB DC AL1(0) 01418000 ESCODLB DC AL1(0) 01419000 ESCODT DS CL34 01420000 ORG ESCODT 01421000 ESCODT0 DS 0C 01422000 ESCODTY DC CL1'U' 01423000 @NM00149 DC X'00' 01424000 ESCODTD DC CL31' ' 01425000 ESCODTE DC CL1' ' 01426000 ESCODT9 DS 0C 01427000 ORG ESCOD+44 01428000 ESCODIM DC A(0) 01429000 ESCODIL DC F'0' 01430000 ESCODF DC X'00000000' 01431000 ORG ESCODF 01432000 ESCODFA DS BL1 01433000 @NM00150 EQU ESCODF+0 01434000 ORG ESCOD+56 01435000 @NM00151 DC X'00' 01436000 DC XL3'0' 01437000 ESCOD99 DS 0C 01438000 ORG ESCO+140 01439000 ESCOMAD DC A(0) 01440000 @NM00152 DC X'00' 01441000 DC XL15'0' 01442000 ESCOKEY DS BL1 01443000 ESCOF DC X'00' 01444000 DC XL2'0' 01445000 ORG ESCOF 01446000 ESCOFS DS BL1 01447000 ORG ESCOFS 01448000 ESCOFSC DS BL1 01449000 ESCOFS2 EQU ESCOFS+0 01450000 ESCOFSM EQU ESCOFS+0 01451000 ESCOFSA EQU ESCOFS+0 01452000 ESCOFSP EQU ESCOFS+0 01453000 ESCOFSR EQU ESCOFS+0 01454000 ESCOFSX EQU ESCOFS+0 01455000 ESCOFSS EQU ESCOFS+0 01456000 ORG ESCOF+1 01457000 ESCOFC DS BL1 01458000 ORG ESCOFC 01459000 ESCOFCD DS BL1 01460000 @NM00153 EQU ESCOFC+0 01461000 ORG ESCOF+2 01462000 @NM00154 DS BL1 01463000 ORG ESCO+164 01464000 ESCOABS DC A(0) 01465000 @NM00155 DC X'00' 01466000 DC XL11'0' 01467000 ESCOR DS CL2 01468000 ORG ESCOR 01469000 ESCORL DC AL2(0) 01470000 ESCORT DS 0C 01471000 ORG ESCORT 01472000 ESCORT1 DS 0C 01473000 ORG ESCO+182 01474000 ESCO999 DS 0C 01475000 ORG ESCO+182 01476000 M048S DS CL117 01477000 ORG M048S 01478000 M048SL DC AL2(117) 01479000 @NM00156 DC X'0000' 01480000 M048ST DS CL113 01481000 ORG M048ST 01482000 M048ST1 DC CL10'BLS18048I ' 01483000 M048ST2 DC X'4020206B2020206B2020206B202120' 01484000 M048ST3 DS CL10 01485000 ORG M048ST3 01486000 M048ST30 DC CL7' RECORD' 01487000 M048ST31 DC CL1'S' 01488000 M048ST32 DC CL2', ' 01489000 ORG M048ST+35 01490000 M048ST4 DC X'4020206B2020206B2020206B202120' 01491000 M048ST5 DC CL12' RESCANNED, ' 01492000 M048ST6 DC X'4020206B2020206B2020206B202120' 01493000 M048ST7 DC CL11' VERIFIED, ' 01494000 M048ST8 DC X'4020206B2020206B2020206B202120' 01495000 M048ST9 DC CL10' UNSCANNED' 01496000 ORG M048S+117 01497000 DS CL1 01498000 PXDO DC AL2(PXDSPL-PD) 01499000 DC 2AL2(0) 01500000 DC AL2(PXDRMK-PD) 01501000 DC AL2(PXDREQ-PD) 01502000 DC AL2(PXDSTG-PD) 01503000 DC AL2(PXDSYM-PD) 01504000 DC AL2(PXDMCH-PD) 01505000 DC 3AL2(0) 01506000 PXAO DC AL2(0) 01507000 DC AL2(PXA1-PD) 01508000 DC AL2(PXA2-PD) 01509000 DC AL2(0) 01510000 DC AL2(0) 01511000 DC AL2(PXCPU-PD) 01512000 DC AL2(0) 01513000 DC AL2(PXASI-PD) 01514000 DC AL2(0) 01515000 DC AL2(0) 01516000 DC AL2(PXDTYPE-PD) 01517000 DC AL2(0) 01518000 DC AL2(PXLENGTH-PD) 01519000 DC AL2(PXMULT-PD) 01520000 DC AL2(PXRMK-PD) 01521000 DC AL2(PXDTD-PD) 01522000 DC AL2(PXLEN-PD) 01523000 DC AL2(PXDIM-PD) 01524000 DC AL2(PXREM-PD) 01525000 DC AL2(PXNTRY-PD) 01526000 DC AL2(PXNTR-PD) 01527000 PXRO DC AL2(PXPRINT-PD) 01528000 DC AL2(PXTERM-PD) 01529000 DC AL2(PXDFLG-PD) 01530000 DC AL2(PXDFLV-PD) 01531000 @DATD DSECT 01532000 SPACE 2 01533000 *********************************************************************** 01534000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01535000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01536000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01537000 *********************************************************************** 01538000 SPACE 01539000 BLSRSALI CSECT 01540000 ORG 01541000 DS 0D 01542000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRSALI+19)/20+7)/8)CL8'BLSRSALI' 01543000 @DATD DSECT 01544000 DS 0H 01545000 @DATD DSECT 01546000 SPACE 2 01547000 *********************************************************************** 01548000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01549000 *********************************************************************** 01550000 SPACE 01551000 BLSRSALI CSECT 01552000 PC IKJPARM DSECT=PD 01553000 @DATD DSECT 01554000 BLSRSALI CSECT 01555000 PDSCAN IKJKEYWD 01556000 @DATD DSECT 01557000 BLSRSALI CSECT 01558000 IKJNAME 'RESCAN' 01559000 @DATD DSECT 01560000 BLSRSALI CSECT 01561000 IKJNAME 'NORESCAN' 01562000 @DATD DSECT 01563000 BLSRSALI CSECT 01564000 PDSTATS IKJKEYWD 01565000 @DATD DSECT 01566000 BLSRSALI CSECT 01567000 IKJNAME 'SUMMARY' 01568000 @DATD DSECT 01569000 BLSRSALI CSECT 01570000 IKJNAME 'NOSUMMARY' 01571000 @DATD DSECT 01572000 BLSRSALI CSECT 01573000 PYVER IKJKEYWD 01574000 @DATD DSECT 01575000 BLSRSALI CSECT 01576000 IKJNAME 'VERIFY' 01577000 @DATD DSECT 01578000 BLSRSALI CSECT 01579000 IKJNAME 'NOVERIFY' 01580000 @DATD DSECT 01581000 BLSRSALI CSECT 01582000 PDRANGE IKJKEYWD 01583000 @DATD DSECT 01584000 BLSRSALI CSECT 01585000 IKJNAME 'RANGE',SUBFLD=PDSUBFAD 01586000 @DATD DSECT 01587000 BLSRSALI CSECT 01588000 PXA1 IKJKEYWD 01589000 @DATD DSECT 01590000 BLSRSALI CSECT 01591000 IKJNAME 'ABSOLUTE' 01592000 @DATD DSECT 01593000 BLSRSALI CSECT 01594000 IKJNAME 'CPU',SUBFLD=PXSUBFB 01595000 @DATD DSECT 01596000 BLSRSALI CSECT 01597000 IKJNAME 'HEADER' 01598000 @DATD DSECT 01599000 BLSRSALI CSECT 01600000 PXA2 IKJKEYWD 01601000 @DATD DSECT 01602000 BLSRSALI CSECT 01603000 IKJNAME 'ASID',SUBFLD=PXSUBFE 01604000 @DATD DSECT 01605000 BLSRSALI CSECT 01606000 IKJNAME 'REAL' 01607000 @DATD DSECT 01608000 BLSRSALI CSECT 01609000 IKJNAME 'STATUS' 01610000 @DATD DSECT 01611000 BLSRSALI CSECT 01612000 PXDSPL IKJKEYWD 01613000 @DATD DSECT 01614000 BLSRSALI CSECT 01615000 IKJNAME 'DISPLAY',SUBFLD=PXSUBFD 01616000 @DATD DSECT 01617000 BLSRSALI CSECT 01618000 IKJNAME 'NODISPLAY',SUBFLD=PXSUBFD 01619000 @DATD DSECT 01620000 BLSRSALI CSECT 01621000 PXDTYPE IKJKEYWD 01622000 @DATD DSECT 01623000 BLSRSALI CSECT 01624000 IKJNAME 'AREA',SUBFLD=PXSUBFG 01625000 @DATD DSECT 01626000 BLSRSALI CSECT 01627000 IKJNAME 'B',ALIAS=('BIT','HEXADECIMAL','X') 01628000 @DATD DSECT 01629000 BLSRSALI CSECT 01630000 IKJNAME 'C',ALIAS=('CHARACTER') 01631000 @DATD DSECT 01632000 BLSRSALI CSECT 01633000 IKJNAME 'MODULE',SUBFLD=PXSUBFG 01634000 @DATD DSECT 01635000 BLSRSALI CSECT 01636000 IKJNAME 'POINTER',ALIAS=('PTR') 01637000 @DATD DSECT 01638000 BLSRSALI CSECT 01639000 IKJNAME 'F',ALIAS=('SIGNED') 01640000 @DATD DSECT 01641000 BLSRSALI CSECT 01642000 IKJNAME 'STRUCTURE',SUBFLD=PXSUBFG 01643000 @DATD DSECT 01644000 BLSRSALI CSECT 01645000 IKJNAME 'UNSIGNED' 01646000 @DATD DSECT 01647000 BLSRSALI CSECT 01648000 PXLENGTH IKJKEYWD 01649000 @DATD DSECT 01650000 BLSRSALI CSECT 01651000 IKJNAME 'LENGTH',SUBFLD=PXSUBFL 01652000 @DATD DSECT 01653000 BLSRSALI CSECT 01654000 PXMULT IKJKEYWD 01655000 @DATD DSECT 01656000 BLSRSALI CSECT 01657000 IKJNAME 'DIMENSION',ALIAS=('MULTIPLE'),SUBFLD=PXSUBFI 01658000 @DATD DSECT 01659000 BLSRSALI CSECT 01660000 IKJNAME 'SCALAR' 01661000 @DATD DSECT 01662000 BLSRSALI CSECT 01663000 PXNTRY IKJKEYWD 01664000 @DATD DSECT 01665000 BLSRSALI CSECT 01666000 IKJNAME 'ENTRY',ALIAS=('ENTRIES'),SUBFLD=PXSUBFN 01667000 @DATD DSECT 01668000 BLSRSALI CSECT 01669000 PXRMK IKJKEYWD 01670000 @DATD DSECT 01671000 BLSRSALI CSECT 01672000 IKJNAME 'REMARK',SUBFLD=PXSUBFJ 01673000 @DATD DSECT 01674000 BLSRSALI CSECT 01675000 IKJNAME 'NOREMARK' 01676000 @DATD DSECT 01677000 BLSRSALI CSECT 01678000 PXPRINT IKJKEYWD 01679000 @DATD DSECT 01680000 BLSRSALI CSECT 01681000 IKJNAME 'PRINT' 01682000 @DATD DSECT 01683000 BLSRSALI CSECT 01684000 IKJNAME 'NOPRINT' 01685000 @DATD DSECT 01686000 BLSRSALI CSECT 01687000 PXTERM IKJKEYWD 01688000 @DATD DSECT 01689000 BLSRSALI CSECT 01690000 IKJNAME 'TERMINAL' 01691000 @DATD DSECT 01692000 BLSRSALI CSECT 01693000 IKJNAME 'NOTERMINAL' 01694000 @DATD DSECT 01695000 BLSRSALI CSECT 01696000 PXDFLG IKJKEYWD 01697000 @DATD DSECT 01698000 BLSRSALI CSECT 01699000 IKJNAME 'FLAG',SUBFLD=PXSUBFM 01700000 @DATD DSECT 01701000 BLSRSALI CSECT 01702000 PXTEST IKJKEYWD 01703000 @DATD DSECT 01704000 BLSRSALI CSECT 01705000 IKJNAME 'TEST' 01706000 @DATD DSECT 01707000 BLSRSALI CSECT 01708000 IKJNAME 'NOTEST' 01709000 @DATD DSECT 01710000 BLSRSALI CSECT 01711000 SPACE 01712000 PXSUBFM IKJSUBF 01713000 @DATD DSECT 01714000 BLSRSALI CSECT 01715000 PXDFLV IKJKEYWD 01716000 @DATD DSECT 01717000 BLSRSALI CSECT 01718000 IKJNAME 'INFORMATIONAL' 01719000 @DATD DSECT 01720000 BLSRSALI CSECT 01721000 IKJNAME 'WARNING' 01722000 @DATD DSECT 01723000 BLSRSALI CSECT 01724000 IKJNAME 'ERROR' 01725000 @DATD DSECT 01726000 BLSRSALI CSECT 01727000 IKJNAME 'SERIOUS',ALIAS=('SEVERE') 01728000 @DATD DSECT 01729000 BLSRSALI CSECT 01730000 IKJNAME 'TERMINATING' 01731000 @DATD DSECT 01732000 BLSRSALI CSECT 01733000 SPACE 01734000 PXSUBFG IKJSUBF 01735000 @DATD DSECT 01736000 BLSRSALI CSECT 01737000 PXDTD IKJIDENT 'DATA NAME',FIRST=ALPHA,MAXLNTH=31,OTHER=ALPHANUM 01738000 @DATD DSECT 01739000 BLSRSALI CSECT 01740000 SPACE 01741000 PXSUBFL IKJSUBF 01742000 @DATD DSECT 01743000 BLSRSALI CSECT 01744000 PXLEN IKJIDENT 'LENGTH',INTEG,PROMPT='LENGTH',VALIDCK=BLSUVP31 01745000 @DATD DSECT 01746000 BLSRSALI CSECT 01747000 SPACE 01748000 PXSUBFI IKJSUBF 01749000 @DATD DSECT 01750000 BLSRSALI CSECT 01751000 PXDIM IKJIDENT 'DIMENSION',INTEG,PROMPT='DIMENSION',VALIDCK=BLSUVP31 01752000 @DATD DSECT 01753000 BLSRSALI CSECT 01754000 SPACE 01755000 PXSUBFN IKJSUBF 01756000 @DATD DSECT 01757000 BLSRSALI CSECT 01758000 PXNTR IKJIDENT 'ENTRY(IES)',INTEG,RANGE,PROMPT='ENTRY(IES)',VALIDCK=*01759000 BLSUVP32 01760000 @DATD DSECT 01761000 BLSRSALI CSECT 01762000 SPACE 01763000 PXSUBFJ IKJSUBF 01764000 @DATD DSECT 01765000 BLSRSALI CSECT 01766000 PXREM IKJPOSIT QSTRING,PROMPT='REMARK' 01767000 @DATD DSECT 01768000 BLSRSALI CSECT 01769000 SPACE 01770000 PXSUBFB IKJSUBF 01771000 @DATD DSECT 01772000 BLSRSALI CSECT 01773000 PXCPU IKJIDENT 'CPU ADDRESS',INTEG,PROMPT='CPU ADDRESS',VALIDCK=BLSR*01774000 VPCP 01775000 @DATD DSECT 01776000 BLSRSALI CSECT 01777000 SPACE 01778000 PXSUBFE IKJSUBF 01779000 @DATD DSECT 01780000 BLSRSALI CSECT 01781000 PXASI IKJIDENT 'ASID',INTEG,PROMPT='ASID',VALIDCK=BLSRVPAS 01782000 @DATD DSECT 01783000 BLSRSALI CSECT 01784000 SPACE 01785000 PXSUBFD IKJSUBF 01786000 @DATD DSECT 01787000 BLSRSALI CSECT 01788000 PXDRMK IKJKEYWD 01789000 @DATD DSECT 01790000 BLSRSALI CSECT 01791000 IKJNAME 'REMARK' 01792000 @DATD DSECT 01793000 BLSRSALI CSECT 01794000 IKJNAME 'NOREMARK' 01795000 @DATD DSECT 01796000 BLSRSALI CSECT 01797000 PXDREQ IKJKEYWD 01798000 @DATD DSECT 01799000 BLSRSALI CSECT 01800000 IKJNAME 'REQUEST' 01801000 @DATD DSECT 01802000 BLSRSALI CSECT 01803000 IKJNAME 'NOREQUEST' 01804000 @DATD DSECT 01805000 BLSRSALI CSECT 01806000 PXDSTG IKJKEYWD 01807000 @DATD DSECT 01808000 BLSRSALI CSECT 01809000 IKJNAME 'STORAGE' 01810000 @DATD DSECT 01811000 BLSRSALI CSECT 01812000 IKJNAME 'NOSTORAGE' 01813000 @DATD DSECT 01814000 BLSRSALI CSECT 01815000 PXDSYM IKJKEYWD 01816000 @DATD DSECT 01817000 BLSRSALI CSECT 01818000 IKJNAME 'SYMBOL' 01819000 @DATD DSECT 01820000 BLSRSALI CSECT 01821000 IKJNAME 'NOSYMBOL' 01822000 @DATD DSECT 01823000 BLSRSALI CSECT 01824000 PXDMCH IKJKEYWD 01825000 @DATD DSECT 01826000 BLSRSALI CSECT 01827000 IKJNAME 'MACHINE' 01828000 @DATD DSECT 01829000 BLSRSALI CSECT 01830000 IKJNAME 'NOMACHINE' 01831000 @DATD DSECT 01832000 BLSRSALI CSECT 01833000 SPACE 01834000 PDSUBFAD IKJSUBF 01835000 @DATD DSECT 01836000 BLSRSALI CSECT 01837000 PDAD IKJPOSIT ADDRESS,,RANGE,PROMPT='RANGE',VALIDCK=BLSRVPAD 01838000 @DATD DSECT 01839000 PD DSECT 01840000 PD99 DS 0C 01841000 BLSRSALI CSECT 01842000 IKJENDP 01843000 SPACE 2 01844000 *********************************************************************** 01845000 * IKJENDP--END SYNTAX DESCRIPTION * 01846000 *********************************************************************** 01847000 SPACE 01848000 @DATD DSECT 01849000 *---------------------------------------------------------------------* 01850000 * RESERVE SPACE FOR THE GENCB PARAMETER LIST * 01851000 *---------------------------------------------------------------------* 01852000 GENPARM DS (GENPARML)CL1 GENCB PARAMETER LIST 01853000 @DATD DSECT 01854000 SPACE 2 01855000 *********************************************************************** 01856000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01857000 *********************************************************************** 01858000 SPACE 01859000 DS 0D 01860000 @DATD DSECT 01861000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01862000 @ENDDATD EQU * 01863000 BLSRSALI CSECT 01864000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01865000 @01 EQU 01 01866000 @02 EQU 02 01867000 @03 EQU 03 01868000 @04 EQU 04 01869000 @05 EQU 05 01870000 @06 EQU 06 01871000 @07 EQU 07 01872000 @08 EQU 08 01873000 @09 EQU 09 01874000 @10 EQU 10 01875000 @11 EQU 11 01876000 @12 EQU 12 01877000 @13 EQU 13 01878000 @14 EQU 14 01879000 @15 EQU 15 01880000 DLEN EQU @02 01881000 DRDX EQU @03 01882000 P9 EQU @04 01883000 P1 EQU @02 01884000 RETC EQU @07 01885000 R9 EQU @09 01886000 R0 EQU @00 01887000 R1 EQU @01 01888000 R2 EQU @02 01889000 R3 EQU @03 01890000 R4 EQU @04 01891000 R5 EQU @05 01892000 RB EQU @11 01893000 RD EQU @13 01894000 RE EQU @14 01895000 RF EQU @15 01896000 PDRPTR EQU @08 01897000 GPR15F EQU @15 01898000 GPR01F EQU @01 01899000 GPR00F EQU @00 01900000 RA EQU @10 01901000 RC EQU @12 01902000 R6 EQU @06 01903000 R7 EQU @07 01904000 R8 EQU @08 01905000 ZZ1 EQU 0 01906000 ZZ1ACBP EQU ZZ1+28 01907000 ZZ1ATTN EQU ZZ1+360 01908000 ZZ1EVE EQU ZZ1ATTN+4 01909000 ZZ1EVEP EQU ZZ1EVE 01910000 ZZ1F EQU ZZ1+368 01911000 ZZ1N EQU ZZ1+1116 01912000 ZZ2 EQU 0 01913000 ZZ2AMD EQU ZZ2 01914000 @NM00013 EQU ZZ2AMD+7 01915000 ZZ2PRT EQU ZZ2+138 01916000 ZZ2PRTT EQU ZZ2PRT+4 01917000 ZZ2PRTT1 EQU ZZ2PRTT+1 01918000 ZZ2A EQU ZZ2+272 01919000 ZZ2ASE EQU ZZ2A+2 01920000 ZZ2AF EQU ZZ2A+16 01921000 ZZ2AFV EQU ZZ2AF+1 01922000 ZZ2AFM EQU ZZ2AF+2 01923000 ZZ2AFD EQU ZZ2AF+2 01924000 ZZ2AFX EQU ZZ2AF+5 01925000 ZZ2APID EQU ZZ2A+64 01926000 ZZ2AD EQU ZZ2A+74 01927000 ZZ2ADD EQU ZZ2AD 01928000 ZZ2ADDT EQU ZZ2ADD+2 01929000 ZZ2ADM EQU ZZ2AD+46 01930000 ZZ2ADMT EQU ZZ2ADM+2 01931000 ZZ2ADP EQU ZZ2AD+56 01932000 ZZ2ADPT EQU ZZ2ADP+2 01933000 ZZ2AZZ6P EQU ZZ2A+140 01934000 ZZ2AQAS EQU ZZ2A+144 01935000 ZZ2AQD EQU ZZ2A+160 01936000 ZZ2AQDLE EQU ZZ2AQD+4 01937000 ZZ2AQDT EQU ZZ2AQD+10 01938000 ZZ2AQDF EQU ZZ2AQD+52 01939000 ZZ2STG EQU ZZ2+960 01940000 ZZ2ALLOP EQU ZZ2+992 01941000 ZZ2FREEP EQU ZZ2+996 01942000 ZZ2FF19P EQU ZZ2+1000 01943000 ZZ2FRE1P EQU ZZ2+1004 01944000 ZZ2FF18P EQU ZZ2+1008 01945000 ZZ2DYNAP EQU ZZ2+1012 01946000 ZZ2ZZ2CP EQU ZZ2+1016 01947000 ZZ2ZZ2DP EQU ZZ2+1020 01948000 ZZ2STAIP EQU ZZ2+1024 01949000 ZZ2FF02P EQU ZZ2+1028 01950000 ZZ2GETLP EQU ZZ2+1032 01951000 ZZ2PARSP EQU ZZ2+1036 01952000 ZZ2PTGTP EQU ZZ2+1040 01953000 ZZ2PUTLP EQU ZZ2+1044 01954000 ZZ2SCANP EQU ZZ2+1048 01955000 ZZ2STCKP EQU ZZ2+1052 01956000 ZZ2TRMOP EQU ZZ2+1064 01957000 ZZ2TRMVP EQU ZZ2+1068 01958000 ZZ2PUTNP EQU ZZ2+1084 01959000 ZZ2TRMNP EQU ZZ2+1088 01960000 ZZ2ZZ1P EQU ZZ2+1264 01961000 ZZ2BVTP EQU ZZ2+1280 01962000 ZZ2RVTP EQU ZZ2+1284 01963000 ZZ2CPPL EQU ZZ2+1292 01964000 ZZ2CPPLC EQU ZZ2CPPL 01965000 ZZ2PGM EQU ZZ2+1536 01966000 ZZ2ITR EQU ZZ2+2840 01967000 ZZ2ITRE EQU ZZ2ITR+16 01968000 ZZ2ITSE EQU ZZ2+2864 01969000 ZZ2ES EQU ZZ2+2872 01970000 ZZ2AMDX EQU ZZ2+7160 01971000 ZZ2AXO EQU ZZ2+7934 01972000 ZZ2AXOT EQU ZZ2AXO+2 01973000 CMD EQU 0 01974000 CMDT EQU CMD+4 01975000 PSCB EQU 0 01976000 PSCBATR1 EQU PSCB+16 01977000 ECT EQU 0 01978000 ECTSWS EQU ECT+28 01979000 ECTSWS2 EQU ECT+40 01980000 ECTSWS21 EQU ECTSWS2 01981000 UPT EQU 0 01982000 UPTSWS EQU UPT+12 01983000 SA EQU 0 01984000 SA1 EQU SA 01985000 SAR EQU SA+12 01986000 SAR1 EQU SAR+12 01987000 BLSUMPK1 EQU 0 01988000 BLSUPARI EQU 0 01989000 BLSUPARU EQU 0 01990000 BLSUPGMC EQU 0 01991000 BLSUPUTV EQU 0 01992000 BLSUVSCR EQU 0 01993000 BLSUVSEN EQU 0 01994000 BLSUVSGU EQU 0 01995000 BLSUVSPO EQU 0 01996000 BVT EQU 0 01997000 BVTPUTLP EQU BVT+4 01998000 BVTPUTOP EQU BVT+12 01999000 BVTPUTTP EQU BVT+16 02000000 BVTPUTVP EQU BVT+20 02001000 BVTPUTAP EQU BVT+24 02002000 BVTPRTTP EQU BVT+28 02003000 BVTPRTAP EQU BVT+32 02004000 BVTPUTDP EQU BVT+36 02005000 BVTMONP EQU BVT+40 02006000 BVTMON2P EQU BVT+44 02007000 BVTVSARP EQU BVT+48 02008000 BVTVSENP EQU BVT+64 02009000 BVTVSERP EQU BVT+68 02010000 BVTVSGEP EQU BVT+72 02011000 BVTVSGUP EQU BVT+76 02012000 BVTVSPOP EQU BVT+80 02013000 BVTVSPUP EQU BVT+84 02014000 BVTMPKNP EQU BVT+104 02015000 BVTMONLP EQU BVT+108 02016000 BVTPUTCP EQU BVT+132 02017000 BVTMPK1P EQU BVT+136 02018000 BVTZZ2RP EQU BVT+140 02019000 BVTPGMRP EQU BVT+144 02020000 BVTMONAP EQU BVT+148 02021000 BVTBLDDP EQU BVT+152 02022000 BVTBLDLP EQU BVT+156 02023000 BVTPGMCP EQU BVT+160 02024000 BVTPGMDP EQU BVT+164 02025000 BVTPGMLP EQU BVT+168 02026000 BVTMONCP EQU BVT+180 02027000 BVTMONDP EQU BVT+184 02028000 BVTMONTP EQU BVT+188 02029000 BVTPARIP EQU BVT+192 02030000 BVTPARUP EQU BVT+196 02031000 BVTPRTNP EQU BVT+204 02032000 BVTVSCRP EQU BVT+208 02033000 BVTVSMRP EQU BVT+212 02034000 BVTMONXP EQU BVT+216 02035000 BVTTRMAP EQU BVT+228 02036000 ZZ6 EQU 0 02037000 ZZ6D EQU ZZ6+128 02038000 ZZ6DD EQU ZZ6D+8 02039000 ZZ6DDT EQU ZZ6DD+4 02040000 ZZ6DRDX EQU ZZ6D+64 02041000 ZZ6DQA EQU ZZ6D+68 02042000 ZZ6DF EQU ZZ6D+92 02043000 ZZ6DPRP EQU ZZ6D+108 02044000 ZZ6DCAP EQU ZZ6D+112 02045000 ZZ6B EQU ZZ6+768 02046000 BLST01 EQU 0 02047000 BLSRADDR EQU 0 02048000 BLSRADD2 EQU 0 02049000 BLSRPADS EQU 0 02050000 RVT EQU 0 02051000 RVTADDRP EQU RVT 02052000 RVTT01P EQU RVT+4 02053000 RVTTAP EQU RVT+8 02054000 RVTTBP EQU RVT+12 02055000 RVTTCP EQU RVT+16 02056000 RVTTFP EQU RVT+24 02057000 RVTTYP EQU RVT+40 02058000 RVTT02P EQU RVT+48 02059000 RVTT03P EQU RVT+52 02060000 RVTT04P EQU RVT+56 02061000 RVTACCLP EQU RVT+60 02062000 RVTRACCP EQU RVT+64 02063000 RVTTLP EQU RVT+68 02064000 RVTTMP EQU RVT+72 02065000 RVTTUP EQU RVT+80 02066000 RVTESGEP EQU RVT+84 02067000 RVTESGUP EQU RVT+88 02068000 RVTESARP EQU RVT+92 02069000 RVTRAARP EQU RVT+96 02070000 RVTRAGEP EQU RVT+100 02071000 RVTADDPP EQU RVT+104 02072000 RVTACCQP EQU RVT+108 02073000 RVTSAGUP EQU RVT+124 02074000 RVTSAGEP EQU RVT+128 02075000 RVTESCKP EQU RVT+132 02076000 RVTMSGAP EQU RVT+136 02077000 RVTMSGDP EQU RVT+140 02078000 RVTADDTP EQU RVT+160 02079000 RVTADDUP EQU RVT+164 02080000 RVTADD1P EQU RVT+176 02081000 RVTADD2P EQU RVT+180 02082000 RVTRSAGP EQU RVT+184 02083000 RVTMSGBP EQU RVT+188 02084000 RVTADDSP EQU RVT+192 02085000 RVTADD3P EQU RVT+196 02086000 RVTT05P EQU RVT+200 02087000 RVTPADSP EQU RVT+204 02088000 RVTTRP EQU RVT+228 02089000 RVTADD4P EQU RVT+232 02090000 RVTSAPCP EQU RVT+236 02091000 RVTSAARP EQU RVT+240 02092000 RVTSAGNP EQU RVT+244 02093000 RVTT06P EQU RVT+248 02094000 RVTSAGCP EQU RVT+252 02095000 RVTSAGQP EQU RVT+256 02096000 RVTESGCP EQU RVT+260 02097000 RVTESGQP EQU RVT+264 02098000 RVTDUCKP EQU RVT+276 02099000 RVTDUCCP EQU RVT+280 02100000 PCCSECT EQU 0 02101000 PDDSECT EQU 0 02102000 PDXP EQU PDDSECT+1 02103000 PDL EQU PDDSECT+5 02104000 IFGRPL EQU 0 02105000 RPLCOMN EQU IFGRPL 02106000 RPLIDWD EQU RPLCOMN 02107000 RPLLEN EQU RPLIDWD+3 02108000 RPLECB EQU RPLCOMN+8 02109000 RPLFDBWD EQU RPLCOMN+12 02110000 RPLFDBK EQU RPLFDBWD+1 02111000 RPLRTNCD EQU RPLFDBK 02112000 RPLCNDCD EQU RPLFDBK+1 02113000 RPLCMPON EQU RPLCNDCD 02114000 RPLFDB2 EQU RPLCMPON 02115000 RPLERRCD EQU RPLCNDCD+1 02116000 RPLFDB3 EQU RPLERRCD 02117000 RPLKEYLE EQU RPLCOMN+16 02118000 RPLARG EQU RPLCOMN+36 02119000 RPLOPTCD EQU RPLCOMN+40 02120000 RPLOPT1 EQU RPLOPTCD 02121000 RPLECBSW EQU RPLOPT1 02122000 RPLOPT2 EQU RPLOPTCD+1 02123000 RPLADR EQU RPLOPT2 02124000 RPLOPT3 EQU RPLOPTCD+2 02125000 RPLNXTRP EQU RPLCOMN+44 02126000 RPLOPTC2 EQU RPLCOMN+56 02127000 RPLOPT5 EQU RPLOPTC2 02128000 RPLWRTYP EQU RPLOPT5 02129000 RPLOPT6 EQU RPLOPTC2+1 02130000 RPLUNTYP EQU RPLOPT6 02131000 RPLOPT7 EQU RPLOPTC2+2 02132000 RPLCNOPT EQU RPLOPT7 02133000 RPLOPT8 EQU RPLOPTC2+3 02134000 RPLRBAR EQU RPLCOMN+60 02135000 RPLAIXID EQU RPLRBAR+2 02136000 RPLEXTDS EQU RPLCOMN+68 02137000 RPLEXTD1 EQU RPLEXTDS 02138000 PDADAE EQU 0 02139000 PDADAEAP EQU PDADAE 02140000 PDADAEF EQU PDADAE+8 02141000 BLSRACC EQU 0 02142000 BLSRACCL EQU 0 02143000 BLSRACCQ EQU 0 02144000 BLSRADDP EQU 0 02145000 BLSRADDS EQU 0 02146000 BLSRADDT EQU 0 02147000 BLSRADDU EQU 0 02148000 BLSRADD1 EQU 0 02149000 BLSRADD3 EQU 0 02150000 BLSRADD4 EQU 0 02151000 BLSRDUCC EQU 0 02152000 BLSRDUCK EQU 0 02153000 BLSRESAR EQU 0 02154000 BLSRESCK EQU 0 02155000 BLSRESGC EQU 0 02156000 BLSRESGE EQU 0 02157000 BLSRESGQ EQU 0 02158000 BLSRESGU EQU 0 02159000 BLSRMSGA EQU 0 02160000 BLSRMSGB EQU 0 02161000 BLSRMSGD EQU 0 02162000 BLSRRAAR EQU 0 02163000 BLSRRAGE EQU 0 02164000 BLSRSAAR EQU 0 02165000 BLSRSAG EQU 0 02166000 BLSRSAGC EQU 0 02167000 BLSRSAGE EQU 0 02168000 BLSRSAGN EQU 0 02169000 BLSRSAGQ EQU 0 02170000 BLSRSAGU EQU 0 02171000 BLSRSAPC EQU 0 02172000 BLSTA EQU 0 02173000 BLSTB EQU 0 02174000 BLSTC EQU 0 02175000 BLSTF EQU 0 02176000 BLSTL EQU 0 02177000 BLSTM EQU 0 02178000 BLSTR EQU 0 02179000 BLSTU EQU 0 02180000 BLSTY EQU 0 02181000 BLST02 EQU 0 02182000 BLST03 EQU 0 02183000 BLST04 EQU 0 02184000 BLST05 EQU 0 02185000 BLST06 EQU 0 02186000 BLSUALLO EQU 0 02187000 BLSUBLDD EQU 0 02188000 BLSUBLDL EQU 0 02189000 BLSUDYNA EQU 0 02190000 BLSUFREE EQU 0 02191000 BLSUFRE1 EQU 0 02192000 BLSUMON EQU 0 02193000 BLSUMONA EQU 0 02194000 BLSUMONC EQU 0 02195000 BLSUMOND EQU 0 02196000 BLSUMONL EQU 0 02197000 BLSUMONT EQU 0 02198000 BLSUMONX EQU 0 02199000 BLSUMON2 EQU 0 02200000 BLSUMPKN EQU 0 02201000 BLSUPGMD EQU 0 02202000 BLSUPGML EQU 0 02203000 BLSUPGMR EQU 0 02204000 BLSUPRTA EQU 0 02205000 BLSUPRTN EQU 0 02206000 BLSUPRTT EQU 0 02207000 BLSUPUTA EQU 0 02208000 BLSUPUTC EQU 0 02209000 BLSUPUTD EQU 0 02210000 BLSUPUTL EQU 0 02211000 BLSUPUTN EQU 0 02212000 BLSUPUTO EQU 0 02213000 BLSUPUTT EQU 0 02214000 BLSUSTAI EQU 0 02215000 BLSUTRMA EQU 0 02216000 BLSUTRMN EQU 0 02217000 BLSUTRMO EQU 0 02218000 BLSUTRMV EQU 0 02219000 BLSUVSAR EQU 0 02220000 BLSUVSER EQU 0 02221000 BLSUVSGE EQU 0 02222000 BLSUVSMR EQU 0 02223000 BLSUVSPU EQU 0 02224000 BLSUZZ2C EQU 0 02225000 BLSUZZ2D EQU 0 02226000 BLSUZZ2R EQU 0 02227000 IKJEFF02 EQU 0 02228000 IKJEFF18 EQU 0 02229000 IKJEFF19 EQU 0 02230000 IKJGETL EQU 0 02231000 IKJPARS EQU 0 02232000 IKJPTGT EQU 0 02233000 IKJPUTL EQU 0 02234000 IKJSCAN EQU 0 02235000 IKJSTCK EQU 0 02236000 I001C EQU 0 02237000 I008P EQU 0 02238000 I015F EQU 0 02239000 I015P EQU 0 02240000 I031F EQU 0 02241000 I031P EQU 0 02242000 I256C EQU 0 02243000 PDADAEA EQU 0 02244000 PDADA1 EQU 0 02245000 PDADA2 EQU 0 02246000 PDADE1 EQU 0 02247000 PDADE2 EQU 0 02248000 PDADM1 EQU 0 02249000 PDADM2 EQU 0 02250000 PXASII EQU 0 02251000 PXCPUI EQU 0 02252000 PXDIMI EQU 0 02253000 PXDTDI EQU 0 02254000 PXLENI EQU 0 02255000 PXNTRI1 EQU 0 02256000 PXNTRI2 EQU 0 02257000 PXREMQ EQU 0 02258000 PXCPUIP EQU PXCPU 02259000 PXCPUIF EQU PXCPU+6 02260000 PXASIIP EQU PXASI 02261000 PXASIIF EQU PXASI+6 02262000 PXDTDIP EQU PXDTD 02263000 PXDTDIF EQU PXDTD+6 02264000 PXLENIP EQU PXLEN 02265000 PXLENIF EQU PXLEN+6 02266000 PXDIMIP EQU PXDIM 02267000 PXDIMIF EQU PXDIM+6 02268000 PXREMQP EQU PXREM 02269000 PXREMQF EQU PXREM+6 02270000 @NM00104 EQU PXNTR 02271000 PXNTRIP EQU @NM00104 02272000 PXNTRIF EQU @NM00104+6 02273000 @NM00113 EQU PDAD 02274000 PDADMP EQU @NM00113 02275000 PDADMF EQU @NM00113+6 02276000 PDADEP EQU @NM00113+8 02277000 PDADEF EQU @NM00113+14 02278000 PDADAP EQU @NM00113+16 02279000 PDADAF EQU @NM00113+22 02280000 PDADAT EQU @NM00113+24 02281000 PDADAEP EQU @NM00113+28 02282000 CPPL EQU ZZ2CPPL 02283000 CPPLUPT EQU CPPL+4 02284000 CPPLPSCB EQU CPPL+8 02285000 CPPLECT EQU CPPL+12 02286000 J1 EQU SAAU+65 02287000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02288000 CPPLCBUF EQU CPPL 02289000 @NM00118 EQU PDAD+72 02290000 PDADAV EQU @NM00113+32 02291000 PDADAI EQU @NM00113+26 02292000 PDADAS EQU @NM00113+25 02293000 @NM00117 EQU PDADAT 02294000 PDADATQ EQU PDADAT 02295000 PDADATE EQU PDADAT 02296000 PDADATD EQU PDADAT 02297000 PDADATG EQU PDADAT 02298000 PDADATR EQU PDADAT 02299000 PDADATS EQU PDADAT 02300000 @NM00116 EQU @NM00113+23 02301000 PDADAF8 EQU PDADAF 02302000 PDADAF7 EQU PDADAF 02303000 PDADAF6 EQU PDADAF 02304000 PDADAF5 EQU PDADAF 02305000 PDADAF4 EQU PDADAF 02306000 PDADAF3 EQU PDADAF 02307000 PDADAF2 EQU PDADAF 02308000 PDADAFP EQU PDADAF 02309000 PDADAL EQU @NM00113+20 02310000 @NM00115 EQU @NM00113+15 02311000 PDADEF8 EQU PDADEF 02312000 PDADEF7 EQU PDADEF 02313000 PDADEF6 EQU PDADEF 02314000 PDADEF5 EQU PDADEF 02315000 PDADEF4 EQU PDADEF 02316000 PDADEF3 EQU PDADEF 02317000 PDADEF2 EQU PDADEF 02318000 PDADEFP EQU PDADEF 02319000 PDADEL EQU @NM00113+12 02320000 @NM00114 EQU @NM00113+7 02321000 PDADMF8 EQU PDADMF 02322000 PDADMF7 EQU PDADMF 02323000 PDADMF6 EQU PDADMF 02324000 PDADMF5 EQU PDADMF 02325000 PDADMF4 EQU PDADMF 02326000 PDADMF3 EQU PDADMF 02327000 PDADMF2 EQU PDADMF 02328000 PDADMFP EQU PDADMF 02329000 PDADML EQU @NM00113+4 02330000 @NM00106 EQU PXNTR+16 02331000 @NM00105 EQU @NM00104+7 02332000 PXNTRIF8 EQU PXNTRIF 02333000 PXNTRIF7 EQU PXNTRIF 02334000 PXNTRIF6 EQU PXNTRIF 02335000 PXNTRIF5 EQU PXNTRIF 02336000 PXNTRIF4 EQU PXNTRIF 02337000 PXNTRIF3 EQU PXNTRIF 02338000 PXNTRIF2 EQU PXNTRIF 02339000 PXNTRIFP EQU PXNTRIF 02340000 PXNTRIL EQU @NM00104+4 02341000 @NM00108 EQU PXREM+8 02342000 @NM00107 EQU PXREM+7 02343000 PXREMQF8 EQU PXREMQF 02344000 PXREMQF7 EQU PXREMQF 02345000 PXREMQF6 EQU PXREMQF 02346000 PXREMQF5 EQU PXREMQF 02347000 PXREMQF4 EQU PXREMQF 02348000 PXREMQF3 EQU PXREMQF 02349000 PXREMQF2 EQU PXREMQF 02350000 PXREMQFP EQU PXREMQF 02351000 PXREMQL EQU PXREM+4 02352000 @NM00103 EQU PXDIM+8 02353000 @NM00102 EQU PXDIM+7 02354000 PXDIMIF8 EQU PXDIMIF 02355000 PXDIMIF7 EQU PXDIMIF 02356000 PXDIMIF6 EQU PXDIMIF 02357000 PXDIMIF5 EQU PXDIMIF 02358000 PXDIMIF4 EQU PXDIMIF 02359000 PXDIMIF3 EQU PXDIMIF 02360000 PXDIMIF2 EQU PXDIMIF 02361000 PXDIMIFP EQU PXDIMIF 02362000 PXDIMIL EQU PXDIM+4 02363000 @NM00101 EQU PXLEN+8 02364000 @NM00100 EQU PXLEN+7 02365000 PXLENIF8 EQU PXLENIF 02366000 PXLENIF7 EQU PXLENIF 02367000 PXLENIF6 EQU PXLENIF 02368000 PXLENIF5 EQU PXLENIF 02369000 PXLENIF4 EQU PXLENIF 02370000 PXLENIF3 EQU PXLENIF 02371000 PXLENIF2 EQU PXLENIF 02372000 PXLENIFP EQU PXLENIF 02373000 PXLENIL EQU PXLEN+4 02374000 @NM00099 EQU PXDTD+8 02375000 @NM00098 EQU PXDTD+7 02376000 PXDTDIF8 EQU PXDTDIF 02377000 PXDTDIF7 EQU PXDTDIF 02378000 PXDTDIF6 EQU PXDTDIF 02379000 PXDTDIF5 EQU PXDTDIF 02380000 PXDTDIF4 EQU PXDTDIF 02381000 PXDTDIF3 EQU PXDTDIF 02382000 PXDTDIF2 EQU PXDTDIF 02383000 PXDTDIFP EQU PXDTDIF 02384000 PXDTDIL EQU PXDTD+4 02385000 @NM00112 EQU PXASI+8 02386000 @NM00111 EQU PXASI+7 02387000 PXASIIF8 EQU PXASIIF 02388000 PXASIIF7 EQU PXASIIF 02389000 PXASIIF6 EQU PXASIIF 02390000 PXASIIF5 EQU PXASIIF 02391000 PXASIIF4 EQU PXASIIF 02392000 PXASIIF3 EQU PXASIIF 02393000 PXASIIF2 EQU PXASIIF 02394000 PXASIIFP EQU PXASIIF 02395000 PXASIIL EQU PXASI+4 02396000 @NM00110 EQU PXCPU+8 02397000 @NM00109 EQU PXCPU+7 02398000 PXCPUIF8 EQU PXCPUIF 02399000 PXCPUIF7 EQU PXCPUIF 02400000 PXCPUIF6 EQU PXCPUIF 02401000 PXCPUIF5 EQU PXCPUIF 02402000 PXCPUIF4 EQU PXCPUIF 02403000 PXCPUIF3 EQU PXCPUIF 02404000 PXCPUIF2 EQU PXCPUIF 02405000 PXCPUIFP EQU PXCPUIF 02406000 PXCPUIL EQU PXCPU+4 02407000 PDADAEXP EQU PDADAE+12 02408000 PDADAEI EQU PDADAE+10 02409000 PDADAES EQU PDADAE+9 02410000 @NM00121 EQU PDADAEF 02411000 PDADAEFX EQU PDADAEF 02412000 PDADAEFD EQU PDADAEF 02413000 @NM00120 EQU PDADAEF 02414000 @NM00119 EQU PDADAE+6 02415000 PDADAEAL EQU PDADAE+4 02416000 RPLERMSA EQU RPLCOMN+72 02417000 RPLEMLEN EQU RPLCOMN+70 02418000 RPLACTIV EQU RPLCOMN+69 02419000 RPLBRANC EQU RPLEXTD1 02420000 RPLNIB EQU RPLEXTD1 02421000 @NM00081 EQU RPLEXTD1 02422000 RPLEXIT EQU RPLEXTD1 02423000 RPLNEXIT EQU RPLEXTD1 02424000 RPLEXSCH EQU RPLEXTD1 02425000 RPLDDDD EQU RPLRBAR+4 02426000 @NM00080 EQU RPLRBAR+3 02427000 @NM00079 EQU RPLAIXID 02428000 RPLAXPKP EQU RPLAIXID 02429000 RPLAIXPC EQU RPLRBAR 02430000 RPLRSV88 EQU RPLOPT8 02431000 RPLUNCON EQU RPLOPT8 02432000 RPLACTV EQU RPLOPT8 02433000 RPLSESS EQU RPLOPT8 02434000 RPLPEND EQU RPLOPT8 02435000 RPLODPRM EQU RPLOPT8 02436000 RPLODACP EQU RPLOPT8 02437000 RPLODACQ EQU RPLOPT8 02438000 RPLRSV78 EQU RPLOPT7 02439000 RPLRSV77 EQU RPLOPT7 02440000 RPLRLSOP EQU RPLOPT7 02441000 RPLTPOST EQU RPLOPT7 02442000 RPLQOPT EQU RPLOPT7 02443000 RPLCNIMM EQU RPLCNOPT 02444000 RPLCNANY EQU RPLCNOPT 02445000 RPLCNALL EQU RPLCNOPT 02446000 RPLRSV68 EQU RPLOPT6 02447000 RPLRSV67 EQU RPLOPT6 02448000 RPLLOCK EQU RPLOPT6 02449000 RPLNCOND EQU RPLOPT6 02450000 RPLCOND EQU RPLOPT6 02451000 RPLEOT EQU RPLUNTYP 02452000 RPLEOM EQU RPLUNTYP 02453000 RPLEOB EQU RPLUNTYP 02454000 RPLWROPT EQU RPLOPT5 02455000 RPLNODE EQU RPLOPT5 02456000 RPLERACE EQU RPLWRTYP 02457000 RPLEAU EQU RPLWRTYP 02458000 RPLNERAS EQU RPLWRTYP 02459000 RPLPSOPT EQU RPLOPT5 02460000 RPLSSNIN EQU RPLOPT5 02461000 RPLDLGIN EQU RPLOPT5 02462000 RPLBUFL EQU RPLCOMN+52 02463000 RPLRLEN EQU RPLCOMN+48 02464000 RPLCHAIN EQU RPLNXTRP 02465000 RPLOPT4 EQU RPLOPTCD+3 02466000 RPLALIGN EQU RPLOPT3 02467000 RPLFMT EQU RPLOPT3 02468000 RPLFLD EQU RPLOPT3 02469000 RPLVFY EQU RPLOPT3 02470000 RPLBLK EQU RPLOPT3 02471000 RPLSFORM EQU RPLOPT3 02472000 RPLEODS EQU RPLOPT3 02473000 RPLNSP EQU RPLOPT2 02474000 RPLUPD EQU RPLOPT2 02475000 @NM00078 EQU RPLOPT2 02476000 RPLLRD EQU RPLOPT2 02477000 RPLBWD EQU RPLOPT2 02478000 RPLCNV EQU RPLOPT2 02479000 RPLADD EQU RPLADR 02480000 RPLKEY EQU RPLOPT2 02481000 RPLECBIN EQU RPLECBSW 02482000 RPLGEN EQU RPLOPT1 02483000 RPLKGE EQU RPLOPT1 02484000 RPLASY EQU RPLOPT1 02485000 RPLSKP EQU RPLOPT1 02486000 RPLSEQ EQU RPLOPT1 02487000 RPLDIR EQU RPLOPT1 02488000 RPLLOC EQU RPLOPT1 02489000 RPLDAF EQU RPLARG+2 02490000 RPLSAF EQU RPLARG 02491000 RPLAREA EQU RPLCOMN+32 02492000 RPLTCBPT EQU RPLCOMN+28 02493000 RPLDACB EQU RPLCOMN+24 02494000 RPLCCHAR EQU RPLCOMN+20 02495000 RPLSTRID EQU RPLCOMN+18 02496000 RPLKEYL EQU RPLKEYLE 02497000 RPLRDSOH EQU RPLFDB3 02498000 RPLRLG EQU RPLFDB3 02499000 RPLLGFRC EQU RPLFDB3 02500000 RPLREOT EQU RPLFDB3 02501000 RPLREOM EQU RPLFDB3 02502000 RPLREOB EQU RPLFDB3 02503000 RPLSV32 EQU RPLFDB3 02504000 RPLUINPT EQU RPLFDB3 02505000 RPLSTSAV EQU RPLFDB2 02506000 RPLCUERR EQU RPLFDB2 02507000 RPLDLGFL EQU RPLFDB2 02508000 RPLIOERR EQU RPLFDB2 02509000 RPLDVUNS EQU RPLFDB2 02510000 RPLATND EQU RPLFDB2 02511000 RPLRVID EQU RPLFDB2 02512000 RPLERLK EQU RPLFDB2 02513000 RPLERREG EQU RPLRTNCD 02514000 RPLSTAT EQU RPLFDBWD 02515000 RPLPOST EQU RPLECB 02516000 RPLWAIT EQU RPLECB 02517000 RPLPLHPT EQU RPLCOMN+4 02518000 RPLLEN2 EQU RPLLEN 02519000 RPLREQ EQU RPLIDWD+2 02520000 RPLSTYP EQU RPLIDWD+1 02521000 RPLID EQU RPLIDWD 02522000 PDSP EQU PDDSECT+4 02523000 @NM00077 EQU PDDSECT 02524000 RVT99999 EQU RVT+384 02525000 RVT0096P EQU RVT+380 02526000 RVT0095P EQU RVT+376 02527000 RVT0094P EQU RVT+372 02528000 RVT0093P EQU RVT+368 02529000 RVT0092P EQU RVT+364 02530000 RVT0091P EQU RVT+360 02531000 RVT0090P EQU RVT+356 02532000 RVT0089P EQU RVT+352 02533000 RVT0088P EQU RVT+348 02534000 RVT0087P EQU RVT+344 02535000 RVT0086P EQU RVT+340 02536000 RVT0085P EQU RVT+336 02537000 RVT0084P EQU RVT+332 02538000 RVT0083P EQU RVT+328 02539000 RVT0082P EQU RVT+324 02540000 RVT0081P EQU RVT+320 02541000 RVT0080P EQU RVT+316 02542000 RVT0079P EQU RVT+312 02543000 RVT0078P EQU RVT+308 02544000 RVT0077P EQU RVT+304 02545000 RVT0076P EQU RVT+300 02546000 RVT0075P EQU RVT+296 02547000 RVT0074P EQU RVT+292 02548000 RVT0073P EQU RVT+288 02549000 RVT0072P EQU RVT+284 02550000 RVTDTUTP EQU RVT+272 02551000 RVTDTMTP EQU RVT+268 02552000 RVT0057P EQU RVT+224 02553000 RVT0056P EQU RVT+220 02554000 RVT0055P EQU RVT+216 02555000 RVT0054P EQU RVT+212 02556000 RVT0053P EQU RVT+208 02557000 RVT0044P EQU RVT+172 02558000 RVT0043P EQU RVT+168 02559000 RVT0040P EQU RVT+156 02560000 RVT0039P EQU RVT+152 02561000 RVT0038P EQU RVT+148 02562000 RVT0037P EQU RVT+144 02563000 RVT0031P EQU RVT+120 02564000 RVT0030P EQU RVT+116 02565000 RVT0029P EQU RVT+112 02566000 RVT0020P EQU RVT+76 02567000 RVT0012P EQU RVT+44 02568000 RVT0010P EQU RVT+36 02569000 RVT0009P EQU RVT+32 02570000 RVT0008P EQU RVT+28 02571000 RVT0006P EQU RVT+20 02572000 ZZ69999 EQU ZZ6+1792 02573000 ZZ6BRB EQU ZZ6B+12 02574000 ZZ6BRC EQU ZZ6B+8 02575000 @NM00076 EQU ZZ6B+6 02576000 ZZ6BFL EQU ZZ6B+4 02577000 ZZ6BDA EQU ZZ6B 02578000 @NM00075 EQU ZZ6+540 02579000 ZZ6BUFI EQU ZZ6+536 02580000 ZZ6BUFP EQU ZZ6+532 02581000 ZZ6FILE EQU ZZ6+524 02582000 ZZ6BUFB EQU ZZ6+520 02583000 ZZ6BUFL EQU ZZ6+518 02584000 ZZ6BUFN EQU ZZ6+516 02585000 ZZ6ZZ6P EQU ZZ6+512 02586000 @NM00074 EQU ZZ6+256 02587000 ZZ6D999 EQU ZZ6D+128 02588000 @NM00073 EQU ZZ6D+116 02589000 ZZ6DDA2 EQU ZZ6D+104 02590000 ZZ6DDA1 EQU ZZ6D+100 02591000 @NM00072 EQU ZZ6DF 02592000 ZZ6DFSU EQU ZZ6DF 02593000 ZZ6DFST EQU ZZ6DF 02594000 ZZ6DFAB EQU ZZ6DF 02595000 ZZ6DFMP EQU ZZ6DF 02596000 ZZ6DFDU EQU ZZ6DF 02597000 ZZ6DFBS EQU ZZ6DF 02598000 ZZ6DQ2 EQU ZZ6D+88 02599000 ZZ6DQ1 EQU ZZ6D+84 02600000 ZZ6DQA9 EQU ZZ6DQA+16 02601000 @NM00071 EQU ZZ6DQA+12 02602000 ZZ6DQA2 EQU ZZ6DQA+8 02603000 ZZ6DQA1 EQU ZZ6DQA+4 02604000 @NM00070 EQU ZZ6DQA+2 02605000 ZZ6DQAT EQU ZZ6DQA 02606000 ZZ6DQA0 EQU ZZ6DQA 02607000 ZZ6DELK EQU ZZ6D+64 02608000 ZZ6DMEM EQU ZZ6D+56 02609000 ZZ6DDT1 EQU ZZ6DDT 02610000 ZZ6DDO EQU ZZ6DD+2 02611000 ZZ6DDL EQU ZZ6DD 02612000 @NM00069 EQU ZZ6D+2 02613000 ZZ6DRID EQU ZZ6D 02614000 ZZ6RDCB EQU ZZ6 02615000 ZZ60000 EQU ZZ6 02616000 BVT99999 EQU BVT+256 02617000 BVT0064P EQU BVT+252 02618000 BVT0063P EQU BVT+248 02619000 BVT0062P EQU BVT+244 02620000 BVT0061P EQU BVT+240 02621000 BVT0060P EQU BVT+236 02622000 BVT0059P EQU BVT+232 02623000 BVT0057P EQU BVT+224 02624000 BVT0056P EQU BVT+220 02625000 BVTSTBLP EQU BVT+200 02626000 BVT0045P EQU BVT+176 02627000 BVT0044P EQU BVT+172 02628000 BVT0033P EQU BVT+128 02629000 BVT0032P EQU BVT+124 02630000 BVT0031P EQU BVT+120 02631000 BVT0030P EQU BVT+116 02632000 BVT0029P EQU BVT+112 02633000 BVT0026P EQU BVT+100 02634000 BVT0025P EQU BVT+96 02635000 BVT0024P EQU BVT+92 02636000 BVT0023P EQU BVT+88 02637000 BVT0016P EQU BVT+60 02638000 BVT0015P EQU BVT+56 02639000 BVT0014P EQU BVT+52 02640000 BVT0003P EQU BVT+8 02641000 BVT0001P EQU BVT 02642000 SA99 EQU SA+72 02643000 SARC EQU SAR+56 02644000 SARB EQU SAR+52 02645000 SARA EQU SAR+48 02646000 SAR9 EQU SAR+44 02647000 SAR8 EQU SAR+40 02648000 SAR7 EQU SAR+36 02649000 SAR6 EQU SAR+32 02650000 SAR5 EQU SAR+28 02651000 SAR4 EQU SAR+24 02652000 SAR3 EQU SAR+20 02653000 SAR2 EQU SAR+16 02654000 SAR0 EQU SAR+8 02655000 SARF EQU SAR+4 02656000 SARE EQU SAR 02657000 SAFWD EQU SA+8 02658000 SABAK EQU SA+4 02659000 SA1L EQU SA1+1 02660000 SA1P EQU SA1 02661000 UPTPREFL EQU UPT+23 02662000 UPTPREFX EQU UPT+16 02663000 @NM00068 EQU UPT+15 02664000 UPTLDEL EQU UPT+14 02665000 UPTCDEL EQU UPT+13 02666000 UPTWTP EQU UPTSWS 02667000 UPTMODE EQU UPTSWS 02668000 UPTALD EQU UPTSWS 02669000 UPTPAUS EQU UPTSWS 02670000 UPTNCOM EQU UPTSWS 02671000 UPTMID EQU UPTSWS 02672000 UPTNPRM EQU UPTSWS 02673000 UPTRCVR EQU UPTSWS 02674000 UPTUSER EQU UPT+2 02675000 @NM00067 EQU UPT 02676000 @NM00066 EQU ECT+52 02677000 @NM00065 EQU ECT+48 02678000 @NM00064 EQU ECT+44 02679000 @NM00063 EQU ECTSWS2+1 02680000 @NM00062 EQU ECTSWS21 02681000 ECTTABND EQU ECTSWS21 02682000 ECTDEFCS EQU ECTSWS21 02683000 ECTBKPB EQU ECT+36 02684000 ECTUSER EQU ECT+32 02685000 ECTDDNUM EQU ECT+29 02686000 ECTATTN EQU ECTSWS 02687000 ECTBKGRD EQU ECTSWS 02688000 ECTNNOT EQU ECTSWS 02689000 ECTNMAL EQU ECTSWS 02690000 ECTLOGF EQU ECTSWS 02691000 ECTATRM EQU ECTSWS 02692000 @NM00061 EQU ECTSWS 02693000 ECTNOPD EQU ECTSWS 02694000 ECTSCMD EQU ECT+20 02695000 ECTPCMD EQU ECT+12 02696000 ECTSMSG EQU ECT+9 02697000 ECTMSGF EQU ECT+8 02698000 ECTIOWA EQU ECT+4 02699000 ECTRTCD EQU ECT+1 02700000 ECTRCDF EQU ECT 02701000 PSCBU EQU PSCB+64 02702000 PSCBRSZ EQU PSCB+60 02703000 PSCBLINE EQU PSCB+59 02704000 PSCBCHAR EQU PSCB+58 02705000 PSCBUPTL EQU PSCB+56 02706000 PSCBUPT EQU PSCB+52 02707000 PSCBRLGB EQU PSCB+48 02708000 PSCBDEST EQU PSCB+40 02709000 @NM00060 EQU PSCB+36 02710000 @NM00059 EQU PSCB+32 02711000 @NM00058 EQU PSCB+28 02712000 PSCBLTI2 EQU PSCB+24 02713000 PSCBLTIM EQU PSCB+20 02714000 PSCBATR2 EQU PSCB+18 02715000 @NM00057 EQU PSCBATR1 02716000 @NM00056 EQU PSCBATR1 02717000 @NM00055 EQU PSCBATR1 02718000 PSCBATTN EQU PSCBATR1 02719000 PSCBVMNT EQU PSCBATR1 02720000 PSCBJCL EQU PSCBATR1 02721000 PSCBACCT EQU PSCBATR1 02722000 PSCBCTRL EQU PSCBATR1 02723000 PSCBGPNM EQU PSCB+8 02724000 PSCBUSRL EQU PSCB+7 02725000 PSCBUSER EQU PSCB 02726000 CMDT1 EQU CMDT 02727000 CMDO EQU CMD+2 02728000 CMDL EQU CMD 02729000 ZZ299999 EQU ZZ2+8192 02730000 ZZ2AXOT1 EQU ZZ2AXOT 02731000 ZZ2AXOL EQU ZZ2AXO 02732000 @NM00054 EQU ZZ2+7288 02733000 @NM00053 EQU ZZ2AMDX+4 02734000 ZZ2AMDXC EQU ZZ2AMDX 02735000 ZZ2HSD EQU ZZ2+3056 02736000 @NM00052 EQU ZZ2ES 02737000 @NM00051 EQU ZZ2+2868 02738000 ZZ2ITSEC EQU ZZ2ITSE+1 02739000 @NM00050 EQU ZZ2ITSE 02740000 ZZ2ITSEP EQU ZZ2ITSE 02741000 ZZ2ITSEW EQU ZZ2ITSE 02742000 @NM00049 EQU ZZ2ITR+20 02743000 ZZ2ITREC EQU ZZ2ITRE+1 02744000 @NM00048 EQU ZZ2ITRE 02745000 ZZ2ITREP EQU ZZ2ITRE 02746000 ZZ2ITREW EQU ZZ2ITRE 02747000 @NM00047 EQU ZZ2ITR+9 02748000 ZZ2ITRRC EQU ZZ2ITR+8 02749000 ZZ2ITR2P EQU ZZ2ITR+4 02750000 ZZ2ITRPP EQU ZZ2ITR 02751000 @NM00046 EQU ZZ2+1544 02752000 @NM00045 EQU ZZ2+1526 02753000 ZZ2CW EQU ZZ2+1524 02754000 @NM00044 EQU ZZ2+1504 02755000 @NM00043 EQU ZZ2+1352 02756000 ZZ2FFSYP EQU ZZ2+1348 02757000 ZZ2SASYP EQU ZZ2+1344 02758000 ZZ2RDSYP EQU ZZ2+1340 02759000 ZZ2RASYP EQU ZZ2+1336 02760000 ZZ2PHSYP EQU ZZ2+1332 02761000 ZZ2ESSYP EQU ZZ2+1328 02762000 ZZ200SYP EQU ZZ2+1324 02763000 ZZ2SCWP EQU ZZ2+1320 02764000 ZZ2TTLP EQU ZZ2+1316 02765000 ZZ2LOADP EQU ZZ2+1312 02766000 ZZ2VRESP EQU ZZ2+1308 02767000 ZZ2CPPLE EQU ZZ2CPPL+12 02768000 ZZ2CPPLP EQU ZZ2CPPL+8 02769000 ZZ2CPPLU EQU ZZ2CPPL+4 02770000 ZZ2VRSAP EQU ZZ2+1288 02771000 ZZ2DVTP EQU ZZ2+1276 02772000 @NM00042 EQU ZZ2+1272 02773000 @NM00041 EQU ZZ2+1268 02774000 ZZ2RPLP EQU ZZ2+1260 02775000 ZZ2TCBP EQU ZZ2+1256 02776000 @NM00040 EQU ZZ2+1252 02777000 ZZ2ZZ2P EQU ZZ2+1248 02778000 @NM00039 EQU ZZ2+1112 02779000 ZZ2FPDRP EQU ZZ2+1108 02780000 ZZ2FDSDP EQU ZZ2+1104 02781000 ZZ2APDRP EQU ZZ2+1100 02782000 ZZ2ADSDP EQU ZZ2+1096 02783000 ZZ2ENQ0P EQU ZZ2+1092 02784000 @NM00038 EQU ZZ2+1080 02785000 ZZ2MSG0P EQU ZZ2+1076 02786000 ZZ2FT25P EQU ZZ2+1072 02787000 ZZ2MSGSP EQU ZZ2+1060 02788000 ZZ2ALOCP EQU ZZ2+1056 02789000 @NM00037 EQU ZZ2+976 02790000 ZZ2TOD EQU ZZ2+968 02791000 ZZ2STGN EQU ZZ2STG+4 02792000 ZZ2STGP EQU ZZ2STG 02793000 @NM00036 EQU ZZ2+952 02794000 ZZ2SCMDE EQU ZZ2+944 02795000 ZZ2SCMDN EQU ZZ2+936 02796000 ZZ2IDENT EQU ZZ2+928 02797000 ZZ2A9999 EQU ZZ2A+656 02798000 @NM00035 EQU ZZ2A+224 02799000 @NM00034 EQU ZZ2A+220 02800000 ZZ2AQD99 EQU ZZ2AQD+60 02801000 @NM00033 EQU ZZ2AQD+56 02802000 @NM00032 EQU ZZ2AQDF 02803000 ZZ2AQDFA EQU ZZ2AQDF 02804000 ZZ2AQDIL EQU ZZ2AQD+48 02805000 ZZ2AQDIM EQU ZZ2AQD+44 02806000 ZZ2AQDT9 EQU ZZ2AQDT+34 02807000 ZZ2AQDTE EQU ZZ2AQDT+33 02808000 ZZ2AQDTD EQU ZZ2AQDT+2 02809000 @NM00031 EQU ZZ2AQDT+1 02810000 ZZ2AQDTY EQU ZZ2AQDT 02811000 ZZ2AQDT0 EQU ZZ2AQDT 02812000 ZZ2AQDLB EQU ZZ2AQD+9 02813000 ZZ2AQDOB EQU ZZ2AQD+8 02814000 ZZ2AQDOF EQU ZZ2AQD 02815000 ZZ2AQD00 EQU ZZ2AQD 02816000 ZZ2AQAS9 EQU ZZ2AQAS+16 02817000 @NM00030 EQU ZZ2AQAS+12 02818000 ZZ2AQAS2 EQU ZZ2AQAS+8 02819000 ZZ2AQAS1 EQU ZZ2AQAS+4 02820000 @NM00029 EQU ZZ2AQAS+2 02821000 ZZ2AQAST EQU ZZ2AQAS 02822000 ZZ2AQAS0 EQU ZZ2AQAS 02823000 ZZ2ADPTA EQU ZZ2ADPT 02824000 ZZ2ADPL EQU ZZ2ADP 02825000 ZZ2ADMTA EQU ZZ2ADMT 02826000 ZZ2ADML EQU ZZ2ADM 02827000 ZZ2ADDTA EQU ZZ2ADDT 02828000 ZZ2ADDL EQU ZZ2ADD 02829000 @NM00028 EQU ZZ2A+72 02830000 ZZ2APIDB EQU ZZ2APID+3 02831000 ZZ2APIDA EQU ZZ2APID 02832000 @NM00027 EQU ZZ2A+24 02833000 @NM00026 EQU ZZ2AF+5 02834000 @NM00025 EQU ZZ2AF+3 02835000 ZZ2AFS EQU ZZ2AF+2 02836000 ZZ2AFQ EQU ZZ2AF+2 02837000 ZZ2AF$ EQU ZZ2AF+2 02838000 @NM00024 EQU ZZ2AF+2 02839000 @NM00023 EQU ZZ2AF+2 02840000 @NM00022 EQU ZZ2AF+1 02841000 @NM00021 EQU ZZ2AF+1 02842000 ZZ2AFC EQU ZZ2AF+1 02843000 @NM00020 EQU ZZ2AF 02844000 ZZ2AFFS EQU ZZ2AF 02845000 ZZ2AFT EQU ZZ2AF 02846000 ZZ2AFP EQU ZZ2AF 02847000 @NM00019 EQU ZZ2A+8 02848000 ZZ2ALINE EQU ZZ2A+4 02849000 @NM00018 EQU ZZ2A+3 02850000 ZZ2ACH EQU ZZ2A 02851000 @NM00017 EQU ZZ2+264 02852000 @NM00016 EQU ZZ2+263 02853000 ZZ2PRTT0 EQU ZZ2PRTT 02854000 ZZ2PRTO EQU ZZ2PRT+2 02855000 ZZ2PRTL EQU ZZ2PRT 02856000 @NM00015 EQU ZZ2AMD+56 02857000 ZZ2AMDXP EQU ZZ2AMD+52 02858000 ZZ2AMDD EQU ZZ2AMD+48 02859000 ZZ2AMDL EQU ZZ2AMD+44 02860000 ZZ2AMDU EQU ZZ2AMD+28 02861000 ZZ2AMDF EQU ZZ2AMD+24 02862000 ZZ2AMDS EQU ZZ2AMD+20 02863000 ZZ2AMDC EQU ZZ2AMD+16 02864000 ZZ2AMDP EQU ZZ2AMD+12 02865000 ZZ2AMDB EQU ZZ2AMD+8 02866000 @NM00014 EQU @NM00013 02867000 ZZ2AMD2 EQU @NM00013 02868000 ZZ2AMD1 EQU @NM00013 02869000 ZZ2AMD0 EQU ZZ2AMD+6 02870000 ZZ2AMDA EQU ZZ2AMD+4 02871000 ZZ2AMDT EQU ZZ2AMD 02872000 ZZ199999 EQU ZZ1+3072 02873000 @NM00012 EQU ZZ1+2160 02874000 ZZ1TRTAS EQU ZZ1+1904 02875000 ZZ1TRUPC EQU ZZ1+1648 02876000 ZZ1TRCTX EQU ZZ1+1392 02877000 ZZ1NASID EQU ZZ1N+274 02878000 ZZ1NSTRL EQU ZZ1N+272 02879000 ZZ1NOFF EQU ZZ1N+268 02880000 ZZ1NBDY EQU ZZ1N+264 02881000 ZZ1NADE EQU ZZ1N+260 02882000 ZZ1NADB EQU ZZ1N+256 02883000 ZZ1NSTR EQU ZZ1N 02884000 @NM00011 EQU ZZ1+1080 02885000 ZZ1TREBC EQU ZZ1+824 02886000 ZZ1TRHEX EQU ZZ1+568 02887000 @NM00010 EQU ZZ1+377 02888000 ZZ1USTAE EQU ZZ1+376 02889000 @NM00009 EQU ZZ1F+1 02890000 @NM00008 EQU ZZ1F 02891000 ZZ1FM EQU ZZ1F 02892000 ZZ1FX EQU ZZ1F 02893000 ZZ1FU EQU ZZ1F 02894000 ZZ1EVEC EQU ZZ1EVE+1 02895000 @NM00007 EQU ZZ1EVE 02896000 ZZ1EVEW EQU ZZ1EVE 02897000 ZZ1ACMP EQU ZZ1ATTN 02898000 @NM00006 EQU ZZ1+144 02899000 ZZ1FPP EQU ZZ1+140 02900000 ZZ1ZZ6P EQU ZZ1+136 02901000 @NM00005 EQU ZZ1+84 02902000 ZZ1PLINE EQU ZZ1+80 02903000 ZZ1PGSZ EQU ZZ1+76 02904000 ZZ1PCNT EQU ZZ1+72 02905000 @NM00004 EQU ZZ1+68 02906000 ZZ1TPAGE EQU ZZ1+64 02907000 ZZ1TLINE EQU ZZ1+60 02908000 @NM00003 EQU ZZ1+52 02909000 ZZ1DMCBP EQU ZZ1+48 02910000 ZZ1DSDP EQU ZZ1+44 02911000 ZZ1PDRP EQU ZZ1+40 02912000 ZZ1ZZ2P EQU ZZ1+36 02913000 ZZ1327WP EQU ZZ1+32 02914000 @NM00002 EQU ZZ1+24 02915000 ZZ1PDCBP EQU ZZ1+20 02916000 ZZ1BLRBL EQU ZZ1+16 02917000 @NM00001 EQU ZZ1+12 02918000 ZZ1PNULL EQU ZZ1+8 02919000 ZZ1NULL EQU ZZ1+4 02920000 ZZ1IDE EQU ZZ1 02921000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02922000 @RT00405 EQU EXITRLSA 02923000 @RT00431 EQU EXITRLSA 02924000 @RT00455 EQU EXITRLSA 02925000 @RC00487 EQU @RC00484 02926000 @RC00485 EQU @RC00484 02927000 @ENDDATA EQU * 02928000 END BLSRSALI,(C'PLS0751',0701,78069) 02929000