Page History
This service uses files that have been shipped in the JSM instance folder.
Function Function Options(*DIRECT)
*
Define Define Field(#PRDID) Type(*CHAR) Length(10)
Define Define Field(#PRDAVL) Type(*CHAR) Length(200)
Define Define Field(#PRDDSC) Type(*CHAR) Length(250)
Define Define Field(#PRDAMTMP) Type(*DEC) Length(10) Decimals(2)
Define Define Field(#PRDAMTYP) Type(*DEC) Length(10) Decimals(2)
Define Define Field(#PRDAMTB10) Type(*DEC) Length(10) Decimals(2)
Define Define Field(#PRDAMTB20) Type(*DEC) Length(10) Decimals(2)
Define Define Field(#PRDAMTB30) Type(*DEC) Length(10) Decimals(2)
*
Define Define Field(#TEXT) Type(*CHAR) Length(30)
Def Def_List Name(#LST1) Fields(#TEXT) Type(*WORKING)
*
Define Define Field(#COL1) Type(*CHAR) Length(10)
Define Define Field(#COL2) Type(*CHAR) Length(10)
Define Define Field(#COL3) Type(*DEC) Length(10) Decimals(2)
Def Def_List Name(#LST2) Fields(#COL1 #COL2 #COL3) Type(*WORKING)
*
#PRDID #PRDID := 'CORD443'
#PRDAVL #PRDAVL := 'Available in 24 hours'
#PRDDSC #PRDDSC := '18V Compact Hammer. Power output 350W'
*
#PRDAMTMP #PRDAMTMP := 499.99
#PRDAMTYP #PRDAMTYP := 499.99
#PRDAMTB10 #PRDAMTB10 := 431.99
#PRDAMTB20 #PRDAMTB20 := 413.99
#PRDAMTB30 #PRDAMTB30 := 359.99
*
* JSMX_BEGIN
*
Use Use Builtin(JSMX_BEGIN)
*
* JSMX_OPEN
*
Use Use Builtin(JSMX_OPEN) With_Args('LOCALHOST:7560') To_Get(#JSMXSTS #JSMXMSG #JSMXHDLE1)
Execute Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
*
* SERVICE_LOAD
*
#JSMXCMD #JSMXCMD := 'SERVICE_LOAD SERVICE(PDFDocumentService) TRACE(*YES)'
Use Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
*
* CREATE
*
#JSMXCMD #JSMXCMD := 'CREATE DOCUMENT(demo.pdf) CONTENT(demo-product.xml)'
Use Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
*
* ADD PRODUCT
*
#TEXT #TEXT := '4-piece combo kit'
Add Add_Entry To_List(#LST1)
#TEXT #TEXT := '3-speed transmission'
Add Add_Entry To_List(#LST1)
*
#JSMXCMD #JSMXCMD := 'ADD CONTENT(PRODUCT) SERVICE_EXCHANGE(*FIELD)'
Use Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG #LST1)
Execute Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
*
* ADD TABLE
*
#COL1 #COL1 := 'Text 11'
#COL2 #COL2 := 'Text 12'
#COL3 #COL3 := 100.34
Add Add_Entry To_List(#LST2)
#COL1 #COL1 := 'Text 21'
#COL2 #COL2 := 'Text 22'
#COL3 #COL3 := 145.67
Add Add_Entry To_List(#LST2)
*
#JSMXCMD #JSMXCMD := 'ADD CONTENT(TABLE)'
Use Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG #LST2)
Execute Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
*
* CLOSE
*
#JSMXCMD #JSMXCMD := 'CLOSE'
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