Discussion :

[qqoos]

bonjour à tous,

Dans un programme en REXX, je voudrais positionner le "Long message in pop-up" dans les settings d'ISPF.
J'ai trouvé la commande "ISPFVAR LMSG(ON)", mais je ne sais pas l'utiliser dans un REXX.

Tant que j'y suis, j'aimerais restituer cette valeur à la fin telle qu'elle était au début.

J'espère votre aide

[Homer-ac]

Bonjour,
Si tu veux simplement envoyer un message en POPUP dans la fenêtre ISPF active c'est très simple :

Code :

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

1
2
ZEDLMSG = 'Mon message qui va bien'
Address ISPEXEC 'SETMSG MSG(ISRZ001)'

ISPF insrira le message dans la fenètre active, le plus souvent à un endroit bien choisi, lequel apparaitra dès la sortie du REXX ou au prochain Display PANEL lancé par le REXX.

[qqoos]

le problème, c'est que le message affiché écrase la ligne de commande quand elle est positionnée en haut. Pour résoudre le problème, il faut activer l'option "Long message in pop-up" dans les settings d'ISPF.
Le message apparait alors en bas au centre dans un encadré (comme un popup)

[Homer-ac]

Je sais que cette réponse est encore un peu à côté mais c'est quand même une façon de contourner le problème. Si ti ajoutes .WINDOW=LN (ou LNORESP) dans ton message en ISPMLIB il sera toujours en POPUP.
Exemple repris depuis les messages ISRZ00 et modifié :

Code :

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

1
2
ISRZ001 '&ZEDSMSG' .ALARM = YES .HELP = ISR2MACR NOKATANA .WINDOW=LN
'&ZEDLMSG'

Pour modiffier les SETTINGS par REXX j'ai déjà cherché pour autre chose (forcer des variables guichet WSA) sans succès au moins pour le moment, à défaut dé trouver une doc sur le pgm ISPISM. D'ailleurs à ce propos si qqun a, ça m'intéresse aussi.

[bernard59139]

Bonjour


Si le message "écrase" la ligne de commande, je pense que c'est du à la définition du panel. Mes panels sont toujours définis comme ca:

1. 1ere ligne ==> titre, en partie écrasé par ZEDSMSG (short message)
2. 2eme ligne ==> ligne de commande
3. 3eme ligne ==> commentaire quelconque, écrasé par ZEDLMSG (long message)

en espérant vous avoir aider

B59

[Homer-ac]

Bonjour,
J'ai fini par trouver pour les messages longs en POPUP finalement. Dommage que l'on ne puisse corriger ainsi que certaines variables du settings :

Code :

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

1
2
3
4
5
6
7
8
/* REXX */
ZPARM = 'LMSG(QUERY)'                                                 
ADDRESS ISPEXEC "SELECT PGM(ISPOPT) PARM(&ZPARM)"                     
LMSG = RC /* RC=1 LONG MESSAGE IN POP-UP POSITIONNé / RC=0 : NON */   
IF RC = 0 THEN DO                                                     
   ZPARM = 'LMSG(ON)'  /* Repasser un LMSG(OFF) en fin */                          
   ADDRESS ISPEXEC "SELECT PGM(ISPOPT) PARM(&ZPARM)"                  
END

nb. c'était bien la cde ISPFVAR la solution, mais j'étais parti sur une recherche de DOC ISPISM que je n'ai pas trouvé

[qqoos]

merci pour la réponse

et à très bientot !!