IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

vaildate dataset to check if it is catloged with in ISPF pan


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
prahalad

New User


Joined: 14 Sep 2010
Posts: 18
Location: Pune

PostPosted: Tue Mar 29, 2011 2:31 pm
Reply with quote

I want to vaildate dataset to check if it is catloged with in ISPF panels (Not inside Rexx). for this I used the following code:
The code is working fine But I am not getting the error message "DS NOT FOUND" on the screen.

Code:

)PROC
VER(&FILE1,NB,DSNAME)   
IF (VER(&FILE1,NB,DSNAME))                                     
 *REXX(FILE1)                                           
   IF SYSDSN("'"STRIP(FILE1)"'") <> 'OK' THEN DO
      FILE1 = ''
      ZEDSMSG = " DS NOT FOUND"
   END
   RETURN                                                 
 *ENDREXX                                                 
IF (&FILE1 = '')                                       
  .MSG=ISRZ000
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Tue Mar 29, 2011 2:49 pm
Reply with quote

To be pedantic - you are within Rexx. You are using an exit written in Rexx. I have never done this but I guess normal rexx syntax applies but I would need to check a manual that I do not currently have and cannot get until some later date.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Mar 29, 2011 2:58 pm
Reply with quote

did You care to read the manual! paying attention to
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ispzdg70/7.2.7.2?SHELF=ISPZPM70.bks&DT=20080715202837&CASE=
Back to top
View user's profile Send private message
prahalad

New User


Joined: 14 Sep 2010
Posts: 18
Location: Pune

PostPosted: Tue Mar 29, 2011 7:36 pm
Reply with quote

Thank you... It helps me...
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Looking for a little history of ISPF ... TSO/ISPF 5
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
Search our Forums:

Back to Top