barre d'action ISPF et REXX
bonjour à tous,
Et merci pour toutes vos réponses.
Sur l'ensemble des panels d'une application, je veux gérer la mise à jour d'un paramètre, où que je sois dans l'appli, à l'aide d'une barre d'action.
Au niveau des panels, je voudrais appeler un programme REXX (TEST000) qui gèrera le paramètre, voici mon code :
)ABC DESC('Paramètre') MNEM(1)
PDC DESC('Param 1 ')
PDC DESC('Param 2 ')
ACTION RUN(ISRROUTE) PARM(SELECT CMD(TEST000))
)ABCINIT
.ZVARS=ZPDC
&ZPDC=''
)ABCPROC
VER (&ZPDC,LIST,1,2)
IF &ZPDC = 1
&action = par1
IF &ZPDC = 2
&action = par2
)BODY EXPAND(//) /* WIDTH(&ZSCREENW) */
ÂGestion / /µ ParametreÔ
Il plante à l'affichage avec le message :
ISPP416
Panel 'KTPMBR' error
Invalid PARM() value found on ACTION statement.
Panel line where error was detected:
ACTION RUN(ISRROUTE) PARM(SELECT CMD(TEST000))
:help: