View previous topic :: View next topic
|
Author |
Message |
prahalad
New User
Joined: 14 Sep 2010 Posts: 18 Location: Pune
|
|
|
|
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 |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
Back to top |
|
|
prahalad
New User
Joined: 14 Sep 2010 Posts: 18 Location: Pune
|
|
|
|
Thank you... It helps me... |
|
Back to top |
|
|
|