TITLE 'IDA0192I - MVM ISAM INTERFACE OPEN *00001000 ' 00002000 IDA0192I CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IDA0192I 78.144' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 * IIRSAVE=R13; /* SAVE PTR TO SAVE AREA */ 00014000 ST R13,IIRSAVE(,RCORE) 0172 00015000 * RIICB=ZERO; /* INDICATE IICB NOT OBTAINED 0173 00016000 * @Y021130*/ 00017000 SLR RIICB,RIICB 0173 00018000 * IIAUDPTR=ZERO; /* INDICATE NO AUDITING HAS BEEN 00019000 * DONE @Y021130*/ 00020000 SLR @15,@15 0174 00021000 ST @15,IIAUDPTR(,RCORE) 0174 00022000 * DO; /* MODESET KEYADDR(DXUKEY) */ 00023000 * SPKA(DXUKEY); /* SET PSW KEY */ 00024000 SLR @15,@15 0176 00025000 IC @15,DXUKEY(,RCORE) 0176 00026000 SPKA 0(@15) 0176 00027000 * END; /* MODESET KEYADDR(DXUKEY) ASSUME 00028000 * USER KEY @Y021130*/ 00029000 * RDCB=DXUDCBAD; /* INIT DCB POINTER TO DCB COPY 00030000 * @Y021130*/ 00031000 L RDCB,DXUDCBAD(,RCORE) 0178 00032000 * ISAMDCB=PCOPYDCB; /* REFRESH USER DCB FROM 0179 00033000 * PROTECTED COPY @Y021130*/ 00034000 L @15,DXPDCBAD(,RCORE) 0179 00035000 MVC ISAMDCB+16(236,RDCB),PCOPYDCB(@15) 0179 00036000 * RESPECIFY 0180 00037000 * (RRPL) UNRESTRICTED; /* @Y021130*/ 00038000 * CALL BLDIICB; /* BUILD THE IICB,ACB & EXLST */ 00039000 BAL @14,BLDIICB 0181 00040000 * CALL INITIICB; /* INIT THE IICB, ACB & EXLST */ 00041000 BAL @14,INITIICB 0182 00042000 * CALL ACBMERGE; /* MERGE FROM DCB TO ACB */ 00043000 BAL @14,ACBMERGE 0183 00044000 * CALL OPENACB; /* OPEN THE ACB */ 00045000 BAL @14,OPENACB 0184 00046000 * IF DCBOFOPN=OFF THEN /* IF UNSUCCESSFUL OPEN */ 00047000 TM DCBOFOPN+40(RDCB),B'00010000' 0185 00048000 BZ @RT00185 0185 00049000 * GO TO EXIT; /* RETURN TO USER */ 00050000 * CALL DCBMERGE; /* MERGE FROM JFCB TO DCB */ 00051000 BAL @14,DCBMERGE 0187 00052000 * CALL AMSMERGE; /* MERGE DATA SET ATTRIBUTES */ 00053000 BAL @14,AMSMERGE 0188 00054000 * CALL DCBEXIT; /* ISAM DCB EXIT */ 00055000 BAL @14,DCBEXIT 0189 00056000 * CALL VALIDCHK; /* VALIDITY CHECK ATTRIBUTES */ 00057000 BAL @14,VALIDCHK 0190 00058000 * CALL BFRMERGE; /* MERGE BUFFER RELATED INFO */ 00059000 BAL @14,BFRMERGE 0191 00060000 * CALL BUILDDEB; /* BUILD DUMMY ISAM DEB */ 00061000 BAL @14,BUILDDEB 0192 00062000 * CALL LOADMOD; /* LOAD II PROCESSING MODULES */ 00063000 BAL @14,LOADMOD 0193 00064000 * CALL BLDRPL; /* COMPUTE RPL & BUFFER SIZE */ 00065000 BAL @14,BLDRPL 0194 00066000 * CALL INITRPL; /* INIT RPL, RPLE & ERROR MSG */ 00067000 BAL @14,INITRPL 0195 00068000 * CALL BLDBUFR; /* BUILD BUFFERS */ 00069000 BAL @14,BLDBUFR 0196 00070000 * CALL DCBINIT; /* FINAL DCB INITIALIZATION */ 00071000 BAL @14,DCBINIT 0197 00072000 *EXIT: 0198 00073000 * R13=IIRSAVE; 0198 00074000 EXIT L R13,IIRSAVE(,RCORE) 0198 00075000 * DO; /* MODESET EXTKEY(ZERO) */ 00076000 * SPKA(0); /* SET PSW KEY */ 00077000 SLR @15,@15 0200 00078000 SPKA 0(@15) 0200 00079000 * END; /* MODESET EXTKEY(ZERO) ASSUME 0201 00080000 * SYSTEM KEY @Y021130*/ 00081000 * PCOPYDCB=ISAMDCB; /* REFRESH COPY DCB @YM03981*/ 00082000 L @15,DXPDCBAD(,RCORE) 0202 00083000 MVC PCOPYDCB(236,@15),ISAMDCB+16(RDCB) 0202 00084000 * RETURN; 0203 00085000 @EL00001 DS 0H 0203 00086000 @EF00001 DS 0H 0203 00087000 @ER00001 LM @14,@12,12(@13) 0203 00088000 BR @14 0203 00089000 * 0204 00090000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00091000 ** * 00092000 ** FUNCTION = BUILD IICB * 00093000 ** THIS ROUTINE CALCULATES THE AMOUNT OF CORE NEEDED AND * 00094000 ** CALLS THE GETMAIN ROUTINE TO GET CORE IN THE USER'S * 00095000 ** REGION FOR THE IICB, ACB AND EXLST. THESE BLOCKS WILL BE * 00096000 ** USED FOR THE DCB THAT IS BEING OPENED. * 00097000 ** * 00098000 ** INPUT = * 00099000 ** REGISTER 1 - RDCB - DCB POINTER * 00100000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 00101000 ** * 00102000 ** OUTPUT = * 00103000 ** REGISTER 1 - RDCB - DCB POINTER * 00104000 ** REGISTER 2 - RIICB - IICB POINTER * 00105000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 00106000 ** * 00107000 ** CONTROL BLOCK FIELDS INITIALIZED * 00108000 ** IIACBL * 00109000 ** * 00110000 ** PROTECTION KEY = SEE BELOW * 00111000 ** KEY ON ENTRY - USER KEY * 00112000 ** KEY ON EXIT - USER KEY * 00113000 ** INTERIM KEYS ASSUMED = NONE * 00114000 ** * 00115000 ** * 00116000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00117000 * 0204 00118000 *BLDIICB: 0204 00119000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0204 00120000 BLDIICB DS 0H 0205 00121000 * RESPECIFY 0205 00122000 * (RLKRETSV) RESTRICTED; /* @Y021130*/ 00123000 * RLKRETSV=R14; /* SAVE RETURN ADDRESS @Y021130*/ 00124000 LR RLKRETSV,R14 0206 00125000 * RESPECIFY 0207 00126000 * (RGMLEN) RESTRICTED; /* @Y021130*/ 00127000 * RGMLEN=LENGTH(IDAIICB)+ /* INIT AMT OF CORE REQUIRED */ 00128000 * LENGTH(IFGACB)+ /* @Y021130*/ 00129000 * 20; 0208 00130000 LA RGMLEN,264 0208 00131000 * RESPECIFY 0209 00132000 * (RGMSP) RESTRICTED; /* @Y021130*/ 00133000 * RGMSP=USERPOOL; /* SUBPOOL FOR USER REGION 0210 00134000 * @Y021130*/ 00135000 LA RGMSP,250 0210 00136000 * CALL GETMAIN; /* GET CORE */ 00137000 BAL @14,GETMAIN 0211 00138000 * RESPECIFY 0212 00139000 * (RGMSP, 0212 00140000 * RGMLEN, 0212 00141000 * RLKRETSV) UNRESTRICTED; /* @Y021130*/ 00142000 * RIICB=MAINADDR; /* INIT IICB REG */ 00143000 L RIICB,MAINADDR(,RCORE) 0213 00144000 * IIACBL=MAINLEN; /* SAVE LENGTH / SUBPOOL */ 00145000 MVC IIACBL(3,RIICB),MAINLEN(RCORE) 0214 00146000 * R14=IIRSAVE1; /* RESTORE RETURN ADDR */ 00147000 L R14,IIRSAVE1(,RCORE) 0215 00148000 * END BLDIICB; 0216 00149000 @EL00002 DS 0H 0216 00150000 @EF00002 DS 0H 0216 00151000 @ER00002 BR @14 0216 00152000 * 0217 00153000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00154000 ** * 00155000 ** FUNCTION = GETMAIN * 00156000 ** THIS ROUTINE IS CALLED BY THE BLDIICB, BUILDDEB AND * 00157000 ** BLDRPL ROUTINES IN THIS MODULE. ALL ISAM INTERFACE * 00158000 ** CORE IS OBTAINED BY THIS ROUTINE. * 00159000 ** * 00160000 ** INPUT = * 00161000 ** REGISTER 1 - RDCB - DCB POINTER * 00162000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 00163000 ** REGISTER 8 - RGMSP = SUBPOOL NUMBER FOR GETMAIN * 00164000 ** REGISTER 9 - RGMLEN = LENGTH FOR GETMAIN * 00165000 ** REGISTER 10 - RLKRETSV = CALLER'S SAVED LINKAGE * 00166000 ** * 00167000 ** OUTPUT = * 00168000 ** SAME AS ABOVE * 00169000 ** MAINADDR = ADDRESS OF CORE OBTAINED * 00170000 ** * 00171000 ** PROTECTION KEY = SEE BELOW * 00172000 ** KEY ON ENTRY - USER KEY * 00173000 ** KEY ON EXIT - USER KEY * 00174000 ** INTERIM KEYS ASSUMED = DATA MANAGEMENT KEY 5 * 00175000 ** * 00176000 ** * 00177000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00178000 * 0217 00179000 *GETMAIN: 0217 00180000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0217 00181000 GETMAIN DS 0H 0218 00182000 * RESPECIFY 0218 00183000 * (RGMSP, 0218 00184000 * RGMLEN, 0218 00185000 * RLKRETSV, 0218 00186000 * RRPL) RESTRICTED; /* @ZA02670*/ 00187000 * DO; /* MODESET EXTKEY(DATAMGT) */ 00188000 * SPKA(80); /* SET PSW KEY */ 00189000 LA @15,80 0220 00190000 SPKA 0(@15) 0220 00191000 * END; /* MODESET EXTKEY(DATAMGT) ASSUME 00192000 * DATA MANAGEMENT KEY FOR 0221 00193000 * STORING INTO THE OPEN WORK 0221 00194000 * AREA @Y021130*/ 00195000 * IIRSAVE1=RLKRETSV; /* SAVE CALLER'S LINKAGE @Y021130*/ 00196000 ST RLKRETSV,IIRSAVE1(,RCORE) 0222 00197000 * MAINLEN=RGMLEN; /* SAVE LENGTH @Y021130*/ 00198000 STCM RGMLEN,7,MAINLEN(RCORE) 0223 00199000 * MAINPOOL=RGMSP; /* SAVE SUBPOOL @Y021130*/ 00200000 STC RGMSP,MAINPOOL(,RCORE) 0224 00201000 * RESPECIFY 0225 00202000 * (RGMSP, 0225 00203000 * RGMLEN, 0225 00204000 * RLKRETSV) UNRESTRICTED; /* @Y021130*/ 00205000 * IIRSAVE2=R14; /* SAVE RETURN ADDR */ 00206000 ST R14,IIRSAVE2(,RCORE) 0226 00207000 * IIRSAVE3=RDCB; /* SAVE DCB POINTER */ 00208000 ST RDCB,IIRSAVE3(,RCORE) 0227 00209000 * RESPECIFY 0228 00210000 * (R0, 0228 00211000 * R1, 0228 00212000 * R15) RESTRICTED; 0228 00213000 * R0=MAINR0; /* LOAD R0 FOR GETMAIN */ 00214000 L R0,MAINR0(,RCORE) 0229 00215000 * GEN(GETMAIN R,LV=(0)); /* @Y021130*/ 00216000 GETMAIN R,LV=(0) 00217000 * MAINADDR=R1; /* SAVE RESULTS */ 00218000 ST R1,MAINADDR(,RCORE) 0231 00219000 * RESPECIFY 0232 00220000 * (R8, 0232 00221000 * R9, 0232 00222000 * R10, 0232 00223000 * R11) RESTRICTED; 0232 00224000 * R8=R1; /* ADDR OF CORE */ 00225000 LR R8,R1 0233 00226000 * R9=MAINLEN; /* SIZE OF CORE */ 00227000 L R9,MAINLEN-1(,RCORE) 0234 00228000 LA R9,0(,R9) 0234 00229000 * R11=ZERO; /* ZERO PADDING AND SIZE */ 00230000 SLR R11,R11 0235 00231000 * IF MAINPOOL=USERPOOL THEN 0236 00232000 CLI MAINPOOL(RCORE),250 0236 00233000 BNE @RF00236 0236 00234000 * DO; /* MODESET KEYADDR(DXUKEY) */ 00235000 * SPKA(DXUKEY); /* SET PSW KEY */ 00236000 SLR @07,@07 0238 00237000 IC @07,DXUKEY(,RCORE) 0238 00238000 SPKA 0(@07) 0238 00239000 * END; /* MODESET KEYADDR(DXUKEY) ASSUME 00240000 * USER KEY @Y021130*/ 00241000 * GEN(MVCL R8,R10); /* CLEAR CORE */ 00242000 * 0240 00243000 @RF00236 DS 0H 0240 00244000 MVCL R8,R10 00245000 * /*****************************************************************/ 00246000 * /* */ 00247000 * /* AUDIT SET UP AUDIT TRAIL IF FIRST GETMAIN @Y021130*/ 00248000 * /* */ 00249000 * /*****************************************************************/ 00250000 * 0241 00251000 * IF IIAUDPTR=ZERO THEN /* IF THIS IS FIRST GETMAIN WHICH 00252000 * IS FOR IICB THEN */ 00253000 L @07,IIAUDPTR(,RCORE) 0241 00254000 LTR @07,@07 0241 00255000 BNZ @RF00241 0241 00256000 * DO; /* INIT AUDIT POINTER TO IICB */ 00257000 * DO; /* MODESET EXTKEY(DATAMGT) */ 00258000 * SPKA(80); /* SET PSW KEY */ 00259000 LA @07,80 0244 00260000 SPKA 0(@07) 0244 00261000 * END; /* MODESET EXTKEY(DATAMGT) POINT 00262000 * AUDIT TRAIL TO IICB ANCHORED 00263000 * IN FORCORE */ 00264000 * RIICB=MAINADDR; /* GET ADDR OF IICB @Y021130*/ 00265000 L RIICB,MAINADDR(,RCORE) 0246 00266000 * IIAUDPTR=RIICB; /* SAVE IN OPEN CLOSE WORK AREA 00267000 * @Y021130*/ 00268000 ST RIICB,IIAUDPTR(,RCORE) 0247 00269000 * DO; /* MODESET KEYADDR(DXUKEY) */ 00270000 * SPKA(DXUKEY); /* SET PSW KEY */ 00271000 SLR @07,@07 0249 00272000 IC @07,DXUKEY(,RCORE) 0249 00273000 SPKA 0(@07) 0249 00274000 * END; /* MODESET KEYADDR(DXUKEY) KEY OF 00275000 * IICB @Y021130*/ 00276000 * IIGMCNTR=LENGTH(IIAUDHDR); /* SET OFFSET TO GETMAIN ENTRY 0251 00277000 * PAST HEADER @Y021130*/ 00278000 MVC IIGMCNTR(2,RIICB),@CH00199 0251 00279000 * END; /* @Y021130*/ 00280000 * 0252 00281000 * /*****************************************************************/ 00282000 * /* */ 00283000 * /* AUDIT GETMAIN @Y021130*/ 00284000 * /* */ 00285000 * /*****************************************************************/ 00286000 * 0253 00287000 * DO; /* MODESET KEYADDR(DXUKEY) */ 00288000 @RF00241 DS 0H 0254 00289000 * SPKA(DXUKEY); /* SET PSW KEY */ 00290000 SLR @07,@07 0254 00291000 IC @07,DXUKEY(,RCORE) 0254 00292000 SPKA 0(@07) 0254 00293000 * END; /* MODESET KEYADDR(DXUKEY) GET 0255 00294000 * INTO USER KEY @Y021130*/ 00295000 * IF IIGMCNTR DCBOPTCD * 00746000 ** AMDWCK --> DCBOPTCD * 00747000 ** JFCRECFM --> DCBRECFM * 00748000 ** DS2NOBYT * 00749000 ** * 00750000 ** PROTECTION KEY = SEE BELOW * 00751000 ** KEY ON ENTRY - USER KEY * 00752000 ** KEY ON EXIT - USER KEY * 00753000 ** INTERIM KEYS ASSUMED = NONE * 00754000 ** * 00755000 ** * 00756000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00757000 * 0362 00758000 *DCBMERGE: 0362 00759000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0362 00760000 DCBMERGE DS 0H 0363 00761000 * RESPECIFY 0363 00762000 * (JFCBPTR) RESTRICTED; 0363 00763000 * JFCBPTR=ADDR(DXJBF); /* INIT JFCB PTR @Y021130*/ 00764000 LA JFCBPTR,DXJBF(,RCORE) 0364 00765000 * IF DCBRECL=BZERO THEN /* IF RECFM NOT IN DCB MACRO */ 00766000 LA @08,28 0365 00767000 ALR @08,RDCB 0365 00768000 TM DCBRECL(@08),B'11000000' 0365 00769000 BNZ @RF00365 0365 00770000 * DO; 0366 00771000 * IF JFCRECFM=ZERO THEN /* IF RECFM NOT IN AMP PARM */ 00772000 CLI JFCRECFM(JFCBPTR),0 0367 00773000 BNE @RF00367 0367 00774000 * DCBRECL='01'B; /* DEFAULT TO UNBLK VARIABLE */ 00775000 NI DCBRECL(@08),B'01111111' 0368 00776000 OI DCBRECL(@08),B'01000000' 0368 00777000 * ELSE 0369 00778000 * DCBRECFM=JFCRECFM; /* MERGE RECFM FROM AMP */ 00779000 B @RC00367 0369 00780000 @RF00367 MVC DCBRECFM+28(1,RDCB),JFCRECFM(JFCBPTR) 0369 00781000 * MRECFM=ON; /* SET MODIFICATION MASK */ 00782000 @RC00367 OI MRECFM(RIICB),B'00001000' 0370 00783000 * END; /* MAP OPTCD FROM JFCB TO DCB */ 00784000 * DCBOPTI=OFF; /* TURN OFF DCB OPTCD=I */ 00785000 @RF00365 LA @08,52 0372 00786000 ALR @08,RDCB 0372 00787000 NI DCBOPTI(@08),B'11101111' 0372 00788000 * IF JFCDEL=ON|DCBOPTL=ON THEN /* TURN OFF DCB OPTCD=I */ 00789000 TM JFCDEL(JFCBPTR),B'00000010' 0373 00790000 BO @RT00373 0373 00791000 TM DCBOPTL(@08),B'00000010' 0373 00792000 BNO @RF00373 0373 00793000 @RT00373 DS 0H 0374 00794000 * DO; /* THEN */ 00795000 * DCBOPTL=ON; /* TURN ON DCB OPTCD=L */ 00796000 LA @08,52 0375 00797000 ALR @08,RDCB 0375 00798000 OI DCBOPTL(@08),B'00000010' 0375 00799000 * IF JFCIND=ON THEN /* IF OPTCD=I IN AMP PARM */ 00800000 TM JFCIND(JFCBPTR),B'00010000' 0376 00801000 BNO @RF00376 0376 00802000 * DCBOPTI=ON; /* TURN ON DCB OPTCD=I */ 00803000 OI DCBOPTI(@08),B'00010000' 0377 00804000 * MOPTCD=ON; /* SET MODIFICATION MASK */ 00805000 @RF00376 OI MOPTCD(RIICB),B'00010000' 0378 00806000 * END; 0379 00807000 * RESPECIFY 0380 00808000 * JFCBPTR UNRESTRICTED; 0380 00809000 @RF00373 DS 0H 0381 00810000 * IF DCBOPTW=OFF THEN /* OPTCD=W NOT IN DCB MACRO */ 00811000 LA @07,52 0381 00812000 ALR @07,RDCB 0381 00813000 TM DCBOPTW(@07),B'10000000' 0381 00814000 BNZ @RF00381 0381 00815000 * DO; 0382 00816000 * IF AMDWCK=ON THEN /* WRT CHK OPTION FROM DEFINE */ 00817000 L @05,ACBAMBL(,RACB) 0383 00818000 L @05,AMBLDTA(,@05) 0383 00819000 L @05,AMBDSB(,@05) 0383 00820000 TM AMDWCK(@05),B'01000000' 0383 00821000 BNO @RF00383 0383 00822000 * DCBOPTW=ON; 0384 00823000 OI DCBOPTW(@07),B'10000000' 0384 00824000 * MOPTCD=ON; /* SET MODIFICATION MASK */ 00825000 @RF00383 OI MOPTCD(RIICB),B'00010000' 0385 00826000 * END; 0386 00827000 * IF(DCBMFRD=ON| /* IF BISAM (READ OR WRITE) */ 00828000 * DCBMFWRT=ON)& /* AND */ 00829000 * DCBNCP=ZERO THEN /* NCP IS ZERO THEN SET */ 00830000 @RF00381 LA @07,40 0387 00831000 ALR @07,RDCB 0387 00832000 TM DCBMFRD(@07),B'00100000' 0387 00833000 BO @GL00006 0387 00834000 TM DCBMFWRT(@07),B'00100000' 0387 00835000 BNO @RF00387 0387 00836000 @GL00006 LA @07,52 0387 00837000 ALR @07,RDCB 0387 00838000 CLI DCBNCP(@07),0 0387 00839000 BNE @RF00387 0387 00840000 * DCBNCP=ONE; /* NCP TO DEFAULT OF ONE */ 00841000 * 0388 00842000 MVI DCBNCP(@07),X'01' 0388 00843000 * /*****************************************************************/ 00844000 * /* */ 00845000 * /* DCBDEBAD CONTAINS THE ADDRESS OF THE I/O SUPPORT WORK AREA TO */ 00846000 * /* ENABLE THE DCB EXIT ROUTINE TO REFERENCE THE F2 DSCB. DS2NOBYT*/ 00847000 * /* AND DCBNCRHI ARE BOTH DEFINED AS THE NUMBER OF BYTES NEEDED TO*/ 00848000 * /* HOLD THE HIGHEST LEVEL INDEX IN MAIN STORAGE. SINCE THIS FIELD*/ 00849000 * /* IS NOT USED BY THE ISAM INTER- FACE OR VSAM IT IS INITIALIZED */ 00850000 * /* TO SUPPORT PL/I AND OTHER PROGRAMS THAT REFERENCE IT AT DCB */ 00851000 * /* EXIT TIME. THESE FIELDS ARE SET TO A LOW VALUE RATHER THAN */ 00852000 * /* ZERO TO PREVENT A GETMAIN FAILURE IN THE ISAM PROBLEM PROGRAM */ 00853000 * /* */ 00854000 * /*****************************************************************/ 00855000 * 0389 00856000 * DCBNCRHI=EIGHT; /* INIT DCB */ 00857000 @RF00387 MVC DCBNCRHI+52(2,RDCB),@CH00045 0389 00858000 * END DCBMERGE; 0390 00859000 @EL00008 DS 0H 0390 00860000 @EF00008 DS 0H 0390 00861000 @ER00008 BR @14 0390 00862000 * 0391 00863000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00864000 ** * 00865000 ** FUNCTION = AMS MERGE * 00866000 ** THIS ROUTINE MERGES THE DATA SET ATTRIBUTES FROM THE AMDSB * 00867000 ** TO THE DCB WHEN THE CORRESPONDING DCB FIELD IS ZERO. THESE * 00868000 ** ARE THE CHARACTERISTICS THAT WERE USED WHEN DEFINING THE * 00869000 ** VSAM DATA SET WITH AMS. WHEN PROCESSING WITH ISAM, THESE * 00870000 ** FIELDS MAY BE SPECIFIED IN THE ISAM DCB EXIT ROUTINE FOR * 00871000 ** LOAD MODE. FOR SCAN MODE AND BISAM, THEY ARE MERGED FROM * 00872000 ** THE DSCB TO THE DCB. HOWEVER, THIS MERGE MUST TAKE PLACE * 00873000 ** PRIOR TO THE DCB EXIT TO SUPPORT PL/I. * 00874000 ** * 00875000 ** INPUT = * 00876000 ** REGISTER 1 - RDCB - DCB POINTER * 00877000 ** REGISTER 2 - RIICB - IICB POINTER * 00878000 ** REGISTER 6 - RACB - ACB POINTER * 00879000 ** * 00880000 ** OUTPUT = * 00881000 ** REGISTERS - SAME AS ABOVE * 00882000 ** * 00883000 ** CONTROL BLOCK FIELDS INITIALIZED * 00884000 ** DCBLRECL --> DCBBLKSI * 00885000 ** AMDKEYLN --> DCBKEYLE * 00886000 ** AMDLRECL --> DCBLRECL * 00887000 ** AMDRKP --> DCBRKP * 00888000 ** * 00889000 ** PROTECTION KEY = SEE BELOW * 00890000 ** KEY ON ENTRY - USER KEY * 00891000 ** KEY ON EXIT - USER KEY * 00892000 ** INTERIM KEYS ASSUMED = NONE * 00893000 ** * 00894000 ** * 00895000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00896000 * 0391 00897000 *AMSMERGE: 0391 00898000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0391 00899000 * 0391 00900000 AMSMERGE DS 0H 0392 00901000 * /*****************************************************************/ 00902000 * /* */ 00903000 * /* PL/I REQUIRES THAT KEYLE AND RKP BE SPECIFIED IN THE DD. IF */ 00904000 * /* THESE FIELDS ARE NOT MERGED PRIOR TO THE DCB EXIT THE KEYLE */ 00905000 * /* GETS SET TO 1 IN THE DCB EXIT. */ 00906000 * /* */ 00907000 * /*****************************************************************/ 00908000 * 0392 00909000 * IF DCBKEYLE=ZERO THEN /* IF KEYLE NOT IN DCB MACRO */ 00910000 LA @07,16 0392 00911000 ALR @07,RDCB 0392 00912000 CLI DCBKEYLE(@07),0 0392 00913000 BNE @RF00392 0392 00914000 * DO; 0393 00915000 * DCBKEYLE=AMDKEYLN; /* KEYLE FROM AMS DEFINE */ 00916000 L @05,ACBAMBL(,RACB) 0394 00917000 L @05,AMBLDTA(,@05) 0394 00918000 L @05,AMBDSB(,@05) 0394 00919000 LH @05,AMDKEYLN(,@05) 0394 00920000 STC @05,DCBKEYLE(,@07) 0394 00921000 * MKEYLE=ON; /* SET MODIFICATION MASK */ 00922000 OI MKEYLE(RIICB),B'00000001' 0395 00923000 * END; 0396 00924000 * IF DCBRKP=ZERO THEN /* IF RKP NOT IN DCB MACRO */ 00925000 @RF00392 LA @07,52 0397 00926000 ALR @07,RDCB 0397 00927000 LH @05,DCBRKP(,@07) 0397 00928000 LTR @05,@05 0397 00929000 BNZ @RF00397 0397 00930000 * DO; 0398 00931000 * DCBRKP=AMDRKP; /* RKP FROM AMS DEFINE */ 00932000 L @05,ACBAMBL(,RACB) 0399 00933000 L @05,AMBLDTA(,@05) 0399 00934000 L @05,AMBDSB(,@05) 0399 00935000 LH @05,AMDRKP(,@05) 0399 00936000 STH @05,DCBRKP(,@07) 0399 00937000 * MRKP=ON; /* SET MODIFICATION MASK */ 00938000 OI MRKP(RIICB),B'10000000' 0400 00939000 * IF DCBRECL='01'B THEN /* IF VARIABLE LENGTH RECORDS */ 00940000 TM DCBRECL+28(RDCB),B'01000000' 0401 00941000 BNO @RF00401 0401 00942000 TM DCBRECL+28(RDCB),B'10000000' 0401 00943000 BNZ @RF00401 0401 00944000 * DCBRKP=DCBRKP+4; /* ADD 4 TO RKP FOR RDW */ 00945000 AL @05,@CF00199 0402 00946000 STH @05,DCBRKP(,@07) 0402 00947000 * END; 0403 00948000 * 0403 00949000 @RF00401 DS 0H 0404 00950000 * /*****************************************************************/ 00951000 * /* */ 00952000 * /* LRECL AND BLKSIZE ARE MERGED PRIOR TO TAKING THE DCB EXIT */ 00953000 * /* BECAUSE PL/I REQUIRES BLKSIZE, LRECL (REQUIRED FOR BLOCKED */ 00954000 * /* RECORDS) AND RECFM TO BE SPECIFIED TOGETHER IN EITHER THE DD */ 00955000 * /* CARD OR THE ENVIRON ATTRIBUTE. IF THESE ATTRIBUTES ARE NOT */ 00956000 * /* MERGED THEN PL/I DEFAULTS TO 125 BYTES */ 00957000 * /* */ 00958000 * /*****************************************************************/ 00959000 * 0404 00960000 * IF DCBLRECL=ZERO THEN /* IF LRECL NOT IN DCB MACRO */ 00961000 @RF00397 SLR @07,@07 0404 00962000 LA @05,52 0404 00963000 ALR @05,RDCB 0404 00964000 CH @07,DCBLRECL(,@05) 0404 00965000 BNE @RF00404 0404 00966000 * DO; 0405 00967000 * DCBLRECL=AMDLRECL; /* LRECL FROM AMS DEFINE */ 00968000 L @03,ACBAMBL(,RACB) 0406 00969000 L @03,AMBLDTA(,@03) 0406 00970000 L @03,AMBDSB(,@03) 0406 00971000 L @03,AMDLRECL(,@03) 0406 00972000 STH @03,DCBLRECL(,@05) 0406 00973000 * MLRECL=ON; /* SET MODIFICATION MASK */ 00974000 OI MLRECL(RIICB),B'01000000' 0407 00975000 * IF DCBRECL='10'B& /* IF FIXED LENGTH RECORDS */ 00976000 * DCBRECBR=OFF& /* UNBLOCKED AND */ 00977000 * DCBRKP=ZERO THEN /* RKP = 0 THEN SUB KEYLENGTH TO 00978000 * LRECL */ 00979000 LA @11,28 0408 00980000 ALR @11,RDCB 0408 00981000 TM DCBRECL(@11),B'10000000' 0408 00982000 BNO @RF00408 0408 00983000 TM DCBRECL(@11),B'01000000' 0408 00984000 BNZ @RF00408 0408 00985000 TM DCBRECBR(@11),B'00010000' 0408 00986000 BNZ @RF00408 0408 00987000 CH @07,DCBRKP(,@05) 0408 00988000 BNE @RF00408 0408 00989000 * DCBLRECL=DCBLRECL-DCBKEYLE; 0409 00990000 SLR @07,@07 0409 00991000 IC @07,DCBKEYLE+16(,RDCB) 0409 00992000 SLR @03,@07 0409 00993000 STH @03,DCBLRECL(,@05) 0409 00994000 * IF DCBRECL='01'B THEN /* IF VARIABLE LENGTH RECORDS */ 00995000 @RF00408 TM DCBRECL+28(RDCB),B'01000000' 0410 00996000 BNO @RF00410 0410 00997000 TM DCBRECL+28(RDCB),B'10000000' 0410 00998000 BNZ @RF00410 0410 00999000 * DCBLRECL=DCBLRECL+4; /* ADD 4 TO LRECL FOR RDW */ 01000000 LA @07,52 0411 01001000 ALR @07,RDCB 0411 01002000 LA @05,4 0411 01003000 AH @05,DCBLRECL(,@07) 0411 01004000 STH @05,DCBLRECL(,@07) 0411 01005000 * END; 0412 01006000 @RF00410 DS 0H 0413 01007000 * IF DCBBLKSI=ZERO THEN /* IF BLKSI NOT IN DCB MACRO */ 01008000 @RF00404 LA @07,52 0413 01009000 ALR @07,RDCB 0413 01010000 LH @05,DCBBLKSI(,@07) 0413 01011000 LTR @05,@05 0413 01012000 BNZ @RF00413 0413 01013000 * DO; 0414 01014000 * DCBBLKSI=DCBLRECL; /* SET BLKSI TO COMPUTED LEN */ 01015000 LH @05,DCBLRECL(,@07) 0415 01016000 STH @05,DCBBLKSI(,@07) 0415 01017000 * MBLKSI=ON; /* SET MODIFICATION MASK */ 01018000 OI MBLKSI(RIICB),B'00100000' 0416 01019000 * IF DCBRECL='01'B THEN /* IF VARIABLE LENGTH RECORDS */ 01020000 TM DCBRECL+28(RDCB),B'01000000' 0417 01021000 BNO @RF00417 0417 01022000 TM DCBRECL+28(RDCB),B'10000000' 0417 01023000 BNZ @RF00417 0417 01024000 * DCBBLKSI=DCBBLKSI+4; /* ADD 4 TO BLKSIZE FOR RDW */ 01025000 AL @05,@CF00199 0418 01026000 STH @05,DCBBLKSI(,@07) 0418 01027000 * END; 0419 01028000 * END AMSMERGE; 0420 01029000 @EL00009 DS 0H 0420 01030000 @EF00009 DS 0H 0420 01031000 @ER00009 BR @14 0420 01032000 * 0421 01033000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01034000 ** * 01035000 ** FUNCTION = DCB EXIT * 01036000 ** THIS ROUTINE GIVES CONTROL TO THE ISAM DCB EXIT ROUTINE * 01037000 ** IF ONE IS SPECIFIED IN THE DCB EXIT LIST. REGISTERS ARE * 01038000 ** SAVED IN THE SVRB BEFORE ISSUING A SYNCH TO GIVE THE EXIT * 01039000 ** ROUTINE CONTROL. * 01040000 ** * 01041000 ** INPUT = * 01042000 ** REGISTER 1 - RDCB - DCB POINTER * 01043000 ** REGISTER 2 - RIICB - IICB POINTER * 01044000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 01045000 ** * 01046000 ** OUTPUT = * 01047000 ** REGISTERS - SAME AS ABOVE * 01048000 ** * 01049000 ** PROTECTION KEY = SEE BELOW * 01050000 ** KEY ON ENTRY - USER KEY * 01051000 ** KEY ON EXIT - USER KEY * 01052000 ** INTERIM KEYS ASSUMED = DATA MANAGEMENT KEY 5 * 01053000 ** SYSTEM KEY 0 * 01054000 ** * 01055000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01056000 * 0421 01057000 *DCBEXIT: 0421 01058000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0421 01059000 DCBEXIT DS 0H 0422 01060000 * RESPECIFY 0422 01061000 * (R15, 0422 01062000 * RLKRETSV, 0422 01063000 * RWORK2) RESTRICTED; 0422 01064000 * RLKRETSV=R14; /* SAVE RETURN ADDR @Y021130*/ 01065000 LR RLKRETSV,R14 0423 01066000 * IIFTEST=OFF; 0424 01067000 NI IIFTEST(RIICB),B'11111011' 0424 01068000 * IF DCBEXLSA^=ZERO THEN /* IF EXIT LIST IS PROVIDED */ 01069000 L @11,DCBEXLSA+27(,RDCB) 0425 01070000 LA @11,0(,@11) 0425 01071000 LTR @11,@11 0425 01072000 BZ @RF00425 0425 01073000 * DO RWORK2=DCBEXLSA BY LENGTH(EXLST) WHILE IIFTEST=OFF; 0426 01074000 LR RWORK2,@11 0426 01075000 B @DE00426 0426 01076000 @DL00426 DS 0H 0427 01077000 * IF EXCODE=EXDCB| /* IF DCB EXIT FOUND, */ 01078000 * EXCODE=EXDCBL THEN /* PASS CONTROL */ 01079000 CLI EXCODE(RWORK2),B'00000101' 0427 01080000 BE @RT00427 0427 01081000 CLI EXCODE(RWORK2),B'10000101' 0427 01082000 BNE @RF00427 0427 01083000 @RT00427 DS 0H 0428 01084000 * DO; 0428 01085000 * R15=EXADDR; /* GET ADDR OF USER EXIT */ 01086000 L R15,EXADDR-1(,RWORK2) 0429 01087000 LA R15,0(,R15) 0429 01088000 * R14=ADDR(SVRB); /* GET ADDR OF SVRB */ 01089000 L @11,CVTPTR 0430 01090000 L @11,CVTTCBDW(,@11) 0430 01091000 L @11,TCBPTR(,@11) 0430 01092000 L R14,SVRBPTR(,@11) 0430 01093000 * DO; /* MODESET EXTKEY(ZERO) */ 01094000 * SPKA(0); /* SET PSW KEY */ 01095000 SLR @11,@11 0432 01096000 SPKA 0(@11) 0432 01097000 * END; /* MODESET EXTKEY(ZERO) KEY ZERO 01098000 * FOR STORE INTO SVRB @Y021130*/ 01099000 * 0433 01100000 * /*********************************************************/ 01101000 * /* */ 01102000 * /* DCBDEBAD CONTAINS THE ADDRESS OF THE I/O SUPPORT WORK */ 01103000 * /* AREA TO ENABLE THE DCB EXIT ROUTINE TO REF- ERENCE THE*/ 01104000 * /* FORMAT 2 DSCB. @Y021130*/ 01105000 * /* DSCCORE (THE POINTER TO THE FORMAT 2 DSCB FOR ISAM) IS*/ 01106000 * /* INITIALIZED TO POINT TO HEX 40 BYTES BEFORE THE DCB */ 01107000 * /* FIELD DCBNCHRI. THIS WILL SUPPORT THE FIELD DS2NOBYT */ 01108000 * /* WHICH IS IN THE FORMAT 2 DSCB AT AN OFFSET OF HEX 40 */ 01109000 * /* BYTES BY MAKING THE OFF- SET TO DS2NOBYT COINCIDE WITH*/ 01110000 * /* THE FIELD DCBNCHRI. DCBNCHRI WAS INITIALIZED IN THE */ 01111000 * /* ROUTINE DCBMERGE. */ 01112000 * /* */ 01113000 * /*********************************************************/ 01114000 * 0434 01115000 * DSCCORE=ADDR(DCBESETL)+2;/* SIMULATE THE F2 DSCB POINTER 01116000 * FOR REFERENCE TO DS2NOBYT 0434 01117000 * @Y021130*/ 01118000 LA @11,DCBESETL+52(,RDCB) 0434 01119000 AL @11,@CF00098 0434 01120000 ST @11,DSCCORE(,RCORE) 0434 01121000 * GEN SETS(XRBXSAV); 0435 01122000 * /* @Y021130*/ 01123000 STM R2,R13,XRBXSAV(R14) SAVE REGS-EXTENDED SAVE A 01124000 * DO; /* MODESET KEYADDR(DXUKEY) */ 01125000 * SPKA(DXUKEY); /* SET PSW KEY */ 01126000 SLR @11,@11 0437 01127000 IC @11,DXUKEY(,RCORE) 0437 01128000 SPKA 0(@11) 0437 01129000 * END; /* MODESET KEYADDR(DXUKEY) USER 01130000 * KEY FOR EXIT @Y021130*/ 01131000 * 0438 01132000 * /*********************************************************/ 01133000 * /* */ 01134000 * /* AUDIT DCB EXIT IS BEING TAKEN @Y021130*/ 01135000 * /* */ 01136000 * /*********************************************************/ 01137000 * 0439 01138000 * AUDDCBEX=ON; /* SET FLAG IN IICB @Y021130*/ 01139000 OI AUDDCBEX(RIICB),B'00100000' 0439 01140000 * GEN REFS(XRBREG); 0440 01141000 * /* @Y021130*/ 01142000 LM R2,R13,XRBREG+8(R14) RELOAD USER REGS 01143000 * DCBOFUEX=OFF; /* TURN ON DCB LOCK BIT (0) */ 01144000 NI DCBOFUEX+40(RDCB),B'11111101' 0441 01145000 * GEN(SYNCH (15)); /* GO TO USER DCB EXIT */ 01146000 SYNCH (15) 01147000 * R14=ADDR(SVRB); /* FIND SVRB AGAIN RELOAD REGS */ 01148000 L @11,CVTPTR 0443 01149000 L @11,CVTTCBDW(,@11) 0443 01150000 L @11,TCBPTR(,@11) 0443 01151000 L R14,SVRBPTR(,@11) 0443 01152000 * GEN REFS(XRBXSAV); 0444 01153000 LM R2,R13,XRBXSAV(R14) 01154000 * DO; /* MODESET EXTKEY(DATAMGT) */ 01155000 * SPKA(80); /* SET PSW KEY */ 01156000 LA @11,80 0446 01157000 SPKA 0(@11) 0446 01158000 * END; /* MODESET EXTKEY(DATAMGT) ASSUME 01159000 * DATA MANAGEMENT KEY @Y021130*/ 01160000 * DSCCORE=ZERO; /* RESET F2 DSCB POINTER TO ZERO 01161000 * @Y021130*/ 01162000 SLR @11,@11 0448 01163000 ST @11,DSCCORE(,RCORE) 0448 01164000 * DO; /* MODESET KEYADDR(DXUKEY) */ 01165000 * SPKA(DXUKEY); /* SET PSW KEY */ 01166000 SLR @11,@11 0450 01167000 IC @11,DXUKEY(,RCORE) 0450 01168000 SPKA 0(@11) 0450 01169000 * END; /* MODESET KEYADDR(DXUKEY) USER 01170000 * KEY FOR EXIT @Y021130*/ 01171000 * 0451 01172000 * /*********************************************************/ 01173000 * /* */ 01174000 * /* AUDIT THAT DCB EXIT HAS RETURNED @Y021130*/ 01175000 * /* */ 01176000 * /*********************************************************/ 01177000 * 0452 01178000 * AUDDCBRT=ON; /* SET FLAG IN IICB @Y021130*/ 01179000 OI AUDDCBRT(RIICB),B'00010000' 0452 01180000 * RDCB=DXUDCBAD; /* RESTORE DCB PTR @Y021130*/ 01181000 L RDCB,DXUDCBAD(,RCORE) 0453 01182000 * DCBOFUEX=ON; /* TURN OFF DCB LOCK BIT (1) 0454 01183000 * @Y021130*/ 01184000 OI DCBOFUEX+40(RDCB),B'00000010' 0454 01185000 * END; /* NO DCB EXIT IN EXLST */ 01186000 * IF EXLAST=ON THEN /* IF LAST ENTRY */ 01187000 @RF00427 TM EXLAST(RWORK2),B'10000000' 0456 01188000 BNO @RF00456 0456 01189000 * IIFTEST=ON; /* STOP SEARCHING */ 01190000 OI IIFTEST(RIICB),B'00000100' 0457 01191000 * END; 0458 01192000 @RF00456 AL RWORK2,@CF00199 0458 01193000 @DE00426 TM IIFTEST(RIICB),B'00000100' 0458 01194000 BZ @DL00426 0458 01195000 * R14=RLKRETSV; /* RESTORE RETURN ADDRESS 0459 01196000 * @Y021130*/ 01197000 @RF00425 LR R14,RLKRETSV 0459 01198000 * RESPECIFY 0460 01199000 * (R15, 0460 01200000 * RLKRETSV, 0460 01201000 * RWORK2) UNRESTRICTED; 0460 01202000 * END DCBEXIT; 0461 01203000 @EL00010 DS 0H 0461 01204000 @EF00010 DS 0H 0461 01205000 @ER00010 BR @14 0461 01206000 * 0462 01207000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01208000 ** * 01209000 ** FUNCTION = VALIDITY CHECK * 01210000 ** THIS ROUTINE VALIDITY CHECKS THE DATA SET ATTRIBUTES THAT * 01211000 ** WERE SPECIFIED WHEN THE VSAM DATA SET WAS DEFINED BY AMS. * 01212000 ** THIS CHECK WILL BE PERFORMED BY COMPARING THE VALUES FOR * 01213000 ** KEYLE, RKP AND LRECL IN THE DCB WITH THE CORRESPONDING * 01214000 ** FIELDS IN THE VSAM AMDSB. THIS COMPARE IS UNABLE TO DETECT * 01215000 ** AMS DEFINE ERRORS IF THESE FIELDS WERE SPECIFIED IN THE DD * 01216000 ** CARD WHEN ISAM WAS USED. THIS ROUTINE WILL ABEND IF THE * 01217000 ** ABOVE VALIDITY CHECK FAILS OR IF DISP=OLD IS SPECIFIED WHEN * 01218000 ** THE DCB IS OPENED FOR OUTPUT (LOAD MODE) SINCE THE ISAM * 01219000 ** INTERFACE DOES NOT SUPPORT RELOADING THE DATA SET. * 01220000 ** * 01221000 ** INPUT = * 01222000 ** REGISTER 1 - RDCB - DCB POINTER * 01223000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 01224000 ** REGISTER 6 - RACB - ACB POINTER * 01225000 ** * 01226000 ** OUTPUT = * 01227000 ** SAME AS ABOVE * 01228000 ** ABEND 03B - ERROR * 01229000 ** * 01230000 ** PROTECTION KEY = SEE BELOW * 01231000 ** KEY ON ENTRY - USER KEY * 01232000 ** KEY ON EXIT - USER KEY * 01233000 ** INTERIM KEYS ASSUMED = NONE * 01234000 ** * 01235000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01236000 * 0462 01237000 *VALIDCHK: 0462 01238000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0462 01239000 VALIDCHK DS 0H 0463 01240000 * RESPECIFY 0463 01241000 * (JFCBPTR) RESTRICTED; 0463 01242000 * JFCBPTR=ADDR(DXJBF); /* INIT JFCB POINTER @Y021130*/ 01243000 LA JFCBPTR,DXJBF(,RCORE) 0464 01244000 * IF JFCDISP='01'B& /* IF DISP = OLD AND */ 01245000 * AMDNLR>ZERO& /* DATA SET CONTAINS RECORDS */ 01246000 * (DCBMFMVP=ON| /* AND LOAD MODE (PUT MOVE */ 01247000 * DCBMFLCP=ON) THEN /* OR PUT LOCATE) */ 01248000 TM JFCDISP(JFCBPTR),B'01000000' 0465 01249000 BNO @RF00465 0465 01250000 TM JFCDISP(JFCBPTR),B'10000000' 0465 01251000 BNZ @RF00465 0465 01252000 L @15,ACBAMBL(,RACB) 0465 01253000 L @15,AMBLDTA(,@15) 0465 01254000 L @15,AMBDSB(,@15) 0465 01255000 L @15,AMDNLR(,@15) 0465 01256000 LTR @15,@15 0465 01257000 BNP @RF00465 0465 01258000 TM DCBMFMVP+40(RDCB),B'00011000' 0465 01259000 BNZ @RT00465 0465 01260000 * GO TO EXIT3B; /* THEN ABEND BECAUSE RELOAD IS 01261000 * NOT SUPPORTED */ 01262000 * RESPECIFY 0467 01263000 * (JFCBPTR) UNRESTRICTED; 0467 01264000 @RF00465 DS 0H 0468 01265000 * IF DCBKEYLE=AMDKEYLN& /* IF KEY LENGTH IS OK CHECK 0468 01266000 * RELATIVE KEY POSITN */ 01267000 * ((DCBRECL='10'B& /* RKP IS OK IF IT IS THE */ 01268000 * AMDRKP=DCBRKP)| /* SAME FOR FIXED LENGTH RCDS */ 01269000 * (DCBRECL='01'B& /* OR 4 HAS BEEN SUBTRACTED */ 01270000 * AMDRKP=DCBRKP-4))& /* FOR VARIABLE LENGTH RECDS 0468 01271000 * CHECK LOGICAL RECORD LEN */ 01272000 * (DCBRECL='10'B& /* LRECL IS OK IF KEY LENGTH */ 01273000 * (DCBRECBR=OFF& /* HAS BEEN ADDED FOR FIXED, */ 01274000 * (DCBRKP=ZERO& /* UNBLKD, RKP=0 RECORDS OR */ 01275000 * AMDLRECL=DCBLRECL+DCBKEYLE)|(DCBRKP>ZERO&/* LRECL IS THE SAME 01276000 * FOR */ 01277000 * AMDLRECL=DCBLRECL))| /* FIXED, UNBLKD, RKP>0 OR */ 01278000 * (DCBRECBR=ON& /* LRECL IS THE SAME FOR */ 01279000 * AMDLRECL=DCBLRECL))| /* FIXED, BLOCKED RECORDS OR */ 01280000 * (DCBRECL='01'B& /* 4 HAS BEEN SUBTRACTED FOR */ 01281000 * AMDLRECL=DCBLRECL-4) THEN /* VARIABLE LENGTH RECORDS */ 01282000 L @15,ACBAMBL(,RACB) 0468 01283000 L @15,AMBLDTA(,@15) 0468 01284000 L @15,AMBDSB(,@15) 0468 01285000 SLR @07,@07 0468 01286000 IC @07,DCBKEYLE+16(,RDCB) 0468 01287000 CH @07,AMDKEYLN(,@15) 0468 01288000 BNE @GL00013 0468 01289000 TM DCBRECL+28(RDCB),B'10000000' 0468 01290000 BNO @GL00016 0468 01291000 TM DCBRECL+28(RDCB),B'01000000' 0468 01292000 BNZ @GL00016 0468 01293000 CLC AMDRKP(2,@15),DCBRKP+52(RDCB) 0468 01294000 BE @GL00014 0468 01295000 @GL00016 TM DCBRECL+28(RDCB),B'01000000' 0468 01296000 BNO @GL00013 0468 01297000 TM DCBRECL+28(RDCB),B'10000000' 0468 01298000 BNZ @GL00013 0468 01299000 L @15,ACBAMBL(,RACB) 0468 01300000 L @15,AMBLDTA(,@15) 0468 01301000 L @15,AMBDSB(,@15) 0468 01302000 LH @07,DCBRKP+52(,RDCB) 0468 01303000 SL @07,@CF00199 0468 01304000 CH @07,AMDRKP(,@15) 0468 01305000 BNE @GL00013 0468 01306000 @GL00014 LA @15,28 0468 01307000 ALR @15,RDCB 0468 01308000 TM DCBRECL(@15),B'10000000' 0468 01309000 BNO @GL00019 0468 01310000 TM DCBRECL(@15),B'01000000' 0468 01311000 BNZ @GL00019 0468 01312000 TM DCBRECBR(@15),B'00010000' 0468 01313000 BNZ @GL00021 0468 01314000 LA @15,52 0468 01315000 ALR @15,RDCB 0468 01316000 LH @07,DCBRKP(,@15) 0468 01317000 LTR @07,@07 0468 01318000 BNZ @GL00021 0468 01319000 L @07,ACBAMBL(,RACB) 0468 01320000 L @07,AMBLDTA(,@07) 0468 01321000 L @07,AMBDSB(,@07) 0468 01322000 SLR @05,@05 0468 01323000 IC @05,DCBKEYLE+16(,RDCB) 0468 01324000 AH @05,DCBLRECL(,@15) 0468 01325000 C @05,AMDLRECL(,@07) 0468 01326000 BE @RT00468 0468 01327000 @GL00021 LA @15,52 0468 01328000 ALR @15,RDCB 0468 01329000 LH @07,DCBRKP(,@15) 0468 01330000 LTR @07,@07 0468 01331000 BNP @GL00019 0468 01332000 L @07,ACBAMBL(,RACB) 0468 01333000 L @07,AMBLDTA(,@07) 0468 01334000 L @07,AMBDSB(,@07) 0468 01335000 L @07,AMDLRECL(,@07) 0468 01336000 CH @07,DCBLRECL(,@15) 0468 01337000 BE @RT00468 0468 01338000 @GL00019 TM DCBRECBR+28(RDCB),B'00010000' 0468 01339000 BNO @GL00013 0468 01340000 L @15,ACBAMBL(,RACB) 0468 01341000 L @15,AMBLDTA(,@15) 0468 01342000 L @15,AMBDSB(,@15) 0468 01343000 L @15,AMDLRECL(,@15) 0468 01344000 CH @15,DCBLRECL+52(,RDCB) 0468 01345000 BE @RT00468 0468 01346000 @GL00013 TM DCBRECL+28(RDCB),B'01000000' 0468 01347000 BNO @RF00468 0468 01348000 TM DCBRECL+28(RDCB),B'10000000' 0468 01349000 BNZ @RF00468 0468 01350000 L @15,ACBAMBL(,RACB) 0468 01351000 L @15,AMBLDTA(,@15) 0468 01352000 L @15,AMBDSB(,@15) 0468 01353000 LH @07,DCBLRECL+52(,RDCB) 0468 01354000 SL @07,@CF00199 0468 01355000 C @07,AMDLRECL(,@15) 0468 01356000 BE @RT00468 0468 01357000 * GO TO ENDCHECK; /* KEYLE, LRECL & RKP ARE OK */ 01358000 * ELSE 0470 01359000 * DO; 0470 01360000 @RF00468 DS 0H 0471 01361000 *EXIT3B: 0471 01362000 * DO; /* ABEND(ABEND3B) DUMP SYSTEM */ 01363000 EXIT3B DS 0H 0472 01364000 * RESPECIFY 0472 01365000 * (GPR01F) RESTRICTED; 0472 01366000 * GPR01F=((ABEND3B)&'00000FFF'X)*4096;/* COMP CODE IN BITS 0473 01367000 * 8-19 */ 01368000 L GPR01F,@CF02487 0473 01369000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 01370000 O GPR01F,@CF02428 0474 01371000 * SVC(13); /* ISSUE ABEND SVC */ 01372000 SVC 13 0475 01373000 * RESPECIFY 0476 01374000 * (GPR01F) UNRESTRICTED; 0476 01375000 * END; /* ABEND(ABEND3B) DUMP SYSTEM 0477 01376000 * X'03B' - ISSUE ABEND @Y021130*/ 01377000 * END; 0478 01378000 *ENDCHECK: 0479 01379000 * END VALIDCHK; 0479 01380000 @EL00011 DS 0H 0479 01381000 @EF00011 DS 0H 0479 01382000 @ER00011 BR @14 0479 01383000 * 0480 01384000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01385000 ** * 01386000 ** FUNCTION = BUFFER MERGE * 01387000 ** THIS ROUTINE MERGES THE BUFFER RELATED FIELDS TO THE DCB * 01388000 ** FIELDS THAT ARE ZERO. * 01389000 ** * 01390000 ** INPUT = * 01391000 ** REGISTER 1 - RDCB - DCB POINTER * 01392000 ** REGISTER 2 - RIICB - IICB POINTER * 01393000 ** REGISTER 6 - RACB - ACB POINTER * 01394000 ** * 01395000 ** OUTPUT = * 01396000 ** REGISTERS - SAME AS ABOVE * 01397000 ** CONTROL BLOCK FIELDS INITIALIZED * 01398000 ** DCBFA * 01399000 ** DCBUFNO * 01400000 ** DCBBUFL * 01401000 ** AMBLNST --> DCBBUFNO * 01402000 ** IIBUFL * 01403000 ** IIBUFNO * 01404000 ** * 01405000 ** PROTECTION KEY = SEE BELOW * 01406000 ** KEY ON ENTRY - USER KEY * 01407000 ** KEY ON EXIT - USER KEY * 01408000 ** INTERIM KEYS ASSUMED = NONE * 01409000 ** * 01410000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01411000 * 0480 01412000 *BFRMERGE: 0480 01413000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0480 01414000 BFRMERGE DS 0H 0481 01415000 * IF DCBBFA=BZERO THEN /* BFALN NOT IN DCB MACRO */ 01416000 LA @15,28 0481 01417000 ALR @15,RDCB 0481 01418000 TM DCBBFA(@15),B'00000011' 0481 01419000 BNZ @RF00481 0481 01420000 * DO; 0482 01421000 * MBFALN=ON; /* SET DEB MODIFICATION MASK */ 01422000 OI MBFALN(RIICB),B'10000000' 0483 01423000 * DCBBFA='10'B; /* DEFAULT TO DOUBLEWORD */ 01424000 NI DCBBFA(@15),B'11111110' 0484 01425000 OI DCBBFA(@15),B'00000010' 0484 01426000 * END; 0485 01427000 * IIBUFNO=CMBNST; /* II BUFFER NO = STRING NO 0486 01428000 * @Z30SSRL 01429000 * IF QISAM */ 01430000 @RF00481 L @15,ACBAMBL(,RACB) 0486 01431000 L @15,AMBLCMB(,@15) 0486 01432000 IC @07,CMBNST(,@15) 0486 01433000 STC @07,IIBUFNO(,RIICB) 0486 01434000 * IF DCBMFGET=ON|DCBMFPUT=ON THEN 0487 01435000 LA @15,40 0487 01436000 ALR @15,RDCB 0487 01437000 TM DCBMFGET(@15),B'01000000' 0487 01438000 BO @RT00487 0487 01439000 TM DCBMFPUT(@15),B'01000000' 0487 01440000 BNO @RF00487 0487 01441000 @RT00487 DS 0H 0488 01442000 * DO; 0488 01443000 * IIBUFNO=ONE; /* INIT II BUFFER NUMBER */ 01444000 MVI IIBUFNO(RIICB),X'01' 0489 01445000 * IF DCBBUFCA=ONE THEN /* IF BUFFERS HAVE NOT BEEN */ 01446000 LA @15,16 0490 01447000 ALR @15,RDCB 0490 01448000 CLC DCBBUFCA(3,@15),@CF00087+1 0490 01449000 BNE @RF00490 0490 01450000 * DCBBUFNO=ONE; /* SUPPLIED, SET BUFNO=ONE */ 01451000 MVI DCBBUFNO(@15),X'01' 0491 01452000 * END; 0492 01453000 @RF00490 DS 0H 0493 01454000 * IF DCBBUFNO=ZERO THEN /* IF BUFNO NOT IN DCB MACRO */ 01455000 @RF00487 LA @15,16 0493 01456000 ALR @15,RDCB 0493 01457000 CLI DCBBUFNO(@15),0 0493 01458000 BNE @RF00493 0493 01459000 * DO; 0494 01460000 * DCBBUFNO=IIBUFNO; /* SET BUFNO TO II BUFFER NO */ 01461000 IC @07,IIBUFNO(,RIICB) 0495 01462000 STC @07,DCBBUFNO(,@15) 0495 01463000 * MBUFNO=ON; /* SET MODIFICATION MASK */ 01464000 OI MBUFNO(RIICB),B'00000010' 0496 01465000 * END; 0497 01466000 * IF AMDLRECL>DCBLRECL THEN /* SET II BUFFER LENGTH TO */ 01467000 @RF00493 L @15,ACBAMBL(,RACB) 0498 01468000 L @15,AMBLDTA(,@15) 0498 01469000 L @15,AMBDSB(,@15) 0498 01470000 L @15,AMDLRECL(,@15) 0498 01471000 CH @15,DCBLRECL+52(,RDCB) 0498 01472000 BNH @RF00498 0498 01473000 * IIBUFL=AMDLRECL; /* THE GREATER VALUE OF */ 01474000 STH @15,IIBUFL(,RIICB) 0499 01475000 * ELSE 0500 01476000 * IIBUFL=DCBLRECL; /* AMDLRECL OR DCBLRECL */ 01477000 B @RC00498 0500 01478000 @RF00498 LH @15,DCBLRECL+52(,RDCB) 0500 01479000 STH @15,IIBUFL(,RIICB) 0500 01480000 * IIMAXLRL=IIBUFL; /* SAVE MAXIMUM LOGICAL REC 0501 01481000 * LENGTH @Y021130*/ 01482000 @RC00498 LH @15,IIBUFL(,RIICB) 0501 01483000 STH @15,IIMAXLRL(,RIICB) 0501 01484000 * RESPECIFY 0502 01485000 * RWORK2 RESTRICTED; 0502 01486000 * RWORK2=IIBUFL; /* RECORD LENGTH @YM05335*/ 01487000 LR RWORK2,@15 0503 01488000 * RWORK2=((RWORK2+7)/8)*8; /* ROUND TO MULTIPLE OF 8 0504 01489000 * @YM05335*/ 01490000 LA @15,8 0504 01491000 LA @08,7 0504 01492000 ALR @08,RWORK2 0504 01493000 SRDA @08,32 0504 01494000 DR @08,@15 0504 01495000 SLA @09,3 0504 01496000 LR RWORK2,@09 0504 01497000 * IIBUFL=RWORK2; /* BUFFER LENGTH @YM05335*/ 01498000 STH RWORK2,IIBUFL(,RIICB) 0505 01499000 * RESPECIFY 0506 01500000 * RWORK2 UNRESTRICTED; 0506 01501000 * IF DCBBFA='01'B THEN /* IF FULLWORD ALIGNMENT */ 01502000 TM DCBBFA+28(RDCB),B'00000001' 0507 01503000 BNO @RF00507 0507 01504000 TM DCBBFA+28(RDCB),B'00000010' 0507 01505000 BNZ @RF00507 0507 01506000 * IIBUFL=IIBUFL+8; /* ADD 8 BYTES */ 01507000 LH @07,IIBUFL(,RIICB) 0508 01508000 ALR @07,@15 0508 01509000 STH @07,IIBUFL(,RIICB) 0508 01510000 * IF DCBMFRD=ON| /* IF BISAM @YM05335*/ 01511000 * DCBMFWRT=ON THEN /* THEN ADD 16 BYTES @YM05335*/ 01512000 @RF00507 LA @15,40 0509 01513000 ALR @15,RDCB 0509 01514000 TM DCBMFRD(@15),B'00100000' 0509 01515000 BO @RT00509 0509 01516000 TM DCBMFWRT(@15),B'00100000' 0509 01517000 BNO @RF00509 0509 01518000 @RT00509 DS 0H 0510 01519000 * IIBUFL=IIBUFL+16; /* FOR PAD AND LINK @YM05335*/ 01520000 LA @15,16 0510 01521000 AH @15,IIBUFL(,RIICB) 0510 01522000 STH @15,IIBUFL(,RIICB) 0510 01523000 * IF DCBBUFL=ZERO THEN /* IF BUFL NOT IN DCB MACRO */ 01524000 @RF00509 LA @15,16 0511 01525000 ALR @15,RDCB 0511 01526000 LH @07,DCBBUFL(,@15) 0511 01527000 LTR @07,@07 0511 01528000 BNZ @RF00511 0511 01529000 * DO; 0512 01530000 * DCBBUFL=IIBUFL; /* CALCULATE BUFFER LENGTH */ 01531000 LH @07,IIBUFL(,RIICB) 0513 01532000 STH @07,DCBBUFL(,@15) 0513 01533000 * MBUFL=ON; /* SET DEB MODIFICATION MASK */ 01534000 OI MBUFL(RIICB),B'00000100' 0514 01535000 * END; 0515 01536000 * END BFRMERGE; 0516 01537000 @EL00012 DS 0H 0516 01538000 @EF00012 DS 0H 0516 01539000 @ER00012 BR @14 0516 01540000 * 0517 01541000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01542000 ** * 01543000 ** FUNCTION = BUILD DEB * 01544000 ** THIS ROUTINE BUILDS AN ISAM INTERFACE DUMMY DEB. IT IS * 01545000 ** CHAINED TO THE CURRENT TCB AND THE ISAM DCB. THE DEB * 01546000 ** POINTS TO THE IICB TO LINK THE ISAM AND VSAM BLOCKS. * 01547000 ** THE PURPOSE OF THIS DEB IS TO SUPPORT ISAM PROBLEM PROGRAM * 01548000 ** REFERENCES, CHECKPOINT/RESTART, SUPERVISOR TASK * 01549000 ** TERMINATION AND ABEND. * 01550000 ** * 01551000 ** INPUT = * 01552000 ** REGISTER 1 - RDCB - DCB POINTER * 01553000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 01554000 ** * 01555000 ** OUTPUT = * 01556000 ** REGISTER 1 - RDCB - DCB POINTER * 01557000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 01558000 ** REGISTER 11 - RDEB - DEB POINTER * 01559000 ** * 01560000 ** CONTROL BLOCK FIELDS INITIALIZED * 01561000 ** DCBDEBAD (USER DCB) * 01562000 ** DCBDEVT (USER DCB) * 01563000 ** DCBDEBAD (COPY DCB - FIELD DXPDEBAD FORMERLY USED) * 01564000 ** TCBDEB * 01565000 ** * 01566000 ** DEB * 01567000 ** SECTION BYTES FIELDS * 01568000 ** APPEND 20 @OX02677* 01569000 ** PREFIX 16 LNGTH, XTNP * 01570000 ** BASIC 32 TCBAD, AMLNG, DEBAD, OFLGS* 01571000 ** OPATB, FLGS1, NMEXT, PRIOR* 01572000 ** PROTG, DEBID, DCBAD, EXSCL* 01573000 ** APPAD * 01574000 ** ISAM DEVICE 16 EXPTR, FPEAD * 01575000 ** DIRECT ACCESS 16 UCBAD * 01576000 ** ISAM ACCESS METHOD 28 WKPT5 * 01577000 ** EXTENSION XDBPR * 01578000 ** * 01579000 ** PROTECTION KEY = SEE BELOW * 01580000 ** KEY ON ENTRY - USER KEY * 01581000 ** KEY ON EXIT - USER KEY * 01582000 ** INTERIM KEYS ASSUMED = DATA MANAGEMENT KEY 5 * 01583000 ** SYSTEM KEY 0 * 01584000 ** * 01585000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01586000 * 0517 01587000 *BUILDDEB: 0517 01588000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0517 01589000 BUILDDEB DS 0H 0518 01590000 * RESPECIFY 0518 01591000 * (RWORK2, 0518 01592000 * JFCBPTR, 0518 01593000 * RLKRETSV, 0518 01594000 * RTIOT, 0518 01595000 * RPARC) RESTRICTED; 0518 01596000 * RLKRETSV=R14; /* SAVE RETURN ADDR @Y021130 01597000 * LENGTH OF DUMMY DEB */ 01598000 LR RLKRETSV,R14 0519 01599000 * RWORK2=(LENGTH(DEB)+ /* APPEND, PREFIX, @OZ02677*/ 01600000 * LENGTH(DEBBASIC)+ /* BASIC, @Y021130*/ 01601000 * LENGTH(DEBISAM)+ /* ISAM DEPENDENT SECTION, */ 01602000 * LENGTH(DEBDASD)+ /* ONE DUMMY EXTENT, */ 01603000 * LENGTH(DEBACS08)); /* AND BISAM EXTENSION */ 01604000 LA RWORK2,128 0520 01605000 * RESPECIFY 0521 01606000 * (RGMLEN) RESTRICTED; /* @Y021130*/ 01607000 * RGMLEN=((RWORK2+7)/8)*8; /* ROUND TO A DOUBLE WORD 0522 01608000 * @Y021130*/ 01609000 LA @08,7 0522 01610000 ALR @08,RWORK2 0522 01611000 SRDA @08,32 0522 01612000 D @08,@CF00045 0522 01613000 SLA RGMLEN,3 0522 01614000 * RESPECIFY 0523 01615000 * (RGMSP) RESTRICTED; /* @Y021130*/ 01616000 * RGMSP=DEBPOOL; /* INIT SUBPOOL NUMBER @Y021130*/ 01617000 LA RGMSP,230 0524 01618000 * CALL GETMAIN; /* GET CORE FOR DEB AND ZERO */ 01619000 BAL @14,GETMAIN 0525 01620000 * RESPECIFY 0526 01621000 * (RWORK2, 0526 01622000 * RGMSP, 0526 01623000 * RGMLEN, 0526 01624000 * RLKRETSV) UNRESTRICTED; 0526 01625000 * RESPECIFY 0527 01626000 * RDEB RESTRICTED; 0527 01627000 * RDEB=MAINADDR; /* POINTER TO OBTAINED CORE */ 01628000 * 0528 01629000 L RDEB,MAINADDR(,RCORE) 0528 01630000 * /*****************************************************************/ 01631000 * /* */ 01632000 * /* INITIALIZE THE ISAM INTERFACE DUMMY DEB */ 01633000 * /* */ 01634000 * /*****************************************************************/ 01635000 * 0529 01636000 * RDEB=RDEB+LENGTH(DEB); /* BASIC SECTION PTR @OZ02677*/ 01637000 LA @15,36 0529 01638000 ALR RDEB,@15 0529 01639000 * DCBDEBA=RDEB; /* INIT DCB PTR TO DEB @Y021130*/ 01640000 STCM RDEB,7,DCBDEBA+40(RDCB) 0530 01641000 * RTIOT=DXTIOTAD; /* LOCATE DD ENTRY IN OPEN WORK 01642000 * AREA @Y021130*/ 01643000 L RTIOT,DXTIOTAD(,RCORE) 0531 01644000 * DCBDEVT=UCBTYP; /* DCB DEV TYPE @Y021130*/ 01645000 LA @10,16 0532 01646000 LR @08,RDCB 0532 01647000 ALR @08,@10 0532 01648000 L @05,TIOEFSRT-1(,RTIOT) 0532 01649000 LA @05,0(,@05) 0532 01650000 MVC DCBDEVT(1,@08),UCBTYP(@05) 0532 01651000 * DO; /* MODESET EXTKEY(DATAMGT) */ 01652000 * SPKA(80); /* SET PSW KEY */ 01653000 LA @08,80 0534 01654000 SPKA 0(@08) 0534 01655000 * END; /* MODESET EXTKEY(DATAMGT) DATA 01656000 * MANAGEMENT KEY FOR DEB 0535 01657000 * @Y021130*/ 01658000 * DEBUCBA=TIOEFSRT; /* VSAM UCB PTR @Y021130*/ 01659000 LA @08,DEBISAM(,RDEB) 0536 01660000 ALR @08,@10 0536 01661000 STCM @05,7,DEBUCBA(@08) 0536 01662000 * RESPECIFY 0537 01663000 * (RTIOT) UNRESTRICTED; /* @Y021130*/ 01664000 * DEBAPPB=RDEB-LENGTH(DEB); /* ADDRESSABILITY FOR LNGTH */ 01665000 LCR @15,@15 0538 01666000 ALR @15,RDEB 0538 01667000 STCM @15,7,DEBAPPB(RDEB) 0538 01668000 * DEBLNGTH=MAINLEN/EIGHT; /* DOUBLEWORK LENGTH IN DEB */ 01669000 L @10,MAINLEN-1(,RCORE) 0539 01670000 LA @10,0(,@10) 0539 01671000 SRL @10,3 0539 01672000 STC @10,DEBLNGTH(,@15) 0539 01673000 * DEBTCBB=TCBPTR; /* INIT DEB PTR TO TCB */ 01674000 L @15,CVTPTR 0540 01675000 L @15,CVTTCBDW(,@15) 0540 01676000 MVC DEBTCBB(3,RDEB),TCBPTR+1(@15) 0540 01677000 * DEBAMLNG=LENGTH(DEBACS08); /* ACCESS METHOD SECTION LEN */ 01678000 MVI DEBAMLNG(RDEB),X'1C' 0541 01679000 * JFCBPTR=ADDR(DXJBF); /* INIT JFCB POINTER @Y021130*/ 01680000 LA JFCBPTR,DXJBF(,RCORE) 0542 01681000 * DEBOFLGS='11'B; /* DISP BITS TO BE MAPPED */ 01682000 MVI DEBOFLGS(RDEB),B'11000000' 0543 01683000 * DEBOFLGS=DEBOFLGS&JFCBIND2; /* INSERT DISP FROM THE JFCB */ 01684000 NC DEBOFLGS(1,RDEB),JFCBIND2(JFCBPTR) 0544 01685000 * RESPECIFY 0545 01686000 * JFCBPTR UNRESTRICTED; 0545 01687000 * R13=IIRSAVE; /* RESTORE SAVE AREA POINTER */ 01688000 L R13,IIRSAVE(,RCORE) 0546 01689000 * GEN(L RPARC,48(R13)); /* RESTORE RPARC */ 01690000 L RPARC,48(R13) 01691000 * DEBOPATB=PARCOPT; /* MOVE OPTION BYTE FROM I/O 0548 01692000 * (REFERENCED BY COBOL) */ 01693000 MVC DEBOPATB(1,RDEB),PARCOPT(RPARC) 0548 01694000 * RESPECIFY 0549 01695000 * RPARC UNRESTRICTED; /* PARM LIST-HIGH ORDER BIT */ 01696000 * DEBABEND=OFF; /* TO 0 TO INIT DEBACCS */ 01697000 NI DEBABEND(RDEB),B'01111111' 0550 01698000 * DEBCINDI=ON; /* TURN ON INTERFACE (CI) BIT */ 01699000 * DEBXTNIN=ON; /* SHOW EXTSN EXISTS @OZ18535*/ 01700000 OI DEBCINDI(RDEB),B'00001001' 0552 01701000 * DEBNMEXT=2; /* TWO EXTENTS PRESENT */ 01702000 MVI DEBNMEXT(RDEB),X'02' 0553 01703000 * DEBPRIOR=TCBDSP; /* MOVE PRIORITY FROM TCB */ 01704000 L @15,CVTPTR 0554 01705000 L @15,CVTTCBDW(,@15) 0554 01706000 L @15,TCBPTR(,@15) 0554 01707000 IC @10,TCBDSP(,@15) 0554 01708000 STC @10,DEBPRIOR(,RDEB) 0554 01709000 * DEBDCBB=RDCB; /* INIT DEB DCB POINTER */ 01710000 STCM RDCB,7,DEBDCBB(RDEB) 0555 01711000 * DEBPROTG=DXUKEY|DEBID; /* TCB PROTECT KEY/DEB ID */ 01712000 MVC DEBPROTG(1,RDEB),DXUKEY(RCORE) 0556 01713000 OC DEBPROTG(1,RDEB),DEBID 0556 01714000 * DEBEXSCL=4; /* DA EXTENT SCALE @OZ02677*/ 01715000 MVI DEBEXSCL(RDEB),X'04' 0557 01716000 * DEBEXPTA=RDEB+ /* ADDR OF ISAM AM SECTION */ 01717000 * (LENGTH(DEBBASIC))+LENGTH(DEBISAM)+LENGTH(DEBDASD);/* 0558 01718000 * @Y021130*/ 01719000 LA @10,64 0558 01720000 ALR @10,RDEB 0558 01721000 STCM @10,7,DEBEXPTA(RDEB) 0558 01722000 * DEBFPEB=ADDR(DEBDASD); /* SUPPORT PP TO GET TO UCB */ 01723000 LA @10,DEBISAM(,RDEB) 0559 01724000 AL @10,@CF00210 0559 01725000 STCM @10,7,DEBFPEB(RDEB) 0559 01726000 * DEBWKPT5=RIICB; /* ADDR OF IICB */ 01727000 L @10,DEBEXPT(,RDEB) 0560 01728000 ST RIICB,DEBWKPT5(,@10) 0560 01729000 * DEBXTNP=DXDEBXAD; /* CONNECT DEB EXTENSION TO DEB 01730000 * USING PTR IN OPEN WORK AREA 0561 01731000 * @Y021130*/ 01732000 L @10,DXDEBXAD(,RCORE) 0561 01733000 LR @07,RDEB 0561 01734000 AL @07,@CF02508 0561 01735000 ST @10,DEBXTNP-28(,@07) 0561 01736000 * DEBXDBPR=RDEB; /* POINT DEB EXTENSION TO BASIC 01737000 * DEB @Y021130*/ 01738000 * 0562 01739000 ST RDEB,DEBXDBPR(,@10) 0562 01740000 * /*****************************************************************/ 01741000 * /* */ 01742000 * /* CHAIN THE DEB */ 01743000 * /* */ 01744000 * /*****************************************************************/ 01745000 * 0563 01746000 * DO; /* MODESET EXTKEY(ZERO) */ 01747000 * SPKA(0); /* SET PSW KEY */ 01748000 SLR @10,@10 0564 01749000 SPKA 0(@10) 0564 01750000 * END; /* MODESET EXTKEY(ZERO) ASSUME 0565 01751000 * KEY ZERO FOR STORE IN TCB 0565 01752000 * @Y021130*/ 01753000 * RESPECIFY 0566 01754000 * (RWORK2, 0566 01755000 * R10) RESTRICTED; /* @Y021130*/ 01756000 * R10=TCBPTR; /* GET ADDRESSIBILITY ON TCB 0567 01757000 * @Y021130*/ 01758000 LR R10,@15 0567 01759000 * RESPECIFY 0568 01760000 * (TCB) BASED(R10); /* HOLD IN REG DOING DEB CHAINING 01761000 * @Y021130*/ 01762000 * RWORK2=TCBDEB; /* PREPARE FOR COMPARE AND SWAP 01763000 * FOR ADDING DEB TO CHAIN 0569 01764000 * @Y021130*/ 01765000 L RWORK2,TCBDEB(,R10) 0569 01766000 *CSRETRY: 0570 01767000 * DEBDEBB=RWORK2; /* UPDATE OUR DEB TO POINT TO 0570 01768000 * PREVIOUS @Y021130*/ 01769000 CSRETRY STCM RWORK2,7,DEBDEBB(RDEB) 0570 01770000 * CS(RWORK2,RDEB,TCBDEB); /* ADD OUR DEB TO CHAIN @Y021130*/ 01771000 CS RWORK2,@11,TCBDEB(R10) 0571 01772000 * BC(7,CSRETRY); /* LOOP UNTIL SUCCESSFUL @Y021130*/ 01773000 BC 7,CSRETRY 0572 01774000 * DO; /* MODESET EXTKEY(DATAMGT) */ 01775000 * SPKA(80); /* SET PSW KEY */ 01776000 LA @15,80 0574 01777000 SPKA 0(@15) 0574 01778000 * END; /* MODESET EXTKEY(DATAMGT) DATA 01779000 * MANAGEMENT KEY FOR DEB 0575 01780000 * @Y021130*/ 01781000 * RESPECIFY 0576 01782000 * (RWORK2, 0576 01783000 * R10) UNRESTRICTED; /* @Y021130*/ 01784000 * RESPECIFY 0577 01785000 * (TCB) BASED(TCBPTR); /* RESET ORIGINAL @Y021130*/ 01786000 * RDCB=DXUDCBAD; /* RESTORE DCB PTR @Y021130 01787000 * ISAM ACCESS METHOD TYPE NEEDED 01788000 * FOR FREEDBUF DEBCHK */ 01789000 L RDCB,DXUDCBAD(,RCORE) 0578 01790000 * GEN(DEBCHK (1),TYPE=ADD,AM=ISAM); 0579 01791000 DEBCHK (1),TYPE=ADD,AM=ISAM 01792000 * RESPECIFY 0580 01793000 * IHADCB BASED(DXPDCBAD); /* USE COPY DCB @Y021130*/ 01794000 * DCBDEBA=R1; /* SAVE DEB ADDR IN DCB COPY 0581 01795000 * @Y021130*/ 01796000 L @15,DXPDCBAD(,RCORE) 0581 01797000 STCM R1,7,DCBDEBA+40(@15) 0581 01798000 * RESPECIFY 0582 01799000 * IHADCB BASED(RDCB); /* USER DCB @Y021130*/ 01800000 * RDCB=DXUDCBAD; /* RESTORE DCB PTR @Y021130*/ 01801000 L RDCB,DXUDCBAD(,RCORE) 0583 01802000 * R14=IIRSAVE1; /* RESTORE RETURN ADDRESS */ 01803000 L R14,IIRSAVE1(,RCORE) 0584 01804000 * DO; /* MODESET KEYADDR(DXUKEY) */ 01805000 * SPKA(DXUKEY); /* SET PSW KEY */ 01806000 SLR @15,@15 0586 01807000 IC @15,DXUKEY(,RCORE) 0586 01808000 SPKA 0(@15) 0586 01809000 * END; /* MODESET KEYADDR(DXUKEY) 0587 01810000 * RESTORE USER KEY @Y021130*/ 01811000 * END BUILDDEB; 0588 01812000 @EL00013 DS 0H 0588 01813000 @EF00013 DS 0H 0588 01814000 @ER00013 BR @14 0588 01815000 * 0589 01816000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01817000 ** * 01818000 ** FUNCTION = LOAD MODULE * 01819000 ** DETERMINE THE ISAM INTERFACE MODULES THAT NEED TO BE * 01820000 ** LOADED AND INITIALIZE THE APPROPRIATE DCB AND DEB VECTOR * 01821000 ** POINTERS. THE ISAM SYNAD ROUTINE IS LOADED IF IT WAS * 01822000 ** SPECIFIED IN THE AMP PARAMETER. * 01823000 ** * 01824000 ** INPUT = * 01825000 ** REGISTER 1 - RDCB - DCB POINTER * 01826000 ** REGISTER 2 - RIICB - IICB POINTER * 01827000 ** REGISTER 6 - RACB - ACB POINTER * 01828000 ** * 01829000 ** OUTPUT = * 01830000 ** REGISTERS - SAME AS ABOVE * 01831000 ** * 01832000 ** CONTROL BLOCK FIELDS INITIALIZED * 01833000 ** DCBESETL * 01834000 ** DCBFREED * 01835000 ** DCBIIGET * 01836000 ** DCBIIPUT * 01837000 ** DCBLRAN * 01838000 ** DCBLWKN * 01839000 ** DCBSETL * 01840000 ** DCBSVCXA * 01841000 ** DCBSYNAD * 01842000 ** DEBFREED * 01843000 ** EXLEODF * 01844000 ** EXLEODP * 01845000 ** EXLLERF * 01846000 ** EXLLERP * 01847000 ** EXLSYNF * 01848000 ** EXLSYNP * 01849000 ** IISAMSYN * 01850000 ** IISVCLST * 01851000 ** * 01852000 ** PROTECTION KEY = SEE BELOW * 01853000 ** KEY ON ENTRY - USER KEY * 01854000 ** KEY ON EXIT - USER KEY * 01855000 ** INTERIM KEYS ASSUMED = DATA MANAGEMENT KEY 5 * 01856000 ** * 01857000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01858000 * 0589 01859000 *LOADMOD: 0589 01860000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0589 01861000 LOADMOD DS 0H 0590 01862000 * RESPECIFY 0590 01863000 * (R0, 0590 01864000 * R1, 0590 01865000 * RWORK2, 0590 01866000 * RLKRETSV) RESTRICTED; /* @Y021130*/ 01867000 * RESPECIFY 0591 01868000 * IHADCB BASED(RWORK2); 0591 01869000 * RWORK2=RDCB; /* SET DCB BASE */ 01870000 LR RWORK2,RDCB 0592 01871000 * RLKRETSV=R14; /* SAVE RETURN ADDR @Y021130 01872000 * IF BISAM */ 01873000 LR RLKRETSV,R14 0593 01874000 * IF DCBMFRD=ON|DCBMFWRT=ON THEN 0594 01875000 LA @15,40 0594 01876000 ALR @15,RWORK2 0594 01877000 TM DCBMFRD(@15),B'00100000' 0594 01878000 BO @RT00594 0594 01879000 TM DCBMFWRT(@15),B'00100000' 0594 01880000 BNO @RF00594 0594 01881000 @RT00594 DS 0H 0595 01882000 * DO; 0595 01883000 * R1=CVTSVDCB; /* PT TO DCB FOR SYS1.SVCLIB LOAD 01884000 * II BISAM MODULE */ 01885000 L @15,CVTPTR 0596 01886000 L R1,CVTSVDCB(,@15) 0596 01887000 * GEN(LOAD EP=IDAIIPM3,DCB=(1)); 0597 01888000 * 0597 01889000 LOAD EP=IDAIIPM3,DCB=(1) 01890000 * /*************************************************************/ 01891000 * /* */ 01892000 * /* AUDIT MODULE IDAIIPM3 HAS BEEN LOADED SUCCESSFULLY */ 01893000 * /* */ 01894000 * /*************************************************************/ 01895000 * 0598 01896000 * AUDPRMOD=MODPM3SW; /* SET FLAG IN IICB @Y021130*/ 01897000 OI AUDPRMOD(RIICB),B'00001100' 0598 01898000 * DCBSETL=R0; /* II CHECK ENTRY */ 01899000 LA @15,52 0599 01900000 ALR @15,RWORK2 0599 01901000 ST R0,DCBSETL(,@15) 0599 01902000 * DCBLRAN=R0+6; /* II READ/WRITE ENTRY */ 01903000 LA @05,6 0600 01904000 ALR @05,R0 0600 01905000 ST @05,DCBLRAN(,@15) 0600 01906000 * DCBLWKN=R0+6; /* II WRITE KEY NEW ENTRY */ 01907000 ST @05,DCBLWKN(,@15) 0601 01908000 * IF DCBMFDBF=ON THEN /* IF DYNAMIC BUFFERING */ 01909000 TM DCBMFDBF+40(RWORK2),B'00000100' 0602 01910000 BNO @RF00602 0602 01911000 * DO; 0603 01912000 * R1=CVTSVDCB; /* PT TO DCB FOR SYS1.SVCLIB */ 01913000 L @15,CVTPTR 0604 01914000 L R1,CVTSVDCB(,@15) 0604 01915000 * GEN(LOAD EP=IDAIIFBF,DCB=(1)); 0605 01916000 * 0605 01917000 LOAD EP=IDAIIFBF,DCB=(1) 01918000 * /*********************************************************/ 01919000 * /* */ 01920000 * /* AUDIT IDAIIFBF LOADED SUCCESSFULLY @Y021130*/ 01921000 * /* */ 01922000 * /*********************************************************/ 01923000 * 0606 01924000 * AUDIIFBF=ON; /* SFLAG IN IICB @Y021130*/ 01925000 OI AUDIIFBF(RIICB),B'10000000' 0606 01926000 * DCBFREED=R0; /* II DYNAMIC BUFFER ENTRY */ 01927000 ST R0,DCBFREED+52(,RWORK2) 0607 01928000 * DO; /* MODESET EXTKEY(DATAMGT) */ 01929000 * SPKA(80); /* SET PSW KEY */ 01930000 LA @15,80 0609 01931000 SPKA 0(@15) 0609 01932000 * END; /* MODESET EXTKEY(DATAMGT) SET 0610 01933000 * DATA MANAGEMENT KEY FOR DEB 0610 01934000 * @Y021130*/ 01935000 * DEBFREED=R0; /* II DYNAMIC BUFFER ENTRY */ 01936000 L @15,DEBEXPT(,RDEB) 0611 01937000 ST R0,DEBFREED(,@15) 0611 01938000 * DO; /* MODESET KEYADDR(DXUKEY) */ 01939000 * SPKA(DXUKEY); /* SET PSW KEY */ 01940000 SLR @15,@15 0613 01941000 IC @15,DXUKEY(,RCORE) 0613 01942000 SPKA 0(@15) 0613 01943000 * END; /* MODESET KEYADDR(DXUKEY) RESUME 01944000 * USER KEY @Y021130*/ 01945000 * END; 0615 01946000 * END; 0616 01947000 @RF00602 DS 0H 0617 01948000 * IF DCBMFGET=ON THEN /* IF QISAM SCAN */ 01949000 @RF00594 TM DCBMFGET+40(RWORK2),B'01000000' 0617 01950000 BNO @RF00617 0617 01951000 * DO; /* LOAD II SCAN MODULE */ 01952000 * R1=CVTSVDCB; /* PT TO DCB FOR SYS1.SVCLIB */ 01953000 L @15,CVTPTR 0619 01954000 L R1,CVTSVDCB(,@15) 0619 01955000 * GEN(LOAD EP=IDAIIPM2,DCB=(1)); 0620 01956000 * 0620 01957000 LOAD EP=IDAIIPM2,DCB=(1) 01958000 * /*************************************************************/ 01959000 * /* */ 01960000 * /* AUDIT THAT MODULE IDAIIPM2 HAS BEEN LOADED SUCCESSFULLY */ 01961000 * /* @Y021130*/ 01962000 * /* */ 01963000 * /*************************************************************/ 01964000 * 0621 01965000 * AUDPRMOD=MODPM2SW; /* SET FLAG IN IICB @Y021130*/ 01966000 NI AUDPRMOD(RIICB),B'11111011' 0621 01967000 OI AUDPRMOD(RIICB),B'00001000' 0621 01968000 * RESPECIFY 0622 01969000 * R8 RESTRICTED; /* DCBGET + 4 - PUTX DCBGET + 8 - 01970000 * RELSE */ 01971000 * R8=R0; 0623 01972000 LR R8,R0 0623 01973000 * DCBIIGET=SCANPTR; /* II GET ENTRY */ 01974000 MVC DCBIIGET+48(3,RWORK2),SCANPTR+1(R8) 0624 01975000 * R8=R8+4; 0625 01976000 LA @15,4 0625 01977000 ALR R8,@15 0625 01978000 * DCBSETL=SCANPTR; /* II SETL ENTRY */ 01979000 LA @09,52 0626 01980000 ALR @09,RWORK2 0626 01981000 L @05,SCANPTR(,R8) 0626 01982000 ST @05,DCBSETL(,@09) 0626 01983000 * R8=R8+4; 0627 01984000 ALR R8,@15 0627 01985000 * DCBESETL=SCANPTR; /* II ESETL ENTRY */ 01986000 L @05,SCANPTR(,R8) 0628 01987000 ST @05,DCBESETL(,@09) 0628 01988000 * R8=R8+4; 0629 01989000 ALR R8,@15 0629 01990000 * EXLEODP=SCANPTR; /* II EODAD ENTRY-ACB EXLST */ 01991000 L @15,ACBEXLST(,RACB) 0630 01992000 MVC EXLEODP(4,@15),SCANPTR(R8) 0630 01993000 * RESPECIFY 0631 01994000 * R8 UNRESTRICTED; 0631 01995000 * EXLEODF(1)=ON; /* MARK EODAD PRESENT */ 01996000 * EXLEODF(2)=ON; /* MARK EODAD ACTIVE */ 01997000 OI EXLEODF(@15),B'11000000' 0633 01998000 * END; 0634 01999000 * ELSE 0635 02000000 * IF DCBMFPUT=ON THEN /* IF LOAD MODE */ 02001000 B @RC00617 0635 02002000 @RF00617 TM DCBMFPUT+40(RWORK2),B'01000000' 0635 02003000 BNO @RF00635 0635 02004000 * DO; /* LOAD II LOAD MODE MODULE */ 02005000 * R1=CVTSVDCB; /* PT TO DCB FOR SYS1.SVCLIB */ 02006000 L @15,CVTPTR 0637 02007000 L R1,CVTSVDCB(,@15) 0637 02008000 * GEN(LOAD EP=IDAIIPM1,DCB=(1)); 0638 02009000 * 0638 02010000 LOAD EP=IDAIIPM1,DCB=(1) 02011000 * /***********************************************************/ 02012000 * /* */ 02013000 * /* AUDIT THAT MODULE IDAIIPM1 HAS BEEN LOADED SUCCESSFULLY */ 02014000 * /* @Y021130*/ 02015000 * /* */ 02016000 * /***********************************************************/ 02017000 * 0639 02018000 * AUDPRMOD=MODPM1SW; /* SET FLAG IN IICB @Y021130*/ 02019000 NI AUDPRMOD(RIICB),B'11110111' 0639 02020000 OI AUDPRMOD(RIICB),B'00000100' 0639 02021000 * DCBIIPUT=R0; /* II PUT ENTRY */ 02022000 STCM R0,7,DCBIIPUT+48(RWORK2) 0640 02023000 * END; /* LOAD II SYNAD MODULE */ 02024000 * R1=CVTSVDCB; /* PT TO DCB FOR SYS1.SVCLIB */ 02025000 @RF00635 DS 0H 0642 02026000 @RC00617 L @15,CVTPTR 0642 02027000 L R1,CVTSVDCB(,@15) 0642 02028000 * GEN(LOAD EP=IDAIISM1,DCB=(1)); 0643 02029000 * 0643 02030000 LOAD EP=IDAIISM1,DCB=(1) 02031000 * /*****************************************************************/ 02032000 * /* */ 02033000 * /* AUDIT THAT MODULE IDAIISM1 HAS BEEN LOADED SUCCESSFULLY */ 02034000 * /* */ 02035000 * /*****************************************************************/ 02036000 * 0644 02037000 * AUDIISYN=ON; /* SET FLAG IN IICB @Y021130*/ 02038000 OI AUDIISYN(RIICB),B'00000010' 0644 02039000 * EXLSYNP=R0; /* SYNAD ENTRY-ACB EXLST */ 02040000 L @15,ACBEXLST(,RACB) 0645 02041000 STCM R0,15,EXLSYNP(@15) 0645 02042000 * EXLSYNF(1)=ON; /* MARK SYNAD PRESENT */ 02043000 * EXLSYNF(2)=ON; /* MARK SYNAD ACTIVE */ 02044000 OI EXLSYNF(@15),B'11000000' 0647 02045000 * EXLLERP=R0; /* LERAD ENTRY-ACB EXLST */ 02046000 STCM R0,15,EXLLERP(@15) 0648 02047000 * EXLLERF(1)=ON; /* MARK LERAD PRESENT */ 02048000 * EXLLERF(2)=ON; /* MARK LERAD ACTIVE */ 02049000 OI EXLLERF(@15),B'11000000' 0650 02050000 * IISVCLST=R0+4; /* SYNADAF ENTRY */ 02051000 LA @15,4 0651 02052000 ALR @15,R0 0651 02053000 ST @15,IISVCLST(,RIICB) 0651 02054000 * DCBSVCXA=ADDR(IISVCLST); /* PTR TO SVC EXIT LIST */ 02055000 * 0652 02056000 LA @15,IISVCLST(,RIICB) 0652 02057000 STCM @15,7,DCBSVCXA+28(RWORK2) 0652 02058000 * /*****************************************************************/ 02059000 * /* */ 02060000 * /* LOAD THE ISAM SYNAD ROUTINE WHEN IT IS SPECIFIED IN THE AMP */ 02061000 * /* PARAMETER */ 02062000 * /* */ 02063000 * /*****************************************************************/ 02064000 * 0653 02065000 * RESPECIFY 0653 02066000 * JFCBPTR RESTRICTED; 0653 02067000 * JFCBPTR=ADDR(DXJBF); /* INIT PTR TO JFCB @Y021130*/ 02068000 LA JFCBPTR,DXJBF(,RCORE) 0654 02069000 * IF JFCAMSYN(1:4)^=ZERO THEN /* IF SYNAD SPECIFIED IN AMP */ 02070000 ICM @15,15,JFCAMSYN(JFCBPTR) 0655 02071000 BZ @RF00655 0655 02072000 * DO; /* YES */ 02073000 * RESPECIFY 0657 02074000 * (R15) RESTRICTED; 0657 02075000 * IISAMSYN=JFCAMSYN; /* SAVE ISAM SYNAD NAME */ 02076000 MVC IISAMSYN(8,RIICB),JFCAMSYN(JFCBPTR) 0658 02077000 * R15=ADDR(SYNCHRTN); /* ADDR TO SYNCH TO IN ORDER TO 02078000 * LOAD FROM JOBLIB @YM04603*/ 02079000 LA R15,SYNCHRTN 0659 02080000 * GEN(SYNCH (R15)); /* ENTER PROBLEM PROGRAM STATE 0660 02081000 * @YM04603*/ 02082000 * 0660 02083000 SYNCH (R15) 02084000 * /*************************************************************/ 02085000 * /* */ 02086000 * /* RETURN FROM LOADING USER SPECIFIED SYNAD ROUTINE */ 02087000 * /* */ 02088000 * /*************************************************************/ 02089000 * 0661 02090000 * DO; /* MODESET KEYADDR(DXUKEY) */ 02091000 * SPKA(DXUKEY); /* SET PSW KEY */ 02092000 SLR @08,@08 0662 02093000 IC @08,DXUKEY(,RCORE) 0662 02094000 SPKA 0(@08) 0662 02095000 * END; /* MODESET KEYADDR(DXUKEY) INSURE 02096000 * USER KEY @YM04603*/ 02097000 * RESPECIFY 0664 02098000 * (R15) UNRESTRICTED; 0664 02099000 * END; 0665 02100000 * RDCB=RWORK2; /* RESTORE DCB POINTER */ 02101000 @RF00655 LR RDCB,RWORK2 0666 02102000 * R14=RLKRETSV; /* RESTORE RET ADDR @Y021130*/ 02103000 LR R14,RLKRETSV 0667 02104000 * RETURN; /* RETURN TO MAINLINE @YM04603*/ 02105000 * 0668 02106000 @EL00014 DS 0H 0668 02107000 @EF00014 DS 0H 0668 02108000 @ER00014 BR @14 0668 02109000 * /*****************************************************************/ 02110000 * /* */ 02111000 * /* THE FOLLOWING LABEL IS USED WHEN IT IS NECESSARY TO LOAD A */ 02112000 * /* USER SYNAD ROUTINE FROM THE JOBLIB. THIS MUST BE DONE IN USER */ 02113000 * /* KEY AND PROBLEM PROGRAM STATE. */ 02114000 * /* */ 02115000 * /*****************************************************************/ 02116000 * 0669 02117000 *SYNCHRTN: 0669 02118000 * RESPECIFY 0669 02119000 * (R8, 0669 02120000 * R9) RESTRICTED; /* @YM04603*/ 02121000 SYNCHRTN DS 0H 0670 02122000 * R9=R14; /* SAVE RET TO SVC @YM04603*/ 02123000 LR R9,R14 0670 02124000 * R8=ADDR(IISAMSYN); /* INIT PTR TO SYNAD NAME 0671 02125000 * @YM04603*/ 02126000 LA R8,IISAMSYN(,RIICB) 0671 02127000 * GEN(LOAD EPLOC=(R8)); /* LOAD ISAM SYNAD MODULE 0672 02128000 * @YM04603*/ 02129000 * 0672 02130000 LOAD EPLOC=(R8) 02131000 * /*****************************************************************/ 02132000 * /* */ 02133000 * /* AUDIT THAT THE USER SYNAD MODULE WAS LOADED SUCESSFULLY */ 02134000 * /* */ 02135000 * /*****************************************************************/ 02136000 * 0673 02137000 * AUDURSYN=ON; /* SET FLAG IN IICB @YM04603*/ 02138000 OI AUDURSYN(RIICB),B'00000001' 0673 02139000 * DCBSYNAD=R0; /* INIT SYNAD ENTRY PT - DCB 0674 02140000 * @YM04603*/ 02141000 ST R0,DCBSYNAD+52(,RWORK2) 0674 02142000 * R14=R9; /* RETURN TO SVC @YM04603*/ 02143000 LR R14,R9 0675 02144000 * RESPECIFY 0676 02145000 * IHADCB BASED(RDCB); /* @YM04603*/ 02146000 * RESPECIFY 0677 02147000 * (JFCBPTR, 0677 02148000 * R0, 0677 02149000 * RWORK2, 0677 02150000 * RLKRETSV, 0677 02151000 * R8, 0677 02152000 * R9) /* @YM04603*/ 02153000 * UNRESTRICTED; /* @YM04603*/ 02154000 * END LOADMOD; 0678 02155000 B @EL00014 0678 02156000 * 0679 02157000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02158000 ** * 02159000 ** FUNCTION = BUILD RPL * 02160000 ** THIS ROUTINE COMPUTES SIZES AND GETS CORE IN THE USERS * 02161000 ** REGION FOR THE ISAM INTERFACE RPLS, RPL EXTENSIONS, ERROR * 02162000 ** MESSAGE AREAS, KEYSAVE AREA AND ISAM INTERFACE BUFFERS. * 02163000 ** * 02164000 ** INPUT = * 02165000 ** REGISTER 1 - RDCB - DCB POINTER * 02166000 ** REGISTER 2 - RIICB - IICB POINTER * 02167000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 02168000 ** * 02169000 ** OUTPUT = * 02170000 ** REGISTER 1 - RDCB - DCB POINTER * 02171000 ** REGISTER 2 - RIICB - IICB POINTER * 02172000 ** REGISTER 3 - RRPL - RPL POINTER * 02173000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 02174000 ** * 02175000 ** CONTROL BLOCK FIELDS INITIALIZED * 02176000 ** IIKEYSL * 02177000 ** IIRPLL * 02178000 ** IIRPLPTR * 02179000 ** IITBUFL * 02180000 ** IIMSGL * 02181000 ** IIMSGPTR * 02182000 ** * 02183000 ** PROTECTION KEY = SEE BELOW * 02184000 ** KEY ON ENTRY - USER KEY * 02185000 ** KEY ON EXIT - USER KEY * 02186000 ** INTERIM KEYS ASSUMED = NONE * 02187000 ** * 02188000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 02189000 * 0679 02190000 *BLDRPL: 0679 02191000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0679 02192000 BLDRPL DS 0H 0680 02193000 * RESPECIFY 0680 02194000 * RRPL RESTRICTED; 0680 02195000 * 0680 02196000 * /*****************************************************************/ 02197000 * /* */ 02198000 * /* IIBUFL AND IIBUFNO ARE SET IN THE BFRMERGE ROUTINE. IIBUFNO = */ 02199000 * /* STRING NUMBER FOR BISAM, AND IS = ONE FOR QISAM. FINALLY, */ 02200000 * /* COMPUTE RPL AND RPLE SIZE. */ 02201000 * /* */ 02202000 * /*****************************************************************/ 02203000 * 0681 02204000 * IIRPLL=(LENGTH(IFGRPL)+ /* RPL LENGTH */ 02205000 * LENGTH(IDARPLE)) /* RPL EXTENSION LENGTH */ 02206000 * *IIBUFNO; /* TIMES BUFFER NO */ 02207000 * 0681 02208000 SLR @15,@15 0681 02209000 IC @15,IIBUFNO(,RIICB) 0681 02210000 LR @10,@15 0681 02211000 MH @10,@CH02106 0681 02212000 STCM @10,7,IIRPLL(RIICB) 0681 02213000 * /*****************************************************************/ 02214000 * /* */ 02215000 * /* COMPUTE II BUFFER SIZE */ 02216000 * /* */ 02217000 * /*****************************************************************/ 02218000 * 0682 02219000 * RESPECIFY 0682 02220000 * RWORK2 RESTRICTED; 0682 02221000 * RWORK2=IIBUFL; /* LRECL FOR BUFFERS TOTAL CORE 02222000 * FOR BUFFERS */ 02223000 LH RWORK2,IIBUFL(,RIICB) 0683 02224000 * RWORK2=(RWORK2*IIBUFNO)+8; /* LRECL*BUFNO+BCB LENGTH */ 02225000 LA @10,8 0684 02226000 LR @09,@15 0684 02227000 MR @08,RWORK2 0684 02228000 ALR @09,@10 0684 02229000 LR RWORK2,@09 0684 02230000 * IITBUFL=RWORK2; /* SAVE BUFFER LENGTH */ 02231000 * 0685 02232000 STCM RWORK2,7,IITBUFL(RIICB) 0685 02233000 * /*****************************************************************/ 02234000 * /* */ 02235000 * /* COMPUTE KEYSAVE AREA SIZE FOR QISAM PUT LOCATE REQUEST */ 02236000 * /* */ 02237000 * /*****************************************************************/ 02238000 * 0686 02239000 * IF DCBMFLCP=ON THEN /* IF PUT LOCATE THEN KEYSAVE 0686 02240000 * AREA NEEDED CALCULATE LENGTH 02241000 * NEEDED */ 02242000 TM DCBMFLCP+40(RDCB),B'00001000' 0686 02243000 BNO @RF00686 0686 02244000 * IIKEYSL=((DCBKEYLE+7)/8)*8; 0687 02245000 * 0687 02246000 LA @08,7 0687 02247000 SLR @15,@15 0687 02248000 IC @15,DCBKEYLE+16(,RDCB) 0687 02249000 ALR @08,@15 0687 02250000 SRDA @08,32 0687 02251000 DR @08,@10 0687 02252000 SLA @09,3 0687 02253000 STH @09,IIKEYSL(,RIICB) 0687 02254000 * /*****************************************************************/ 02255000 * /* */ 02256000 * /* GET CORE FOR RPL'S, BUFFERS AND KEYSAVE */ 02257000 * /* */ 02258000 * /*****************************************************************/ 02259000 * 0688 02260000 * RESPECIFY 0688 02261000 * (RGMLEN) RESTRICTED; /* @Y021130*/ 02262000 @RF00686 DS 0H 0689 02263000 * RGMLEN=IIKEYSL+ /* KEYSAVE LENGTH PLUS */ 02264000 * IITBUFL+ /* BUFFER LENGTH PLUS */ 02265000 * IIRPLL; /* RPL LENGTH FOR GETMAIN 0689 02266000 * @Y021130*/ 02267000 L RGMLEN,IITBUFL-1(,RIICB) 0689 02268000 LA RGMLEN,0(,RGMLEN) 0689 02269000 AH RGMLEN,IIKEYSL(,RIICB) 0689 02270000 L @15,IIRPLL-1(,RIICB) 0689 02271000 LA @15,0(,@15) 0689 02272000 ALR RGMLEN,@15 0689 02273000 * RESPECIFY 0690 02274000 * (RGMSP) RESTRICTED; /* @Y021130*/ 02275000 * RGMSP=USERPOOL; /* USER REGION SUBPOOL @Y021130*/ 02276000 LA RGMSP,250 0691 02277000 * RESPECIFY 0692 02278000 * (RLKRETSV) RESTRICTED; /* @Y021130*/ 02279000 * RLKRETSV=R14; /* SAVE LINK REG @Y021130*/ 02280000 LR RLKRETSV,R14 0693 02281000 * CALL GETMAIN; /* GET CORE FOR RPL'S */ 02282000 BAL @14,GETMAIN 0694 02283000 * RESPECIFY 0695 02284000 * (RGMSP, 0695 02285000 * RGMLEN, 0695 02286000 * RLKRETSV) UNRESTRICTED; /* @Y021130*/ 02287000 * RRPL=MAINADDR; /* INIT RPL PTR */ 02288000 L RRPL,MAINADDR(,RCORE) 0696 02289000 * IIRPLPTR=RRPL; /* SAVE PTR TO 1ST RPL */ 02290000 * 0697 02291000 ST RRPL,IIRPLPTR(,RIICB) 0697 02292000 * /*****************************************************************/ 02293000 * /* */ 02294000 * /* COMPUTE THE SIZE AND GET CORE FOR ERROR MESSAGE AREAS */ 02295000 * /* */ 02296000 * /*****************************************************************/ 02297000 * 0698 02298000 * RWORK2=LENGTH(IDAERMSG); /* INIT ERROR MSG LENGTH FOR 0698 02299000 * GETMAIN/FREEMAIN - ROUNDED TO 02300000 * DOUBLE WORD TIMES BUFFER NO */ 02301000 LA RWORK2,128 0698 02302000 * IIMSGL=((RWORK2+7)/8)*8*IIBUFNO; 0699 02303000 LA @08,7 0699 02304000 ALR @08,RWORK2 0699 02305000 SRDA @08,32 0699 02306000 D @08,@CF00045 0699 02307000 SLA @09,3 0699 02308000 SLR @15,@15 0699 02309000 IC @15,IIBUFNO(,RIICB) 0699 02310000 MR @08,@15 0699 02311000 STCM @09,7,IIMSGL(RIICB) 0699 02312000 * RESPECIFY 0700 02313000 * RWORK2 UNRESTRICTED; 0700 02314000 * RESPECIFY 0701 02315000 * (RGMLEN) RESTRICTED; /* @Y021130*/ 02316000 * RGMLEN=IIMSGL; /* INIT LENGTH FOR GETMAIN 0702 02317000 * @Y021130*/ 02318000 L @15,IIMSGL-1(,RIICB) 0702 02319000 LA @15,0(,@15) 0702 02320000 LR RGMLEN,@15 0702 02321000 * RESPECIFY 0703 02322000 * (RGMSP) RESTRICTED; /* @Y021130*/ 02323000 * RGMSP=USERPOOL; /* USER REGION SUBPOOL @Y021130*/ 02324000 LA RGMSP,250 0704 02325000 * RESPECIFY 0705 02326000 * (RLKRETSV) RESTRICTED; /* @Y021130*/ 02327000 * RLKRETSV=IIRSAVE1; /* PREVIOUSLY SAVED LINK REG 0706 02328000 * @Y021130*/ 02329000 L RLKRETSV,IIRSAVE1(,RCORE) 0706 02330000 * CALL GETMAIN; /* GET CORE FOR ERROR MSG */ 02331000 BAL @14,GETMAIN 0707 02332000 * RESPECIFY 0708 02333000 * (RGMSP, 0708 02334000 * RGMLEN, 0708 02335000 * RLKRETSV) UNRESTRICTED; /* @Y021130*/ 02336000 * IIMSGPTR=MAINADDR; /* SAVE MSG AREA PTR */ 02337000 L @15,MAINADDR(,RCORE) 0709 02338000 ST @15,IIMSGPTR(,RIICB) 0709 02339000 * R14=IIRSAVE1; /* RESTORE RETURN ADDRESS */ 02340000 L R14,IIRSAVE1(,RCORE) 0710 02341000 * END BLDRPL; 0711 02342000 @EL00015 DS 0H 0711 02343000 @EF00015 DS 0H 0711 02344000 @ER00015 BR @14 0711 02345000 * 0712 02346000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02347000 ** * 02348000 ** FUNCTION = INITIALIZE RPL * 02349000 ** INITIALIZE THE ISAM INTERFACE RPL, RPL EXTENSION AND * 02350000 ** ERROR MESSAGE AREAS. THE RPL EXTENSION IS LOCATED * 02351000 ** IMMEDIATELY AFTER EACH RPL. THE FIRST RPL IS POINTED * 02352000 ** TO BY THE IICB. THE REST ARE CHAINED TOGETHER IN THE * 02353000 ** RPL EXTENSION. THE RPL EXTENSION IS ALSO USED BY THE ISAM * 02354000 ** INTERFACE TO POINT TO THE IICB, DECB AND THE II BUFFER. * 02355000 ** * 02356000 ** INPUT = * 02357000 ** REGISTER 2 - RIICB - IICB POINTER * 02358000 ** REGISTER 3 - RRPL - RPL POINTER * 02359000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 02360000 ** REGISTER 6 - RACB - ACB POINTER * 02361000 ** * 02362000 ** OUTPUT = * 02363000 ** REGISTERS - SAME AS ABOVE * 02364000 ** * 02365000 ** CONTROL BLOCK FIELDS INITIALIZED * 02366000 ** RPLBUFL * 02367000 ** RPLDACB * 02368000 ** RPLEMLEN * 02369000 ** RPLERMSA * 02370000 ** RPLID * 02371000 ** RPLIICB * 02372000 ** RPLKEY * 02373000 ** RPLKEYLE * 02374000 ** RPLLEN * 02375000 ** RPLOPTCD * 02376000 ** RPLRLEN * 02377000 ** RPLRPLPT * 02378000 ** * 02379000 ** PROTECTION KEY = SEE BELOW * 02380000 ** KEY ON ENTRY - USER KEY * 02381000 ** KEY ON EXIT - USER KEY * 02382000 ** INTERIM KEYS ASSUMED = NONE * 02383000 ** * 02384000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 02385000 * 0712 02386000 *INITRPL: 0712 02387000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0712 02388000 INITRPL DS 0H 0713 02389000 * RESPECIFY 0713 02390000 * RWORK2 RESTRICTED; 0713 02391000 * RWORK2=IIMSGPTR; /* INIT MSG AREA PTR */ 02392000 L RWORK2,IIMSGPTR(,RIICB) 0714 02393000 * RESPECIFY 0715 02394000 * (R10) RESTRICTED; /* @Y021130*/ 02395000 * DO R10=ONE BY ONE TO IIBUFNO; /* @Y021130*/ 02396000 LA R10,1 0716 02397000 B @DE00716 0716 02398000 @DL00716 DS 0H 0717 02399000 * RPLRPLPT=RRPL /* INIT PTR TO NEXT RPL */ 02400000 * +LENGTH(IFGRPL) /* */ 02401000 * +LENGTH(IDARPLE); /* */ 02402000 LA @15,104 0717 02403000 ALR @15,RRPL 0717 02404000 ST @15,RPLRPLPT+76(,RRPL) 0717 02405000 * RPLERMSA=RWORK2; /* INIT RPL PTR TO MSG AREA */ 02406000 ST RWORK2,RPLERMSA(,RRPL) 0718 02407000 * RPLID='00'X; /* SET RPL IDENTIFIER */ 02408000 MVI RPLID(RRPL),X'00' 0719 02409000 * RPLLEN=LENGTH(IFGRPL); /* SET RPL LENGTH */ 02410000 MVI RPLLEN(RRPL),X'4C' 0720 02411000 * RPLKEY=ON; /* KEYED ACCESS */ 02412000 OI RPLKEY(RRPL),B'10000000' 0721 02413000 * IF ACBSEQ=ON THEN 0722 02414000 TM ACBSEQ(RACB),B'00010000' 0722 02415000 BNO @RF00722 0722 02416000 * RPLSEQ=ON; /* SEQUENTIAL */ 02417000 OI RPLSEQ(RRPL),B'00100000' 0723 02418000 * IF ACBDIR=ON THEN 0724 02419000 @RF00722 TM ACBDIR(RACB),B'00001000' 0724 02420000 BNO @RF00724 0724 02421000 * RPLDIR=ON; /* DIRECT */ 02422000 OI RPLDIR(RRPL),B'01000000' 0725 02423000 * IF DCBMFUIP=ON THEN 0726 02424000 @RF00724 TM DCBMFUIP+40(RDCB),B'00000100' 0726 02425000 BNO @RF00726 0726 02426000 * RPLUPD=ON; /* UPDATE - SCAN */ 02427000 OI RPLUPD(RRPL),B'00000010' 0727 02428000 * RPLKEYLE=AMDKEYLN; /* KEY LENGTH */ 02429000 @RF00726 L @15,ACBAMBL(,RACB) 0728 02430000 L @15,AMBLDTA(,@15) 0728 02431000 L @15,AMBDSB(,@15) 0728 02432000 LH @05,AMDKEYLN(,@15) 0728 02433000 STH @05,RPLKEYLE(,RRPL) 0728 02434000 * RPLDACB=IIACBPTR; /* ACB PTR */ 02435000 L @05,IIACBPTR(,RIICB) 0729 02436000 ST @05,RPLDACB(,RRPL) 0729 02437000 * RPLRLEN=AMDLRECL; /* RECORD LENGTH */ 02438000 L @15,AMDLRECL(,@15) 0730 02439000 ST @15,RPLRLEN(,RRPL) 0730 02440000 * RPLBUFL=IIBUFL; /* AREA LENGTH ERROR MSG 0731 02441000 * LEN-ROUND DWORD */ 02442000 LH @15,IIBUFL(,RIICB) 0731 02443000 ST @15,RPLBUFL(,RRPL) 0731 02444000 * RPLEMLEN=((LENGTH(IDAERMSG)+7)/8)*8; 0732 02445000 LA @15,128 0732 02446000 STH @15,RPLEMLEN(,RRPL) 0732 02447000 * RPLIICB=RIICB; /* IICB PTR */ 02448000 LA @05,76 0733 02449000 ALR @05,RRPL 0733 02450000 ST RIICB,RPLIICB(,@05) 0733 02451000 * RWORK2=RWORK2+RPLEMLEN; /* ADD ERROR MSG LENGTH */ 02452000 ALR RWORK2,@15 0734 02453000 * RRPL=RPLRPLPT; /* INIT BASE FOR NEXT RPL */ 02454000 L @15,RPLRPLPT(,@05) 0735 02455000 LR RRPL,@15 0735 02456000 * END; 0736 02457000 AL R10,@CF00087 0736 02458000 @DE00716 SLR @15,@15 0736 02459000 IC @15,IIBUFNO(,RIICB) 0736 02460000 CR R10,@15 0736 02461000 BNH @DL00716 0736 02462000 * RESPECIFY 0737 02463000 * (R10) UNRESTRICTED; /* @Y021130*/ 02464000 * RRPL=RRPL-(LENGTH(IFGRPL) /* BACK UP RPL PTR */ 02465000 * +LENGTH(IDARPLE)); 0738 02466000 SL RRPL,@CF02106 0738 02467000 * RPLRPLPT=ZERO; /* CLEAR RPL CHAIN */ 02468000 SLR @15,@15 0739 02469000 ST @15,RPLRPLPT+76(,RRPL) 0739 02470000 * RESPECIFY 0740 02471000 * (RWORK2) UNRESTRICTED; 0740 02472000 * END INITRPL; 0741 02473000 @EL00016 DS 0H 0741 02474000 @EF00016 DS 0H 0741 02475000 @ER00016 BR @14 0741 02476000 * 0742 02477000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02478000 ** * 02479000 ** FUNCTION = BUILD BUFFERS * 02480000 ** * 02481000 ** THIS ROUTINE INITIALIZES THE POINTERS TO THE ISAM * 02482000 ** INTERFACE BUFFERS AND KEYSAVE AREA. THE ISAM INTERFACE * 02483000 ** BUILDS ONE BUFFER FOR QISAM AND USES STRING NUMBER TO * 02484000 ** BUILD BUFFERS FOR BISAM. THE ISAM INTERFACE BUFFERS ARE * 02485000 ** NEEDED FOR LOCATE MODE, DYNAMIC BUFFERING, SETL WITH KEY, * 02486000 ** STAND ALONE WRITE (ADD), AND FOR FIXED, UNVLOCKED RECORDS * 02487000 ** WITH RKP = 0 (DATA-ONLY RETRIEVAL). * 02488000 ** * 02489000 ** INPUT = * 02490000 ** REGISTER 1 - RDCB - DCB POINTER * 02491000 ** REGISTER 2 - RIICB - IICB POINTER * 02492000 ** REGISTER 3 - RRPL - RPL POINTER * 02493000 ** REGISTER 4 - RCORE - I/O SUPPORT WORK AREA POINTER * 02494000 ** * 02495000 ** OUTPUT = * 02496000 ** REGISTERS - SAME AS ABOVE * 02497000 ** * 02498000 ** CONTROL BLOCK FIELDS INITIALIZED * 02499000 ** BCBBUFL * 02500000 ** BCBBUFNO * 02501000 ** BCBFSBUF * 02502000 ** BCBBUFLINK * 02503000 ** DCBBUFCA * 02504000 ** IIKEYPT * 02505000 ** IIQBFRS * 02506000 ** RPLIIBFR * 02507000 ** * 02508000 ** PROTECTION KEY = SEE BELOW * 02509000 ** KEY ON ENTRY - USER KEY * 02510000 ** KEY ON EXIT - USER KEY * 02511000 ** INTERIM KEYS ASSUMED = NONE * 02512000 ** * 02513000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 02514000 * 0742 02515000 *BLDBUFR: 0742 02516000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0742 02517000 BLDBUFR DS 0H 0743 02518000 * RESPECIFY 0743 02519000 * (RBUFF) RESTRICTED; 0743 02520000 * RBUFF=IIRPLPTR+IIRPLL; /* INIT BUFFER POINTER */ 02521000 L RBUFF,IIRPLL-1(,RIICB) 0744 02522000 LA RBUFF,0(,RBUFF) 0744 02523000 AL RBUFF,IIRPLPTR(,RIICB) 0744 02524000 * IF DCBMFLCP=ON THEN /* IF PUT LOCATE */ 02525000 TM DCBMFLCP+40(RDCB),B'00001000' 0745 02526000 BNO @RF00745 0745 02527000 * DO; 0746 02528000 * IIKEYPT=RBUFF; /* INIT PTR TO KEYSAVE */ 02529000 ST RBUFF,IIKEYPT(,RIICB) 0747 02530000 * RBUFF=RBUFF+IIKEYSL; /* ADD KEYSAVE LENGTH */ 02531000 AH RBUFF,IIKEYSL(,RIICB) 0748 02532000 * END; 0749 02533000 * RRPL=IIRPLPTR; /* INIT PTR TO 1ST RPL */ 02534000 * 0750 02535000 @RF00745 L RRPL,IIRPLPTR(,RIICB) 0750 02536000 * /*****************************************************************/ 02537000 * /* */ 02538000 * /* WHEN A VALID BUFFER ADDRESS IS SPECIFIED IN THE DCB, OR A */ 02539000 * /* BISAM DCB, ONLY THE RPL BUFFER POINTER IS INITIALIZED BY THE */ 02540000 * /* ISAM INTERFACE. */ 02541000 * /* */ 02542000 * /*****************************************************************/ 02543000 * 0751 02544000 * RESPECIFY 0751 02545000 * (R10) RESTRICTED; /* @Y021130*/ 02546000 * IF(DCBMFRD=ON| /* IF BISAM (READ @YM05335*/ 02547000 * DCBMFWRT=ON) THEN /* OR WRITE) @YM05335*/ 02548000 LA @15,40 0752 02549000 ALR @15,RDCB 0752 02550000 TM DCBMFRD(@15),B'00100000' 0752 02551000 BO @RT00752 0752 02552000 TM DCBMFWRT(@15),B'00100000' 0752 02553000 BNO @RF00752 0752 02554000 @RT00752 DS 0H 0753 02555000 * RBUFF=RBUFF+16; /* ADD PAD AND LINK BYTES 0753 02556000 * @YM05335*/ 02557000 AL RBUFF,@CF00210 0753 02558000 * IF(DCBMFRD=ON| /* IF BISAM (READ OR WRITE) */ 02559000 * DCBMFWRT=ON)| /* OR */ 02560000 * BUFADDR(32)='0'B THEN /* VALID BUFFER ADDR IN DCB */ 02561000 @RF00752 LA @15,40 0754 02562000 ALR @15,RDCB 0754 02563000 TM DCBMFRD(@15),B'00100000' 0754 02564000 BO @RT00754 0754 02565000 TM DCBMFWRT(@15),B'00100000' 0754 02566000 BO @RT00754 0754 02567000 TM BUFADDR+19(RDCB),B'00000001' 0754 02568000 BNZ @RF00754 0754 02569000 @RT00754 DS 0H 0755 02570000 * DO R10=ONE BY ONE TO IIBUFNO; /* @Y021130*/ 02571000 LA R10,1 0755 02572000 B @DE00755 0755 02573000 @DL00755 DS 0H 0756 02574000 * RPLIIBFR=RBUFF; /* INIT RPL BUFFER POINTER */ 02575000 LA @15,76 0756 02576000 ALR @15,RRPL 0756 02577000 ST RBUFF,RPLIIBFR(,@15) 0756 02578000 * RRPL=RPLRPLPT; /* BUMP RPL PTR */ 02579000 L @15,RPLRPLPT(,@15) 0757 02580000 LR RRPL,@15 0757 02581000 * RBUFF=RBUFF+IIBUFL; /* BUMP BUFFER POINTER */ 02582000 AH RBUFF,IIBUFL(,RIICB) 0758 02583000 * END; /* LOOP BACK */ 02584000 AL R10,@CF00087 0759 02585000 @DE00755 SLR @15,@15 0759 02586000 IC @15,IIBUFNO(,RIICB) 0759 02587000 CR R10,@15 0759 02588000 BNH @DL00755 0759 02589000 * ELSE 0760 02590000 * DO; /* IF QISAM W/O BUFFERS THEN TURN 02591000 * ON BIT TO PREVENT FREEMAIN OF 02592000 * BUFFERS IN CLOSE - USER ISSUES 02593000 * FREE- */ 02594000 B @RC00754 0760 02595000 @RF00754 DS 0H 0761 02596000 * IIQBFRS=ON; /* POOL AFTER CLOSE */ 02597000 OI IIQBFRS(RIICB),B'00000001' 0761 02598000 * DCBBUFCA=RBUFF; /* INIT BUFR CONTROL BLK PTR */ 02599000 LA @15,16 0762 02600000 ALR @15,RDCB 0762 02601000 STCM RBUFF,7,DCBBUFCA(@15) 0762 02602000 * BCBBUFNO=IIBUFNO; /* INIT BUFR NO IN BCB */ 02603000 L @15,DCBBUFCB(,@15) 0763 02604000 SLR @07,@07 0763 02605000 IC @07,IIBUFNO(,RIICB) 0763 02606000 STH @07,BCBBUFNO(,@15) 0763 02607000 * BCBBUFL=IIBUFL; /* INIT BUFR LENGTH IN BCB */ 02608000 LH @07,IIBUFL(,RIICB) 0764 02609000 STH @07,BCBBUFL(,@15) 0764 02610000 * RBUFF=RBUFF+8; /* ADD LENGTH OF BCB */ 02611000 LA @15,8 0765 02612000 ALR RBUFF,@15 0765 02613000 * IF DCBBFA='01'B THEN /* IF FULL WORD ALIGN */ 02614000 TM DCBBFA+28(RDCB),B'00000001' 0766 02615000 BNO @RF00766 0766 02616000 TM DCBBFA+28(RDCB),B'00000010' 0766 02617000 BNZ @RF00766 0766 02618000 * RBUFF=RBUFF+8; /* ADJUST POINTER */ 02619000 ALR RBUFF,@15 0767 02620000 * BCBFSBUF=RBUFF; /* SET PTR TO 1ST BUFFER */ 02621000 @RF00766 L @15,DCBBUFCB+16(,RDCB) 0768 02622000 ST RBUFF,BCBFSBUF(,@15) 0768 02623000 * IF IIBUFNO>1 THEN 0769 02624000 CLI IIBUFNO(RIICB),1 0769 02625000 BNH @RF00769 0769 02626000 * DO R10=ONE BY ONE TO IIBUFNO-1;/* @Y021130*/ 02627000 LA R10,1 0770 02628000 B @DE00770 0770 02629000 @DL00770 DS 0H 0771 02630000 * BUFLINK=RBUFF+IIBUFL; /* INIT BUFFER LINK FIELD */ 02631000 LR @15,RBUFF 0771 02632000 AH @15,IIBUFL(,RIICB) 0771 02633000 ST @15,BUFLINK(,RBUFF) 0771 02634000 * RPLIIBFR=RBUFF; /* INIT RPL PTR TO BUFFER */ 02635000 LA @07,76 0772 02636000 ALR @07,RRPL 0772 02637000 ST RBUFF,RPLIIBFR(,@07) 0772 02638000 * RBUFF=BUFLINK; /* BUMP BUFFER PTR BY BUFL */ 02639000 LR RBUFF,@15 0773 02640000 * RRPL=RPLRPLPT; /* POINT TO NEXT RPL */ 02641000 L @15,RPLRPLPT(,@07) 0774 02642000 LR RRPL,@15 0774 02643000 * END; 0775 02644000 AL R10,@CF00087 0775 02645000 @DE00770 SLR @15,@15 0775 02646000 IC @15,IIBUFNO(,RIICB) 0775 02647000 BCTR @15,0 0775 02648000 CR R10,@15 0775 02649000 BNH @DL00770 0775 02650000 * RPLIIBFR=RBUFF; /* INIT RPL PTR TO BUFFER */ 02651000 @RF00769 ST RBUFF,RPLIIBFR+76(,RRPL) 0776 02652000 * BUFLINK=ZERO; /* LAST BUFR LINK = ZERO */ 02653000 SLR @15,@15 0777 02654000 ST @15,BUFLINK(,RBUFF) 0777 02655000 * END; 0778 02656000 * RESPECIFY 0779 02657000 * (RBUFF, 0779 02658000 * R10) UNRESTRICTED; 0779 02659000 @RC00754 DS 0H 0780 02660000 * RRPL=IIRPLPTR; /* RESTORE RRPL @OX19980*/ 02661000 L RRPL,IIRPLPTR(,RIICB) 0780 02662000 * END BLDBUFR; 0781 02663000 @EL00017 DS 0H 0781 02664000 @EF00017 DS 0H 0781 02665000 @ER00017 BR @14 0781 02666000 * 0782 02667000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02668000 ** * 02669000 ** FUNCTION = DCB INITIALIZATION * 02670000 ** THIS ROUTINE PERFORMS FINAL INITIALIZATION OF FIELDS FOR * 02671000 ** THE ISAM INTERFACE. * 02672000 ** * 02673000 ** INPUT = * 02674000 ** REGISTER 1 - RDCB - DCB POINTER * 02675000 ** REGISTER 2 - RIICB - IICB POINTER * 02676000 ** REGISTER 3 - RRPL - RPL POINTER * 02677000 ** REGISTER 6 - RACB - ACB POINTER * 02678000 ** * 02679000 ** OUTPUT = * 02680000 ** REGISTERS - SAME AS ABOVE * 02681000 ** * 02682000 ** CONTROL BLOCK FIELDS INITIALIZED * 02683000 ** DCBOFLGS * 02684000 ** OPEN BIT ON * 02685000 ** LOCK BIT OFF * 02686000 ** BUSY BIT OFF * 02687000 ** DCBOPTCD * 02688000 ** DCBRORG1 * 02689000 ** DCBRORG2 * 02690000 ** DCBRORG3 * 02691000 ** DCBWKPT6 * 02692000 ** IISEQCHK * 02693000 ** IIW1CBF * 02694000 ** * 02695000 ** PROTECTION KEY = SEE BELOW * 02696000 ** KEY ON ENTRY - USER KEY * 02697000 ** KEY ON EXIT - USER KEY * 02698000 ** INTERIM KEYS ASSUMED = NONE * 02699000 ** * 02700000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 02701000 * 0782 02702000 *DCBINIT: 0782 02703000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0782 02704000 DCBINIT DS 0H 0783 02705000 * RESPECIFY 0783 02706000 * (JFCBPTR) RESTRICTED; /* II SUPPORT-DCB WORK AREA */ 02707000 * IF DCBMFGET=ON THEN /* IF SCAN MODE */ 02708000 TM DCBMFGET+40(RDCB),B'01000000' 0784 02709000 BNO @RF00784 0784 02710000 * DO; /* REFERENCED BY COBOL */ 02711000 * DCBWKPT1=ADDR(IIW1CBF)-112; /* QISAM SCAN - WA + 112 = 0786 02712000 * W1CBF-CURRENT BUFFER PTR */ 02713000 LA @15,IIW1CBF(,RIICB) 0786 02714000 SL @15,@CF02483 0786 02715000 ST @15,DCBWKPT1+52(,RDCB) 0786 02716000 * IIW1CBF=RPLIIBFR; /* USED BY COBOL FOR PUTX 0787 02717000 * @XM01562*/ 02718000 L @15,RPLIIBFR+76(,RRPL) 0787 02719000 ST @15,IIW1CBF(,RIICB) 0787 02720000 * END; /* AFTER GET @XM01562*/ 02721000 * DCBWKPT5=RIICB; /* INIT DCB TO POINT TO IICB 0789 02722000 * REFERENCED BY PL/I */ 02723000 @RF00784 LA @15,52 0789 02724000 ALR @15,RDCB 0789 02725000 ST RIICB,DCBWKPT5(,@15) 0789 02726000 * IF DCBMFLCP=ON THEN /* IF PUT LOCATE */ 02727000 TM DCBMFLCP+40(RDCB),B'00001000' 0790 02728000 BNO @RF00790 0790 02729000 * DCBWKPT6=ADDR(IIKEYPT)-4; /* QISAM LOAD - ISLVPTR PTR 0791 02730000 * ISLVPTRS + 4 = KEYSAVE */ 02731000 LA @10,IIKEYPT(,RIICB) 0791 02732000 SL @10,@CF00199 0791 02733000 ST @10,DCBWKPT6(,@15) 0791 02734000 * IF(DCBMFMVP=ON| /* IF LOAD MODE @XM01562 02735000 * (PUT MOVE OR PUT @XM01562*/ 02736000 * DCBMFLCP=ON)& /* LOCATE) AND THE @XM01562*/ 02737000 * AMDNLR>ZERO THEN /* DATA SET CONTAINS @XM01562*/ 02738000 @RF00790 TM DCBMFMVP+40(RDCB),B'00011000' 0792 02739000 BZ @RF00792 0792 02740000 L @15,ACBAMBL(,RACB) 0792 02741000 L @15,AMBLDTA(,@15) 0792 02742000 L @15,AMBDSB(,@15) 0792 02743000 L @15,AMDNLR(,@15) 0792 02744000 LTR @15,@15 0792 02745000 BNP @RF00792 0792 02746000 * DCBSTLOD=ON; /* TURN ON RESUME LOAD BIT 0793 02747000 * @XM01562*/ 02748000 OI DCBSTLOD+52(RDCB),B'00100000' 0793 02749000 * ELSE 0794 02750000 * DCBSTLOD=OFF; /* ELSE TURN RL BIT OFF @XM01562 02751000 * MAP OPTCD FROM JFCB TO DCB TO 02752000 * OVERRIDE DCB EXIT CHGS */ 02753000 B @RC00792 0794 02754000 @RF00792 NI DCBSTLOD+52(RDCB),B'11011111' 0794 02755000 * JFCBPTR=ADDR(DXJBF); /* INIT JFCB PTR @Y021130*/ 02756000 @RC00792 LA JFCBPTR,DXJBF(,RCORE) 0795 02757000 * IF JFCDEL=ON|DCBOPTL=ON THEN /* IF OPTCD=L IN AMP OR DCB */ 02758000 TM JFCDEL(JFCBPTR),B'00000010' 0796 02759000 BO @RT00796 0796 02760000 TM DCBOPTL+52(RDCB),B'00000010' 0796 02761000 BNO @RF00796 0796 02762000 @RT00796 DS 0H 0797 02763000 * DO; 0797 02764000 * DCBOPTI=OFF; /* TURN OFF DCB OPTCD=I */ 02765000 * DCBOPTL=ON; /* TURN ON DCB OPTCD=L */ 02766000 LA @15,52 0799 02767000 ALR @15,RDCB 0799 02768000 OI DCBOPTL(@15),B'00000010' 0799 02769000 NI DCBOPTI(@15),B'11101111' 0799 02770000 * IF JFCIND=ON THEN /* IF OPTCD=I IN AMP PARM */ 02771000 TM JFCIND(JFCBPTR),B'00010000' 0800 02772000 BNO @RF00800 0800 02773000 * DCBOPTI=ON; /* TURN ON DCB OPTCD=I */ 02774000 OI DCBOPTI(@15),B'00010000' 0801 02775000 * END; 0802 02776000 @RF00800 DS 0H 0803 02777000 * DCBRORG1=ZERO; /* INIT DCB REORGANIZATION */ 02778000 @RF00796 SLR @15,@15 0803 02779000 LA @10,52 0803 02780000 ALR @10,RDCB 0803 02781000 STH @15,DCBRORG1(,@10) 0803 02782000 * DCBRORG2=IIRORG2; /* FIELDS FOR REFERENCES */ 02783000 MVC DCBRORG2(2,@10),IIRORG2 0804 02784000 * DCBRORG3=ZERO; /* BY ISAM PROBLEM PROGRAMS */ 02785000 ST @15,DCBRORG3(,@10) 0805 02786000 * DCBOFLGS=ZERO; /* CLEAR OFLAGS */ 02787000 LA @15,40 0806 02788000 ALR @15,RDCB 0806 02789000 MVI DCBOFLGS(@15),X'00' 0806 02790000 * DCBOFOPN=ON; /* OPEN BIT ON - SUCCESSFUL */ 02791000 * DCBOFUEX=ON; /* LOCK BIT OFF (=1) */ 02792000 OI DCBOFOPN(@15),B'00010010' 0808 02793000 * RESPECIFY 0809 02794000 * (JFCBPTR) UNRESTRICTED; 0809 02795000 * END DCBINIT; 0810 02796000 @EL00018 DS 0H 0810 02797000 @EF00018 DS 0H 0810 02798000 @ER00018 BR @14 0810 02799000 * GEN(IDAPATCH); 0811 02800000 IDAPATCH 02801000 * END IDA0192I 0812 02802000 * 0812 02803000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02804000 */*%INCLUDE SYSLIB (IDAIIREG) */ 02805000 */*%INCLUDE SYSLIB (IDAIICB ) */ 02806000 */*%INCLUDE SYSLIB (IHADCBDF) */ 02807000 */*%INCLUDE SYSLIB (IHADCB ) */ 02808000 */*%INCLUDE SYSLIB (IFGRPL ) */ 02809000 */*%INCLUDE SYSLIB (IDARPLE ) */ 02810000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02811000 */*%INCLUDE SYSLIB (IEFJFCBN) */ 02812000 */*%INCLUDE SYSLIB (IEZDEB ) */ 02813000 */*%INCLUDE SYSLIB (IFGACB ) */ 02814000 */*%INCLUDE SYSLIB (IFGEXLST) */ 02815000 */*%INCLUDE SYSLIB (IDAAMBL ) */ 02816000 */*%INCLUDE SYSLIB (IDAAMB ) */ 02817000 */*%INCLUDE SYSLIB (IDAAMDSB) */ 02818000 */*%INCLUDE SYSLIB (IDACMB ) */ 02819000 */*%INCLUDE SYSLIB (IDAERMSG) */ 02820000 */*%INCLUDE SYSLIB (IDAERRCD) */ 02821000 */*%INCLUDE SYSLIB (IECDSECT) */ 02822000 * 0812 02823000 * ; 0812 02824000 B @EL00001 0812 02825000 @DATA DS 0H 02826000 @CH02175 DC H'20' 02827000 @DATD DSECT 02828000 DS 0F 02829000 IDA0192I CSECT 02830000 DS 0F 02831000 @CF00087 DC F'1' 02832000 @CF00098 DC F'2' 02833000 @CF00199 DC F'4' 02834000 @CH00199 EQU @CF00199+2 02835000 @CF00045 DC F'8' 02836000 @CH00045 EQU @CF00045+2 02837000 @CF00210 DC F'16' 02838000 @CF02486 DC F'36' 02839000 @CF02106 DC F'104' 02840000 @CH02106 EQU @CF02106+2 02841000 @CF02483 DC F'112' 02842000 @CF02487 DC F'241664' 02843000 @CF02508 DC F'-8' 02844000 @CF02428 DC XL4'80000000' 02845000 @DATD DSECT 02846000 DS 0D 02847000 DEBDAPTR DS A 02848000 DEBEXPTR DS A 02849000 DEBSBPTR DS A 02850000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02851000 @ENDDATD EQU * 02852000 IDA0192I CSECT 02853000 DS 0F 02854000 @SIZDATD DC AL1(0) 02855000 DC AL3(@ENDDATD-@DATD) 02856000 DS 0D 02857000 DEBID DC X'0F' 02858000 IIRORG2 DC X'7FFF' 02859000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02860000 @01 EQU 01 02861000 @02 EQU 02 02862000 @03 EQU 03 02863000 @04 EQU 04 02864000 @05 EQU 05 02865000 @06 EQU 06 02866000 @07 EQU 07 02867000 @08 EQU 08 02868000 @09 EQU 09 02869000 @10 EQU 10 02870000 @11 EQU 11 02871000 @12 EQU 12 02872000 @13 EQU 13 02873000 @14 EQU 14 02874000 @15 EQU 15 02875000 GPR01F EQU @01 02876000 R0 EQU @00 02877000 R1 EQU @01 02878000 RDCB EQU @01 02879000 RIICB EQU @02 02880000 RRPL EQU @03 02881000 RCORE EQU @04 02882000 RBUFF EQU @05 02883000 RACB EQU @06 02884000 RPARC EQU @07 02885000 RWORK2 EQU @07 02886000 R8 EQU @08 02887000 RWORK3 EQU @08 02888000 RGMSP EQU @08 02889000 R9 EQU @09 02890000 JFCBPTR EQU @09 02891000 RTIOT EQU @09 02892000 RGMLEN EQU @09 02893000 R10 EQU @10 02894000 RLKRETSV EQU @10 02895000 R11 EQU @11 02896000 RDEB EQU @11 02897000 DEBPTR EQU @11 02898000 R13 EQU @13 02899000 R14 EQU @14 02900000 R15 EQU @15 02901000 GPR00F EQU @00 02902000 GPR00P EQU @00 02903000 GPR01P EQU @01 02904000 GPR14F EQU @14 02905000 GPR14P EQU @14 02906000 GPR15F EQU @15 02907000 GPR15P EQU @15 02908000 RDECB EQU @01 02909000 RFMADDR EQU @07 02910000 RWORK1 EQU @06 02911000 R12 EQU @12 02912000 R2 EQU @02 02913000 R3 EQU @03 02914000 R4 EQU @04 02915000 R5 EQU @05 02916000 R6 EQU @06 02917000 R7 EQU @07 02918000 CVTPTR EQU 16 02919000 IDAIICB EQU 0 02920000 IICBID EQU IDAIICB 02921000 IICBLEN EQU IDAIICB+2 02922000 IIDCBPTR EQU IDAIICB+4 02923000 IIACBPTR EQU IDAIICB+8 02924000 IIRPLPTR EQU IDAIICB+12 02925000 IIW1CBF EQU IDAIICB+16 02926000 IIMAXLRL EQU IIW1CBF+2 02927000 IIKEYPT EQU IDAIICB+20 02928000 IIFLAG1 EQU IDAIICB+24 02929000 IIFTEST EQU IIFLAG1 02930000 IIQBFRS EQU IIFLAG1 02931000 IIACBL EQU IDAIICB+25 02932000 IIFLAG2 EQU IDAIICB+28 02933000 MRKP EQU IIFLAG2 02934000 MLRECL EQU IIFLAG2 02935000 MBLKSI EQU IIFLAG2 02936000 MOPTCD EQU IIFLAG2 02937000 MRECFM EQU IIFLAG2 02938000 MBUFL EQU IIFLAG2 02939000 MBUFNO EQU IIFLAG2 02940000 MKEYLE EQU IIFLAG2 02941000 IIRPLL EQU IDAIICB+29 02942000 IIKEYSL EQU IDAIICB+32 02943000 IIBUFL EQU IDAIICB+34 02944000 IIFLAG3 EQU IDAIICB+36 02945000 MBFALN EQU IIFLAG3 02946000 IIMSGL EQU IDAIICB+37 02947000 IIMSGPTR EQU IDAIICB+40 02948000 IIBUFNO EQU IDAIICB+44 02949000 IITBUFL EQU IDAIICB+45 02950000 IISVCLST EQU IDAIICB+48 02951000 IISAMSYN EQU IDAIICB+52 02952000 IIREGSAV EQU IDAIICB+60 02953000 IIAUD EQU IDAIICB+132 02954000 IIAUDHDR EQU IIAUD 02955000 IIAUDFL1 EQU IIAUDHDR 02956000 AUDACBOP EQU IIAUDFL1 02957000 AUDACBRO EQU IIAUDFL1 02958000 AUDDCBEX EQU IIAUDFL1 02959000 AUDDCBRT EQU IIAUDFL1 02960000 AUDPRMOD EQU IIAUDFL1 02961000 AUDIISYN EQU IIAUDFL1 02962000 AUDURSYN EQU IIAUDFL1 02963000 IIAUDFL2 EQU IIAUDHDR+1 02964000 AUDIIFBF EQU IIAUDFL2 02965000 IIGMCNTR EQU IIAUDHDR+2 02966000 IIGMAUD EQU IIAUD+4 02967000 AUDCSPLI EQU IIGMAUD+4 02968000 AUDCSPLD EQU IIGMAUD+12 02969000 AUDCSPLB EQU IIGMAUD+20 02970000 AUDCSPLM EQU IIGMAUD+28 02971000 IIGMNTRY EQU 0 02972000 IIGMADDR EQU IIGMNTRY 02973000 IIGMSPLG EQU IIGMNTRY+4 02974000 IHADCB EQU 0 02975000 IHADCS00 EQU 0 02976000 DCBFDAD EQU IHADCS00+5 02977000 IHADCS01 EQU 0 02978000 DCBDVTBL EQU IHADCS01 02979000 IHADCS11 EQU 0 02980000 DCBRELB EQU IHADCS11 02981000 DCBKEYLE EQU DCBRELB 02982000 DCBREL EQU DCBRELB+1 02983000 DCBDEVT EQU DCBREL 02984000 DCBBUFCB EQU IHADCS11+4 02985000 DCBBUFNO EQU DCBBUFCB 02986000 DCBBUFCA EQU DCBBUFCB+1 02987000 DCBBUFL EQU IHADCS11+8 02988000 DCBDSORG EQU IHADCS11+10 02989000 DCBDSRG1 EQU DCBDSORG 02990000 DCBDSRG2 EQU DCBDSORG+1 02991000 DCBIOBAD EQU IHADCS11+12 02992000 DCBODEB EQU DCBIOBAD 02993000 DCBLNP EQU DCBODEB 02994000 DCBQSLM EQU DCBLNP 02995000 DCBIOBAA EQU DCBODEB+1 02996000 IHADCS50 EQU 0 02997000 DCBSVCXL EQU IHADCS50 02998000 DCBSVCXA EQU DCBSVCXL+1 02999000 DCBEODAD EQU IHADCS50+4 03000000 DCBBFALN EQU DCBEODAD 03001000 DCBHIARC EQU DCBBFALN 03002000 DCBBFTEK EQU DCBHIARC 03003000 DCBBFT EQU DCBBFTEK 03004000 DCBBFA EQU DCBBFTEK 03005000 DCBEXLST EQU IHADCS50+8 03006000 DCBRECFM EQU DCBEXLST 03007000 DCBRECLA EQU DCBRECFM 03008000 DCBRECL EQU DCBRECLA 03009000 DCBRECBR EQU DCBRECFM 03010000 DCBEXLSA EQU DCBEXLST+1 03011000 IHADCS24 EQU 0 03012000 DCBDDNAM EQU IHADCS24 03013000 DCBOFLGS EQU IHADCS24+8 03014000 DCBOFLWR EQU DCBOFLGS 03015000 DCBOFOPN EQU DCBOFLGS 03016000 DCBOFUEX EQU DCBOFLGS 03017000 DCBIFLG EQU IHADCS24+9 03018000 DCBIBPCT EQU DCBIFLG 03019000 DCBMACR EQU IHADCS24+10 03020000 DCBMACR1 EQU DCBMACR 03021000 DCBMRFE EQU DCBMACR1 03022000 DCBMRGET EQU DCBMRFE 03023000 DCBMRAPG EQU DCBMACR1 03024000 DCBMRRD EQU DCBMRAPG 03025000 DCBMRCI EQU DCBMACR1 03026000 DCBMRMVG EQU DCBMRCI 03027000 DCBMRLCG EQU DCBMACR1 03028000 DCBMRABC EQU DCBMACR1 03029000 DCBMRPT1 EQU DCBMRABC 03030000 DCBMRSBG EQU DCBMRPT1 03031000 DCBMRCRL EQU DCBMACR1 03032000 DCBMRCHK EQU DCBMRCRL 03033000 DCBMRRDX EQU DCBMRCHK 03034000 DCBMRDMG EQU DCBMACR1 03035000 DCBMACR2 EQU DCBMACR+1 03036000 DCBMRPUT EQU DCBMACR2 03037000 DCBMRWRT EQU DCBMACR2 03038000 DCBMRMVP EQU DCBMACR2 03039000 DCBMR5WD EQU DCBMACR2 03040000 DCBMRLDM EQU DCBMR5WD 03041000 DCBMRLCP EQU DCBMRLDM 03042000 DCBMR4WD EQU DCBMACR2 03043000 DCBMRPT2 EQU DCBMR4WD 03044000 DCBMRTMD EQU DCBMRPT2 03045000 DCBMR3WD EQU DCBMACR2 03046000 DCBMRCTL EQU DCBMR3WD 03047000 DCBMRSTK EQU DCBMRCTL 03048000 DCBMR1WD EQU DCBMACR2 03049000 DCBMRSWA EQU DCBMR1WD 03050000 DCBMRDMD EQU DCBMRSWA 03051000 IHADCS25 EQU 0 03052000 DCBMACRF EQU IHADCS25+2 03053000 DCBMACF1 EQU DCBMACRF 03054000 DCBMFFE EQU DCBMACF1 03055000 DCBMFGET EQU DCBMFFE 03056000 DCBMFAPG EQU DCBMACF1 03057000 DCBMFRD EQU DCBMFAPG 03058000 DCBMFCI EQU DCBMACF1 03059000 DCBMFMVG EQU DCBMFCI 03060000 DCBMFLCG EQU DCBMACF1 03061000 DCBMFABC EQU DCBMACF1 03062000 DCBMFPT1 EQU DCBMFABC 03063000 DCBMFSBG EQU DCBMFPT1 03064000 DCBMFDBF EQU DCBMFSBG 03065000 DCBMFCRL EQU DCBMACF1 03066000 DCBMFCHK EQU DCBMFCRL 03067000 DCBMFDMG EQU DCBMACF1 03068000 DCBMACF2 EQU DCBMACRF+1 03069000 DCBMFPUT EQU DCBMACF2 03070000 DCBMFWRT EQU DCBMACF2 03071000 DCBMFMVP EQU DCBMACF2 03072000 DCBMF5WD EQU DCBMACF2 03073000 DCBMFLDM EQU DCBMF5WD 03074000 DCBMFLCP EQU DCBMFLDM 03075000 DCBMF4WD EQU DCBMACF2 03076000 DCBMFPT2 EQU DCBMF4WD 03077000 DCBMFTMD EQU DCBMFPT2 03078000 DCBMFUIP EQU DCBMFTMD 03079000 DCBMF3WD EQU DCBMACF2 03080000 DCBMFCTL EQU DCBMF3WD 03081000 DCBMFSTK EQU DCBMFCTL 03082000 DCBMF1WD EQU DCBMACF2 03083000 DCBMFSWA EQU DCBMF1WD 03084000 DCBMFDMD EQU DCBMFSWA 03085000 DCBDEBAD EQU IHADCS25+4 03086000 DCBIFLGS EQU DCBDEBAD 03087000 DCBIFPCT EQU DCBIFLGS 03088000 DCBDEBA EQU DCBDEBAD+1 03089000 IHADCS27 EQU 0 03090000 DCBGET EQU IHADCS27 03091000 DCBPUT EQU DCBGET 03092000 DCBGETA EQU DCBPUT+1 03093000 IHADCS29 EQU 0 03094000 DCBOPTCD EQU IHADCS29 03095000 DCBOPTW EQU DCBOPTCD 03096000 DCBOPTI EQU DCBOPTCD 03097000 DCBOPTL EQU DCBOPTCD 03098000 DCBMAC EQU IHADCS29+1 03099000 DCBSYNAD EQU IHADCS29+4 03100000 DCBRKP EQU IHADCS29+8 03101000 DCBBLKSI EQU IHADCS29+10 03102000 DCBMSHI EQU IHADCS29+20 03103000 DCBNCP EQU DCBMSHI 03104000 DCBSETL EQU IHADCS29+24 03105000 DCBEXCD1 EQU IHADCS29+28 03106000 DCBEXCD2 EQU IHADCS29+29 03107000 DCBEXLTH EQU DCBEXCD2 03108000 DCBLRECL EQU IHADCS29+30 03109000 DCBESETL EQU IHADCS29+32 03110000 DCBLRAN EQU IHADCS29+36 03111000 DCBLWKN EQU IHADCS29+40 03112000 DCBFREED EQU IHADCS29+56 03113000 DCBNCRHI EQU IHADCS29+98 03114000 DCBRORG3 EQU IHADCS29+100 03115000 DCBST EQU IHADCS29+108 03116000 DCBSTLOD EQU DCBST 03117000 DCBRORG2 EQU IHADCS29+154 03118000 DCBRORG1 EQU IHADCS29+172 03119000 DCBWKPT1 EQU IHADCS29+176 03120000 DCBWKPT5 EQU IHADCS29+192 03121000 DCBWKPT6 EQU IHADCS29+196 03122000 IHADCS55 EQU 0 03123000 IFGRPL EQU 0 03124000 RPLCOMN EQU IFGRPL 03125000 RPLIDWD EQU RPLCOMN 03126000 RPLID EQU RPLIDWD 03127000 RPLLEN EQU RPLIDWD+3 03128000 RPLECB EQU RPLCOMN+8 03129000 RPLFDBWD EQU RPLCOMN+12 03130000 RPLFDBK EQU RPLFDBWD+1 03131000 RPLRTNCD EQU RPLFDBK 03132000 RPLCNDCD EQU RPLFDBK+1 03133000 RPLCMPON EQU RPLCNDCD 03134000 RPLFDB2 EQU RPLCMPON 03135000 RPLERRCD EQU RPLCNDCD+1 03136000 RPLFDB3 EQU RPLERRCD 03137000 RPLKEYLE EQU RPLCOMN+16 03138000 RPLDACB EQU RPLCOMN+24 03139000 RPLARG EQU RPLCOMN+36 03140000 RPLOPTCD EQU RPLCOMN+40 03141000 RPLOPT1 EQU RPLOPTCD 03142000 RPLDIR EQU RPLOPT1 03143000 RPLSEQ EQU RPLOPT1 03144000 RPLECBSW EQU RPLOPT1 03145000 RPLOPT2 EQU RPLOPTCD+1 03146000 RPLKEY EQU RPLOPT2 03147000 RPLADR EQU RPLOPT2 03148000 RPLUPD EQU RPLOPT2 03149000 RPLOPT3 EQU RPLOPTCD+2 03150000 RPLNXTRP EQU RPLCOMN+44 03151000 RPLRLEN EQU RPLCOMN+48 03152000 RPLBUFL EQU RPLCOMN+52 03153000 RPLOPTC2 EQU RPLCOMN+56 03154000 RPLOPT5 EQU RPLOPTC2 03155000 RPLWRTYP EQU RPLOPT5 03156000 RPLOPT6 EQU RPLOPTC2+1 03157000 RPLUNTYP EQU RPLOPT6 03158000 RPLOPT7 EQU RPLOPTC2+2 03159000 RPLCNOPT EQU RPLOPT7 03160000 RPLOPT8 EQU RPLOPTC2+3 03161000 RPLRBAR EQU RPLCOMN+60 03162000 RPLAIXID EQU RPLRBAR+2 03163000 RPLEXTDS EQU RPLCOMN+68 03164000 RPLEXTD1 EQU RPLEXTDS 03165000 RPLEMLEN EQU RPLCOMN+70 03166000 RPLERMSA EQU RPLCOMN+72 03167000 IDARPLE EQU 0 03168000 RPLIICB EQU IDARPLE 03169000 RPLIIBFR EQU IDARPLE+8 03170000 RPLRPLPT EQU IDARPLE+12 03171000 TCBFIX EQU 0 03172000 TCBFRS EQU TCBFIX 03173000 TCBPTR EQU 4 03174000 TCB EQU 0 03175000 TCBPIE EQU TCB+4 03176000 TCBPMASK EQU TCBPIE 03177000 TCBDEB EQU TCB+8 03178000 TCBCMP EQU TCB+16 03179000 TCBCMPF EQU TCBCMP 03180000 TCBCPP EQU TCBCMPF 03181000 TCBSTCC EQU TCBCMPF 03182000 TCBCDBL EQU TCBCMPF 03183000 TCBCWTO EQU TCBCMPF 03184000 TCBCIND EQU TCBCMPF 03185000 TCBCMSG EQU TCBCMPF 03186000 TCBTRN EQU TCB+20 03187000 TCBABF EQU TCBTRN 03188000 TCBMSS EQU TCB+24 03189000 TCBPKF EQU TCB+28 03190000 TCBFLGS EQU TCB+29 03191000 TCBFLGS1 EQU TCBFLGS 03192000 TCBFLGS2 EQU TCBFLGS+1 03193000 TCBFLGS3 EQU TCBFLGS+2 03194000 TCBFLGS4 EQU TCBFLGS+3 03195000 TCBFLGS5 EQU TCBFLGS+4 03196000 TCBABWF EQU TCBFLGS5 03197000 TCBDSP EQU TCB+35 03198000 TCBJPQ EQU TCB+44 03199000 TCBPURGE EQU TCBJPQ 03200000 TCBGRS EQU TCB+48 03201000 TCBFSA EQU TCB+112 03202000 TCBTME EQU TCB+120 03203000 TCBJSTCB EQU TCB+124 03204000 TCBTSFLG EQU TCB+148 03205000 TCBTSTSK EQU TCBTSFLG 03206000 TCBSTAB EQU TCB+160 03207000 TCBNSTAE EQU TCBSTAB 03208000 TCBTCT EQU TCB+164 03209000 TCBTCTGF EQU TCBTCT 03210000 TCBSCNDY EQU TCB+172 03211000 TCBNDSP EQU TCBSCNDY 03212000 TCBNDSP1 EQU TCBNDSP+1 03213000 TCBNDSP2 EQU TCBNDSP+2 03214000 TCBNDSP3 EQU TCBNDSP+3 03215000 TCBJSCB EQU TCB+180 03216000 TCBRECDE EQU TCBJSCB 03217000 TCBEXT1 EQU TCB+196 03218000 TCBBITS EQU TCB+200 03219000 TCBNDSP4 EQU TCBBITS 03220000 TCBNDSP5 EQU TCBBITS+1 03221000 TCBFLGS6 EQU TCBBITS+2 03222000 TCBFLGS7 EQU TCBBITS+3 03223000 TCBDAR EQU TCB+204 03224000 TCBDARC EQU TCBDAR 03225000 TCBEXT2 EQU TCB+208 03226000 TCBFOE EQU TCB+244 03227000 TCBESTAE EQU TCB+264 03228000 TCBESTRM EQU TCBESTAE+1 03229000 TCBFBYT1 EQU TCB+276 03230000 TCBFBYT2 EQU TCB+277 03231000 TCBRV124 EQU TCB+278 03232000 TCBRV133 EQU TCB+279 03233000 TCBXTNT2 EQU 0 03234000 TCBGTF EQU TCBXTNT2 03235000 TCBTFLG EQU TCBGTF 03236000 TCBRV146 EQU TCBXTNT2+28 03237000 TCBRV155 EQU TCBXTNT2+29 03238000 TCBRV164 EQU TCBXTNT2+30 03239000 TCBRV173 EQU TCBXTNT2+31 03240000 INFMJFCB EQU 0 03241000 JFCBDSNM EQU INFMJFCB 03242000 JFCBELNM EQU INFMJFCB+44 03243000 JFCBTSDM EQU INFMJFCB+52 03244000 JFCFCBID EQU INFMJFCB+56 03245000 JFCBFRID EQU JFCFCBID 03246000 JFCBLTYP EQU INFMJFCB+66 03247000 JFCBOTTR EQU INFMJFCB+67 03248000 JFCBUFOF EQU JFCBOTTR 03249000 JFCBFLSQ EQU JFCBOTTR+1 03250000 JFCFUNC EQU JFCBFLSQ 03251000 JFCBMASK EQU INFMJFCB+72 03252000 JFCBFLG1 EQU JFCBMASK+5 03253000 JFCOPEN EQU JFCBFLG1 03254000 JFCBFLG2 EQU JFCBMASK+6 03255000 JFCDEFER EQU JFCBFLG2 03256000 JFCBIND1 EQU INFMJFCB+86 03257000 JFCBIND2 EQU INFMJFCB+87 03258000 JFCDISP EQU JFCBIND2 03259000 JFCAMPTR EQU INFMJFCB+88 03260000 JFCBUFRQ EQU JFCAMPTR 03261000 JFCBUFNO EQU JFCBUFRQ 03262000 JFCBGNCP EQU JFCAMPTR+1 03263000 JFCBHIAR EQU JFCBGNCP 03264000 JFCBFALN EQU JFCBHIAR 03265000 JFCBFTEK EQU JFCBFALN 03266000 JFCBBFTA EQU JFCBFTEK 03267000 JFCEROPT EQU INFMJFCB+92 03268000 JFCTRTCH EQU INFMJFCB+93 03269000 DEBBASIC EQU 0 03270000 DEBTCBAD EQU DEBBASIC 03271000 DEBTCBB EQU DEBTCBAD+1 03272000 DEBDEBAD EQU DEBBASIC+4 03273000 DEBAMLNG EQU DEBDEBAD 03274000 DEBDEBB EQU DEBDEBAD+1 03275000 DEBIRBAD EQU DEBBASIC+8 03276000 DEBOFLGS EQU DEBIRBAD 03277000 DEBOPATB EQU DEBBASIC+12 03278000 DEBABEND EQU DEBOPATB 03279000 DEBFLGS1 EQU DEBBASIC+14 03280000 DEBCINDI EQU DEBFLGS1 03281000 DEBXTNIN EQU DEBFLGS1 03282000 DEBUSRPG EQU DEBBASIC+16 03283000 DEBNMEXT EQU DEBUSRPG 03284000 DEBRRQ EQU DEBBASIC+20 03285000 DEBECBAD EQU DEBRRQ 03286000 DEBPRIOR EQU DEBECBAD 03287000 DEBDCBAD EQU DEBBASIC+24 03288000 DEBPROTG EQU DEBDCBAD 03289000 DEBDCBB EQU DEBDCBAD+1 03290000 DEBAPPAD EQU DEBBASIC+28 03291000 DEBEXSCL EQU DEBAPPAD 03292000 DEBAPPB EQU DEBAPPAD+1 03293000 DEBBASND EQU DEBBASIC+32 03294000 DEBDASD EQU 0 03295000 DEBUCBAD EQU DEBDASD 03296000 DEBUCBA EQU DEBUCBAD+1 03297000 DEBACSMD EQU 0 03298000 DEBVOLSQ EQU DEBACSMD 03299000 DEBVOLBT EQU DEBVOLSQ 03300000 DEBDSNM EQU DEBACSMD+4 03301000 DEBUTSAA EQU DEBDSNM 03302000 DEBACS01 EQU 0 03303000 DEBDSNAM EQU DEBACS01 03304000 DEBACS02 EQU 0 03305000 DEBDBLK EQU DEBACS02 03306000 DEBACS03 EQU 0 03307000 DEBACS04 EQU 0 03308000 DEBTBFRA EQU DEBACS04 03309000 DEBTCCWA EQU DEBACS04+4 03310000 DEBACS05 EQU 0 03311000 DEBFUCBA EQU DEBACS05 03312000 DEBLUCBA EQU DEBACS05+4 03313000 DEBACS06 EQU 0 03314000 DEBACS07 EQU 0 03315000 DEBWKPT5 EQU DEBACS07+12 03316000 DEBACS08 EQU 0 03317000 DEBFREED EQU DEBACS08+16 03318000 DEBSUBNM EQU 0 03319000 DEB EQU 0 03320000 DEBAVT EQU DEB 03321000 DEBEOEA EQU DEBAVT 03322000 DEBEOEAB EQU DEBEOEA 03323000 DEBSIOA EQU DEBAVT+4 03324000 DEBSIOAB EQU DEBSIOA 03325000 DEBPCIA EQU DEBAVT+8 03326000 DEBPCIAB EQU DEBPCIA 03327000 DEBCEA EQU DEBAVT+12 03328000 DEBCEAB EQU DEBCEA 03329000 DEBXCEA EQU DEBAVT+16 03330000 DEBXCEAB EQU DEBXCEA 03331000 DEBPREFX EQU DEB+20 03332000 DEBXTNP EQU DEBPREFX+8 03333000 DEBLNGTH EQU DEBPREFX+12 03334000 DEBXTN EQU 0 03335000 DEBXFLG1 EQU DEBXTN+2 03336000 DEBXDBPR EQU DEBXTN+12 03337000 IFGACB EQU 0 03338000 ACBCOMN EQU IFGACB 03339000 ACBID EQU ACBCOMN 03340000 ACBLENG EQU ACBCOMN+2 03341000 ACBLENG2 EQU ACBLENG 03342000 ACBAMBL EQU ACBCOMN+4 03343000 ACBJWA EQU ACBAMBL 03344000 ACBMACRF EQU ACBCOMN+12 03345000 ACBMACR1 EQU ACBMACRF 03346000 ACBKEY EQU ACBMACR1 03347000 ACBADR EQU ACBMACR1 03348000 ACBCNV EQU ACBMACR1 03349000 ACBSEQ EQU ACBMACR1 03350000 ACBDIR EQU ACBMACR1 03351000 ACBIN EQU ACBMACR1 03352000 ACBOUT EQU ACBMACR1 03353000 ACBMACR2 EQU ACBMACRF+1 03354000 ACBBUFPL EQU ACBCOMN+20 03355000 ACBMACR3 EQU ACBBUFPL 03356000 ACBRECFM EQU ACBCOMN+24 03357000 ACBCCTYP EQU ACBCOMN+25 03358000 ACBOPT EQU ACBCOMN+26 03359000 ACBDSORG EQU ACBOPT 03360000 ACBCROPS EQU ACBDSORG 03361000 ACBDORGA EQU ACBDSORG+1 03362000 ACBPASSW EQU ACBCOMN+32 03363000 ACBEXLST EQU ACBCOMN+36 03364000 ACBDDNM EQU ACBCOMN+40 03365000 ACBAMETH EQU ACBDDNM+3 03366000 ACBOFLGS EQU ACBCOMN+48 03367000 ACBOPEN EQU ACBOFLGS 03368000 ACBEXFG EQU ACBOFLGS 03369000 ACBIOSFG EQU ACBOFLGS 03370000 ACBERFLG EQU ACBCOMN+49 03371000 ACBINFLG EQU ACBCOMN+50 03372000 ACBUJFCB EQU ACBCOMN+52 03373000 ACBBLKSZ EQU ACBCOMN+60 03374000 IFGEXLST EQU 0 03375000 EXLCOMN EQU IFGEXLST 03376000 EXLID EQU EXLCOMN 03377000 EXLLEN EQU EXLCOMN+2 03378000 EXLEODF EQU EXLCOMN+5 03379000 EXLEODP EQU EXLCOMN+6 03380000 EXLSYNF EQU EXLCOMN+10 03381000 EXLSYNP EQU EXLCOMN+11 03382000 EXLLERF EQU EXLCOMN+15 03383000 EXLLERP EQU EXLCOMN+16 03384000 EXLSCIPF EQU EXLCOMN+20 03385000 EXLUPADF EQU EXLSCIPF 03386000 EXLSCIPS EQU EXLUPADF 03387000 EXLSCIPA EQU EXLUPADF 03388000 EXLSCIPK EQU EXLUPADF 03389000 EXLSCIPP EQU EXLCOMN+21 03390000 EXLLGNF EQU EXLCOMN+25 03391000 EXLJRNF EQU EXLCOMN+30 03392000 EXLOPNF EQU EXLCOMN+35 03393000 IFGEXLEF EQU 0 03394000 EXLENTRY EQU IFGEXLEF 03395000 EXLFLAG EQU EXLENTRY 03396000 EXLENFL EQU EXLFLAG 03397000 EXLEXITP EQU EXLENTRY+1 03398000 IDAAMBL EQU 0 03399000 AMBLEOV EQU IDAAMBL+12 03400000 AMBLEFLG EQU AMBLEOV 03401000 AMBLDDNM EQU IDAAMBL+16 03402000 AMBLIDF EQU AMBLDDNM 03403000 AMBLQ EQU AMBLIDF+7 03404000 AMBLVC EQU IDAAMBL+28 03405000 AMBLTYPE EQU IDAAMBL+30 03406000 AMBLSHAR EQU IDAAMBL+33 03407000 AMBLFLG1 EQU IDAAMBL+35 03408000 AMBLFLG2 EQU IDAAMBL+36 03409000 AMBLDTA EQU IDAAMBL+52 03410000 AMBLCMB EQU IDAAMBL+64 03411000 IDAAMB EQU 0 03412000 AMBDSB EQU IDAAMB+20 03413000 AMBEOVR EQU IDAAMB+24 03414000 AMBFLG0 EQU AMBEOVR 03415000 AMBFLG1 EQU IDAAMB+25 03416000 AMBDSORG EQU IDAAMB+26 03417000 AMBIOBAD EQU IDAAMB+28 03418000 AMBINFL EQU IDAAMB+42 03419000 AMBDEBPT EQU IDAAMB+44 03420000 AMBOFLGS EQU IDAAMB+48 03421000 AMBFLG2 EQU IDAAMB+49 03422000 AMBEOVPT EQU IDAAMB+56 03423000 AMBCSWD1 EQU IDAAMB+84 03424000 AMBAFLG EQU AMBCSWD1 03425000 IDAAMDSB EQU 0 03426000 AMDATTR EQU IDAAMDSB+1 03427000 AMDWCK EQU AMDATTR 03428000 AMDNEST EQU IDAAMDSB+4 03429000 AMDRKP EQU IDAAMDSB+6 03430000 AMDKEYLN EQU IDAAMDSB+8 03431000 AMDLRECL EQU IDAAMDSB+24 03432000 AMDHLRBA EQU IDAAMDSB+28 03433000 AMDSSRBA EQU IDAAMDSB+32 03434000 AMDATTR3 EQU IDAAMDSB+40 03435000 AMDSTAT EQU IDAAMDSB+48 03436000 AMDNLR EQU AMDSTAT+12 03437000 IDACMB EQU 0 03438000 CMBFLGS EQU IDACMB+4 03439000 CMBNST EQU IDACMB+5 03440000 CMBPTRS EQU IDACMB+8 03441000 IDAERMSG EQU 0 03442000 ERBASE EQU IDAERMSG 03443000 ERLGTH EQU ERBASE 03444000 ERDEVD EQU ERBASE+107 03445000 FORCORE EQU 0 03446000 DXDSCB EQU FORCORE 03447000 DSCCORE EQU FORCORE+96 03448000 DXJBF EQU FORCORE+100 03449000 DXDAADDR EQU FORCORE+312 03450000 DXDCB EQU FORCORE+320 03451000 DXCCW EQU FORCORE+368 03452000 DXVOLSR EQU FORCORE+500 03453000 DXVOLSR1 EQU DXVOLSR 03454000 DXVOLSR2 EQU DXVOLSR+6 03455000 DXVOLSR3 EQU DXVOLSR+12 03456000 DXUKEY EQU FORCORE+526 03457000 DXDEBXAD EQU FORCORE+552 03458000 DXTIOTAD EQU FORCORE+556 03459000 DXUCBSAV EQU FORCORE+564 03460000 DXUDCBAD EQU FORCORE+568 03461000 DXPDCBAD EQU FORCORE+572 03462000 DXATCOM1 EQU FORCORE+588 03463000 DXATGENS EQU DXATCOM1 03464000 DXATVGIV EQU DXATGENS 03465000 DXATOUTA EQU DXATCOM1+2 03466000 DXATDACC EQU DXATCOM1+3 03467000 DXATCOM2 EQU FORCORE+592 03468000 DXATEOV EQU DXATCOM2 03469000 DXATOPEN EQU DXATCOM2+1 03470000 DXATALL EQU DXATCOM2+2 03471000 DXATCOM4 EQU FORCORE+600 03472000 DXATEXC1 EQU FORCORE+604 03473000 DXATEXB1 EQU DXATEXC1 03474000 DXATEXC2 EQU FORCORE+608 03475000 PARCNTRY EQU 0 03476000 PARCOPT EQU PARCNTRY 03477000 SCANPTR EQU 0 03478000 EXLST EQU 0 03479000 EXCODE EQU EXLST 03480000 EXLAST EQU EXCODE 03481000 EXADDR EQU EXLST+1 03482000 PCOPYDCB EQU 16 03483000 BCB EQU 0 03484000 BCBFSBUF EQU BCB 03485000 BCBBUFNO EQU BCB+4 03486000 BCBBUFL EQU BCB+6 03487000 BUFLINK EQU 0 03488000 CVTSVDCB EQU 84 03489000 CVTTCBDW EQU 0 03490000 TIOTDD EQU 0 03491000 TIOEDDNM EQU TIOTDD+4 03492000 TIOEFSRT EQU TIOTDD+17 03493000 UCBTYP EQU 19 03494000 SVRBPTR EQU 0 03495000 SVRB EQU 0 03496000 XRBREG EQU SVRB+32 03497000 XRBXSAV EQU SVRB+96 03498000 IKEBC EQU 0 03499000 IKEBF15 EQU 0 03500000 IKEBF31 EQU 0 03501000 IKEBP15 EQU 0 03502000 IKEBP31 EQU 0 03503000 IKEBP8 EQU 0 03504000 KEYAREA EQU 0 03505000 TIOTPTR EQU 12 03506000 JFCKEYLE EQU JFCTRTCH 03507000 JFCCODE EQU JFCKEYLE 03508000 JFCSTACK EQU JFCTRTCH 03509000 JFCMODE EQU JFCSTACK 03510000 JFCSPPRT EQU JFCTRTCH 03511000 JFCBABFS EQU JFCSPPRT+2 03512000 JFCLIMCT EQU JFCBABFS 03513000 JFCDSORG EQU JFCSPPRT+5 03514000 JFCDSRG1 EQU JFCDSORG 03515000 JFCDSRG2 EQU JFCDSORG+1 03516000 JFCRECFM EQU JFCSPPRT+7 03517000 JFCRCFM EQU JFCRECFM 03518000 JFCOPTCD EQU JFCSPPRT+8 03519000 JFCWVCSP EQU JFCOPTCD 03520000 JFCWVCIS EQU JFCWVCSP 03521000 JFCWVCBD EQU JFCWVCIS 03522000 JFCALLOW EQU JFCOPTCD 03523000 JFCRSV17 EQU JFCALLOW 03524000 JFCOVER EQU JFCRSV17 03525000 JFCPCIBT EQU JFCOPTCD 03526000 JFCMAST EQU JFCPCIBT 03527000 JFCEXT EQU JFCMAST 03528000 JFCBCKPT EQU JFCOPTCD 03529000 JFCIND EQU JFCBCKPT 03530000 JFCRSV18 EQU JFCOPTCD 03531000 JFCCYL EQU JFCRSV18 03532000 JFCACT EQU JFCCYL 03533000 JFCREDUC EQU JFCOPTCD 03534000 JFCRSV19 EQU JFCREDUC 03535000 JFCRSV20 EQU JFCRSV19 03536000 JFCRSV21 EQU JFCOPTCD 03537000 JFCDEL EQU JFCRSV21 03538000 JFCOPTJ EQU JFCOPTCD 03539000 JFCREORG EQU JFCOPTJ 03540000 JFCBLKSI EQU JFCSPPRT+9 03541000 JFCBUFSI EQU JFCBLKSI 03542000 JFCAMSYN EQU JFCSPPRT+11 03543000 JFCNCP EQU JFCAMSYN+2 03544000 JFCNTM EQU JFCAMSYN+3 03545000 JFCBFSEQ EQU JFCNTM 03546000 JFCPCI EQU JFCBFSEQ 03547000 JFCRESRV EQU JFCAMSYN+4 03548000 JFCUCSEG EQU JFCRESRV 03549000 JFCUCSOP EQU JFCUCSEG+4 03550000 JFCOUTLI EQU JFCUCSEG+5 03551000 JFCTHRSH EQU JFCOUTLI 03552000 JFCCPRI EQU JFCTHRSH 03553000 JFCBVOLS EQU JFCUCSEG+10 03554000 JFCBS001 EQU JFCBVOLS 03555000 JFCBPQTY EQU JFCBS001+34 03556000 JFCBCTRI EQU JFCBS001+37 03557000 JFCBSQTY EQU JFCBS001+38 03558000 JFCFLGS1 EQU JFCBS001+41 03559000 JFCBSPNM EQU JFCBS001+45 03560000 JFCBFLG3 EQU JFCBSPNM 03561000 DEBBAS02 EQU DEBBASND 03562000 DEBDDS1 EQU DEBBAS02 03563000 DEBSUCBA EQU DEBDDS1 03564000 DEBDEVED EQU DEBDDS1+4 03565000 DEBRDCB EQU DEBDDS1+4 03566000 DEBPDCB EQU DEBDDS1+8 03567000 DEBWDCB EQU DEBDDS1+12 03568000 DEBACS09 EQU DEBDEVED 03569000 DEBASC09 EQU DEBACS09 03570000 DEBEAMFG EQU DEBASC09+3 03571000 DEBDSID EQU DEBASC09+4 03572000 DEBEOD EQU DEBASC09+12 03573000 DEBBOE EQU DEBEOD 03574000 DEBEODRV EQU DEBBOE 03575000 DEBEODTT EQU DEBBOE+1 03576000 DEBEOD0 EQU DEBBOE+2 03577000 DEBEODSS EQU DEBBOE+3 03578000 DEBBAS01 EQU DEBBASND 03579000 DEBISAM EQU DEBBAS01 03580000 DEBFIEAD EQU DEBISAM 03581000 DEBFPEAD EQU DEBISAM+4 03582000 DEBFPEB EQU DEBFPEAD+1 03583000 DEBFOEAD EQU DEBISAM+8 03584000 DEBEXPT EQU DEBISAM+12 03585000 DEBRPSID EQU DEBEXPT 03586000 DEBEXPTA EQU DEBEXPT+1 03587000 IIWAOWA EQU DXCCW 03588000 IIRSAVE1 EQU IIWAOWA 03589000 IIRSAVE2 EQU IIWAOWA+4 03590000 IIRSAVE3 EQU IIWAOWA+8 03591000 @NM00097 EQU IIWAOWA+16 03592000 MAINADDR EQU @NM00097 03593000 MAINR0 EQU IIWAOWA+20 03594000 MAINPOOL EQU MAINR0 03595000 MAINLEN EQU MAINR0+1 03596000 IIRSAVE EQU IIWAOWA+28 03597000 DCBII EQU DCBGET 03598000 DCBIIGET EQU DCBII+1 03599000 DCBIIPUT EQU DCBIIGET 03600000 ISAMDCB EQU DCBKEYLE 03601000 IIAUDPTR EQU DXATCOM4+8 03602000 BUFADDR EQU DCBBUFCB 03603000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03604000 @NM00101 EQU DCBII 03605000 @NM00099 EQU IIWAOWA+32 03606000 @NM00098 EQU IIWAOWA+24 03607000 @NM00096 EQU IIWAOWA+12 03608000 DEBRSV12 EQU DEBRPSID 03609000 DEBRSV11 EQU DEBRPSID 03610000 DEBRSV10 EQU DEBRPSID 03611000 DEBRSV09 EQU DEBRPSID 03612000 DEBRPSAP EQU DEBRPSID 03613000 DEBRPSO EQU DEBRPSID 03614000 DEBRPSI EQU DEBRPSID 03615000 DEBRPSP EQU DEBRPSID 03616000 DEBFOEB EQU DEBFOEAD+1 03617000 DEBNOEE EQU DEBFOEAD 03618000 DEBNPEE EQU DEBFPEAD 03619000 DEBFIEB EQU DEBFIEAD+1 03620000 DEBNIEE EQU DEBFIEAD 03621000 DEBBOESS EQU DEBEODSS 03622000 DEBBOE0 EQU DEBEOD0 03623000 DEBBOETT EQU DEBEODTT 03624000 DEBBOERV EQU DEBEODRV 03625000 DEBRV008 EQU DEBDSID+7 03626000 DEBWTPTI EQU DEBDSID+6 03627000 DEBEXDTE EQU DEBDSID 03628000 DEBRV007 EQU DEBEAMFG 03629000 DEBRV006 EQU DEBEAMFG 03630000 DEBRV005 EQU DEBEAMFG 03631000 DEBRV004 EQU DEBEAMFG 03632000 DEBSECVL EQU DEBEAMFG 03633000 DEBVAMSG EQU DEBEAMFG 03634000 DEBDSOPN EQU DEBEAMFG 03635000 DEBMULTI EQU DEBEAMFG 03636000 DEBVSEQU EQU DEBASC09+2 03637000 DEBDSSQL EQU DEBASC09+1 03638000 DEBVOLAC EQU DEBASC09 03639000 DEBWDCBA EQU DEBWDCB+1 03640000 DEBRSV08 EQU DEBWDCB 03641000 DEBPDCBA EQU DEBPDCB+1 03642000 DEBRSV07 EQU DEBPDCB 03643000 DEBRDCBA EQU DEBRDCB+1 03644000 DEBRSV06 EQU DEBRDCB 03645000 DEBSUCBB EQU DEBSUCBA+1 03646000 DEBSDVM EQU DEBSUCBA 03647000 JFCBEND EQU JFCBS001+58 03648000 JFCBSPTN EQU JFCBS001+57 03649000 JFCBVLCT EQU JFCBS001+56 03650000 JFCBDRLH EQU JFCBS001+53 03651000 JFCBSBNM EQU JFCBS001+50 03652000 JFCBABST EQU JFCBS001+48 03653000 JFCBRV08 EQU JFCBSPNM+1 03654000 JFCBRV07 EQU JFCBFLG3 03655000 JFCBRV06 EQU JFCBFLG3 03656000 JFCBRV05 EQU JFCBFLG3 03657000 JFCBRV04 EQU JFCBFLG3 03658000 JFCBRV03 EQU JFCBFLG3 03659000 JFCBRV02 EQU JFCBFLG3 03660000 JFCBEXP EQU JFCBFLG3 03661000 JFCDQDSP EQU JFCBFLG3 03662000 JFCBDQTY EQU JFCBS001+42 03663000 JFCBUAFF EQU JFCFLGS1 03664000 JFCRSV45 EQU JFCFLGS1 03665000 JFCVRDS EQU JFCFLGS1 03666000 JFCBCEOV EQU JFCFLGS1 03667000 JFCRSV42 EQU JFCFLGS1 03668000 JFCBADSP EQU JFCFLGS1 03669000 JFCTOPEN EQU JFCFLGS1 03670000 JFCBDLET EQU JFCFLGS1 03671000 JFCRQID EQU JFCBSQTY 03672000 JFCROUND EQU JFCBCTRI 03673000 JFCALX EQU JFCBCTRI 03674000 JFCMIXG EQU JFCBCTRI 03675000 JFCONTIG EQU JFCBCTRI 03676000 JFCRSV29 EQU JFCBCTRI 03677000 JFCBMSGP EQU JFCBCTRI 03678000 JFCBSPAC EQU JFCBCTRI 03679000 JFCRUNIT EQU JFCBPQTY 03680000 JFCBEXAD EQU JFCBS001+31 03681000 JFCBEXTL EQU JFCBS001+30 03682000 JFCMSVGP EQU JFCBS001+22 03683000 @NM00038 EQU JFCBS001 03684000 JFCAVOLS EQU JFCBVOLS 03685000 JFCBNVOL EQU JFCUCSEG+9 03686000 JFCBNTCS EQU JFCUCSEG+8 03687000 JFCSOWA EQU JFCOUTLI+1 03688000 JFCSEND EQU JFCCPRI 03689000 JFCEQUAL EQU JFCCPRI 03690000 JFCRECV EQU JFCCPRI 03691000 JFCRSV34 EQU JFCCPRI 03692000 JFCRSV33 EQU JFCCPRI 03693000 JFCRSV55 EQU JFCCPRI 03694000 JFCRSV54 EQU JFCCPRI 03695000 JFCRSV53 EQU JFCCPRI 03696000 JFCRSV27 EQU JFCUCSOP 03697000 JFCRSV26 EQU JFCUCSOP 03698000 JFCFCBVR EQU JFCUCSOP 03699000 JFCFCBAL EQU JFCUCSOP 03700000 JFCVER EQU JFCUCSOP 03701000 JFCRSV25 EQU JFCUCSOP 03702000 JFCFOLD EQU JFCUCSOP 03703000 JFCBEXTP EQU JFCUCSOP 03704000 JFCUCSID EQU JFCUCSEG 03705000 JFCINTVL EQU JFCSPPRT+19 03706000 JFCDBUFN EQU JFCRESRV+3 03707000 JFCCYLOF EQU JFCRESRV+2 03708000 JFCRKP EQU JFCRESRV 03709000 JFCPCIR2 EQU JFCPCI 03710000 JFCPCIR1 EQU JFCPCI 03711000 JFCPCIN2 EQU JFCPCI 03712000 JFCPCIN1 EQU JFCPCI 03713000 JFCPCIA2 EQU JFCPCI 03714000 JFCPCIA1 EQU JFCPCI 03715000 JFCPCIX2 EQU JFCPCI 03716000 JFCPCIX1 EQU JFCPCI 03717000 JFCBUFMX EQU JFCNCP 03718000 JFCLRECL EQU JFCAMSYN 03719000 JFCBAXBF EQU JFCBUFSI 03720000 JFCREL EQU JFCREORG 03721000 JFCRSV22 EQU JFCDEL 03722000 JFCSRCHD EQU JFCRSV20 03723000 JFCOPTQ EQU JFCACT 03724000 JFCFEED EQU JFCIND 03725000 JFCCBWU EQU JFCEXT 03726000 JFCWUMSG EQU JFCOVER 03727000 JFCSDNAM EQU JFCWVCBD 03728000 @NM00037 EQU JFCRECFM 03729000 JFCCHAR EQU JFCRECFM 03730000 JFCRFS EQU JFCRECFM 03731000 JFCRFB EQU JFCRECFM 03732000 JFCRFO EQU JFCRCFM 03733000 JFCFMREC EQU JFCRCFM 03734000 JFCRSV16 EQU JFCDSRG2 03735000 JFCRSV15 EQU JFCDSRG2 03736000 JFCORGTR EQU JFCDSRG2 03737000 JFCORGAM EQU JFCDSRG2 03738000 JFCRSV13 EQU JFCDSRG2 03739000 JFCORGTQ EQU JFCDSRG2 03740000 JFCORGTX EQU JFCDSRG2 03741000 JFCORGGS EQU JFCDSRG2 03742000 JFCORGU EQU JFCDSRG1 03743000 JFCORGPO EQU JFCDSRG1 03744000 JFCORGMQ EQU JFCDSRG1 03745000 JFCORGCQ EQU JFCDSRG1 03746000 JFCORGCX EQU JFCDSRG1 03747000 JFCORGDA EQU JFCDSRG1 03748000 JFCORGPS EQU JFCDSRG1 03749000 JFCORGIS EQU JFCDSRG1 03750000 JFCTRKBL EQU JFCLIMCT+1 03751000 @NM00036 EQU JFCLIMCT 03752000 JFCDEN EQU JFCSPPRT+1 03753000 JFCPRTSP EQU JFCSPPRT 03754000 JFCONE EQU JFCMODE 03755000 JFCTWO EQU JFCMODE 03756000 JFCRSV07 EQU JFCMODE 03757000 JFCRSV06 EQU JFCMODE 03758000 JFCMODER EQU JFCMODE 03759000 JFCMODEO EQU JFCMODE 03760000 JFCEBCD EQU JFCMODE 03761000 JFCBIN EQU JFCMODE 03762000 JFCRSV32 EQU JFCCODE 03763000 JFCTTY EQU JFCCODE 03764000 JFCASCII EQU JFCCODE 03765000 JFCNCR EQU JFCCODE 03766000 JFCBUR EQU JFCCODE 03767000 JFCFRI EQU JFCCODE 03768000 JFCBCD EQU JFCCODE 03769000 JFCNOCON EQU JFCCODE 03770000 @NM00104 EQU SVRB 03771000 @NM00103 EQU TIOTDD+12 03772000 @NM00102 EQU TIOTDD 03773000 PARCDCB EQU PARCNTRY+1 03774000 PARCACCS EQU PARCOPT 03775000 @NM00100 EQU PARCOPT 03776000 DSECTSIZ EQU FORCORE+612 03777000 DXATEXB2 EQU DXATEXC2 03778000 DXEXHASP EQU DXATEXB1 03779000 DXATCOM3 EQU FORCORE+596 03780000 @NM00095 EQU DXATCOM2+3 03781000 @NM00094 EQU DXATALL 03782000 DXATSWAP EQU DXATALL 03783000 DXATFC EQU DXATALL 03784000 @NM00093 EQU DXATOPEN 03785000 DXATDFIN EQU DXATOPEN 03786000 DXATDSIN EQU DXATOPEN 03787000 DXATMODM EQU DXATOPEN 03788000 DXATMODE EQU DXATOPEN 03789000 DXATMODS EQU DXATOPEN 03790000 DXATIGN EQU DXATOPEN 03791000 DXATVCAT EQU DXATEOV 03792000 DXATDADM EQU DXATEOV 03793000 DXATREMT EQU DXATEOV 03794000 DXATDNEW EQU DXATEOV 03795000 DXATDFRE EQU DXATEOV 03796000 DXATDCHN EQU DXATEOV 03797000 DXATNVOL EQU DXATEOV 03798000 DXATCCAT EQU DXATEOV 03799000 DXATRDDB EQU DXATDACC 03800000 DXATEOF EQU DXATDACC 03801000 @NM00092 EQU DXATDACC 03802000 DXATSMF EQU DXATDACC 03803000 DXATUPDB EQU DXATDACC 03804000 DXATDRCT EQU DXATDACC 03805000 DXATTRAK EQU DXATDACC 03806000 DXATF1CE EQU DXATDACC 03807000 DXATNSL EQU DXATOUTA 03808000 DXATTTM2 EQU DXATOUTA 03809000 DXATTTM1 EQU DXATOUTA 03810000 DXATTRL2 EQU DXATOUTA 03811000 DXATTRL1 EQU DXATOUTA 03812000 DXATDATM EQU DXATOUTA 03813000 DXATHDTM EQU DXATOUTA 03814000 DXATVLHD EQU DXATOUTA 03815000 DXATCLOS EQU DXATCOM1+1 03816000 DXATSRET EQU DXATGENS 03817000 DXATVCIG EQU DXATVGIV 03818000 DXATVTMG EQU DXATVGIV 03819000 DXATVSMG EQU DXATVGIV 03820000 DXATJFCB EQU DXATGENS 03821000 DXATDISP EQU DXATGENS 03822000 DXATREFR EQU DXATGENS 03823000 DXATDMCT EQU DXATGENS 03824000 DXMSGADR EQU FORCORE+584 03825000 DXPRPARC EQU FORCORE+580 03826000 DXUDCBML EQU FORCORE+578 03827000 DXUDCBPL EQU FORCORE+576 03828000 DXPACBAD EQU DXPDCBAD+1 03829000 @NM00091 EQU DXPDCBAD 03830000 DXUACBAD EQU DXUDCBAD+1 03831000 @NM00090 EQU DXUDCBAD 03832000 DXUCBSVV EQU DXUCBSAV+1 03833000 @NM00089 EQU DXUCBSAV 03834000 DXUCBADR EQU FORCORE+560 03835000 DXDSAB EQU FORCORE+548 03836000 DXDSABAD EQU FORCORE+544 03837000 DXDSABQD EQU FORCORE+540 03838000 DXJSCBAD EQU FORCORE+536 03839000 DXTCBADR EQU FORCORE+532 03840000 DXASCBAD EQU FORCORE+528 03841000 DXEXTSW EQU FORCORE+527 03842000 DXWKEYSV EQU FORCORE+525 03843000 DXRESSW EQU FORCORE+524 03844000 DXUNITOF EQU FORCORE+522 03845000 DXNOUNIT EQU FORCORE+520 03846000 DXVOLSEQ EQU FORCORE+518 03847000 DXVOLMT3 EQU DXVOLSR3 03848000 DXVOLMT2 EQU DXVOLSR2 03849000 DXVOLMT1 EQU DXVOLSR1 03850000 DXWORK4 EQU FORCORE+496 03851000 DXWORK3 EQU FORCORE+492 03852000 DXWORK2 EQU FORCORE+488 03853000 DXWORK1 EQU FORCORE+484 03854000 DXWORK EQU FORCORE+480 03855000 DXXCTL EQU FORCORE+472 03856000 @NM00088 EQU FORCORE+464 03857000 DXCCW12 EQU DXCCW+88 03858000 DXCCW11 EQU DXCCW+80 03859000 DXCCW10 EQU DXCCW+72 03860000 DXCCW9 EQU DXCCW+64 03861000 DXCCW8 EQU DXCCW+56 03862000 DXCCW7 EQU DXCCW+48 03863000 DXCCW6 EQU DXCCW+40 03864000 DXCCW5 EQU DXCCW+32 03865000 DXCCW4 EQU DXCCW+24 03866000 DXCCW3 EQU DXCCW+16 03867000 DXCCW2 EQU DXCCW+8 03868000 DXCCW1 EQU DXCCW 03869000 DXDCBDEB EQU DXDCB+44 03870000 @NM00087 EQU DXDCB+24 03871000 DXDEBDCB EQU DXDCB+20 03872000 @NM00086 EQU DXDCB 03873000 DXDEB EQU DXDAADDR+4 03874000 @NM00085 EQU DXDAADDR 03875000 DXIOB EQU FORCORE+280 03876000 DXECB EQU FORCORE+276 03877000 DXLBL EQU DXDSCB 03878000 ERDAAM EQU ERDEVD+15 03879000 ERDACOM EQU ERDEVD+14 03880000 ERDASEEK EQU ERDEVD 03881000 COMMA8 EQU ERBASE+106 03882000 ERDESC EQU ERBASE+91 03883000 COMMA7 EQU ERBASE+90 03884000 EROPER EQU ERBASE+84 03885000 COMMA6 EQU ERBASE+83 03886000 ERDDNM EQU ERBASE+75 03887000 COMMA5 EQU ERBASE+74 03888000 ERUNTYPE EQU ERBASE+72 03889000 COMMA4 EQU ERBASE+71 03890000 ERUNIT EQU ERBASE+68 03891000 COMMA3 EQU ERBASE+67 03892000 ERSTEPNM EQU ERBASE+59 03893000 COMMA2 EQU ERBASE+58 03894000 ERJOBNM EQU ERBASE+50 03895000 COMMA1 EQU ERBASE+49 03896000 ERMVOL EQU ERBASE+43 03897000 COMMA9 EQU ERBASE+42 03898000 ERMDSID EQU ERBASE+36 03899000 COMMA05 EQU ERBASE+35 03900000 ERRBA EQU ERBASE+27 03901000 COMMA0 EQU ERBASE+26 03902000 ERTIME EQU ERBASE+18 03903000 ERCOMMA EQU ERBASE+17 03904000 ERDATE EQU ERBASE+12 03905000 ERMBFRA EQU ERBASE+8 03906000 ERMZERO2 EQU ERLGTH+6 03907000 ERMLL2 EQU ERLGTH+4 03908000 ERMZERO1 EQU ERLGTH+2 03909000 ERMLL1 EQU ERLGTH 03910000 @NM00084 EQU CMBPTRS+52 03911000 CMBFXDPT EQU CMBPTRS+48 03912000 CMBPUSPT EQU CMBPTRS+44 03913000 CMBPSTPT EQU CMBPTRS+40 03914000 CMBEDBPT EQU CMBPTRS+36 03915000 CMBDEBPT EQU CMBPTRS+32 03916000 CMBUBFPT EQU CMBPTRS+28 03917000 CMBBFRPT EQU CMBPTRS+24 03918000 CMBUFSPT EQU CMBPTRS+20 03919000 CMBFSTPT EQU CMBPTRS+16 03920000 CMBUSPTR EQU CMBPTRS+12 03921000 CMBSTPTR EQU CMBPTRS+8 03922000 CMBPRPTR EQU CMBPTRS+4 03923000 CMBUSRPT EQU CMBPTRS 03924000 CMBCNT EQU IDACMB+6 03925000 CMBOUT EQU CMBFLGS 03926000 CMBLEN EQU IDACMB+2 03927000 @NM00083 EQU IDACMB+1 03928000 CMBID EQU IDACMB 03929000 AMDEXCP EQU AMDSTAT+44 03930000 AMDNCAS EQU AMDSTAT+40 03931000 AMDNCIS EQU AMDSTAT+36 03932000 AMDASPA EQU AMDSTAT+32 03933000 AMDRETR EQU AMDSTAT+28 03934000 AMDUPR EQU AMDSTAT+24 03935000 AMDIREC EQU AMDSTAT+20 03936000 AMDDELR EQU AMDSTAT+16 03937000 AMDNEXT EQU AMDSTAT+10 03938000 AMDNIL EQU AMDSTAT+8 03939000 AMDSTSP EQU AMDSTAT 03940000 @NM00082 EQU IDAAMDSB+41 03941000 @NM00081 EQU AMDATTR3 03942000 AMDLM EQU AMDATTR3 03943000 AMDWAIT EQU AMDATTR3 03944000 AMDBIND EQU AMDATTR3 03945000 AMDFAULT EQU AMDATTR3 03946000 AMDUNQ EQU AMDATTR3 03947000 AMDPARDB EQU IDAAMDSB+36 03948000 AMDMAXRR EQU AMDSSRBA 03949000 AMDNSLOT EQU AMDHLRBA 03950000 AMDCINV EQU IDAAMDSB+20 03951000 AMDFSCI EQU IDAAMDSB+16 03952000 AMDFSCA EQU IDAAMDSB+14 03953000 AMDCIPCA EQU IDAAMDSB+12 03954000 AMDPCTCI EQU IDAAMDSB+11 03955000 AMDPCTCA EQU IDAAMDSB+10 03956000 AMDAXRKP EQU AMDNEST 03957000 AMDLEN EQU IDAAMDSB+2 03958000 AMDSPAN EQU AMDATTR 03959000 AMDRRDS EQU AMDATTR 03960000 AMDRANGE EQU AMDATTR 03961000 AMDORDER EQU AMDATTR 03962000 AMDREPL EQU AMDATTR 03963000 AMDSDT EQU AMDATTR 03964000 AMDDST EQU AMDATTR 03965000 AMDSBID EQU IDAAMDSB 03966000 AMBTRACE EQU IDAAMB+120 03967000 AMBVIOT EQU IDAAMB+116 03968000 AMBSZCP EQU IDAAMB+114 03969000 AMBSZFW EQU IDAAMB+112 03970000 AMBSZWR EQU IDAAMB+110 03971000 AMBSZRD EQU IDAAMB+108 03972000 AMBEXEX EQU IDAAMB+100 03973000 AMBWSHD EQU IDAAMB+96 03974000 AMBCPA EQU IDAAMB+92 03975000 AMBBM2SH EQU IDAAMB+88 03976000 AMBRDCNT EQU AMBCSWD1+2 03977000 @NM00080 EQU AMBCSWD1+1 03978000 @NM00079 EQU AMBAFLG 03979000 AMBCFX EQU AMBAFLG 03980000 AMBSIS EQU AMBAFLG 03981000 AMBDFR EQU AMBAFLG 03982000 AMBICI EQU AMBAFLG 03983000 AMBGSR EQU AMBAFLG 03984000 AMBLSR EQU AMBAFLG 03985000 @NM00078 EQU AMBAFLG 03986000 AMBUPLH EQU IDAAMB+80 03987000 AMBPAMBL EQU IDAAMB+76 03988000 AMBPIXP EQU IDAAMB+72 03989000 @NM00077 EQU IDAAMB+68 03990000 AMBIWA EQU IDAAMB+64 03991000 AMBWKA EQU IDAAMB+60 03992000 AMBAMBXN EQU AMBEOVPT 03993000 AMBEDB EQU IDAAMB+52 03994000 AMBRPT EQU IDAAMB+50 03995000 AMBPUG EQU AMBFLG2 03996000 AMBBUSY EQU AMBOFLGS 03997000 AMBEXFG EQU AMBOFLGS 03998000 @NM00076 EQU AMBOFLGS 03999000 AMBOPEN EQU AMBOFLGS 04000000 @NM00075 EQU AMBOFLGS 04001000 AMBDEBAD EQU AMBDEBPT+1 04002000 AMBIFLGS EQU AMBDEBPT 04003000 AMBAMETH EQU IDAAMB+43 04004000 AMBUPX EQU AMBINFL 04005000 AMBUCRA EQU AMBINFL 04006000 AMBSCRA EQU AMBINFL 04007000 AMBCAT EQU AMBINFL 04008000 @NM00074 EQU AMBINFL 04009000 @NM00073 EQU AMBINFL 04010000 AMBTIOT EQU IDAAMB+40 04011000 @NM00072 EQU IDAAMB+38 04012000 AMBDDSN EQU IDAAMB+35 04013000 AMBCDSN EQU IDAAMB+32 04014000 AMBIOMB EQU AMBIOBAD 04015000 @NM00071 EQU AMBDSORG+1 04016000 AMBDORGA EQU AMBDSORG+1 04017000 @NM00070 EQU AMBDSORG 04018000 AMBINBUF EQU AMBFLG1 04019000 AMBJRN EQU AMBFLG1 04020000 AMBUBF EQU AMBFLG1 04021000 AMBSPEED EQU AMBFLG1 04022000 AMBPCAT EQU AMBFLG1 04023000 AMBMCAT EQU AMBFLG1 04024000 AMBTYPE EQU AMBFLG1 04025000 AMBCREAT EQU AMBFLG1 04026000 @NM00069 EQU AMBFLG0 04027000 AMBPSDS EQU AMBFLG0 04028000 AMBCACB EQU IDAAMB+16 04029000 AMBPH EQU IDAAMB+12 04030000 AMBBUFC EQU IDAAMB+8 04031000 AMBLINK EQU IDAAMB+4 04032000 AMBLEN EQU IDAAMB+2 04033000 AMBRSC EQU IDAAMB+1 04034000 AMBID EQU IDAAMB 04035000 AMBLBIB EQU IDAAMBL+60 04036000 AMBLIX EQU IDAAMBL+56 04037000 AMBLMIDS EQU IDAAMBL+42 04038000 AMBLNIDS EQU IDAAMBL+41 04039000 @NM00068 EQU IDAAMBL+40 04040000 AMBLNUM EQU IDAAMBL+38 04041000 AMBLNST EQU IDAAMBL+37 04042000 @NM00067 EQU AMBLFLG2 04043000 AMBLSTAG EQU AMBLFLG2 04044000 @NM00066 EQU AMBLFLG2 04045000 AMBLDUMY EQU AMBLFLG1 04046000 AMBLCAT EQU AMBLFLG1 04047000 AMBLUCRA EQU AMBLFLG1 04048000 AMBLSCRA EQU AMBLFLG1 04049000 AMBLVVIC EQU AMBLFLG1 04050000 AMBLUPD EQU AMBLFLG1 04051000 AMBLCINV EQU AMBLFLG1 04052000 AMBLFULL EQU AMBLFLG1 04053000 AMBLLEN EQU IDAAMBL+34 04054000 @NM00065 EQU AMBLSHAR 04055000 AMBLWRIT EQU AMBLSHAR 04056000 AMBLCATO EQU AMBLSHAR 04057000 AMBLPRIM EQU AMBLSHAR 04058000 AMBLID EQU IDAAMBL+32 04059000 @NM00064 EQU IDAAMBL+31 04060000 @NM00063 EQU AMBLTYPE 04061000 AMBLFIX EQU AMBLTYPE 04062000 AMBLBASE EQU AMBLTYPE 04063000 AMBLAIX EQU AMBLTYPE 04064000 AMBLUPGR EQU AMBLTYPE 04065000 AMBLPATH EQU AMBLTYPE 04066000 AMBLENO EQU AMBLVC+1 04067000 AMBLVRT EQU AMBLVC 04068000 AMBLXPT EQU IDAAMBL+24 04069000 AMBLDFR EQU AMBLQ 04070000 AMBLESDS EQU AMBLQ 04071000 AMBLKSDS EQU AMBLQ 04072000 AMBLUBF EQU AMBLQ 04073000 AMBLFSTP EQU AMBLQ 04074000 AMBLLSR EQU AMBLQ 04075000 AMBLGSR EQU AMBLQ 04076000 AMBLDDC EQU AMBLQ 04077000 AMBLDCI EQU AMBLIDF+4 04078000 AMBLCACB EQU AMBLIDF 04079000 @NM00062 EQU AMBLEOV+2 04080000 AMBLCOMP EQU AMBLEOV+1 04081000 AMBLESET EQU AMBLEFLG 04082000 AMBLWAIT EQU AMBLEFLG 04083000 AMBLACB EQU IDAAMBL+8 04084000 AMBLSCHN EQU IDAAMBL+4 04085000 AMBLPCHN EQU IDAAMBL 04086000 EXLEADDR EQU EXLEXITP 04087000 @NM00061 EQU EXLENFL 04088000 EXLLNK EQU EXLENFL 04089000 EXLACTM EQU EXLENFL 04090000 EXLSPEC EQU EXLENFL 04091000 EXLOPNP EQU EXLCOMN+36 04092000 @NM00060 EQU EXLOPNF 04093000 EXLOPNK EQU EXLOPNF 04094000 EXLOPNA EQU EXLOPNF 04095000 EXLOPNS EQU EXLOPNF 04096000 EXLJRNP EQU EXLCOMN+31 04097000 @NM00059 EQU EXLJRNF 04098000 EXLJRNK EQU EXLJRNF 04099000 EXLJRNA EQU EXLJRNF 04100000 EXLJRNS EQU EXLJRNF 04101000 EXLLGNP EQU EXLCOMN+26 04102000 @NM00058 EQU EXLLGNF 04103000 EXLLGNK EQU EXLLGNF 04104000 EXLLGNA EQU EXLLGNF 04105000 EXLLGNS EQU EXLLGNF 04106000 EXLUPADP EQU EXLSCIPP 04107000 @NM00057 EQU EXLUPADF 04108000 EXLUPADK EQU EXLSCIPK 04109000 EXLUPADA EQU EXLSCIPA 04110000 EXLUPADS EQU EXLSCIPS 04111000 @NM00056 EQU EXLLERF 04112000 EXLLERK EQU EXLLERF 04113000 EXLLERA EQU EXLLERF 04114000 EXLLERS EQU EXLLERF 04115000 @NM00055 EQU EXLSYNF 04116000 EXLSYNK EQU EXLSYNF 04117000 EXLSYNA EQU EXLSYNF 04118000 EXLSYNS EQU EXLSYNF 04119000 @NM00054 EQU EXLEODF 04120000 EXLEODK EQU EXLEODF 04121000 EXLEODA EQU EXLEODF 04122000 EXLEODS EQU EXLEODF 04123000 @NM00053 EQU EXLCOMN+4 04124000 EXLLEN2 EQU EXLLEN 04125000 EXLSTYP EQU EXLCOMN+1 04126000 ACBAPID EQU ACBCOMN+72 04127000 ACBCBMWA EQU ACBCOMN+68 04128000 ACBUAPTR EQU ACBCOMN+64 04129000 ACBLRECL EQU ACBCOMN+62 04130000 ACBMSGLN EQU ACBBLKSZ 04131000 ACBBUFSP EQU ACBCOMN+56 04132000 @NM00052 EQU ACBUJFCB+1 04133000 ACBOPTN EQU ACBUJFCB 04134000 ACBVVIC EQU ACBINFLG 04135000 ACBUCRA EQU ACBINFLG 04136000 ACBSCRA EQU ACBINFLG 04137000 ACBCAT EQU ACBINFLG 04138000 ACBIJRQE EQU ACBINFLG 04139000 ACBJEPS EQU ACBINFLG 04140000 @NM00051 EQU ACBINFLG 04141000 ACBBUSY EQU ACBIOSFG 04142000 ACBLOCK EQU ACBEXFG 04143000 @NM00050 EQU ACBOFLGS 04144000 ACBDSERR EQU ACBOFLGS 04145000 ACBEOV EQU ACBOFLGS 04146000 @NM00049 EQU ACBOFLGS 04147000 ACBDEB EQU ACBDDNM+5 04148000 ACBERFL EQU ACBDDNM+4 04149000 ACBAM EQU ACBAMETH 04150000 ACBINFL EQU ACBDDNM+2 04151000 ACBTIOT EQU ACBDDNM 04152000 ACBUEL EQU ACBEXLST 04153000 ACBMSGAR EQU ACBCOMN+28 04154000 @NM00048 EQU ACBDSORG+1 04155000 @NM00047 EQU ACBDSORG 04156000 ACBCRNRE EQU ACBCROPS 04157000 ACBCRNCK EQU ACBCROPS 04158000 ACBASA EQU ACBCCTYP 04159000 @NM00046 EQU ACBCCTYP 04160000 ACBRECAF EQU ACBRECFM 04161000 ACBJBUF EQU ACBBUFPL+2 04162000 ACBMACR4 EQU ACBBUFPL+1 04163000 @NM00045 EQU ACBMACR3 04164000 ACBNCFX EQU ACBMACR3 04165000 ACBSIS EQU ACBMACR3 04166000 ACBDFR EQU ACBMACR3 04167000 ACBICI EQU ACBMACR3 04168000 ACBGSR EQU ACBMACR3 04169000 ACBLSR EQU ACBMACR3 04170000 @NM00044 EQU ACBMACR3 04171000 ACBBUFNI EQU ACBCOMN+18 04172000 ACBBUFND EQU ACBCOMN+16 04173000 ACBSTRNO EQU ACBCOMN+15 04174000 ACBBSTNO EQU ACBCOMN+14 04175000 ACBAIX EQU ACBMACR2 04176000 ACBDSN EQU ACBMACR2 04177000 ACBRST EQU ACBMACR2 04178000 ACBLOGON EQU ACBMACR2 04179000 ACBSKP EQU ACBMACR2 04180000 @NM00043 EQU ACBMACR2 04181000 ACBUBF EQU ACBMACR1 04182000 ACBBLK EQU ACBCNV 04183000 ACBADD EQU ACBADR 04184000 ACBINRTN EQU ACBCOMN+8 04185000 ACBIBCT EQU ACBJWA 04186000 ACBLEN2 EQU ACBLENG2 04187000 ACBSTYP EQU ACBCOMN+1 04188000 DEBXSAMB EQU DEBXTN+28 04189000 DEBXOPNJ EQU DEBXTN+24 04190000 DEBXXARG EQU DEBXTN+20 04191000 DEBXMCF2 EQU DEBXTN+19 04192000 DEBXMCF1 EQU DEBXTN+18 04193000 DEBXDSO2 EQU DEBXTN+17 04194000 DEBXDSO1 EQU DEBXTN+16 04195000 DEBXDCBM EQU DEBXTN+8 04196000 DEBXDSAB EQU DEBXTN+4 04197000 DEBXRV48 EQU DEBXTN+3 04198000 DEBXRV47 EQU DEBXFLG1 04199000 DEBXRV46 EQU DEBXFLG1 04200000 DEBXRV45 EQU DEBXFLG1 04201000 DEBXRV44 EQU DEBXFLG1 04202000 DEBXRV43 EQU DEBXFLG1 04203000 DEBXDSSI EQU DEBXFLG1 04204000 DEBXTSKC EQU DEBXFLG1 04205000 DEBXCDCB EQU DEBXFLG1 04206000 DEBXLNGH EQU DEBXTN 04207000 DEBTBLOF EQU DEBPREFX+14 04208000 DEBAMTYP EQU DEBPREFX+13 04209000 DEBDCBMK EQU DEBXTNP 04210000 DEBDSCBA EQU DEBPREFX+1 04211000 DEBWKARA EQU DEBPREFX 04212000 DEBXCEAD EQU DEBXCEA+1 04213000 DEBXCENP EQU DEBXCEAB 04214000 DEBRSV35 EQU DEBXCEAB 04215000 DEBRSV34 EQU DEBXCEAB 04216000 DEBRSV33 EQU DEBXCEAB 04217000 DEBRSV32 EQU DEBXCEAB 04218000 DEBCEAD EQU DEBCEA+1 04219000 DEBCENP EQU DEBCEAB 04220000 DEBRSV31 EQU DEBCEAB 04221000 DEBRSV30 EQU DEBCEAB 04222000 DEBRSV29 EQU DEBCEAB 04223000 DEBRSV28 EQU DEBCEAB 04224000 DEBPCIAD EQU DEBPCIA+1 04225000 DEBPCINP EQU DEBPCIAB 04226000 DEBRSV27 EQU DEBPCIAB 04227000 DEBRSV26 EQU DEBPCIAB 04228000 DEBRSV25 EQU DEBPCIAB 04229000 DEBRSV24 EQU DEBPCIAB 04230000 DEBSIOAD EQU DEBSIOA+1 04231000 DEBSIONP EQU DEBSIOAB 04232000 DEBFIX EQU DEBSIOAB 04233000 DEBIOVR EQU DEBSIOAB 04234000 DEBSIOX EQU DEBSIOAB 04235000 DEBPGFX EQU DEBSIOAB 04236000 DEBEOEAD EQU DEBEOEA+1 04237000 DEBEOENP EQU DEBEOEAB 04238000 DEBRSV22 EQU DEBEOEAB 04239000 DEBRSV21 EQU DEBEOEAB 04240000 DEBRSV20 EQU DEBEOEAB 04241000 DEBESMVR EQU DEBEOEAB 04242000 DEBSUBID EQU DEBSUBNM 04243000 DEBSIOA2 EQU DEBACS08+24 04244000 DEBRPSIO EQU DEBACS08+20 04245000 @NM00042 EQU DEBACS08+12 04246000 @NM00041 EQU DEBACS08+8 04247000 DEBDISAD EQU DEBACS08+4 04248000 @NM00040 EQU DEBACS08 04249000 DEBRPSST EQU DEBACS07+64 04250000 DEBARECK EQU DEBACS07+60 04251000 DEBAREWT EQU DEBACS07+56 04252000 DEBACHK EQU DEBACS07+52 04253000 DEBAWRIT EQU DEBACS07+48 04254000 DEBASETL EQU DEBACS07+44 04255000 DEBAREAD EQU DEBACS07+40 04256000 DEBCRECK EQU DEBACS07+36 04257000 DEBCREWT EQU DEBACS07+32 04258000 DEBCCHK EQU DEBACS07+28 04259000 DEBCWRIT EQU DEBACS07+24 04260000 DEBCSETL EQU DEBACS07+20 04261000 DEBCREAD EQU DEBACS07+16 04262000 DEBWKPT4 EQU DEBACS07+8 04263000 DEBGET EQU DEBACS07+4 04264000 @NM00039 EQU DEBACS07 04265000 DEBPUT EQU DEBACS06+4 04266000 DEBDCBFA EQU DEBACS06 04267000 DEBLUCBB EQU DEBLUCBA+1 04268000 DEBRSV18 EQU DEBLUCBA 04269000 DEBFUCBB EQU DEBFUCBA+1 04270000 DEBRSV17 EQU DEBFUCBA 04271000 DEBTCCWB EQU DEBTCCWA+1 04272000 DEBRSV16 EQU DEBTCCWA 04273000 DEBTBFRB EQU DEBTBFRA+1 04274000 DEBRSV15 EQU DEBTBFRA 04275000 DEBDBPEF EQU DEBACS03+8 04276000 DEBDBPP EQU DEBACS03+4 04277000 DEBDTPP EQU DEBACS03 04278000 DEBDBPE EQU DEBDBLK+1 04279000 DEBDBPT EQU DEBDBLK 04280000 DEBEXTNM EQU DEBDSNAM 04281000 DEBLRECL EQU DEBACSMD+14 04282000 DEBBLKSI EQU DEBACSMD+12 04283000 DEBRSV14 EQU DEBDSNM+4 04284000 DEBUTSAB EQU DEBUTSAA+1 04285000 DEBRSV13 EQU DEBUTSAA 04286000 DEBVOLNM EQU DEBACSMD+2 04287000 DEBVLSEQ EQU DEBVOLSQ+1 04288000 DEBRSV42 EQU DEBVOLBT 04289000 DEBRSV41 EQU DEBVOLBT 04290000 DEBRSV40 EQU DEBVOLBT 04291000 DEBRSV39 EQU DEBVOLBT 04292000 DEBRSV38 EQU DEBVOLBT 04293000 DEBRSV37 EQU DEBVOLBT 04294000 DEBRSV36 EQU DEBVOLBT 04295000 DEBEXFUL EQU DEBVOLBT 04296000 DEBNMTRK EQU DEBDASD+14 04297000 DEBENDHH EQU DEBDASD+12 04298000 DEBENDCC EQU DEBDASD+10 04299000 DEBSTRHH EQU DEBDASD+8 04300000 DEBSTRCC EQU DEBDASD+6 04301000 DEBBINUM EQU DEBDASD+4 04302000 DEBDVMOD EQU DEBUCBAD 04303000 DEBDEBID EQU DEBPROTG 04304000 DEBECBB EQU DEBECBAD+1 04305000 DEBUSRPB EQU DEBUSRPG+1 04306000 DEBRSV05 EQU DEBBASIC+15 04307000 DEBAPFIN EQU DEBFLGS1 04308000 DEBF1CEV EQU DEBFLGS1 04309000 DEBRSV02 EQU DEBFLGS1 04310000 DEBRSIOA EQU DEBFLGS1 04311000 DEBEOFDF EQU DEBFLGS1 04312000 DEBPWCKD EQU DEBFLGS1 04313000 DEBQSCNT EQU DEBBASIC+13 04314000 DEBACCS EQU DEBOPATB 04315000 DEBPOSIT EQU DEBOPATB 04316000 DEBZERO EQU DEBOPATB 04317000 DEBIRBB EQU DEBIRBAD+1 04318000 DEBRERR EQU DEBOFLGS 04319000 DEBLABEL EQU DEBOFLGS 04320000 DEBSPLIT EQU DEBOFLGS 04321000 DEBDCB EQU DEBOFLGS 04322000 DEBRLSE EQU DEBOFLGS 04323000 DEBEOF EQU DEBOFLGS 04324000 DEBDISP EQU DEBOFLGS 04325000 DEBNMSUB EQU DEBTCBAD 04326000 JFCRSV05 EQU JFCEROPT 04327000 JFCRSV04 EQU JFCEROPT 04328000 JFCRSV03 EQU JFCEROPT 04329000 JFCRSV02 EQU JFCEROPT 04330000 JFCTOPT EQU JFCEROPT 04331000 JFCABN EQU JFCEROPT 04332000 JFCSKP EQU JFCEROPT 04333000 JFCACC EQU JFCEROPT 04334000 JFCBUFL EQU JFCAMPTR+2 04335000 JFCFWORD EQU JFCBFTEK 04336000 JFCDWORD EQU JFCBFTEK 04337000 JFCHIER1 EQU JFCBFTEK 04338000 JFCDYN EQU JFCBFTEK 04339000 JFCEXC EQU JFCBFTEK 04340000 JFCBBFTR EQU JFCBBFTA 04341000 JFCSIM EQU JFCBBFTA 04342000 JFCHIER EQU JFCBFTEK 04343000 JFCBFOUT EQU JFCBUFNO 04344000 JFCBUFIN EQU JFCBUFNO 04345000 JFCTEMP EQU JFCBIND2 04346000 JFCREQ EQU JFCBIND2 04347000 JFCENT EQU JFCBIND2 04348000 JFCSHARE EQU JFCBIND2 04349000 JFCSECUR EQU JFCBIND2 04350000 JFCPDS EQU JFCBIND1 04351000 JFCGDG EQU JFCBIND1 04352000 JFCADDED EQU JFCBIND1 04353000 JFCLOC EQU JFCBIND1 04354000 JFCRLSE EQU JFCBIND1 04355000 JFCBXPDT EQU INFMJFCB+83 04356000 JFCBCRDT EQU INFMJFCB+80 04357000 JFCBOPS2 EQU JFCBMASK+7 04358000 JFCRCTLG EQU JFCBFLG2 04359000 JFCBBUFF EQU JFCBFLG2 04360000 JFCTRACE EQU JFCBFLG2 04361000 JFCSDRPS EQU JFCBFLG2 04362000 JFCMODNW EQU JFCBFLG2 04363000 JFCNRPS EQU JFCDEFER 04364000 JFCOUTOP EQU JFCBFLG2 04365000 JFCINOP EQU JFCBFLG2 04366000 JFCBPWBP EQU JFCOPEN 04367000 @NM00035 EQU JFCOPEN 04368000 JFCDUAL EQU JFCBFLG1 04369000 JFCSLDES EQU JFCBFLG1 04370000 JFCSLCRE EQU JFCBFLG1 04371000 JFCSTAND EQU JFCBFLG1 04372000 JFCBOPS1 EQU JFCBMASK 04373000 JFCBVLSQ EQU INFMJFCB+70 04374000 JFCRSV31 EQU JFCFUNC 04375000 JFCFNCBT EQU JFCFUNC 04376000 JFCFNCBX EQU JFCFUNC 04377000 JFCFNCBD EQU JFCFUNC 04378000 JFCFNCBW EQU JFCFUNC 04379000 JFCFNCBP EQU JFCFUNC 04380000 JFCFNCBR EQU JFCFUNC 04381000 JFCFNCBI EQU JFCFUNC 04382000 JFCBFOFL EQU JFCBUFOF 04383000 JFCNL EQU JFCBLTYP 04384000 JFCSL EQU JFCBLTYP 04385000 JFCNSL EQU JFCBLTYP 04386000 JFCSUL EQU JFCBLTYP 04387000 JFCBLP EQU JFCBLTYP 04388000 JFCBLTM EQU JFCBLTYP 04389000 JFCBAL EQU JFCBLTYP 04390000 JFCRSV38 EQU JFCBLTYP 04391000 JFCVINDX EQU INFMJFCB+64 04392000 JFCNLREC EQU INFMJFCB+62 04393000 JFCBADBF EQU INFMJFCB+60 04394000 JFCAMSTR EQU JFCBFRID+2 04395000 JFCAMCRO EQU JFCBFRID 04396000 JFCBDSCB EQU INFMJFCB+53 04397000 JFCPAT EQU JFCBTSDM 04398000 JFCNDCB EQU JFCBTSDM 04399000 JFCNDSCB EQU JFCBTSDM 04400000 JFCNWRIT EQU JFCBTSDM 04401000 JFCTTR EQU JFCBTSDM 04402000 JFCSDS EQU JFCBTSDM 04403000 JFCVSL EQU JFCBTSDM 04404000 JFCCAT EQU JFCBTSDM 04405000 JFCIPLTX EQU JFCBELNM 04406000 JFCBQNAM EQU JFCBDSNM 04407000 @NM00034 EQU TCBXTNT2+32 04408000 TCBRV181 EQU TCBRV173 04409000 TCBRV180 EQU TCBRV173 04410000 TCBRV179 EQU TCBRV173 04411000 TCBRV178 EQU TCBRV173 04412000 TCBRV177 EQU TCBRV173 04413000 TCBRV176 EQU TCBRV173 04414000 TCBRV175 EQU TCBRV173 04415000 TCBRV174 EQU TCBRV173 04416000 TCBRV172 EQU TCBRV164 04417000 TCBRV171 EQU TCBRV164 04418000 TCBRV170 EQU TCBRV164 04419000 TCBRV169 EQU TCBRV164 04420000 TCBRV168 EQU TCBRV164 04421000 TCBRV167 EQU TCBRV164 04422000 TCBRV166 EQU TCBRV164 04423000 TCBRV165 EQU TCBRV164 04424000 TCBRV163 EQU TCBRV155 04425000 TCBRV162 EQU TCBRV155 04426000 TCBRV161 EQU TCBRV155 04427000 TCBRV160 EQU TCBRV155 04428000 TCBRV159 EQU TCBRV155 04429000 TCBRV158 EQU TCBRV155 04430000 TCBRV157 EQU TCBRV155 04431000 TCBRV156 EQU TCBRV155 04432000 TCBRV154 EQU TCBRV146 04433000 TCBRV153 EQU TCBRV146 04434000 TCBRV152 EQU TCBRV146 04435000 TCBRV151 EQU TCBRV146 04436000 TCBRV150 EQU TCBRV146 04437000 TCBRV149 EQU TCBRV146 04438000 TCBRV148 EQU TCBRV146 04439000 TCBRV147 EQU TCBRV146 04440000 TCBRV145 EQU TCBXTNT2+26 04441000 TCBRV144 EQU TCBXTNT2+24 04442000 TCBCAUF EQU TCBXTNT2+20 04443000 TCBRV142 EQU TCBXTNT2+16 04444000 TCBRSV49 EQU TCBXTNT2+12 04445000 TCBEVENT EQU TCBXTNT2+8 04446000 TCBRCMP EQU TCBXTNT2+5 04447000 TCBRSVAB EQU TCBXTNT2+4 04448000 TCBGTFA EQU TCBGTF+1 04449000 TCBRSV47 EQU TCBTFLG 04450000 TCBRSV46 EQU TCBTFLG 04451000 TCBRSV45 EQU TCBTFLG 04452000 TCBRSV44 EQU TCBTFLG 04453000 TCBRSV43 EQU TCBTFLG 04454000 TCBDSPIT EQU TCBTFLG 04455000 TCBERRTN EQU TCBTFLG 04456000 TCBASYNC EQU TCBTFLG 04457000 @NM00033 EQU TCB+296 04458000 TCBSVCA2 EQU TCB+292 04459000 TCBSWASA EQU TCB+288 04460000 TCBDBTB EQU TCB+284 04461000 TCBRPT EQU TCB+280 04462000 TCBRV141 EQU TCBRV133 04463000 TCBRV140 EQU TCBRV133 04464000 TCBRV139 EQU TCBRV133 04465000 TCBRV138 EQU TCBRV133 04466000 TCBRV137 EQU TCBRV133 04467000 TCBRV136 EQU TCBRV133 04468000 TCBRV135 EQU TCBRV133 04469000 TCBRV134 EQU TCBRV133 04470000 TCBRV132 EQU TCBRV124 04471000 TCBRV131 EQU TCBRV124 04472000 TCBRV130 EQU TCBRV124 04473000 TCBRV129 EQU TCBRV124 04474000 TCBRV128 EQU TCBRV124 04475000 TCBRV127 EQU TCBRV124 04476000 TCBRV126 EQU TCBRV124 04477000 TCBRV125 EQU TCBRV124 04478000 TCBRV123 EQU TCBFBYT2 04479000 TCBRV122 EQU TCBFBYT2 04480000 TCBECBNV EQU TCBFBYT2 04481000 TCBSSSYN EQU TCBFBYT2 04482000 TCBFPRAP EQU TCBFBYT2 04483000 TCBFDW EQU TCBFBYT2 04484000 TCBFMW EQU TCBFBYT2 04485000 TCBCNCB EQU TCBFBYT2 04486000 TCBLLH EQU TCBFBYT1 04487000 TCBRV113 EQU TCBFBYT1 04488000 TCBEOT EQU TCBFBYT1 04489000 TCBRTM2 EQU TCBFBYT1 04490000 TCBPGNLY EQU TCBFBYT1 04491000 TCBNDIOS EQU TCBFBYT1 04492000 TCBACTIV EQU TCBFBYT1 04493000 TCBEOTFM EQU TCBFBYT1 04494000 TCBAFFN EQU TCB+274 04495000 TCBCCPVI EQU TCB+272 04496000 TCBUKYSP EQU TCB+268 04497000 TCBMODE EQU TCBESTAE+3 04498000 TCBERTYP EQU TCBESTAE+2 04499000 TCBRV314 EQU TCBESTRM 04500000 TCBRV313 EQU TCBESTRM 04501000 TCBRV312 EQU TCBESTRM 04502000 TCBRV311 EQU TCBESTRM 04503000 TCBRV310 EQU TCBESTRM 04504000 TCBRV309 EQU TCBESTRM 04505000 TCBRV308 EQU TCBESTRM 04506000 TCBETERM EQU TCBESTRM 04507000 TCBSCBKY EQU TCBESTAE 04508000 TCBRTM12 EQU TCB+260 04509000 TCBTCBID EQU TCB+256 04510000 TCBRSV96 EQU TCB+252 04511000 TCBSWA EQU TCB+248 04512000 TCBFOEA EQU TCBFOE+1 04513000 TCBRSV42 EQU TCBFOE 04514000 TCBRV306 EQU TCB+240 04515000 TCBRSV41 EQU TCB+239 04516000 TCBTID EQU TCB+238 04517000 TCBRSVAA EQU TCB+237 04518000 TCBABCUR EQU TCB+236 04519000 TCBTMSAV EQU TCB+232 04520000 TCBIOTIM EQU TCB+228 04521000 TCBRTWA EQU TCB+224 04522000 TCBBACK EQU TCB+220 04523000 TCBTIRB EQU TCB+216 04524000 TCBAECB EQU TCB+212 04525000 TCBEXT2A EQU TCBEXT2+1 04526000 TCBRSV39 EQU TCBEXT2 04527000 TCBSTMCT EQU TCB+207 04528000 TCBSYSCT EQU TCB+206 04529000 TCBRSV37 EQU TCB+205 04530000 TCBEXSVC EQU TCBDAR 04531000 TCBDARMS EQU TCBDAR 04532000 TCBDARWT EQU TCBDAR 04533000 TCBDARO EQU TCBDAR 04534000 TCBDARMC EQU TCBDARC 04535000 TCBDARD EQU TCBDAR 04536000 TCBDARS EQU TCBDAR 04537000 TCBDARP EQU TCBDAR 04538000 TCBGTOFM EQU TCBFLGS7 04539000 TCBADMP EQU TCBFLGS7 04540000 TCBRSTSK EQU TCBFLGS7 04541000 TCBSVCS EQU TCBFLGS7 04542000 TCBSTACK EQU TCBFLGS7 04543000 TCBRSV34 EQU TCBFLGS7 04544000 TCBRSV33 EQU TCBFLGS7 04545000 TCBGPECB EQU TCBFLGS7 04546000 TCBNTJS EQU TCBFLGS6 04547000 TCBAPG EQU TCBFLGS6 04548000 TCBMIGR EQU TCBFLGS6 04549000 TCBRV303 EQU TCBFLGS6 04550000 TCBSPVLK EQU TCBFLGS6 04551000 TCBCPU EQU TCBFLGS6 04552000 TCBPIE17 EQU TCBFLGS6 04553000 TCBRV EQU TCBFLGS6 04554000 TCBRSV79 EQU TCBNDSP5 04555000 TCBRSV78 EQU TCBNDSP5 04556000 TCBRSV77 EQU TCBNDSP5 04557000 TCBRSV76 EQU TCBNDSP5 04558000 TCBRSV75 EQU TCBNDSP5 04559000 TCBRSV74 EQU TCBNDSP5 04560000 TCBRSV95 EQU TCBNDSP5 04561000 TCBRSV94 EQU TCBNDSP5 04562000 TCBRSV93 EQU TCBNDSP4 04563000 TCBRSV92 EQU TCBNDSP4 04564000 TCBRSV91 EQU TCBNDSP4 04565000 TCBRSV90 EQU TCBNDSP4 04566000 TCBRSV89 EQU TCBNDSP4 04567000 TCBRSV88 EQU TCBNDSP4 04568000 TCBRSV87 EQU TCBNDSP4 04569000 TCBRSV86 EQU TCBNDSP4 04570000 TCBEXT1A EQU TCBEXT1+1 04571000 TCBRSV32 EQU TCBEXT1 04572000 TCBEXCPD EQU TCB+192 04573000 TCBIOBRC EQU TCB+188 04574000 TCBDDWTC EQU TCB+186 04575000 TCBDDEXC EQU TCB+184 04576000 TCBJSCBB EQU TCBJSCB+1 04577000 @NM00032 EQU TCBRECDE 04578000 TCBREC EQU TCBRECDE 04579000 TCBMDIDS EQU TCB+176 04580000 TCBNDINT EQU TCBNDSP3 04581000 TCBRSV27 EQU TCBNDSP3 04582000 TCBRSV26 EQU TCBNDSP3 04583000 TCBRSV25 EQU TCBNDSP3 04584000 TCBRSV24 EQU TCBNDSP3 04585000 TCBSRBND EQU TCBNDSP3 04586000 TCBRV302 EQU TCBNDSP3 04587000 TCBLJSND EQU TCBNDSP3 04588000 TCBABE EQU TCBNDSP2 04589000 TCBDSS EQU TCBNDSP2 04590000 TCBOWAIT EQU TCBNDSP2 04591000 TCBIWAIT EQU TCBNDSP2 04592000 TCBNDTS EQU TCBNDSP2 04593000 TCBNDSVC EQU TCBNDSP2 04594000 TCBSTPP EQU TCBNDSP2 04595000 TCBABD EQU TCBNDSP2 04596000 TCBRSV22 EQU TCBNDSP1 04597000 TCBPIEND EQU TCBNDSP1 04598000 TCBTPSP EQU TCBNDSP1 04599000 TCBDDRND EQU TCBNDSP1 04600000 TCBRSPND EQU TCBNDSP1 04601000 TCBRSTND EQU TCBNDSP1 04602000 TCBDARPN EQU TCBNDSP1 04603000 TCBDARTN EQU TCBNDSP1 04604000 TCBNDSP0 EQU TCBNDSP 04605000 TCBUSER EQU TCB+168 04606000 TCBTCTB EQU TCBTCT+1 04607000 TCBRSV9C EQU TCBTCTGF 04608000 TCBRSV9B EQU TCBTCTGF 04609000 TCBRSV9A EQU TCBTCTGF 04610000 TCBRSV99 EQU TCBTCTGF 04611000 TCBRSV98 EQU TCBTCTGF 04612000 TCBRSV97 EQU TCBTCTGF 04613000 TCBRSV20 EQU TCBTCTGF 04614000 TCBSMFGF EQU TCBTCTGF 04615000 TCBSTABB EQU TCBSTAB+1 04616000 TCBSTCUR EQU TCBNSTAE 04617000 TCBRV301 EQU TCBNSTAE 04618000 TCBSYNCH EQU TCBNSTAE 04619000 TCBHALT EQU TCBNSTAE 04620000 TCBPPSUP EQU TCBNSTAE 04621000 TCB33E EQU TCBNSTAE 04622000 TCBQUIES EQU TCBNSTAE 04623000 TCBSTABE EQU TCBNSTAE 04624000 TCBAQE EQU TCB+156 04625000 TCBPQE EQU TCB+152 04626000 TCBTSDP EQU TCB+151 04627000 TCBTSLP EQU TCB+150 04628000 TCBSTPCT EQU TCB+149 04629000 TCBCPUBN EQU TCBTSFLG 04630000 TCBDYDSP EQU TCBTSFLG 04631000 TCBRSV18 EQU TCBTSFLG 04632000 TCBRSV17 EQU TCBTSFLG 04633000 TCBTIOTG EQU TCBTSFLG 04634000 TCBATT EQU TCBTSFLG 04635000 TCBSTPPR EQU TCBTSFLG 04636000 TCBRV300 EQU TCBTSTSK 04637000 TCBECB EQU TCB+144 04638000 TCBIQE EQU TCB+140 04639000 TCBLTC EQU TCB+136 04640000 TCBOTC EQU TCB+132 04641000 TCBNTC EQU TCB+128 04642000 TCBJSTCA EQU TCBJSTCB+1 04643000 TCBRSV16 EQU TCBJSTCB 04644000 TCBTQET EQU TCBTME 04645000 TCBTCB EQU TCB+116 04646000 TCBFSAB EQU TCBFSA+1 04647000 TCBQEL EQU TCBFSA 04648000 TCBGRS15 EQU TCBGRS+60 04649000 TCBGRS14 EQU TCBGRS+56 04650000 TCBGRS13 EQU TCBGRS+52 04651000 TCBGRS12 EQU TCBGRS+48 04652000 TCBGRS11 EQU TCBGRS+44 04653000 TCBGRS10 EQU TCBGRS+40 04654000 TCBGRS9 EQU TCBGRS+36 04655000 TCBGRS8 EQU TCBGRS+32 04656000 TCBGRS7 EQU TCBGRS+28 04657000 TCBGRS6 EQU TCBGRS+24 04658000 TCBGRS5 EQU TCBGRS+20 04659000 TCBGRS4 EQU TCBGRS+16 04660000 TCBGRS3 EQU TCBGRS+12 04661000 TCBGRS2 EQU TCBGRS+8 04662000 TCBGRS1 EQU TCBGRS+4 04663000 TCBGRS0 EQU TCBGRS 04664000 TCBJPQB EQU TCBJPQ+1 04665000 TCBRSV15 EQU TCBPURGE 04666000 TCBRSV14 EQU TCBPURGE 04667000 TCBRSV13 EQU TCBPURGE 04668000 TCBRSV12 EQU TCBPURGE 04669000 TCBRSV11 EQU TCBPURGE 04670000 TCBRSV10 EQU TCBPURGE 04671000 TCBRSV09 EQU TCBPURGE 04672000 TCBJPQF EQU TCBPURGE 04673000 TCBJLB EQU TCB+40 04674000 TCBLLS EQU TCB+36 04675000 TCBLMP EQU TCB+34 04676000 TCBPNDSP EQU TCBFLGS5 04677000 TCBFCD1 EQU TCBFLGS5 04678000 TCBSTP EQU TCBFLGS5 04679000 TCBSYS EQU TCBFLGS5 04680000 TCBANDSP EQU TCBFLGS5 04681000 TCBPAGE EQU TCBFLGS5 04682000 TCBUXNDF EQU TCBABWF 04683000 TCBFC EQU TCBFLGS5 04684000 TCBONDSP EQU TCBFLGS4 04685000 TCBMPCND EQU TCBFLGS4 04686000 TCBMPCVQ EQU TCBFLGS4 04687000 TCBUXNDV EQU TCBFLGS4 04688000 TCBHNDSP EQU TCBFLGS4 04689000 TCBRQENA EQU TCBFLGS4 04690000 TCBSER EQU TCBFLGS4 04691000 TCBNDUMP EQU TCBFLGS4 04692000 TCBDWSTA EQU TCBFLGS3 04693000 TCBRSV08 EQU TCBFLGS3 04694000 TCBRSV07 EQU TCBFLGS3 04695000 TCBRSV06 EQU TCBFLGS3 04696000 TCBABGM EQU TCBFLGS3 04697000 TCBABTRM EQU TCBFLGS3 04698000 TCBADINP EQU TCBFLGS3 04699000 TCBFSM EQU TCBFLGS3 04700000 TCBFTS EQU TCBFLGS2 04701000 TCBFETXR EQU TCBFLGS2 04702000 TCBFDSOP EQU TCBFLGS2 04703000 TCBFJMC EQU TCBFLGS2 04704000 TCBFSMC EQU TCBFLGS2 04705000 TCBFABOP EQU TCBFLGS2 04706000 TCBFSTI EQU TCBFLGS2 04707000 TCBFOINP EQU TCBFLGS2 04708000 TCBFX EQU TCBFLGS1 04709000 TCBFS EQU TCBFLGS1 04710000 TCBFT EQU TCBFLGS1 04711000 TCBPDUMP EQU TCBFLGS1 04712000 TCBNONPR EQU TCBFLGS1 04713000 TCBFERA EQU TCBFLGS1 04714000 TCBFE EQU TCBFLGS1 04715000 TCBFA EQU TCBFLGS1 04716000 TCBZERO EQU TCBPKF 04717000 TCBFLAG EQU TCBPKF 04718000 TCBMSSB EQU TCBMSS+1 04719000 TCBRSV03 EQU TCBMSS 04720000 TCBTRNB EQU TCBTRN+1 04721000 TCBRSV02 EQU TCBABF 04722000 TCBOLTEP EQU TCBABF 04723000 TCBTCP EQU TCBABF 04724000 TCBTCPP EQU TCBABF 04725000 TCBRSV01 EQU TCBABF 04726000 TCBGRPH EQU TCBABF 04727000 TCBNOCHK EQU TCBABF 04728000 TCBMOD91 EQU TCBABF 04729000 TCBCMPC EQU TCBCMP+1 04730000 TCBRV318 EQU TCBCMSG 04731000 TCBRV317 EQU TCBCIND 04732000 TCBRV316 EQU TCBCWTO 04733000 TCBCASID EQU TCBCDBL 04734000 TCBNOCC EQU TCBSTCC 04735000 TCBDMPO EQU TCBCPP 04736000 TCBCSTEP EQU TCBCMPF 04737000 TCBCREQ EQU TCBCMPF 04738000 TCBTIO EQU TCB+12 04739000 TCBPIEA EQU TCBPIE+1 04740000 TCBPM EQU TCBPMASK 04741000 @NM00031 EQU TCBPMASK 04742000 TCBRBP EQU TCB 04743000 TCBFRS6 EQU TCBFRS+24 04744000 TCBFRS4 EQU TCBFRS+16 04745000 TCBFRS2 EQU TCBFRS+8 04746000 TCBFRS0 EQU TCBFRS 04747000 RPLSAVE2 EQU IDARPLE+24 04748000 RPLSAVE EQU IDARPLE+20 04749000 @NM00030 EQU IDARPLE+17 04750000 RPLIITSB EQU IDARPLE+16 04751000 RPLDECB EQU IDARPLE+4 04752000 RPLACTIV EQU RPLCOMN+69 04753000 RPLBRANC EQU RPLEXTD1 04754000 RPLNIB EQU RPLEXTD1 04755000 @NM00029 EQU RPLEXTD1 04756000 RPLEXIT EQU RPLEXTD1 04757000 RPLNEXIT EQU RPLEXTD1 04758000 RPLEXSCH EQU RPLEXTD1 04759000 RPLDDDD EQU RPLRBAR+4 04760000 @NM00028 EQU RPLRBAR+3 04761000 @NM00027 EQU RPLAIXID 04762000 RPLAXPKP EQU RPLAIXID 04763000 RPLAIXPC EQU RPLRBAR 04764000 RPLRSV88 EQU RPLOPT8 04765000 RPLUNCON EQU RPLOPT8 04766000 RPLACTV EQU RPLOPT8 04767000 RPLSESS EQU RPLOPT8 04768000 RPLPEND EQU RPLOPT8 04769000 RPLODPRM EQU RPLOPT8 04770000 RPLODACP EQU RPLOPT8 04771000 RPLODACQ EQU RPLOPT8 04772000 RPLRSV78 EQU RPLOPT7 04773000 RPLRSV77 EQU RPLOPT7 04774000 RPLRLSOP EQU RPLOPT7 04775000 RPLTPOST EQU RPLOPT7 04776000 RPLQOPT EQU RPLOPT7 04777000 RPLCNIMM EQU RPLCNOPT 04778000 RPLCNANY EQU RPLCNOPT 04779000 RPLCNALL EQU RPLCNOPT 04780000 RPLRSV68 EQU RPLOPT6 04781000 RPLRSV67 EQU RPLOPT6 04782000 RPLLOCK EQU RPLOPT6 04783000 RPLNCOND EQU RPLOPT6 04784000 RPLCOND EQU RPLOPT6 04785000 RPLEOT EQU RPLUNTYP 04786000 RPLEOM EQU RPLUNTYP 04787000 RPLEOB EQU RPLUNTYP 04788000 RPLWROPT EQU RPLOPT5 04789000 RPLNODE EQU RPLOPT5 04790000 RPLERACE EQU RPLWRTYP 04791000 RPLEAU EQU RPLWRTYP 04792000 RPLNERAS EQU RPLWRTYP 04793000 RPLPSOPT EQU RPLOPT5 04794000 RPLSSNIN EQU RPLOPT5 04795000 RPLDLGIN EQU RPLOPT5 04796000 RPLCHAIN EQU RPLNXTRP 04797000 RPLOPT4 EQU RPLOPTCD+3 04798000 RPLALIGN EQU RPLOPT3 04799000 RPLFMT EQU RPLOPT3 04800000 RPLFLD EQU RPLOPT3 04801000 RPLVFY EQU RPLOPT3 04802000 RPLBLK EQU RPLOPT3 04803000 RPLSFORM EQU RPLOPT3 04804000 RPLEODS EQU RPLOPT3 04805000 RPLNSP EQU RPLOPT2 04806000 RPLWAITX EQU RPLOPT2 04807000 RPLLRD EQU RPLOPT2 04808000 RPLBWD EQU RPLOPT2 04809000 RPLCNV EQU RPLOPT2 04810000 RPLADD EQU RPLADR 04811000 RPLECBIN EQU RPLECBSW 04812000 RPLGEN EQU RPLOPT1 04813000 RPLKGE EQU RPLOPT1 04814000 RPLASY EQU RPLOPT1 04815000 RPLSKP EQU RPLOPT1 04816000 RPLLOC EQU RPLOPT1 04817000 RPLDAF EQU RPLARG+2 04818000 RPLSAF EQU RPLARG 04819000 RPLAREA EQU RPLCOMN+32 04820000 RPLTCBPT EQU RPLCOMN+28 04821000 RPLCCHAR EQU RPLCOMN+20 04822000 RPLSTRID EQU RPLCOMN+18 04823000 RPLKEYL EQU RPLKEYLE 04824000 RPLRDSOH EQU RPLFDB3 04825000 RPLRLG EQU RPLFDB3 04826000 RPLLGFRC EQU RPLFDB3 04827000 RPLREOT EQU RPLFDB3 04828000 RPLREOM EQU RPLFDB3 04829000 RPLREOB EQU RPLFDB3 04830000 RPLSV32 EQU RPLFDB3 04831000 RPLUINPT EQU RPLFDB3 04832000 RPLSTSAV EQU RPLFDB2 04833000 RPLCUERR EQU RPLFDB2 04834000 RPLDLGFL EQU RPLFDB2 04835000 RPLIOERR EQU RPLFDB2 04836000 RPLDVUNS EQU RPLFDB2 04837000 RPLATND EQU RPLFDB2 04838000 RPLRVID EQU RPLFDB2 04839000 RPLERLK EQU RPLFDB2 04840000 RPLERREG EQU RPLRTNCD 04841000 RPLSTAT EQU RPLFDBWD 04842000 RPLPOST EQU RPLECB 04843000 RPLWAIT EQU RPLECB 04844000 RPLPLHPT EQU RPLCOMN+4 04845000 RPLLEN2 EQU RPLLEN 04846000 RPLREQ EQU RPLIDWD+2 04847000 RPLSTYP EQU RPLIDWD+1 04848000 DCBLPDT EQU IHADCS55 04849000 DCBWKPT4 EQU IHADCS29+188 04850000 DCBWKPT3 EQU IHADCS29+184 04851000 DCBWKPT2 EQU IHADCS29+180 04852000 @NM00026 EQU IHADCS29+174 04853000 DCBLIOV EQU IHADCS29+164 04854000 DCBNOREC EQU IHADCS29+162 04855000 @NM00025 EQU IHADCS29+161 04856000 DCBLEMI1 EQU IHADCS29+156 04857000 @NM00024 EQU IHADCS29+153 04858000 DCBLECI EQU IHADCS29+148 04859000 DCBNBOV EQU IHADCS29+146 04860000 DCBOVDEV EQU IHADCS29+145 04861000 DCBLETI EQU IHADCS29+140 04862000 DCBLPDA EQU IHADCS29+132 04863000 DCBFTHI EQU IHADCS29+125 04864000 DCBNTHI EQU IHADCS29+124 04865000 DCBFTMI1 EQU IHADCS29+117 04866000 DCBHIIOV EQU IHADCS29+116 04867000 DCBFTCI EQU IHADCS29+109 04868000 DCBSTLTF EQU DCBST 04869000 DCBSTLBF EQU DCBST 04870000 DCBSTNMC EQU DCBST 04871000 @NM00023 EQU DCBST 04872000 DCBSTNCY EQU DCBST 04873000 DCBSTKSQ EQU DCBST 04874000 DCBSTSSM EQU DCBST 04875000 DCBNREC EQU IHADCS29+104 04876000 DCBTDC EQU IHADCS29+96 04877000 DCBHIRSH EQU IHADCS29+95 04878000 DCBHIROV EQU IHADCS29+94 04879000 DCBHIRPD EQU IHADCS29+93 04880000 DCBHIRCM EQU IHADCS29+92 04881000 DCBLDT EQU IHADCS29+90 04882000 DCBHMASK EQU IHADCS29+89 04883000 DCBFIRSH EQU IHADCS29+86 04884000 DCBNLEV EQU IHADCS29+85 04885000 DCBLEMI3 EQU IHADCS29+80 04886000 DCBFTMI3 EQU IHADCS29+73 04887000 DCBLEMI2 EQU IHADCS29+68 04888000 DCBFTMI2 EQU IHADCS29+61 04889000 DCBHIRTI EQU IHADCS29+60 04890000 DCBRELEX EQU IHADCS29+52 04891000 DCBPUTX EQU IHADCS29+48 04892000 DCBRELSE EQU IHADCS29+44 04893000 @NM00022 EQU DCBEXCD2 04894000 DCBEXRDE EQU DCBEXLTH 04895000 DCBEXOFL EQU DCBEXCD2 04896000 DCBEXCLD EQU DCBEXCD2 04897000 DCBEXDUP EQU DCBEXCD2 04898000 DCBEXSEQ EQU DCBEXCD2 04899000 DCBEXBLU EQU DCBEXCD1 04900000 DCBEXBLI EQU DCBEXCD1 04901000 DCBEXOER EQU DCBEXCD1 04902000 DCBEXIER EQU DCBEXCD1 04903000 DCBEXINV EQU DCBEXCD1 04904000 DCBEXNSP EQU DCBEXCD1 04905000 DCBEXIDA EQU DCBEXCD1 04906000 DCBEXNKY EQU DCBEXCD1 04907000 DCBMSHIA EQU DCBMSHI+1 04908000 DCBSMSW EQU IHADCS29+18 04909000 DCBSMSI EQU IHADCS29+16 04910000 DCBMSWA EQU IHADCS29+12 04911000 DCBCYLOF EQU IHADCS29+3 04912000 DCBNTM EQU IHADCS29+2 04913000 DCBMACRE EQU DCBMAC 04914000 DCBMACAW EQU DCBMAC 04915000 DCBMACUW EQU DCBMAC 04916000 DCBMACUR EQU DCBMAC 04917000 @NM00021 EQU DCBMAC 04918000 DCBOPTR EQU DCBOPTCD 04919000 @NM00020 EQU DCBOPTCD 04920000 DCBOPTY EQU DCBOPTCD 04921000 DCBOPTM EQU DCBOPTCD 04922000 DCBOPTUF EQU DCBOPTCD 04923000 DCBPUTA EQU DCBGETA 04924000 @NM00019 EQU DCBPUT 04925000 @NM00018 EQU DCBIFLGS 04926000 DCBIFIOE EQU DCBIFLGS 04927000 DCBCH12 EQU DCBIFPCT 04928000 DCBCH9 EQU DCBIFPCT 04929000 DCBIFEC EQU DCBIFLGS 04930000 DCBMFSTI EQU DCBMFDMD 04931000 DCBMFAWR EQU DCBMFSTK 04932000 DCBMFIDW EQU DCBMFLCP 04933000 DCBMFWRK EQU DCBMFMVP 04934000 DCBMFRDQ EQU DCBMFWRT 04935000 DCBMFGTQ EQU DCBMFPUT 04936000 DCBMFSTL EQU DCBMACF2 04937000 DCBMFCK EQU DCBMFDMG 04938000 DCBMFRDX EQU DCBMFCHK 04939000 DCBMFRDI EQU DCBMFLCG 04940000 DCBMFRDK EQU DCBMFMVG 04941000 DCBMFWRQ EQU DCBMFRD 04942000 DCBMFPTQ EQU DCBMFGET 04943000 DCBMFECP EQU DCBMACF1 04944000 DCBTIOT EQU IHADCS25 04945000 DCBMRSTI EQU DCBMRDMD 04946000 DCBMRAWR EQU DCBMRSTK 04947000 DCBMRUIP EQU DCBMRTMD 04948000 DCBMRIDW EQU DCBMRLCP 04949000 DCBMRWRK EQU DCBMRMVP 04950000 DCBMRRDQ EQU DCBMRWRT 04951000 DCBMRGTQ EQU DCBMRPUT 04952000 DCBMRSTL EQU DCBMACR2 04953000 DCBMRCK EQU DCBMRDMG 04954000 DCBPGFXA EQU DCBMRRDX 04955000 DCBMRDBF EQU DCBMRSBG 04956000 DCBMRRDI EQU DCBMRLCG 04957000 DCBMRRDK EQU DCBMRMVG 04958000 DCBMRWRQ EQU DCBMRRD 04959000 DCBMRPTQ EQU DCBMRGET 04960000 DCBMRECP EQU DCBMACR1 04961000 @NM00017 EQU DCBIFLG 04962000 DCBIBIOE EQU DCBIFLG 04963000 DCBICH12 EQU DCBIBPCT 04964000 DCBICH9 EQU DCBIBPCT 04965000 DCBIBEC EQU DCBIFLG 04966000 DCBOFIOF EQU DCBOFLGS 04967000 DCBOFTM EQU DCBOFLGS 04968000 DCBOFPPC EQU DCBOFLGS 04969000 DCBOFEOV EQU DCBOFLGS 04970000 DCBOFLRB EQU DCBOFLGS 04971000 DCBOFIOD EQU DCBOFLWR 04972000 DCBRECKL EQU DCBRECFM 04973000 DCBRECCC EQU DCBRECFM 04974000 DCBRECSB EQU DCBRECFM 04975000 DCBRECTO EQU DCBRECLA 04976000 DCBEODA EQU DCBEODAD+1 04977000 DCBH0 EQU DCBBFTEK 04978000 DCBBFTKD EQU DCBBFTEK 04979000 DCBBFTE EQU DCBBFT 04980000 DCBBFTKR EQU DCBBFT 04981000 DCBBFTS EQU DCBBFT 04982000 DCBH1 EQU DCBBFTEK 04983000 @NM00016 EQU DCBSVCXL 04984000 DCBODEBA EQU DCBIOBAA 04985000 @NM00015 EQU DCBQSLM 04986000 DCBUPDBT EQU DCBQSLM 04987000 DCBUPDCM EQU DCBQSLM 04988000 DCB1DVDS EQU DCBQSLM 04989000 @NM00014 EQU DCBDSRG2 04990000 DCBDSGTR EQU DCBDSRG2 04991000 DCBACBM EQU DCBDSRG2 04992000 @NM00013 EQU DCBDSRG2 04993000 DCBDSGTQ EQU DCBDSRG2 04994000 DCBDSGTX EQU DCBDSRG2 04995000 DCBDSGGS EQU DCBDSRG2 04996000 DCBDSGU EQU DCBDSRG1 04997000 DCBDSGPO EQU DCBDSRG1 04998000 @NM00012 EQU DCBDSRG1 04999000 @NM00011 EQU DCBDSRG1 05000000 DCBDSGCX EQU DCBDSRG1 05001000 DCBDSGDA EQU DCBDSRG1 05002000 DCBDSGPS EQU DCBDSRG1 05003000 DCBDSGIS EQU DCBDSRG1 05004000 DCBTRBAL EQU IHADCS01+6 05005000 @NM00010 EQU IHADCS01+5 05006000 @NM00009 EQU IHADCS01+4 05007000 DCBDVTBA EQU DCBDVTBL+1 05008000 @NM00008 EQU DCBDVTBL 05009000 DCBKEYCN EQU IHADCS00+4 05010000 DCBRELAD EQU IHADCS00 05011000 @NM00007 EQU IHADCB 05012000 IIGMLEN EQU IIGMSPLG+1 05013000 IIGMPOOL EQU IIGMSPLG 05014000 AUDCLM EQU AUDCSPLM+1 05015000 AUDCSPM EQU AUDCSPLM 05016000 AUDCMSGA EQU IIGMAUD+24 05017000 AUDCLB EQU AUDCSPLB+1 05018000 AUDCSPB EQU AUDCSPLB 05019000 AUDCBFRS EQU IIGMAUD+16 05020000 AUDCLD EQU AUDCSPLD+1 05021000 AUDCSPD EQU AUDCSPLD 05022000 AUDCDEB EQU IIGMAUD+8 05023000 AUDCLI EQU AUDCSPLI+1 05024000 AUDCSPI EQU AUDCSPLI 05025000 AUDCIICB EQU IIGMAUD 05026000 @NM00006 EQU IIAUDFL2 05027000 AUDDEBXF EQU IIAUDFL2 05028000 AUDBFRRT EQU IIAUDFL2 05029000 AUDBFREX EQU IIAUDFL2 05030000 AUDACBRC EQU IIAUDFL2 05031000 AUDACBCL EQU IIAUDFL2 05032000 @NM00005 EQU IIREGSAV+12 05033000 IIREGFC EQU IIREGSAV+8 05034000 IIREGBC EQU IIREGSAV+4 05035000 @NM00004 EQU IIREGSAV 05036000 @NM00003 EQU IIFLAG3 05037000 @NM00002 EQU IIFLAG1 05038000 IIDATA EQU IIFLAG1 05039000 IIFCLOSE EQU IIFLAG1 05040000 IIFACBCL EQU IIFLAG1 05041000 IIFGET EQU IIFLAG1 05042000 IIFSCAN EQU IIFLAG1 05043000 IISAVLRL EQU IIW1CBF 05044000 @NM00001 EQU IDAIICB+1 05045000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05046000 @RT00185 EQU EXIT 05047000 @RF00294 EQU @EL00005 05048000 @RF00413 EQU @EL00009 05049000 @RF00417 EQU @EL00009 05050000 @RT00465 EQU EXIT3B 05051000 ENDCHECK EQU @EL00011 05052000 @RF00511 EQU @EL00012 05053000 @RT00468 EQU ENDCHECK 05054000 @ENDDATA EQU * 05055000 END IDA0192I,(C'PLS1414',0701,78144) 05056000