!
! >>> COMPLETE.IMP <<<
!
! Procedures to call the completion handler in the currently selected
! input or output SCB.
!

!Revision history:

! 001 19-Jul-88 PSR Made complete output strip break character from buffer

%from IMP %include Formats, Handcall, Depio

!
! >> COMPLETE OUTPUT <<
!
%external %routine Complete Output %alias "3L_IMP_COMPLETE_OUTPUT"
   Call 1 ( Out SCB_Complete Handler, Addr(Out SCB) )
   Out SCB_Next = Out SCB_ThisB_Base  {001 remove extra byte from files}
%end

!
! >> COMPLETE INPUT <<
!
! Goodness knows when we'll ever find a use for this one!
!
%external %routine Complete Input %alias "3L_IMP_COMPLETE_INPUT"
   Call 1 ( In SCB_Complete Handler, Addr(In SCB) )
%end