home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / mframe01.zip / wps.cmd < prev   
OS/2 REXX Batch file  |  2000-08-20  |  2KB  |  62 lines
  1. /* This file creates WPS objects on OS/2 */
  2.  
  3. SAY " "
  4. /* REXXUTIL laden */
  5. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  6. CALL sysloadfuncs
  7.  
  8. call SysCls
  9.  
  10. dest= DIRECTORY()
  11. say "Please enter the MusicFrame directory (default: " dest ") "
  12. pull dest
  13. if dest="" then dest= DIRECTORY()
  14.  
  15. /* Einen Ordner anlegen */
  16. klasse='WPFolder'
  17. titel='MusicFrame'
  18. ort='<WP_DESKTOP>'
  19. param='OBJECTID=<MUSICFRAME>'
  20. mode='fail'
  21. rc = SysCreateObject(klasse,titel,ort,param,mode)
  22.  
  23. /* Das Programmobjekt anlegen */
  24. klasse='WPProgram'
  25. titel='MusicFrame for Java'
  26. ort='<MUSICFRAME>'
  27. param='PROGTYPE=PM;EXENAME='dest'\mframe.cmd;STARTUPDIR='dest';PARAMETERS='dest';ICONFILE='dest'\mframe.ico'
  28. mode='fail'
  29. rc = SysCreateObject(klasse,titel,ort,param,mode)
  30.  
  31. /* Das Programmobjekt anlegen */
  32. klasse='WPProgram'
  33. titel='Java Viewer'
  34. ort='<MUSICFRAME>'
  35. param='PROGTYPE=PM;EXENAME='dest'\jview.cmd;STARTUPDIR='dest';PARAMETERS='dest';ICONFILE='dest'\jview.ico'
  36. mode='fail'
  37. rc = SysCreateObject(klasse,titel,ort,param,mode)
  38.  
  39. /* BMT-Formular */
  40. klasse='WPShadow'
  41. titel='bmtorder.frm'
  42. ort='<MUSICFRAME>'
  43. param='SHADOWID='dest'\bmtorder.frm'
  44. mode='fail'
  45. rc=SysCreateObject(klasse,titel,ort,param,mode)
  46.  
  47. /* Readme */
  48. klasse='WPShadow'
  49. titel='readme.txt'
  50. ort='<MUSICFRAME>'
  51. param='SHADOWID='dest'\readme.txt'
  52. mode='fail'
  53. rc=SysCreateObject(klasse,titel,ort,param,mode)
  54.  
  55. /* Feedback */
  56. klasse='WPShadow'
  57. titel='feedback.txt'
  58. ort='<MUSICFRAME>'
  59. param='SHADOWID='dest'\feedback.txt'
  60. mode='fail'
  61. rc=SysCreateObject(klasse,titel,ort,param,mode)
  62.