how can i call srvpgm in a rpgle

Any IBM i topic that does not fit in another forum
Post Reply
OlivierPierre04
Posts: 17
Joined: Fri Jan 07, 2022 2:56 pm

how can i call srvpgm in a rpgle

Post by OlivierPierre04 »

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;
Scott Klement
Site Admin
Posts: 636
Joined: Sun Jul 04, 2021 5:12 am

Re: how can i call srvpgm in a rpgle

Post by Scott Klement »

Sorry, I don't understand what you are asking.

Where did you find the service program XSRVMSERVT? Who provides it? Have you looked in their documentation?
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
I don't understand what the above is. Is this from a tool of yours? Or, how would I see information like this?

What problem are you having? All you said was "an issue with the compilation"? What is the error message?
OlivierPierre04
Posts: 17
Joined: Fri Jan 07, 2022 2:56 pm

Re: how can i call srvpgm in a rpgle

Post by OlivierPierre04 »

I found my pbs
sorry scott
Post Reply