INTOVF: PROCEDURE OPTIONS (MAIN);

    %INCLUDE LIB$INT_OVER;

    DECLARE DISABLE FIXED BINARY (31) INITIAL (0) STATIC READONLY;

    DECLARE (A,B) FIXED BINARY (7);


    ON FIXEDOVERFLOW PUT SKIP LIST ('    Overflow detected');

    A = 127;
    B = A + 2;
    PUT LIST ('In procedure MAIN');

    BEGIN;

        DECLARE OLD_IV FIXED BINARY (31);

        PUT SKIP LIST('In BEGIN block');
        /*
         * Disable recognition of integer overflow in this block
         */
        OLD_IV = LIB$INT_OVER (DISABLE);

        B = A + 2;

        CALL Q;

     Q: PROCEDURE;
            PUT SKIP LIST ('In procedure Q');
            B = A + 2;
            END Q;

        END /* Begin */;

    END INTOVF;