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

Where do I find the length of the load module


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
awkksgovus

New User


Joined: 22 Jan 2010
Posts: 14
Location: Topeka, KS

PostPosted: Sat Feb 20, 2010 1:28 am
Reply with quote

After reading Comparing two loadlib's using AMBLIST where do I find the length of the load module.

I agree with:

Quote:
anyone that is responsible for production programs would never trust that two loads that differ in any respect.
If they are not the same, they are not the same.


Too many programmers work differently given the same standards. Like using developement before production environment. And was there a hot fix applied and never moved up to the production source code?

I stuck where it is suppose to be the same... but we know people worked different. (Not enforced standards)
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sat Feb 20, 2010 2:04 am
Reply with quote

Load module length location is not always in the same spot but for a recent AMBLIST run I needed to do, the CSECT length was located at:
Code:
0RECORD# 10    TYPE 01 - CONTROL            CONTROL SIZE 4                   RLD
0                 CESD#   LENGTH
                     1     1D48
Back to top
View user's profile Send private message
awkksgovus

New User


Joined: 22 Jan 2010
Posts: 14
Location: Topeka, KS

PostPosted: Sat Feb 20, 2010 3:09 am
Reply with quote

System doesn't seem to like the execution of the JCL on the mainframe.

IEF085I REGION UNAVAILABLE, ERROR CODE=20

Error code 20 may appear for one of several reasons:

The job step requested a V=V region, but there was not enough virtual storage in the region.
Fragmentation of the local system queue area (LSQA), scheduler work area (SWA) or subpools 229, 230, or 249 occurred, making it impossible to obtain the region requested by the job step.
The job step requested a V=R region that exceeds the global V=R area size.

I will check it out with our systems programmer. Not sure if we have used this utility. Or perhaps it is my misuse of it.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Sat Feb 20, 2010 7:53 am
Reply with quote

If you're looking for simply the size of the load module, a PDS member list should also show it.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sat Feb 20, 2010 9:41 am
Reply with quote

Hello,

If you post the jcl submitted along with the sysout information generated by the run it may help someone help you.
Back to top
View user's profile Send private message
awkksgovus

New User


Joined: 22 Jan 2010
Posts: 14
Location: Topeka, KS

PostPosted: Wed Feb 24, 2010 2:25 am
Reply with quote

I think record 11 is where I see it... tell me if I got it right:

RECORD# 11 TYPE 01 - CONTROL CONTROL SIZE 4
CESD# LENGTH
7 1800

Where 1800 would be it. icon_rolleyes.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Feb 24, 2010 4:02 am
Reply with quote

Yep -- just remember that's a HEX number, not decimal.
Back to top
View user's profile Send private message
awkksgovus

New User


Joined: 22 Jan 2010
Posts: 14
Location: Topeka, KS

PostPosted: Wed Feb 24, 2010 7:56 pm
Reply with quote

Actually... I did it against another program that I know is different. I got the same number.

It actually shows on record #1 - example:

Code:
TYPE 20 - CESD     ESDID 1                      ESD SIZE 240           
 CESD#    SYMBOL    TYPE     ADDRESS     R/R/A    ID/LENGTH(DEC)   (HEX)
    1    DFHECI    00(SD)     000000      06             32          20
    2    DFHEI1    03(LR)     000008      06              1           1
    3    DLZEI01   03(LR)     000008      06              1           1
    4    DLZEI02   03(LR)     000008      06              1           1
    5    DLZEI03   03(LR)     000008      06              1           1
    6    DLZEI04   03(LR)     000008      06              1           1
    7    PROGRAMA  00(SD)     000020      07          21864        5568
    8    IGZCBSO   00(SD)     006AE8      06           1376         560
    9    CEESTART  00(SD)     006A68      07            128          80
   10    CEEBETBL  00(SD)     006A48      07             32          20


PROGRAMA is the one I was looking for.

FYI. icon_wink.gif
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Store the data for fixed length COBOL Programming 1
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts Load new table with Old unload - DB2 DB2 6
No new posts To find whether record count are true... DFSORT/ICETOOL 6
Search our Forums:

Back to Top