Jacques,

As you use BRMS/400 as media management, you have to define the user exit to
BRMS into ADSM.

There are the following  :

adsm> Q EXIT
Session established with server SUISSE1: AS400
  Server Version 3, Release 1, Level 2.41
  Server date/time: 2000.12.12 16:16:10  Last access: 2000.12.12 12:08:31


EXIT TYPE       EXIT NAME                    RESOLVED         LAST MODIFIED
                                                                DATE/TIME
-----------     -----------------------     ----------     -------------------
MOUNT           QUSRADSM/MOUNT                 YES         2000.08.19 15:48:22
DISMOUNT        QUSRADSM/DISMOUNT              YES         2000.08.19 15:48:22
DELETION        QUSRADSM/DELETE                YES         2000.08.19 15:48:22
EXPIRATION      QUSRADSM/EXPIRE                YES         2000.08.19 15:48:22

An exemple of the User Exit is defined in the QADSM Library (on AS/400) file

                            PDM - Gestion des membres                  SUISSE3

 Fichier . . . . .   QAANRSMP
   Bibliothèque  .     QADSM                Afficher à partir de .

 Indiquez vos options, puis appuyez sur ENTREE.
  2=Editer   3=Copier   4=Supprimer   5=Afficher  6=Imprimer  7=Rebaptiser
  8=Description  9=Sauvegarder  13=Modifier texte 14=Compiler 15=Créer module...

 Opt  Membre      Type        Texte
      ASCRIPTS
      DELETEC
      DELETECL
      DISMOUNTC
      DISMOUNTCL
      EXPIREC
      EXPIRECL
      MOUNTC
                                                                    A suivre...
 Paramètres ou commande

There is also another work to do on BRMS/400, which is STRMNTBRM


                   Démarrer maintenance pour BRM (STRMNTBRM)

Indiquez vos choix, puis appuyez sur ENTREE.

Péremption du support  . . . . . EXPMED         *YES
Suppression info support:        RMVMEDI
  Contenu du support . . . . . .                *EXP
  Détail au niveau d'objet . . .                *MEDCON
Enlever les infos de migration   RMVMGRINF      180
Lancer déplacement de support  . MOVMED         *NO
Supprimer postes historique:     RMVLOGE
  Type . . . . . . . . . . . . .                *ALL
  Du . . . . . . . . . . . . . .                *BEGIN
  Au . . . . . . . . . . . . . .                90
Exécuter opérations de ménage  . RUNCLNUP       *YES
Extraire statistiques volume . . RTVVOLSTAT     *YES
Audit supports des systèmes  . . AUDSYSMED      *NETGRP
                        + si autres valeurs
Modif récepteurs journal BRM . . CHGJRN         *YES
Impr état supports périmés . . . PRTEXPMED      *YES
                                                                   A suivre...


I hope this will help you !


Jean-Marc Piaget
La Suisse Assurances
Avenue de Rumine 13
CH-1005 Lausanne

+41 21 313 7802





Thomas Bebee <tbebee AT TWCNY.RR DOT COM> le 12.12.2000 16:06:23

Veuillez répondre à "ADSM: Dist Stor Manager" <ADSM-L AT VM.MARIST DOT EDU>
                                                           
                                                           
                                                           
 Pour  ADSM-L AT VM.MARIST DOT EDU                                
 :                                                         
                                                           
 cc :  (ccc : Jean-Marc Piaget/Siege/LSA)                  
                                                           
                                                           
                                                           
 Objet Re: Expiration of media on an AS/400                
 :