/*--------------------------------------------------------------
   GF_LASTPOS: K.M. Howe 09-13-1995 (PUBLIC)

   <DESC>   Function to find the last position of a string
            in a string.</DESC>

   <RETURN> long: position in string</RETURN>
        
   <ARGS>   as_string: string to look in
            as_value: string to match </ARGS>

--------------------------------------------------------------*/
Long ll_Pos, ll_OldPos

ll_Pos = Pos( as_String, as_Value )
IF ll_Pos = 0 THEN RETURN ll_Pos

DO WHILE ll_Pos <> 0
   ll_OldPos = ll_Pos
   ll_Pos = Pos( as_String, as_Value, ll_Pos + 1 )
LOOP

RETURN ll_OldPos