Das Schlüsselwort qualified ist bei der DS nicht nowendig. Allerdings stimmt es, dass der Zugriff auf die Struktur nur qualifiziert erfolgen kann.
Folgender Code funktioniert (man beachte, dass kein Schlüsselwort qualified gesetzt ist):
Code:
       dcl-ds testDS_templ template;
         text varchar(50);
         netto packed(15:2);
         brutto packed(15:2);
       end-ds;


       test1();


       *inlr = *on;


       //----------------------------------
       dcl-proc test1;


       dcl-ds test1DS likeDS(testDS_templ);


       test1DS.text = 'hallo';
       test2(test1DS);


       end-proc;


       //----------------------------------
       dcl-proc test2;
       dcl-pi *n;
          inputDS likeDS(testDS_templ);
       end-pi;


       dsply inputDS.text;


       end-proc;