On 12/12/2011 4:45 PM, Yanick Jacques wrote:
Hi,
I have some trouble to create an empty member in a PDS.Can someone can
help me. Here's the code I have start for this.
There are at least two ways of doing this. If you do not need
user data in the directory entry, open and close a QSAM or BSAM
DCB for sequential output (DSORG=PS), and put the member name on
the JCL (or SVC 99 list).
As pointed out, you do not have an OPEN. The rest of your code
will not create an empty member, but one with one record. For
the one record case, you need to do a NOTE after the CHECK, and
place that TTR into the STOW list; also you indicate the
presence of fifteen halfwords of user data, but have none. The
length is that of the usual (ISPF/PDF) EDIT entry, and some
programs might get an 0C7 reading your directory entry.
If you really need an empty entry, the TTR needs to point to an
EOF record. I haven't tried this, but I would try an OPEN for
output, a NOTE, set the "last I/O was write" bit in the DCB, and
then the STOW (no WRITE/CHECK).
STOWLIST DS 0F
DC CL8'GIITXXXX'
DS CL3
DC X'0F'
INAREA DC CL80'QWERTY,QWERTY,QWERTY,QWERTY'
Gerhard Postpischil
Bradford, VT
