PreviousNext
Help > Développement > Fonctions W-Langage pour AS/400 > Fonctions Appel de Programmes/Procédure > ASAppelPgm >
 Exemple 1


Dans cet exemple, on appelle le programme RPCSAMPLE (qui a été défini avec le configurateur RPC/DataQueue) 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 ASPgmCall("*PGM/RPCSAMPLE", "", MaConnexionpower8, stRpcSample) ALORS

      Info(ErreurInfo())

 SINON

Info("OP1="+ stRpcSample.rOp1 + " - STR1=" + stRpcSample.sStr1 + " - OP2=" + stRpcSample.sOp2 + " - STR2=" + stRpcSample.sStr2 + " - STR3=" + stRpcSample.rOp3

 FIN