TITLE 'IDA019RD--AM/0 DD DUMMY PROCESSING ' 00001000 IDA019RD CSECT , 0001 00002000 @PROLOG STM @14,@12,12(@13) 0001 00003000 BALR @11,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@11 0001 00006000 * RPLERREG='00'X; /* SET BO ERROR CODE */ 00007000 * 0068 00008000 MVI RPLERREG(RRPL),X'00' 0068 00009000 */* IF THE REQUEST IS A GET, INDICATE END-OF DATA. */ 00010000 * 0069 00011000 * IF RWORK0=0 /* ANY GET (SEQUENTIAL OR */ 00012000 * THEN /* DIRECT) CAUSES EOD */ 00013000 LTR RWORK0,RWORK0 0069 00014000 BNZ @RF00069 0069 00015000 * DO; 0070 00016000 * RPLERRCD=RPLEODER; /* SET END-OF-DATA CODE */ 00017000 * 0071 00018000 MVI RPLERRCD(RRPL),X'04' 0071 00019000 * /*************************************************************/ 00020000 * /* */ 00021000 * /* IF THE GET IS ASYNCHRONOUS, GIVE ERROR ON THE CHECK. */ 00022000 * /* */ 00023000 * /*************************************************************/ 00024000 * 0072 00025000 * IF RPLASY=ON /* IF ASYNCHRONOUS GET, */ 00026000 * THEN 0072 00027000 TM RPLASY(RRPL),B'00001000' 0072 00028000 BNO @RF00072 0072 00029000 * RETURN CODE(ZERO); /* RETURN WITHOUT ERROR. */ 00030000 SR @15,@15 0073 00031000 L @14,12(,@13) 0073 00032000 LM @00,@12,20(@13) 0073 00033000 BR @14 0073 00034000 * END; /* END OF GET CODE */ 00035000 @RF00072 DS 0H 0075 00036000 * ELSE /* HERE IF NOT A GET */ 00037000 * 0075 00038000 * /***************************************************************/ 00039000 * /* */ 00040000 * /* IF NOT A CHECK FOLLOWING AN ASYNCHRONOUS GET, EXIT WITHOUT */ 00041000 * /* ANY ERROR INDICATED. */ 00042000 * /* */ 00043000 * /***************************************************************/ 00044000 * 0075 00045000 * IF RWORK0^=2| /* IF NOT A CHECK OR IF NO */ 00046000 * RPLERRCD^=RPLEODER /* GET PRECEDING, NO END */ 00047000 * THEN /* OF DATA IS INDICATED. */ 00048000 B @RC00069 0075 00049000 @RF00069 CL RWORK0,@CF00125 0075 00050000 BNE @RT00075 0075 00051000 CLI RPLERRCD(RRPL),4 0075 00052000 BE @RF00075 0075 00053000 @RT00075 DS 0H 0076 00054000 * DO; 0076 00055000 * RPLERRCD='00'X; /* INDICATE NO ERROR */ 00056000 MVI RPLERRCD(RRPL),X'00' 0077 00057000 * RETURN CODE(ZERO); /* RETURN TO CALLER */ 00058000 SR @15,@15 0078 00059000 L @14,12(,@13) 0078 00060000 LM @00,@12,20(@13) 0078 00061000 BR @14 0078 00062000 * END; /* END OF NORMAL REQUEST */ 00063000 * 0079 00064000 */* IF SYNCHRONOUS GET OR A CHECK AFTER AN ASYNCHRONOUS GET, TAKE 0080 00065000 * THE EODAD EXIT. IF NO EODAD IS PRESENT, TAKE THE LERAD EXIT. */ 00066000 * 0080 00067000 * RFY 0080 00068000 * (R13, 0080 00069000 * R15)RSTD; /* GET SAVEAREA/LINKAGE REGS */ 00070000 @RF00075 DS 0H 0080 00071000 @RC00069 DS 0H 0081 00072000 * IF ACBUEL<=ONE| /* IF THERE ARE NO EXITS */ 00073000 * EXLLEN<10| /* OR EOD NOT HERE */ 00074000 * EXLEODF(2)=OFF /* OR IF INACTIVE */ 00075000 * THEN 0081 00076000 L @14,RPLDACB(,RRPL) 0081 00077000 L @14,ACBUEL(,@14) 0081 00078000 CH @14,@CH00052 0081 00079000 BNH @RT00081 0081 00080000 LH @10,EXLLEN(,@14) 0081 00081000 CH @10,@CH00291 0081 00082000 BL @RT00081 0081 00083000 TM EXLEODF(@14),B'01000000' 0081 00084000 BNZ @RF00081 0081 00085000 @RT00081 DS 0H 0082 00086000 * RPLERREG='08'X; /* THEN SET LOGICAL ERROR */ 00087000 MVI RPLERREG(RRPL),X'08' 0082 00088000 * ELSE 0083 00089000 * RPLERREG='00'X; /* HERE NO LOGICAL ERROR */ 00090000 B @RC00081 0083 00091000 @RF00081 MVI RPLERREG(RRPL),X'00' 0083 00092000 * IF RPLERREG^='00'X /* SEE IF ERROR */ 00093000 * THEN /* IF SO, TEST LERAD */ 00094000 @RC00081 CLI RPLERREG(RRPL),0 0084 00095000 BE @RF00084 0084 00096000 * DO; 0085 00097000 * IF ACBUEL>ONE& /* SEE IF EXIT LIST */ 00098000 * EXLLEN>=20& /* WITH LERAD */ 00099000 * EXLLERF(2)=ON /* */ 00100000 * THEN /* THEN CALL IT */ 00101000 L @14,RPLDACB(,RRPL) 0086 00102000 L @14,ACBUEL(,@14) 0086 00103000 CH @14,@CH00052 0086 00104000 BNH @RF00086 0086 00105000 LH @10,EXLLEN(,@14) 0086 00106000 CH @10,@CH00197 0086 00107000 BL @RF00086 0086 00108000 TM EXLLERF(@14),B'01000000' 0086 00109000 BNO @RF00086 0086 00110000 * DO; 0087 00111000 * RPLPLHPT=R13; /* SAVE REG 13 */ 00112000 ST R13,RPLPLHPT(,RRPL) 0088 00113000 * R15=EXLLERP; /* POINT TO LERAD */ 00114000 L R15,EXLLERP(,@14) 0089 00115000 * IF EXLLERF(3)=ON /* SEE IF LINK */ 00116000 * THEN /* YES, COME HERE */ 00117000 TM EXLLERF(@14),B'00100000' 0090 00118000 BNO @RF00090 0090 00119000 * DO; 0091 00120000 * GEN(LOAD EPLOC=(R15));/* LOAD LERAD ROUTINE */ 00121000 LOAD EPLOC=(R15) 00122000 * R15=RWORK0; /* GET ADDR INTO R15 */ 00123000 LR R15,RWORK0 0093 00124000 * END; /* END OF LOAD CODE */ 00125000 * GEN(LM RPLH,RPARM1,TWENTY8(R13));/* GET USER REGS */ 00126000 * 0095 00127000 @RF00090 DS 0H 0095 00128000 LM RPLH,RPARM1,TWENTY8(R13) 00129000 * /*********************************************************/ 00130000 * /* */ 00131000 * /* TAKE LERAD EXIT */ 00132000 * /* */ 00133000 * /*********************************************************/ 00134000 * 0096 00135000 * DO; /* IDACALL(LERAD)**************** 00136000 * ************************* */ 00137000 * RESPECIFY 0097 00138000 * (RWORK1, 0097 00139000 * RWORK2, 0097 00140000 * RWORK3, 0097 00141000 * RWORK4, 0097 00142000 * RWORK5, 0097 00143000 * R10)RSTD; /* */ 00144000 * CALL LERAD; /* */ 00145000 BALR @14,@15 0098 00146000 * GEN(BALR @11,0); 0099 00147000 BALR @11,0 00148000 * GEN(LA @14,*-@PSTART); 0100 00149000 LA @14,*-@PSTART 00150000 * GEN(SR @11,@14); /* */ 00151000 SR @11,@14 00152000 * RESPECIFY 0102 00153000 * (RWORK1, 0102 00154000 * RWORK2, 0102 00155000 * RWORK3, 0102 00156000 * RWORK4, 0102 00157000 * RWORK5, 0102 00158000 * R10)UNRSTD; /* */ 00159000 * END; /* IDACALL(LERAD)**************** 00160000 * ************************* */ 00161000 * IF EXLLERF(3)=ON /* IF LERAD ROUTINE WAS */ 00162000 * THEN /* LOADED, IT MUST ALSO */ 00163000 L @14,RPLDACB(,RRPL) 0104 00164000 L @14,ACBUEL(,@14) 0104 00165000 TM EXLLERF(@14),B'00100000' 0104 00166000 BNO @RF00104 0104 00167000 * DO; /* BE DELETED */ 00168000 * RFY 0106 00169000 * RWORK1 RSTD; /* GET WORK REGISTER */ 00170000 * RWORK1=R1; /* SAVE REGISTER 1 */ 00171000 LR RWORK1,R1 0107 00172000 * R15=EXLLERP; /* POINT TO LERAD NAME */ 00173000 L R15,EXLLERP(,@14) 0108 00174000 * GEN(DELETE EPLOC=(R15));/* DELETE LERAD ROUTINE */ 00175000 DELETE EPLOC=(R15) 00176000 * R1=RWORK1; /* RESTORE REGISTER 1 */ 00177000 LR R1,RWORK1 0110 00178000 * END; /* END OF DELETE CODE */ 00179000 * R13=RPLPLHPT; /* RESTORE REG 13 */ 00180000 @RF00104 L R13,RPLPLHPT(,RRPL) 0112 00181000 * END; /* END, LERAD EXIT */ 00182000 * END; /* END, LOGICAL ERROR */ 00183000 @RF00086 DS 0H 0115 00184000 * ELSE /* HERE FOR EOD ENTRY */ 00185000 * DO; 0115 00186000 B @RC00084 0115 00187000 @RF00084 DS 0H 0116 00188000 * RPLPLHPT=R13; /* SAVE REG 13 */ 00189000 ST R13,RPLPLHPT(,RRPL) 0116 00190000 * R15=EXLEODP; /* POINT TO EODAD ROUTINE */ 00191000 L @10,RPLDACB(,RRPL) 0117 00192000 L @10,ACBUEL(,@10) 0117 00193000 L R15,EXLEODP(,@10) 0117 00194000 * IF EXLEODF(3)=ON /* SEE IF LINK */ 00195000 * THEN /* IF SO, COME HERE */ 00196000 TM EXLEODF(@10),B'00100000' 0118 00197000 BNO @RF00118 0118 00198000 * DO; 0119 00199000 * GEN(LOAD EPLOC=(R15)); /* LOAD EODAD ROUTINE */ 00200000 LOAD EPLOC=(R15) 00201000 * R15=RWORK0; /* GET EODAD ADDR IN R15 */ 00202000 LR R15,RWORK0 0121 00203000 * END; /* END OF LOAD CODE */ 00204000 * GEN(LM RPLH,RPARM1,TWENTY8(R13));/* GET USER REGS */ 00205000 * 0123 00206000 @RF00118 DS 0H 0123 00207000 LM RPLH,RPARM1,TWENTY8(R13) 00208000 * /*************************************************************/ 00209000 * /* */ 00210000 * /* TAKE EODAD EXIT */ 00211000 * /* */ 00212000 * /*************************************************************/ 00213000 * 0124 00214000 * DO; /* IDACALL(EODAD)**************** 00215000 * ************************* */ 00216000 * RESPECIFY 0125 00217000 * (RWORK1, 0125 00218000 * RWORK2, 0125 00219000 * RWORK3, 0125 00220000 * RWORK4, 0125 00221000 * RWORK5, 0125 00222000 * R10)RSTD; /* */ 00223000 * CALL EODAD; /* */ 00224000 BALR @14,@15 0126 00225000 * GEN(BALR @11,0); 0127 00226000 BALR @11,0 00227000 * GEN(LA @14,*-@PSTART); 0128 00228000 LA @14,*-@PSTART 00229000 * GEN(SR @11,@14); /* */ 00230000 SR @11,@14 00231000 * RESPECIFY 0130 00232000 * (RWORK1, 0130 00233000 * RWORK2, 0130 00234000 * RWORK3, 0130 00235000 * RWORK4, 0130 00236000 * RWORK5, 0130 00237000 * R10)UNRSTD; /* */ 00238000 * END; /* IDACALL(EODAD)**************** 00239000 * ************************* */ 00240000 * IF EXLEODF(3)=ON /* IF EODAD ROUTINE WAS */ 00241000 * THEN /* LOADED, IT MUST ALSO */ 00242000 L @14,RPLDACB(,RRPL) 0132 00243000 L @14,ACBUEL(,@14) 0132 00244000 TM EXLEODF(@14),B'00100000' 0132 00245000 BNO @RF00132 0132 00246000 * DO; /* BE DELETED */ 00247000 * RFY 0134 00248000 * RWORK1 RSTD; /* GET WORK REGISTER */ 00249000 * RWORK1=R1; /* SAVE REGISTER ONE */ 00250000 LR RWORK1,R1 0135 00251000 * R15=EXLEODP; /* POINT TO EODAD NAME */ 00252000 L R15,EXLEODP(,@14) 0136 00253000 * GEN(DELETE EPLOC=(R15));/* DELETE EODAD ROUTINE */ 00254000 DELETE EPLOC=(R15) 00255000 * R1=RWORK1; /* RESTORE REGISTER ONE */ 00256000 LR R1,RWORK1 0138 00257000 * END; /* END OF DELETE CODE */ 00258000 * R13=RPLPLHPT; /* RESTORE REG 13 */ 00259000 @RF00132 L R13,RPLPLHPT(,RRPL) 0140 00260000 * END; /* END OF EODAD EXIT */ 00261000 * RETURN CODE(RPLERREG); /* EXIT WITH RETURN CODE */ 00262000 @RC00084 SR @15,@15 0142 00263000 IC @15,RPLERREG(,RRPL) 0142 00264000 L @14,12(,@13) 0142 00265000 LM @00,@12,20(@13) 0142 00266000 BR @14 0142 00267000 * GEN(IDAPATCH); /* DEFINE A PATCH AREA */ 00268000 IDAPATCH 00269000 * END IDA019RD /* END OF DD DUMMY ROUTINE */ 00270000 * 0144 00271000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00272000 */*%INCLUDE SYSLIB (IDAREGS ) */ 00273000 */*%INCLUDE SYSLIB (IFGRPL ) */ 00274000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 00275000 */*%INCLUDE SYSLIB (IDARMRCD) */ 00276000 */*%INCLUDE SYSLIB (IFGACB ) */ 00277000 */*%INCLUDE SYSLIB (IFGACBVT) */ 00278000 */*%INCLUDE SYSLIB (IFGEXLST) */ 00279000 */*%INCLUDE SYSLIB (IFGEXLVT) */ 00280000 * 0144 00281000 * ; 0144 00282000 @EL00001 DS 0H 0144 00283000 @EF00001 DS 0H 0144 00284000 @ER00001 LM @14,@12,12(@13) 0144 00285000 BR @14 0144 00286000 @DATA DS 0H 00287000 @CH00052 DC H'1' 00288000 @CH00291 DC H'10' 00289000 @CH00197 DC H'20' 00290000 @DATD DSECT 00291000 DS 0F 00292000 IDA019RD CSECT 00293000 DS 0F 00294000 @CF00125 DC F'2' 00295000 @DATD DSECT 00296000 DS 0D 00297000 IDA019RD CSECT 00298000 DS 0F 00299000 @SIZDATD DC AL1(0) 00300000 DC AL3(@ENDDATD-@DATD) 00301000 DS 0D 00302000 HWORD4 DC H'4' 00303000 @DATD DSECT 00304000 TWENTY8 EQU 28 SAVEAREA OFFSET 00305000 @DATD DSECT 00306000 @ENDDATD EQU * 00307000 IDA019RD CSECT 00308000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00309000 @01 EQU 01 00310000 @02 EQU 02 00311000 @03 EQU 03 00312000 @04 EQU 04 00313000 @05 EQU 05 00314000 @06 EQU 06 00315000 @07 EQU 07 00316000 @08 EQU 08 00317000 @09 EQU 09 00318000 @10 EQU 10 00319000 @11 EQU 11 00320000 @12 EQU 12 00321000 @13 EQU 13 00322000 @14 EQU 14 00323000 @15 EQU 15 00324000 RWORK0 EQU @00 00325000 RRPL EQU @01 00326000 R1 EQU @01 00327000 RPLH EQU @02 00328000 RAMB EQU @03 00329000 RBUFC EQU @04 00330000 RWORK1 EQU @05 00331000 RWORK2 EQU @06 00332000 RWORK3 EQU @07 00333000 RWORK4 EQU @08 00334000 RWORK5 EQU @09 00335000 R10 EQU @10 00336000 RPARM1 EQU @12 00337000 R13 EQU @13 00338000 R15 EQU @15 00339000 R11 EQU @11 00340000 R14 EQU @14 00341000 IFGRPL EQU 0 00342000 RPLCOMN EQU IFGRPL 00343000 RPLIDWD EQU RPLCOMN 00344000 RPLLEN EQU RPLIDWD+3 00345000 RPLPLHPT EQU RPLCOMN+4 00346000 RPLECB EQU RPLCOMN+8 00347000 RPLFDBK EQU RPLCOMN+13 00348000 RPLRTNCD EQU RPLFDBK 00349000 RPLERREG EQU RPLRTNCD 00350000 RPLCNDCD EQU RPLFDBK+1 00351000 RPLCMPON EQU RPLCNDCD 00352000 RPLERRCD EQU RPLCNDCD+1 00353000 RPLKEYLE EQU RPLCOMN+16 00354000 RPLDACB EQU RPLCOMN+24 00355000 RPLARG EQU RPLCOMN+36 00356000 RPLOPTCD EQU RPLCOMN+40 00357000 RPLOPT1 EQU RPLOPTCD 00358000 RPLASY EQU RPLOPT1 00359000 RPLECBSW EQU RPLOPT1 00360000 RPLOPT2 EQU RPLOPTCD+1 00361000 RPLADR EQU RPLOPT2 00362000 RPLOPT3 EQU RPLOPTCD+2 00363000 RPLNXTRP EQU RPLCOMN+44 00364000 RPLOPTC2 EQU RPLCOMN+56 00365000 RPLOPT5 EQU RPLOPTC2 00366000 RPLWRTYP EQU RPLOPT5 00367000 RPLOPT6 EQU RPLOPTC2+1 00368000 RPLUNTYP EQU RPLOPT6 00369000 RPLOPT7 EQU RPLOPTC2+2 00370000 RPLCNOPT EQU RPLOPT7 00371000 RPLOPT8 EQU RPLOPTC2+3 00372000 RPLRBAR EQU RPLCOMN+60 00373000 RPL6RBA EQU RPLRBAR+2 00374000 RPLEXTDS EQU RPLCOMN+68 00375000 RPLEXTD1 EQU RPLEXTDS 00376000 IFGACB EQU 0 00377000 ACBCOMN EQU IFGACB 00378000 ACBLENG EQU ACBCOMN+2 00379000 ACBLENG2 EQU ACBLENG 00380000 ACBAMBL EQU ACBCOMN+4 00381000 ACBIXLST EQU ACBAMBL 00382000 ACBJWA EQU ACBIXLST 00383000 ACBMACRF EQU ACBCOMN+12 00384000 ACBMACR1 EQU ACBMACRF 00385000 ACBADR EQU ACBMACR1 00386000 ACBCNV EQU ACBMACR1 00387000 ACBMACR2 EQU ACBMACRF+1 00388000 ACBLFB EQU ACBCOMN+20 00389000 ACBBUFPL EQU ACBLFB 00390000 ACBRECFM EQU ACBCOMN+24 00391000 ACBCCTYP EQU ACBCOMN+25 00392000 ACBOPT EQU ACBCOMN+26 00393000 ACBDSORG EQU ACBOPT 00394000 ACBCROPS EQU ACBDSORG 00395000 ACBEXLST EQU ACBCOMN+36 00396000 ACBUEL EQU ACBEXLST 00397000 ACBDDNM EQU ACBCOMN+40 00398000 ACBAMETH EQU ACBDDNM+3 00399000 ACBOFLGS EQU ACBCOMN+48 00400000 ACBEXFG EQU ACBOFLGS 00401000 ACBIOSFG EQU ACBOFLGS 00402000 ACBINFLG EQU ACBCOMN+50 00403000 ACBUJFCB EQU ACBCOMN+52 00404000 ACBWAPTR EQU ACBUJFCB 00405000 IFGEXLST EQU 0 00406000 EXLCOMN EQU IFGEXLST 00407000 EXLLEN EQU EXLCOMN+2 00408000 EXLEODF EQU EXLCOMN+5 00409000 EXLEODP EQU EXLCOMN+6 00410000 EXLSYNF EQU EXLCOMN+10 00411000 EXLLERF EQU EXLCOMN+15 00412000 EXLLERP EQU EXLCOMN+16 00413000 @NM00016 EQU EXLCOMN+20 00414000 EXLLGNF EQU EXLCOMN+25 00415000 EXLLGNE EQU EXLLGNF 00416000 EXLJRNF EQU EXLCOMN+30 00417000 EXLOPNF EQU EXLCOMN+35 00418000 IFGEXLEF EQU 0 00419000 EXLENTRY EQU IFGEXLEF 00420000 EXLFLAG EQU EXLENTRY 00421000 EXLENFL EQU EXLFLAG 00422000 EXLEXITP EQU EXLENTRY+1 00423000 LERAD EQU 0 00424000 EODAD EQU 0 00425000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00426000 EXLEADDR EQU EXLEXITP 00427000 EXLEXITM EQU EXLENFL 00428000 EXLLVNTM EQU EXLENFL 00429000 EXLGVNTM EQU EXLENFL 00430000 @NM00025 EQU EXLENFL 00431000 EXLLNK EQU EXLENFL 00432000 EXLACTM EQU EXLENFL 00433000 EXLSPEC EQU EXLENFL 00434000 EXLOPNP EQU EXLCOMN+36 00435000 @NM00024 EQU EXLOPNF 00436000 EXLOPNK EQU EXLOPNF 00437000 EXLOPNA EQU EXLOPNF 00438000 EXLOPNS EQU EXLOPNF 00439000 EXLJRNP EQU EXLCOMN+31 00440000 @NM00023 EQU EXLJRNF 00441000 EXLJRNK EQU EXLJRNF 00442000 EXLJRNA EQU EXLJRNF 00443000 EXLJRNS EQU EXLJRNF 00444000 EXLLGNP EQU EXLCOMN+26 00445000 EXLLGNEX EQU EXLLGNE 00446000 EXLLGNLE EQU EXLLGNE 00447000 EXLLGNGE EQU EXLLGNE 00448000 @NM00022 EQU EXLLGNF 00449000 EXLLGNK EQU EXLLGNF 00450000 EXLLGNA EQU EXLLGNF 00451000 EXLLGNS EQU EXLLGNF 00452000 @NM00021 EQU EXLCOMN+21 00453000 @NM00020 EQU @NM00016 00454000 @NM00019 EQU @NM00016 00455000 @NM00018 EQU @NM00016 00456000 @NM00017 EQU @NM00016 00457000 @NM00015 EQU EXLLERF 00458000 EXLLERK EQU EXLLERF 00459000 EXLLERA EQU EXLLERF 00460000 EXLLERS EQU EXLLERF 00461000 EXLSYNP EQU EXLCOMN+11 00462000 @NM00014 EQU EXLSYNF 00463000 EXLSYNK EQU EXLSYNF 00464000 EXLSYNA EQU EXLSYNF 00465000 EXLSYNS EQU EXLSYNF 00466000 @NM00013 EQU EXLEODF 00467000 EXLEODK EQU EXLEODF 00468000 EXLEODA EQU EXLEODF 00469000 EXLEODS EQU EXLEODF 00470000 @NM00012 EQU EXLCOMN+4 00471000 EXLLEN2 EQU EXLLEN 00472000 EXLSTYP EQU EXLCOMN+1 00473000 EXLID EQU EXLCOMN 00474000 ACBAPID EQU ACBCOMN+72 00475000 ACBCBMWA EQU ACBCOMN+68 00476000 ACBUAPTR EQU ACBCOMN+64 00477000 ACBLRECL EQU ACBCOMN+62 00478000 ACBBLKSZ EQU ACBCOMN+60 00479000 ACBBUFSP EQU ACBCOMN+56 00480000 @NM00011 EQU ACBWAPTR+1 00481000 ACBOPTN EQU ACBWAPTR 00482000 ACBCAT EQU ACBINFLG 00483000 ACBIJRQE EQU ACBINFLG 00484000 ACBJEPS EQU ACBINFLG 00485000 @NM00010 EQU ACBINFLG 00486000 ACBERFLG EQU ACBCOMN+49 00487000 ACBBUSY EQU ACBIOSFG 00488000 ACBLOCK EQU ACBEXFG 00489000 @NM00009 EQU ACBOFLGS 00490000 ACBDSERR EQU ACBOFLGS 00491000 ACBOPEN EQU ACBOFLGS 00492000 ACBEOV EQU ACBOFLGS 00493000 @NM00008 EQU ACBOFLGS 00494000 ACBDEB EQU ACBDDNM+5 00495000 ACBERFL EQU ACBDDNM+4 00496000 ACBAM EQU ACBAMETH 00497000 ACBINFL EQU ACBDDNM+2 00498000 ACBTIOT EQU ACBDDNM 00499000 ACBPASSW EQU ACBCOMN+32 00500000 @NM00007 EQU ACBCOMN+28 00501000 @NM00006 EQU ACBDSORG+1 00502000 ACBDORGA EQU ACBDSORG+1 00503000 @NM00005 EQU ACBDSORG 00504000 ACBCRNRE EQU ACBCROPS 00505000 ACBCRNCK EQU ACBCROPS 00506000 ACBASA EQU ACBCCTYP 00507000 @NM00004 EQU ACBCCTYP 00508000 ACBRECAF EQU ACBRECFM 00509000 ACBJBUF EQU ACBBUFPL+2 00510000 @NM00003 EQU ACBBUFPL 00511000 ACBBUFNI EQU ACBCOMN+18 00512000 ACBBUFND EQU ACBCOMN+16 00513000 ACBSTRNO EQU ACBCOMN+14 00514000 @NM00002 EQU ACBMACR2 00515000 ACBLOGON EQU ACBMACR2 00516000 ACBSKP EQU ACBMACR2 00517000 ACBCHN EQU ACBMACR2 00518000 ACBCBRD EQU ACBMACR2 00519000 ACBCBOPN EQU ACBMACR2 00520000 ACBUBF EQU ACBMACR1 00521000 ACBOUT EQU ACBMACR1 00522000 ACBIN EQU ACBMACR1 00523000 ACBDIR EQU ACBMACR1 00524000 ACBSEQ EQU ACBMACR1 00525000 ACBBLK EQU ACBCNV 00526000 ACBADD EQU ACBADR 00527000 ACBKEY EQU ACBMACR1 00528000 ACBINRTN EQU ACBCOMN+8 00529000 ACBIBCT EQU ACBJWA 00530000 ACBLEN2 EQU ACBLENG2 00531000 ACBSTYP EQU ACBCOMN+1 00532000 ACBID EQU ACBCOMN 00533000 RPLERMSA EQU RPLCOMN+72 00534000 RPLEMLEN EQU RPLCOMN+70 00535000 RPLACTIV EQU RPLCOMN+69 00536000 RPLBRANC EQU RPLEXTD1 00537000 RPLNIB EQU RPLEXTD1 00538000 RPLGVNT EQU RPLEXTD1 00539000 RPLLVNT EQU RPLEXTD1 00540000 RPLEXIT EQU RPLEXTD1 00541000 RPLNEXIT EQU RPLEXTD1 00542000 RPLEXSCH EQU RPLEXTD1 00543000 RPLDDDD EQU RPL6RBA+2 00544000 RPLS2S2 EQU RPL6RBA 00545000 RPLS1S1 EQU RPLRBAR 00546000 RPLRSV88 EQU RPLOPT8 00547000 RPLUNCON EQU RPLOPT8 00548000 RPLACTV EQU RPLOPT8 00549000 RPLSESS EQU RPLOPT8 00550000 RPLPEND EQU RPLOPT8 00551000 RPLODPRM EQU RPLOPT8 00552000 RPLODACP EQU RPLOPT8 00553000 RPLODACQ EQU RPLOPT8 00554000 RPLRSV78 EQU RPLOPT7 00555000 RPLRSV77 EQU RPLOPT7 00556000 RPLRLSOP EQU RPLOPT7 00557000 RPLRSV75 EQU RPLOPT7 00558000 RPLQOPT EQU RPLOPT7 00559000 RPLCNIMM EQU RPLCNOPT 00560000 RPLCNANY EQU RPLCNOPT 00561000 RPLCNALL EQU RPLCNOPT 00562000 RPLRSV68 EQU RPLOPT6 00563000 RPLRSV67 EQU RPLOPT6 00564000 RPLLOCK EQU RPLOPT6 00565000 RPLNCOND EQU RPLOPT6 00566000 RPLCOND EQU RPLOPT6 00567000 RPLEOT EQU RPLUNTYP 00568000 RPLEOM EQU RPLUNTYP 00569000 RPLEOB EQU RPLUNTYP 00570000 RPLWROPT EQU RPLOPT5 00571000 RPLNODE EQU RPLOPT5 00572000 RPLERACE EQU RPLWRTYP 00573000 RPLEAU EQU RPLWRTYP 00574000 RPLNERAS EQU RPLWRTYP 00575000 RPLPSOPT EQU RPLOPT5 00576000 RPLSSNIN EQU RPLOPT5 00577000 RPLDLGIN EQU RPLOPT5 00578000 RPLBUFL EQU RPLCOMN+52 00579000 RPLRLEN EQU RPLCOMN+48 00580000 RPLCHAIN EQU RPLNXTRP 00581000 RPLOPT4 EQU RPLOPTCD+3 00582000 RPLALIGN EQU RPLOPT3 00583000 RPLFMT EQU RPLOPT3 00584000 RPLFLD EQU RPLOPT3 00585000 RPLVFY EQU RPLOPT3 00586000 RPLBLK EQU RPLOPT3 00587000 RPLSFORM EQU RPLOPT3 00588000 RPLEODS EQU RPLOPT3 00589000 RPLNSP EQU RPLOPT2 00590000 RPLUPD EQU RPLOPT2 00591000 @NM00001 EQU RPLOPT2 00592000 RPLCNV EQU RPLOPT2 00593000 RPLADD EQU RPLADR 00594000 RPLKEY EQU RPLOPT2 00595000 RPLECBIN EQU RPLECBSW 00596000 RPLGEN EQU RPLOPT1 00597000 RPLKGE EQU RPLOPT1 00598000 RPLSKP EQU RPLOPT1 00599000 RPLSEQ EQU RPLOPT1 00600000 RPLDIR EQU RPLOPT1 00601000 RPLLOC EQU RPLOPT1 00602000 RPLDAF EQU RPLARG+2 00603000 RPLSAF EQU RPLARG 00604000 RPLAREA EQU RPLCOMN+32 00605000 RPLTCBPT EQU RPLCOMN+28 00606000 RPLCCHAR EQU RPLCOMN+20 00607000 RPLSTRID EQU RPLCOMN+18 00608000 RPLKEYL EQU RPLKEYLE 00609000 RPLFDB3 EQU RPLERRCD 00610000 RPLFDB2 EQU RPLCMPON 00611000 RPLSTAT EQU RPLCOMN+12 00612000 RPLPOST EQU RPLECB 00613000 RPLWAIT EQU RPLECB 00614000 RPLLEN2 EQU RPLLEN 00615000 RPLREQ EQU RPLIDWD+2 00616000 RPLSTYP EQU RPLIDWD+1 00617000 RPLID EQU RPLIDWD 00618000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00619000 @ENDDATA EQU * 00620000 END IDA019RD,(C'PL/S-II',0402,73199) 00621000