Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ISRE771 error while invoking macros

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 264

PostPosted: Mon Aug 26, 2019 7:59 pm    Post subject: ISRE771 error while invoking macros
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: 2221
Location: Hampshire, UK

PostPosted: Tue Aug 27, 2019 12:45 am    Post subject: Reply to: ISRE771 error while invoking macros
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 User


Joined: 01 Sep 2015
Posts: 308
Location: Denmark

PostPosted: Sat Aug 31, 2019 2:28 pm    Post subject:
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: 264

PostPosted: Sun Sep 01, 2019 5:30 pm    Post subject:
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 User


Joined: 01 Sep 2015
Posts: 308
Location: Denmark

PostPosted: Sun Sep 01, 2019 6:28 pm    Post subject:
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts End the job into error / abend state wik123 JCL & VSAM 2 Wed Sep 11, 2019 6:37 pm
No new posts WER027A Error Chinnadu SYNCSORT 8 Thu Aug 29, 2019 11:58 am
No new posts data conversion error maxsubrat PL/I & Assembler 4 Thu May 09, 2019 10:57 pm
No new posts invoking HYPERSPACE in BMC LOADPLUS Musab Razeen Ahmed DB2 2 Tue Apr 16, 2019 4:39 pm
This topic is locked: you cannot edit posts or make replies. PARAMETER 'F1' IS UNIDENTIFIED error ... Poha Eater DFSORT/ICETOOL 14 Fri Feb 01, 2019 2:39 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us