Foro de Cobol
Registrate en el Foro de Cobol y Aporta tus experiencias y conocimientos sobre este lenguaje de programacion, con tu ayuda el foro crecera y todos nos podremos beneficiar de los conocimientos de los demas.

Gracias por entrar a COBOLEROS.ES
Síguenos en Twitter

Planificador Control-M y sus parámetros

Ver el tema anterior Ver el tema siguiente Ir abajo

Planificador Control-M y sus parámetros

Mensaje por Coboler@ el Dom Abr 17, 2011 7:50 pm

Control-M es el Planificador de Trabajos o Jobs, mediante el cual se van submitiendo las cadenas sin necesidad de intervención (teóricamente) de ningún Operador.

Control-M es un planificador que permite condicionar la correcta ejecución de una/s cadena/s a la ejecución de otra/s.

Control-M además permite pasar una serie de Parámetros a las cadenas que lanza, como pueden ser la Fecha del día, Hora, SubSistema sobre el que corren las cadenas, Unit de los ficheros de dicho SubSistema, y otra serie de parámetros y variables útiles para la ejecución de las cadenas. Además, permite operar con estos parámetros (extraer el mes de la fecha, tomar la fecha pero poniendo un día deseado, etc.).

EXP.CTM.V410.SYMBOL(DWHEMER)
DWHDSN = INF
DWHUNIT = SYSWRK
* MODIFICAR LAS VARIABLES EN CASO DE EMERGENCIA ***
* EJEMPLO:
%%DWHDSN = PRODWH
%%DWHUNIT = WORK


Para hacer uso por ejemplo de estos parámetros en un Jcl que va a ser ejecutado bajo Control-M, seria necesario codificar algo así :

//INCM000 JOB (00,INC),’S.A.C.’
//****************************************************************
//* %%LIBSYM EXP.CTM.V410.SYMBOL %%MEMSYM DWHEMER
//****************************************************************
//P005 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL %%DWHDSN.INC.FECHAMES NVSAM
DEL %%DWHDSN.INC.M000MI01.UNLOAD NVSAM
DEL %%DWHDSN.INC.M000MI09.UNLOAD NVSAM
DEL %%DWHDSN.INC.M000MI11.UNLOAD NVSAM
SET MAXCC=0
/*
//****************************************************************
//P010 EXEC TSOBATCH,COND=(0,NE)
//FECHAMES DD DSN=%%DWHDSN.INC.FECHAMES,
// DISP=(,CATLG,DELETE),
// UNIT=%%DWHUNIT,SPACE=(CYL,(100,20),RLSE),
// DCB=RECFM=FB,LRECL=32,BLKSIZE=18432)
//SYSTSIN DD *
DSN SYSTEM (DBSP)
RUN PROG (INCM160)
END
/*


En el ejemplo, se genera el fichero FECHAMES, desde el entorno de Producción, pero para ser utilizado en el Centro de Información, ya que se llamará INF.INC.FECHAMES y tendrá UNIT=SYSWRK.

Otros Parámetros que pueden usarse en las cadenas son los de fechas, seria necesario codificar algo así :

//P070 EXEC DBSIUTIL,UID='LOADALTA'
//SYSREC DD DSN=DBSI.MOROLOAD.TSMOMS.MES.D%%OJULDAY,
// DISP=(OLD,PASS)
//SYSIN DD *
LOAD DATA REPLACE LOG NO DISCARDS 1
INTO TABLE BKMOROCI.MOMORO_SCTO
RUNSTATS TABLESPACE BKMOROCI.TSMOMS
INDEX(ALL) TABLE(ALL)
/*


En el ejemplo, se realiza la carga de la tabla NUMALTAS con el fichero SYSREC, mediante la utilidad DBSIUTIL, pero la parte final del fichero toma el nombre D + Día Juliano (D109), recogido de Control-M.

//P010 EXEC PGM=IAFGENN1,COND=(0,NE)
//ENTRADA DD DSN=EXP.MICIAF.POSM0981.D%%ODATE,DISP=SHR
//SALIDA DD DSN=&&POSM0981,
// DISP=(,PASS),UNIT=WORK,
// SPACE=(TRK,(50,10),RLSE),
// DCB=(RECFM=V,LRECL=32722,BLKSIZE=32726)
//SYSPRINT DD SYSOUT=*
//CONTROL1 DD DSN=EXP.IAF.DATA(POSM0981),DISP=SHR


En el ejemplo, se ejecuta el programa IAFGENN1, tomando como entrada el fichero ENTRADA, al cual toma como parámetros para su nombre en su parte final D + Fecha Día (D981122).

También podemos tener nuestros propios Parámetros que pueden usarse en las cadenas de la siguiente forma :

//XARD029 JOB (00,EXT),’CONTABILIDAD’
//****************************************************************
//JOBLIB DD DSN=CSP330.AELOAD.PRO,DISP=SHR
//****************************************************************
//* %%SET %%B1 = BKPOSI.POSICION
//****************************************************************
//P010 EXEC DSNTIPRO
//SYSREC00 DD DSN=PRO.WORK.XAR.TSPOSI,DISP(,PASS),
// UNIT=WORK,SPACE=(TRK,(500,50),RLSE)
//SYSIN DD *
%%B1 WHERE POSI_CENTRO = ‘0005’ AND POSI_TIPOCTA = ‘18’
/*


En el ejemplo, se realiza la descarga de la tabla POSICION de creador BKPOSI, sobre el fichero SYSREC00, mediante la utilidad DSNTIPOR, extrayendo únicamente del Centro 0005 aquellas filas cuyo tipo de cuenta sea 18.
avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.