M
Michael Brandt
Guest
This code, taken from the example works great: define variable hCall as handle no-undo. define variable outVal as character no-undo. create call hCall. /* Invoke hello.p non-persistently */ hCall:call-name = "node.p". /* Sets CALL-TYPE to the default */ hCall:call-type = procedure-call-type. hCall:num-parameters = 2. hCall:set-parameter(1, "CHARACTER", "INPUT", "HELLO WORLD"). hCall:set-parameter(2, "CHARACTER", "OUTPUT", outVal). hCall:invoke. message outVal view-as alert-box. /* Clean up */ delete object hCall. This code, using a simple temp table for the parameters returns the error "Record paramTable not available for dynamic output parameter. (10088)." Please let me know if there is anything I need to change to make it work. define variable hCall as handle no-undo. define variable outVal as character no-undo. define temp-table paramTable no-undo field idx as integer field mode as character field typ as character field val as character. create paramTable. assign paramTable.idx = 1 paramTable.mode = "INPUT" paramTable.typ = "character" paramTable.val = "HELLO WORLD". create paramTable. assign paramTable.idx = 2 paramTable.mode = "OUTPUT" paramTable.typ = "character" paramTable.val = "". create call hCall. /* Invoke hello.p non-persistently */ hCall:call-name = "node.p". /* Sets CALL-TYPE to the default */ hCall:call-type = procedure-call-type. hCall:num-parameters = 2. for each paramTable: message string(paramTable.idx) + ":" + paramTable.typ + ":" + paramTable.mode + ":" + paramTable.val. hCall:set-parameter(paramTable.idx,paramTable.typ, paramTable.mode, paramTable.val). end. hCall:invoke. message outVal view-as alert-box. /* Clean up */ delete object hCall.
Continue reading...
Continue reading...