CMD        PROMPT('TraceIt Init')

             PARM       KWD(PGM) TYPE(PGM) PROMPT('Program')

             PARM       KWD(UPDPROD) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) VALUES(*NO *YES) SPCVAL((Y *YES) +
                          (N *NO)) PROMPT('Update production files')

 PGM:        QUAL       TYPE(*NAME) LEN(10) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL)) PROMPT('Library')