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
 

 

Designing a panel in which input file should given by user

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

New User


Joined: 22 Sep 2008
Posts: 49
Location: Chennai,Tamilnadu

PostPosted: Tue Nov 18, 2008 10:15 pm    Post subject: Designing a panel in which input file should given by user
Reply with quote

Hi,

I am designing a panel in which input file should be given by user. I need to check
whether he has entered a valid DSN name and also it should be catloged
I can check whether it is a valid DSN name as

VER(&INPUT,NB,DSNAME)

But I also want to check it is catloged. If it is not, I should throw a message saying that 'The input file entered is not catloged'.

How can I achieve this?

Thanks,
Lokesh
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Nov 18, 2008 10:43 pm    Post subject: Reply to: Designing a panel in which input file should given
Reply with quote

I guess that I'd try a panel REXX routine:

)PROC
VER(&INPUT,NB,DSNAME)
*REXX(INPUT)
x = SYSDSN("'"input"'")
...
some logic here
...
EXIT 0
*ENDREXX
Back to top
View user's profile Send private message
lokeshwar_manoharan

New User


Joined: 22 Sep 2008
Posts: 49
Location: Chennai,Tamilnadu

PostPosted: Tue Nov 18, 2008 11:08 pm    Post subject:
Reply with quote

I tried this But its not working. MSG1 is not identified after REXX code

Code:

*REXX                             
IF SYSDSN(''INPUT'') <> 'OK' THEN 
MSG1 = 'INPUT NOT CATLOGED'       
*ENDREXX                           
IF (&MSG1 ¬= ' ')                 
.MSG = MSG1                       
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2025
Location: Silicon Valley

PostPosted: Wed Nov 19, 2008 3:47 am    Post subject: Reply to: Designing a panel in which input file should given
Reply with quote

Not sure, but look here:
http://publibz.boulder.ibm.com/epubs/pdf/ispzdg70.pdf
for the description of *REXX and how to pass variables. And look at the example program on page 268. Also, look at ZRXMSG
Back to top
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 401
Location: Mumbai

PostPosted: Wed Nov 19, 2008 9:32 am    Post subject: Reply to: Designing a panel in which input file should given
Reply with quote

Searchng Google "*REXX" "panel exit" sysdsn shows what looks like a complete example
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 0 Tue Jan 17, 2017 4:26 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am


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