Difference between revisions of "WrkMsgs"

From MidrangeWiki
Jump to: navigation, search
Line 1: Line 1:
 
The following utility can be used to browse and edit iSeries message files.
 
The following utility can be used to browse and edit iSeries message files.
  
 +
<pre>
 
/*============================================================================*/
 
/*============================================================================*/
 
/* Name...: WRKMSGS                                                          */
 
/* Name...: WRKMSGS                                                          */
Line 18: Line 19:
 
/*        ??REPLACE(*NO)                                                    */
 
/*        ??REPLACE(*NO)                                                    */
 
/* Log....:                                                                  */
 
/* Log....:                                                                  */
/*  06AUG11 JEK- Updated                                                     */
+
/*  06AUG11 JK- Updated                                                       */
 
/* Notes..:                                                                  */
 
/* Notes..:                                                                  */
 
/*  COURTESY OF CLOVER BUSINESS ASSOCIATES LTD 1997                          */
 
/*  COURTESY OF CLOVER BUSINESS ASSOCIATES LTD 1997                          */
Line 25: Line 26:
 
             PARM      KWD(FILE) TYPE(FILE) MIN(1) PROMPT('MESSAGE +
 
             PARM      KWD(FILE) TYPE(FILE) MIN(1) PROMPT('MESSAGE +
 
                           FILE NAME (GEN*,*ALL)')
 
                           FILE NAME (GEN*,*ALL)')
 +
 
  FILE:      QUAL      TYPE(*GENERIC) LEN(10) SPCVAL((*ALL)) MIN(1)
 
  FILE:      QUAL      TYPE(*GENERIC) LEN(10) SPCVAL((*ALL)) MIN(1)
 
             QUAL      TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
 
             QUAL      TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
 
                           (*USRLIBL) (*ALLUSR) (*ALL)) +
 
                           (*USRLIBL) (*ALLUSR) (*ALL)) +
 
                           PROMPT('LIBRARY')
 
                           PROMPT('LIBRARY')
 +
</pre>

Revision as of 03:12, 4 June 2014

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')