How to caliculate Working storage length

lokanathareddy · New User Joined: 05 Mar 2005 Posts: 11 Location: pune

Hi,

I have a requirement with Working storage length. I want to caliculate whole working storage length (All variables). I have heard that we can caliculate thru BLW address

Please can some one eloborate to understand in easy way.

Sinkaravelan S · Posted: Mon Oct 20, 2008 6:14 pm

lokan,

one of the easiest way is copy all the working storage variable into one ps...

afterthat,open file aid an select view option( option 8 in file-aid)..

give your ps name, it will display all the variable storage length andalso we can know the total length of all the variables.

Thanks,

Robert Sample · Posted: Mon Oct 20, 2008 11:55 pm

Check the Application Programming Guide for the MAP option -- which produces a Data Division map including the BLW cell number and offset. Looking at the last item in the map gives you the total BLW cells used and the offset in the last one. Since each BLW cell is 4K, it is pretty simple to calculate total length of working storage.

Anuj Dhawan · Posted: Tue Oct 21, 2008 3:19 am

Hi,

This link might also provide you a start..

www.ibmmainframes.com/viewtopic.php?t=35113&highlight=fileaid

Escapa · Posted: Tue Oct 21, 2008 11:03 am

In compiler listing i found below
When i defined on only one variable of X(20) i.e. HEX 14..

Can anybody flash more light on this?
Is the bolded line showing length of working storage section.

TGT WILL BE ALLOCATED FOR 00000148 BYTES
SPEC-REG WILL BE ALLOCATED FOR 0000007E BYTES
WRK-STOR WILL BE ALLOCATED FOR 00000014 BYTES
DSA WILL BE ALLOCATED FOR 000000F8 BYTES

Robert Sample · Posted: Tue Oct 21, 2008 4:38 pm

Hex 0014 = 1 x 16 + 4 = 20 bytes

Anuj Dhawan · Posted: Wed Oct 22, 2008 1:44 am

That, shown in bold, is HEX equivalemt of 20, Compiler is working well at your end..

You should not get confused, if there is written "00000014", if in

Escapa · Posted: Wed Oct 22, 2008 11:03 am

Hi Anuj, It is surely in HEX..
Because if i use one variable with x(40)
it gave following..Where 28 hex is 40 dec.

dbzTHEdinosauer · Posted: Wed Oct 22, 2008 11:20 am

are your variables defined as level > 01 or as level 01?

Escapa · Posted: Wed Oct 22, 2008 11:23 am

Robert Sample · Posted: Wed Oct 22, 2008 4:43 pm

From the Language Reference manual section 5.3.15:

Escapa · Posted: Wed Oct 22, 2008 5:42 pm

Thanks Robert.
When i defined three variables of x(24) it correctly shows hex 48 i.e. 24*3=72 in dec as there is no need to put filler to force alignment its already

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Hi all,

I have the same scenario what lokanathareddy has faced. my module contains only one 01 level
as shown below,

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

I am sorry, my compiler has some more options which leads to extra 652 bytes. It is due to s9(04) comp (2 bytes + 4 slack bytes due to double word+294 bytes due to sql-vers +354 bytes due defheil ...)

sorry for the confusion.

thanks,
Murali.