Try initializing the stem to null (outstem. = ""). A null entry will terminate the EXECIO.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of George Shedlock Sent: Tuesday, August 27, 2013 8:45 AM To: [email protected] Subject: Re: Rexx Execio to PDS 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
