Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Base Locator for Working storage-BLW details

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

New User


Joined: 10 May 2005
Posts: 72

PostPosted: Fri May 20, 2005 4:20 pm    Post subject: Base Locator for Working storage-BLW details
Reply with quote

Hi all,

When we compile a COBOL program, in the INTR.OUTPUT step of the JOB where we get compiled listing,
we can find BLW(Base Locator for Working storage) definition.

For Example,

10 DATA1. BLW=0000+0E3,0000033 0CL14
20 FLD1 PIC XX. BLW=0000+0E3,0000033 2C
20 FLD2 PIC X(08). BLW=0000+0E5,0000035 8C
20 FLD3 PIC X(04). BLW=0000+0ED,000003D 4C






20 FLD1 PIC XX. BLW=0000+0E3,0000033 2C


In this example, I think 0000 is the base register. 0E3 is the displacement in Hexadecimal.
I want to know what does 0000033 stand for?

Maximum how many Base registers can be used for working storage variables?

Can any one please explain this?

Thanks and Regards,
Vidya Bhat
Back to top
View user's profile Send private message

mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Tue May 24, 2005 6:09 am    Post subject:
Reply with quote

I think the 33 is the displacement from the beginning of the 01 level. The 03E is the displacement from the address in the BLW.
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 sharing PLI storage Pedro PL/I & Assembler 2 Mon Oct 16, 2017 10:11 pm
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts Historical/statistical details for me... elixir1986 TSO/ISPF 13 Wed Aug 30, 2017 9:02 pm
No new posts retrieving envelope information out o... VintageReceiver TSO/ISPF 6 Thu Aug 10, 2017 8:13 pm

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