home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST45.PRG < prev    next >
Encoding:
Text File  |  1989-10-02  |  748 b   |  35 lines
  1. ********************
  2.  
  3. FUNCTION Make_empty
  4.  
  5.    PARAMETERS _infield
  6.  
  7.    PRIVATE _qaz
  8.  
  9.    DO CASE
  10.    CASE TYPE("_infield") = "C"
  11.       RETURN(SPACE(LEN(_infield)))
  12.    CASE TYPE("_infield") = "N"
  13.       RETURN(VAL(STR(_infield - _infield))) 
  14.    CASE TYPE("_infield") = "D"
  15.       RETURN(CTOD("  /  /  "))
  16.    CASE TYPE("_infield") = "M"
  17.       RETURN("")
  18.    CASE TYPE("_infield") = "A"
  19.       IF !EMPTY(ALIAS())
  20.          FOR _qaz = 1 TO LEN(_infield)
  21.             _field = FIELD(_qaz)
  22.             IF !EMPTY(_field)
  23.                _infield[_qaz] = Make_empty(&_field.)
  24.             ELSE
  25.                EXIT
  26.             ENDIF
  27.          NEXT
  28.       ENDIF
  29.       RETURN("")
  30.    OTHERWISE
  31.       RETURN(.F.)
  32.    ENDCASE
  33.  
  34. * End of File
  35.