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://dovetail.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
