IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Macro REXX - ISRE741 Command not executed


IBM Mainframe Forums -> CLIST & REXX
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India

PostPosted: Fri Apr 17, 2020 12:48 am
Reply with quote

Hi,

I am trying to use MACRO for easy DNAME execution. while submitting the macro I have below.



Code:
 * 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.                                    *
 *                                                                            *

 

I checked on IBM Knowledge center and the issue explanation state

The macro name you entered does not have the ISREDIT MACRO statement as the first executable instruction

I checked my program.


Code:
 /* 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                                                


please advise.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Fri Apr 17, 2020 1:45 am
Reply with quote

Do not post in multiple places at the same time.

Topic locked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts rexx pgm to create multiple ps file IBM Tools 7
No new posts Mainframe batch Job or REXX to get VT... CLIST & REXX 7
No new posts calling OMEGAMON from REXX CLIST & REXX 3
No new posts REXX allocated datasets in JCL CLIST & REXX 9
No new posts getting RC=3650 when invoking REXX wi... CLIST & REXX 7
Search our Forums:

Back to Top