home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / MKPRG.ZIP / MAKEPRG.CMD < prev    next >
OS/2 REXX Batch file  |  1993-01-21  |  681b  |  16 lines
  1. /*********************************************************************\
  2.    MakePrg
  3.    (C) 1993 Thomas Christinck, Braunschweig      Compuserve 100031,41
  4. \*********************************************************************/
  5.  
  6. parse arg fullname
  7. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  8. call SysLoadFuncs
  9. exe=lastpos(".EXE", fullname)
  10. slash=lastpos("\", fullname)
  11. dir = substr(fullname,1,slash, slash-1)
  12. name = substr(fullname,slash+1, exe-slash-1)
  13. RetCode = SysCreateObject( "WPProgram", name, "<WP_DESKTOP>", "EXENAME="fullname";STARTUPDIR="dir)
  14. if RetCode = 0 then say "The programobject "name" could not be created"
  15.                else say "OK."
  16.