Discussion :

[Nombre pi]

Bonjour,

Chaque command exécutée appelle un programme. Ce dernier est précisé à la compilation dans le paramètre PGM de CRTCMD.
Est-il possible d'ajouter dans le source d'une commande CMD une instruction qui précise le programme qui sera appelé en l'exécutant ?

[Nombre pi]

Bonjour,

Chaque command exécutée appelle un programme. Ce dernier est précisé à la compilation dans le paramètre PGM de CRTCMD.
Est-il possible d'ajouter dans le source d'une commande CMD une instruction qui précise le programme qui sera appelé en l'exécutant ?

Un peu comme DCLPRCOPT dans un programme CL.

[dgayte]

Bonjour,

le plus simple est de rajouter un paramètre à la commande qui indiquera le programme à lancer (avec une liste de valeurs prédéfinies).

Le CPP ( pour Command Processing Program, c'est à dire le programme qui est appelé par la commande) reçoit ce paramètre et selon sa valeur fait le CALL vers le programme concerné.

Est-ce clair ?

Dominique.

[Nombre pi]

Bonjour,

le plus simple est de rajouter un paramètre à la commande qui indiquera le programme à lancer (avec une liste de valeurs prédéfinies).

Le CPP ( pour Command Processing Program, c'est à dire le programme qui est appelé par la commande) reçoit ce paramètre et selon sa valeur fait le CALL vers le programme concerné.

Est-ce clair ?

Dominique.

Je n'ai pas bien compris. Comment est-ce qu'on implémente cela ?

[dgayte]

Bonjour,

L'idée est de créer un programme qui accepte au moins un paramètre (plus tous les paramètres de la commande telle qu'elle est aujourd'hui).

Par exemple en langage de contrôle (mais ça marche aussi en RPG COBOL...):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
             PGM        PARM(&PGM)
             
             DCL        &PGM *CHAR(10)
             
             SELECT
                WHEN       COND(&PGM = 'PGM1') THEN(CALL PGM1)
                WHEN       COND(&PGM = 'PGM2') THEN(CALL PGM2)
                WHEN       COND(&PGM = 'PGM3') THEN(CALL PGM3)
             ENDSELECT
             
             ENDPGM

Voici le source de la commande :

Code :

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

1
2
3
4
5
            CMD        TESTCMD
             
             PARM       KWD(DD) TYPE(*CHAR) LEN(10) RSTD(*YES) VALUES(PMG1 +
                          PGM2 PGM3)

Dominique

[pwrdwnsys]

Bonjour.
Est-ce vous cherchez un moyen pour indiquer le programme d'exécution d'une commande dans une ligne du source de la commande (ex. : sur le paramètre CMD) afin de ne plus avoir à le préciser dans le paramètre PGM lors du lancement de la commande CRTCMD ? Si c'est cela, je ne connais aucune manière de le faire.
Par contre, l'option 14 de PDM devant un source de type CMD positionne automatiquement le paramètre PGM avec la valeur "*LIBL/{nom_de_la_commande}". La solution est donc d'avoir un programme d'exécution qui porte le même nom que la commande elle-même.