Bonjour,
J'aborde l'appel de procédure, et comme ma boite ne fait aucune formation , j'ai qq soucis pour mettre en oeuvre. Pour mon exemple, j'ai fais une procédure qui me calcule la transformation d'une date (cf,le code dessou) de 'yy/mm/dd' en 'mm/dd/ccyy' :
H NOMAIN
D Proc001 pr
D 8A
D 10A
*
*
P PROC001 B
D PROC001 Pi
D var1 8A
D var2 10A
/free
// 'yy/mm/dd' TO 'mm/dd/ccyy'
var2 = %char(%date(var1:*ymd/):*usa/);
RETURN ;
/end-free
J'ai fais 15 pour en faire un module .
Maintenant avec l'option 27 (crtsrvpgm) pour en faire un pgm de service ça coince, voila la log:
Autre question il faut créer je crois un BNDDIR auquel j'ajoute mon pgm de service. Et ensuite mettre en carte h mon bnddir et appeler la procédure par un CALLP nomprocédure(:parm :parm). Est ce exact ?Message . . . . : RICAWRK/QRPGLESRC.PGB ligne 1 : ***ERREUR Syntaxe
incorrecte.
Cause . . . . . : Une erreur de syntaxe a été détectée dans le fichier
source en langage de liage. Cette erreur s'est produite lors de la
compilation de la ligne 1 du membre source en langage de liage PGB, dans l
fichier QRPGLESRC de la bibliothèque RICAWRK, durant une tentative de
création du programme de service PGB dans la bibliothèque RICAWRK.
Que faire . . . : Corrigez l'erreur de syntaxe et relancez les commandes
CRTSRVPGM (Créer un programme de service) ou UPDSRVPGM (Mettre à jour un
programme de service).
Technical description . . . . . . . . : The service program is not created
Partager