home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / RXCDCDB.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-25  |  2KB  |  34 lines
  1. /****************************************************************************/
  2. /* REXX LAN Server 3.0 XCOPY DCDB restore procedure RXCDCDB.CMD             */
  3. /*                                                                          */
  4. /* The following parameters are required                                    */
  5. /*                                                                          */
  6. /*  copytype  The extent of the xcopy option. Either ALL or CHANGES only    */
  7. /*  landrive  The IBMLAN drive like for example C:                          */
  8. /*  backpath  The backup path for XCOPY like X:\BACKUP\DEPT01DC             */
  9. /*                                                                          */
  10. /****************************************************************************/
  11.  
  12. Parse Upper Arg copytype landrive backpath
  13.  
  14. SELECT
  15.  WHEN copytype='ALL'     THEN XC_OPT = '/S /E';
  16.  WHEN copytype='CHANGES' THEN XC_OPT = '/S /E /M';
  17.  OTHERWISE
  18.   EXIT 9
  19. END
  20.  
  21. root = landrive || '\IBMLAN\'
  22.  
  23. 'XCOPY ' backpath||'\DCDB\APPS\*.*' root || 'DCDB\APPS\*.* ' XC_OPT
  24. 'XCOPY ' backpath||'\DCDB\DATA\*.*' root || 'DCDB\DATA\*.* ' XC_OPT
  25. 'XCOPY ' backpath||'\DCDB\DEVICES\*.*' root || 'DCDB\DEVICES\*.* ' XC_OPT
  26. 'XCOPY ' backpath||'\DCDB\FILES\*.*' root || 'DCDB\FILES\*.* ' XC_OPT
  27. 'XCOPY ' backpath||'\DCDB\LISTS\*.*' root || 'DCDB\LISTS\*.* ' XC_OPT
  28. 'XCOPY ' backpath||'\DCDB\PRINTERS\*.*' root || 'DCDB\PRINTERS\*.* ' XC_OPT
  29. 'XCOPY ' backpath||'\DCDB\USERS\*.*' root || 'DCDB\USERS\*.* ' XC_OPT
  30. 'XCOPY ' backpath||'\LOGS\*.*' root || 'LOGS\*.* ' XC_OPT
  31.  
  32. exit 0
  33.  
  34.