%EXTERNAL %ROUTINE  A (%STRING(255) PARAM)
   ! MAKES '*' THE DEFAULT QUALIFIER FOR ANALYSE
   %EXTERNAL %ROUTINE %SPEC  ANALYSE (%STRING(255) S)
   %STRING (255) SCRAP
   PARAM = PARAM . ",*"  %UNLESS PARAM -> SCRAP.(",").SCRAP
   ANALYSE (PARAM)
%END

%END %OF %FILE