 dcl     WriteLn             entry( char(*) varying )
                             external( 'WriteLn' );
 dcl     HEX                 entry( ptr, fixed bin(15) )
                             returns( char(256) var )
                             ext( '_pli_Hex' );
