The problem is
outstem.=0
which sets an infinite number of instances of outstem.x to the non-null
value "0" for all "x". DISKW from a stem variable does not stop based
on a count in outstem.0, it stops when the first null outstem.n value
for n=1, 2, ... is found, which is "never" in this case. I suspect
"outstem.0 = 0" is what was intended. Or if this were in a section of
code that is repeated, you might need to also do a "Drop outstem." first
to insure you don't pick up records from a previous usage.
The parse is clever, but also much more obscure than a simple loop with
counter and setting outstem.0 to the counter on loop exit. (I would
still be inclined to set outstem.0 for tracking purposes even though the
EXECIO doesn't use it in the code shown)
Joel C. Ewing
On 08/26/2013 01:21 PM, George Shedlock wrote:
> Gentle Listers;
>
> I am trying to write a Rexx routine that takes in 3 arguments. First is DSN,
> second is Member name, third is a string of text. The string of text is the
> concatenation of lines delimited by a ";". (ex. "line1;line2;line3").
>
> This code fails:
>
> Write_Member:
> MyDSN = ARG(1)
> MyMember = ARG(2)
> MyArg = ARG(3)
> outstem.=0
> dsnname = MyDSN || '(' || MyMember || ')'
> Say 'The dsname is: {'dsnname'}'
> do forever
> parse var MyArg thisword ';' MyArg
> if thisword='' then leave
> thisword = Left(thisword,80)
> parse value outstem.0+1 thisword with t outstem.t =1 outstem.0 .
> end
> Say 'Number of lines written: 'outstem.0
> "ALLOC DA('"dsnname"') F(Pdsout) OLD REUSE"
> "EXECIO * DISKW Pdsout (STEM outstem. FINIS"
> "FREE F(Pdsout)"
> Return
>
> Failure:
>
> The dsname is: :HLQ.TEST(MEM3):
> Number of lines written: 3
>
> ACC20210-A ADDVOL FOR DD=PDSOUT DSN=HLQ.TEST VOL=S92248 POOL=TSOPOOL EXT=16
> ACC20628-A DATA SET IS PARTITIONED
>
> System abend code E37, reason code 00000004.
>
> Abend in host command EXECIO or address environment routine TSO.
>
> EXECIO error while trying to GET or PUT a record.
>
>
> This code works:
>
> Write_Member:
> MyDSN = ARG(1)
> MyMember = ARG(2)
> MyArg = ARG(3)
> outstem.=0
> dsnname = MyDSN || '(' || MyMember || ')'
> Say 'The dsname is: {'dsnname'}'
> "ALLOC FI(PDS) DA('"dsnname"') OLD reuse"
> do forever
> parse var MyArg thisword ';' MyArg
> if thisword='' then leave
> thisword = Left(thisword,80)
> parse value outstem.0+1 thisword with t outstem.t =1 outstem.0 .
> PUSH thisword
> "EXECIO 1 DISKW PDS "
> end
> "EXECIO 0 DISKW PDS (FINIS"
> Say 'Number of lines written: 'outstem.0
> "FREE FI(PDS)"
> Return
>
> The objective is to pass a stem for the third argument.
>
> Any suggestions on how to use the Execio with the stem value?
>
> Show me the error of my ways.
>
> George
>
>
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Joel C. Ewing, Bentonville, AR [email protected]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
