Prb passage de paramètre entre CL

**papino30** · 01/08/2018, 16h36

Bonjour,
Je rencontre un problème lors de l'exécution d'un CL qui en soumet un autre.
Quand dans le 1er CL je fais un CALL du 2émé --> exécution correct.
Quand dans le 1er CL je fais un SBMJOB du 2éme --> paramètre transmis faux

Le 1er Cas :
Les variables :
DCL VAR(&APPPRG) TYPE(*CHAR) LEN(150)
DCL VAR(&APPPAR) TYPE(*CHAR) LEN(150)
....
CALL PGM(EXPLOIT/LANCZEND) PARM(&APPPRG &APPPAR)
Dans ce cas les paramétrés reçu sont OK
APPPRG = /www/zendsvr/htdocs/Utilitaires_AS400/VVRPEXC.php
APPPAR = G

Le 2éme Cas :
Les variables :
DCL VAR(&APPPRG) TYPE(*CHAR) LEN(150)
DCL VAR(&APPPAR) TYPE(*CHAR) LEN(150)
....
SBMJOB CMD(CALL PGM(EXPLOIT/LANCZEND) PARM(&APPPRG +
&APPPAR))

Dans ce cas les paramétrés reçu sont faux
APPPRG = /www/zendsvr/htdocs/Utilitaires_AS400/VVRPEXC.php G PGMØ * * *c * *o *LANCZENDo *EXPLOITf
APPPAR = G PGMØ * * *c * *o

le 2éme CL
PGM PARM(&APPPRG &APPPAR)

DCL VAR(&APPPRG) TYPE(*CHAR) LEN(150)
DCL VAR(&APPPAR) TYPE(*CHAR) LEN(150)

Les tailles des variables sont bonnes, je comprends pas pourquoi dans le cas du SBMJOB ces variables sont erronées.

En attente de vos réponses

**badaze** · 02/08/2018, 07h11

Essaie ceci. Apparemment il y a un souci avec les variables alpha > 32 octets.

Dans le CL 1, définis deux variables de 151 caractères

DCL VAR(&APPPRG2) TYPE(*CHAR) LEN(151)
DCL VAR(&APPPAR2) TYPE(*CHAR) LEN(151)

CHGVAR &APPPRG2 &APPPRG
CHGVAR &APPPAR2 &APPPAR

CHGVAR %SST(&APPPRG2 151 1) '*'
CHGVAR %SST(&APPPAR2 151 1) '*'

SBMJOB CMD(CALL PGM(EXPLOIT/LANCZEND) PARM(&APPPRG2 +
&APPPAR2))

**pwrdwnsys** · 02/08/2018, 08h05

Parfois, le simple fait d'initialiser tes variables à la déclaration suffit à résoudre le problème : DCL VAR(&APPPRG) TYPE(*CHAR) LEN(150) VALUE(' ').
32, c'est la longueur par défaut des CHAR en CL. Donc si on ne précise rien, l'exécuteur fait l'initialisation uniquement de ces 32 caractères sans se soucier des suivants.
Si ça ne fonctionne pas, la solution de badaze fonctionnera très bien.