%external %routine ai1prolog (%string (255) s) %external %routine %spec obeyjob (%string (255) s) %external %routine %spec prolog (%string (255) s) prolog (s) obeyjob ("ecmi04.trpai1") %end %end %of %file