/* return octal representation for fixed bin(15) in PL/I syntax ('nnn'B3) for PL/I symbolic debugger %include 'plioctal.inc' for the proper entry declaration */ pli_octal: procedure(x) returns(char(10) varying); dcl x fixed bin(15); dcl octal entry(fixed bin(15)) returns(char(6) varying); return(''''!!octal(x)!!'''B3'); end;