Kbase P110164: How to handle BUFFER-FIELD <field> error (7351)
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/25/2005 |
|
Status: Unverified
GOAL:
How to suppress error message BUFFER-FIELD <field-name> was not found in buffer <buffer-name>. (7351)
SYMPTOM(s):
BUFFER-FIELD <field-name> was not found in buffer <buffer-name>. (7351)
FIX:
DEFINE TEMP-TABLE tt
FIELD fld AS CHARACTER.
DEFINE VARIABLE h_fld AS HANDLE NO-UNDO.
IF VALID-HANDLE(BUFFER tt:BUFFER-FIELD ("fld")) THEN DO:
IF VALID-HANDLE(BUFFER tt:BUFFER-FIELD ("fld_does_not_exist")) THEN DO: /* SE 7351 */
/* ..... */
END.
END.
/* workaround */
ASSIGN
h_fld = BUFFER tt:BUFFER-FIELD ("fld_does_not_exist") NO-ERROR.
IF VALID-HANDLE(h_fld) THEN DO:
/* ..... */
END.