Note that APPCPMxx does not need to define the LU of the server application nor does it require a transaction program (TP) in the MVS APPCTP repository. This is because TSM uses the VTAM record level API rather than the APPC/MVS.
Figure 24 shows the APPCPMxx statements used to define an APPC/MVS configuration.
Figure 24. APPCPMxx Parmlib Member
/*** ***/ /* This is an example using APPCPMxx statements to define an */ /* APPC/MVS configuration. */ /* */ /* APPCPMxx parmlib members contain startup, default, and */ /* customization values for APPC/MVS. They also contain */ /* information indicating the correspondence between */ /* logical unit(LU) names and transaction schedulers. */ /* */ /* This member illustrates the use of the LUADD, LUDEL, and */ /* SIDEINFO statement types, in context. */ /*** ***/ LUADD ACBNAME(A4VAPPC) /* SPECIFY THE NAME OF THE LU TO BE */ /* added - generic LU. */ BASE /* This is the default LU for */ /* outbound requests. */ TPDATA(SYS1.APPCTP)/* Specify the TP profile repository. */ /* */ TPLEVEL(SYSTEM) /* TPLEVEL(SYSTEM) is the default. */ /* OTHER VALUES COULD BE SPECIFIED. */ SIDEINFO /* Specify that VSAM data set */ DATASET(SYS1.APPCSI)/* SYS1.APPCSI is the permanent */ /* repository for the side information.*/ |
Figure 25 shows the sample IDCAMS job to create the dataset SYS1.APPCTP.
Figure 25. Sample JCL for TP Create (SYS1.APPCTP)
//APPCTP EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER - (NAME(SYS1.APPCTP) - VOLUMES(JTFASH) - INDEXED REUSE - SHAREOPTIONS(3 3) - RECORDSIZE(3824 7024) - KEYS(112 0) - RECORDS(300 150)) |
Figure 26 shows the sample IDCAMS job to create the dataset SYS1.APPCSI.
Figure 26. Sample JCL for SI Create (SYS1.APPCSI)
//APPCSI EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER - (NAME(SYS1.APPCSI) - VOLUMES(JTFASH) - INDEXED REUSE - SHAREOPTIONS(3 3) - RECORDSIZE(248 248) - KEYS(112 0) - RECORDS(50 25)) |
Figure 27 shows the VTAM LU definitions defined for an APPC/MVS configuration.
Figure 27. Generic VTAM LU definition for APPC/MVS
//*********** ** MVSAPPC - VTAM LU DEFINITIONS FOR APPC/MVS **** //*********** MVSAPPL VBUILD TYPE=APPL A4VAPPC APPL APPC=YES, X ABCNAME=A4VAPPC, X AUTOSES=0, X DDRAINL=NALLOW, X DRESPL=NALLOW, X EAS=32, X MODETAB=TPOMODE, X SECACPT=CONV, X SRBEXIT=YES, X VERIFY=NONE |
Figure 28 shows the ASCHPMxx statements used to define an APPC/MVS configuration.
Figure 28. ASCHPMxx Parmlib Member
CLASSADD CLASSNAME(A) MAX(6) MIN(2) RESPGOAL(0.5) MSGLIMIT(500) CLASSADD CLASSNAME(FAST) MAX(6) MIN(2) RESPGOAL(0.02) MSGLIMIT(500) CLASSADD CLASSNAME(SLOW) OPTIONS DEFAULT(SLOW) SUBSYS(JES2) TPDEFAULT REGION(4M) TIME(10,30) MSGLEVEL(1,1) OUTCLASS(X) |
//TSOUSER JOB ,TSOUSER,MSGCLASS=X, // PRTY=5 //TPINFO EXEC PGM=ATBSDFMU //SYSPRINT DD SYSOUT=* //SYSSDOUT DD SYSOUT=* //SYSSDLIB DD DISP=SHR,DSN=SYS1.APPCSI //SYSIN DD * SIDELETE DESTNAME(TOTIVSM2) <=== ensure it is not there yet SIADD DESTNAME(TOTIVSM2) <=== symbolic destination name in dsm.opt TPNAME(DUMMY) <=== any name you wish MODENAME(TIVSMAPPC) <=== mode name PARTNER_LU(A4VTIVSM2) <=== Partner LU SIRETRIEVE DESTNAME(TOTIVSM2) |
+--------------------------------------------------------------------------------+ |commmethod snalu6.2 | |symbolicdestination totivsm2 <== the name defined in MVS SI record | +--------------------------------------------------------------------------------+
PROC 0 PROFILE PROMPT CONTROL NOLIST NOCONLIST MSG FLUSH PROMPT /* it is important to include the parameter "PROMPT" */ /* in the PROFILE and CONTROL statements to allow */ /* DSMADMC (TSO Admin Client module) to prompt for */ /* input (e.g. PASSWORD). */ ALLOC F(DSCOPT) DA('TIVSM.TSOADMIN.OPTIONS') SHR REUSE ALLOC F(DSCLANG) DA('TIVSM.SANSMSG(ANSMENU)') SHR REUSE CALL 'SYS1.LINKLIB(DSMADMC)' FREE F(DSCOPT DSCLANG ) |
+--------------------------------------------------------------------------------+ |S APPC,SUB=MSTR | |S ASCH,SUB=MSTR | +--------------------------------------------------------------------------------+