Exemple 1 :
Dans cet exemple, on appelle le programme RPCSAMPLE en utilisant une structure pour les paramètres :
STStrpcsample est Structure
rOp1 est réel
sStr1 est chaîne sur 20
sOp2 est réel
sStr2 est chaîne sur 30
rOp3 est réel
FIN
stRpcSample est STStrpcsample
stRpcSample:rOp1 = 2
stRpcSample:sStr1 = "aura"
stRpcSample:sOp2 = 3
stRpcSample:sStr2 = "test"
stRpcSample:rOp3 = 4
HOuvreConnexion(MaConnexionpower8)
SI PAS ASAppelProcedure("*PGM/RPCSAMPLE", "", "",MaConnexionpower8, stRpcSample) ALORS
Info(ErreurInfo())
SINON
Info("OP1="+ stRpcSample.rOp1 + " - STR1=" + stRpcSample.sStr1 + " - OP2=" + stRpcSample.sOp2 + " - STR2=" + stRpcSample.sStr2 + " – OP3=" + stRpcSample.rOp3)
FIN
Exemple 2 :
Dans l’exemple qui suit, on appelle le programme RPCSAMPLE en utilisant une structure pour les paramètres, et en spécifiant un programme de service :
STStrpcsample est Structure
rOp1 est réel
sStr1 est chaîne sur 20
sOp2 est réel
sStr2 est chaîne sur 30
rOp3 est réel
FIN
stRpcSample est STStrpcsample
stRpcSample:rOp1 = 2
stRpcSample:sStr1 = "aura"
stRpcSample:sOp2 = 3
stRpcSample:sStr2 = "test"
stRpcSample:rOp3 = 4
sSrvPgm est une chaîne
sSrvPgm = "EASYCOMXMP/XMPSRVPGM"
HOuvreConnexion(MaConnexionpower8)
SI PAS ASAppelProcedure("*PGM/RPCSAMPLE", sSrvPgm, "",MaConnexionpower8, stRpcSample) ALORS
Info(ErreurInfo())
SINON
Info("OP1="+ stRpcSample.rOp1 + " - STR1=" + stRpcSample.sStr1 + " - OP2=" + stRpcSample.sOp2 + " - STR2=" + stRpcSample.sStr2 + " - STR3=" + stRpcSample.rOp3)
FIN