FUNCTION integridad()
  DEFINE numero_msg INTEGER,
         bandera SMALLINT
         IF sqlca.sqlcode < 0 THEN
             LET numero_msg = sqlca.sqlcode
             CALL msg(numero_msg)
              DISPLAY numero_msg AT 23,70
            LET bandera = 1    
            SLEEP 2
            RETURN
        END IF
        RETURN bandera
END FUNCTION