%externalroutine pdate
   printstring("pdate  ")
%end

%end %of %file