[Sintaxis] Variables SET en ficha SYSIN

[Kuk]

Siempre me he preguntado si se podía exportar las variables de JCL definidas por SET en zonas de fichas como la SYSIN. Pues hace no mucho descubrí que se puede. Eso sí, ojo que se puede hacer sólo a partir del z/OS V2, en V1 no funciona.

Para ello se necesita:

• El comando EXPORT donde se reúnen las variables que son exportadas.
• En las fichas hay que añadir SYMBOLS=JCLONLY.

Ejemplo:

//MB01DETA JOB PROB,&SYSUID,MSGCLASS=H,CLASS=S,TIME=0,
//         NOTIFY=&SYSUID,REGION=0M,RESTART=*
//***********************************************************************
// EXPORT SYMLIST=(ENV,SYS)
// SET SYS='DBV1'
// SET ENV='6L'
//***********************************************************************
//JOBLIB DD DISP=SHR,DSN=VSHRDV.TM.LOAD <== DEV
//**********************************************************************
//* SELECT EN LAS TABLAS
//**********************************************************************
//STEPTAB1 EXEC PGM=IKJEFT01,DYNAMNBR=20,
// COND=(4,LT)
//SYSTSIN DD *,SYMBOLS=JCLONLY
DSN SYSTEM(&SYS)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DUMMY
//SYSOUT DD *
//SYSIN DD *,SYMBOLS=JCLONLY
-- 
SET CURRENT SCHEMA = 'TEST&ENV';
-- 
/*