この例では、コードを調整する必要があり、サーバー、ユーザー、パスワード、フォルダ、ファイルの値の提供も必要です。
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(FTPService) TRACE(*YES)')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********** CONNECT HOST**********CHANGE FIELD(#JSMCMD) TO('CONNECT HOST(LANSA01)')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********* LOGIN**********USE BUILTIN(JSM_COMMAND) WITH_ARGS('''LOGIN USER(NAME) PASSWORD(XXXX)''') TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********* PUT**********CHANGE FIELD(#JSMCMD) TO('''PUT FROM(PATH1) TO(PATH2)''')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMSTS #JSMMSG)**********
********* QUIT**********USE BUILTIN(JSM_COMMAND) WITH_ARGS('QUIT') 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