Example 1: Disable fields dynamically

FUNCTION input_customer()
  DEFINE custid INTEGER
  DEFINE custname CHAR(10)
  INPUT BY NAME custid, custname 
    ON ACTION enable 
      CALL DIALOG.setFieldActive("custid",1)
    ON ACTION disable 
      CALL DIALOG.setFieldActive("custid",0)
  END INPUT
END FUNCTION