Cobol/ISPF : Sélection d'une ligne dans une table [Résolu]

[evrards]

Bonjour,

Je suis Newbie dans le domaine et ma question pourra sans doute paraître très simple.

J'ai crée un programme Cobol qui utilise des panneaux et tables ISPF.
Une des ces tables est remplie et contient diverses infos dont le prénom :


Prenom
-------
Roger
Michel
Jean

Je souhaiterais, en positionnant le curseur sur une certaine ligne, afficher le détail de cette ligne.

Exemple : On se positionne sur Jean, tape 'Enter' et un nouveau panneau s'affiche avec ses coordonnées.



Mon problème est que je ne sais pas comment m'y prendre pour identifier la ligne sur laquelle le curseur se trouve.

J'ai essayé en utilisant une variable liée à ".cursor" mais celle-ci contient le nom de mon champ ISPF qui, dans tous les cas, sera "Prenom".


Si quelqu'un peut m'aider.... merci d'avance!

[Peut-êtreUneRéponse]

Code ISPF ED MACRO :

1
2
 
>>--ISREDIT--(var1,var2)-- = --CURSOR----------------------><

var1 = variable contenant le numéro de ligne
var2 = variable contenant le numéro de colonne

.

[Homer-ac]

On peut tj faire un TBQUERY avec POSITION(varligne) pour avoir la ligne pointée.
Sur le fond, la logique d'enchaînement Dialog Manager étant particulière (TBDISPL TABLE avec ou sans précision du PANEL suivant RC = 0 ou 4 (sélections multiples) ou TBCLOSE si RC 8),
l'idéal serait de tester tout d'abord en REXX / ISPF Dialog Manager la gestion des enchaînements d'écrans (pas toujours évident de passer les bons appels au bon moment (séquence TBTOP, TBSKIP et éventuellement au besoin TBVCLEAR etc ...) puis de transposer en COBOL.
Un petit truc, prévoir une colonne S par exemple pour sélection systématiquement dans la table ISPF. Ceci permettra d'enchaîner sur affichage détaillé, MAJ etc...

[evrards]

Par facilité j'ai opté pour un champ INPUT comme Homer-ac me l'a conseillé,
il y a pas mal de code à ajouter pour cette fonction de sélection mais ça fonctionne!

Grand merci

Pour ce qui est du ISREDIT, la réponse est loin d'être explicite.... mais merci quand même.


Vous pouvez donc cloturer ce topic