Difference between revisions of "WrkMsgs"
From MidrangeWiki
Houstonking (talk | contribs) |
Houstonking (talk | contribs) |
||
| 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 | + | /* 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')
