FUNCTION define_collapsible_group_style() DEFINE attdefs DICTIONARY OF STRING LET attdefs["collapsible"] = "yes" LET attdefs["backgroundColor"] = "lightBlue" CALL style_define("Group.collapsible", attdefs)END FUNCTION
-- If > 80, display as red, if > 60 display as orange, otherwise display as greenDISPLAY BY NAME rec.valueCALL f.setFieldStyle("value", IIF(rec.value > 80, "red", IIF (rec.value > 60, "orange", "green")))
INPUT BY NAME rec_customer.*, p_var ATTRIBUTES(UNBUFFERED, WITHOUT DEFAULTS) ... AFTER FIELD cust_name LET p_var = "[",rec.cust_name,"]" -- no need for DISPLAY BY NAME disp_var or DISPLAY disp_var1 TO field