Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

REXX TSO Logon returns default panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: REXX TSO Logon returns default panel
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: 1770
Location: Bloomington, IL

PostPosted: Wed Nov 23, 2011 10:01 pm    Post subject: Re: REXX TSO Logon returns default panel
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: 8593
Location: Back in jolly old England

PostPosted: Wed Nov 23, 2011 10:02 pm    Post subject:
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    Post subject: Reply to: REXX TSO Logon returns default panel
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us