%EXTERNALROUTINE SET2(%INTEGERNAME I1,I2)
PRINTSTRING('ENTERING IMP SET2')
NEWLINE
I1=2
I2=2
%END
%ENDOFFILE