Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

how to remove the window title

Status
Not open for further replies.

Guest_imported

New member
Jan 1, 1970
0
hi
i have a rexx panel defined to run under ISPF editor.
What i intend to do is that i want to define an option that will take me to the panel directly ..e.g as =1 takes me to browse entry panel.
my second query is that i want to remove the window that appears as i run my panel ..i tried using WINDOW=NO but it gives me a panel error ...
Also how to display an underscore on the panel ???
 
all keywords in panels have to have a leading dot

.WINDOW=??

but your problem looks like you have an addpop in your rexx and there is no rempop to go bach to full screen. if you need more, show me your code.

regards
Heinz
 
hey heinz...
here is my code
ADDRESS 'ISPEXEC'
PARSE SOURCE SYSTEM . CMDNAME .
$PANLIB$ = '$'||USERID()||'$'
ADDRESS TSO "FREE F("$PANLIB$") "
ADDRESS TSO "ALLOC F("$PANLIB$") DA('TSO.PIES.UTILITY') SHR"
ADDRESS TSO "CLEAR"
IF SYSTEM = 'TSO' THEN
DO
'VGET ZENVIR'
IF SUBSTR(ZENVIR,6,1)>='4' THEN STACK='STACK' /* USE STACK IN V4 */
ELSE STACK = ''
'LIBDEF ISPPLIB LIBRARY ID('$PANLIB$')' STACK
'LIBDEF ISPMLIB LIBRARY ID('$PANLIB$')' STACK
END
ELSE /* DO CMS STYLE LIBDEF */
DO
'LIBDEF ISPPLIB FILE ID(ISRNULL '$PANLIB$' A)'
ADDRESS ISPEXEC "ADDPOP"
DO UNTIL RC > 0
ADDRESS ISPEXEC "DISPLAY PANEL(TEMPPAN)"
after this is the logic part...
i hope u can help me regarding this

 
Sorry for this long time to answer. If I understand correct, you call BROWSE in your loop (cannot see the code). You should change several things:

DO UNTIL RC > 0
would be nice to see the last statement inside your loop

"DISPLAY PANEL(TEMPPAN)"
this will appear as a window because you had an ADDPOP in front (out of your loop). but after is no REMPOP so all your panels will be presented as windows. A solution sould be:

address ispexec
DO UNTIL RC > 0
"ADDPOP"
"DISPLAY PANEL(TEMPPAN)"
DISP_RC = RC
"REMPOP"
IF DISP_RC ... /* if neccassary */
/* your code */
END

General hint: Send more of your code. Many times is difficult to see the problems without.

hope this helps
Heinz
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top