To All:
First, the output dataset was created immediately prior to executing the
exec. It was defined as a standard FB 80 PDS of 10 cylinders with 30 directory
blocks. For testing, my code only was generating 3 lines of output into a
single member in that PDS.
Lizette:
I am using EXECIO instead of the ISPF LM functions for 2 reasons. First I
cannot guarantee that this exec will run in an ISPF environment. Second, I am
an old time VM'er and somewhat stuck in my ways.
Paul:
You have noted one of the subtle differences in the way that Execio works in
the CMS vs TSO environments. It seems that in CMS, the "EXECIO *" stops after
the stem runs out. In TSO, it continues on forever resulting in my out of space
condition.
It seems that the ISPF LMPUT only deals with one line at a time.
Joel and Paul:
The parse was a quick and dirty way of piping in a string of lines as one
argument
Joel:
The "outstem. = 0" was indeed incorrect. It should have been "outstem.0 =
0". See my note below for the final code segment.
Thank you to all who have responded. Here is the final code segment that does
indeed work:
Write_Member: Procedure expose line.
MyDSN = ARG(1)
MyMember = ARG(2)
MyArg = ARG(3)
dsnname = MyDSN || '(' || MyMember || ')'
Say 'The dsname is: {'dsnname'}'
Say 'Number of lines written: 'line.0
"ALLOC DA('"dsnname"') F(Pdsout) OLD REUSE"
"EXECIO" line.0 "DISKW Pdsout (STEM line. FINIS"
"FREE F(Pdsout)"
Return
Thank you all.
George
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
