Answer Posted / vinay gautam
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)
compute index1 = index1 + 1
end-perform.
stop run.
| Is This Answer Correct ? | 7 Yes | 1 No |
Post New Answer View All Answers
Explain the types of perform?
I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks
What is the syntax of sort?
seqence numbers in cobol
Explain what all the conditiones required for using open opcode on a file?
Explain the input procedure?
How to update data area in cobol 400 program?
What is output procedure?
why icetool be used in programmer view?
What is redefine?
Define redefine and its syntax?
How to detect record is locked in cobol/400?
What are fillers? What is the actual use of fillers? With mall/simple example?
Define perform? And its types?
What is the syntax of redefine?