%EXTERNALINTEGERFN PAOMFOUT(%INTEGER OPSYS,ATEMP,AWORK,CONTROL, %C
          LANGCODE,ADATE,ATIME,%STRING(7) SUBNAME,%STRING(4) VSN, %C
          %STRING(32) MODNAME,MRTPREFIX,CEPREFIX)
!?1 %EXTERNALINTEGERFNSPEC OUT STREAM
!?1 %INTEGER OS
!?1 OS=OUTSTREAM
!?1 SELECTOUTPUT(0)
!?1 PRINTSTRING("OMFOUT ENTERED");NEWLINE
!?1 SELECTOUTPUT(OS)
%RESULT=0
%END
%ENDOFFILE