home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perlref.zip / MAKEICON.CMD < prev    next >
OS/2 REXX Batch file  |  1996-08-07  |  1KB  |  36 lines
  1. /* $Id: MAKEICON.CMD, v 0010 Wed Aug  7 10:32:37 1996 TullyS $ */
  2. /*********************************************************************/
  3. /*                                                                   */
  4. /*                                                                   */
  5. /*********************************************************************/
  6.  
  7. Trace 'O'
  8. Address CMD
  9. '@ECHO OFF'
  10.  
  11. /*********************************************************************/
  12. /* Initialization                                                    */
  13. /*********************************************************************/
  14. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  15. Call sysloadfuncs
  16. exename = "VIEW.EXE"
  17. perlref = "PERLREF.INF"
  18.  
  19. instpath = DIRECTORY();
  20.  
  21. rc = SysFileTree(instpath||'\'perlref, 'find', 'F')
  22. If find.0 <> 0 then do
  23.    Call SysCreateObject 'WPProgram',exename,'<WP_DESKTOP>','OBJECTID=<PERLREF_VIEW>;EXENAME='exename';PROGTYPE=PM;PARAMETERS='perlref';STARTUPDIR='instpath,'R'
  24. End
  25.  
  26. Else do
  27.    Say "The Drive:\Path is incorrect."
  28. End
  29.  
  30. /*********************************************************************/
  31. /* Exit Program                                                      */
  32. /*********************************************************************/
  33. Endit:
  34. Exit 0
  35.  
  36.