This was when I used R7 R7 had the address of the IOAREA it abended 800 RC 4 when I got the storage from sp 233 it worked
This is application code subpool zero shouldn’t give me a problem > On Mar 22, 2023, at 2:48 AM, Binyamin Dissen <[email protected]> > wrote: > > Because when you supply IOBUFF as the address of the buffer it will overlay > storage following that label. That includes register save areas, code, etc. > Any kind of abend may occur. > > Look at your dump very carefully. See if the entire working storage is as > expected. > > Look at the trace table before the abend and t6he BEA. How did you get there? > > > On Tue, 21 Mar 2023 21:26:20 -0400 Joseph Reichman <[email protected]> > wrote: > > :>This totally crazy I abended 800 RC 4 > :>Looked at the abend codes says system EXCPVSR was trying to page fix > storage > :> > :>I then got sp 233 says it’s fixed and also key 0 > :>Worked > :> > :>I don’t get it there is no reason for the IOAREA to be sp 233 subpool 0 > should be good enough > :> > :> > :> > :>> On Mar 21, 2023, at 11:43 AM, Seymour J Metz <[email protected]> wrote: > :>> > :>> ?You have to give READ the address of the buffer, not the address of a > pointer to it. > :>> > :>> For 64-bit there is a different DECB format; I believe that's SF64. > :>> > :>> ________________________________________ > :>> From: IBM Mainframe Discussion List <[email protected]> on behalf > of Joseph Reichman <[email protected]> > :>> Sent: Tuesday, March 21, 2023 11:22 AM > :>> To: [email protected] > :>> Subject: Re: BSAM READ AMODE 31 RMODE 31 > :>> > :>> Still have problems > :>> > :>> With the read > :>> > :>> I tried last night and it worked let me explain > :>> > :>> The address of the IO area I store in a full word > :>> IOBUFF > :>> > :>> When I did LA R7,IOBUFF > :>> And then did > :>> > :>> READ ADATADECB,SF,(R6),(R7),’S’,MF=E > :>> > :>> It worked today morning didn’t change code had problems > :>> > :>> When I did L R7,IOBUFF it didn’t > :>> > :>> I know both Binyamin and Charles Mills in their example had Load but it > doesn’t make sense > :>> > :>> At +12 is the address of a pointer to the IOAREA if that were the address > it self > :>> > :>> What if you had a 64 bit pointer (which bsam supoorts) so it had to be a > pointer to where the pointer ( in 64 bit that would 8 bytes ) > :>> Thanks > :>> > :>> > :>>> On Mar 20, 2023, at 3:46 PM, Seymour J Metz <[email protected]> wrote: > :>>> > :>>> ?IMHO it's clearer to just use > :>>> > :>>> READ PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E > :>>> CHECK PDSDECB > :>>> > :>>> > :>>> -- > :>>> Shmuel (Seymour J.) Metz > :>>> http://mason.gmu.edu/~smetz3 > :>>> > :>>> ________________________________________ > :>>> From: IBM Mainframe Discussion List [[email protected]] on behalf > of Joseph Reichman [[email protected]] > :>>> Sent: Monday, March 20, 2023 9:20 AM > :>>> To: [email protected] > :>>> Subject: BSAM READ AMODE 31 RMODE 31 > :>>> > :>>> Hi > :>>> > :>>> > :>>> > :>>> I know Charles Mills answered my question nearly 4 weeks ago but I would > :>>> just like to corroborate the I/O areas for the read can be 31 bit > addressing > :>>> only the dcb and decb need to be below the line > :>>> > :>>> I am running AMODE 31 RMODE 31 > :>>> > :>>> > :>>> > :>>> The DCB is below the line as well as the DECB > :>>> > :>>> > :>>> > :>>> My read returns ok > :>>> > :>>> > :>>> > :>>> After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP > :>>> > :>>> > :>>> > :>>> This the example that Charles sent to me does nt say anything about the > :>>> IOAREAS or pointers to the IOAREAS > :>>> > :>>> > :>>> > :>>> LA Rn,PDSDCB > :>>> > :>>> ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB > :>>> > :>>> L Rn,address of READ buffer > :>>> > :>>> READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> This is my read > :>>> > :>>> > :>>> > :>>> READ ADATADECB,SF,(R6),IOBUFF,'S',MF=E > :>>> > :>>> > :>>> > :>>> The IOBUFF is a full word pointer to the storage I obtain > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> Here is my code > :>>> > :>>> > :>>> > :>>> LA R0,IODSECTLEN > :>>> > :>>> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0 > :>>> > :>>> LR R9,R6 > :>>> > :>>> USING IHADCB,R9 > :>>> > :>>> USING IODSECT,R6 > :>>> > :>>> * > :>>> > :>>> * > :>>> > :>>> LA R7,SYSADATA > :>>> > :>>> MVC 0(IODSECTLEN,R6),0(R7) > :>>> > :>>> * > :>>> > :>>> LA R7,SYSDCBE-SYSADATA(,R6) > :>>> > :>>> ST R7,DCBDCBE > :>>> > :>>> LA R7,EX24LST-SYSADATA(,R6) > :>>> > :>>> STCM R7,B'0111',DCBEXLSA > :>>> > :>>> LA R7,ABND24-SYSADATA(,R6) > :>>> > :>>> STCM R7,B'0111',ABND24ADR-SYSADATA(R6) > :>>> > :>>> LA R7,ABENDRTN > :>>> > :>>> ST R7,ABEND31-SYSADATA(,R6) > :>>> > :>>> * > :>>> > :>>> T L R0,=F'31996' > :>>> > :>>> * > :>>> > :>>> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0 > :>>> > :>>> * LA R7,IOAREA > :>>> > :>>> * ST R7,IOPTR > :>>> > :>>> * > :>>> > :>>> ST R7,IOBUFF > :>>> > :>>> MVC OPEN_LST(OPEN_LEN),OPEN_CON > :>>> > :>>> OPEN ((R6),INPUT),MF=(E,OPEN_LST),MODE=31 > :>>> > :>>> * > :>>> > :>>> TM DCBOFLGS,DCBOFOPN > :>>> > :>>> BZ EXITDEBG > :>>> > :>>> USING ASMADATA,R7 > :>>> > :>>> L R10,IOBUFF > :>>> > :>>> PROCADATA DS 0H > :>>> > :>>> READ ADATADECB,SF,(R6),IOBUFF,'S',MF=E > :>>> > :>>> * > :>>> > :>>> CHECK ADATADECB > :>>> > :>>> * > :>>> > :>>> 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 > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> > :>>> ---------------------------------------------------------------------- > :>>> For IBM-MAIN subscribe / signoff / archive access instructions, > :>>> send email to [email protected] with the message: INFO IBM-MAIN > :>>> > :>>> ---------------------------------------------------------------------- > :>>> For IBM-MAIN subscribe / signoff / archive access instructions, > :>>> send email to [email protected] with the message: INFO IBM-MAIN > :>> > :>> ---------------------------------------------------------------------- > :>> For IBM-MAIN subscribe / signoff / archive access instructions, > :>> send email to [email protected] with the message: INFO IBM-MAIN > :>> > :>> > :>> ---------------------------------------------------------------------- > :>> For IBM-MAIN subscribe / signoff / archive access instructions, > :>> send email to [email protected] with the message: INFO IBM-MAIN > :> > :>---------------------------------------------------------------------- > :>For IBM-MAIN subscribe / signoff / archive access instructions, > :>send email to [email protected] with the message: INFO IBM-MAIN > > -- > Binyamin Dissen <[email protected]> > http://www.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
