Example 1: Ask the user to input an order number and customer number from the workstation and update the associated order header record:
REQUEST FIELDS(#ORDNUM #CUSTNO)
UPDATE FIELDS(#ORDNUM #CUSTNO) IN_FILE(ORDHDR) WITH_KEY(#ORDNUM)
Example 2: Ask the user to input an existing order number and a new order number at the workstation. Update the existing order header and all associated order lines to have the new order number:
DEFINE FIELD(#OLDORDNUM) REFFLD(#ORDNUM) LABEL('Existing order')
DEFINE FIELD(#NEWORDNUM) REFFLD(#ORDNUM) LABEL('New order')
REQUEST FIELDS(#OLDORDNUM #NEWORDNUM)
CHANGE FIELD(#ORDNUM) TO(#NEWORDNUM)
UPDATE FIELDS(#ORDNUM) IN_FILE(ORDHDR) WITH_KEY(#OLDORDNUM)
UPDATE FIELDS(#ORDNUM) IN_FILE(ORDLIN) WITH_KEY(#OLDORDNUM)
Example 3: Change the price (#PRICE) of all records in a nominated product category (#CAT) to $100.00:
CHANGE FIELD(#PRICE) TO(100.00)
UPDATE FIELDS(#PRICE) IN_FILE(PROMSTV1) WITH_KEY(#CAT)
Example 4: Increase the price (#PRICE) of all records in a nominated product category (#CAT) by $100.00:
SELECT FIELDS(#PRICE) FROM_FILE(PROMSTV1) WITH_KEY(#CAT)
CHANGE FIELD(#PRICE) TO('#PRICE + 100.00')
UPDATE FIELDS(#PRICE) IN_FILE(PROMSTV1)
ENDSELECT
Example 5: Reset all cost related fields in a nominated product category (#CAT):
GROUP_BY NAME(#XG_COST) FIELDS(#COST1 #COST2 #COST3 #COST4)
CHANGE FIELD(#XG_COST) TO(*DEFAULT)
UPDATE FIELDS(#XG_COST) IN_FILE(PROMSTV1) WITH_KEY(#CAT)
