FUNCTION seguridad(pusuario,pprograma)
  DEFINE pusuario,pprograma VARCHAR(50)

  
        SELECT a.usuario FROM seg0001 a,seg0005 b
         WHERE a.usuario =pusuario AND
               a.cod_perfil = b.cod_perfil AND
               b.programa = pprograma 
         IF STATUS = NOTFOUND THEN
            RETURN FALSE
         ELSE
            RETURN TRUE   
         END IF
END FUNCTION