Determine the total no of bytes in the following.
01 rec1.
02 a pic x(6)
02 b redefines a.
03 c occus 6 times pic 9.
02 d occurs 6 times pic 9.
03 e pic x(5)
03 f pic 999.
Answers were Sorted based on User's Feedback
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
Is This Answer Correct ? | 5 Yes | 0 No |
Answer / sri
It has to be 54 (6 + (8*6)) if we remove PIC clause from d.
Is This Answer Correct ? | 2 Yes | 0 No |
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
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / imran ahmad
FIRST YOU HAVE TO REMOVE PIC CLAUSE FROM GROUP ITEM D
ANSWER IS 56
Is This Answer Correct ? | 0 Yes | 0 No |
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
Is This Answer Correct ? | 0 Yes | 0 No |
Answer / vineet pasricha
nice ques.
remove pic clause from d
it will take 54 bytes
Is This Answer Correct ? | 0 Yes | 0 No |
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
Is This Answer Correct ? | 1 Yes | 2 No |
Under which scenario you would go for a static call as opposed to dynamic call?
Hi, My interviewer ask A calls B and C calls B, a and b are static c and b are dynamic.what happens if they compile and execute at same time.
I had 100 records and i want to execute last three records by using cobol programming?what will be coding?
what is rediffine clause?in what situation it can use?give me real time example?
What is Control Break processing ?
In a COBOL II PERFORM statement, when is the conditional tested, before or after the perform execution?
what is MSGLEVEL?
what is internal sort and external sort ? which is preferable ?
if you give cylinder(1,1)how many cylinders it will be allocate?
What is the difference between a DYNAMIC and STATIC call in COBOL?
Name the divisions in a COBOL program ?
how to move the records from file to array table. give with code example