{GENERAL PURPOSE MACRO WHICH CAN BE USED AS A COMMAND LIKE DELETE_LTAB_ROW - IT ENTERS '' IN EVERY ROW IN THE COLUMN, THEN COPIES NEXT COLUMN DATA INTO DELETED COLUMN, THEN THE NEXT ETC}

define delete_ltab_column
 local this_row local no_cols local no_rows local write_col local read_col
  parameter ltab_name
  parameter ltab_col
  let no_cols (ltab_columns ltab_name)
  let no_rows (ltab_rows ltab_name)
  let this_row 1
  let write_col ltab_col
  let read_col (ltab_col + 1)
  loop
    loop
      write_ltab ltab_name this_row write_col ''
    exit_if (this_row >= no_rows)
      let this_row (this_row + 1)
    end_loop
    let this_row 1
  exit_if (write_col >= (no_cols + 1))
    loop
      write_ltab ltab_name this_row write_col (read_ltab ltab_name this_row read_col)
    exit_if (this_row >= no_rows)
      let this_row (this_row + 1)
    end_loop
    let write_col (write_col + 1)
    let read_col (read_col + 1)
  end_loop
end_define