IBM Mainframe Forum

by **nikesh_rai** » Tue Feb 26, 2013 9:00 pm

Hi,

My rexx code is generating a ispf panel at the starting point of the process, from where I will provide input to the rexx. Now when the processing of input will start the rexx is using the 1st instance of the panel. Now what I did in the rexx code, whenever the process will be over, it should display a massage on the same panel.

However, how my code is working now, once the process completed it is doing nothing. and when I pressed the ENTER key the panel is being closed itself. Even if I will display the massage on the 2nd instance of the panel, I have to display the panel as well from the rexx for the 2nd time, which I don't want

I just want to display the massage at the completion of the process on the same 1st instance of the screen with single "ENTER" key pressed.. Is it possible.. or I have to go with 2nd instance of the screen.. Please suggest..

The Algo. will be

Dispaly ispf panel ( 1st instance)
accpet Input from the panel
start rexx code to process
end of rexx processing
display massage on the 1st instance of the panel

Thanks
Nikesh

by **c62ap90** » Tue Feb 26, 2013 10:07 pm

I had the same issue as you in my Clist until I added ADDPOP and REMPOP.
I do not know enough REXX to know if it could work for you.
Partial Clist code...

Select all

PROC 0
etc...
/*------- PANEL SETUP --------------------------*/
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC LIBDEF ISPPLIB DATASET ID('xxx.xxx.PANEL')
/* */
etc...
/* */
/*---------- DISPLAY PANEL ----------*/
DISPLY1:-
ISPEXEC ADDPOP
SET &MAXCC = 0
ISPEXEC DISPLAY PANEL(xxxxxxxx)
IF &MAXCC > 0 THEN GOTO FINISH
ISPEXEC REMPOP ALL
/* */
etc...
/* */
SET &MSG1 = &STR( )
IF &FOUND NE YES THEN DO
SET &MSG1 = &STR(MEMBER NOT FOUND IN SELECTED PDS DATASETS)
END
/* */
GOTO DISPLY1
/* */
FINISH:-
ISPEXEC ADDPOP
ISPEXEC REMPOP ALL
EXIT

by **Pedro** » Tue Feb 26, 2013 11:31 pm

display the massage at the completion of the process

1. please learn the difference between message and massage.
2. you should issue the SETMSG service before the last panel is displayed.

on the 1st instance of the panel

It is not clear what you are doing with the panels. and it is not clear what you mean by 'instance of'. Please elaborate.

How do you display the panel? Perhaps you want to use the SELECT service to display a menu panel rather than using the DISPLAY service.

IBM Mainframe Forum

Use of same instance of a panel

Use of same instance of a panel

Re: Use of same instance of a panel

Re: Use of same instance of a panel