START a command to VIEW 'ds' in new screen, & close after

[Steve Coalbran]

I want to START a command/program to VIEW a dataset in a new screen and return closing the new screen on EXIT, without seeing the POM.
So, I guessed it would be something like...
"SELECT PGM(ISPSTRT) PARM("MYVIEW") "
where rexx exec MYVIEW would be (something like but that works!)
ADDRESS ISPEXEC "VIEW DATASET("ds") SCRNAME(MYVIEW) "
QUEUE "RETURN"
EXIT
The dataset in VIEW should hence display MYVIEW in the SWAPBAR.
RETURNing from the dataset VIEW should remove the scrname of MYVIEW from the SWAPBAR.

Perhaps there is a parameter on ISPSTRT that support this?
I have been searching but found nothing.

[Pedro]

I was able to get this to work for me:

Issue TSO %MYSTRT from any ISPF primary command line.
1. mystrt:

Code: Select all

/* rexx */                                               
Address ISPEXEC "SELECT PGM(ISPSTRT) PARM(CMD(%view3A)) "

2. view3a:

Code: Select all

/* rexx */                                           
Address ISPEXEC "SELECT CMD(%view3) SCRNAME(MYVIEW)" 

3. view3:

Code: Select all

/* rexx */                                 
Address ISPEXEC "VIEW DATASET(temp.cntl)"   

It opens a new split screen that shows my data set in panel ISREDDE2, with the screen name being 'MYVIEW'.

I needed three parts to do it. If you add the SCRNAME parameter in the SELECT statement of the first part, the screen name will be on the wrong side of the split screen. It is a parameter to the SELECT statement, not to the ISPSTRT program.

When I pressed F3, I did -not- see the primary option menu. In your example, you put 'RETURN' into the TSO stack. It will likely not get executed until you exit ISPF. ISPF does not pull from the TSO stack.

[prino]

The following will work:

Code: Select all

/* REXX */
parse arg dsn

parse source . . moi .

if left(dsn, 1) = x2c(00) then
  do
    dsn = substr(dsn, 2)
    "ispexec select cmd(isrepdf" dsn "view)"

    zcmd = ";return"
    "ispexec control nondispl end"
    "ispexec display panel(isr@prim)"
  end
else
  "ispexec select pgm(ispstrt) parm(tso" moi x2c(00)dsn")"
exit

Enjoy

[prino]

Oops, missed the SCRNAME(...) on the cmd(isrepdf... )...

[Pedro]

I am not sure I understand this part:

Code: Select all

zcmd = ";return"
    "ispexec control nondispl end"
    "ispexec display panel(isr@prim)"

Because ISR@PRIM has &ZPRIM=YES, I think the RETURN command will only apply to it, making the combination of DISPLAY with RETURN a NOP. Or is this a nuance of using DISPLAY vs. SELECT?

As I said earlier, I do not see the primary option menu when I end the VIEW session. Do you see a primary option menu?

[Steve Coalbran]

Re: The following will work: Post by prino » Mon Jun 16, 2014 11:55 pm

The following will work:
Hi Robert,
I tried a modification of your code (which incidentally works fine before my alterations!).
I tried to pass an Browse/Edit/View option in. Works fine for Browse & View but doesn't like Edit. ISREPDF has no Edit option and it does not appear to be thee default.

Code: Select all

/* REXX */ TRACE "I"                                           
PARSE ARG dsn bev                                               
SELECT                                                         
WHEN( ABBREV("BROWSE",bev,1) )THEN bev="BROWSE"                 
WHEN( ABBREV("EDIT",bev,1)   )THEN bev="EDIT"                   
OTHERWISE                          bev="VIEW"                   
END/*SELECT*/                                                   
PARSE SOURCE . . moi .                                         
IF LEFT(dsn, 1) = X2C(00) THEN DO                               
   dsn = SUBSTR(dsn, 2)                                         
   "ISPEXEC SELECT CMD(ISREPDF" dsn bev")"                     
   zcmd = ";RETURN"                                             
   "ISPEXEC CONTROL NONDISPL END"                               
   "ISPEXEC DISPLAY PANEL(ISR@PRIM)"                           
   END                                                         
ELSE                                                           
   "ISPEXEC SELECT PGM(ISPSTRT) PARM(TSO" moi X2C(00)dsn bev")"
EXIT

With the Edit option I get...

Code: Select all

ISREPDF parameter error
                       
The syntax is         
ISREPDF dataset-name < options>                     
        <Browse            >                       
        <Recover           >                       
        <Macro   macro-name>                       
        <Profile profile   >                       
        <PAnel   panel-name>                       
        <Format  form      >                       
        <MIxed   Yes|No    >                       
        <View              >                       
        <PREserve          >                       
        <Confirm Yes|No    >                       
                                                   
(Type ISREPDF ? for more details)                   
                                                   
The following parameters are not recognized: "EDIT"
***

But I think I got around this by devious means, It does work BUT I'm afraid I'm missing something simpler...

Code: Select all

/* REXX */ TRACE "O"                                           
PARSE ARG dsn bev                                             
dnm = TRANSLATE(dsn,"  ","()")                                 
typ = WORD(SUBSTR(dnm,LASTPOS(".",dnm)+1),1)                   
SELECT                                                         
WHEN( ABBREV("BROWSE",bev,1) )THEN bev="BROWSE"               
WHEN( ABBREV("EDIT",bev,1)   )THEN bev="PROTYP"               
WHEN( bev="PROTYP"           )THEN bev="PROFILE" typ           
OTHERWISE                          bev="VIEW"                 
END/*SELECT*/                                                 
PARSE SOURCE . . moi .                                         
IF LEFT(dsn, 1) = X2C(00) THEN DO                             
   dsn = SUBSTR(dsn, 2)                                       
   "ISPEXEC SELECT CMD(ISREPDF" dsn bev")"                     
   zcmd = ";RETURN"                                           
   "ISPEXEC CONTROL NONDISPL END"                             
   "ISPEXEC DISPLAY PANEL(ISR@PRIM)"                           
   END                                                         
ELSE                                                           
   "ISPEXEC SELECT PGM(ISPSTRT) PARM(TSO" moi X2C(00)dsn bev")"
EXIT     

Is there a better/simpler way than this - Any ideas?

[Steve Coalbran]

Moving swiftly on I realize I'd forgotten the original SCRNAME bit!

Code: Select all

/* REXX */ TRACE "C"                                 
ARG parms                                           
PARSE VALUE parms",,,," WITH dsn","scr","bev"," .   
ADDRESS ISPEXEC                                     
dnm = TRANSLATE(dsn,"  ","()")                       
typ = WORD(SUBSTR(dnm,LASTPOS(".",dnm)+1),1)         
IF( scr="" )THEN DO                                 
   SELECT                                           
   WHEN( ABBREV("BROWSE",bev,1) ,                   
       | ABBREV("EDIT",bev,1) )THEN scr=bev         
   WHEN( bev="PROTYP"         )THEN scr="EDIT"       
   OTHERWISE                        scr="VIEW"       
   END/*SELECT*/                                     
   END                                               
ELSE NOP                                             
SELECT                                               
WHEN( ABBREV("BROWSE",bev,1) )THEN bev="BROWSE"     
WHEN( ABBREV("EDIT",bev,1)   )THEN bev="PROTYP"     
WHEN( bev="PROTYP"           )THEN bev="PROFILE" typ
OTHERWISE                          bev="VIEW"       
END/*SELECT*/                                       
PARSE SOURCE . . moi .                               
IF LEFT(dsn, 1) = X2C(00) THEN DO                   
   dsn = SUBSTR(dsn, 2)                             
   "SELECT CMD(ISREPDF" dsn bev") "                 
   zcmd = ";RETURN "                                 
   "CONTROL NONDISPL END "                           
   "DISPLAY PANEL(ISR@PRIM) "                       
   END                                               
ELSE                                                 
   "SELECT PGM(ISPSTRT)",                           
           "PARM(TSO" moi X2C(00)dsn','scr','bev")",
           "SCRNAME("scr") "                         
EXIT 

Saving to a new exec USER.EXEC(BEVSN) and executing as: Command ===> TSO BEVSN USER.EXEC(#),BANANA,E
I get into EDIT on the required member but the SCRNAME is on the wrong screen!

SWAPBAR Before:
*EDIT
SWAPBAR After:
-BANANA *ISREDDE

(again) Ideas?

[prino]

You've got the SCRNAME() on the wrong invocation. It should be on the

Code: Select all

"SELECT CMD(ISREPDF" dsn bev") "

[Pedro]

Is there a better/simpler way than this

I thought my examples posted here on Mon Jun 16, 2014 11:33 am were pretty simple.