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: 2038
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 Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am


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