Suspect you have issue with PDS...although maybe directory is lla frozen,
"prior data"?
Below code works seq or pds(mem)
/* REXX */
"ALLOC SHR FILE(INPUT) DATASET('UKLANRX.JCL.CNTL(SYSGEN)')"
"EXECIO * DISKR INPUT (STEM INPUT. FINIS)"
"FREE FILE(INPUT)"
CNTR = 1
DO WHILE CNTR <= INPUT.0
SAY INPUT.CNTR
CNTR = CNTR + 1
END
EXIT
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Rob Schramm
Sent: Monday, September 23, 2013 10:32 AM
To: [email protected]
Subject: Rexx question
All,
I was doing some rexx work in batch on z/OS... attempting to use
"EXECIO * DISKR INPUTDD (Finis Stem in."
"FREE F(INPUTDD)"
Where the INPUTDD was
//INPUTDD DD DSN=SOME.PDS(MEMBER)
and the results were very strange (multiple lines concatenated, seemed to be
picking up a prior member in the PDS, corrupted data). I ended up copying the
PDS member to a sequential file and the problems went away.
I have never had a problem reading a PDS member as a sequential file..
until this occurred. Is there some caveat to reading a PDS member as a
sequential file? Is the exception documented?
I have been to the manuals, google, various articles on REXX, tutorials etc..
and not found anything to match (even loosely) what was happening.
Rob Schramm
Senior Systems Consultant
----------------------------------------------------------------------
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
