Use of same instance of a panel



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

Use of same instance of a panel

Postby 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
Thanks
Nikesh Rai
nikesh_rai
 
Posts: 192
Joined: Tue Oct 18, 2011 1:27 am
Has thanked: 17 times
Been thanked: 0 time

Re: Use of same instance of a panel

 

Re: Use of same instance of a panel

Postby 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...
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
c62ap90
 
Posts: 125
Joined: Thu Oct 11, 2012 10:24 pm
Has thanked: 1 time
Been thanked: 6 times

Re: Use of same instance of a panel

Postby 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.
Pedro Vera
User avatar
Pedro
 
Posts: 569
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 39 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post