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.
Answer Posted / 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 |
Post New Answer View All Answers
What is the difference between PIC 9.99 and PIC9v99?
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
What is the utilization of copybook in cobol?
how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)
What are various search techniques in cobol? Explain.
how do you reference the printer file formats from cobol programs
What are the rules of the move verb?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
how do you reference the variable block file formats from cobol programs
how to refer the data field?
what happens if parmparameter passes zero bytes to the program
Write the code to count the sum of n natural numbers.
Which is not true about evaluate statement
Explain sorting techniques in cobol program? Provide the sort file definition, the sort statement, its syntax and meaning