how about

        call intrinsic timer using ws-time-1
        call intrinsic fwrite ....
        if c-c = 0 then
           call intrinsic timer using ws-time2
           if( ( ws-time2 - ws-time-1 ) >= ws-time-out ) then
              time out
           end-if
        end-if



Michael Abootorab







Greg writes:

Having tried to keep my COBOL as portable as possible, and having never
really learned to use intrinsic, I have now been asked to CALL
INTRINSICs, and have a newbie question (not that other questions
weren't). I want something that will time out and return success or
failure, much like an FREAD will. I am looking at FWRITE and IOWAIT, and
possibly FDEVICECONTROL, but feel rather lost. Any help, off list or on,
would be welcome.