Figure 5B: Sample code with fixed-length fields

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

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