/*           CRTCMD     CMD(mylib/RSTLIBL) +                       */
/*                      PGM(mylib/RSTLIBL) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RSTLIBL) +                          */
/*                      TEXT('Restore library list')               */

             CMD        PROMPT('Restore a swapped job *libl')
             PARM       KWD(OPT) +
                        TYPE(*CHAR) +
                        LEN(9) +
                        RSTD(*YES) +
                        DFT(*ORIGINAL) +
                        VALUES( +
                          '*POP' +
                          '*ORIGINAL')
                        EXPR(*YES) +
                        PROMPT('Type of restore')