;T4.2-1
;Please do not remove the preceeding version line
.TITLE	DTRFND	VAX Datatrieve User Function Definitions
;+++++++++++++++++++++++++++++++++++++++++++++++++++
;
;     F U N C T I O N    D E F I N I T I O N S
;
;---------------------------------------------------

.PSECT	FND,NOWRT,SHR,PIC,2

.LIBRARY /DTR$LIBRARY:DTRFNLB/

.LIBRARY /SYS$LIBRARY:STARLET/

;.SHOW EXPANSIONS

$DSCDEF
$DTR$FUN_INIT


; FN$GET_SYMBOL - Get symbol string
;
; output is a string descriptor
; input is a string descriptor
;


$DTR$FUN_DEF FN$GET_SYMBOL, LIB$GET_SYMBOL, 2
    $DTR$FUN_OUT_ARG  TYPE = FUN$K_STATUS
    $DTR$FUN_NOOPTIMIZE
    $DTR$FUN_IN_ARG  TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1
    $DTR$FUN_IN_ARG  TYPE = FUN$K_TEXT                                  , OUT_PUT = TRUE
$DTR$FUN_END_DEF

; FN$BABY_ED - "Baby" editor
;
; output is a string
; input is a string
;		long
;		long
;		long
;		long


$DTR$FUN_DEF FN$BABY_ED, BABY_ED, 6
    $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_TEXT, OUT_PUT = TRUE
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 2
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 3
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 4
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 5
    $DTR$FUN_NOOPTIMIZE
    $DTR$FUN_HEADER  HDR = <->
    $DTR$FUN_EDIT_STRING  ^\X(1716)\
$DTR$FUN_END_DEF

; FN$CONVERT_STR - Converts between data types
;
; output is a string
; input is a string
;	     string


$DTR$FUN_DEF FN$CONVERT_STR, CONVERT_STR, 3
    $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_TEXT, OUT_PUT = TRUE
    $DTR$FUN_IN_ARG  TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 2
    $DTR$FUN_NOOPTIMIZE
    $DTR$FUN_HEADER  HDR = <->
$DTR$FUN_END_DEF

; FN$LOV - Converts between data types
;
; output is a string
; input is a string
;	     string


$DTR$FUN_DEF FN$LOV, LOV, 9
    $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_TEXT, OUT_PUT = TRUE
    $DTR$FUN_IN_ARG  TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 2
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 3
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 4
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 5
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 6
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 7
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 8
    $DTR$FUN_NOOPTIMIZE
    $DTR$FUN_HEADER  HDR = <->
    $DTR$FUN_EDIT_STRING  ^\X(1716)\
$DTR$FUN_END_DEF

; FN$OCTAL - Octal string
;
; output is a fixed length string
; input is a longword
;


$DTR$FUN_DEF FN$OCTAL, OTS$CVT_L_TO, 2
    $DTR$FUN_OUT_ARG  TYPE = FUN$K_STATUS
    $DTR$FUN_EDIT_STRING  ^\X(8)\
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 1
    $DTR$FUN_IN_ARG  TYPE = FUN$K_TEXT, ALL_LEN = 8    , OUT_PUT = TRUE
$DTR$FUN_END_DEF

; FN$FMS_SWAP - Swap FMS keys
;
; output is STATUS
; input is a LONG
;	     LONG


$DTR$FUN_DEF FN$FMS_SWAP, SWAP_FMS_KEYS, 4
    $DTR$FUN_OUT_ARG TYPE = FUN$K_STATUS
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_W, ORDER = 1
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_W, ORDER = 2
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_W, ORDER = 3
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_W, ORDER = 4
    $DTR$FUN_NOOPTIMIZE
    $DTR$FUN_NOVALUE
    $DTR$FUN_HEADER  HDR = <->
$DTR$FUN_END_DEF

; FN$BUILD_RPT - Builds a DECReporter report
;
; input is a string giving the domain name

;$DTR$FUN_DEF FN$BUILD_REPORT, BUILD_REPORT, 1
;    $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_NOOPTIMIZE
;    $DTR$FUN_HEADER  HDR = <->
;$DTR$FUN_END_DEF


$DTR$FUN_FINI

.END