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
Explain the difference between comp & comp-3?
Explain the input procedure and output procedure?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
What is perform?
Explain the types of perform?
Define sort?
What is sort? And its syntax?
Explain the syntax of sort?
Explain what all the conditiones required for using open opcode on a file?
What are the types of perform?
Explain the input procedure?
What is the syntax of sort?
What is input procedure?
How to update data area in cobol 400 program?
Explain how to detect record is locked in cobol/400? What is the solution for that?
