home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / cpptutor / cpptutor.arj / MAKED.CMD < prev    next >
Encoding:
Text File  |  1993-11-12  |  598 b   |  33 lines
  1. /*  rexx program to make an object on the desktop */
  2.  
  3. /* check to see if Sys REXX functions
  4.    available.  If not, make it available.        */
  5.  
  6. Parse Arg auddest
  7.  
  8. result=RxFuncQuery(SysCreateObject)
  9. if result=1 then
  10. do
  11.   call RxFuncAdd 'SysCreateObject','RexxUtil','SysCreateObject'
  12. end
  13.  
  14. result=RxFuncQuery(SysMkDir)
  15. if result=1 then
  16. do
  17.   call RxFuncAdd 'SysMkDir','RexxUtil','SysMkDir'
  18. end
  19.  
  20. result=RxFuncQuery(SysCls)
  21. if result=1 then
  22. do
  23.   call RxFuncAdd 'SysCls','RexxUtil','SysCls'
  24. end
  25.  
  26.  
  27. say "Got arg " auddest
  28. rc = SysMkDir(auddest)
  29.  
  30. say "rc is " rc
  31.  
  32. Return rc
  33.