> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X > SP=0
Is ADDR=(R6) legal? What is the generated code? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joseph Reichman [reichman...@gmail.com] Sent: Thursday, March 23, 2023 8:56 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage Seymour Here is the code if you page down the email you will see "Here is the DCB//DECB/DCBE and exlst code" As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which is fixed its okay * * * Get STORAGE FOR DCB LA R0,IODSECTLEN STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X SP=0 USING IODSECT,R6 USING IHADCB,ADATADCB USING DCBE,ADATADECB * * MVC 0(IODSECTLEN,R6),SYSADATA * LA R7,ADATADCBE ST R7,DCBDCBE LA R7,INST31 STCM R7,B'0111',DCBEXLSA LA R7,INST31+4 STCM R7,B'0111',INST31+1 LA R7,ABENDRTN ST R7,ABEND31-SYSADATA(,R6) * L R0,=F'32760' STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233 <---- when this is obtained from SP=0 I abend 800 RC 4 on the read * LA R7,IOAREA * ST R7,IOPTR * * ST R0,IOLEN XR R8,R8 XR R9,R9 ST R7,IOBUFF L R7,IOBUFF MVC OPEN_LST(OPEN_LEN),OPEN_CON OPEN ((R6),INPUT),MF=(E,OPEN_LST),MODE=31 * * MVC ADATADECB(IREADLEN),IREAD TM DCBOFLGS,DCBOFOPN d ===> Scroll ===> CSR TM DCBOFLGS,DCBOFOPN BZ EXITDEBG USING ASMADATA,R7 PROCADATA DS 0H READ ADATADECB,SF,(R6),(R7),'S',MF=E * CHECK ADATADECB * LH R12,0(R7) LA R12,0(R12,R7) LA R7,4(,R7) Past BDW DATALP1 DS 0H MVC RDW,0(R7) CHSI ADATA_RECTYPE,ADATA_RECESD External sym dic. BNE CKSRC * * NC EXSYMREL,EXSYMREL T Process rest of sysadata Here is the DCB//DECB/DCBE and exlst code OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31 SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX LST=EX24LST IHADECB DSECT=NO DECBLEN EQU *-DECB SYSDCBE DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX RSION=1 EX24LST DS 0F ADATAEXLST DC AL1(EXLDCBAB+X'80') ABND24ADR DS AL3 ABND24 DS 0H L R15,ABEND31-SYSADATA(,R15) BSM 0,R15 ABEND31 DS XL4 STROGE24 EQU *-EX24LST IODSECT DSECT ADATADCB DS CL(DCBLNGBS) ADATADECB DS CL(DECBLEN) ADATADCBE DS CL(DCBELENV1) DS 0F INST31 DS CL(STROGE24) IODSECTLEN EQU *-IODSECT * T T -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz Sent: Thursday, March 23, 2023 8:32 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage It is normal to obtaon buffers from subpool 0. It is not normal to specify DCBE options that you don't want' Please include the relevant DCBE with code that you post. BTW, the DFSMSdfp documentation discusses what can be above the line line and how to support it. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joseph Reichman [reichman...@gmail.com] Sent: Thursday, March 23, 2023 7:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Does BSAM I/O area have to be fixed storage Seems like this is the only way my read worked but it kind of doesn't make sense I should be able to have the I/O area from subpool 0 pageable storage Thanks ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
