/*           CRTCMD     CMD(MyLib/RTVOSLVL) +                      */
/*                      PGM(QSYS/QSZRTVPR) +                       */
/*                      SRCFILE(MyLib/MySrcF) +                    */
/*                      SRCMBR(RTVOSLVL) +                         */
/*                      TEXT('QSZRTVPR Retrieve OS/400 info') +    */
/*                      ALLOW( +                                   */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Retrieve OS level')
             PARM       KWD(OSINFO) +
                        TYPE(*CHAR) +
                        LEN(105) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Returned OS/400 information')
             PARM       KWD(OSINFOLEN) +
                        TYPE(*INT4) +
                        CONSTANT(105)
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(PRDR0100)
             PARM       KWD(PRDINFO) +
                        TYPE(*CHAR) +
                        LEN(27) +
                        CONSTANT('*OPSYS *CUR  0000*CODE')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)