//STEP01 EXEC PGM=IEWL,
// PARM='LIST,XREF,LET,DCBS,AMODE(31),RMODE(24)'
//SYSLMOD DD DISP=SHR,DSN=yyy.SCSFMOD0 (the ICSF load library)
//SYSLIB DD DISP=SHR,DSN=xxxxxx.SDFHLOAD
//SDFHLOAD DD DISP=SHR,DSN=xxxxxx.SDFHLOAD
//SCSFMOD0 DD DISP=SHR,DSN=yyy.SCSFMOD0 (the ICSF load library)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSPRINT DD SYSOUT=*
//SYSLIN DD *
INCLUDE SDFHLOAD(DFHEAI)
REPLACE CSFDHEAI(DFHEAI),CSF0EAI
INCLUDE SCSFMOD0(CSFATREN)
ENTRY DFHEAI
NAME CSFATREN(R)
INCLUDE SDFHLOAD(DFHEAI)
REPLACE CSFDHEAI(DFHEAI),CSF0EAI
INCLUDE SCSFMOD0(CSFATRUE)
ENTRY DFHEAI
NAME CSFATRUE(R)
/*
//DFHRPL DD DISP=SHR,DSN=xxxxx.SDFHLOAD
// DD DISP=SHR,DSN=yyy.SCSFMOD0 (ICSF callable service stubs)
// DD DISP=SHR,DSN=yyy.SIEALNKE (ICSF shared libraries)
// DD ...
...
//SYSIN DD DISP=SHR,DSN=xxxxx.SYSIN(DFH$SIPx)
...
PLTPI=yy,
This is an example input deck for compiling a PLT for automatic enablement of the CICS-ICSF link. This is ASM code. Assemble it with the CICS macro library, but without the CICS translator.
//SYSIN DD *
*
* List of programs to be executed sequentially during system
* initialization. Required system initialization parm: PLTPI=yy
* DFHPLTCS should be defined in the CSD by CEDA or DFHCSDUP job
*
DFHPLT TYPE=INITIAL,SUFFIX=yy
*
* -------- Second stage of initialization -----------------
*
DFHPLT TYPE=ENTRY,PROGRAM=CSFATREN (Run enable of CSFATRUE)
*
* ---------- Delimiter between Stages 2 and 3 ------------
*
DFHPLT TYPE=ENTRY,PROGRAM=DFHDELIM
*
* --------- Third stage of initialization -----------------
* (none)
*
DFHPLT TYPE=FINAL
END
/*
The previous code is an example only. Your CICS administrator can use it as a guide in customizing the PLT. For more information about coding the PLT, refer to CICS Transaction Server for z/OS, Version 5 Release 1.
INCLUDE OBJLIB(DFHPLTyy)
NAME DFHPLTyy(R)
//UPDATE JOB ...
//*- - - - - - - - - - - - - - - - - - - - -
//DEFINES EXEC PGM=DFHCSDUP,REGION=2M
//STEPLIB DD DISP=SHR,DSN=xxxxxx.SDFHLOAD
// DD DISP=SHR,DSN=zzzzzzzz
//DFHCSD DD DISP=SHR,DSN=xxxxxx.DFHCSD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
*
DEFINE PROGRAM(CSFATREN) GROUP(ICSF)
DESCRIPTION(TRUE enablement routine)
LANGUAGE(ASSEMBLER)
*
DEFINE PROGRAM(CSFATRUE) GROUP(ICSF)
DESCRIPTION(ICSF interface TRUE)
LANGUAGE(ASSEMBLER)
CONCURRENCY(THREADSAFE)
API(OPENAPI)
*
DEFINE PROGRAM(DFHPLTyy) GROUP(ICSF)
DESCRIPTION(PLT Program Init for CSFATRUE)
LANGUAGE(ASSEMBLER)
ENABLE PROGRAM('CSFATRUE') TALENGTH(250) LINKEDITMODE START
CECI ENABLE PROGRAM('CSFATRUE') TALENGTH(250) LINKEDITMODE START