Custom Search
Do we have REVERSE command in COBOL?
Sun, 07/10/2011 - 06:23
Can some one tell me if REVERSE command is available in COBOL? I tried in manuals but could not get it to work :(
I am looking to reverse a string.
"; ; ; ;
Tue, 07/12/2011 - 17:30
#2
REVERSE FUNCTION IN COBOL
MOVE FUNCTION REVERSE(original-string) TO reversed-string.
The best way to reverse a string in COBOL.
Mon, 07/11/2011 - 20:46
#3
Reverse Command
Not as far as i am aware of but COBOL can call C functions that may achieve the same result. i have not done that yet so am unaware of exactly how to go about that.
otherwise you can always do the following:
01 i pic s9(4) binary.
01 j pic s9(4) binary.
01 original-string pic x(255).
02 reversed-string pic X(255).
move length of original-string to j
perform varying i from 1 by +1 until i > length of original-string
move original-string(i:1) to reversed-string(j:1)
subtract 1 from j
end-perform
Click the +1 button below to share it with your friends and colleagues
Share this if you liked it!
function reverse(your string)
after reverse inspect for initial spaces and do reference move from initial character