Recent content by UncleNel

Just to clarify my statements, I hack over your sample. Changing the for-first to a for-each will demonstrate why you don't use functions in the where clause. <code> def temp-table tt no-undo field ok as log. def var i as int. create tt. tt.ok = true. create tt. tt.ok = true. create tt...

I agree with Rob, you don't use user defined functions in a for each select. It is my understanding that a user-defined function will execute only on the first iteration and that result will be used for all other iterations. If you need to use the function, then do it within the for-each block...

Re: New version To answer your syntax question. It works for me, although I had to do some tweaking. Here is a snippet of the syntax file that I use: COMPILE VALUE(SESSION:PARAMETER) SAVE = NO NO-ERROR. IF /*COMPILER:ERROR*/ COMPILER:NUM-MESSAGES GT 0 THEN DO: ASSIGN cMsg = "". DO i...

Check out the Progress 4GL Editor PIEW. One of its tools is a code beautifier. It can be downloaded from http://progress-tools.x10.mx

First, Stefan thanks for a very interesting issue. I did some research, and some testing and came away with the following: 1) Research: STOP & QUIT are not captured by CATCH. 2) ENTRY(0,...) when used in the FOR-EACH where clause can only be trapped (ON STOP) in the outer FOR-EACH block, not...

I'm curious what you changed since post#10 where you added TRANSACTION to your code. Are you processing an ON-ERROR or the buffer not being AVAILABLE? Can you share a snippet of your code.

This one has my juices flowing. The left side of the equals is an assign and the find is on the right side, therefor I believe the no-error goes with the assign. (someone correct me if I'm wrong). Try this instead: bh:find-first("....") no-error. if bh:available then do...

I missed seeing that. Thanks for the catch. My eyes are getting old, along with the body.

Based on your code, I believe your program is failing in the "if then else" after the FIND. You set a local logical variable to true or false based on the results of the FIND. If the FIND is successful, you make some buffer assignments, if not successful, you also make some other buffer...

Here is a sample of simple structured error handling that I used to catch a server issue when opening file that would not be captured using the error-status. Maybe this would help your case. Good luck. procedure Open_Stream: def var cMsg as char no-undo. do transaction on...

I should have read the previous response. Mendu has the same response.

Two things need to be done for num-results: 1) use handle:num-results (already mentioned). 2) Change your "for each: to "preselect each". Num-results after an open with "for each" will return 0, "preselect" will return the query count.

/*Here is a small utility that allows you count records in multiple tables using SQL or ABL . Change the scoped-define for your table or leave the scoped-define empty. Hope this helps*/ &SCOPED-DEFINE TBL1 customer &SCOPED-DEFINE TBL2 employee &SCOPED-DEFINE TBL3 billto &SCOPED-DEFINE TBL4...

One way to find the number of records in a query is to change your query-prepare from "for each" to "preselect each" and after you open the query use the method h_query:num-results to obtain the number of rows. This is not a fast method of obtaining the count, but it works. "Preselect" does...

You need to define a handle for your table tt-table. def var hTT as handle no-undo. Initialize the handle. hTT = buffer tt-table:handle. Access your fields: def var hName as handle no-undo. hName = hTT:buffer-field(substitute("&1&2","name",l-idx)):handle. I suggest that you change your...