Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

TSO/ISPF Problem

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
PokerGuru

New User


Joined: 23 Jul 2010
Posts: 33
Location: Europe

PostPosted: Fri Jun 10, 2011 9:10 pm    Post subject: TSO/ISPF Problem
Reply with quote

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.
http://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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Fri Jun 10, 2011 9:21 pm    Post subject: Reply to: TSO/ISPF Problem
Reply with quote

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
View user's profile Send private message
PokerGuru

New User


Joined: 23 Jul 2010
Posts: 33
Location: Europe

PostPosted: Fri Jun 10, 2011 9:36 pm    Post subject:
Reply with quote

Would anyone know of any workaround?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Fri Jun 10, 2011 9:48 pm    Post subject: Reply to: TSO/ISPF Problem
Reply with quote

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
View user's profile Send private message
PokerGuru

New User


Joined: 23 Jul 2010
Posts: 33
Location: Europe

PostPosted: Fri Jun 10, 2011 10:03 pm    Post subject:
Reply with quote

tHANKS, WORKED...
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us