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
