Auch folgendes bringt leider keinen Erfolg.

Code:
DQCMDEXC          PR                  extpgm('QCMDEXC')
D CMD                          255A   const            
D CMDLEN                        15  5 const