home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmmk100.zip / PMPFOLD.CMD < prev    next >
OS/2 REXX Batch file  |  1995-11-06  |  1KB  |  38 lines
  1. /* PM Make for OS/2 Install Utility */
  2. /* !!!!! DO NOT RUN ON ITS OWN !!!!! */
  3. '@Echo Off'
  4. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6. Signal On Failure Name FAILURE
  7. Signal On Halt Name HALT
  8. Signal On Syntax Name SYNTAX
  9. Call SysCls
  10. Say 'Please Wait'
  11. arg directory
  12. say directory
  13. type = 'WPProgram'
  14. title = 'PM Make'
  15. parms = 'MINWIN=DESKTOP;CCVIEW=YES;PROGTYPE=PM;EXENAME='directory'\PMMAKE.EXE;STARTUPDIR='directory';OBJECTID=<PMMAKE>;NOPRINT=YES;'
  16.  result = SysCreateObject('WPFolder','PM Make for OS/2','<WP_DESKTOP>','OBJECTID=<PMMKFOLD>','Replace')
  17.     if result = 1 then
  18.     Say 'Created Folder.'
  19.     result = SysCreateObject(type,title,'<PMMKFOLD>', parms,'Replace')    
  20.         if result = 1 then        
  21.         Say 'Created Program.'
  22.     exit
  23.  
  24. Say 'ERROR: Unable to create objects. Installation cancelled.'
  25. Exit
  26.  
  27. FAILURE:
  28. Say 'ERROR:- Installation failed.'
  29. Signal DONE
  30. HALT:
  31. Say 'ERROR:- Installation failed.'
  32. Signal DONE
  33. SYNTAX:
  34. Say 'ERROR:- Installation failed.'
  35. Signal DONE
  36. DONE:
  37. Exit
  38.