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
 

 

Regarding VER() command in panels

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
harry143

New User


Joined: 05 Nov 2007
Posts: 21
Location: hyd

PostPosted: Wed Jul 30, 2008 4:42 pm    Post subject: Regarding VER() command in panels
Reply with quote

Hi,

I have to verify whether the dataset entered in a panel is valid one or not. I have used the below command in the processing section of panel but it didnt work out.

)PROC
VER (&OLDDS,NB,DSNAME)

When any dataset is entered, how to find out whether the dataset is catalogued or not. Such that I can display an error message in the panel itself at the time of entry.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10292
Location: italy

PostPosted: Wed Jul 30, 2008 4:48 pm    Post subject: Reply to: Regarding VER() command in rexx panels
Reply with quote

there is not such a thing as a rexx panel
panels are build using ISPF defined syntax ==> ISPF panels
and panels are managed using programs ( pl/i, assembler, obol, ...)
or interpreted languages like REXX or CLSTs

the verifications being done thru ISPF tokens are just formal ones,

VER(&FIELD,NB,DSNAME)

simply means...
verify that the field is non blank
verify that the syntax is that one of a DSN,
for the DSN
length LE 44
for the qualifiers
length LE 8
starts with a letter
does not contain invalid chars

all the processing must then be done by the invoking application
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Jul 30, 2008 5:14 pm    Post subject:
Reply with quote

Or the newer *REXX statement that you can include in your panel starting from z/OS 1.7.

O.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1235
Location: Israel

PostPosted: Wed Jul 30, 2008 5:18 pm    Post subject:
Reply with quote

You can use the VER statement to check that the name entered is a valid dataset name:
Code:
)PROC
VER (&var,NB,DSNAME)
There are a few flavors: DSNAME, DSNAMEF, DSNAMEFM, DSNAMEPQ, and DSNAMEQ. Check the documentation.

To check if the file exists,you can use embedded REXX:
Code:
)PROC
ver(&var,NB,DSNAME)                 
*REXX(*)                         
 if SYSDSN(data) <> 'OK' then do
        zrxmsg = ''
        zrxrc  = 8
        return
 end
*ENDREXX
)END
in var zrxmsg place your own message number
Back to top
View user's profile Send private message
sudhakar84

New User


Joined: 20 Jun 2008
Posts: 21
Location: chennai

PostPosted: Wed Jul 30, 2008 5:18 pm    Post subject: Reply to: Regarding VER() command in panels
Reply with quote

In Panel the command VER() is used to pass the values to the called program. With that u have to check the dataset in the program using the command SYSDSN(WORKFILE_NAME).
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1235
Location: Israel

PostPosted: Wed Jul 30, 2008 5:22 pm    Post subject:
Reply with quote

oops, should have been "SYSDSN(var)", not "SYSDSN(data)", of course
[/code]
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Jul 30, 2008 5:26 pm    Post subject:
Reply with quote

Quote:
In Panel the command VER() is used to pass the values to the called program

This is not true.

O.
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 Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm
No new posts Getting Mutiple input from Panels vidyaa CLIST & REXX 12 Mon Aug 14, 2017 1:28 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm


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