ILE RPG Client JSM API Example

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