This example function runs the supplied TUT_01_P1 processing sequence.  It demonstrates all the key aspects of running a Processing Sequence from a LANSA application by calling function DXP1FN1:, including:


* --------------------------------------------------------
* This function runs the supplied TUT_01_P1 processing
* sequence, supplying parameter values as required
* --------------------------------------------------------

function options(*direct)

* --------------------------------------------------------
* working list for processing sequence parameters
* --------------------------------------------------------
def_list name(#dxparms) fields(#dxapnm #dxpvsq #dxpvvl) type(*working) entrys(100)

* --------------------------------------------------------
* set and exchange the processing sequence identifier
* (uses the internal identifier as shown on the Audit tab)
* --------------------------------------------------------

#dxp1ii := '2D123D3124F84042AFB1E931838DA90E'
exchange fields(#dxp1ii)

* --------------------------------------------------------
* provide named parameter values for the run
* --------------------------------------------------------
#dxpvsq := 1

#dxapnm := 'YOURINITIALS'
#dxpvvl := 'LA'
add_entry to_list(#dxparms)

#dxapnm := 'YOURMESSAGE'
#dxpvvl := 'This run was initiated by my LANSA application'
add_entry to_list(#dxparms)

#dxapnm := 'YOURNAME'
#dxpvvl := 'LANSA Application'
add_entry to_list(#dxparms)

* --------------------------------------------------------
* run the processing sequence
* --------------------------------------------------------

call process(*direct) function(DXP1FN1) pass_lst(#dxparms)

* --------------------------------------------------------
* test the result
* --------------------------------------------------------

if (#dxexrc = 'OK')

     message msgtxt('Processing sequence run was successful')

else

     message msgtxt('Processing sequence run ended abnormally')

endif

* --------------------------------------------------------
* that's all folks!
* --------------------------------------------------------

return

  • No labels