home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Backup / Backup.zip / bacrest.zip / RSTEXIT.CMD < prev    next >
OS/2 REXX Batch file  |  1997-07-28  |  3KB  |  54 lines
  1. /* Rexx */
  2. /***************************************************************************/
  3. /*Utilitaire de sauvegarde/restauration OS/2 Warp Server-Exit de restauration*/
  4. /*                                                                         */
  5. /*      Copyright  1995  IBM Corp.                                         */
  6. /*-------------------------------------------------------------------------*/
  7. /* Paramètres transmis :                                                   */
  8. /*   Complete         = 0 au début d'une restauration                      */
  9. /*                    = 1 à la fin d'une restauration                      */
  10. /*                                                                         */
  11. /*   RsMethod         = Nom de la procédure de restauration utilisée       */
  12. /*                                                                         */
  13. /*   BkpSet           = Nom du groupe de sauvegarde à partir duquel la     */
  14. /*                      restauration est effectuée                         */
  15. /*                                                                         */
  16. /***************************************************************************/
  17. Parse arg Complete' <'RsMethod'> <'BkpSet'>'
  18. /*-------------------------------------------------------------------------*/
  19. /* Pour savoir si la restauration commence ou est terminée, vérifiez le    */
  20. /* paramètre Complete.                                                     */
  21. /*-------------------------------------------------------------------------*/
  22. If Complete = 0 Then Do
  23.    /*----------------------------------------------------------------------*/
  24.    /* La restauration commence. Tous les programmes requérant un accès     */
  25.    /* exclusif aux fichiers doivent être arrêtés.                          */
  26.    /*----------------------------------------------------------------------*/
  27.    /*----------------------------------------------------------------------*/
  28.    /* Il est possible de vérifier les paramètres RsMethod (procédure de    */
  29.    /* restauration et BkpSet (groupe de sauvegarde) pour identifier        */
  30.    /* les applications à arrêter.                                          */
  31.    /*----------------------------------------------------------------------*/
  32.    Select
  33.       When RsMethod = "Base de données" Then Do
  34.       End
  35.       When RsMethod = "Serveur" Then Do
  36.       End
  37.       Otherwise
  38.    End /* endselect */
  39. End /* enddo */
  40. Else Do
  41.    /*----------------------------------------------------------------------*/
  42.    /* La restauration est terminée. Les programmes arrêtés lorsqu'elle a   */
  43.    /* commencé vont être relancés.                                         */
  44.    /*----------------------------------------------------------------------*/
  45.    Select
  46.       When RsMethod = "Base de données" Then Do
  47.       End
  48.       When RsMethod = "Serveur" Then Do
  49.       End
  50.       Otherwise
  51.    End /* endselect */
  52. End
  53. return 0
  54.