以下のHTTP 例には、必要なものはすべて含まれており、コンパイルを除き、その他の追加作業は必要ありません。ただし、サンプルの Web サイトが動作していることが前提です。
FUNCTION OPTIONS(*DIRECT)**********DEFINE FIELD(#JSMSTS) TYPE(*CHAR) LENGTH(20)DEFINE FIELD(#JSMMSG) TYPE(*CHAR) LENGTH(256)DEFINE FIELD(#JSMCMD) TYPE(*CHAR) LENGTH(256)**********
********** JSM_OPEN**********USE BUILTIN(JSM_OPEN) WITH_ARGS('LOCALHOST:7560') TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** SERVICE_LOAD**********USE BUILTIN(JSM_COMMAND) WITH_ARGS('SERVICE_LOAD SERVICE(HTTPService) TRACE(*YES)') TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** SEND REQUEST**********CHANGE FIELD(#JSMCMD) TO('''SEND HOST(jsonplaceholder.typicode.com) HANDLER(OutboundNameValue) URI(/users) SECURE(*YES) SNISERVER(*HOST) METHOD(*GET)''')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** RECEIVE CONTENT**********CHANGE FIELD(#JSMCMD) TO('''RECEIVE HANDLER(InboundFile) TO(demo.json)''')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** SERVICE_UNLOAD**********USE BUILTIN(JSM_COMMAND) WITH_ARGS('SERVICE_UNLOAD') TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** JSM_CLOSE**********USE BUILTIN(JSM_CLOSE) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** SUB ROUTINES**********SUBROUTINE NAME(CHECK) PARMS((#JSMSTS *RECEIVED) (#JSMMSG *RECEIVED))**********IF COND('#JSMSTS *NE OK')DISPLAY FIELDS((#JSMSTS) (#JSMMSG))**********USE BUILTIN(JSM_CLOSE) TO_GET(#JSMSTS #JSMMSG)**********MENU MSGTXT('Java service error has occurred')**********ENDIF**********ENDROUTINE