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

Getting error - COBOL INLINE ERROR DISPLAY UTILITY


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
satish.sanagavarapu

New User


Joined: 19 Sep 2014
Posts: 3
Location: hyderabad

PostPosted: Tue Sep 23, 2014 7:36 pm
Reply with quote

Hi,

I have copied REXX code to SYSPROC and while I am running the macro,I am getting the following Error.Can some one help me on this..!!!

IKJ56532I STMT 204 - LABEL readSource SPECIFIED BUT COMMAND NOT FOUND

IKJ56532I STMT 752 - LABEL exitModule SPECIFIED BUT COMMAND NOT FOUND

Regards,
Satish.S
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


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

PostPosted: Tue Sep 23, 2014 8:38 pm
Reply with quote

Well, it is reasonably clear what it is saying - in your macro (you are certain that it is a macro and not a program?) there should be labels 'readsource' and 'exitmodule' but the interpreter is saying that they do not exist. Check the code. Run with a trace. Any problems post the code.

BTW 'exitModule' seems to indicate that this is not a macro but a program otherwise an intelligent programmer would have called it 'exitMacro'. Possibly!
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2214
Location: Silicon Valley

PostPosted: Tue Sep 23, 2014 9:16 pm
Reply with quote

You are missing /*rexx */ on the first line of your program. The default is to assume it is a clist program.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2214
Location: Silicon Valley

PostPosted: Tue Sep 23, 2014 9:17 pm
Reply with quote

And what the heck is this: "Getting error - COBOL INLINE ERROR DISPLAY UTILITY"
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10713
Location: italy

PostPosted: Tue Sep 23, 2014 11:38 pm
Reply with quote

Quote:
COBOL INLINE ERROR DISPLAY UTILITY


probably is the name of the tool write/used by the TS
Back to top
View user's profile Send private message
satish.sanagavarapu

New User


Joined: 19 Sep 2014
Posts: 3
Location: hyderabad

PostPosted: Thu Sep 25, 2014 6:33 pm
Reply with quote

Hi,

Still its not working..Please find the attached code which I am trying to execute.Please some one refer and let me know whether any modifications required...!!

Thank you,

Regards,
Satish.S

751-line attachment deleted
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Thu Sep 25, 2014 6:55 pm
Reply with quote

It's from here, where the source is included.

There are 751 lines of source, including comments.

Have you followed all the instructions?

Have you tried to Trace?

Have you left a message for the developers? (No).
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10713
Location: italy

PostPosted: Thu Sep 25, 2014 6:56 pm
Reply with quote

why
Code:
   ADDRESS ISPEXEC "ISREDIT (lend)   = LINENUM .ZLAST"
   ADDRESS ISPEXEC "ISREDIT (lstart) = LINENUM .ZFIRST"


and not a plain Address ISREDIT ?
Back to top
View user's profile Send private message
satish.sanagavarapu

New User


Joined: 19 Sep 2014
Posts: 3
Location: hyderabad

PostPosted: Thu Sep 25, 2014 7:55 pm
Reply with quote

What are the changes i need to make to the rexx code which is attached..?Can some one suggest..!!

Regards,
Satish.S
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10713
Location: italy

PostPosted: Thu Sep 25, 2014 7:58 pm
Reply with quote

do You really expect that somebody will go over a 700 lines script to fix it for You ? icon_evil.gif

did You try to run it with TRACE A
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2214
Location: Silicon Valley

PostPosted: Thu Sep 25, 2014 10:02 pm
Reply with quote

repeating:
Quote:
You are missing /*rexx */ on the first line of your program. The default is to assume it is a clist program.


I am clairvoyant. Now that I looked at the source, I see that it is indeed missing.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Thu Sep 25, 2014 10:12 pm
Reply with quote

And with the courtesy to comment on the IBM site, Pedro.

For completeness, here is what TS/OP included as the first few lines of the deleted attachment:

Code:
/*REXX*/                           
   ADDRESS ISREDIT "MACRO (STRING)"
   ADDRESS ISREDIT "RESET"         
/*------------------------------------------------------------------------
      Syntax :
                Usage :  <cmd> <jobname> <jobid>
                OR
                Usage :  <cmd> <joblog dataset name>
                OR
                Usage :  <cmd> setup
  ----------------------------------------------------------------------
 */
   ADDRESS ISPEXEC "ISREDIT MACRO (STRING)"
   ADDRESS ISREDIT "RESET"
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Thu Sep 25, 2014 10:15 pm
Reply with quote

And with the courtesy to comment on the site, Pedro.

For completeness, here is what TS/OP included as the first few lines of the deleted attachment:

Code:
/*REXX*/                           
   ADDRESS ISREDIT "MACRO (STRING)"
   ADDRESS ISREDIT "RESET"         
/*------------------------------------------------------------------------
      Syntax :
                Usage :  <cmd> <jobname> <jobid>
                OR
                Usage :  <cmd> <joblog dataset name>
                OR
                Usage :  <cmd> setup
  ----------------------------------------------------------------------
 */
   ADDRESS ISPEXEC "ISREDIT MACRO (STRING)"
   ADDRESS ISREDIT "RESET"
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Thu Sep 25, 2014 10:42 pm
Reply with quote

An internet search would have found a resolution from 2005 without all of this anyway :-)
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2214
Location: Silicon Valley

PostPosted: Fri Sep 26, 2014 12:56 am
Reply with quote

FYI, this error message does not make sense for rexx, but does make sense for CLIST:
Code:
IKJ56532I STMT 204 - LABEL readSource SPECIFIED BUT COMMAND NOT FOUND


You can put either rexx or clist into SYSPROC, but a rexx program has to have /*rexx */ as a first line of the exec, otherwise it is invoked as a clist.
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 Secondary index error while loading d... IMS DB/DC 1
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Which SORT utility can improve the Pe... DFSORT/ICETOOL 16
No new posts Error 0C1 Reason Code 1 with branch i... PL/I & Assembler 3
This topic is locked: you cannot edit posts or make replies. Passing a field name to COBOL program COBOL Programming 10
Search our Forums:

Back to Top