/*           CRTCMD     CMD(mylib/SNDSCOMSG) +                     */
/*                      PGM(QSYS/QMHSNDSM) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(SNDSCOMSG) +                        */
/*                      TEXT('QMHSNDSM -- Send scope message')     */

             CMD        PROMPT('Send scope message')
             PARM       KWD(SCOPE) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*EXT) +
                        VALUES( +
                          '*EXT' +
                          '*PGM' +
                          '*CSE') +
                        EXPR(*YES) +
                        PROMPT('Scope type')
             PARM       KWD(PGM) +
                        TYPE(Q00EE) +
                        CHOICE(*NONE) +
                        PROMPT('Scope program to call')
Q00EE:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*ALL ) +
                          (*ALLUSR ) +
                          (*CURLIB ) +
                          (*LIBL ) +
                          (*USRLIBL )) +
                        PROMPT('Library')
             PARM       KWD(PGMDTA) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        EXPR(*YES) +
                        PROMPT('Program data')
             PARM       KWD(PGMDTALEN) +
                        TYPE(*INT4) +
                        DFT(*MAX) +
                        RANGE( +
                          0 +
                          256) +
                        SPCVAL( +
                          (*MAX 256) +
                          (*MIN 0)) +
                        EXPR(*YES) +
                        PROMPT('Length of program data')
             PARM       KWD(MSGKEY) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        CONSTANT(X'00000000')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)