cmd ('Display the PCML in a module')

/* Command processing program is DSPPCMLR.RPGLE */

/* CRTBNDRPG MYLIB/DSPPCMLR                  */
/* CRTCMD MYLIB/DSPPCML PGM(MYLIB/DSPPCMLR)  */

             PARM       KWD(OBJ) TYPE(QUALOBJ) PROMPT('Object +
                          containing module')
             PARM       KWD(MODULE) TYPE(QUALMOD) DFT(*ALLBNDMOD) +
                          SNGVAL((*ALLBNDMOD *ALLBNDMOD)) +
                          PROMPT('Module')
             PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*PGM) VALUES(*PGM *SRVPGM) +
                          SPCVAL((*PGM *PGM) (*SRVPGM *SRVPGM)) +
                          PROMPT('Object type') CHOICE('*PGM *SRVPGM')
             PARM       KWD(STATSONLY) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*NO) VALUES(*NO *YES) +
                          SPCVAL((*NO *NO) (*YES *YES)) +
                          PROMPT('Show stats only') CHOICE('*NO *YES')

  QUALOBJ:      QUAL TYPE(*NAME)               +
                EXPR(*YES)                     +
                LEN(10)
           QUAL TYPE(*NAME)                    +
                EXPR(*YES)                     +
                LEN(10)                        +
                DFT(*LIBL)                     +
                SPCVAL((*CURLIB *CURLIB)       +
                       (*LIBL *LIBL))          +
                PROMPT('Library')
  QUALMOD:      QUAL TYPE(*NAME)               +
                EXPR(*YES)                     +
                LEN(10)
           QUAL TYPE(*NAME)                    +
                EXPR(*YES)                     +
                LEN(10)                        +
                DFT(*ANY)                      +
                SPCVAL((*ANY *ANY))            +
                PROMPT('Library')