To terminate REXX

lokeshwar_manoharan · Posted: Sun Oct 19, 2008 12:32 pm

I am designing a REXX tool which displays a panel with options.
and when 'Enter' is pressed, it will automatically creates a dataset with options given on panel and it will be open in edit mode.

The problem is when he tries to close the screen (By pressing 'X') control is returned back to REXX and the main panel is displayed again. Instead of this 'when he closes the screen REXX should terminate. How can we acheive this..?

Thanks,
Lokesh

enrico-sorichetti · Posted: Sun Oct 19, 2008 1:34 pm

ofer71 · Posted: Sun Oct 19, 2008 3:42 pm

You can save the return-code from the DISPLAY service, and test it. If RC=8 then you can end your REXX.

O.

Pedro · Posted: Sun Oct 19, 2008 10:17 pm

Some still follow the 1970's scheme where PF3=End means to back up to previous level.

But a new scheme from 1988 has PF3=Exit and PF12=Cancel, where Exit means stop all panels and get out of the entire application and Cancel means to back up to previous panel. This this scheme, exit means the same as RETURN did in old scheme. See publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/F29BDG00/CCONTENTS?SHELF=CEESL002&DN=SC26-4583-00&DT=19921204095534

lokeshwar_manoharan · Posted: Mon Oct 20, 2008 6:30 pm

It doesn't seem to work as RC is 4 when the screen is closed by giving 'X' and when returned to REXX module.

expat · Posted: Mon Oct 20, 2008 6:37 pm

How does your REXX code deal with the RC4.
You will need to post your code.

lokeshwar_manoharan · Posted: Mon Oct 20, 2008 7:17 pm

Actually there is no condition I will be checking for RC = 4
Here is the code

lokeshwar_manoharan · Posted: Mon Oct 20, 2008 8:08 pm

How can we "save the return-code from the DISPLAY service" ..??

ofer71 · Posted: Mon Oct 20, 2008 8:15 pm

Right after the DISPLAY service,code something like SAVE_RC = RC

O.

Pedro · Posted: Mon Oct 20, 2008 9:30 pm

lokeshwar_manoharan · Posted: Tue Oct 21, 2008 12:32 pm

1) I will display a panel

2) When he presses 'Enter', a dataset wil be created and open in edit mode from the panel itself

3)He can press 'X' for closing the screen.

4) But when he presses 'X' control is returned to REXX module and I cannot also check RC because RC is 4 when he presses either 'PF3' or (Presses 'X' and enter).

5) When he presses 'PF3' the panel should be displayed again

6) When he presses 'X' and enter the REXX module should be terminated

What cab be the solution..???

enrico-sorichetti · Posted: Tue Oct 21, 2008 12:48 pm

in ISPF terminology PF3 and X are synonyms ,
the command "=X"will take You to the top the hierarchy
look at the ispf manuals for the meaning of the return codes after
a "DISPLAY PANEL"
... 4 means PF3
... 8 means "=X"

lokeshwar_manoharan · Posted: Tue Oct 21, 2008 1:08 pm

Can you please explain of what you told. "Take you to the top of hierarchy means..???"

I am invoking dataset in edit mode by

ADDRESS ISPEXEC
"ISPEXEC EDIT DATASET('"USERID()".TEMP.NEW')"

After that I have coded

SAY RC

Here I am getting 4 when I press 'PF3' or by closing the screen by 'giving = x'
and I am not getting 8

enrico-sorichetti · Posted: Tue Oct 21, 2008 1:14 pm

after an EDIT ( IIRC )the return code will tell You nothing about the panel navigation flow
only about the result of the editing session, data saved, data not saved

do some testing by displaying the return code after the edit command

lokeshwar_manoharan · Posted: Tue Oct 21, 2008 1:23 pm

How can I able to know that he has pressed 'PF3' in the dataset.. Is there any variable from which I can get or any other clue.

I don't know how to test after the panel is displayed. How can I get the last ISPF command he has issued?

enrico-sorichetti · Posted: Tue Oct 21, 2008 1:28 pm

did You read my previous post ??
reread the IPS manuals

Pedro · Posted: Tue Oct 21, 2008 9:34 pm

Have you tried checking ZVERB or ZCMD?