Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Supress warning of non existing data sets inside a PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
sunny_io

New User


Joined: 11 Jul 2007
Posts: 68
Location: noida

PostPosted: Fri Apr 30, 2010 3:07 am    Post subject: Supress warning of non existing data sets inside a PDS
Reply with quote

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
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Apr 30, 2010 3:27 am    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Apr 30, 2010 11:47 am    Post subject:
Reply with quote

I and many others have posted code to list the members of a PDS, so a search is all you need.
Back to top
View user's profile Send private message
valyk

Active User


Joined: 16 Apr 2008
Posts: 104
Location: South Carolina

PostPosted: Fri Apr 30, 2010 4:55 pm    Post subject:
Reply with quote

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
View user's profile Send private message
sunny_io

New User


Joined: 11 Jul 2007
Posts: 68
Location: noida

PostPosted: Fri Apr 30, 2010 9:31 pm    Post subject: Yep, its done.. here it is
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts SORT JSON type of data maxsubrat DFSORT/ICETOOL 8 Wed Apr 19, 2017 6:01 pm
No new posts Data replication from multiple Db2 ta... kishpra DB2 9 Mon Mar 27, 2017 9:58 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us