class-id. node as "node"
    inherits from BASE.

repository.
    class BASE as "base"
    class node as "node"


factory.
working-storage section.
01 node-item pic X(200000).

method-id new.

linkage section.
01 node-object-lnk object reference.

procedure division returning node-object-lnk.
begin.
    invoke super "new" returning node-object-lnk
    exit method.
end method new.

end factory.

object.