Difference between revisions of "WrkMsgs"
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. | ||
| − | + | /*============================================================================*/ | |
/* Name...: WRKMSGS */ | /* Name...: WRKMSGS */ | ||
/* Version: n/a */ | /* Version: n/a */ | ||
| Line 21: | Line 21: | ||
/* Notes..: */ | /* Notes..: */ | ||
/* COURTESY OF CLOVER BUSINESS ASSOCIATES LTD 1997 */ | /* COURTESY OF CLOVER BUSINESS ASSOCIATES LTD 1997 */ | ||
| − | /*===============================================================*/ | + | /*============================================================================*/ |
CMD PROMPT('Work with message descriptions') | CMD PROMPT('Work with message descriptions') | ||
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') | ||
Revision as of 03:09, 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 JEK- 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')
