Try OpenEdge Now
skip to main content
Programming Interfaces
External Program Interfaces : System Clipboard : Multiple-item data transfers : Multiple-item transfer example
 
Multiple-item transfer example
The i-clpmui.p procedure demonstrates the essential elements of a multiple-item data transfer. It implements a basic data-based Copy operation using the customer table of the sports2000 database. You can test the result by running the procedure and pasting the result into a window system editor like Notepad or Wordpad in Windows.
i-clpmul.p
CLIPBOARD:MULTIPLE      = TRUE.
CLIPBOARD:ITEMS-PER-ROW = 11.

FOR EACH Customer NO-LOCK:
  CLIPBOARD:VALUE = STRING(Customer.CustNum).
  CLIPBOARD:VALUE = Customer.Name.
  CLIPBOARD:VALUE = Customer.Address.
  CLIPBOARD:VALUE = Customer.Address2.
  CLIPBOARD:VALUE = Customer.City.
  CLIPBOARD:VALUE = Customer.State.
  CLIPBOARD:VALUE = Customer.PostalCode.
  CLIPBOARD:VALUE = Customer.Country.
  CLIPBOARD:VALUE = Customer.Phone.
  CLIPBOARD:VALUE = STRING(Customer.Balance).
  CLIPBOARD:VALUE = STRING(Customer.CreditLimit).
END.

CLIPBOARD:MULTIPLE = FALSE.