home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / BLANK.PRG < prev    next >
Text File  |  1990-10-22  |  812b  |  34 lines
  1. ***********
  2. * BLANK.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO BLANK WITH <exp> 
  7. * RETURN: Empty value of <exp any data type>.
  8. ***********
  9. PARAMETERS par1 
  10. CALL Trpass  WITH par1
  11. CALL Trexe   WITH TYPE("par1")
  12. CALL Trexe   WITH "BLANK"
  13. IF TYPE("par1") = "D"
  14.    DO Stod WITH tr_retc
  15. ENDIF
  16. CALL Trexe   WITH "TRRETCLEN"
  17. IF fox
  18.    DO CASE
  19.       CASE TYPE("par1") = "C"
  20.          PRIVATE tr_temp
  21.          tr_temp = SUBSTR(tr_retc,1,tr_retn)
  22.          RETURN (tr_temp)
  23.       CASE TYPE("par1") = "D"
  24.          RETURN (tr_retd)
  25.       CASE TYPE("par1") = "L"
  26.          RETURN (tr_retl)
  27.       CASE TYPE("par1") = "N"
  28.          RETURN (tr_retn)
  29.       OTHERWISE
  30.          RETURN ("")
  31.    ENDCASE
  32. ENDIF
  33. * eof atnext * 
  34.