{ include-file
argument &argument-name = "argument-value" } |
FOR EACH Customer NO-LOCK:
{r-fcust.i} {r-dcust.i} END. |
FORM Customer.CustNum Customer.Name LABEL "Customer Name"
Customer.Phone FORMAT "999-999-9999". |
DISPLAY Customer.CustNum Customer.Name Customer.Phone.
|
DEFINE VARIABLE var1 AS INTEGER NO-UNDO INITIAL 9.
DEFINE VARIABLE var2 AS DECIMAL NO-UNDO INITIAL 6.43. DEFINE VARIABLE var3 AS LOGICAL NO-UNDO INITIAL TRUE. /* any statements */ {r-show.i point-A var1 var2 var3} /* any statements */ |
MESSAGE "At" "{1}" "{2}" {2} "{3}" {3} "{4}" {4} "{5}" {5}.
|
MESSAGE At point-A var1 9 var2 6.43 var3 yes
|
FOR EACH Customer:
{r-cstord.i &frame-options = "CENTERED ROW 3 NO-LABEL"}. UPDATE Customer.CustNum Customer.Name Customer.Address Customer.Address2 Customer.City Customer.State Customer.PostalCode Customer.Phone Customer.CreditLimit WITH FRAME cust-ord. END. |
FORM "Cust #" AT 1 Customer.CustNum AT 10 SKIP(1)
Customer.Name AT 10 customer.Address AT 10 customer.Address2 AT 10 customer.City AT 10 Customer.State Customer.PostalCode SKIP(1) "Phone " AT 1 Customer.Phone FORMAT "999/999-9999" AT 10 "Max Crd" AT 1 Customer.CreditLimit AT 10 WITH FRAME cust-ord OVERLAY {&frame-options}. |
FORM {r-cust.f}.
|
Customer.CustNum
Customer.Name SKIP(2) Customer.State |
FOR EACH Customer NO-LOCK:
DISPLAY {r-cust.f} WITH 3 DOWN. END. |
abcde
|
DISPLAY LENGTH("{r-string.i}").
|