IBM assumes that your program will only use STOW for MACRF=W. CLOSE does use STOW for DSORG=PO,MACRF=P[M], but only after doing some housekeeping that is not documented.
You get the TTR of the member from DCBRELAD. If you need to include user TTRs, do a NOTE after the relevant CHECK. Yes, you need (the equivalent of) the member name in the DD or dynamic allocation in order to get an automatic STOW. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Kirk Wolf <[email protected]> Sent: Monday, August 19, 2019 10:46 AM To: [email protected] Subject: Adding/replacing PDS member with QSAM, BLDL, and STOW So I know how to do this with BPAM, but I have a case where I would like to use QSAM to add or replace a member of a PDS or PDSE. I want to use BLDL an STOW in order to process ISPF statistics. I've been reading "Using Data Sets" / "Creating a PDS Member with BSAM or QSAM", and it is still a little unclear how this is done. In particular, in this section the book says: *"If the preceding conditions are true but you code DSORG=PO (to use BPAM) and your last operation on the DCB before CLOSE is a STOW macro, CLOSE does not issue the STOW macro."* 1) This is confusing, since I had thought that I couldn't use MACRF=PM with DSORG=PO. But with DSORG=PS, I don't think that I can use STOW. But, under "STOW - Update the Directory", it says that you can. Maybe I need to use DSORG=PS? *2) Referring to the following pseudocode:* where do I get the TTR for STOW for the new member location? DCBRELAD/DCBRELA right after OPEN? 3) DD question: I think that having the member name in the DD is what causes OPEN (OUTPUT) to starting writing onto the end of the PDS, right? Any help would be appreciated. Kirk Wolf PS> In reality, I will be allocating the PDS with DISP=SHR and using ISPF-compatible enqueue processing. I'm not sure if that matters here. //PDSDD DD DSNAME=MASTFILE(MEMBERK),DISP=OLD ... OPEN (OUTDCB,(OUTPUT)) ... PUT OUTDCB,OUTAREA Write record to member ... CLOSE (OUTDCB),TYPE=T BLDL OUTDCB,BLDLLST get old entry / stats ... (create new/updated stats in STOWLST) STOW OUTDCB,STOWLST,R update entry stats CLOSE (OUTDCB) ... OUTDCB DCB ---,DSORG=PO,DDNAME=PDSDD,MACRF=PM Or DSORG=PS ???? ... BLDLLST DC H'1' One entry DC AL2(8+3+1+1+1+62) BLDLMBR DC CL8'MEMBERK' DS XL6 BLDLUDAT DS XL62 ... STOWLST DS 0H STOWMBR DS CL8 STOWTTRC DS XL4 STOWUDAT DS Xl62 Kirk Wolf Dovetailed Technologies http://secure-web.cisco.com/1LTqxWE-NWQJvU5Wjqmbnpon2GckrVTeRLrflS7xIJsrnHT6Lh1hfWzEPsOSdkehX85bfyrhtLDjg94IaTXUuHdLDho5yMyduUp_0HGvDbD2KZOZ42PMrVpWLCQaN1YG3w_rLcw8v-ks3gxuwYO_To-KKQnTYuAUSGRkicC-O-XGx9P9WHrzy6sYclg9JpSVCzjDUeozb6nhnvmZhaeQ7Mr6URy35fkBpnCaV5kCDp7TIGelMLGp7-sAn1BMRuKWF3rNLwRs6RwK4QwOHuRfdhVjUVz6SZHO9lTkFrLua0Oir_OZ_zKiqwg2NGekPidVHUl8iJoWhbYZVYthvKmfF3xXEyhISUpvgYUIOTE8SVRVMT8GQFbtS-5LTGDISseIzLj2f9rA_0gPNh2TtwVlh89wntmpGpyyL5C2teIAaMi2KPuz0oldES8uQZqm-guO8/http%3A%2F%2Fdovetail.com ---------------------------------------------------------------------- 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
