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

LOAD

Ver el tema anterior Ver el tema siguiente Ir abajo

LOAD

Mensaje por Coboler@ el Miér Abr 13, 2011 7:26 pm

Se puede realizar una Carga de una Tabla partiendo de un fichero Secuencial, añadiendo los registros a los ya existentes, o reemplazando los registros del fichero por los existentes en la Tabla.


//P020 EXEC DBSDUTIL,UID='LOADDD16'
//SYSREC DD DSN=XXX.XXXX.TABLA,DISP=SHR
//SORTOUT DD UNIT=SYSDES,SPACE=(TRK,(10,10),,,ROUND)
//SYSUT1 DD UNIT=SYSDES,SPACE=(TRK,(10,10),RLSE)
//SYSIN DD *
LOAD DATA INDDN SYSREC REPLACE LOG NO
WORKDDN(SYSUT1,SORTOUT)
INTO TABLE DESARROLLO.TABLA
/*
//P030 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBSD)
-START DATABASE(TABLE) ACCESS(FORCE) +
SPACENAM(TSPOSI)
END
/*


En el ejemplo, se realiza la carga de la Tabla DB2 TABLA, a partir del fichero SYSREC, mediante la utilizada DBSDUTIL, reemplazando los registros del fichero por todo lo que hubiere en la tabla (RESUME YES en lugar de REPLACE, añade los registros a los existentes en la Tabla), asignando como nombre de utilidad LOADDD16. Posteriormente se arranca la Base de Datos sobre la que se ha realizado la Load, para dejarla accesible.


//* ESTADISTICAS UTILIZACION DE ESPACIO Y EFICACIA INDICES
//*
//TSSGPT EXEC DBSDUTIL,UID=RUNS
//SYSIN DD *
RUNSTATS TABLESPACE DESARROLLO.TABLA
INDEX(ALL) TABLE(ALL)
SHRLEVEL REFERENCE
/*


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.