/*           CRTCMD     CMD(mylib/JSTLFT) +                        */
/*                      PGM(*LIBL/JSTLFT) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(JSTLFT) +                           */
/*                      TEXT('Justify left') +                     */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Justify left')
             PARM       KWD(STR) +
                        TYPE(*CHAR) +
                        LEN(128) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        VARY(*YES) +
                        CHOICE('max char(128)') +
                        PROMPT('String to justify')
             PARM       KWD(STRLEN) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('dec(3)') +
                        PROMPT('Significant length returned')