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 the syntax of sort?
What is output procedure?
Explain the difference between comp & comp-3?
Explain how to update data area in cobol 400 program?
Explain the output procedure?
Explain what all the conditiones required for using open opcode on a file?
Explain the syntax of redefine?
What is sort? And its syntax?
What are the types of perform?
I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks
Explain the input procedure?
Explain the input procedure and output procedure?
What is redefine?
What is the syntax of sort?