*
      *  To compile:
      *
      *             CRTCMD CMD(YOURLIB/DSPDTAQ) SRCFILE(YOURLIB/QCMDSRC)
      *                    PGM(DSPDTAQDRG) VLDCKR(DSPDTAQDVC)
      *
      *=======================================================================
             	     CMD        PROMPT('Display Data Queue Description')
        	     PARM       KWD(QUEUE) TYPE(QUAL) PROMPT('Data Queue')
 	QUAL:        QUAL       TYPE(*NAME) MIN(1)
        	     QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                                (*CURLIB)) PROMPT('Library')