News Stay informed about the latest enterprise technology news and product updates.

CPYMSGD

CPYMSGD

CPYMSGD
 

/********************************************************************/
/*       PROGRAM NAME:   CPYMSGD                                    */
/*       DATE WRITTEN:   10/26/2001                                 */
/*       AUTHOR......:   Vijayakumar kannan                         */
/*       FUNCTION....:   THIS IS USED TO COPY AN EXISTING MESSAGE ID*/
/*                       TO A NEW MESSAGE ID FROM A SOURCE SYSTEM TO*/
/*                       A TARGET SYSTEM.                           */
/*                                                                  */
/********************************************************************/
             CMD        PROMPT('COPY MESSAGE DESCRIPTION')

             PARM       KWD(FRMMSGID) TYPE(*NAME) LEN(7) MIN(1) +
                          FULL(*YES) EXPR(*YES) PROMPT('From +
                          Message identifier' 1)

             PARM       KWD(FRMMSGF) TYPE(QUAL1) MIN(1) CHOICE(*NONE) +
                          PROMPT('From Message File' 2)

             PARM       KWD(TOMSGID) TYPE(*NAME) LEN(7) PROMPT('To +
                          Message identifier' 3)

             PARM       KWD(TOMSGF) TYPE(QUAL2) CHOICE(*NONE) +
                          PROMPT('To Message File' 4)

             PARM       KWD(SYSTEM) TYPE(*CHAR) LEN(10) MAX(4) +
                          PROMPT('Copy to System' 5)

QUAL1:      QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) PROMPT('Library')

QUAL2:      QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) PROMPT('Library')

  

Dig Deeper on iSeries programming commands

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close