AS/400 itoa C Function Sample

From Support

H dftactgrp(*no) bnddir('QC2LE')                        
D itoa            PR              *   ExtProc('__itoa') 
D    int                        10I 0 Value             
D    buf                          *   Value             
D    rdx                        10U 0 Value             
D string          S             20a   inz(*all'x')      
 /free                                                  
    itoa(12345: %addr(string): 10);                     
    dsply ('|' + string + '|');                         
    *inlr = *on;                                        
 /end-free