Page History
...
Following is a very simple LANSA function that opens and then closes a connection to the JSM. If an error occurs, the status and message can be evaluated. This program does not use any services. Enable connection tracing to see the open and close being traced.
Example 1 - Using default (JSMCLTDTA data area)
| Code Block |
|---|
FUNCTION OPTIONS(*DIRECT)
USE BUILTIN(JSMX_BEGIN)
USE BUILTIN(JSMX_OPEN) TO_GET(#JSMXSTS #JSMXMSG #JSMXHDLE1)
IF COND('#JSMXSTS *NE OK')
ENDIF
USE BUILTIN(JSMX_CLOSE) WITH_ARGS(#JSMXHDLE1) TO_GET(#JSMXSTS #JSMXMSG)
IF COND('#JSMXSTS *NE OK')
ENDIF
USE BUILTIN(JSMX_END) |
Example 2 - Using server argument
| Code Block |
|---|
FUNCTION OPTIONS(*DIRECT)
USE BUILTIN(JSMX_BEGIN)
#JSMSRV := 'LOCALHOST:4560'
USE BUILTIN(JSMX_OPEN) WITH_ARGS(#JSMSRV) TO_GET(#JSMXSTS #JSMXMSG #JSMXHDLE1)
IF COND('#JSMXSTS *NE OK')
ENDIF
USE BUILTIN(JSMX_CLOSE) WITH_ARGS(#JSMXHDLE1) TO_GET(#JSMXSTS #JSMXMSG)
IF COND('#JSMXSTS *NE OK')
ENDIF
USE BUILTIN(JSMX_END) |
...