Search code examples
openedgeprogress-4gl

Access temp-table "Label" attribute in Progress Openedge

I'm looking for a way to access the table LABEL value "Customer Information" from the following temp-table definition:

/* Define the temp-table */
DEFINE TEMP-TABLE ttCustomer LABEL "Customer Information"
    FIELD CustNum AS INTEGER
    FIELD CustName AS CHARACTER
    FIELD CustCity AS CHARACTER.

/* Access the label attribute */
DISPLAY ttCustomer:LABEL.

I've tried various flavors of the above and can't figure out the magic combo.

Solution

  • While the documentation does not indicate that a label can be defined, a temp-table can be given a label which is used in error messages. Which provides an opening to extracting the label:

    define temp-table tt label 'ttbar'
    field ii as int
    .

find tt where false.

catch e as progress.lang.error:

    message entry( 2, e:getMessage(1), ' ' ).

end catch.