JamesBowen
19+ years progress programming and still learning.
Does the following code crash Progress/OpenEdge session when checking syntax?
I'm using OpenEdge 11.3.2 AppBuilder (32Bit) running on WINDOWS 7 PRO (64Bit). It's coded against the sports2000 database.
I'm using OpenEdge 11.3.2 AppBuilder (32Bit) running on WINDOWS 7 PRO (64Bit). It's coded against the sports2000 database.
Code:
DEFINE VARIABLE hnDynaQuery AS HANDLE NO-UNDO.
DEFINE VARIABLE hnCustomerBuffer AS HANDLE NO-UNDO.
CREATE BUFFER hnCustomerBuffer FOR TABLE 'Customers'.
CREATE QUERY hnDynaQuery.
hnDynaQuery:SET-BUFFERS(hnCustomerBuffer).
hnDynaQuery:QUERY-PREPARE('FOR EACH Customer').
hnDynaQuery:QUERY-OPEN().
IF hnDynaQuery:IS-OPEN THEN
DO:
QUERY-LOOP:
REPEAT:
PROCESS EVENTS.
hnDynaQuery:GET-NEXT(NO-LOCK).
IF hnDynaQuery:QUERY-OFF-END THEN
LEAVE QUERY-LOOP.
ACCUMULATE DECIMAL(hnCustomerBuffer::CreditLimit) (AVERAGE MINIMUM MAXIMUM).
END.
END.
hnDynaQuery:QUERY-CLOSE().
DELETE OBJECT hnDynaQuery.
DELETE OBJECT hnCustomerBuffer.
MESSAGE (ACCUM AVERAGE DECIMAL(hnCustomerBuffer::CreditLimit) ) SKIP
(ACCUM MINIMUM DECIMAL(hnCustomerBuffer::CreditLimit) ) SKIP
(ACCUM MAXIMUM DECIMAL(hnCustomerBuffer::CreditLimit) ) SKIP
VIEW-AS ALERT-BOX INFO.