How to display a panel using REXX

amolgijare · Posted: Tue Jun 07, 2005 5:33 pm

hi guys,

i have just started with l'le bit of panel programming.
i have tried to write one panel and display it using rexx, but i ma not able to do it successfully. Please help me out with this....

my panel is as follows.

)panel
/* panel 1 created */
)body window(50,5)
+ PANEL1 +
+ This is the test panel
+
+ good bye ...
)end

My rexx to display panel is as follows.

/* rexx to display panel1 */
"ispexec libdef ispplib library id(VENJ91.IPVENJ91.PANELS)"
/*show*/
"ispexec addpop"
"ispexec display panel(panel1)"

please suggest.

Thanks in advance.

superk · Posted: Wed Jun 08, 2005 4:38 am

Did the panel display OK in an ISPF Dialog Test (option 7)? I'd validate that the panel syntax is OK before going much further. Off-hand, your REXX code looks OK.

amolgijare · Posted: Wed Jun 08, 2005 1:01 pm

i tried using option 7. But i am not able to use it properly i guess.
in option 7 i selected 'display panel' (option2).. but i am not able to give my PDS name where my panel is coded.

so it shows me following
----------------------

ISPP100

Panel 'PANEL1' error
Panel not found.

Enter HELP command for further information regarding this error.
Press ENTER key to terminate the dialog.

-------

can you let me know steps to display panel using option 7 in ISPF.

Thanks.

superk · Posted: Wed Jun 08, 2005 3:40 pm

I am away from the office this week, but there should also be an option to execute a command. Here you should execute the LIBDEF command for your ISPPLIB library allocation.

MGIndaco · Posted: Wed Jun 08, 2005 6:56 pm

I think that you can try omitting the command:

amolgijare · Posted: Wed Jun 08, 2005 9:07 pm

Hi MGIndaco

I tried your suggession. Now my panel code is as follows

) attr
( type(text) intens(low) skip(on)
) body window(20,12)
+ PANEL1 +
+ This is the test panel
+
+ good bye ...
)end

Its giving error for ) attr default

and my rexx code is as follows

/* rexx to display panel1 */
"ispexec libdef ispplib dataset id('VENJ91.IPVENJ91.PANELS')"
/*show*/
"ispexec addpop"
"ispexec display panel(panel1)"

I think i am getting the popup window, but rather than showing me the panel its showing me the panel code. I guess i am close but not getting the exact output.

Please suggest.

MGIndaco · Posted: Wed Jun 08, 2005 9:56 pm

Hem... the attribute of panel is not as I said...
If I have correctly understand your panel definition must be:

MGIndaco · Posted: Wed Jun 08, 2005 9:59 pm

Ops... Panel(INTRO) in your case is the name of the panel where you have stored de source of your panel.
To be sure of the panel that you are calling, use PANELID to have at the left top the name of the current panel. To exit digit PANELID again.

superk · Posted: Mon Jun 13, 2005 7:59 pm

Amol, I've been able to review your panel definition. It should be working. Here is what I tested with:

prasadpatil · New User Joined: 30 Jun 2005 Posts: 2

I was also trying some panel program, with code as follows:

Panel:

MGIndaco · Posted: Thu Jun 30, 2005 4:30 pm

Probably you have copy past the panel from this forum and at the end of each row you have numeration. You must Renum and Unnum from command line your member before retry.
I hope in this help.

prasadpatil · New User Joined: 30 Jun 2005 Posts: 2

Thank you very much !!
It worked. Actually I am a bit new to mainframes, thats why I did not notice that.

Thanks and regards,
Prasad

MGIndaco · Posted: Fri Jul 01, 2005 2:55 pm

I read the tutorial and I make some test and after so, I can assure you that to execute in Dialog Test a panel or a table you must put your panel or table in the correct library that is one of those that are specified in ISPPLIB that you can see using TSO ISRDDN.

Cartraga · New User Joined: 13 May 2005 Posts: 4

* Panel 'PANEL1' error *
* Field or area name missing following identifying attribute character * .
* Panel line where error was detected: * .
* + % enter your name please => _ urname + * .

This was the error message i got while executing.
I tried unnum ooption as well.

CRT

Cartraga · New User Joined: 13 May 2005 Posts: 4

Sorry for the late response...

This is the code which calls the panel

/*rexx*/
"ispexec libdef ispplib dataset id('MSA5573.Z.REXX')"
/*show*/
"ispexec addpop"
"ispexec display panel(panel1)"
if rc\=0 then do
say 'command cancelled'
exit
end
else
say 'your name is' urname
exit