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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
