/* routine to get first 6 chars of procedure name out of prolog %include 'prologn.inc' for proper entry declaration */ prologname: procedure(prolog_addr) returns(char(6) varying); dcl prolog_addr fixed bin(15); /*address in user task of prolog*/ %include 'knldef.pli'; %include 'rundef.pli'; dcl trim entry(char(*)) returns(char(6) varying); /**************************************************************************************************************/ call getbytes(prolog_addr+prolog_name, 6); return(trim(rwbbuf)); /*trim strips nulls*/ end;