home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / viewz2.zip / VIEWZ.CMD < prev    next >
OS/2 REXX Batch file  |  1993-07-26  |  458b  |  23 lines
  1. /* VREXX file dialog front end for VIEW */
  2.  
  3. '@echo off'
  4. call RxFuncAdd 'VInit', 'VREXX', 'VINIT'
  5. initcode = VInit()
  6. if initcode = 'ERROR' then signal CLEANUP
  7.  
  8. signal on failure name CLEANUP
  9. signal on halt name CLEANUP
  10. signal on syntax name CLEANUP
  11.  
  12. call VDialogPos 10, 50
  13. button = VFileBox('Pick a file...', 'c:\os2\book\*.inf', 'file')
  14. if button = "OK" then do
  15.   view file.vstring
  16.  
  17. /* end of CMD file */
  18.  
  19. CLEANUP:
  20.    call VExit
  21.  
  22. exit
  23.