Kbase P89299: Error (3307) displaying an entire record from the VST _userlock
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
16/10/2008 |
|
Status: Unverified
SYMPTOM(s):
Error (3307) running DISPLAY _userlock statement
<segment-name> has exceeded its limit of <segment-size> bytes, in <file-name> at line # <line-number>. (3307)
CAUSE:
There are four fields in the _UserLock table that have arrays with 512 elements. This prevents it all from fitting on the screen and results in error 3307.
FIX:
Below is a sample program that could be used to display the information in the _UserLock table. It is not the only way to display the information in this table, it is just an example of something that works without the above error.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
FOR EACH _UserLock:
DISPLAY _UserLock EXCEPT
_UserLock-Chain
_UserLock-Flags
_UserLock-Recid
_UserLock-Type WITH FRAME a NO-BOX.
PAUSE 1.
DO i = 1 TO 512:
IF _UserLock._UserLock-Chain[i] <> ? OR
_UserLock._UserLock-Flags[i] <> ? OR
_UserLock._UserLock-Recid[i] <> ? OR
_UserLock._UserLock-Type[i] <> ? THEN DO:
DISPLAY
_UserLock._UserLock-Chain[i]
_UserLock._UserLock-Flags[i]
_UserLock._UserLock-Recid[i]
_UserLock._UserLock-Type[i] WITH FRAME b 12 DOWN.
DOWN WITH FRAME b.
END. /* these fields have values */
ELSE HIDE FRAME b.
END. /* do loop */
END. /* for each _UserLock */