;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$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


$DTR$FUN_FINI

.END