Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to find offset in a COBOL program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
pramodg

New User


Joined: 04 Sep 2012
Posts: 5
Location: India

PostPosted: Tue Sep 18, 2012 2:47 pm    Post subject: How to find offset in a COBOL program
Reply with quote

I am working on a COBOL performance optimization assignment. The strobe report points to a offset in a COBOL program. At my earlier company I was used to locate all the procedure division offsets near the end of the compile listing. But in current case I am not able to locate where they are listed in the compile listing. The program seems to be compiled with OFFSET (YES) and LIST(YES) options. I see this message on the first page of the compile listing -

IGYOS4022-W The "OFFSET" option was discarded due to option conflict resolution. The "L option from "PROCESS/CBL"IST"
statement took precedence.

Attached the program...........

Attachment removed.
Back to top
View user's profile Send private message

pramodg

New User


Joined: 04 Sep 2012
Posts: 5
Location: India

PostPosted: Tue Sep 18, 2012 3:33 pm    Post subject: Re: How to find offset
Reply with quote

[quote="pramodg"]I am working on a COBOL performance optimization assignment. The strobe report points to a offset in a COBOL program. At my earlier company I was used to locate all the procedure division offsets near the end of the compile listing. But in current case I am not able to locate where they are listed in the compile listing. The program seems to be compiled with OFFSET (YES) and LIST(YES) options. I see this message on the first page of the compile listing -

IGYOS4022-W The "OFFSET" option was discarded due to option conflict resolution. The "L option from "PROCESS/CBL"IST"
statement took precedence.

Attached the program...
I am looking for the offset - 00144E.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Tue Sep 18, 2012 3:50 pm    Post subject: Reply to: How to find offset
Reply with quote

Did you try a FIND on the compile listing? You have option LIST, so you have the detail of everything there is...
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Sep 18, 2012 3:52 pm    Post subject:
Reply with quote

maybe, if you recompile with the proper options,
you can get your offset.
Back to top
View user's profile Send private message
pramodg

New User


Joined: 04 Sep 2012
Posts: 5
Location: India

PostPosted: Tue Sep 18, 2012 4:13 pm    Post subject:
Reply with quote

Thanks Bil & dick
Unfortunately I am not able to locate the complete listing. May be I do not know where to look for. I scanned the entire compile listing file.

As there are most of such cases it will be difficult to get them to recompile all such programs.
Before complaining, just wanted to re-confirm that there is no way we can locate the offset with the compile listing provided. The module map shows offset 0 to 6348 for the concerned program. So I assume the offset 144E lies within its range. Let me know my understaning is not correct.

Code:
SECTION    CLASS                                      ------- SOURCE --------
   OFFSET   OFFSET  NAME                TYPE    LENGTH  DDNAME   SEQ  MEMBER

                 0  MBM227D            CSECT      6348  SYSLIN    01  **NULL**


Your post has been Code'd and the ridiculously small text size removed.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Tue Sep 18, 2012 4:34 pm    Post subject:
Reply with quote

Unless you recompile this program, preferably with VBREF,NOOFFSET,LIST options, you cannot determine the statement having the problem. The compile listing has no offset information included.
Back to top
View user's profile Send private message
pramodg

New User


Joined: 04 Sep 2012
Posts: 5
Location: India

PostPosted: Tue Sep 18, 2012 4:43 pm    Post subject:
Reply with quote

Thanks for the reply Robert. Seems I have no option but to go back to the application owner and ask for recompilation.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Sep 18, 2012 4:52 pm    Post subject:
Reply with quote

do you have a resource management tool (changeman/endevor/panvalet?)
or does everybody just do what they want?

i do not understand an organization
that does not require adequate procedures to be followed
when generating production code.

how does anyone debug a problem
when there is a S0Cwhatever
and an offset is provided?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Tue Sep 18, 2012 5:04 pm    Post subject: Reply to: How to find offset
Reply with quote

Something is unusual. LIST requires NOOFFSET. OFFSET has been discarded. LIST is specified. Yet no LIST output.

The diagnostic message has some "garbling" in it.

If everything is compiled this way, you have no indication of any offsets in your compile listings, either through LIST or OFFSET.

It is unusual to specify everything as CBL cards. Usually you take the installation defaults plus any necessary overrides. Something is messed-up.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts How to find the first monday of the w... abdulrafi COBOL Programming 10 Fri Nov 25, 2016 3:24 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts Regarding COBOL Stored Procedure opti... selvamsrinivasan85 DB2 4 Fri Nov 04, 2016 8:57 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us