itoa

**FREE

ctl-opt dftactgrp(*no) actgrp(*caller);

dcl-pr intToAlpha pointer extproc('__itoa');
   value int(10) value;
   string pointer value;
   radix int(10) value;
end-pr;


main();
*inlr = *on;


dcl-proc main;

  dcl-s buffer char(10);

  intToAlpha(54 : %addr(buffer) : 16);

  dsply buffer;
end-proc;