Esta lección describe cómo identificar y marcar parámetros para la sustitución dinámica de variables.
Este JCL define un recurso de programa para CICS que reside en ELISEE.TEST.JCL(PROGRDO). Se ha preparado para marcar el lugar donde están situados los parámetros de sustitución. Los parámetros de este JCL de ejemplo que necesitan sustituciones son USERID, PROGRAM, GROUP y 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) /* //