program-id.y.data division.working-storage section. 1 s pic x(9). procedure division.a.accept s if s=33700 display"hoolee"else if s=007 display"sloo"else if s=58181771 display"sillibibs"else inspect s converting"01234578"to"oizehslb"display function reverse(function trim(s))go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).