MGCALL Program (Magic xpa 3.x)
The MGCALL program supports the following argument formats:
Packed Decimal Argument
|
CL definition:
DCL VAR(&B_B) TYPE(*DEC) LEN(15 5)
Should be implemented by the string:
‘D’ 15 5 &B_B
|
Character Argument
|
DCL VAR(&A) TYPE(*CHAR) LEN(20)
DCL VAR(&B) TYPE(*CHAR) LEN(1)
Should be implemented by the string:
‘C’ 20 &A
‘C’ 1 &B
|
Binary Argument
|
DCL VAR(&D) TYPE(*INT)
Should be implemented by the string:
‘B’ 4 &D
|
Return Code
|
Return code for the MGCALL program should be defined as:
DCL VAR(&RETCODE) TYPE(*INT)
|
To call to a Magic xpa project named “TEST” with a program named “MyProgram”, prepare a program call as follows:
CALL PGM(MGRQTOOL/MGCALL)
PARM('TEST' 'MyProgram' &RETCODE 'A' 'C' 20 &A
'D' 15 5 &B_B 'C' 1 &B 'B' 4 &D)