HTTPService のアウトバウンド例
以下のHTTP 例には、必要なものはすべて含まれており、コンパイルを除き、その他の追加作業は必要ありません。ただし、サンプルの Web サイトが動作していることが前提です。
Function Options(*DIRECT)
*
- JSMX_BEGIN
*
Use Builtin(JSMX_BEGIN)
* - JSMX_OPEN
*
Use Builtin(JSMX_OPEN) With_Args('LANSA01:7560') To_Get(#JSMXSTS #JSMXMSG #JSMXHDLE1)
Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
* - SERVICE_LOAD
*
#JSMXCMD := 'SERVICE_LOAD SERVICE(HTTPService) TRACE(*YES)'
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
* - SEND REQUEST
*
#JSMXCMD := 'SEND HOST(jsonplaceholder.typicode.com) HANDLER(OutboundNameValue) URI(/users) SECURE(*YES) SNISERVER(*HOST) METHOD(*GET)'
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
* - RECEIVE CONTENT
*
#JSMXCMD := 'RECEIVE HANDLER(InboundFile) TO(demo.json)'
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
* - SERVICE_UNLOAD
*
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 'SERVICE_UNLOAD') To_Get(#JSMXSTS #JSMXMSG)
Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
* - JSMX_CLOSE
*
Use Builtin(JSMX_CLOSE) With_Args(#JSMXHDLE1) To_Get(#JSMXSTS #JSMXMSG)
Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
* - JSMX_END
*
Use Builtin(JSMX_END)
* - サブルーチン
*
Subroutine Name(CHECK) Parms((#JSMXSTS *RECEIVED) (#JSMXMSG *RECEIVED))
*
If Cond('#JSMXSTS *NE OK')
*
Use Builtin(JSMX_CLOSE) With_Args(#JSMXHDLE1) To_Get(#JSMXSTS #JSMXMSG)
*
Menu Msgtxt('Java service error has occurred')
*
Endif
*
Endroutine