how can i call srvpgm in a rpgle
Posted: Tue Jan 11, 2022 6:12 pm
hi folks a i have a service pgm XSRVMSERVT who contains procedure
i have an issue with the compilation , dont recognize the copy
Procedure Type ARGOPT
APPELCRM STANDARD *NO
APPELMSERV STANDARD *NO
MICROSERVGET STANDARD *NO
MICROSERVPOST STANDARD *NO
MICROSERVPOSTIND STANDARD *NO
SETHEADER STANDARD *NO
GETIFSFILE STANDARD *NO
SENDURL STANDARD *NO
LIREDTAARA STANDARD *NO
how can i use it in my rpgle pgm
__________________________________________________________________
*£C CRTRPGMOD DBGVIEW(*SOURCE) MODULE(
Ctl-opt Datedit(*YMD) option(*SRCSTMT:*NODEBUGIO);
/copy LOGCDESRC/qrpglesrc,xsrvmservt
// Constantes
Dcl-c M10inv Const('MSX9986');
Dcl-c Autobj Const('MSX9999');
// Prototype
Dcl-pr Tststaadh extpgm('TSTSTAADH');
Parm_Url varchar(400);
Parm_TypeAppel char(1);
Parm_DonneesMserv char(32768);
Parm_Cde_Retour packed(3:0);
End-pr;
Dcl-pi Tststaadh;
Parm_Url varchar(400);
Parm_TypeAppel char(1);
Parm_DonneesMserv char(32768);
Parm_Cde_Retour packed(3:0);
End-pi;
Dcl-s Retour char(10) Inz;
Dcl-s OUT_ERREUR Char(1);
Dcl-s In_TypeInd char(10) Inz('TypeAct');
Dcl-ds Wrk qualified;
Url varchar(400);
TypeAppel char(1);
DonneesMserv char(32768);
End-ds;
// Staactionnaire(Wrk.nap:Retour);
AppelMServ(Wrk.Url:Wrk.TypeAppel:Wrk.DonneesMserv:Retour);
If Retour = *Blanks;
Out_Erreur = *Off;
Endif;
*Inlr=*On;
i have an issue with the compilation , dont recognize the copy
Procedure Type ARGOPT
APPELCRM STANDARD *NO
APPELMSERV STANDARD *NO
MICROSERVGET STANDARD *NO
MICROSERVPOST STANDARD *NO
MICROSERVPOSTIND STANDARD *NO
SETHEADER STANDARD *NO
GETIFSFILE STANDARD *NO
SENDURL STANDARD *NO
LIREDTAARA STANDARD *NO
how can i use it in my rpgle pgm
__________________________________________________________________
*£C CRTRPGMOD DBGVIEW(*SOURCE) MODULE(
Ctl-opt Datedit(*YMD) option(*SRCSTMT:*NODEBUGIO);
/copy LOGCDESRC/qrpglesrc,xsrvmservt
// Constantes
Dcl-c M10inv Const('MSX9986');
Dcl-c Autobj Const('MSX9999');
// Prototype
Dcl-pr Tststaadh extpgm('TSTSTAADH');
Parm_Url varchar(400);
Parm_TypeAppel char(1);
Parm_DonneesMserv char(32768);
Parm_Cde_Retour packed(3:0);
End-pr;
Dcl-pi Tststaadh;
Parm_Url varchar(400);
Parm_TypeAppel char(1);
Parm_DonneesMserv char(32768);
Parm_Cde_Retour packed(3:0);
End-pi;
Dcl-s Retour char(10) Inz;
Dcl-s OUT_ERREUR Char(1);
Dcl-s In_TypeInd char(10) Inz('TypeAct');
Dcl-ds Wrk qualified;
Url varchar(400);
TypeAppel char(1);
DonneesMserv char(32768);
End-ds;
// Staactionnaire(Wrk.nap:Retour);
AppelMServ(Wrk.Url:Wrk.TypeAppel:Wrk.DonneesMserv:Retour);
If Retour = *Blanks;
Out_Erreur = *Off;
Endif;
*Inlr=*On;