/* REXX    STAKEDIT   Recursive edit.  Will also Browse or View                 
                      depending on the active alias.                            
                                                                                
        NOTE ::::    MUST    be called via the command table:                   
                             SELECT CMD(%STAKEDIT &ZPARM) NEWAPPL(ISR)          
                                                                                
           Written by Frank Clarke in the Dark Ages                             
                                                                                
     Impact Analysis                                                            
.    (alias)   STAKBROW                                                         
.    (alias)   STAKVIEW                                                         
                                                                                
     Modification History                                                       
     20010601 fxc added IA section from REXXSKEL so REALIAS can be              
                  used;                                                         
                                                                                
*/ arg argline                                                                  
address TSO                                                                     
arg parms "((" opts                                                             
                                                                                
opts = Strip(opts,"T",")")             /* clip trailing banana       */         
                                                                                
parse var opts "TRACE" tv .                                                     
parse value tv "N"  with  tv  .        /* guarantee a value          */         
rc = Trace(tv)                                                                  
                                                                                
if parms = "" then call HELP                                                    
parse var parms indsn .                                                         
icmd = Sysvar("SYSICMD")               /* How was I called ?         */         
action.          = "BROWSE"                                                     
action.STAKEDIT  = "EDIT"                                                       
action.STAKVIEW  = "VIEW"                                                       
                                                                                
address ISPEXEC                                                                 
"CONTROL ERRORS RETURN"                /* I'll handle my own         */         
(action.icmd) "DATASET("indsn")"                                                
                                                                                
zerrhm = "ISR00000"                                                             
ZERRALRM = "YES"                       /* beep the screen            */         
address ISPEXEC "SETMSG MSG(ISRZ002)"                                           
                                                                                
exit                                   /*@ STAKEDIT                  */         
/*                                                                              
.  ----------------------------------------------------------------- */         
HELP:                                  /*@                           */         
say "HELP for" Sysvar(Sysicmd) "not available"                                  
exit                                   /*@ HELP                      */