/*           CRTCMD     CMD(mylib/LUSSPLF) +                       */
/*                      PGM(QSYS/QUSLSPL) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(LUSSPLF) +                          */
/*                      TEXT('QUSLSPL')                            */

             CMD        PROMPT('List spool files to *usrspc')
             PARM       KWD(USRSPC) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified user space name' 2)
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*CURLIB) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Space library')
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(SPLF0100)
             PARM       KWD(USER) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*CURRENT) +
                        SPCVAL( +
                          (*CURRENT ) +
                          (*ALL ) +
                          (*BLANK  )) +
                        PROMPT('List for which user' 4)
             PARM       KWD(OUTQ) +
                        TYPE(Q01DB) +
                        DFT(*ALL) +
                        SNGVAL( +
                          (*ALL ) +
                          (*BLANK  )) +
                        PROMPT('Output queue' 5)
Q01DB:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Library')
             PARM       KWD(FORM) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL ) +
                          (*STD ) +
                          (*BLANK  )) +
                        PROMPT('Form type to include' 6)
             PARM       KWD(USRDTA) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL ) +
                          (*BLANK  )) +
                        PROMPT('User data to include' 7)
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(JOB) +
                        TYPE(Q034E) +
                        DFT(*BLANK) +
                        SNGVAL( +
                          (* ) +
                          (*BLANK  )) +
                        PROMPT('Job' 1)
Q034E:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        PROMPT('User')
             QUAL       TYPE(*CHAR) +
                        LEN(6) +
                        PROMPT('Number')
             PARM       KWD(KEYFLDRTN) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(NBRFLDRTN) +
                        TYPE(*INT4) +
                        CONSTANT(0)