gtpm3m0wMulti-Processor Interconnect Facility Reference

Executing MPIF Post-Processing Programs in an MVS Environment

The programs will function in an MVS environment. JCL samples have been provided below. To complete an installation, the user must enter the JCL, revising statements where appropriate for installation-dependent requirements prior to activating these programs.

Installations familiar with CLIST (TSO commands for foreground interactive) processing may obtain the equivalent VM interactive program execution by converting MVS JCL to CLIST statements in an MVS TSO environment.

Keep in mind that MVS JCL statements can be customized to installation-dependent requirements. As a result, the statements below should be examined and revised to meet the customer's environment prior to execution:

JCL Samples for MPIF Post-Processing

//JOB       JOB (Installation Dependent Parameters)
//JOBLIB    DD  (Installation-dependent Systems Libraries)
//*             DSN=SYS1.MACLIB,DISP=SHR     *** example ***
//*
//*         The program below reads your input command and search
//*         argument list.
//*
//*----------------------------------------------------------------------
//*----------------------------------------------------------------------
//*
//PGM1      EXEC    PGM=CBQ4,REGION=100K
//*
//LOGTAPE   DD  DSN=nnnn.nnnn.nnn1,DISP=SHR,VOL=SER=nnnnnn,UNIT=nnnn,
//              LABEL=(,SL)
//*
//REPORT    DD  DSN=MPIF.REPORT,DISP=(NEW,CATLG,KEEP),VOL=SER=nnnnnn,
//              DEV=3380,SPACE=(TRK,(2,2)),
//              DCB=(LRECL=71,BLKSIZE=7100,DSORG=PS)
//*
//TERM#OUT  DD  SYSOUT=A     (Identify your printer SYSOUT class here)
//TERM#IN   DD  *
//*
//*         Enter your input transaction below, using the standards
//*         established earlier in this document, starting in Col. 1:
//*
//*               COMMAND KEYWORD=ARGUMENT,KEYWORD=ARGUMENT
//*
//*         A sample has been provided for you to replace with your
//*         own specification:
//*
PRINT BLK=0010,MSG=05
/*
//*         The /* statement marks the end of your in-line input data
//*         for the program identified on //PGM1 JCL statement.
//*
//*----------------------------------------------------------------------
//*             If input errors are issued, see SYSOUT=A file contents
//*             for error description.
//*
//*             If PRINT or DEFAULT command,  see DSN=MPIF.REPORT file
//*             on DASD using ISPF commands.
//*
 
//*----------------------------------------------------------------------
//*----------------------------------------------------------------------
//*
//*         The program below will not be activated unless the pre-
//*         viously executed program returned a CONDITION CODE = 15
//*
//*         The following program will extract information from two
//*         tapes and build two temporary files if the COMPARE command
//*         was used.
//*
//PGM2      EXEC    PGM=CBQ5,COND=(15,EQ),REGION=100K
//*
//LOGTAPE1  DD  DSN=nnnn.nnnn.nnn1,DISP=SHR,VOL=SER=nnnnnn,UNIT=nnnn,
//              LABEL=(2,NL)
//LOGTAPE2  DD  DSN=nnnn.nnnn.nnn2,DISP=SHR,VOL=SER=nnnnnn,UNIT=nnnn,
//              LABEL=(,SL)
//*
//CPU1FILE  DD  DSN=&&TEMP.CPU1,UNIT=SYSDA,DISP=(NEW,PASS),
//              SPACE=(CYL,(2,2)),DCB=(DSORG=PS)
//*
//CPU2FILE  DD  DSN=&&TEMP.CPU2,UNIT=SYSDA,DISP=(NEW,PASS),
//              SPACE=(CYL,(2,2)),DCB=(DSORG=PS)
//*
//USERLIST  DD  DSN=*.PGM1.REPORT,DISP=SHR
//*
//TERM#OUT  DD  SYSOUT=A       (Identify your printer SYSOUT class here)
//*
//*
//*----------------------------------------------------------------------
 
//*----------------------------------------------------------------------
//*
//*         The program below will not be activated unless the pre-
//*         viously executed program returned a CONDITION CODE = 12
//*
//*         The following program will perform a CPU-to-CPU comparison
//*         between two sorted input files:
//*
//PGM3      EXEC    PGM=CBQ6,COND=(12,EQ,PGM2),REGION=100K
//*
//CPU1FILE  DD  DSN=&&TEMP.CPU1,DISP=SHR
//CPU2FILE  DD  DSN=&&TEMP.CPU2,DISP=SHR
//*
//REPORT    DD  DSN=*.PGM1.REPORT,DISP=SHR
//*
//TERM#OUT  DD  SYSOUT=A       (Identify your printer SYSOUT class here)
//*
//*
//*----------------------------------------------------------------------
//*----------------------------------------------------------------------

JCL Sample for Trace Summary Report

The tape number, shown as XXXXXX, and the link library name, shown as ACP.DEVP.TEST.LK, must be modified.

//CBQPRT EXEC  PGM=CBQPRTM3,REGION=512K
//STEPLIB DD DSN=ACP.DEVP.TEST.LK,DISP=SHR
//RTL     DD   DSN=RTA,LABEL=(2,BLP),DISP=(OLD,PASS),
//             DCB=(DEN=4,RECFM=U,BLKSIZE=4096),
//             VOL=(,RETAIN,SER=XXXXXX),
//             UNIT=(TAPE,,DEFER)
//PRINT   DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=133),OUTLIM=10000