
Reply to comment
Reply
Click the +1 button below to share it with your friends and colleagues
Share this if you liked it!
Click the +1 button below to share it with your friends and colleagues
t-decoration:none;text-underline:none'>IBM DB2 Certification
LOGOUT
Number of Registered users 714
|
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