If you use STOW with QSAM you're on your own; it's a lot of work to get it right. BTDT,GTS.
Look at http://mason.gmu.edu/~smetz3/source/STOWBLDL.ASM if you're really brave. -- 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: Monday, August 19, 2019 12:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Adding/replacing PDS member with QSAM, BLDL, and STOW On Mon, Aug 19, 2019 at 10:41 AM Seymour J Metz <sme...@gmu.edu> wrote: > 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. > The documentation seems inconsistent in "Using Data sets" / "STOW - Update the Directory" whic says: "To use the STOW macro, DSORG=PO or POU must be specified in the DCB macro". Later in the section: "Although you can use any type of DCB with STOW, it is intended to be used with a BPAM DCB." and other statements about using BSAM and QSAM. > You get the TTR of the member from DCBRELAD. If you need to include user > TTRs, do a NOTE after the relevant CHECK. > NOTE and CHECK with QSAM? Yes, you need (the equivalent of) the member name in the DD or dynamic > allocation in order to get an automatic STOW. > > The whole point is that I don't want the automatic STOW. > > -- > 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...@dovetail.com> > Sent: Monday, August 19, 2019 10:46 AM > To: IBM-MAIN@LISTSERV.UA.EDU > 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 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
