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 / jai
01 rec1.
02 a pic x(6) == 6
02 b redefines a. == 6
03 c occus 6 times pic 9. == 6
02 d occurs 6 times.
03 e pic x(5) ==30
03 f pic 999. ==18
------
66
| Is This Answer Correct ? | 0 Yes | 1 No |
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 |
how many maximum no of variables can be declared in linkage section ?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
Difference between cobol and cobol-ii?
Write down the divisions of cobol program?
When is a scope terminator mandatory?
I have dataset DS1 which has records say 1 2 3 4 5 ... ... etc And also I have second dataset DS2 whcih has records 1 3 4 5 6 8 .. ... Both the files are sorted and now I want to compare these files and write it into the third files if the records are matching.
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?
how do you move only numeric data from A to B 01 A pic x(10) value 'a1b2c34d5e'. 01 B pic x(5).
when COMP-3 is preferrable?
I want ALL jcl ERROR cods
How do you do in-line PERFORM?