//GXLCSD JOB <your jobcard>
//*****************************************************************/
//* Function: */
//* */
//* This is the sample of the DFHCSDUP job to create the resource */
//* definitions required for XML System Services. */
//* It defines one resource group: */
//* GXLXMLCG contains definitions needed for XML system services */
//* The user must install group GXLXMLCG, it is recommended to */
//* add group GXLXMLCG to the current grouplist for the CICS */
//* region or add to grouplist GXLXMLCL as is shown below. */
//* Before using this sample job replace the default parameter */
//* values with the values of your CICS installation. */
//* */
//*****************************************************************/
//*- - SET SYMBOLIC PARAMETERS -*/
//*
//SETCID SET CID='CICS410.CICS' ! Qualifier for CICS library
//SETCSD SET CSD='TTCICS4.CICS' ! Qualifier for target CICS CSD
//DFHCSDUP EXEC PGM=DFHCSDUP,REGION=4M
//STEPLIB DD DISP=SHR,DSN=&CID..SDFHLOAD
//DFHCSD DD DISP=SHR,DSN=&CSD..DFHCSD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
*
* delete the group GXLXMLCG
*
DELETE GROUP(GXLXMLCG)
*
* Add the group to GRPLIST GXLXMLCL
*
*
ADD GROUP(GXLXMLCG) LIST(GXLXMLCL)
*
*
*
* Programs
* Define GXLINPLT as a program in group GXLXMLCG
*
DEFINE PROGRAM(GXLINPLT) GROUP(GXLXMLCG) LANGUAGE(ASSEMBLER)
DESCRIPTION(XML PLT Program required by XML System Services)
CONCURRENCY(QUASIRENT) DATALOCATION(ANY) EXECKEY(USER)
*
* Note that CONCURRENCY(QUASIRENT) ensures that the program
* runs under the CICS QR TCB, which is what we want.
/*
//
//SUIMGLQ JOB <JOBCARD>
//*
//TABLEASM EXEC DFHAUPLE
//ASSEM.SYSUT1 DD *
TITLE 'DFHPLTI1 - ADD GXLINPLT TO PLT TABLE'
***********************************************************************
* *
* MODULE NAME = DFHPLTI1 *
* *
* DESCRIPTIVE NAME = LIST OF PROGRAMS TO BE EXECUTED DURING CICS *
* SYSTEM INITIALIZATION *
* *
* *
* FUNCTION = *
* *
* THIS LIST SPECIFIES THE GXLXMLCG GXLINPLT PROGRAM TO BE EXECUTED *
* DURING CICS TS SYSTEM INITIALIZATION SO GXLIMODV GETS LOADED *
* AT THE RIGHT LEVEL SO IT CAN BE USED BY TRANSACTION PROGRAMS. *
* THIS PROGRAM REQUIRED SYSTEM INITIALIZATION PARAMETER *
* PLTPI=I1. *
* *
*
*---------------------------------------------------------------------*
***********************************************************************
*
DFHPLT TYPE=INITIAL,SUFFIX=I1
*
*
* PROGRAMS SPECIFIED BEFORE THE DFHDELIM PROGRAM ARE RUN
* DURING SECOND INITIALIZATION STAGE.
* PROGRAMS SHOULD ALSO BE DEFINED TO CICS BY DFHCSDUP OR RDO
*
DFHPLT TYPE=ENTRY,PROGRAM=DFHDELIM
*
* PROGRAMS THAT SHOULD BE RUN IN THE THIRD INITIALIZATION
* PHASE (IF ANY) CAN BE SPECIFIED BELOW.
* PROGRAMS SHOULD ALSO BE DEFINED TO CICS BY DFHCSDUP OR RDO
*
DFHPLT TYPE=ENTRY,PROGRAM=GXLINPLT
*
DFHPLT TYPE=FINAL
*
END