Re: Does BSAM I/O area have to be fixed storage
Do you know of a user error that can cause an ABEND S100 when the BSAM DCBE does not specify FIX=USER? Is FIX=USER forced for AC(1) users? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Peter Relson [rel...@us.ibm.com] Sent: Friday, March 24, 2023 8:54 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage And of course page-fixing a buffer cannot be an input requirement for any service that supports unauthorized callers because those callers do not have access to page-fix functionality (either by subpool choice or by the services that do it). Peter Relson z/OS Core Technology Design -- 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
Re: Does BSAM I/O area have to be fixed storage
That was my thinking exactly FIXED=USER on the DCBE fixed that problem but what about BSAM where everything is 24 bits don’t remember this issue On Fri, Mar 24, 2023 at 8:54 AM Peter Relson wrote: > And of course page-fixing a buffer cannot be an input requirement for any > service that supports unauthorized callers because those callers do not > have access to page-fix functionality (either by subpool choice or by the > services that do it). > > Peter Relson > z/OS Core Technology Design > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Joe Reichman -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
And of course page-fixing a buffer cannot be an input requirement for any service that supports unauthorized callers because those callers do not have access to page-fix functionality (either by subpool choice or by the services that do it). Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
On Thu, Mar 23, 2023 at 04:16:10PM -0400, Tony Harminc wrote: > On Thu, 23 Mar 2023 at 08:57, Joseph Reichman wrote: > > > STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233 > > Does BSAM (or EXCP for that matter) support above-the-bar real storage > for I/O operations? Format-2 IDAWs or MIDAWs and all that? Sounds like the answer is yes: 'SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 dgt3d510.pdf' BSAM READ Macro Addressing mode: When you issue the READ macro in 24-bit mode, provide only 24-bit addresses unless you code SF64 or SF64P. When you issue the READ macro in 31-bit addressing mode, provide only 31-bit addresses unless documentation says otherwise or you code SF64 or SF64P. With SF64 or SF64P, the data area can reside above the 2 GB bar but you cannot issue READ in 64-bit mode. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
EXCPV4 does. For anything else, consult the PLM (curse you, OCO!) -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tony Harminc [t...@harminc.net] Sent: Thursday, March 23, 2023 4:16 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage On Thu, 23 Mar 2023 at 08:57, Joseph Reichman wrote: > STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233 Does BSAM (or EXCP for that matter) support above-the-bar real storage for I/O operations? Format-2 IDAWs or MIDAWs and all that? Tony H. -- 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
Re: Does BSAM I/O area have to be fixed storage
BSAM really isn't that hard, and I didn't see any errors that he didn't correct. I don't know why he's running AC(1), but I also don't know why it's acting as though he had FIX=USER. If I had access I'd be looking at the relevant control blocks. Are both IEZIOB and IGGIOBEX available for customer use these days? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] Sent: Thursday, March 23, 2023 1:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage On Thu, 23 Mar 2023 10:03:50 -0400, Joseph Reichman wrote: >Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a >locate mode the user supplied the I/O area > My (very old) experience with BSAM agreed with what Seymour says. Why are you trying to use BSAM. QSAM is easier. o Are your records not in a RECFM supported by QSAM? o Are you concerned with the performance of repeatedly calling GET LOCATE? o Did you make a bad initial design choice and are unwilling to reconsider? >> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: >> >> The access method handles page fixing unless you specify DCBE FIX=USER. -- gil -- 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
Re: Does BSAM I/O area have to be fixed storage
On Thu, 23 Mar 2023 at 08:57, Joseph Reichman wrote: > STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233 Does BSAM (or EXCP for that matter) support above-the-bar real storage for I/O operations? Format-2 IDAWs or MIDAWs and all that? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
I’m actually doing a presentation at work ( I hope Seymour will attend ) Most programs here are qsam locate mode But there are some BSAM All most all amode 24 rmode 24 > On Mar 23, 2023, at 1:43 PM, Paul Gilmartin > <042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote: > > On Thu, 23 Mar 2023 10:03:50 -0400, Joseph Reichman wrote: > >> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a >> locate mode the user supplied the I/O area >> > My (very old) experience with BSAM agreed with what Seymour says. > > Why are you trying to use BSAM. QSAM is easier. > o Are your records not in a RECFM supported by QSAM? > o Are you concerned with the performance of repeatedly calling GET LOCATE? > o Did you make a bad initial design choice and are unwilling to reconsider? > > On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: >>> >>> The access method handles page fixing unless you specify DCBE FIX=USER. > > -- > gil > > -- > 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
Re: Does BSAM I/O area have to be fixed storage
On Thu, 23 Mar 2023 10:03:50 -0400, Joseph Reichman wrote: >Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a >locate mode the user supplied the I/O area > My (very old) experience with BSAM agreed with what Seymour says. Why are you trying to use BSAM. QSAM is easier. o Are your records not in a RECFM supported by QSAM? o Are you concerned with the performance of repeatedly calling GET LOCATE? o Did you make a bad initial design choice and are unwilling to reconsider? >> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: >> >> The access method handles page fixing unless you specify DCBE FIX=USER. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
Did listpsw at breakpoint was key 8 problem bit bit 15 was one Open ok Read ok and got IOAREA > On Mar 23, 2023, at 11:39 AM, Joseph Reichman wrote: > > You are absolutely right I’ll fix pronto > >>> On Mar 23, 2023, at 11:38 AM, Michael Stein wrote: >>> >>> On Thu, Mar 23, 2023 at 08:56:43AM -0400, Joseph Reichman wrote: >>> Here is the code if you page down the email you will see "Here is the >>> DCB//DECB/DCBE and exlst code" >> >> Another partial source which ignores that you are authorized. >> >> When you are authorized (especially key zero/system key/supervisor) >> the system calls have different behavior. >> >> subpools for example: >> >> https://www.ibm.com/docs/en/zos/2.1.0?topic=summary-storage-subpools >> >> 6. Subpools 0-127, 131, and 132 are the only valid subpools for >> unauthorized programs. A request by an unauthorized program for a >> subpool other than 0-127, 131, or 132 causes abnormal termination >> of the program. >> >>> 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 >> >> https://www.ibm.com/docs/en/zos/2.1.0?topic=codes-800 >> >> 800 >> Explanation >> During processing of an I/O request, execute channel program (EXCP) >> processing encountered an error. Most instances of the X'800' ABEND code >> have a reason code that explains the error. After the pages for a buffer >> were fixed, an LRA instruction for a page in the buffer got a nonzero >> condition code. This means that page is not valid. >> >> 04 >> A program issued SVC 114, the EXCPVR macro, but an error occurred during >> page-fix or page-unfix processing. A page-fix error can occur if the EXCP >> processor tries to fix pages that are not assigned to the caller's ASID. >> >> So you convinced BSAM to use some authorized path for the I/O and >> tried to use as buffers storage it couldn't use for I/O... >> >> Try BSAM without authorization first and don't include any extra options >> you haven't researched, especially ones requiring authorization. >> >> The default for QSAM is that the open routine gets the buffers and >> you don't deal with buffers, you just get records. >> >> The default for BSAM is that you supply the buffers. The buffers >> can come from: >> >> a. you request storage from the system via getmain or storage etc.. >> >> b. you have the access method buffer management routines get >> buffers which you then ask for buffers. >> >> SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 >> dgt3d510.pdf >> >> The BUILD macro is used to construct a buffer pool in an area provided >> by the problem program. The buffer pool can be used by more than one >> data set through separate data control blocks. For BDAM, BISAM, BPAM >> and BSAM your program can obtain individual buffers from the buffer >> pool using the GETBUF macro, and return them to the buffer pool using >> a FREEBUF macro. For QISAM and QSAM, OPEN obtains buffers from and >> CLOSE returns buffers to the buffer pool. See z/OS DFSMS Using Data >> Sets for an explanation of the interaction of the DCB, BUILD, and >> GETBUF macros in each access method, and the buffer size requirements. >> >> c. storage in your program (obviously not reentrant). >> >> I've never taken path (b), only (a) or (c). >> >> -- >> 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
Re: Does BSAM I/O area have to be fixed storage
You are absolutely right I’ll fix pronto > On Mar 23, 2023, at 11:38 AM, Michael Stein wrote: > > On Thu, Mar 23, 2023 at 08:56:43AM -0400, Joseph Reichman wrote: >> Here is the code if you page down the email you will see "Here is the >> DCB//DECB/DCBE and exlst code" > > Another partial source which ignores that you are authorized. > > When you are authorized (especially key zero/system key/supervisor) > the system calls have different behavior. > > subpools for example: > > https://www.ibm.com/docs/en/zos/2.1.0?topic=summary-storage-subpools > > 6. Subpools 0-127, 131, and 132 are the only valid subpools for >unauthorized programs. A request by an unauthorized program for a >subpool other than 0-127, 131, or 132 causes abnormal termination >of the program. > >> 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 > > https://www.ibm.com/docs/en/zos/2.1.0?topic=codes-800 > > 800 > Explanation > During processing of an I/O request, execute channel program (EXCP) > processing encountered an error. Most instances of the X'800' ABEND code > have a reason code that explains the error. After the pages for a buffer > were fixed, an LRA instruction for a page in the buffer got a nonzero > condition code. This means that page is not valid. > > 04 > A program issued SVC 114, the EXCPVR macro, but an error occurred during > page-fix or page-unfix processing. A page-fix error can occur if the EXCP > processor tries to fix pages that are not assigned to the caller's ASID. > > So you convinced BSAM to use some authorized path for the I/O and > tried to use as buffers storage it couldn't use for I/O... > > Try BSAM without authorization first and don't include any extra options > you haven't researched, especially ones requiring authorization. > > The default for QSAM is that the open routine gets the buffers and > you don't deal with buffers, you just get records. > > The default for BSAM is that you supply the buffers. The buffers > can come from: > > a. you request storage from the system via getmain or storage etc.. > > b. you have the access method buffer management routines get > buffers which you then ask for buffers. > > SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 > dgt3d510.pdf > > The BUILD macro is used to construct a buffer pool in an area provided > by the problem program. The buffer pool can be used by more than one > data set through separate data control blocks. For BDAM, BISAM, BPAM > and BSAM your program can obtain individual buffers from the buffer > pool using the GETBUF macro, and return them to the buffer pool using > a FREEBUF macro. For QISAM and QSAM, OPEN obtains buffers from and > CLOSE returns buffers to the buffer pool. See z/OS DFSMS Using Data > Sets for an explanation of the interaction of the DCB, BUILD, and > GETBUF macros in each access method, and the buffer size requirements. > > c. storage in your program (obviously not reentrant). > > I've never taken path (b), only (a) or (c). > > -- > 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
Re: Does BSAM I/O area have to be fixed storage
On Thu, Mar 23, 2023 at 08:56:43AM -0400, Joseph Reichman wrote: > Here is the code if you page down the email you will see "Here is the > DCB//DECB/DCBE and exlst code" Another partial source which ignores that you are authorized. When you are authorized (especially key zero/system key/supervisor) the system calls have different behavior. subpools for example: https://www.ibm.com/docs/en/zos/2.1.0?topic=summary-storage-subpools 6. Subpools 0-127, 131, and 132 are the only valid subpools for unauthorized programs. A request by an unauthorized program for a subpool other than 0-127, 131, or 132 causes abnormal termination of the program. > 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 https://www.ibm.com/docs/en/zos/2.1.0?topic=codes-800 800 Explanation During processing of an I/O request, execute channel program (EXCP) processing encountered an error. Most instances of the X'800' ABEND code have a reason code that explains the error. After the pages for a buffer were fixed, an LRA instruction for a page in the buffer got a nonzero condition code. This means that page is not valid. 04 A program issued SVC 114, the EXCPVR macro, but an error occurred during page-fix or page-unfix processing. A page-fix error can occur if the EXCP processor tries to fix pages that are not assigned to the caller's ASID. So you convinced BSAM to use some authorized path for the I/O and tried to use as buffers storage it couldn't use for I/O... Try BSAM without authorization first and don't include any extra options you haven't researched, especially ones requiring authorization. The default for QSAM is that the open routine gets the buffers and you don't deal with buffers, you just get records. The default for BSAM is that you supply the buffers. The buffers can come from: a. you request storage from the system via getmain or storage etc.. b. you have the access method buffer management routines get buffers which you then ask for buffers. SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 dgt3d510.pdf The BUILD macro is used to construct a buffer pool in an area provided by the problem program. The buffer pool can be used by more than one data set through separate data control blocks. For BDAM, BISAM, BPAM and BSAM your program can obtain individual buffers from the buffer pool using the GETBUF macro, and return them to the buffer pool using a FREEBUF macro. For QISAM and QSAM, OPEN obtains buffers from and CLOSE returns buffers to the buffer pool. See z/OS DFSMS Using Data Sets for an explanation of the interaction of the DCB, BUILD, and GETBUF macros in each access method, and the buffer size requirements. c. storage in your program (obviously not reentrant). I've never taken path (b), only (a) or (c). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
FIXED=USER Worked no abend I also have to say that I took The RMODE31=BUFF out since it’s not relevant for bsam and I had ADDR=(1) And included LR R6,R1 Thank you > On Mar 23, 2023, at 10:49 AM, Seymour J Metz wrote: > > If your DCBE doesn't have FIXED=USER then the page fix shouldn't be needed > and something else is wrong. > > > -- > 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 10:26 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > > So I’ll try using FIX=USER ? And ADDR=(1) > >> On Mar 23, 2023, at 10:22 AM, Seymour J Metz wrote: >> >> FSVO QSAM. >> >> "FIXED=USER >> With this DCBE option, you assert that the data areas remain fixed from the >> time the READ or WRITE >> macro instruction is issued through the completion of the CHECK or WAIT >> macro instruction." >> >> Three out of four of those macros are BASm, and the last isn't part of the >> access methods. >> >> SP0 is normal for BSAM buffers. try >> >>STORAGE OBTAIN,...,ADDR=(1) >>LR R6,R1 >> >> >> -- >> 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 10:03 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Does BSAM I/O area have to be fixed storage >> >> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a >> locate mode the user supplied the I/O area >> >> This snippet is from code that is re-entrant >> >> I remember a long time ago I wrote program here at the IRS using bsam and >> got storage from subpool zero >> >> There is one program here at the IRS that uses bsam most of the programs are >> qsam in locate mode I would ask but they don’t like it if I contact >> developers >> >> >> >>>> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: >>> >>> The access method handles page fixing unless you specify DCBE FIX=USER. >>> >>> >>> -- >>> Shmuel (Seymour J.) Metz >>> http://mason.gmu.edu/~smetz3 >>> >>> >>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >>> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] >>> Sent: Thursday, March 23, 2023 9:03 AM >>> To: IBM-MAIN@LISTSERV.UA.EDU >>> Subject: Re: Does BSAM I/O area have to be fixed storage >>> >>>>> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >>>> >>>> It is normal to obtaon buffers from subpool 0. It is not normal to specify >>>> DCBE options that you don't want' >>>> >>> I coded some BSAM long ago, 370 era. I never bothered with fixing pages. >>> I assumed/was told the access method did that for me. I suspect it was >>> for compatibility with 360. >>> >>>> 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. >>> >>> -- >>> gil >>> >>> -- >>> 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 > > -- > 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
Re: Does BSAM I/O area have to be fixed storage
If your DCBE doesn't have FIXED=USER then the page fix shouldn't be needed and something else is wrong. -- 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 10:26 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage So I’ll try using FIX=USER ? And ADDR=(1) > On Mar 23, 2023, at 10:22 AM, Seymour J Metz wrote: > > FSVO QSAM. > > "FIXED=USER > With this DCBE option, you assert that the data areas remain fixed from the > time the READ or WRITE > macro instruction is issued through the completion of the CHECK or WAIT macro > instruction." > > Three out of four of those macros are BASm, and the last isn't part of the > access methods. > > SP0 is normal for BSAM buffers. try > > STORAGE OBTAIN,...,ADDR=(1) > LR R6,R1 > > > -- > 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 10:03 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > > Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a > locate mode the user supplied the I/O area > > This snippet is from code that is re-entrant > > I remember a long time ago I wrote program here at the IRS using bsam and got > storage from subpool zero > > There is one program here at the IRS that uses bsam most of the programs are > qsam in locate mode I would ask but they don’t like it if I contact developers > > > >> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: >> >> The access method handles page fixing unless you specify DCBE FIX=USER. >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] >> Sent: Thursday, March 23, 2023 9:03 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Does BSAM I/O area have to be fixed storage >> >>>> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >>> >>> It is normal to obtaon buffers from subpool 0. It is not normal to specify >>> DCBE options that you don't want' >>> >> I coded some BSAM long ago, 370 era. I never bothered with fixing pages. >> I assumed/was told the access method did that for me. I suspect it was >> for compatibility with 360. >> >>> 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. >> >> -- >> gil >> >> -- >> 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 -- 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
Re: Does BSAM I/O area have to be fixed storage
It is documented that BSAM buffers must be page fixed by the user *ONLY* if the DCBE specifies FIXED=USER. The problem lies elsewhere. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Kirk Wolf [k...@wolf-associates.com] Sent: Thursday, March 23, 2023 10:31 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage Is it documented by IBM that BSAM IO buffers must be in fixed storage? I've never seen it. Further, we have written widely used BSAM code in the last 15 years that uses a circular queue of DECBs, with one BLKSIZE buffer per DECB (as suggested by "Using Data Sets"). We just use 31 bit C Library HEAP storage. Kirk Wolf Dovetailed Technologies On Thu, Mar 23, 2023, at 9:22 AM, Seymour J Metz wrote: > FSVO QSAM. > > "FIXED=USER > With this DCBE option, you assert that the data areas remain fixed from the > time the READ or WRITE > macro instruction is issued through the completion of the CHECK or WAIT macro > instruction." > > Three out of four of those macros are BASm, and the last isn't part of the > access methods. > > SP0 is normal for BSAM buffers. try > > STORAGE OBTAIN,...,ADDR=(1) > LR R6,R1 > > > -- > 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 10:03 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > > Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a > locate mode the user supplied the I/O area > > This snippet is from code that is re-entrant > > I remember a long time ago I wrote program here at the IRS using bsam and got > storage from subpool zero > > There is one program here at the IRS that uses bsam most of the programs are > qsam in locate mode I would ask but they don’t like it if I contact developers > > > > > On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: > > > > The access method handles page fixing unless you specify DCBE FIX=USER. > > > > > > -- > > Shmuel (Seymour J.) Metz > > http://mason.gmu.edu/~smetz3 > > > > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > > Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] > > Sent: Thursday, March 23, 2023 9:03 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: Does BSAM I/O area have to be fixed storage > > > >> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: > >> > >> It is normal to obtaon buffers from subpool 0. It is not normal to specify > >> DCBE options that you don't want' > >> > > I coded some BSAM long ago, 370 era. I never bothered with fixing pages. > > I assumed/was told the access method did that for me. I suspect it was > > for compatibility with 360. > > > >> 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. > > > > -- > > gil > > > > -- > > 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 > -- 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
Re: Does BSAM I/O area have to be fixed storage
Is it documented by IBM that BSAM IO buffers must be in fixed storage? I've never seen it. Further, we have written widely used BSAM code in the last 15 years that uses a circular queue of DECBs, with one BLKSIZE buffer per DECB (as suggested by "Using Data Sets"). We just use 31 bit C Library HEAP storage. Kirk Wolf Dovetailed Technologies On Thu, Mar 23, 2023, at 9:22 AM, Seymour J Metz wrote: > FSVO QSAM. > > "FIXED=USER > With this DCBE option, you assert that the data areas remain fixed from the > time the READ or WRITE > macro instruction is issued through the completion of the CHECK or WAIT macro > instruction." > > Three out of four of those macros are BASm, and the last isn't part of the > access methods. > > SP0 is normal for BSAM buffers. try > > STORAGE OBTAIN,...,ADDR=(1) > LR R6,R1 > > > -- > 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 10:03 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > > Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a > locate mode the user supplied the I/O area > > This snippet is from code that is re-entrant > > I remember a long time ago I wrote program here at the IRS using bsam and got > storage from subpool zero > > There is one program here at the IRS that uses bsam most of the programs are > qsam in locate mode I would ask but they don’t like it if I contact developers > > > > > On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: > > > > The access method handles page fixing unless you specify DCBE FIX=USER. > > > > > > -- > > Shmuel (Seymour J.) Metz > > http://mason.gmu.edu/~smetz3 > > > > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > > Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] > > Sent: Thursday, March 23, 2023 9:03 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: Does BSAM I/O area have to be fixed storage > > > >> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: > >> > >> It is normal to obtaon buffers from subpool 0. It is not normal to specify > >> DCBE options that you don't want' > >> > > I coded some BSAM long ago, 370 era. I never bothered with fixing pages. > > I assumed/was told the access method did that for me. I suspect it was > > for compatibility with 360. > > > >> 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. > > > > -- > > gil > > > > -- > > 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 > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
Interesting - time for an RCF. BTW, you'll get shorter code if you use the documented LENGTH=(0) instead of using the symbolic name. It would be nice if IBM assumed that R0-R15 had the values 0-15, but that might break existing 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 10:14 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage I put executable=yes because of exlst initial code must be below the line Just noticed the LAM Don't believe I have a SYSSTATE ASCENV=AR don't even know if that has anything to do with the abend I was getting LAR0,IODSECTLEN STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES SP=0 + LAM 15,15,=AL1(B'0001',(0),(0),B'') + .SET AR 15 @P9 + LR 0,R0 .STORAGE LENGTH + L 15,=AL1(B'0010',(0*16),(0),B'00010010') + .CONTROL INFORMATION @P9 + L 14,16(0,0) .CVT ADDRESS + L 14,772(14,0) .ADDR SYST LINKAGE TABLE + L 14,160(14,0) .OBTAIN LX/EX FOR OBTAIN + PC 0(14).PC TO STORAGE RTN + LR R6,1 .SAVE ADDR OF STORAGE USING IODSECT,R6 *VIEW -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Thursday, March 23, 2023 10:08 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage > 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 LAR0,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 * LAR7,ADATADCBE STR7,DCBDCBE LAR7,INST31 STCM R7,B'0111',DCBEXLSA LAR7,INST31+4 STCM R7,B'0111',INST31+1 LAR7,ABENDRTN STR7,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 *LAR7,IOAREA *STR7,IOPTR * * STR0,IOLEN XRR8,R8 XRR9,R9 STR7,IOBUFF L R7,IOBUFF MVC OPEN_LST(OPEN_LEN),OPEN_CON OPEN ((R6),INPUT),MF=(E,OPEN_LST),MODE=31 * *MVC ADATADECB(IREADLEN),IREAD TMDCBOFLGS,DCBOFOPN d ===> Scroll ===> CSR TMDCBOFLGS,DCBOFOPN BZEXITDEBG USING ASMADATA,R7 PROCADATA DS 0H READ ADATADECB,SF,(R6),(R7),'S',MF=E * CHECK ADATADECB * LHR12,0(R7) LAR12,0(R12,R7) LAR7,4(,R7) Past BDW DATALP1 DS0H MVC RDW,0(R7) CHSI ADATA_RECTYPE,ADATA_RECESD External sym dic. BNE CKSRC * * NCEXSYMREL,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 EX24LSTDS 0F ADATAEXLST DC AL1(EXLDCBAB+X'80') ABND24ADR DS AL3 ABND24 DS 0H L R15,ABEND31-SYSADATA(,R15) BSM 0,R15 ABEND31DS XL4 STROGE24 EQU *-EX24LST IODSECT DSECT ADATADCB DSCL(DCBLNGBS) ADATADECB DSCL(DECBLEN) ADATADCBE DSCL(DCBELENV1) DS0F INST31DSCL(STROGE24) IODSECTLEN EQU *-IODSECT *
Re: Does BSAM I/O area have to be fixed storage
So I’ll try using FIX=USER ? And ADDR=(1) > On Mar 23, 2023, at 10:22 AM, Seymour J Metz wrote: > > FSVO QSAM. > > "FIXED=USER > With this DCBE option, you assert that the data areas remain fixed from the > time the READ or WRITE > macro instruction is issued through the completion of the CHECK or WAIT macro > instruction." > > Three out of four of those macros are BASm, and the last isn't part of the > access methods. > > SP0 is normal for BSAM buffers. try > > STORAGE OBTAIN,...,ADDR=(1) > LR R6,R1 > > > -- > 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 10:03 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > > Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a > locate mode the user supplied the I/O area > > This snippet is from code that is re-entrant > > I remember a long time ago I wrote program here at the IRS using bsam and got > storage from subpool zero > > There is one program here at the IRS that uses bsam most of the programs are > qsam in locate mode I would ask but they don’t like it if I contact developers > > > >> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: >> >> The access method handles page fixing unless you specify DCBE FIX=USER. >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] >> Sent: Thursday, March 23, 2023 9:03 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Does BSAM I/O area have to be fixed storage >> >>>> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >>> >>> It is normal to obtaon buffers from subpool 0. It is not normal to specify >>> DCBE options that you don't want' >>> >> I coded some BSAM long ago, 370 era. I never bothered with fixing pages. >> I assumed/was told the access method did that for me. I suspect it was >> for compatibility with 360. >> >>> 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. >> >> -- >> gil >> >> -- >> 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
FSVO QSAM. "FIXED=USER With this DCBE option, you assert that the data areas remain fixed from the time the READ or WRITE macro instruction is issued through the completion of the CHECK or WAIT macro instruction." Three out of four of those macros are BASm, and the last isn't part of the access methods. SP0 is normal for BSAM buffers. try STORAGE OBTAIN,...,ADDR=(1) LR R6,R1 -- 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 10:03 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a locate mode the user supplied the I/O area This snippet is from code that is re-entrant I remember a long time ago I wrote program here at the IRS using bsam and got storage from subpool zero There is one program here at the IRS that uses bsam most of the programs are qsam in locate mode I would ask but they don’t like it if I contact developers > On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: > > The access method handles page fixing unless you specify DCBE FIX=USER. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] > Sent: Thursday, March 23, 2023 9:03 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > >> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >> >> It is normal to obtaon buffers from subpool 0. It is not normal to specify >> DCBE options that you don't want' >> > I coded some BSAM long ago, 370 era. I never bothered with fixing pages. > I assumed/was told the access method did that for me. I suspect it was > for compatibility with 360. > >> 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. > > -- > gil > > -- > 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
Re: Does BSAM I/O area have to be fixed storage
I put executable=yes because of exlst initial code must be below the line Just noticed the LAM Don't believe I have a SYSSTATE ASCENV=AR don't even know if that has anything to do with the abend I was getting LAR0,IODSECTLEN STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES SP=0 + LAM 15,15,=AL1(B'0001',(0),(0),B'') + .SET AR 15 @P9 + LR 0,R0 .STORAGE LENGTH + L 15,=AL1(B'0010',(0*16),(0),B'00010010') + .CONTROL INFORMATION @P9 + L 14,16(0,0) .CVT ADDRESS + L 14,772(14,0) .ADDR SYST LINKAGE TABLE + L 14,160(14,0) .OBTAIN LX/EX FOR OBTAIN + PC 0(14).PC TO STORAGE RTN + LR R6,1 .SAVE ADDR OF STORAGE USING IODSECT,R6 *VIEW -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Thursday, March 23, 2023 10:08 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage > 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 LAR0,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 * LAR7,ADATADCBE STR7,DCBDCBE LAR7,INST31 STCM R7,B'0111',DCBEXLSA LAR7,INST31+4 STCM R7,B'0111',INST31+1 LAR7,ABENDRTN STR7,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 *LAR7,IOAREA *STR7,IOPTR * * STR0,IOLEN XRR8,R8 XRR9,R9 STR7,IOBUFF L R7,IOBUFF MVC OPEN_LST(OPEN_LEN),OPEN_CON OPEN ((R6),INPUT),MF=(E,OPEN_LST),MODE=31 * *MVC ADATADECB(IREADLEN),IREAD TMDCBOFLGS,DCBOFOPN d ===> Scroll ===> CSR TMDCBOFLGS,DCBOFOPN BZEXITDEBG USING ASMADATA,R7 PROCADATA DS 0H READ ADATADECB,SF,(R6),(R7),'S',MF=E * CHECK ADATADECB * LHR12,0(R7) LAR12,0(R12,R7) LAR7,4(,R7) Past BDW DATALP1 DS0H MVC RDW,0(R7) CHSI ADATA_RECTYPE,ADATA_RECESD External sym dic. BNE CKSRC * * NCEXSYMREL,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 EX24LSTDS 0F ADATAEXLST DC AL1(EXLDCBAB+X'80') ABND24ADR DS AL3 ABND24 DS 0H L R15,ABEND31-SYSADATA(,R15) BSM 0,R15 ABEND31DS XL4 STROGE24 EQU *-EX24LST IODSECT DSECT ADATADCB DSCL(DCBLNGBS) ADATADECB DSCL(DECBLEN) ADATADCBE DSCL(DCBELENV1) DS0F INST31DSCL(STROGE24) IODSECTLEN EQU *-IODSECT * T T -Original Message- From: IBM Mainframe Discussion List 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 optio
Re: Does BSAM I/O area have to be fixed storage
> 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 LAR0,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 * LAR7,ADATADCBE STR7,DCBDCBE LAR7,INST31 STCM R7,B'0111',DCBEXLSA LAR7,INST31+4 STCM R7,B'0111',INST31+1 LAR7,ABENDRTN STR7,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 *LAR7,IOAREA *STR7,IOPTR * * STR0,IOLEN XRR8,R8 XRR9,R9 STR7,IOBUFF L R7,IOBUFF MVC OPEN_LST(OPEN_LEN),OPEN_CON OPEN ((R6),INPUT),MF=(E,OPEN_LST),MODE=31 * *MVC ADATADECB(IREADLEN),IREAD TMDCBOFLGS,DCBOFOPN d ===> Scroll ===> CSR TMDCBOFLGS,DCBOFOPN BZEXITDEBG USING ASMADATA,R7 PROCADATA DS 0H READ ADATADECB,SF,(R6),(R7),'S',MF=E * CHECK ADATADECB * LHR12,0(R7) LAR12,0(R12,R7) LAR7,4(,R7) Past BDW DATALP1 DS0H MVC RDW,0(R7) CHSI ADATA_RECTYPE,ADATA_RECESD External sym dic. BNE CKSRC * * NCEXSYMREL,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 EX24LSTDS 0F ADATAEXLST DC AL1(EXLDCBAB+X'80') ABND24ADR DS AL3 ABND24 DS 0H L R15,ABEND31-SYSADATA(,R15) BSM 0,R15 ABEND31DS XL4 STROGE24 EQU *-EX24LST IODSECT DSECT ADATADCB DSCL(DCBLNGBS) ADATADECB DSCL(DECBLEN) ADATADCBE DSCL(DCBELENV1) DS0F INST31DSCL(STROGE24) IODSECTLEN EQU *-IODSECT * T T -Original Message- From: IBM Mainframe Discussion List 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
Re: Does BSAM I/O area have to be fixed storage
Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a locate mode the user supplied the I/O area This snippet is from code that is re-entrant I remember a long time ago I wrote program here at the IRS using bsam and got storage from subpool zero There is one program here at the IRS that uses bsam most of the programs are qsam in locate mode I would ask but they don’t like it if I contact developers > On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote: > > The access method handles page fixing unless you specify DCBE FIX=USER. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] > Sent: Thursday, March 23, 2023 9:03 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Does BSAM I/O area have to be fixed storage > >> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >> >> It is normal to obtaon buffers from subpool 0. It is not normal to specify >> DCBE options that you don't want' >> > I coded some BSAM long ago, 370 era. I never bothered with fixing pages. > I assumed/was told the access method did that for me. I suspect it was > for compatibility with 360. > >> 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. > > -- > gil > > -- > 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
Re: Does BSAM I/O area have to be fixed storage
The access method handles page fixing unless you specify DCBE FIX=USER. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu] Sent: Thursday, March 23, 2023 9:03 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does BSAM I/O area have to be fixed storage On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >It is normal to obtaon buffers from subpool 0. It is not normal to specify >DCBE options that you don't want' > I coded some BSAM long ago, 370 era. I never bothered with fixing pages. I assumed/was told the access method did that for me. I suspect it was for compatibility with 360. >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. -- gil -- 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
Re: Does BSAM I/O area have to be fixed storage
On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote: >It is normal to obtaon buffers from subpool 0. It is not normal to specify >DCBE options that you don't want' > I coded some BSAM long ago, 370 era. I never bothered with fixing pages. I assumed/was told the access method did that for me. I suspect it was for compatibility with 360. >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. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does BSAM I/O area have to be fixed storage
DECBLEN EQU *-DECB SYSDCBE DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX RSION=1 EX24LSTDS 0F ADATAEXLST DC AL1(EXLDCBAB+X'80') ABND24ADR DS AL3 ABND24 DS 0H L R15,ABEND31-SYSADATA(,R15) BSM 0,R15 ABEND31DS XL4 STROGE24 EQU *-EX24LST IODSECT DSECT ADATADCB DSCL(DCBLNGBS) ADATADECB DSCL(DECBLEN) ADATADCBE DSCL(DCBELENV1) DS0F INST31DSCL(STROGE24) IODSECTLEN EQU *-IODSECT * T T -Original Message- From: IBM Mainframe Discussion List 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
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
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