John,
The panel is to pass information that the installation or user would enter
into the )INIT section and that the code would automatically obtain.
The panel name leads one to believe that it could be system information but
if that was the case, I'd just pick it out of the appropriate control block.
Information like your name, department name, address etc. that is not
available in system control blocks.
Even if it was system information that was placed obtained via *Rexx or
manual editing, the problem is that when this panel is displayed the command
stack gets messed up.
Dan
-----Original Message-----
From: John P Kalinich
Sent: Monday, June 20, 2011 7:17 AM Newsgroups: bit.listserv.ibm-main
Subject: Re: Maintaining ISPF's command stack
Dan,
Have you considered using *Rexx/*EndRexx code in the )INIT section of the
first displayable panel to fetch the Sysvars?
Regards,
John K
From: DanD <[email protected]>
To: [email protected]
Date: 06/18/2011 10:16 AM
Subject: Re: Maintaining ISPF's command stack
Thanks for trying John and Elardus.
As I said, originally "DLGNAME;4" worked.
Now with...
ISPLINK CONTROL,NONDISPL,ENTER,NOSETMSG
ISPLINK DISPLAY,SYSVARS
the only way I can get it to work is to add extra stack characters...
"DLGNAME;;;4"
I also tried "ISPLINK DISPLAY,SYSVARS,,,,ENDCMD" where ENDCMD is a variable
containing "END".
When I tried this, no number of stack characters would get me to option 4.
It appears that when the COMMAND option on the DISPLAY request is specified
the command stack is cleared and replaced with the the caller's variable
(ie. END).
If there was a Z variable that contained the command stack, I could prefix
that with "END". Hmm..maybe there is such a variable.
Dan
-----Original Message-----
From: Elardus Engelbrecht
John P Kalinich wrote:
For some reason, ISPF needs an ENTER key simulated. I got this to work by
including a trailing delimiter.
START PANEL(ISRUTIL);2;
Or you can perhaps try out this to avoid using a delimiter:
)INIT
.RESP = ENTER
Try either suggestions to see which is working. The fact the panel is never
seen may be contributing to your dilemma.
HTH!
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
