View previous topic :: View next topic
|
Author |
Message |
PokerGuru
New User
Joined: 23 Jul 2010 Posts: 33 Location: Europe
|
|
|
|
Hi can anyone help me with the following please?
I have tried a Trace. Basically I am going from a Rexx Panel into Browsing a dataset, when I type 'CANCEL' on the command line when browsing the Dataset, zcmd is not populated to 'CANCEL' when I go back to the Rexx Panel???
I have tried looking through the Browse on the following to but haven't found a solution yet.
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZSG40/CCONTENTS?DT=20050713030339
Code: |
ADDRESS ISPEXEC
"CONTROL DISPLAY SAVE" /* Save the current display. */
IF RC ¬= 0 THEN
DO
error_text.0 = 2
error_text.1 = ,
'E0200 CONTROL DISPLAY SAVE for' || tempfile || 'failed.'
error_text.2 = ,
'E0200 PTFHOLD dataset. RC=' RC
SIGNAL Z9999_ERROR_PROC
END
TRACE ?R
cancel_request = ''
"BROWSE DATASET("tempfile")" /* Go into BROWSE mode. */
IF RC < 0 | RC > 8 THEN
DO
error_text.0 = 1
error_text.1 = ,
'E0200 Bad BROWSE ' tempfile RC
SIGNAL Z9999_ERROR_PROC
END
/*ADDRESS ISPEXEC "VPUT (zcmd zverb nextactn) shared" */
ADDRESS ISPEXEC "VGET (zcmd zverb nextactn) shared"
IF RC <> 0 THEN
DO
error_text.1="VPUT 2 failed"
error_text.0=1
SIGNAL Z9999_ERROR_PROC
END
"CONTROL DISPLAY RESTORE" /* Restore display. */
IF RC ¬= 0 THEN
DO
error_text.0 = 2
error_text.1 = ,
'E0200 CONTROL DISPLAY RESTORE of' || tempfile || 'failed.'
error_text.2 = ,
'E0200 PTFHOLD dataset. RC=' RC
SIGNAL Z9999_ERROR_PROC
END
IF zcmd = 'CANCEL' | zcmd = 'CAN' | zverb = 'END' THEN
DO
nextactn = 'CANCEL'
cancel_request = 'Y'
END
|
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
zcmd is not populated to 'CANCEL' |
as it should be ( not populated )
all the INTERNAL edit/view/browse commands are just that, internal
and processed as such by edit/view/browse |
|
Back to top |
|
|
PokerGuru
New User
Joined: 23 Jul 2010 Posts: 33 Location: Europe
|
|
|
|
Would anyone know of any workaround? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
You might try with zverb , but there are some gotchas,
not always the zverb is filled
it would be wise to refine a bit Your terminology
Quote: |
Basically I am going from a Rexx Panel |
basically a rexx panel does not exist |
|
Back to top |
|
|
PokerGuru
New User
Joined: 23 Jul 2010 Posts: 33 Location: Europe
|
|
|
|
tHANKS, WORKED... |
|
Back to top |
|
|
|