View previous topic :: View next topic
|
Author |
Message |
sunny_io
New User
Joined: 11 Jul 2007 Posts: 68 Location: noida
|
|
|
|
Hi All.
I have a PDS with members such as DXXXXX .. X is numeric and can be anything randomly
I need to scan all of them for certain conditions..
I have written a REXX code which works well individually on a member when name is given as an input..
Code: |
/* rexx */
I = 00000
STATUS = MSG(OFF)
DO WHILE I < 99999
I = I + 1
CALL READ_MEMBER
END
EXIT
READ_MEMBER :
MEMBER = I
FILENAME = "'"||'PRD.MY.BOOK'||'(D'||MEMBER||')'||"'" |
But while i run it for various members that don't exist, I get this prompt on screen when the actual EXECIO command gets executed inside READ_MEMBER
System abend code 013, reason code 00000024.
Abend in host command EXECIO or address environment routine TSO.
EXECIO error while trying to GET or PUT a record.
Can some one please suggest how to suppress this or suggest a better approach.
Thank you |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Suggest you consider generating a list of the existing members and use this list to control this routine (rather than incrementing the member name) - then all members will be there. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
I and many others have posted code to list the members of a PDS, so a search is all you need. |
|
Back to top |
|
|
valyk
Active User
Joined: 16 Apr 2008 Posts: 104 Location: South Carolina
|
|
|
|
The error signifies that you are simply trying to read a member that does not exist. Do as Dick and expat describe and be sure to always check the dataset with SYSDSN to be sure the dataset exist. |
|
Back to top |
|
|
sunny_io
New User
Joined: 11 Jul 2007 Posts: 68 Location: noida
|
|
|
|
Hi All..
here is what i got and used..
000002 SAY 'PLEASE ENTER THE LIBRARY NAME TO SCAN
000003 PULL LIBRARY
000004 DSN = "'"||LIBRARY||"'"
000005 X = OUTTRAP(LISTMEM.,'*')
000006 "LISTDS " DSN " MEMBER "
000007 X = OUTTRAP ("OFF")
Thankzz |
|
Back to top |
|
|
|