ILE RPG Client JSM API Example
From LANSA Integrator
ILE RPG Client JSM API Example
The following example shows how the JSM APIs are used from an ILE RPG program. This example is not a complete RPG program.
|
D JSMSRV |
S |
50 |
|
D JSMSTS |
S |
20 |
|
D JSMMSG |
S |
255 |
|
D JSMCMD |
S |
255 |
|
D BYTEDATA |
S |
32767 |
|
D BYTELENGTH |
S |
10I 0 |
|
C |
MOVE |
*BLANKS |
JSMSRV |
|
C |
MOVE |
*BLANKS |
JSMSTS |
|
C |
MOVE |
*BLANKS |
JSMMSG |
|
C |
MOVE |
*BLANKS |
JSMCMD |
|
C |
MOVE |
*BLANKS |
BYTEDATA |
|
C |
Z-ADD |
32767 |
BYTELENGTH |
*
* Open connect to default JSM server
*
|
C |
CALLB |
'JSMOPEN' |
|
|
C |
PARM |
|
JSMSRV |
|
C |
PARM |
|
JSMSTS |
|
C |
PARM |
|
JSMMSG |
*
* Send command to service and receive status and response
*
|
C |
MOVEL |
*BLANKS |
JSMCMD |
*
|
C |
CALLB |
'JSMCMD' |
|
|
C |
PARM |
'MYCMD' |
JSMCMD |
|
C |
PARM |
|
JSMSTS |
|
C |
PARM |
|
JSMMSG |
*
* Send command and variable data to service
*
|
C |
MOVEL |
'MYCMD' |
JSMCMD |
*
|
C |
CALLB |
'JSMCMDX' |
|
|
C |
PARM |
|
JSMCMD |
|
C |
PARM |
|
BYTEDATA |
|
C |
PARM |
|
BYTELENGTH |
|
C |
PARM |
|
JSMSTS |
|
C |
PARM |
|
JSMMSG |
*
* Close service
*
|
C |
CALLB |
'JSMCLOSE' |
|
|
C |
PARM |
|
JSMSTS |
|
C |
PARM |
|
JSMMSG |
*
|
C |
SETON |
|
LR |