%EXTERNALROUTINE LAY(%STRING (63) S) %EXTERNALROUTINESPEC DEFINE(%STRING(63) S) %EXTERNALROUTINESPEC RUN(%STRING (63) S) %STRING (63) S1,S2,S3 %IF S->S1.('/').S2 %THEN %START DEFINE('ST01,'.S1) %IF S2->S1.(',').S3 %THEN %START DEFINE('ST03,'.S3) %FINISH %ELSE S1=S2 %AND DEFINE('ST03,.NULL') DEFINE('ST02,'.S1) ;! DOCUMENT %FINISH %ELSE %MONITORSTOP RUN('MYLAYY') %END %ENDOFFILE