CREATE PROCEDURE SELECT_ALL_CHILD_OBJECTS (
    RKOD SMALLINT)
RETURNS (
    KOD SMALLINT,
    P_KOD SMALLINT,
    CHILDS SMALLINT,
    LEVELS SMALLINT,
    NAME VARCHAR( 100 ),
    ACCOUNT_EXPENS VARCHAR( 10 ))
AS
DECLARE VARIABLE CUR_KOD SMALLINT;
DECLARE VARIABLE CUR_P_KOD SMALLINT;
BEGIN
    FOR SELECT OBJ_ALL.KOD, OBJ_ALL.P_KOD, OBJ_ALL.CHILDS, OBJ_ALL.LEVELS,
            OBJ_ALL.NAME, OBJ_ALL.ACCOUNT_EXPENS /*╧┼╨┼┴╚╨└┼╠ ┬╤┼ ╬┴┌┼╩╥█*/ 
        FROM OBJECTS OBJ_ALL
        WHERE LEVELS <>  0 
        ORDER BY OBJ_ALL.KOD
        INTO :KOD, :P_KOD, :CHILDS, :LEVELS, :NAME, :ACCOUNT_EXPENS
    DO
    BEGIN
        CUR_KOD = :P_KOD;
        WHILE (NOT :CUR_KOD IS NULL) DO
        BEGIN
            SELECT O.KOD, O.P_KOD FROM OBJECTS O
            WHERE O.KOD = :CUR_KOD
            INTO :CUR_KOD, :CUR_P_KOD;
            IF (:CUR_KOD = :RKOD) THEN
            BEGIN
                CUR_KOD = NULL;
                SUSPEND;
            END
            ELSE
                CUR_KOD = :CUR_P_KOD;
        END
    END
END