FUNCTION extract_value(criterio, campo)

    DEFINE criterio, campo VARCHAR(500)
    DEFINE tok, tok2 base.StringTokenizer
    DEFINE token, VALUE, token2 VARCHAR(200)
    DEFINE idx INTEGER

    LET tok = base.StringTokenizer.create(criterio, " ")
    LET value = ""
    LET campo = '*',campo,'*'
    LET idx = 1
    
    WHILE tok.hasMoreTokens()
        LET token = tok.nextToken()
        
        -- Verifica si el token comienza con el campo
        IF token MATCHES campo THEN

            LET tok2 = base.StringTokenizer.create(token, "=")

            WHILE tok2.hasMoreTokens()
                LET token2 = tok2.nextToken()
                DISPLAY token2
                
                IF idx = 2 THEN 

                    LET VALUE = token2
                    EXIT WHILE 

                END IF 

                LET idx = idx + 1
                
            END WHILE 

        END IF
    END WHILE

    
    DISPLAY VALUE 
    RETURN VALUE

END FUNCTION