Character client DCOLOR with IF statement raises error 91

Oct 14, 2019
Knowledge

Title

URL Name

character-client-dcolor-with-if-statement-raises-error-91

Article Number

000114800

Environment

Product: OpenEdge Version: 11.7.x OS: All supported platforms

Question/Problem Description

In a character client session, the DISPLAY statement with the DCOLOR attribute evaluates at runtime and raises error 91 regardless of whether a buffer record is or isn't available. For example the following code raises error 91 at runtime:

DEFINE TEMP-TABLE SomeResource 
    FIELD Resource-used  AS LOGICAL INITIAL FALSE
    FIELD Resource-code  AS INTEGER.

FOR EACH SomeResource:
    DISPLAY Resource-code
    DCOLOR IF SomeResource.Resource-used
        THEN 2
        ELSE 0
        WITH FRAME frame_1.
END.

The following also raises error 91:

DEFINE TEMP-TABLE SomeResource 
    FIELD Resource-used  AS LOGICAL INITIAL FALSE
    FIELD Resource-code  AS INTEGER.

CREATE SomeResource.
ASSIGN
  Resource-used = TRUE
  Resource-code = 2.
    
FOR EACH SomeResource:
    DISPLAY Resource-code
    DCOLOR IF SomeResource.Resource-used
        THEN 2
        ELSE 0
        WITH FRAME frame_1.        
END.

In previous versions this didn't happen.

Steps to Reproduce

Clarifying Information

The problem does not happen in the GUI client since the DCOLOR attribute applies to Character interfaces only.

Error Message

** No <file-name> record is available. (91)

Defect Number

Enhancement Number

Cause

This is expected behavior. The color phrase (whether it's DCOLOR, PFCOLOR, BGCOLOR, or FGCOLOR) is first evaluated immediately when the procedure is run, before any code in the procedure is executed. If it can't be evaluated at that point an error will occur. It's possible Progress version 6 behaved differently, but this is the behaviour since version 7.

It doesn't matter in this case that the DISPLAY statement comes well after the start of the procedure - the compiler collected all of the frames defined in the procedure and they are created (though not necessarily realized or displayed) immediately when the procedure is run.

Resolution

None at this time.

Workaround

Use an IF statement to determine the value of the buffer field, removing the field reference from the COLOR phrase:

DEFINE TEMP-TABLE SomeResource 
    FIELD Resource-used  AS LOGICAL INITIAL FALSE
    FIELD Resource-code  AS INTEGER.

FOR EACH SomeResource:      
     IF SomeResource.Resource-used = TRUE THEN
         DISPLAY Resource-code DCOLOR 2  WITH FRAME frame_1.
     ELSE
         DISPLAY Resource-code DCOLOR 0  WITH FRAME frame_1.       
END.

Notes

References to Other Documentation:
OpenEdge Development: ABL Reference, Chapter 4: Handle Attributes and Methods Reference, DCOLOR attribute

Keyword Phrase

Last Modified Date

10/17/2019 7:16 AM

Character client DCOLOR with IF statement raises error 91

Files(0)

Was this article helpful?

Was this article helpful?

Character client DCOLOR with IF statement raises error 91

Information

Related Articles