이 JCL은 CICS®에 프로그램 자원을 정의하며, ELISEE.TEST.JCL(PROGRDO)에 있습니다. 대체 매개변수가 있는 위치를 표시하도록 준비되었습니다. 대체해야 하는 이 샘플 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) /* //