/*CRT**  PRDLIB(MERCSYS)                                             */

             CMD        PROMPT('Display Active Programs')

             PARM       KWD(PGM) TYPE(QUAL1) PROMPT('Program')
 QUAL1:      QUAL       TYPE(*NAME) DFT(*ALL) SPCVAL((*ALL)) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*ALLUSR) +
                          SPCVAL((*ALLUSR)) EXPR(*YES) +
                          PROMPT('Library')