IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

REXX TSO Logon returns default panel


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Jo9675

New User


Joined: 16 Nov 2011
Posts: 2
Location: US

PostPosted: Wed Nov 23, 2011 9:48 pm
Reply with quote

Hi. We use REXX code to log on to TSO/ISPF (and I'm not familiar with REXX). I have 2 users who do not receive the panel they're supposed to - ISP@8102, but instead receive ISP@PRIM (my guess is this is the default; we haven't used it in years). To their knowledge, the users are not passing any panel names or other information that would keep them from getting ISP@8102. My question is, is there a PANEL flag or parm that could be cleared so they receive the ISP@8102 a log on?
One more bit of info that may be of help: after they X out of ISP@PRIM, the ISP@8102 panel does display.
The code I think is questionable appears below.
Thanks - jo.

ARG PANEL
if PANEL = '' then PNL = 'PANEL(ISP@8102)'
else PNL = 'PANEL('PANEL')'
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Wed Nov 23, 2011 10:01 pm
Reply with quote

Jo9675 wrote:
Hi. We use REXX code to log on to TSO/ISPF (and I'm not familiar with REXX). I have 2 users who do not receive the panel they're supposed to - ISP@8102, but instead receive ISP@PRIM (my guess is this is the default; we haven't used it in years). To their knowledge, the users are not passing any panel names or other information that would keep them from getting ISP@8102. My question is, is there a PANEL flag or parm that could be cleared so they receive the ISP@8102 a log on?
One more bit of info that may be of help: after they X out of ISP@PRIM, the ISP@8102 panel does display.
The code I think is questionable appears below.
Thanks - jo.

Code:
ARG PANEL                                   
if PANEL = '' then PNL = 'PANEL(ISP@8102)' 
else PNL = 'PANEL('PANEL')
'

Although it is not truly necessary in this case, it is best if you enclose coode, messages, etc. -- anything that needs to be reproduced in fixed fonts and with indentation preserved -- in Code tags, as I have in this quotation.

The ARG instruction indicates that this particular routine is called as a function or subroutine from another, perhaps external, routine, and that the PANEL argument is provided by it. What of that routine? Could you look at it and, if need be, post the relevant code (showing the source of that argument).
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Nov 23, 2011 10:02 pm
Reply with quote

It would appear that something is setting the value of the variable PANEL to other than blank somewhere along the line.

Can you run the logon exec using TRACE R or TRACE I to see exectly what is happening.
Back to top
View user's profile Send private message
Jo9675

New User


Joined: 16 Nov 2011
Posts: 2
Location: US

PostPosted: Wed Nov 23, 2011 10:03 pm
Reply with quote

I will check for that - thank you!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top