この JCL は、ELISEE.TEST.JCL(PROGRDO) にある CICS® に対してプログラム・リソースを定義します。これは、置換パラメーターがある場所にマークを付けるために準備されました。このサンプル JCL で、置換が必要なパラメーターは、USERID、PROGRAM、GROUP、および 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) /* //