home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Backup / Backup.zip / psnsg601.zip / RSTEXIT.CMD < prev    next >
OS/2 REXX Batch file  |  1997-07-28  |  3KB  |  54 lines
  1. /* Rexx */
  2. /***************************************************************************/
  3. /* Benutzerausgang für OS/2 Warp Server Backup/Restore-Zurückschreibung    */
  4. /*                                                                         */
  5. /*      Copyright  1995  IBM Corp.                                         */
  6. /*-------------------------------------------------------------------------*/
  7. /* Übergebene Parameter:                                                   */
  8. /*   Complete         = 0 beim Beginn der Zurückschreibung                 */
  9. /*                    = 1 beim Ende der Zurückschreibung                   */
  10. /*                                                                         */
  11. /*   RsMethod         = Name der verwendeten Zurückschreibungsmethode      */
  12. /*                                                                         */
  13. /*   BkpSet           = Name der Sicherungsgruppe, aus der Daten zurück-   */
  14. /*                      geschrieben werden                                 */
  15. /*                                                                         */
  16. /***************************************************************************/
  17. Parse arg Complete' <'RsMethod'> <'BkpSet'>'
  18. /*-------------------------------------------------------------------------*/
  19. /* Überprüfen der Markierung Complete, um festzustellen, ob dies der       */
  20. /* Beginn oder das Ende einer Zurückschreibung ist                         */
  21. /*-------------------------------------------------------------------------*/
  22. If Complete = 0 Then Do
  23.    /*----------------------------------------------------------------------*/
  24.    /* Dies ist der Beginn einer Zurückschreibung, daher müssen alle Pro-   */
  25.    /* gramme beendet werden, die exklusiven Zugriff auf Dateien benötigen. */
  26.    /*----------------------------------------------------------------------*/
  27.    /*----------------------------------------------------------------------*/
  28.    /* Durch Überprüfen der Zurückschreibungsmethode (RsMethod) oder Siche- */
  29.    /* rungsgruppe (BkpSet) kann festgestellt werden, welche Anwendungen    */
  30.    /* beendet werden müssen.                                               */
  31.    /*----------------------------------------------------------------------*/
  32.    Select
  33.       When RsMethod = "Datenbank" Then Do
  34.       End
  35.       When RsMethod = "Server" Then Do
  36.       End
  37.       Otherwise
  38.    End /* endselect */
  39. End /* enddo */
  40. Else Do
  41.    /*----------------------------------------------------------------------*/
  42.    /* Die Zurückschreibung ist beendet, daher können nun die zu Beginn     */
  43.    /* der Zurückschreibung beendeten Programme erneut gestartet werden.    */
  44.    /*----------------------------------------------------------------------*/
  45.    Select
  46.       When RsMethod = "Datenbank" Then Do
  47.       End
  48.       When RsMethod = "Server" Then Do
  49.       End
  50.       Otherwise
  51.    End /* endselect */
  52. End
  53. return 0
  54.