PreviousNext
Help > Development > W-Language Functions for AS/400 > Program and Procedure calls > ASPgmCall > Example 1
Example 1


Parameters passed to the program or procedure can be mapped to a WinDev structure.

In this example, RPCSAMPLE has been defined with RPC/DataQueue tool.

 

STStrpcsample is structure

 rOp1 is real

 sStr1 is string on 20

 sOp2 is real

 sStr2 is string on 30

 rOp3 is real

END

stRpcSample is STStrpcsample

 

stRpcSample:rOp1 = 2

stRpcSample:sStr1 = "aura"

stRpcSample:sOp2 = 3

stRpcSample:sStr2 = "test"

stRpcSample:rOp3 = 4

 

 HOpenConnection(cnx)

 

IF NOT ASPgmCall("*PGM/RPCSAMPLE", "", cnx, stRpcSample) THEN

 Error(ErrorInfo(errFullDetails))

ELSE

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

 

END