Find the size of the COBOL Group

cobolunni · Posted: Tue Aug 22, 2006 5:44 pm

01 TAB.
02 A PIC S9(11) USAGE IS COMP
02 B PIC S9(11) USAGE IS COMP SYNC
02 C USAGE IS INDEX
02 D USAGE IS POINTER
02 E PIC 9(11) USAGE IS COMP-3

PLEASE TELL THE SIZE OF TAB

DavidatK · Posted: Tue Aug 22, 2006 5:55 pm

cobolunni · Posted: Tue Aug 22, 2006 11:21 pm

david can u please explain it for me

Archana_MF · Posted: Wed Aug 23, 2006 3:44 am

Below is a brief Desc of each Usage.

02 A PIC S9(11) USAGE IS COMP : This is Binary and the memory is defined as 2's complement numbers (2x) i.e 2, 4, 8, 16 etc etc
So for PIC 1-4 : 2 bytes
PIC 5-9 : 4 Bytes
PIC 10-18: 8 Bytes
and this is byte aligned. For Ur Ex it is 8 Bytes

02 B PIC S9(11) USAGE IS COMP SYNC : Similar to COMP but is synchronized to Word Boundaries. 8-Bytes

02 C USAGE IS INDEX : This is a 4-byte data-item to which the Index value is stored for refrences like table occurances and it need not be a part of the table. the Index data-item can be directly ref by SERACH/SET/COND.

02 D USAGE IS POINTER : This is a 4-Byte field to store address of any data-item or field. when u use this field in ur program ur actually using the address in it which in turn points to actual data.

02 E PIC 9(11) USAGE IS COMP-3 <== It uses a notation called BCD(Binary Coded Decimal) i.e two digits are stored in 1 byte (8 bits ) or u can say 1 digit in 4 bits(nybble). To calculate the storage add 1 to the number of PIC bytes and divide by 2. here it is (11+1)/2 i.e 6 bytes
for Ex a number 12345678901(11 digits) is stored as 12 34 56 78 90 1C , C is sign stored in the last Nybble.

Hope this helps

MKP · New User Joined: 23 Aug 2006 Posts: 12 Location: Chennai

Hi Archana,
If a group size is 12 , Now i am using comp-3 as an usage clause. will it take 6.5 bytes or 7 bytes.

Archana_MF · Posted: Wed Aug 23, 2006 9:29 am

It will be rounded to 7 Bytes for PIC (12) Comp-3 and the upper 4 bits will be ignored and can be zeroes .

guptae · Posted: Wed Aug 23, 2006 9:31 am

Hi MKP,
For declaration

02 E PIC 9(12) USAGE IS COMP-3

It will take 6 Bytes

02 E PIC S9(12) USAGE IS COMP-3
It will take 7 bytes.

Archana_MF · Posted: Wed Aug 23, 2006 9:38 am

Correct me If I am wrong,

I thought COMP-3 will reserve a Nibble for sign irrespective of
Signed S9(12) / Unsigned 9(12) values, making it always 7 bytes for this ex.

MKP · New User Joined: 23 Aug 2006 Posts: 12 Location: Chennai

Hi Guptae,

Ru sure that if i wont specify s9(12) instead of 9(12) it iwll take only 6 bytes.

kondakonda · New User Joined: 20 Mar 2006 Posts: 34

Hi,

I am sure it will occupy 7 bytes irrespective of 9(12) or s9(12)

Thanks.

guptae · Posted: Wed Aug 23, 2006 11:43 am

02 E PIC 9(11) USAGE IS COMP-3

It will take 6 Bytes

02 E PIC S9(11) USAGE IS COMP-3
It will take 6 Bytes

02 E PIC 9(12) USAGE IS COMP-3
It will take 7 Bytes

02 E PIC S9(12) USAGE IS COMP-3
yeap it will occupie seven byte

cobolunni · Posted: Wed Aug 23, 2006 11:53 am

In case i have given a sync clause in a group item is that clause applicable to all the members of the group or only for that item

jose.jeyan · New User Joined: 28 Jul 2006 Posts: 60 Location: Mumbai

for 02 E PIC 9(12) USAGE IS COMP-3

it will take 6 bytes as sign is not specified

for 02 E PIC s9(12) USAGE IS COMP-3

it will take 7 bytes as the genral formula is int((n/2)+1),sign is stored as hex value in the last nibble.

cobolunni · Posted: Wed Aug 23, 2006 5:02 pm

Please tell me What is the default word boundary in minframe

Marso · Posted: Wed Aug 23, 2006 5:56 pm

jose.jeyan,

jose.jeyan · New User Joined: 28 Jul 2006 Posts: 60 Location: Mumbai

thanks marso

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Let's change cobolunni's ques.

Reverse all the 02 level variables in 01 TAB (i.e. E D C B A, instead of A B C D E).

Now, what will the size of TAB be?

DavidatK · Posted: Thu Aug 24, 2006 4:09 am

Tab starts on a word boundary (Multiple of 4 bytes)

cobolunni · Posted: Thu Aug 24, 2006 9:16 am

In the group (in my first question ) There is a SYNC in the data name B .B is in the group called tab . B has a size of 8 bytes SYNC will create a word boundary of 8 .Is this word boundary is applicable to all of the members in the group .Is that the condition then the answer of my first question will be 40 instead of 30 . Please tell me if SYNC clause is apllicable to all of the members in the group or not