Define a field in a student record that sets a default value for
       tuition owed at registration.

       09 TUITION_DUE PIC Z(4)9.99
          EDIT_STRING IS $$$,$$$.99
          DEFAULT VALUE IS 4800.

       Define a date field with the default value of the day you store
       the record:

       03 DATE_IN USAGE DATE DEFAULT "TODAY".