Ce langage JCL définit une ressource de programme dans CICS située dans ELISEE.TEST.JCL(PROGRDO). Il a été préparé de façon à indiquer l'emplacement des paramètres de substitution. Les paramètres de ce langage JCL qui requièrent des substitutions sont USERID, PROGRAM, GROUP et 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@ * //************************************************************* //************************************************************* //* * //* DEFINITIONS DE RESSOURCES EN LIGNE * //* * //************************************************************* //* * //* MODIFIEZ LES CARTES DD SUIVANTES AFIN QU'ELLES * //* CORRESPONDENT AUX INFORMATIONS DE VOTRE SITE. * //* * //* NOM OBJET * //* --------- ------------------------------------- * //* STEPLIB FICHIERS CICS SDFHLOAD ET SDFHAUTH * //* DFHCSD FICHIER CSD * //* * //************************************************************* //* * //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) /* //