/*           CRTCMD     CMD(mylib/RTVLIBSIZ) +                     */
/*                      PGM(QSYS/QLIRLIBD) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RTVLIBSIZ) +                        */
/*                      TEXT('QLIRLIBD') +                         */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Retrieve Library Size')
             PARM       KWD(LIBSIZDTA) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('char(256)') +
                        PROMPT('Library size data')
             PARM       KWD(LENDTA) +
                        TYPE(*INT4) +
                        CONSTANT(256)
             PARM       KWD(LIBNAM) +
                        TYPE(*NAME) +
                        LEN(10) +
                        PROMPT('Library name')
             PARM       KWD(ATRRTV) +
                        TYPE(*CHAR) +
                        LEN(12) +
                        CONSTANT(X'000000020000000600000007')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)