home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / PRINTDEV.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-04  |  1KB  |  45 lines
  1. /*******************************************************************/
  2. /* PRINTDEV.CMD                                                    */
  3. /*                                                                 */
  4. /*******************************************************************/
  5.  
  6. parse upper arg serverId dummy
  7.  
  8. call LoadFuncs; /* Load DLL utility functions */
  9.  
  10. rc = NetEnum('printdev','\\ls3srv02','abc', 'STATUS')
  11.  
  12. if rc = '0' then do
  13.  do i=1 to abc.0
  14.   say abc.i
  15.  end
  16. end
  17. else do
  18.  say 'Error occured. Returncode from NetEnum() was: ' rc
  19. end
  20.  
  21. call DropFuncs
  22. exit 0
  23.  
  24. /*************************************************************/
  25. /* Load DLL Functions                                        */
  26. /*************************************************************/
  27. LoadFuncs:
  28.  
  29.  /* Load LS30UT.DLL functions */
  30.  call RxFuncAdd 'LoadLs30utFuncs', 'LS30UT', 'LoadLs30utFuncs'
  31.  call LoadLs30utFuncs
  32.  
  33. return
  34.  
  35. /*************************************************************/
  36. /* Drop DLL Functions                                        */
  37. /*************************************************************/
  38. DropFuncs:
  39.  
  40.  /* Drop LS30UT.DLL functions */
  41.  call DropLs30utFuncs
  42.  
  43. return
  44.  
  45.