home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a063 / 6.img / SAMPLE / APTSQL / CLRFD_1.FPL < prev    next >
Encoding:
Text File  |  1990-08-24  |  411 b   |  24 lines
  1. create apt proc clrfd_1() as
  2. begin
  3.     foreach f in $curform
  4.     begin
  5.  
  6.         /* Don't erase date or login fields */
  7.         if f:name != "date" and f:name != "login"
  8.         begin
  9.             /*
  10.             ** skip over trim fields,
  11.             ** set entry fields to NULL,
  12.             ** set choice fields to default.
  13.             */
  14.             if f:fldtype = 5
  15.                 continue
  16.             else if f:fldtype = 4
  17.                 f = NULL
  18.             else
  19.                 f = f:default
  20.         end
  21.     end
  22.     return
  23. end
  24.