Page History

This HTTP example is self-contained and requires no additional work besides compilation. This assumes that the sample website is operational.

Function     Function Options(*DIRECT)
     *
     * JSMX_BEGIN
     *
Use     Use Builtin(JSMX_BEGIN)
     *
     * JSMX_OPEN
     *
Use     Use Builtin(JSMX_OPEN) With_Args('LANSA01:7560') To_Get(#JSMXSTS #JSMXMSG #JSMXHDLE1)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * SERVICE_LOAD
     *
#JSMXCMD     #JSMXCMD := 'SERVICE_LOAD SERVICE(HTTPService) TRACE(*YES)'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * SEND REQUEST
     *
#JSMXCMD     #JSMXCMD := 'SEND HOST(jsonplaceholder.typicode.com) HANDLER(OutboundNameValue) URI(/users) SECURE(*YES) SNISERVER(*HOST) METHOD(*GET)'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * RECEIVE CONTENT
     *
#JSMXCMD     #JSMXCMD := 'RECEIVE HANDLER(InboundFile) TO(demo.json)'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * SERVICE_UNLOAD
     *
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 'SERVICE_UNLOAD') To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * JSMX_CLOSE
     *
Use     Use Builtin(JSMX_CLOSE) With_Args(#JSMXHDLE1) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * JSMX_END
     *
Use     Use Builtin(JSMX_END)
     *
     * SUB ROUTINES
     *
Subroutine     Subroutine Name(CHECK) Parms((#JSMXSTS *RECEIVED) (#JSMXMSG *RECEIVED))
     *
If     If Cond('#JSMXSTS *NE OK')
     *
Use     Use Builtin(JSMX_CLOSE) With_Args(#JSMXHDLE1) To_Get(#JSMXSTS #JSMXMSG)
     *
Menu     Menu Msgtxt('Java service error has occurred')
     *
Endif
*
Endroutine     Endif
     *
     Endroutine