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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: vaildate dataset to check if it is catloged with in ISPF pan
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: 1825
Location: UK

PostPosted: Tue Mar 29, 2011 2:49 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Tue Mar 29, 2011 2:58 pm    Post subject: Reply to: vaildate dataset to check if it is catloged with i
Reply with quote

did You care to read the manual! paying attention to
http://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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Browse dataset cvnlynn CLIST & REXX 4 Tue Jul 18, 2017 3:52 am
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts LISTCAT on a dataset with symbolic pa... shreya19 JCL & VSAM 5 Fri Apr 07, 2017 5:43 pm


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