!TITLE UINFS interface procedures

!             The following procedures call
%EXTERNAL %STRING(255) %FN %SPEC  UINFS(%INTEGER Function)

!< S# owner
!%SYSTEM %STRING(6) %FN %SPEC owner
!>
%SYSTEM %STRING(6) %FN owner
   %RESULT = UINFS(1)
%END

!< S# delivery
!%SYSTEM %STRING(255) %FN %SPEC delivery
!>
%SYSTEM %STRING(255) %FN delivery
   %RESULT = UINFS(2)
%END

!< S# start time
!%SYSTEM %STRING(8) %FN %SPEC start time
!>
%SYSTEM %STRING(8) %FN start time
   %RESULT = UINFS(3)
%END

!< S# prompt text
!%SYSTEM %STRING(15) %FN %SPEC prompt text
!>
%SYSTEM %STRING(15) %FN prompt text
   %RESULT = UINFS(4)
%END

!< S# active dir
!%SYSTEM %STRING(31) %FN %SPEC active dir
!>
%SYSTEM %STRING(31) %FN active dir
   %RESULT = UINFS(5)
%END

!< S# SS version
!%SYSTEM %STRING(255) %FN %SPEC SS version
!>
%SYSTEM %STRING(255) %FN SS version
   %RESULT = UINFS(6)
%END

!< S# surname
!%SYSTEM %STRING(255) %FN %SPEC surname
!>
%SYSTEM %STRING(255) %FN surname
   %RESULT = UINFS(6)
%END

!< S# fault output
!%SYSTEM %STRING(31) %FN %SPEC fault output
!>
%SYSTEM %STRING(31) %FN fault output
   %RESULT = UINFS(8)
%END

!< S# funds holder
!%SYSTEM %STRING(6) %FN %SPEC funds holder
!>
%SYSTEM %STRING(6) %FN funds holder
   %RESULT = UINFS(9)
%END

!< S# ocp type
!%SYSTEM %STRING(4) %FN %SPEC ocp type
!>
%SYSTEM %STRING(4) %FN ocp type
   %RESULT = UINFS(10)
%END

!< S# job name
!%SYSTEM %STRING(8) %FN %SPEC job name
!>
%SYSTEM %STRING(8) %FN job name
   %RESULT = UINFS(11)
%END

%END %OF %FILE

!>