If you're not intimately familiar with the now undocumented QSAM logic, then trying to mix FIND/NOTE/STOW with QSAM is dicey and you're better off using BPAM. I've done it, but it's not for the inexperienced.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Charles Mills <[email protected]> Sent: Monday, August 19, 2019 12:49 PM To: [email protected] Subject: Re: Adding/replacing PDS member with QSAM, BLDL, and STOW I seem to recall getting part way down this road years ago and reaching the same conclusion. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Steve Smith Sent: Monday, August 19, 2019 9:26 AM To: [email protected] Subject: Re: Adding/replacing PDS member with QSAM, BLDL, and STOW I've recently done some similar programming. After some false starts, I decided it was easier to just use BPAM for the output. One gotcha... OPEN for input will abend if the member name doesn't exist, even with DSORG=PO. So, I had to modify the JFCB to allow that (and JFCNWRIT on!). Subsequently, the BLDL returns "not found", but my program is OK with that. I then create & STOW the member as new. And then, the next program that OPENs as MACRF=GL works great. If I understand what you want to do, I think you'll need two DCBs, first the QSAM to write the member, CLOSE it, then OPEN with BPAM to BLDL & STOW to add the stats to the directory entry. Again, I decide it was easier to write the BPAM WRITE/CHECK logic. ---------------------------------------------------------------------- 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
