SMBService の例

この例では、コードを調整する必要があり、サーバー、フォルダ、ファイルの値の提供も必要です。
Function Options(*DIRECT)
*

• JSMX_BEGIN
  *
  Use Builtin(JSMX_BEGIN)
  *
• JSMX_OPEN
  *
  Use Builtin(JSMX_OPEN) With_Args('LOCALHOST:7560') To_Get(#JSMXSTS #JSMXMSG #JSMXHDLE1)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• SERVICE_LOAD
  *
  #JSMXCMD := 'SERVICE_LOAD SERVICE(SMBService) TRACE(*YES)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• SET SERVER
  *
  #JSMXCMD := 'SET SERVER(SYD5) DOMAIN(SYD) USER(NAME) PASSWORD(XXXXX)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• CHECKFOR
  *
  #JSMXCMD := 'CHECKFOR PATH(/Shared/Folder/orders/order-123.xml)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• GET
  *
  #JSMXCMD := 'GET FROM(/Shared/Folder/orders/order-123.xml) TO(order-smb-get.xml)'
  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