Nein,

Code:
 D QCMD            PR                  EXTPGM('QCMDEXC')              
 D                             3000A   OPTIONS(*VARSIZE) CONST        
 D                               15P 5 CONST
Das ist im Prototype so definiert.

Robi