I was hoping "return no-apply." would do this, but it does not.
Included some sample code.
Openedge version 11.7.2.
Edit:
never mind, in ooabl you do this with "e:Cancel = true." in the event handler.
Checking the documentation on the Open method that you use in your code (Workbooks.Open Method (Excel)), it does mention an optional parameter to specify the delimiter used in the file to open.
By default temp-tables are passed by-value, which means that the external procedure receives a copy of the temp-table.
Emptying the copy does not impact the original.
You can change this by adding 'by-reference' in the run statement.
This will make the external procedure use the original temp-table.
define output parameter ocx as character no-undo.
define variable className as Progress.Lang.Class no-undo.
ocx = "FAIL".
className = Progress.Lang.Class:GetClass("class.does.not.exist") no-error.
if valid-object(className)
then ocx = "OK".
else ocx = "notValid".
When i run this code locally...
Suppose I am using this code to read a text file :
DEFINE VARIABLE inputLine AS CHARACTER NO-UNDO.
DEFINE STREAM sin.
input stream sin from T:/demo.txt.
repeat:
import stream sin unformatted inputLine.
...
end.
input stream sin close.
Suppose the text file contains some text like ...
You will need to look at your transaction scoping in your program.
Creating the summary should maybe not be one single transaction.
You may also try the -NL startup parameter in case the queries in your program do not all explicitely use the no-lock option.
The intention of this code is that you then can do find next in a loop and the first find next will give you the first record.
Without the find prev you will skip the first record.
There probably are better solutions, but you could output the write-xml to a longchar variable and do the substitutions on the longchar before you write it to the actual file ?
Do you think this code should raise a compilation error ?
Currently you can compile it but it will not work when you run it.
(Openedge 11.4)
define variable cdemo as longchar no-undo.
define variable rdemo as rowid no-undo.
cdemo = "xx,0x00000000000048e7". /* random rowid */
rdemo = to-rowid...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.