WrkMsgs

From MidrangeWiki
Revision as of 03:12, 4 June 2014 by Houstonking (talk | contribs)
Jump to: navigation, search

The following utility can be used to browse and edit iSeries message files.

/*============================================================================*/
/* Name...: WRKMSGS                                                           */
/* Version: n/a                                                               */
/* Purpose: Work with Message Descriuptions                                   */
/* Summary:                                                                   */
/*        : 1) Call CL                                                        */
/* Params :                                                                   */
/*        : i_FILE    : Message File name                                     */
/*        : i_LIB     : Message File lib                                      */
/* Useage :                                                                   */
/* Compile:                                                                   */
/*  CRTCMD ??CMD(*LIBL/WRKMSGS)                                               */
/*         ??PGM(*LIBL/WRKMSGSC)                                              */
/*         ?*SRCFILE(*LIBL/QCMDSRC)                                           */
/*         ?*SRCMBR(WRKMSGS)                                                  */
/*         ??REPLACE(*NO)                                                     */
/* Log....:                                                                   */
/*  06AUG11 JK- Updated                                                       */
/* Notes..:                                                                   */
/*  COURTESY OF CLOVER BUSINESS ASSOCIATES LTD 1997                           */
/*============================================================================*/
             CMD        PROMPT('Work with message descriptions')
             PARM       KWD(FILE) TYPE(FILE) MIN(1) PROMPT('MESSAGE +
                          FILE NAME (GEN*,*ALL)')

 FILE:       QUAL       TYPE(*GENERIC) LEN(10) SPCVAL((*ALL)) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*USRLIBL) (*ALLUSR) (*ALL)) +
                          PROMPT('LIBRARY')