How to display string in the reverse order using occurs
clause?
Answer Posted / fool
both r foolish programmers...heres the working code..
identification division.
program-id pg1.
environment division.
data division.
working-storage section.
01 j pic 99.
01 i pic 99.
01 s1 pic a(15).
01 s2 redefines s1.
02 instr pic a(1) occurs 15 times.
01 s3 pic a(15).
01 s4 redefines s3.
02 outstr pic a(1) occurs 15 times.
procedure division.
p1.
display "Enter the string ".
accept s1.
perform p3 varying i from 15 by -1 until i = 0.
display "Reverse string ".
display s4.
stop run.
p3.
compute j = 15 - i + 1.
move instr(i) to outstr(j).
| Is This Answer Correct ? | 11 Yes | 0 No |
Post New Answer View All Answers
What is a scope terminator give example?
There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.
Describe the cobol database components?
what are decleratives in cobol?
can you please let me know if there is any walkins for COBOL/PLI/DB2/IMS/JCL in pune other than IBM and ITC infotech
what is the difference between COBOL2 AND COBOL390?
Mention the guidelines to write a structured cobol program?
What are the different data types in cobol?
What is the difference between PIC 9.99 and 9v99 in COBOL?
Which Search verb is equivalent to PERFORM…VARYING?
Are you comfortable in cobol or jcl?
how to convert the recors form vsam file to db2 table tru file aid
Give some examples of command terminators?
Why did you choose to work with ibm mainframe cobol programming?
What rules are followed by the search verb.