PDFService の例

This service uses files that have been shipped in the JSM instance folder.
Function Options(*DIRECT)
*
Define Field(#PRDID) Type(*CHAR) Length(10)
Define Field(#PRDAVL) Type(*CHAR) Length(200)
Define Field(#PRDDSC) Type(*CHAR) Length(250)
Define Field(#PRDAMTMP) Type(*DEC) Length(10) Decimals(2)
Define Field(#PRDAMTYP) Type(*DEC) Length(10) Decimals(2)
Define Field(#PRDAMTB10) Type(*DEC) Length(10) Decimals(2)
Define Field(#PRDAMTB20) Type(*DEC) Length(10) Decimals(2)
Define Field(#PRDAMTB30) Type(*DEC) Length(10) Decimals(2)
*
Define Field(#TEXT) Type(*CHAR) Length(30)
Def_List Name(#LST1) Fields(#TEXT) Type(*WORKING)
*
Define Field(#COL1) Type(*CHAR) Length(10)
Define Field(#COL2) Type(*CHAR) Length(10)
Define Field(#COL3) Type(*DEC) Length(10) Decimals(2)
Def_List Name(#LST2) Fields(#COL1 #COL2 #COL3) Type(*WORKING)
*
#PRDID := 'CORD443'
#PRDAVL := 'Available in 24 hours'
#PRDDSC := '18V Compact Hammer. Power output 350W'
*
#PRDAMTMP := 499.99
#PRDAMTYP := 499.99
#PRDAMTB10 := 431.99
#PRDAMTB20 := 413.99
#PRDAMTB30 := 359.99
*

• 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(PDFDocumentService) TRACE(*YES)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• CREATE
  *
  #JSMXCMD := 'CREATE DOCUMENT(demo.pdf) CONTENT(demo-product.xml)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• ADD PRODUCT
  *
  #TEXT := '4-piece combo kit'
  Add_Entry To_List(#LST1)
  #TEXT := '3-speed transmission'
  Add_Entry To_List(#LST1)
  *
  #JSMXCMD := 'ADD CONTENT(PRODUCT) SERVICE_EXCHANGE(*FIELD)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG #LST1)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• ADD TABLE
  *
  #COL1 := 'Text 11'
  #COL2 := 'Text 12'
  #COL3 := 100.34
  Add_Entry To_List(#LST2)
  #COL1 := 'Text 21'
  #COL2 := 'Text 22'
  #COL3 := 145.67
  Add_Entry To_List(#LST2)
  *
  #JSMXCMD := 'ADD CONTENT(TABLE)'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG #LST2)
  Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
  *
• CLOSE
  *
  #JSMXCMD := 'CLOSE'
  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