Figure 5A: Sample code with variable-length fields

D QualName        S             33    VARYING
D Library         S             10    VARYING
D File            S             10    VARYING
D Member          S             10    VARYING

 /FREE
    QualName = Library + '/' + File + '(' + Member + ')';
 /END-FREE