ISPF END or EXIT in Rexx

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

My goal is to have a ISPF Command that does some things, and at the end it closes the screen via end or exit.

So I wrote a REXX that does some things and then my thinking was I would state
ADDRESS ISPEXEC
'EXIT'

but this does not work, it says 'EXIT' is not a recognized dialog service name.

Do you have help for me on this?

Willy Jensen · Posted: Wed Jun 29, 2022 9:47 pm

Because it isn't.
Assuming that you just want to leave the REXX pgm then the command is EXIT - without quotes. Once you put the command in quotes, it is expected to be a ISPF dialog service in this case.
You really should do EXIT 0, or a proper return code.

Pedro · Posted: Thu Jun 30, 2022 2:55 am

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

I think there is missunderstanding, the aim is to leave the Screen. Like an End or Exit does when you push F3 on a primary option panel. So this should be ISPF services and not REXX command.

What I want to do is, I want to evaluate if there are still several screens open in my ISPF session, and if this is the case I want lo do an End on this, if it is the last screen I want to ignore this.

My thinking is to replace End on F3 with a custumized command that never closes the last screen. I want to leave this only via =x or =XALL.

Pedro · Posted: Thu Jun 30, 2022 4:06 am

I am retired and cannot test anything anymore...

I suspect that you can use a customized ISR@PRIM panel. In the )PROC section, check if ZCMD (or maybe ZVERB?) is EXIT. Also check if ZSPLIT = YES. If ZSPLIT = YES (meaning there is at least two split screens), allow the EXIT. If not in split screen mode, then change ZCMD to be &Z. It think you can not ever leave the last screen, but maybe this takes you a step closer to your goal.

Note: I think using '=X' results in ZCMD = EXIT, so you may need to tweak the processing.

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

Yes this wpuld be the easyest, but I cannot change the PRIM panel, as we are in an outsourcing situation.

This is why I want to invent a different command and put it on F3. The check of ZSPLIT is in fact what I did, but I do not manage that the REXX fires the exit in case of ZSPLIT = YES

Pedro · Posted: Fri Jul 01, 2022 4:30 am

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

Thank you, that is a nice idea, and I will try this.

Pedro · Posted: Fri Jul 01, 2022 11:35 pm

re: "ISRPLIB concatenation."

Of course, I meant ISPPLIB concatenation.

You have to watch out for the production ISR@PRIM panel changing occasionally and then you have to integrate those changes to your private version of that panel.

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

Yes both was obvious, but thank you anyway.

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

I tried do 'improve' the panel, but on primary option panel Exit (and End as well) seems to be passed right away to the command processor.

I added:
IF (&ZSPLIT = NO)
IF (&ZCMD = EXIT) &ZCMD = &Z
without any impact, the exit still kicked me out of ISPF.

If i try with Command EXI it works fine:
IF (&ZSPLIT = NO)
IF (&ZCMD = EXI) &ZCMD = &Z

Pedro · Posted: Fri Jul 08, 2022 7:00 am

My suggestion is to run a panel trace and see if the )PROC section is being executed.

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

Thank you, that lead me to the right way, as EXIT or END is only on 'key=' it does not appear in ZCMD I had do do it differently.

The key response is in .RESP.

So I added the following lines:
IF(.RESP=END)
IF (&ZSPLIT = NO)
.RESP=ENTER

And now I have the behavior I wanted to have, Great!

wetzer123 · New User Joined: 22 Dec 2015 Posts: 9 Location: Germany

As this was now solved not via the way I first thought about, maybe someone should move this to ISPF rather than REXX.