program-id.y.data division.working-storage section.
1 s pic x(9).
procedure division.
perform 9 times
accept s
inspect s converting"12346789"to"98764321"display s
end-perform.