%EXTERNALROUTINE COBCONV(%STRING(63) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(255) S)
%EXTERNALROUTINESPEC RUN(%STRING(255) S)
%STRING(31)P1,P2
%UNLESS S->P1.(",").P2 %THEN %START
PRINTSTRING("PARAMS ?")
NEWLINE
%STOP
%FINISH
DEFINE("1,".P1)
DEFINE("2,".P2)
RUN("EXPL02.COBLIB_CONVCTODY")
PRINTSTRING("CHAR FILE ".P1." CONVERTED TO DATA FILE ".P2)
NEWLINE
%STOP
%END
%ENDOFFILE