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


Please Help Members By Posting Answers For Below Questions

example for sub strings ? and refernce modifications whit output pls

1843


What is the utilization of copybook in cobol? Could we utilize a similar copybook?

712


What is the difference between PIC 9.99 and 9v99 in COBOL?

729


What is the difference between structured cobol programming and object alternativelyiented cobol programming?

704


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 ?

1868






what are decleratives in cobol?

1827


Write the code to count the sum of n natural numbers.

697


How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?

695


What is difference between static and dynamic call in cobol?

772


What is the compute verb? How is it used?

653


Write some characteristics of cobol as means of business language.

614


i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this

992


Why is it necessary that file needs to be opened in I-O mode for REWRITE?

744


What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?

670


What is the difference between PIC 9.99 and PIC9v99?

772