Consultor Eletrônico

Status: Verified

SYMPTOM(s):

4GL/ABL: Outline View may fail to list all the internal procedures of an include file.

Outline View fails to list internal procedures contained in an include file if the first internal procedure contains include statements {...} that are not terminated with a period.

Issue occurs if code similar to the following is pasted into a newly created ABL include file:
PROCEDURE IP_VAL-QRY:
IF NOT qh:QUERY-PREPARE(v-QryString) THEN
DO:
v-ValQry = TRUE.
IF NOT SESSION:BATCH-MODE THEN
{pt/msg.i 2 "'QUERY-PREPARE FAILED!! PROGRAM ABORTED!!'"}
END.
ELSE
v-ValQry = FALSE.
END PROCEDURE.
PROCEDURE IP_QRY-RESULTS:
IF qh:num-results = 0 then
DO:
v-QryResults = true.
IF NOT SESSION:BATCH-MODE THEN
{pt/msg.i 2 "'The query did not return any results!'"}
END.
else
v-QryResults = false.
END PROCEDURE.
PROCEDURE IP_HOLD-CHK:
IF prd-sched.hold-order = TRUE THEN
v-OnHold = TRUE.
ELSE
v-OnHold = FALSE.
END PROCEDURE.

FACT(s) (Environment):

Windows
OpenEdge 10.1B

FIX:

None at this time, a workaround is to terminate all the include statements in the first internal procedure with period characters '.'. For example, in the above code sample, terminating the include statement:
{pt/msg.i 2 "'QUERY-PREPARE FAILED!! PROGRAM ABORTED!!'"}.
in the the first internal procedure IP_VAL-QRY with a period character causes all internal procedures to be properly displayed in the Outline View.