foreach table $tables {
    set timeout 3600
    expect {
        ">" { sleep 1; send "TABLE $table; FORMAT 132 PACK\r" }
        timeout { errmsg "TABLE COMMAND PROMPT NOT FOUND FOR $table" }
    }
    expect {
        "COMMAND DISALLOWED DURING DUMP" { errmsg "TABLE: $table - DUMP IN PROGR
ESS" }
        "Directory is full" { errmsg "TABLE: $table - DIRECTORY IS FULL" }
        "UNKNOWN TABLE" { sleep 1; send "abort\r"; continue }
        "TABLE: $table" { send "" }
        timeout { errmsg "TABLE NAME NOT FOUND FOR $table" }
    }
    expect {
        "The first column" { sleep 1; send "LIS ALL\r" }
        timeout { errmsg "FIRST COLUMN NOT FOUND FOR $table" }
    }
    expect {
        "EMPTY TABLE" { sleep 1; continue }
        "TOP" { send "" }
        timeout { errmsg "TOP NOT FOUND FOR $table" }
    }
    expect {
        "BOTTOM" { sleep 1; send "quit all\r" }
        timeout { errmsg "BOTTOM NOT FOUND FOR $table" }
    }
}