IBM Mainframe Forum

* Command in error . : MACRO(VIEW)                                           *
 *                                                                            *
 * Command not executed                                                       *
 * An ISREDIT MACRO statement must precede any executable statements.         *
 *                                                                            *
 *   Error message ID . : ISRE741                                             *
 *                                                                            *
 *   Last return code . : 28                                                  *
 *                                                                            *
 *   Macro executing  . : SRTOL                                               *
 *                                                                            *
 * Press ENTER key to terminate the macro.                                    *
 *                                                                            *
 

/* REXX */                                                  
 ADDRESS ISREDIT                                            
 "MACRO(VIEW)"                                              
 "(CURL,CURC) = CURSOR"                                      
 "(LINEDATA) = LINE" CURL                                    
 PARSE VAR LINEDATA BEQUAL '=' DSNAME ','                    
  IF SYSDSN("'"DSNAME"'") = 'OK' THEN                        
   DO                                                        
     SELECT                                                  
       WHEN VIEW = 'E' THEN                                  
         DO                                                  
           ADDRESS ISPEXEC "EDIT DATASET('"DSNAME"')"        
         END                                                
       WHEN VIEW = 'V' THEN                                  
         DO                                                  
           ADDRESS ISPEXEC "VIEW DATASET('"DSNAME"')"        
         END                                                
       WHEN VIEW = 'B' THEN                                  
         DO                                                  
           ADDRESS ISPEXEC "BROWSE DATASET('"DSNAME"')"      
         END                                                
       WHEN VIEW = 'D' THEN                                  
         DO                                                  
           ADDRESS TSO "DELETE '"DSNAME"'"                  
         END                                                
       OTHERWISE                                            
         DO                                                  
           SAY 'PLEASE SELECT APPRPIATE OPTION'              
         END                                                
     END                                                    
   END                                                      
  ELSE                                                      
   DO                                                        
     SAY 'DATSET IS NOT FOUND'                              
   END