View previous topic :: View next topic
|
Author |
Message |
stiffler
New User
Joined: 17 Dec 2008 Posts: 5 Location: India
|
|
|
|
Hi
I have a rexx routine which invokes ISPSTRT by using SELECT service for starting new screens based on PARM options("SELECT PGM(ISPSTRT) PARM(3.4)"). I am trying to invoke this routine with our existing LOGON procedure itself. Hence I will get all the defined screens while login into Mainframe. But I got S0C4 abend. I verified that the REXX routine is in ISPEXEC environment(means Primary option menu,ZSCREEN = 1) at the time of execution. Same routine works fine when executing alone in TSO/ISPF. Do I need to allocate any datasets for this? Please help me to resolve this. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
It is not clear how you execute your rexx program. Show us your code. |
|
Back to top |
|
|
stiffler
New User
Joined: 17 Dec 2008 Posts: 5 Location: India
|
|
|
|
We have a dataset lets say XXXX.REXX where we define all our rexx programs to invoke when login into Mainframe.
Lets say our Rexx program ABCD. I will place the following code "SELECT CMD(%ABCD)" in XXXX.REXX dataset, so our logon procedure will take this dataset and execute mentioned rexx programs.
In my case my rexx routine has "SELECT PGM(ISPSTRT)" statement. I have tried another routine with DSLIST program in above way, it works fine. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Quote: |
Same routine works fine when executing alone in TSO/ISPF |
and
Quote: |
I have tried another routine with DSLIST program in above way, it works fine. |
In your first post, did you really mean that you tried "a totally different routine works fine when executing alone in TSO/ISPF"?
Read the description of the ISPSTRT program in the ISPF Dialog Developers Guide and Reference. The PARM() can be certain things, but probably not '3.4'. |
|
Back to top |
|
|
stiffler
New User
Joined: 17 Dec 2008 Posts: 5 Location: India
|
|
|
|
What I really meant is SELECT service with DSLIST program ISRDSLST works fine. In my second post I just have given extra information.
I am sure that we can have 3.4 in parm option. Generally parm option can have available screen options in your ISPF like SDSF for SPOOL
One more additional info "SELECT PGM(ISPSTSRT)" is equavlent to START commmand in ISPF. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Quote: |
I am sure that we can have 3.4 in parm option. Generally parm option can have available screen options in your ISPF like SDSF for SPOOL |
Sorry, but 3.4, syntactically (sp?), does not look anything like SDSF or SPOOL.
Report back after you have actually read the manual. |
|
Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008 Posts: 400 Location: Mumbai
|
|
|
|
I tried this by changing ISR@PRIM to invoke a command on the 1st display only that does ISPSTRT for SDSF, 3.4 and DDLIST and other command table entries and panel options and it works fine, but it is rather confusing to use, especially if you have the "Always show split line" unchecked in the SETTINGS screen. I'd suggest making this an optional command such as a command table entry rather than having all your users get multiple screens by default. I also had to disable the logo display to make it work on entry to ISPF. |
|
Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008 Posts: 400 Location: Mumbai
|
|
|
|
Also, you can't just check zscreen=1 because you will relaunch all the screens with the sequence END;SPLIT on screen number 1. You need to insure that it is the first display of the entire session. Something like this:
Code: |
)INIT
...
VGET (xxFRSTxx) SHARED
IF (&XXFRSTXX EQ &Z AND &ZSPLIT = 'NO' AND &ZCMD = &Z)
&xxFRSTxx = 1
VPUT (xxFRSTxx) SHARED
.RESP = ENTER
IF (&ZSPLIT = 'YES')
&xxFRSTxx = 2
VPUT (xxFRSTxx) SHARED |
Code: |
)PROC
if (&xxFRSTxx EQ 1)
&ZCMD=xxINITxx
&xxFRSTxx = 2
VPUT (xxFRSTxx) SHARED
...
&ZSEL = TRANS (TRUNC (&ZCMD,'.')
...
xxINITxx,'CMD(%your command that starts the screens)'
...
|
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Quote: |
nvoke a command on the 1st display only that does ISPSTRT for SDSF, 3.4 and DDLIST and other command table entries and panel options and it works fine |
Can you show us the command syntax for ISPSTRT that will use '3.4' as a parameter? I do not believe it is possible. |
|
Back to top |
|
|
|