Designing a panel in which input file should given by user

lokeshwar_manoharan · Posted: Tue Nov 18, 2008 10:15 pm

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

superk · Posted: Tue Nov 18, 2008 10:43 pm

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

lokeshwar_manoharan · Posted: Tue Nov 18, 2008 11:08 pm

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

Pedro · Posted: Wed Nov 19, 2008 3:47 am

Not sure, but look here:
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

MBabu · Posted: Wed Nov 19, 2008 9:32 am

Searchng Google "*REXX" "panel exit" sysdsn shows what looks like a complete example