BARR$SN1 job

//BARR$SN1 JOB ,

// NOTIFY=&SYSUID,COND=(4,LT),MSGCLASS=A

/*ROUTE PRINT U1 <====

//*************************************************************

//*

//* THIS STEP ADDS A TP DEFINITION FOR THE BARRSN SERVER

//*

//* 1) Change "xxxx.APPCTP" to your APPC/MVS transaction program

//* profile data set name as specified on the LUADD statement

//* for the LU name (e.g. MVSLU01) which will receive the

//* incoming FMH5. (See SYS1.PARMLIB(APPCPMxx) )

//* The LU name and data set name can also be found by

//* scanning the output from a "D APPC,LU,ALL" command,

//* looking for the BASE=YES definition.

//* The TP profile data set is often named SYS1.APPCTP or

//* USER.APPCTP.

//*

//* 2) Change "TPADD" to TPMODIFY if this TP definition

//* already exists and you want to change it.

//*

//* 3) Make sure that CLASS(FAST) is defined to your APPC/MVS

//* and that a sufficient number of initiators are defined

//* for CLASS(FAST). If there is only one initiator for

//* the class, then only one BARRSN job can run at one time.

//* This is probably OK as long as there are no long-

//* running jobs that also run in CLASS(FAST).

//* (See SYS1.PARMLIB(ASCHPMxx.) )

//* e.g. CLASSADD CLASSNAME(FAST) MAX(10) MIN(1) RESPGOAL(1)

//*

//* 4) Change the PARM='$' to the JES2 command character

//* appropriate for your installation.

//*

//* 5) Change 'xxxx.LINKLIB' to the name of the

//* APF authorized library containing the BARR$SN

//* program.

//* This name is also specified on the SYSLMOD DD card in the

//* BARR$SN2 job.

//*

//* 6) Change the GENERIC_ID(xxxx) value to a userid with

//* authority to execute the TP from the APF library.

//*

//*************************************************************

//STEP EXEC PGM=ATBSDFMU

//SYSPRINT DD SYSOUT=*

//SYSSDLIB DD DSN=xxxx.APPCTP,DISP=SHR

//SYSSDOUT DD SYSOUT=*

//SYSIN DD DATA,DLM=XX

TPADD

TPNAME(BARRSN)

ACTIVE(YES)

TPSCHED_DELIMITER(##)

TAILOR_SYSOUT(YES)

TAILOR_ACCOUNT(NO)

CLASS(FAST)

TPSCHED_TYPE(MULTI_TRANS)

GENERIC_ID(xxxx)

KEEP_MESSAGE_LOG(NEVER)

JCL_DELIMITER(END_OF_JCL)

//BARR$SN JOB ,MSGLEVEL=(1,1)

//BARR$SN EXEC PGM=BARR$SN,PARM='$'

//STEPLIB DD DSN=xxxx.LINKLIB,DISP=SHR

END_OF_JCL

##

XX

/*