Examples of MPFLSTxx members

The contents of MPFLSTxx depend on the goals of your specific installation. The following five examples show possible contents of MPFLSTxx.

Example 1: Figure 1 assumes that you want to create a parmlib member named MPFLST7C to accomplish the following tasks:

Suppress some frequently issued JES2, MONITOR, and general messages that are of no interest to the operator or to automation processing.
Set the color and highlighting attributes of messages to display eventual action messages in pink and non-action messages issued by problem programs in yellow.

The SET MPF=7C command establishes this list of messages as those that are to be suppressed and ignored by an automation subsystem, and also sets the color and highlighting attributes for eventual action and non-action messages. The system uses the IBM-supplied defaults for all other message types or console fields.

Figure 1. Example: Creating parmlib member MPFLST7C

 $HASP100
 $HASP101
 $HASP150
 $HASP165
 $HASP200
 $HASP250
 $HASP309
 $HASP373
 $HASP375
 $HASP395
 IEC130I
 IEC705I
 IEF125I
 IEF126I
 IEF165I
 IEF170I
 IEF236I
 IEF237I
 IEF403I
 IEF404I
 .MSGCOLR  EVETACTN(P,N),PPMSG(Y,N)

Example 2: Figure 2 assumes that you want to create a parmlib member named MPFLSTDF to accomplish the following tasks:

Reset the color, highlighting, and intensity attributes to the IBM-supplied default values.
Suppress, retain, and mark eligible for automation processing the same messages as specified in the previously active concatenation of MPFLSTxx parmlib members.

Figure 2. Example: Creating parmlib member MPFLSTDF

 .MSGCOLR DEFAULT
 .MSGIDS NOCHANGE

Example 3: Figure 3 assumes that you want to create a parmlib member named MPFLSTRV to accomplish the following tasks:

Display all messages in reverse video (that is, the characters are to appear in black on a colored background).
Display eventual action messages in pink and non-action messages that are issued by problem programs in yellow.
Suppress, retain, and mark eligible for automation processing the same messages as specified in the previously active concatenation of MPFLSTxx parmlib members.

Figure 3. Example: Creating parmlib member MPFLSTRV

 .MSGCOLR URGATTN(R,R),IMEDACTN(W,R),EVETACTN(P,R)
 .MSGCOLR GENMSG(G,R),PPMSG(Y,R),SELPEN(B,R)
 .MSGCOLR INSTRERR(W,R),ENTRYARA(G,R),WARNLGEN(B,R)
 .MSGCOLR WARNRGEN(B,R),WARNRURG(R,R),OOLCNTL(T,R)
 .MSGCOLR OOLLABEL(T,R),OOLDATA(G,R)
 .MSGIDS NOCHANGE

Example 4: Figure 4 shows how to create a parmlib member named MPFLST18 to:

Display all messages of the form IECxxxx and have control pass to an installation-supplied WTO/WTOR installation exit routine each time the system prepares to issue such a message.
Suppress certain IEFxxxx messages and have control pass to an installation-supplied WTO/WTOR installation exit routine each time the system prepares to issue one of the messages.
Allow action message IEE601E to be displayed at the operator console but not be retained by the action message retention facility.

Figure 4. Example: Creating parmlib member MPFLST18

IEC*,SUP(NO),USEREXIT(usrexit1) /*usrexit1 handles IEC messages*/
IEF170I,SUP(YES),USEREXIT(usrexit2)
IEF236I,SUP(YES),USEREXIT(usrexit2)
IEF237I,SUP(YES),USEREXIT(usrexit2)
IEF403I,SUP(YES),USEREXIT(usrexit2)
IEE601E,SUP(NO),RETAIN(NO)         /*display only*/

Example 5: Figure 5 shows how to create a parmlib member named MPFLST02 to:

Specify that messages not identified in this member are not eligible for automation processing.
Establish the default for specific messages so that they are eligible for automation processing, suppressed, retained, and passed to an installation exit. Override this default for one particular message and have it displayed.
Establish the default for specific messages so that they are eligible for automation processing, suppressed and retained. Display one specific message.
Establish the default for specific messages so they are not retained. They are displayed and passed to an installation exit for processing. The installation exit must turn off automation processing and use the token to select a console to reroute the message to.
The last .DEFAULT statement with no options specified sets the defaults for the subsequent list of messages to AUTO(NO) RETAIN(YES) and SUP(YES) and the messages are passed to IEAVMXIT, if it exists.

Figure 5. Example: Creating parmlib member MPFLST02

/*
/* DO NOT AUTOMATE THOSE MESSAGES NOT SPECIFIED IN MPFLST
/*
.NO_ENTRY,AUTO(NO)
/*
/* AUTOMATE CONSOLE BUFFERS AND USE MPF EXIT
/*
.DEFAULT,AUTO(YES),USEREXIT(COMMTASK)
IEA405E                        /*WTO BUFFER SHORTAGE - 80% FULL*/
IEA404A,SUP(NO)                /*SEVERE WTO BUFFER SHORTAGE - 100% FULL
                                  ALSO TELL OPER WHY JOBS IN WAIT*/
IEA406I                         /*TO BUFFER SHORTAGE RELIEVED*/
/*
/* AUTOMATE PRODUCTION JOB STATUS MESSAGES
.DEFAULT,AUTO(YES)
IEF402I,SUP(NO)                 /*JJJ FAILED IN ADDRESS SPACE X
                                   SYSTEM ABEND SXXX  REASON - RC
                                   NOTIFY OPER OF FAILURE /*
IEF403I                        /*JJJ-STARTED */
IEF404I                        /*JJJ-ENDED   */
/*
/* REROUTE THE TAPE MESSAGES
/*
/*   - AUTO TOKEN USED BY EXIT TO SELECT CONSOLE FOR MESSAGE
/*   - EXIT MUST TURN OFF AUTOMATION (IMPLIED BY TOKEN USE)
/*   - REROUTE EXIT WILL SEND MESSAGE TO PROPER CONSOLE
/*
.DEFAULT,RETAIN(NO),USEREXIT(REROUTE),AUTO(TAPEPOOL),SUP(NO)
IEF233*                    /*  M DDD,SER,LABEL,JJJ,SSS,DSN */
IEF234E                    /*  K/D/R DDD,SER PVT/PUB/DTR, JJJ,SSS,SPACE*/
IEC400A                    /*  M DDD,SER/DSN*/
IEC401A                    /*  F DDD,SER/DSN*/
IEC402D                    /*  F DDD,SER/DSN*/
IEC403A                    /*  M DDD,SER*/
IEC501*                    /*  M DDD,SER,LABEL,DENSITY,JJJ,SSS,DSN*/
IEC507D                    /*  E DDD,SER,JJJ,SSS,DSN*/
IEC509A                    /*  F DDD,SER,JJJ,SSS,DSN*/
/*
/*       RESET DEFAULT FOR OLD LIST
/*       (FROM A DIFFERENT MPFLSTxx MEMBER)
.DEFAULT
 IEC*
 IEF170I
 IEF236I
 IEF237I
 IEF403I
 IEE601E