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 / 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 |
Post New Answer View All Answers
Differentiate between structured cobol programming and object-oriented cobol programming.
Discuss about changing dataset name in proc.
How do you reference the fixed block file formats from cobol programs
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
What are the pertinent COBOL
Write a cobol program making use of the redefine clause.
How to remove 2 duplicate records and copy only one using job control language?
write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc
Explain what you understand by passing by value.
What is the difference between perform … with test after and perform … with test before?
What are different data types in cobol?
Mention the guidelines to write a structured cobol program?
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?
Name the sections present in data division.
INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?