home *** CD-ROM | disk | FTP | other *** search
- /*
- ***********************************************************************
- * WARNING * WARNING * WARNING * WARNING * WARNING * WARNING * WARNING *
- ***********************************************************************
- IBM HAS DEDICATED THIS PROGRAM TO THE PUBLIC AND CLAIMS NO RIGHTS
- AND PROVIDES NO WARRANTIES WHATSOEVER. IBM PROVIDES THIS PROGRAM
- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED,
- INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
- MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
- ***********************************************************************
- * WARNING * WARNING * WARNING * WARNING * WARNING * WARNING * WARNING *
- ***********************************************************************
-
- Rexx Command File for Alternate Restore Database Utility
-
- This command file is called by an alternate restore.exe that
- intercepted the Database Manager call to the OS/2 Restore
- (C:\OS2\RESTORE.EXE) using the same parameters passed in by the
- Database Manager.
-
- This command file must be in the current directory that contains the
- intercept alternate restore.exe (any directory in the PATH, suggest \SQLLIB).
-
- The say '...' rexx commands lines can be removed from this file without
- affecting the execution, there will be no screen comments.
-
- The user of this command file is responsible for verifying any changes
- made to this file. SEE WARNING!
-
- Input parameters: drive D:\path\*.* /s
-
- */
-
- arg drivei dbdir option1 option2
- say ''
- say 'SQLDREST.CMD' drivei dbdir option1 option2
- say ''
-
- /********************************************************/
- /* SELECT A METHOD TO DO RESTORE BY MOVING COMMENT LINE */
- /********************************************************/
-
- /* METHOD 1. IS SELECTED ......................................................
-
- RESTORE THE DATABASE AS DBM DOES CURRENTLY
-
- MOVE THIS 'COMMENT LINE' BEFORE 'C:\OS2\RESTORE.EXE ...' LINE TO SELECT, OR */
-
-
- 'C:\OS2\RESTORE.EXE' drivei dbdir option1 option2
-
-
- /* MOVE 'COMMENT LINE' BEFORE THIS LINE TO DESELECT METHOD 1................ */
-
-
-
- /* METHOD 2. ..................................................................
-
- RESTORE THE DATABASE FROM INPUT DRIVE, BUT ALSO USE XCOPY TO COPY FROM MEDIA
-
- BEGIN: 1. RESTORE FROM DISKETTE ONLY THOSE FILE NEEDED TO FOOL DBM.
-
- 2. DBM CREATES SQLxxxxx.UIF DIR DURING BACKUP USES DURING RESTORE
-
- 3. OS/2 BACKUP.EXE CREATES BACKUP.001 AND CONTROL.001 DURING BACKUP
- USES DURING RESTORE
-
- 4. DBM CHECKS SQLxxxxx.UIF DIR AND CONTROL.001 FILE DURING RESTORE
-
- END: MOVE 'COMMENT LINE' AFTER HERE TO SELECT ALTERNATE METHOD
-
-
- drivec = FILESPEC("drive", dbdir)
- pathc = FILESPEC("path", dbdir)
- namec = "SQL00001.*"
- dbdirc = drivec||pathc||namec
- 'C:\OS2\RESTORE.EXE' drivei dbdirc option1 option2
- 'XCOPY E:\*.*' dbdir '/s/e'
-
-
- MOVE THIS 'COMMENT LINE' AFTER 'END: MOVE ... LINE' TO SELECT METHOD 2.., OR */
-
- /* MOVE 'COMMENT LINE' BEFORE THIS LINE TO DESELECT METHOD 2................ */
-
-
-
- /* METHOD 3. ..................................................................
-
- RESTORE THE DATABASE FROM INPUT DRIVE, BUT ALSO USE _____ TO COPY FROM MEDIA
-
- BEGIN: 1. RESTORE FROM DISKETTE ONLY THOSE FILE NEEDED TO FOOL DBM.
-
- 2. DBM CREATES SQLxxxxx.UIF DIR DURING BACKUP USES DURING RESTORE
-
- 3. OS/2 BACKUP.EXE CREATES BACKUP.001 AND CONTROL.001 DURING BACKUP
- USES THEM DURING RESTORE
-
- 4. DBM CHECKS SQLxxxxx.UIF DIR AND CONTROL.001 FILE DURING RESTORE
-
- 5. USER PROVIDED PROGRAM CAN NOW BE EXECUTED HERE
-
- END: MOVE 'COMMENT LINE' AFTER HERE TO SELECT ALTERNATE METHOD
-
-
- drivec = FILESPEC("drive", dbdir)
- pathc = FILESPEC("path", dbdir)
- namec = "SQL00001.*"
- dbdirc = drivec||pathc||namec
- 'C:\OS2\RESTORE.EXE' drivei dbdirc option1 option2
- say '_USER_PROGRAM_HERE_'
-
-
- MOVE THIS 'COMMENT LINE' AFTER 'END: MOVE ... LINE' TO SELECT METHOD 3.., OR */
-
- /* MOVE 'COMMENT LINE' BEFORE THIS LINE TO DESELECT METHOD 3................ */
-
-
- exit RC