EDIT END(SAVE) or CANCEL?

Steve Coalbran · Posted: Sat Feb 06, 2016 7:11 pm

I have been on this for a while, modelling in ISPF 7.6 and done *REXX section SAY diagnostics as well as the obligatory RTFMing so...

I am editing a dataset with a customized panel.
I find here that I cannot from here detect the actions between CANCEL, END and RETURN. All display .RESP as END.
I would have assumed that the command value would be available as ZCMD or ZVERB. Not so in my trials.
And... Both return RC=4.
C'mon guys, where you hidin' this secret?

Funny, I never had this problem using the standard ISREDDE2 panel.
/Steve

Willy Jensen · Posted: Sat Feb 06, 2016 9:18 pm

Steve,
you don't say what kind of change you made to the edit panel.
I am not surprised that END and RETURN gives the same result, they are basically the same with respect to how EDIT ends.
I did a small test with a modified ISREDDE panel:

modify data & END -> rc=0 zcmd= presp=END
no change & END -> rc=4 zcmd= presp=END
CANCEL-> rc=4 zcmd= presp=ENTER

Or in other words, if the file has changed then I get rc 0, otherwise rc 4.

Willy

Steve Coalbran · Posted: Mon Feb 08, 2016 1:02 pm

Thanks Willy.
The panel has two extra entry fields above ZDATA.
I test for various values in both a REXX section within the PROC section as well as the RC afterwards.
When I enter the word CANCEL in the command field I get...
&ZCMD =
&ZVERB =
.CSRPOS = 00000004
.CURSOR = ZCMD
.PFKEY =
.RESP = END
and after edit get +++ RC(4) +++
When I enter the word END in the command field I get...
&ZCMD =
&ZVERB =
.CSRPOS = 00000004
.CURSOR = ZCMD
.PFKEY =
.RESP = END
and after edit again get +++ RC(4) +++

I would have expected(/hoped) that either ZCMD or ZVERB would have the value either CANCEL or END.

/Steve

don.leahy · Posted: Mon Feb 08, 2016 6:07 pm

I didn't try your exact scenario, but on a customized View panel I see ZVERB="CANCEL" in the SHARED pool. The value in the function (implicit) pool was blanks.

Willy Jensen · Posted: Mon Feb 08, 2016 7:17 pm

Interesting. I don't have REXX code in the panel, I just check the values after the display. I see the ZVERB variable in the shared pool set to END if I hit the END key, regardless of whether a change was made, but null if I cancel the edit.
I checked the manual (zOS 1.13) but it says nothing about ZVERB in the shared pool.

Mickeydusaor · Posted: Mon Feb 08, 2016 8:47 pm

In the panel I do the following.

VGET (ZVERB) SHARED

&SMGCMDS = &ZVERB

VPUT (SMGCMDS) PROFILE

In the Rexx I do the following

"EDIT DATASET('"WRKFILE"') PANEL(ISPFEDIT) MIXED(YES)"

RTRNCODE = RC

IF RTRNCODE = 0 | RTRNCODE = 4
THEN DO
RTRNCODE = 0

"VGET (SMGCMDS)" PROFILE

IF SMGCMDS = 'CANCEL' | 'CAN'

you can check check for any type of response such as END, SUB, SUBMIT
or any other command

Steve Coalbran · Posted: Tue Feb 09, 2016 9:22 pm

Thanks guys. Yes I have been looking at ZVERB but only in the FUNCTION pool but I will revisit this in the SHARED.
I wonder why it's only in SHARED? Probably a good reason.
Excellent,
Thanks /Steve

Willy Jensen · Posted: Wed Feb 10, 2016 1:24 am

just did a few more tests.
change + save + change + cancel still ends rc=0, which is good as it tells you that the member was modified.

No idea why ZVERB is set in the shared pool , makes no sense to me.

Steve Coalbran · Posted: Wed Feb 10, 2016 11:50 am

I do not see any value in ZVERB for a CANCEL command typed or by PFK.

Steve Coalbran · Posted: Mon Aug 08, 2016 4:01 pm

Continuing this saga.
I tried the same in BROWSE.
When issuing a CANCEL in BROWSE, ZVERB is not set in SHARED!
A bit inconsistent?
Or possibly the concept of CANCEL, when one cannot change the data in BROWSE, is a little weird.
I still wish that whatever command I entered was passed back in ZVERB.