CmdMOVDIAGMSG < DBG400

<verbatim>
/******************************************************************************/
/* Copyright (c) Tom Liotta http://zap.to/tl400 Used with permission          */
/******************************************************************************/
/*           CRTCMD     CMD(mylib/MOVDIAGMSG) +                    */
/*                      PGM(QSYS/QMHMOVPM) +                       */
/*                      SRCFILE(mylib/mysrc) +                     */
/*                      SRCMBR(MOVDIAGMSG) +                       */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Move Diagnostic Message')
             PARM       KWD(MSGKEY) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        CONSTANT('    ')
             PARM       KWD(MSGTYP) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT(*DIAG)
             PARM       KWD(NBRTYPS) +
                        TYPE(*INT4) +
                        CONSTANT(1)
             PARM       KWD(MSGQ) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT(*)
             PARM       KWD(STCKCNT) +
                        TYPE(*INT4) +
                        CONSTANT(1)
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
</verbatim>

-- Main.MartinRowe - 24 Jun 2005

This topic: DBG400 > SourceCodeList > CmdSource > CmdMOVDIAGMSG
Topic revision: r2 - 01 Oct 2014 - 19:37:02 - UnknownUser

Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400? Send feedback