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

ISRE771 error while invoking macros


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 271

PostPosted: Mon Aug 26, 2019 7:59 pm
Reply with quote

Hi all,

I am getting ISRE771 error for the below code in line 41 for


Code:

000001 /****REXX***/                                                           
000002 trace r                                                                 
000003 indd1='testr.temp1'                                                     
000004 address tso                                                             
000005      "alloc f(indd1) da('"strip(indd1)"') shr reuse"                   
000006 address tso                                                             
000007      "execio * diskr indd1 (stem var1. finis)"                         
000008      if var1.0=0 then                                                   
000009       do                                                               
000010          empty1='Y'                                                     
000011       end                                                               
000012     address tso                                                         
000013      "free f(indd1)"                                                   
000014  dsnname2= 'testr.file1.TXT'                                         
000015  DSNNAME3= 'testr.RESULT'                                           
000016  dsorg = listdsi("'"dsnname2"'")                                       
000017  lreclname=syslrecl                                                     
000018 y       = sysdsn("'"dsnname3"'")                                       
000019   if y = 'OK' then                                                     
000020    do                                                                   
000021     address tso                                                         
000022     "delete '"dsnname3"'"                                               
000023    address tso                                                         
000024    "alloc fi(outf) da('"dsnname3"') sp(10,5)",                         
000025    "cylinders dsorg(ps) recfm(f b) lrecl("lreclname")",                 
000026    "unit(sysda) new release"                                           
000027    end                                                                 
000028    else                                                                 
000029    do                                                                   
000030    address tso                                                         
000031    "alloc fi(outf) da('"dsnname3"') sp(10,5)",                         
000032    "cylinders dsorg(ps) recfm(f b) lrecl("lreclname")",                 
000033    "unit(sysda) new release"                                           
000034  end                                                                   
000035 DO I=1 TO VAR1.0                                                       
000036    DSNPOS=POS('DSN=',VAR1.i)                                           
000037    SPOS=DSNPOS + 4                                                     
000038    GDGPOS=POS('(+1)',VAR1.i)                                           
000039    epos=gdgpos - spos                                                   
000040    FNDSTR=SUBSTR(VAR1.I,SPOS,EPOS)                                     
000041 address ispexec                                                         
000042 "ISREDIT MACRO NOPROCESS"                                               
000043  rc = 0                                                                 
000044 address ispexec                                                         
000045 "isredit x all"                                                         
000046 "isredit f all "fndstr" "                                               
000047 "isredit (cnt1) = find_counts"                                         
000048  IF CNT1 > 0 THEN                                                       
000049  DO                                                                     
000050   address tso                                                           
000051      "ALLOC F(INDD3) DA('"STRIP(DSNNAME3)"') MOD REUSE"               
000052       TOTAL_RECS= 'FILE - "'FNDSTR'" AVAILABLE'                       
000053       out.0 =  1                                                       
000054       out.1=total_recs                                                 
000055       address tso                                                     
000056       "execio" out.0 "diskw indd3 (stem out. finis"                   
000057  END                                                                   
000058 END                                                                   
000059 return                                                                 


when using trace r
Code:

      3 *-* indd1='TESTR.temp1'                                               
        >>>   "TESTR.temp1"                                                   
      4 *-* address tso                                                       
      5 *-* "alloc f(indd1) da('"strip(indd1)"') shr reuse"                   
        >>>   "alloc f(indd1) da('TESTR.temp1') shr reuse"                     
      6 *-* address tso                                                       
      7 *-* "execio * DESkr indd1 (stem var1. finis)"                         
        >>>   "execio * DESkr indd1 (stem var1. finis)"                       
      8 *-* if var1.0=0                                                       
        >>>   "0"                                                             
     12 *-* address tso                                                       
     13 *-* "free f(indd1)"                                                   
        >>>   "free f(indd1)"                                                 
     14 *-* dsnname2= 'TESTR.FILE1.TXT'                                     
        >>>   "TESTR.FILE1.TXT"                                             
     15 *-* DSNNAME3= 'TESTR.FINAL.RESULT'                                     
        >>>   "TESTR.FINAL.RESULT"                                             
     16 *-* dsorg = listdsi("'"dsnname2"'")                                   
        >>>   "0"                                                             
     17 *-* lreclname=syslrecl                                               
        >>>   "141"                                                           
     18 *-* y       = sysdsn("'"dsnname3"'")                                 
        >>>   "DATASET NOT FOUND"                                             
     19 *-* if y = 'OK'                                                         
        >>>   "0"                                                               
     28 *-* else                                                               
     29 *-*  do                                                                 
     30 *-*   address tso                                                       
     31 *-*   "alloc fi(outf) da('"dsnname3"') sp(10,5)","cylinders dsorg(ps) re
 cfm(f b) lrecl("lreclname")","unit(sysda) new release"                         
        >>>     "alloc fi(outf) da('TESTR.FINAL.RESULT') sp(10,5) cylinders dsorg(
 ps) recfm(f b) lrecl(141) unit(sysda) new release"                             
     34 *-*  end                                                               
     35 *-* DO I=1 TO VAR1.0                                                   
        >>>   "1"                                                               
        >>>   "625"                                                             
     36 *-*  DSNPOS=POS('DSN=',VAR1.i)                                         
        >>>    "38"                                                             
     37 *-*  SPOS=DSNPOS + 4                                                   
        >>>    "42"                                                             
     38 *-*  GDGPOS=POS('(+1)',VAR1.i)                                         
        >>>    "69"                                                             
     39 *-*  epos=gdgpos - spos                                                 
        >>>    "27"                                                             
     40 *-*  FNDSTR=SUBSTR(VAR1.I,SPOS,EPOS)                                   
        >>>    "PRDT.NBPD.DES3309A.PARMFILE"                                   
     41 *-*  address ispexec                                                   
     42 *-*  "ISREDIT MACRO NOPROCESS"                                         
        >>>    "ISREDIT MACRO NOPROCESS"                                       
     43 *-*  rc = 0                                                             
        >>>    "0"                                                             
     44 *-*  address ispexec                                                   
     45 *-*  "isredit x all"                                                   
        >>>    "isredit x all"                                                 
     46 *-*  "isredit f all "fndstr" "                                         
        >>>    "isredit f all PRDT.NBPD.DES3309A.PARMFILE "                     
     47 *-*  "isredit (cnt1) = find_counts"                                     
        >>>    "isredit (cnt1) = find_counts"                                   
     48 *-*  IF CNT1 > 0                                                       
        >>>    "1"                                                             
        *-*   THEN                                                             
     49 *-*   DO                                                               
     50 *-*    address tso                                                     
     51 *-*    "ALLOC F(INDD3) DA('"STRIP(DSNNAME3)"') MOD REUSE"               
        >>>      "ALLOC F(INDD3) DA('TESTR.FINAL.RESULT') MOD REUSE"             
     52 *-*    TOTAL_RECS= 'FILE - "'FNDSTR'" AVAILABLE'                       
        >>>      "FILE - "PRDT.NBPD.DES3309A.PARMFILE" AVAILABLE"               
     53 *-*    out.0 =  1                                                       
        >>>      "1"                                                           
     54 *-*    out.1=total_recs                                                 
        >>>      "FILE - "PRDT.NBPD.DES3309A.PARMFILE" AVAILABLE"               
     55 *-*    address tso                                                     
     56 *-*    "execio" out.0 "DESkw indd3 (stem out. finis"                   
        >>>      "execio 1 DESkw indd3 (stem out. finis"                       
     57 *-*   END                                                               
     58 *-* END                                                                 
     35 *-* DO I=1 TO VAR1.0                                                   
     36 *-*  DSNPOS=POS('DSN=',VAR1.i)                                         
        >>>    "38"                                                             
     37 *-*  SPOS=DSNPOS + 4                                                   
        >>>    "42"                                                             
     38 *-*  GDGPOS=POS('(+1)',VAR1.i)                                         
        >>>    "75"                                                             
     39 *-*  epos=gdgpos - spos                                                 
        >>>    "33"                                                             
     40 *-*  FNDSTR=SUBSTR(VAR1.I,SPOS,EPOS)                                   
        >>>    "PRDT.NBPD.DES3309A.ST0005.RFORMAT"                             
     41 *-*  address ispexec                                                   
     42 *-*  "ISREDIT MACRO NOPROCESS"                                         
        >>>    "ISREDIT MACRO NOPROCESS"                                                                           
                                   


I got the error
Code:


 ******************************************************************************
 *                                                                            *
 * Command in error . : MACRO NOPROCESS                                       *
 *                                                                            *
 * Too many parameters                                                        *
 * The edit primary MACRO command allows no parameters.                       *
 *                                                                            *
 *   Error message ID . : ISRE771                                             *
 *                                                                            *
 *   Last return code . : 20                                                  *
 *                                                                            *
 *   Macro executing  . : GDGIMP2                                             *
 *                                                                            *
 * Press ENTER key to terminate the macro.                                    *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 ******************************************************************************

The macro will be executed after extracting fndstr from testr.temp1 and applied on the open dataset where the error ISRE771 is obtained for second iteration of I=2. Could you please help to resolve this issue.
Thanks,
Murali
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


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

PostPosted: Tue Aug 27, 2019 12:45 am
Reply with quote

1 - your error is not at line 41 but at line 42
2 - your error message clearly shows the problem.
3 - I am not going to read through your code, or the manual.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Sat Aug 31, 2019 2:28 pm
Reply with quote

You can have the "ISREDIT MACRO NOPROCESS" only once. Put it a beginning of your program.
And I prefer to use the following format:
Address Isredit "MACRO NOPROCESS (PRM)"
Address Isredit "(ds)=dataset"
but each to his/her own as long as it works.
Back to top
View user's profile Send private message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 271

PostPosted: Sun Sep 01, 2019 5:30 pm
Reply with quote

Thanks willy. It worked.

Only in line no 21, i am getting warning message like 'The file is in use not able to allocate'.


Code:

address tso                                                         
000022     "delete '"dsnname3"'"                                               
000023    address tso                                                         
000024    "alloc fi(outf) da('"dsnname3"') sp(10,5)",                         
000025    "cylinders dsorg(ps) recfm(f b) lrecl("lreclname")",                 
000026    "unit(sysda) new release"   


Is there any way to suppress the warning information messages like outtrap. I tried outtrap it doesnt worked
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Sun Sep 01, 2019 6:28 pm
Reply with quote

I don't see a FREE for that dataset in your program. Try the TSO ISRDDN command to check if you still have it allocated. If not, then somebody else have it.
Back to top
View user's profile Send private message
hankoerlemans

New User


Joined: 25 Jan 2018
Posts: 57
Location: Australia

PostPosted: Tue Nov 19, 2019 9:08 am
Reply with quote

Outtrap only fails for me when I code it wrong

Code:

x = OUTTRAP("msg.")     
"LISTC LVL('IDIRFRHQ')"
x = OUTTRAP("OFF.")     
do i=0 to msg.0
  ** do something **
end
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts Error while running web tool kit REXX... CLIST & REXX 5
No new posts Getting Error while trying to establi... DB2 3
Search our Forums:

Back to Top