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
What are fillers? What is the actual use of fillers? With mall/simple example?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
What is the syntax of redefine?
What is redefine?
Explain the input procedure and output procedure?
Explain how to detect record is locked in cobol/400? What is the solution for that?
Explain the syntax of sort?
What is output procedure?
Explain the output procedure?
What is comp?
What is the actual use of fillers?
Explain the input procedure?
Define redefine and its syntax?
What is perform?
I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks