Example of Using Dictionary Substitution in a Message Repository

The following is a sample message repository that contains a two-item dictionary:
Figure 1. Sample Repository - OPLUME REPOS
 OPLUME   REPOS    A1  F 80  Trunc=80 Size=9 Line=1 Col=1 Alt=0
 
 
00000 * * * Top of File * * *
      |...+....1....+....2....+....3....+....4....+....5....+....6....+....7...
00001 *
00002 * This is an example of a message repository file made with XEDIT
00003 * You can code a file similar to this for your application.
00004 *
00005 & 4 Line specifies the substitution character + no. of digits
00006 00070101E Invalid option '&1'
00007 00170101I You have invoked the &1
00008 80010101  compiler
00009 80020101  assembler
00010 * * * End of File * * *
Here is a line-by-line description of what this repository contains:
Line(s)
Explanation
1 - 4
Comment lines.
5
The control line.

An ampersand (&) is the substitution character, and you want to display 4 message number digits.

6
The first message in the repository, number 0007. When the message is to be displayed, you have to specify what information is to be substituted in place of the &1.
7
The second message, number 0017. When the message is to be displayed, you have to specify what information is to be substituted in place of the &1.
8
A dictionary item, number 8001. If you want to call message 0017 substituting “compiler” into &1, use the following XMITMSG command from the command line:
XMITMSG 17 8001 (APPLID OPL
The following message is displayed:
OPL???0017I You have invoked the compiler
(The message header also includes the application ID OPL and ??? is the default for the caller. See z/VM: CMS Commands and Utilities Reference for more information on XMITMSG.)
9
A second dictionary item, numbered 8002. If you want to call message 0017 substituting “assembler” into &2, use the following XMITMSG command:
XMITMSG 17 8002 (APPLID OPL
The following message is displayed:
OPL???0017I You have invoked the assembler