gtpm3m0w | Multi-Processor Interconnect Facility Reference |
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:
//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) //* //* //*---------------------------------------------------------------------- //*----------------------------------------------------------------------
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