*
      *  To compile:
      *
      *             CRTLF FILE(YOURLIB/SFL001LF) SRCFILE(YOURLIB/QDDSSRC)
      *
      *=======================================================================
             	     CMD        PROMPT('Display Data Queue Description')
        	     PARM       KWD(QUEUE) TYPE(QUAL) MIN(1) PROMPT('Data +
                                Queue')
 	QUAL:        QUAL       TYPE(*NAME) MIN(1)
        	     QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                                (*CURLIB)) PROMPT('Library')