Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 18584 Views
- I also Faced
- E-Mail Answers
Answer Posted / madeshh
1st of all it will give an error because of pic clause with
group item in occurs.
a.if we remove pic clause from there it will take 66 bytes.
01 rec1.
02 a pic x(6) == 6
02 b redefines a. == 0
03 c occus 6 times pic 9. == 0
02 d occurs 6 times.
03 e pic x(5) ==30
03 f pic 999. ==24
------
60
b.if we remove e,f
01 rec1.
02 a pic x(6) ==6
02 b redefines a. ==0
03 c occus 6 times pic 9. ==0
02 d occurs 6 times pic 9. ==6
----
12
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.
Have you used the sort in your project?for this type of questions any working on real time project give the eg. with real time scenario.
What is amode(24)?
What is length is cobol?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
What are various search techniques in cobol? Explain.
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
i need a small 3d program using inline and outline.
Give some examples of command terminators?
what is difference between cobol and cobol/400
Write down the divisions of cobol program?
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
What is rmode(any) ?
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
How can you get the ksds file records into your cobol program?
