Bonjour,
je dois faire une appli REXX utilisant des panels ISPF. Dans tous ces panels, je dois pouvoir accéder en EDIT à un paramètre, puis revenir sur le panel d'origine.
Je voudrais gérer ça à l'aide d'une barre d'action que je mettrais sur tous les panels du style :
)ABC DESC('Parametre')
PDC DESC('Param1')
PDC DESC('Param2')
)ABCINIT
.ZVARS=ZPDC
&ZPDC=''
)ABCPROC
VER (&ZPDC,LIST,1,2)
if (&ZPDC=1)
je fais un "ISPEXEC VIEW DATASET(dsname(PARAM1))"
if (&ZPDC=2)
je fais un "ISPEXEC VIEW DATASET(dsname(PARAM2))"
)BODY
£à Parametre£
....
je ne sais pas comment coder le :
je fais un "ISPEXEC VIEW DATASET(dsname(PARAM1))"
Quelqu'un pourrait-il m'aider SVP ??
Partager