01 Flaggor.
    05 Kung-Found-Switch PIC X VALUE 'N'.
        88 Kung-Found VALUE 'Y'.
**********************************************

MOVE 'N' TO Kung-Found-Switch

PERFORM VARYING KOLUMN-INDEX FROM 1 BY 1 UNTIL KOLUMN-INDEX > 8
    OR KUNG-FOUND
    SET RAD-INDEX TO 1
    SEARCH RAD
        WHEN RAD(KOLUMN-INDEX, RAD-INDEX)(2:1) = 'K'
        //DOSOMETHING
        SET KUNG-FOUND TO TRUE
    END-SEARCH
END-PERFORM