for each _user no-lock:
display _user.
end.
for each _file no-lock where _file-num > 0 and _file-num < 10000:
display
_file-name
_can-create
_can-delete
_can-dump
_can-load
_can-read
_can-write
.
end.
for each _file no-lock where _file-num > 0 and _file-num < 10000,
each _field no-lock of _file:
display
_file-name
_field-name
_can-read
_can-write
.
end.
You may be preaching to the wrong choir. The sermon, amuzing at first, starts to get repetitevly annoying.You are moving backwards from ancient, obsolete, unsupported and criminally irresponsible towards public endangerment.
...and yet here we are. There is a chance among all the "buy my product or service" presentations over the years I might have missed the ones on how to implement "more secure" "security". At the same time, arguing about security "flaws", actual or perceived, realistic, pragmatical, imagined or philosophical in public doesn't exactly enhance the security of existing systems ..."Security" when running v8 or v9 is as full of holes as Swiss cheese. Significant improvements have been made in more modern releases.