home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / RXCRIPL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-25  |  1KB  |  32 lines
  1. /****************************************************************************/
  2. /* REXX LAN Server 3.0 XCOPY RIPL restore procedure RXCRIPL.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\RIPLSRV              */
  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||'\RPLUSER\*.*' root||'RPLUSER\*.* ' XC_OPT
  24. 'XCOPY ' backpath||'\RPL\FITS\*.*' root||'RPL\FITS\*.* '  XC_OPT
  25. 'XCOPY ' backpath||'\RPL\IBMCOM\*.*' root||'RPL\IBMCOM\*.* ' XC_OPT
  26. 'XCOPY ' backpath||'\RPL\IBMLAN\*.*' root||'RPL\IBMLAN\*.* ' XC_OPT
  27. 'XCOPY ' backpath||'\RPL\MACHINES\*.*' root||'RPL\MACHINES\*.* ' XC_OPT
  28. 'XCOPY ' backpath||'\DCDB\IMAGES\*.DEF' root||'DCDB\IMAGES\*.DEF ' XC_OPT
  29.  
  30. exit 0
  31.  
  32.