home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor2.zip / DISK_10 / IMAGE9.ZIP / pmdraw.cmd < prev    next >
OS/2 REXX Batch file  |  1993-07-09  |  2KB  |  44 lines
  1. /*****************************************************************************
  2.  *                              PMDRAW Front-End                             *
  3.  *                     CORE Development (CORE at WATSON)                     *
  4.  *****************************************************************************
  5.  *                    Licensed Materials-Property of IBM                     *
  6.  *               5604-472 (c) Copyright IBM Corporation, 1993                *
  7.  *                           All rights reserved.                            *
  8.  *                  US Government Users Restricted Rights -                  *
  9.  *                 Use, duplication or disclosure restricted                 *
  10.  *                by GSA ADP Schedule Contract with IBM Corp.                *
  11.  ****************************************************************************/
  12. /*---------------------------------------*/
  13. /* Save the state of current environment */
  14. /*---------------------------------------*/
  15. call setlocal
  16.  
  17. /*-----------------------------------------------------*/
  18. /* Register RxCouInfo function contained in COUENV.DLL */
  19. /* so that it may be used in the exec                  */
  20. /*-----------------------------------------------------*/
  21. call RxFuncAdd 'RxCouInfo', 'COUENV', 'RxCouInfo'
  22.  
  23. /*---------------------------*/
  24. /* Get Remote Directory Spec */
  25. /*---------------------------*/
  26. RemoteDir=RxCouInfo('GET', 'REMOTE')
  27. if right(RemoteDir, 1)<>'\' then RemoteDir = RemoteDir'\'
  28.  
  29. /*--------------------------------------------------*/
  30. /* Change to remote PMDRAW directory and run PMDRAW */
  31. /*--------------------------------------------------*/
  32. call directory RemoteDir'PMDRAW'
  33. '@pmdraw.exe'
  34.  
  35. /*---------------------------------------------------------*/
  36. /* The following code will be executed when the executable */
  37. /* terminates....                                          */
  38. /*---------------------------------------------------------*/
  39. /*-------------------------------------------------*/
  40. /* Restore state of original environment then exit */
  41. /*-------------------------------------------------*/
  42. call endlocal
  43. exit
  44.