It can be done that way, you are right, but I figure if the OP's program is using BUILD and GETBUF then my statements may prove to help him with his problem, and that's my reason for posting what I did, to help the OP. I could have qualified my statement by adding saying "unless the program is copying the BUFCB (and not the buffers) below the line" but I thought "but who does that?" Well, now I know who does that, or something like that.
Bill On Sun, 2 Jun 2013 21:55:51 -0400, Charles Mills wrote: >The BUFCB has to be below the line. Not "the buffer addresses." I am actually >using it with buffers above the line, so this is not a theoretical conjecture. > >Charles > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:[email protected]] On >Behalf Of Bill Godfrey >Sent: Sunday, June 02, 2013 6:42 PM >To: [email protected] >Subject: Re: Examples of getbuf and build usage > >Look one line above that. This is copied from one of your earlier posts: >+ ICM 14,7,21(1) LOAD BUFCB ADDRESS > >Bill > >On Sun, 2 Jun 2013 18:28:07 -0400, Charles Mills wrote: > >>Nope. >> >>+ ICM R2,B'1111',0(14) IS A BUFFER AVAILABLE >>+ BZ *+10 NO,RETURN ZERO >>+ MVC 0(4,14),0(R2) >> >>Charles >>-----Original Message----- >>From: IBM Mainframe Discussion List [mailto:[email protected]] >>On Behalf Of Bill Godfrey >>Sent: Saturday, June 01, 2013 9:30 AM >>To: [email protected] >>Subject: Re: Examples of getbuf and build usage >> >>On Thu, 30 May 2013 19:12:54 -0400, Micheal Butz wrote: >> >>>Would anyone have examples of >>>Getbuf used with BSAM read >>> >>>I think it might help my problem >>> >>Are your buffer addresses above the line? If so, they shouldn't be. GETBUF >>gets a 24-bit BUFCB address from the DCB using ICM 14,7,21(1). > >---------------------------------------------------------------------- >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
