Let's see if I have this right. You EXECIO DISKR a PDS member into stem INPUT.
You then attempt to write it out using EXECIO DISKW * from stem INPUT. The write fails unless the member has ISPF statistics. However, EXECIO DISKW INPUT.0 succeeds. Do I have that right? If so, no, that sounds wrong to me. What is the exact error? Any messages in the message log? Have you checked - did the read really work? Do the member's records appear to be in INPUT.1, INPUT.2, etc.? - what is in INPUT.0? Is it the correct line count? Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Ze'ev Atlas Sent: Wednesday, December 30, 2015 2:26 PM To: [email protected] Subject: Rexx and member statistics question Hi AllI have a Rexx program and here is the relevant snippet: THEMEMBER = THEPDS || "(" || MEMBER || ")" /*say themember */ "alloc shr file(input) dataset(" THEMEMBER ")" "execio * diskr input (stem input. finis)" IF RC \= 0 THEN call DIE 'READ MEMBER failed' RC say member input.0 "LINES READ" "free file(input)" "EXECIO" input.0 "DISKW XXOUT (STEM INPUT." IF RC \= 0 THEN call DIE 'WRITE MEMBER failed' RC Originally, I had "EXECIO * DISKW XXOUT (STEM INPUT." but that would work only for members that had statistics (i.e. have been updated). When I changed the '*' to input.0 it works fine. Is that a normal behavior? (I ran on z/OS 2.2! Ze'ev Atlas ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
