Answer Posted / vinay gautam
This is a working example of 1D arrey...
in last ex. o posted there was a comment line......
Working-storage section.
77 index1 pic 9 value 1.
01 week value 'montuewedthufrisatsun'.
03 days pic x(3) occurs 7 times indexed by idx.
Procedure division.
perform varying index1 from 1 by 1 until index1 >= 8
display days(Index1)
End-Perform.
stop run.
Regards Vinay Gautam
| Is This Answer Correct ? | 4 Yes | 1 No |
Post New Answer View All Answers
What is sort?
Explain the types of perform?
why icetool be used in programmer view?
What are the types of perform?
What is comp?
What is the actual use of fillers?
Define sort?
What is redefine?
What are fillers?
How to update data area in cobol 400 program?
How to detect record is locked in cobol/400?
What is output procedure?
Explain the output procedure?
Explain the syntax of sort?
Define redefine and its syntax?
