/*           CRTCMD     CMD(mylib/RTNLEN) +                        */
/*                      PGM(mylib/RTNLEN) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RTNLEN) +                           */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM) +                                 */
/*                      HLPPNLGRP(mylib/RTNLEN) +                  */
/*                      HLPID(RTNLEN)                              */

             CMD        PROMPT('Return LEN of a value')
             PARM       KWD(VALUE) +
                        TYPE(*CHAR) +
                        LEN(3000) +
                        MIN(1) +
                        EXPR(*YES) +
                        VARY(*YES) +
                        PROMPT('Value to measure')
             PARM       KWD(LEN) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('Variable name (*DEC 5,0)') +
                        PROMPT('Returned length')