Answer / guest

It should be 54. (ie 6 + 8*6)

Answer / guest

01 rec1.
02 a pic x(6)
02 b redefines a.
03 c occus 6 times pic 9.----------- 6 bytes
02 d occurs 6 times.
03 e pic x(5)-----------------------30 bytes
03 f pic 999.-----------------------18 bytes
________
54 bytes
scenario 2:If we remove e and f

01 rec1.
02 a pic x(6)-------------------------------6 bytes
02 b redefines a.
03 c occus 6 times pic 9.
02 d occurs 6 times pic 9.-------------------6 bytes
___________
12 bytes

Answer / sri

It has to be 54 (6 + (8*6)) if we remove PIC clause from d.

Answer / milan kumar

a PIC X(6)-------------6B
b REDEFINES A ---------0B
IF WE REMOVE PIC CLUSE
D=( E PIC X(5)+F PIC 999)
D=(8B OCCURS 6 TIMES)
D----------------------48B
----------
TOTAL OF 54B

Answer / imran ahmad

FIRST YOU HAVE TO REMOVE PIC CLAUSE FROM GROUP ITEM D

ANSWER IS 56

Answer / madeshh

1st of all it will give an error because of pic clause with
group item in occurs.
a.if we remove pic clause from there it will take 66 bytes.
01 rec1.
02 a pic x(6) == 6
02 b redefines a. == 0
03 c occus 6 times pic 9. == 0
02 d occurs 6 times.
03 e pic x(5) ==30
03 f pic 999. ==24
------
60
b.if we remove e,f
01 rec1.
02 a pic x(6) ==6
02 b redefines a. ==0
03 c occus 6 times pic 9. ==0
02 d occurs 6 times pic 9. ==6
----
12

Answer / vineet pasricha

nice ques.

remove pic clause from d
it will take 54 bytes

Answer / ram.g

54 is the right answer!

Answer / v@m$i

first u r syntax is wrong.
6
6
6
6
30
18
---
72

Answer / madesh

1st of all it will give an error because of pic clause with
group item in occurs.
a.if we remove pic clause from there it will take 66 bytes.
01 rec1.
02 a pic x(6) == 6
02 b redefines a. == 6
03 c occus 6 times pic 9. == 0
02 d occurs 6 times.
03 e pic x(5) ==30
03 f pic 999. ==24
------
66
b.if we remove e,f
01 rec1.
02 a pic x(6) ==6
02 b redefines a. ==6
03 c occus 6 times pic 9. ==0
02 d occurs 6 times pic 9. ==6
----
18

what is filler and what is use of filler

3 Answers   Syntel,

What is ASKTIME, SUSPEND

1 Answers   IBM,

how many bytes does s9(15) occupy in comp1 comp2 and comp3 ?

4 Answers   TCS,

How can you get the ksds file records into your cobol program?

0 Answers  

How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?

0 Answers  

BY seeing a program how can we say that it is static call or dynamic call

5 Answers   CGI,

What is an in-line perform ?

4 Answers   Accenture,

Difference between lrecl, blksize among PS, PDS issues? i.e in jcl at dcb

1 Answers  

Define cobol?

0 Answers  

What is SET TO TRUE all about, anyway?

5 Answers  

01 A pic 9(100) find record length of it

6 Answers   TCS,

Suppose a program has the following code. What will be the output? MAIN-PARA. DISPLAY 'MAIN-PARA' PERFORM SECTION-A. STOP RUN. SECTION-A. PARA-A1. DISPLAY 'SECTION A PARA A1'. PARA-A2. DISPLAY 'SECTION A PARA A2'.

4 Answers