• This is an old kind of COBOL bug:

    using bad datatype to hold integer:

    01 IDX PIC 9.

    PERFORM LBL VARYING IDX BY 1 UNTIL IDX > 10.

    Endless loop