D qcmdexc         PR                  extpgm( 'QCMDEXC' )
     D   os400_cmd                 2000A   options( *varsize ) const
     D   cmdlength                   15P 5                     const