SET() {
    // 再構築するROWIDのしきい値
    $CONST_ROWID_THRESHOLD = 1900000000;
    // データベース名(引数が未指定の場合の値を指定)
    $VAR_DB_NAME := "SALES";
    // テーブル名(引数が未指定の場合の値を指定)
    $VAR_TABLE_NAME := "受注データ";
}

CONNECT($VAR_DB_NAME) {
}

SET_FROM_QUERY() {
    // 最大ROWIDを取得する
    $VAR_MAX_ROWID = SELECT MAX(ROWID) FROM ${VAR_TABLE_NAME};
}

PRINT() {
    CONCAT($VAR_TABLE_NAME, " MAXIMUM ROWID: ", $VAR_MAX_ROWID);
}

CASE {
    WHEN ($VAR_MAX_ROWID >= $CONST_ROWID_THRESHOLD) {
        // 最大ROWIDがしきい値を超えたら実行する
        PRINT() {
            "START COMPACTION TABLE"
        }

        SQL($_SQL_AUTO_COMMIT_OFF) {
            // 簡易リビルドをSQLで実行する
            COMPACTION TABLE ${VAR_TABLE_NAME};
        }
}
    ELSE {
    }
}

SET() {
    // 再構築する断片率
    $CONST_FRAGMENTATION_THRESHOLD = 50;
    // データベース名(引数が未指定の場合の値を指定)
    $VAR_DB_NAME := "SALES";
    // テーブル名(引数が未指定の場合の値を指定)
    $VAR_TABLE_NAME := "受注データ";
}

CONNECT($VAR_DB_NAME) {
}

SET_FROM_QUERY() {
    // 最大ROWIDと件数から断片率を計算する
    $VAR_FRAGMENTATION_RATE = SELECT 100 - TRUNC(COUNT(*) / MAX(ROWID) * 100) FROM ${VAR_TABLE_NAME};
}

PRINT() {
    CONCAT($VAR_TABLE_NAME, " FRAGMENTATION RATE: ", $VAR_FRAGMENTATION_RATE);
}

CASE {
    WHEN ($VAR_FRAGMENTATION_RATE >= $CONST_FRAGMENTATION_THRESHOLD) {
        // 断片率がしきい値以上だったら実行する

        PRINT() {
            "START REBUILD TABLE"
        }

        SQL($_SQL_AUTO_COMMIT_OFF) {
            // 完全リビルドをSQLで実行する
            REBUILD TABLE ${VAR_TABLE_NAME};
        }
    }

    ELSE {
    }
}

SET() {
    // 再構築する断片率
    $CONST_FRAGMENTATION_THRESHOLD = 50;
    // データベース名(引数が未指定の場合の値を指定)
    $VAR_DB_NAME := "SALES";
}
SESSION_CONNECT ($VAR_DB_NAME) {
    SET_CURSOR() {
        // システムテーブルからテーブルリストを取得する
        @VAR_ALL_TABLES(name) = SELECT table_name FROM __all_tables__ WHERE assortment='table';
    }

    FOREACH (@VAR_ALL_TABLES) {
        SET_FROM_QUERY() {
            // 最大ROWIDと件数から断片率を計算する
            $VAR_FRAGMENTATION_RATE = SELECT 100 - TRUNC(NVL(COUNT(*) / MAX(ROWID), 1) * 100) FROM ${VAR_ALL_TABLES_name};
        }
        PRINT() {
            CONCAT($VAR_ALL_TABLES_name, " FRAGMENTATION RATE: ", $VAR_FRAGMENTATION_RATE);
        }

        CASE {
            WHEN ($VAR_FRAGMENTATION_RATE >= $CONST_FRAGMENTATION_THRESHOLD) {
                // 断片率がしきい値以上だったら実行する
                PRINT() {
                    "START REBUILD TABLE"
                }

                SQL($_SQL_AUTO_COMMIT_OFF) {
                    // 完全リビルドをSQLで実行する
                    REBUILD TABLE ${VAR_ALL_TABLES_name};
                }

            }

            ELSE {
            }

        }

    }
}