CMD        PROMPT('Display Program Locks')
             PARM       KWD(PROGRAM) TYPE(*CHAR) LEN(10) MIN(1) +
                          PROMPT('Enter program name')