home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 9 / amigaformatcd09.iso / coverdisks / subsdisk / subs.dms / subs.adf / dofile.LZX / dofile / extras / getdtyp.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-09-29  |  350 b   |  18 lines
  1. /*
  2. ** $VER: getdtyp.rexx 1.0 (2.1.96) Rolf Rotvel
  3. **
  4. ** Usage: rx getdtyp.rexx <file>
  5. */
  6. call addlib('rexxsupport.library', 0, -30, 0)
  7. call addlib('datatypes.library', 0, -30)
  8.  
  9. parse arg file
  10. if ~exists(file) then exit 10
  11.  
  12. say file||' -> '||filetype(file)
  13. exit
  14.  
  15. FILETYPE: procedure
  16. parse arg file
  17. return strip(translate(examinedt(file,,), '', '0'x))
  18.