home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Backup / Backup.zip / psnsg601.zip / DBEXIT.CMD < prev    next >
OS/2 REXX Batch file  |  1997-07-28  |  3KB  |  55 lines
  1. /* Rexx */
  2. /***************************************************************************/
  3. /* Benutzerausgang für Warp Server Backup/Restore-Datenbanksicherung       */
  4. /*                                                                         */
  5. /*      Copyright  1996  IBM Corp.                                         */
  6. /*-------------------------------------------------------------------------*/
  7. /* Übergebene Parameter:                                                   */
  8. /*   Complete         = 0 beim Beginn einer Sicherung                      */
  9. /*                    = 1 beim Ende einer Sicherung                        */
  10. /*                                                                         */
  11. /*   BkMethod         = Name der verwendeten Sicherungsmethode             */
  12. /*                                                                         */
  13. /*   BkpSet           = Name der Sicherungsgruppe, in der gesichert wird   */
  14. /*                                                                         */
  15. /*   Incremental      = 0 für eine Gesamtsicherung                         */
  16. /*                    = 1 für eine Teilsicherung                           */
  17. /*                                                                         */
  18. /*   Manual           = 0 für eine manuelle Sicherung                      */
  19. /*                    = 1 für eine automatische Sicherung                  */
  20. /***************************************************************************/
  21. Parse arg Complete' <'BkMethod'> <'BkpSet'>' Incremental Manual
  22. /*-------------------------------------------------------------------------*/
  23. /* Überprüfen der Markierung Complete, um festzustellen, ob dies der       */
  24. /* Beginn oder das Ende einer Sicherung ist                                */
  25. /*-------------------------------------------------------------------------*/
  26. If Complete = 0 Then Do
  27.    /*----------------------------------------------------------------------*/
  28.    /* Dies ist der Beginn einer Sicherung. Daher muß jetzt die             */
  29.    /* Sicherungsfunktion für die DB/2-Datenbank aufgerufen werden.         */
  30.    /*----------------------------------------------------------------------*/
  31.    /*----------------------------------------------------------------------*/
  32.    /* Durch Überprüfen der Sicherungsmethode (BkMethod) kann festgestellt  */
  33.    /* werden, ob dies eine Datenbanksicherung ist. Wenn dies zutrifft,     */
  34.    /* starten Sie den Datenbankmanager, und erstellen Sie die Sicherungs-  */
  35.    /* datei.                                                               */
  36.    /*----------------------------------------------------------------------*/
  37.    If BkMethod = "Datenbank" Then Do
  38.       '@md c:\dbback'
  39.       '@db2 start database manager'
  40.       '@db2 backup database sample to c:\dbback'
  41.    End
  42. End /* enddo */
  43. Else Do
  44.    /*----------------------------------------------------------------------*/
  45.    /* Die Sicherung ist beendet. Daher kann nun die Datenbanksicherungs-   */
  46.    /* datei gelöscht werden (vorausgesetzt, es handelt sich tatsächlich    */
  47.    /* um eine Datenbanksicherung).                                         */
  48.    /*----------------------------------------------------------------------*/
  49.    If BkMethod = "Datenbank" Then Do
  50.       Call RxFuncAdd 'SysDestroyObject', 'RexxUtil', 'SysDestroyObject'
  51.       SysDestroyObject("c:\dbback")
  52.    End
  53. End
  54. return 0
  55.