RosettaCodeData/Task/Increment-a-numerical-string/PL-I/increment-a-numerical-string.pli

declare s picture '999999999';
s = '123456789';
s = s + 1;
put skip list (s);