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
What is link edit in cobol?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
What is cobol?
What are the pertinent COBOL
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
What is the default value(s) for an initialize and what keyword allows for an override of the default?
Hi pls anybody tell me about " ANALYSIS DOCUMENT PREPARATION AND ESTIMATION OF TASK " (in real time project)."I want to update a sequential file in my project" for that purpose i need both structures i mean analysis document and estimation of task.
What are the different types of condition in cobol and write their forms.
What is amode(31)
How do you differentiate between cobol and cobol-ii?
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
What kind of error is trapped by on size error option?
In which area will you utilize 88 level items in cobol?
Define cobol?
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?