この例では、コードを調整する必要があり、サーバー、フォルダ、ファイルの値の提供も必要です。
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**********CHANGE FIELD(#JSMCMD) TO('SERVICE_LOAD SERVICE(SMBService) TRACE(*YES)')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** SET SERVER**********CHANGE FIELD(#JSMCMD) TO('''SET SERVER(SYD5) DOMAIN(SYD) USER(NAME) PASSWORD(XXXXXXXX)''')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** CHECKFOR**********CHANGE FIELD(#JSMCMD) TO('''CHECKFOR PATH(/Shared/Folder/orders/order-123.xml)''')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** GET**********CHANGE FIELD(#JSMCMD) TO('''GET FROM(/Shared/Folder/orders/order-123.xml) TO(order-smb-get.xml)''')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