!TITLE UINFI interface procedures

!!           The following procedures call
%EXTERNAL %INTEGER %FN %SPEC  UINFI(%INTEGER Function)

!< S# SS own fsys
!   File system number
!%SYSTEM %INTEGER %FN %SPEC  SS own fsys
!>
%SYSTEM %INTEGER %FN  SS own fsys
   %RESULT = UINFI(1)
%END

!< S# SS reason
!   foreground = 1
!   batch      = 2
!   obeyfile   = 3
!%SYSTEM %INTEGER %FN %SPEC  SS reason
!>
%SYSTEM %INTEGER %FN  SS reason
   %RESULT = UINFI(2)
%END

!< S# SS users
!   sum of intective+batch users (But not system processes)
!%SYSTEM %INTEGER %FN %SPEC  SS users
!>
%SYSTEM %INTEGER %FN  SS users
   %RESULT = UINFI(3)
%END

!< S# SS a dir inf
!   address of table of information from Director
!   (uses format DIR INF F)
!%SYSTEM %INTEGER %FN %SPEC  SS a dir inf
!>
%SYSTEM %INTEGER %FN  SS a dir inf
   %RESULT = UINFI(10)
%END

!< S# SS terminal width
!   no of chars per line set by all comms routines.
!%SYSTEM %INTEGER %FN %SPEC  SS teminal width
!>
%SYSTEM %INTEGER %FN  SS terminal width
   %RESULT = UINFI(15)
%END

!< S# SS brackets
!   non-0 means process is in bracket mode
!%SYSTEM %INTEGER %FN %SPEC  SS brackets
!>
%SYSTEM %INTEGER %FN  SS brackets
   %RESULT = UINFI(16)
%END

!< S# SS jcl cli
!   non-0 means using job control interpreter
!%SYSTEM %INTEGER %FN %SPEC  SS jcl cli
!>
%SYSTEM %INTEGER %FN  SS jcl cli
   %RESULT = UINFI(18)
%END

!< S# SS scarce
!   non-0 means resources are scarce
!%SYSTEM %INTEGER %FN %SPEC  SS scarce
!>
%SYSTEM %INTEGER %FN  SS scarce
   %RESULT = UINFI(19)
%END

!< S# SS funds
!   funds left in pence
!%SYSTEM %INTEGER %FN %SPEC  SS funds
!>
%SYSTEM %INTEGER %FN  SS funds
   %RESULT = UINFI(20)
%END

!< S# SS charge
!   charge for this session in pence
!%SYSTEM %INTEGER %FN %SPEC  SS charge
!>
%SYSTEM %INTEGER %FN  SS charge
   %RESULT = UINFI(21)
%END

!< S# SS inhibit mess
!   non-0 means messages are inhibited
!%SYSTEM %INTEGER %FN %SPEC  SS inhibit mess
!>
%SYSTEM %INTEGER %FN  SS inhibit mess
   %RESULT = UINFI(22)
%END

%END %OF %FILE

!>