Qualified data structures

We are on V7.1

I have a subprocedure in a module. It has this code in it as follows:

dcl-ds ds_last_no qualified likeds(co2no);
dcl-ds ds_last_op likeds(co2op);

dcl-ds co2no extname('CXIONR08NO' : *all) prefix('' : 2)
qualified
end-ds;


When I compile this using option 15 of PDM, the compile hangs. If the code is changed to this:


dcl-ds ds_last_no likeds(co2no);
dcl-ds ds_last_op likeds(co2op);

dcl-ds co2no extname('CXIONR08NO' : *all) prefix('' : 2)
qualified
end-ds;


the compile completes.

Does anyone know if there is a PTF that fixes this? I would expect that if the "qualified" should not be there, that the compiler would throw a message out instead of hang and never complete.

Thank you,

Doug