The OpenEdge Hive

I've written a method to read in a schema and generate a schema.cls file with the defintions. Have a look at this bit of code:

using proparseclient.*.
 
DEF VAR i AS INT NO-UNDO.
DEF VAR j AS INT NO-UNDO.
DEF VAR S AS INT NO-UNDO.

s = mtime.

do I = 1 TO 100000:
 assign j = Schema:JPNode_RecordSize .
end.

message "Loop Time (ms):" mtime - s SKIP

        "Node Record Size:" Schema:JPNode_RecordSize SKIP
        "Node Type OffSet:" Schema:JPNode_type_offset SKIP
        
        "BlockNode Record Size:" Schema:BlockNode_RecordSize SKIP
        "BlockNode File Index OffSet: " Schema:BlockNode_fileIndex_OffSet 
        
        view-as alert-box INFORMATION.

boy, it runs fast (the loop on my machine takes 54ms!) . It also makes the code look really readable, and we don't have to define variables all over the place. I think it suits everyone's requirements.

The class properties are defined as static, so we can reference them straight away. The code block above runs unaltered.

Comments ?