Discussion :

[M_le_maudit]

Bonjour,

Je précise avant tout que je débute en Rexx, pardonnez-moi si j'écris des énormités.

Je reprend actuellement une application Rexx comportant des écrans TSO.

Dans l'existant une gestion de messages est gérée via une bibliothèque MLIB.

Dans cette bibliothèque existe un membre nommé MTNR01 contenant un seul message identifié MTNR010 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MTNR010 'Choix non référencé' .ALARM=YES 
'                         '

Dans un panel, ce message est appelé de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
)PROC                         
  VER(&Q,NONBLANK,MSG=MTNR010)
  VER(&P,NONBLANK,MSG=MTNR010)

Je souhaite simplement rajouter un message dans le membre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MTNR010 'Choix non référencé' .ALARM=YES 
'                         '              
MTNR011 'Message ajouté' .ALARM=YES 
'                         '

Et l'utiliser de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
)PROC                         
  VER(&Q,NONBLANK,MSG=MTNR011)
  VER(&P,NONBLANK,MSG=MTNR010)

Or à l'utilisation du dit message , j'obtiens systématiquement l'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Message MTNR011                                 
MTNR011  message not found in 'ISPMLIB' library.

Je ne parviens donc pas à ajouter des messages dans le membre dédié et les utiliser ensuite.
Aurais-je oublié quelque chose ?

Merci à vous.

[LeonK]

Bonjour,

dans un premier temps, il faut vérifier que la bib ISPMLIB référencée dans le REXX est bien celle que tu as modifiée. Tu dois avoir un paragraphe du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
ADDRESS ISPEXEC                                      
"LIBDEF ISPCLIB DATASET ID('BIB.UTIL.AACLIB')"       
"LIBDEF ISPPLIB DATASET ID('BIB.UTIL.AAPLIB')"       
"LIBDEF ISPMLIB DATASET ID('BIB.UTIL.AAMLIB')"       
"LIBDEF ISPTLIB DATASET ID('BIB.UTIL.AATLIB')"       
"LIBDEF ISPTABL DATASET ID('BIB.UTIL.AATLIB')"       
"LIBDEF ISPLLIB DATASET ID('BIB.UTIL.AALMD')"

Essaie aussi de te déconnecter, puis te reconnecter.

Sinon, tu peux essayer de créer un nouveau membre dans la bib ISPMLIB avec le nom MTNR02 avec un message MTNR020

Autre chose : il peut y avoir plusieurs bib référencées sous ISPMLIB. Tu peux le vérifier en tapant la commande TSO ISRDDN

[M_le_maudit]

Merci pour ta réponse.

Oui la bibliothèque est bien déclarée, puisque je peux utiliser sans problème le message MTNR010 qui se trouve dans le même membre que le MTNR011.

Ce qui d'ailleurs est l'objet de mon incompréhension, pourquoi diable le message MTNR010 fonctionne et pas le MTNR011 alors qu'ils se trouvent au même endroit ?!

[bernard59139]

Bonjour

j'ai testé avec tes messages, pas de soucis de ce coté là.

Vérifie que tu appelles bien le bon membre dans le bon pds (pas de doublons sur le nom de membre dans concaténation de toutes les ISPMLIB)

[M_le_maudit]

Bonjour

j'ai testé avec tes messages, pas de soucis de ce coté là.

Vérifie que tu appelles bien le bon membre dans le bon pds (pas de doublons sur le nom de membre dans concaténation de toutes les ISPMLIB)

Et bien je n'ai qu'une bibliothèque message d'appelée dans mon prog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
"ALTLIB DEACTIVATE APPLICATION(CLIST)  "                              
                                                                      
"ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('BINQ.HIPTNR.UTIL.CLIST')"
 address ispexec                                                      
"LIBDEF ISPMLIB DATASET ID('BINQ.HIPTNR.UTIL.MLIB')"                  
"LIBDEF ISPPLIB DATASET ID('BINQ.HIPTNR.UTIL.PLIB')"                  
"LIBDEF ISPSLIB DATASET ID('BINQ.HIPTNR.UTIL.SLIB')"

La bib MLIB ne contenant que deux membres : MTNR00 et MTNR01

[bernard59139]

reste ces possibilités:

1. tu as une erreur de syntaxe quelque part.
2. tu as une erreur de typographie , par ex confusion enrte 0 (zéro) et O (lettre)
3. tes pds sont en bufferisés (linklist).

Il faut aussi analyser tout ce qui se passe entre les "libdef" et l'appel aux messages, uin travail de fourmi.