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

UNLOAD

Ver el tema anterior Ver el tema siguiente Ir abajo

UNLOAD

Mensaje por Coboler@ el Mar Abr 12, 2011 8:22 pm

Se puede realizar la Descarga de una Tabla entera o parte de la misma mediante varias utilidades. En ellas no es necesario especificar la Dcb, toma la que corresponda, dependiendo de la longitud de los campos a extraer a fichero.


//XXXXXXUN JOB (00,PMO),'DESCARGA',CLASS=T,MSGCLASS=X,
// NOTIFY=XXXXXX,MSGLEVEL=(1,1)
//JOBLIB DD DSN=LIBRERIA1,DISP=SHR
// DD DSN=LIBRERIA2,DISP=SHR
//**********************************************************
//** DESCARGA **
//**********************************************************
//P010 EXEC PGM=IKJEFT01,COND=(0,NE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DESARROLLO)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL)
END
/*
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSREC00 DD DSN=FICHERO.UNLOAD,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDES,SPACE=(TRK,(10,20),RLSE)
//SYSIN DD *
TABLA.DESCARGA
/*
//SYSIN DD *
TABLA.DESCAGAR WHERE CONCIDION = ‘LITERAL’
/*

En el ejemplo 1, se realiza la descarga de toda la Tabla DB2 DESCARGA, sobre el fichero SYSREC00, mediante la utilidad DB2 de IBM IKJEFT01.

En el ejemplo 2 se realiza descarga de la misma tabla, pero únicamente de aquellos que cumplen la condicion.
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


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