Discussion :

[tbeghain]

Bonjour,

J'ai un programme REXX (GLDIM01) qui affiche un panel ISPF (GLDIM01). J'utilise une des touches fonction (PF5) pour faire un appel à un autre programme qui affiche aussi un écran

"ISPEXEC DISPLAY PANEL(GLDIM01) CURSOR("ZCUR")"
IF RC = 8 THEN EXIT
IF DGIPFKEY = 'PF05' THEN CALL GLDIM02

Lorsque je lance le programme GLDIM01 (TSO GLDIM01), puis lorsque j'appuie sur PF05, j'ai bien le panel du programme GLDIM02 qui s'affiche, pas de problème.

Seulement, je dois brancher mon programme GLDIM01 sur un menu d'entreprise, et c'est là que ça se corse. Lorsque je le fais, je n'ai pas de problème pour l'affichage du panel GLDIM01, mais impossible d'afficher le panel du programme GLDIM02, parce que la touche de fonction PF05 est déjà affectée au 'rfind', et j'ai alors le message '"RFIND " is not active '.

Comment, dans mon programme GLDIM01, (ou dans mon panel GLDIM01), je peux définir les touches fonction qui seront utilisées dans ce programme ?

Merci pour vos réponses

[bakounine]

Bonjour ,

C'est dans le panel initial , soit GLDIM01 , que cela se passe , au niveau du pavé )PROC , soit :

)PROC
&TOUCH=.PFKEY Attention de ne pas oublier le point (.)

Et dans le Rexx , tu travailles avec la variable TOUCH

Personnellement , dans ce cas là , je préfère travailler avec la touche PF02 qui est la moins utilisée par défaut.

Nota : la variable TOUCH contiendra PF05 (Et pas PF5) ou bien PF02 etc .....

Bakounine

[tbeghain]

Ben c'est exactement ce que je fais. dans GLDIM01 (ecran),j 'ai un &DGIPFKEY=.PFKEY dans la partie )PROC

Ce qui se passe c'est que quand je connecte mon programme au programme entreprise, les touches fonction sont désactivées

La différence est que dans le programme 'entreprise', le display du panel menu sur lequel est branché mon programme est constitué de la manière suivante :
"ISPEXEC SELECT PANEL("ecran") NEWAPPL("appl")"

Je pense que c'est le NEWAPPL qui désactive les touches fonction (lorsque je fais un essai en l'enlevant, je retrouve mes touches fonction), mais je ne sais pas ni pourquoi, ni comment faire pour resoudre le problème.

[bernard59139]

Ca manque de formation ISPF.

si tu peux , remplace

Code :

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

"ISPEXEC SELECT PANEL("ecran") NEWAPPL("appl")"

qui créé un environnement "appl" neuf avec les PFk par défaut, par

Code :

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

"ISPEXEC SELECT PANEL("ecran") NEWAPPL("appl") PASSLIB"

, l'environnement "appl" héritera des caractéristiques de l'environnement d'origine.

ou alors, appel du rexx par

Code :

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

"ISPEXEC SELECT CMD(GLDIM01) NEWAPPL("appl") PASSLIB"

[tbeghain]

Je suis pleinement d'accord avec le manque de formation. Mais c'est sur le tas maintenant que ça se fait. Les vieux briscards sont à la retraite ! Et c'est de plus en plus difficile de trouver de la compétence en interne. Bon, ça suffit avec les regrets.
Ca ne change rien le fait de rajouter PASSLIB, car, d'après ma compréhension du problème, dans le programme principal, la touche PF05 est définie avec une affectation (RFIND) qui override le traitement que j'ai fait dans le programme GLDIM01. Donc, l'héritage est plutôt le contraire de ce qu'il me faudrait. C'est d'ailleurs rigolo, parce que juste après avoir ecrit l'ordre d'affichage de l'écran, j'ai mis un ordre 'say dgipkey' pour voir le contenu de la zone qui va contenir la dernière touche fonction pressée, et en fait, je n'ai pas l'affichage du say lorsque j'appuie sur PF5, signe que le traitement ne sort pas de l'écran, alors que lorsque j'appuie sur PF03, j'ai bien l'affichage du say.
Alors j'ai vu sur Internet qu'il était possible de définir ses propres touches fonction puis de les spécifier dans la définition de l'écran par une commande )PANEL.
Mais pour l'instant, je n'ai pas trouvé comment.
A plus

[bernard59139]

Je ne gère jamais les options de panel avec les PFK, toujours par des choix que je teste ensuite, soit directement dans le panel , soit dans le rexx qui a afficher le panel.

je ne sais pas si c'est possible de modifier, même temporairement, les PFK directement dans un panel.
Il est possible de modifier les PFK via un rexx; mais alors là, gaffe aux utilisateurs (perso je ne serai pas content si qqun vient modifier "mes" pfk pour "son" besoin).

rappel: les pfk sont des actions gérées immédiatement par ISPF. PF3 =END (le plus souvent) et ISPF quittera le "truc" en cours

rappel2: il y a 2 type de panels. en simplifié

• les panels de saisie (appelé ISPEXEC DISPLAY) et dont les données sont traitées par le programme
• les panels de service,(appelés par ISPEXEC SELECT PANEL) destinés à gérer différents choix (appel d'un autre panel, d'un rexx, ..) gérés par le panel

Avec des gestions, interactions & possibilités différentes.
la doc à lire:"Dialog Developer's Guide and Reference ", c'est du complet et rébarbatif, mais tout y est.

a+