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.
- 12 Answers
- 16061 Views
- I also Faced
- E-Mail Answers
Answer Posted / jayaprabhu
01 rec1.
02 a pic x(6)-------------------- 6 bytes
02 b redefines a.
03 c occurs 6 times pic 9.------ 6*1(pic 9 ie why we
have mul with 1 )------------------- 6 bytes
02 d occurs 6 times pic 9.------- (6*1) 6 bytes
03 e pic x(05)------------------- 5*6 =30 bytes
03 f pic 999. --------------------- 3*6=18
6
6
6
30
18
66
if you remove e f
18
| Is This Answer Correct ? | 0 Yes | 1 No |
Post New Answer View All Answers
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......
What is the local-storage section?
What is cobol?
Discuss about changing dataset name in proc.
What is link edit in cobol?
What is Pic 9v99 Indicates in COBOL?
Name some of the examples of COBOl 11?
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...)
How do you reference the fixed block file formats from cobol programs
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
What is the utilization of copybook in cobol?
What type of SDLC u followed? Why?
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
In COBOL programming, what is PERFORM? What is VARYING?
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
