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.