;
; ***************************************************************************
;
;	The following functions are added to Datatrieve to support various
;	Datatrieve procedures that report on the UAF and diskquotas.  The
;	NF$ prefix stands for Nightly Function.  The procedures that use
;	these functions were originally written for a system of DCL and
;	Datatrieve procedures that executed nightly to perform various
;	System Management tasks and to generate several reports.
;
;		NF$FAO
;		NF$BIT_TEST
;		NF$SET_SYMBOL
;		NF$SPAWN
;		NF$CHAR
;
;					05-MAY-1987 Ronald Kaltenbaugh
;


; NF$FAO - Convert longword argument to string via $FAO system service
;
; output is a string
; input is an output string descriptor
; an input string descriptor pointing to the FAO conversion mask,
; and the longword argument to convert.


$DTR$FUN_DEF NF$FAO, LIB$SYS_FAO, 4

        $DTR$FUN_OUT_ARG        TYPE=FUN$K_STATUS
        $DTR$FUN_IN_ARG         TYPE=FUN$K_DESC,  DTYPE=DSC$K_DTYPE_T, ORDER=1
        $DTR$FUN_IN_ARG         TYPE=FUN$K_NULL
        $DTR$FUN_IN_ARG         TYPE=FUN$K_TEXT,  OUT_PUT=TRUE
        $DTR$FUN_IN_ARG         TYPE=FUN$K_VALUE, DTYPE=DSC$K_DTYPE_L, ORDER=2

$DTR$FUN_END_DEF


; NF$BIT_TEST - Test specified integer argument bit
;
; output is a string
; input is an output string descriptor
; the longword bit number to test,
; and the longword argument whose bit it to be tested.


$DTR$FUN_DEF NF$BIT_TEST, FOR$BJTEST, 2

        $DTR$FUN_OUT_ARG        TYPE=FUN$K_VALUE, DTYPE=DSC$K_DTYPE_L
        $DTR$FUN_IN_ARG         TYPE=FUN$K_REF,   DTYPE=DSC$K_DTYPE_L, ORDER=1
        $DTR$FUN_IN_ARG         TYPE=FUN$K_REF,   DTYPE=DSC$K_DTYPE_L, ORDER=2

$DTR$FUN_END_DEF


; NF$SET_SYMBOL - LIB$SET_SYMBOL
;
;	Set a DCL symbol.
;
; no output
; inputs are string descriptors of the symbol and it's value.
;


$DTR$FUN_DEF NF$SET_SYMBOL, LIB$SET_SYMBOL, 2
	$DTR$FUN_OUT_ARG        TYPE = FUN$K_STATUS
	$DTR$FUN_NOVALUE
	$DTR$FUN_IN_ARG         TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1
	$DTR$FUN_IN_ARG         TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 2
$DTR$FUN_END_DEF


; NF$SPAWN - LIB$SPAWN
;
;	Spawn a subprocess.
;
; no output
;


$DTR$FUN_DEF NF$SPAWN, LIB$SPAWN, 1
	$DTR$FUN_OUT_ARG        TYPE = FUN$K_STATUS
	$DTR$FUN_NOVALUE
	$DTR$FUN_NOOPTIMIZE
	$DTR$FUN_IN_ARG         TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1
$DTR$FUN_END_DEF


; NF$CHAR - LIB$CHAR
;
;	Returns a character, given its ASCII value.
;


$DTR$FUN_DEF NF$CHAR, LIB$CHAR, 2
	$DTR$FUN_OUT_ARG        TYPE = FUN$K_STATUS
	$DTR$FUN_NOOPTIMIZE
	$DTR$FUN_IN_ARG         TYPE = FUN$K_TEXT, OUT_PUT = TRUE
	$DTR$FUN_IN_ARG         TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_BU, ORDER = 1
$DTR$FUN_END_DEF


;
; ***************************************************************************
;