Versions Compared

Old Version 2

changes.mady.by.user Fabiola Arias Navia

Saved on

compared with

New Version Current

changes.mady.by.user user-eb51a

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

This example requires the code to be adjusted and server and email address values to be supplied.

Function     Function Options(*DIRECT)
     *
Define     Define Field(#TEXT) Type(*CHAR) Length(80)
Define     Define Field(#CNTRL) Type(*CHAR) Length(1)
Def     Def_List Name(#LST) Fields(#TEXT #CNTRL) Type(*WORKING)
     *
     * 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(SMTPMailService) TRACE(*YES)'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * SET SERVER
     *
#JSMXCMD     #JSMXCMD := 'SET SERVER(10.2.0.200) USER(testuser) PASSWORD(testuser)'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * SET ADDRESS
     *
#JSMXCMD     #JSMXCMD := 'SET TO(user.name@lansaname@lansa.com.au) FROM(user.name@lansaname@lansa.com.au) SUBJECT(Test Subject)'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG)
Execute     Execute Subroutine(CHECK) With_Parms(#JSMXSTS #JSMXMSG)
     *
     * SEND
     *
#TEXT     #TEXT := 'Line 1'
#CNTRL     #CNTRL := ''
Add     Add_Entry To_List(#LST)
#TEXT     #TEXT := 'Line 2'
#CNTRL     #CNTRL := ''
Add     Add_Entry To_List(#LST)
     *
#JSMXCMD     #JSMXCMD := 'SEND'
Use     Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMXSTS #JSMXMSG #LST)
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