I do. I would just as soon not send/post the entire module. What is your
specific issue? As Binyamin has noted, GETBUF itself is pretty simple. Looks
like reentrant code to me:
GETBUF PDSDCB,R2
+*
+*
+ LA 1,PDSDCB LOAD PARAM
+ SLR 14,14 CLEAR REGISTER
+ ICM 14,7,21(1) LOAD BUFCB ADDRESS
+ ICM R2,B'1111',0(14) IS A BUFFER AVAILABLE
+ BZ *+10 NO,RETURN ZERO
+ MVC 0(4,14),0(R2) YES,UPDATE BUFCB ADDR
I do find the following comments in my code:
FREEPOOL (R4) NOT NEEDED WITH BUFFS ABOVE LINE ???
* SO DOC CLAIMS BUT I GET GETBUF
* FAILURES ON SUBSEQUENT OPENS
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Micheal Butz
Sent: Thursday, May 30, 2013 7:13 PM
To: [email protected]
Subject: Examples of getbuf and build usage
Would anyone have examples of
Getbuf used with BSAM read
I think it might help my problem
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
