// Compile with options -a -n -l -m -n -w


*ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
*ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*º FUNC Name      : getRec
*º Author         : Gary Herbstman
*º Date           : Fri  11-09-1990  15:21:33
*º Last update    : Fri  11-09-1990  15:21:33
*º Programmer     : Gary Herbstman
*º Called from    :
*º Calls made to  :
*º Syntax         :
*º Parameters     : None.
*º Return Value   : an array filled with data from the current record.
*º Usage          : <A> array = getRec()
*º Notes          :
*º
*ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
*ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
FUNCTION    getRec()
    LOCAL   ary := {}
    LOCAL   nFcnt, nFnum

    nFcnt = fcount()

    FOR nFnum = 1 to nFcnt
        aAdd( ary, fieldGet( nFnum ) )
    NEXT

    RETURN ( ary )

*ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
*ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*º FUNC Name      : saveRec
*º Author         : Gary Herbstman
*º Date           : Fri  11-09-1990  15:34:20
*º Last update    : Fri  11-09-1990  15:34:20
*º Programmer     : Gary Herbstman
*º Called from    :
*º Calls made to  :
*º Syntax         :
*º Parameters     : <A> fieldArray
*º Return Value   : NIL
*º Usage          : saveRec( fieldArray )
*º Notes          :
*º
*ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
*ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
FUNCTION saveRec( ary )
    LOCAL   nFcnt, nFnum

    nFcnt = fcount()
    FOR nFnum = 1 to nFcnt
        ? nFnum, ary[nFnum]
        fieldPut( nFnum, ary[nFnum] )
    NEXT

    RETURN ( NIL )


*ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
*ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*º FUNC Name      : emptyRec
*º Author         : Gary Herbstman
*º Date           : Fri  11-09-1990  15:35:47
*º Last update    : Fri  11-09-1990  15:35:47
*º Programmer     : Gary Herbstman
*º Called from    :
*º Calls made to  :
*º Syntax         :
*º Parameters     : None.
*º Return Value   : <A> emptyArray
*º Usage          : emptyArray = blnkRec()
*º Notes          :
*º
*ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
*ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
FUNCTION emptyRec()
    LOCAL nFcnt, nFnum, nCurRec
    LOCAL ary := {}

    nCurRec = recno()
    nFcnt   = fcount()

    GO BOTTOM
    SKIP

    FOR nFnum = 1 to nFcnt
        aAdd( ary, fieldGet( nFnum ) )
    NEXT

    GOTO nCurRec

    RETURN ( ary )