This JCL defines a program resource to CICS® that is located in ELISEE.TEST.JCL(PROGRDO). It has been prepared to mark where the substitution parameters are located. The parameters in this sample JCL that require substitutions are USERID, PROGRAM, GROUP, and LANGUAGE.
//!USERID!C JOB , // MSGCLASS=H,TIME=(,4),REGION=28M,COND=(16,LT),NOTIFY=!USERID! //************************************************************* //* @START_RRS_COPYRIGHT@ * //* LICENSED MATERIALS - PROPERTY OF IBM * //* * //* RESTRICTED MATERIALS OF IBM * //* * //* (C) COPYRIGHT IBM CORP. 2005 * //* * //* @END_RRS_COPYRIGHT@ * //************************************************************* //************************************************************* //* * //* RDO RESOURCE DEFINITIONS * //* * //************************************************************* //* * //* MODIFY THE FOLLOWING DD CARDS TO MATCH YOUR SITE * //* INFORMATION. * //* * //* NAME PURPOSE * //* --------- ------------------------------------- * //* STEPLIB CICS SDFHLOAD AND SDFHAUTH DATASETS * //* DFHCSD CSD DATASET * //* * //************************************************************* //* * //DEFINE EXEC PGM=DFHCSDUP,REGION=1024K,PARM='CSD(READWRITE)' //STEPLIB DD DSN=CICSTS.V3R1M0.CICS.SDFHLOAD,DISP=SHR // DD DSN=CICSTS.V3R1M0.CICS.SDFHAUTH,DISP=SHR //DFHCSD DD DSN=CICSTS31.DFHCSD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE PROGRAM(!PROGRAM!) GROUP(!GROUP!) DESCRIPTION(CICS RDO PROGRAM DEFINITION) LANGUAGE(!LANGUAGE!) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) STATUS(ENABLED) /* //