Discussion :

[qqoos]

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))

[qqoos]

allo !!!

personne n'a d'idée ?

ma question n'est pas claire ? Bon, je reformule :

)ABC DESC('Paramètre') MNEM(1)
PDC DESC('Param 1 ')
PDC DESC('Param 2 ')
)ABCINIT
.ZVARS=ZPDC
&ZPDC=''
)ABCPROC
VER (&ZPDC,LIST,1,2)
IF &ZPDC = 1
ICI je veux faire appel au programme qui gère le paramètre 1
IF &ZPDC = 2
ICI je veux faire appel au programme qui gère le paramètre 2
)BODY EXPAND(//) /* WIDTH(&ZSCREENW) */
ÂGestion / /µ ParametreÔ


j'espère avoir été plus clair

[Pico-----]

je dirai que tu as oubliés les quotes dans le PARM(...)

je suis pas sûr de moi mais la documentation officielle (que tu peux trouver là : http://publib.boulder.ibm.com/infoce...v1r9/index.jsp ) dit :

RUN(command-name) Required keyword. Specifies the name of a command to be run. The command name must be 2-8 characters. Coding the keyword ACTION RUN(x), where x is a 1-character command name, results in an error condition. ISPF searches for the command in the application, user, site, and system command tables, if they are defined.

You can use the ISRROUTE command, which is an ISPF command in ISPCMDS, to invoke the SELECT service. The ACTION RUN statement is as follows:
ACTION RUN(ISRROUTE) PARM(’SELECT your-select-command-parms’)

where your-select-command-parms contains all the required parameters for the invocation of the SELECT service. This allows your dialog not to have to create a separate command in the application command table for every RUN statement coded within your dialog panels.

Here is an example of invoking the SELECT service from an ACTION RUN statement:
ACTION RUN(ISRROUTE) PARM(’SELECT PGM(USERLIST) NEWAPPL(USR)’)