/*  Procedure Where Used                                                      */
/*  CPP:  PRCWHRUSDC                                                          */

             CMD        PROMPT('Procedure Where Used')

             PARM       KWD(PROCEDURE) TYPE(*CHAR) LEN(256) MIN(1) +
                          PROMPT('Procedure')

             PARM       KWD(WILDCARD) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*NONE) SPCVAL((*NONE) (*BEFORE) +
                          (*AFTER) (*BOTH)) PROMPT('Wild Card')

             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*) SPCVAL((*) (*PRINT)) PROMPT('Output')

/******************************************************************************/
/*  CRTCMD CMD(library/PRCWHRUSD)                                             */
/*           PGM(*LIBL/PRCWHRUSDC)                                            */
/*           SRCFILE(library/QCMDSRC)                                         */
/*           SRCMBR(PRCWHRUSD)                                                */
/******************************************************************************/