OTRAS UTILIDADES NO
MVS
6.1.- LOAD
|
//*********************************************************** //* ABRE UT
//*********************************************************** //*
//ABRER10 EXEC DB2COMMN,SISTEMA='DBD1',COND=EVEN //SYSTSIN DD
*
DSN SYSTEM(DBD1) SN SYSTEM(DBD1)
-START DB(OI45859) SPACE(DES45859) ACCESS(FORCE) -START DB(OI45859)
SPACE(SRAFNMRH) ACCESS(FORCE)
//*********************************************************** //* BORRAR FICHEROS DE CARGA
//*********************************************************** //*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL DES.LOADAFNM.LOAD.SORTOUT.NNAAA DEL
DES.LOADAFNM.LOAD.SYSERR.NNAAA DEL
DES.LOADAFNM.LOAD.SYSMAP.NNAAA DEL
DES.LOADAFNM.LOAD.SYSDISC.NNAAA DEL
DES.LOADAFNM.LOAD.SYSUT1.NNAAA
SET MAXCC = 0
//*
//LOAD EXEC
DSNUPROC,SYSTEM=DBD1,UID='LOADAFNM', // UTPROC='',SIZE=0M
//SORTOUT DD
DSN=DES.LOADAFNM.LOAD.SORTOUT.NNAAA, // DISP=(NEW,CATLG,DELETE),UNIT=SYSALLDA, // SPACE=(TRK,(210,15),RLSE)
//SYSERR DD
DSN=DES.LOADAFNM.LOAD.SYSERR.NNAAA, // DISP=(NEW,CATLG,DELETE),UNIT=SYSALLDA, // SPACE=(TRK,(15,15),RLSE)
//SYSMAP DD
DSN=DES.LOADAFNM.LOAD.SYSMAP.NNAAA, // DISP=(NEW,CATLG,DELETE),UNIT=SYSALLDA, // SPACE=(TRK,(15,15),RLSE)
//SYSDISC DD
DSN=DES.LOADAFNM.LOAD.SYSDISC.NNAAA, // DISP=(NEW,CATLG,DELETE),UNIT=SYSALLDA, // SPACE=(TRK,(15,15),RLSE)
//SYSUT1 DD
DSN=DES.LOADAFNM.LOAD.SYSUT1.NNAAA, //
DISP=(NEW,CATLG,DELETE),UNIT=SYSALLDA, // SPACE=(TRK,(30,15),RLSE)
//* FICHERO
QUE CONTIENE LOS DATOS A CARGAR
//SYSREC00 DD
DSN=DES.GROI.SORT.HECONOMI.TODO,
// DISP=SHR //SYSIN DD
*
LOAD DATA LOG NO
INDDN SYSREC00
RESUME
NO REPLACE
INTO TABLE
DES01.S_AFNM_HECONOMI
/*
//********************************************************** //* ABRE PARA
R/W
//********************************************************** //*
//ABRER10 EXEC
DB2COMMN,SISTEMA='DBD1',COND=EVEN //SYSTSIN DD
*
DSN SYSTEM(DBD1)
-START DB(OI45859) SPACE(DES45859) ACCESS(FORCE) -START
DB(OI45859) SPACE(SRAFNMRH) ACCESS(FORCE) //*
//********************************************************** //* BORRAR FICHEROS
DE MANIOBRA DE LA CARGA //********************************************************** //*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=* //SYSIN DD *
DEL DES.LOADAFNM.LOAD.SORTOUT.NNAAA
DEL DES.LOADAFNM.LOAD.SYSUT1.NNAAA
//*
|
|
//CARGA01 JOB (CDT),'LOAD',NOTIFY=&SYSUID,
//
CLASS=C,MSGCLASS=H,MSGLEVEL=(1,1)
//*
*********************************************
//* * LOAD UTILITY REPLACE NOCOPYPEND *
//*
*********************************************
//PASO010 EXEC
DBAAPROC,SYSTEM=DBAA,UID='LOAD.DATA',UTPROC=''
//SYSREC00 DD
DSN=UCODA03.MCOD.CORTXXX.UNLOAD1,DIS=SHR
//SYSUT1 DD
DSN=&&TEMPS,SPACE=(CYL,(10,5),,,ROUND),UNIT=SYSDA
//SORTOUT DD
DSN=UCODA03.SORTOUT1,DISP=(NEW,DELETE,CATLG),
//
SPACE=(CYL,(10,5),,,ROUND),UNIT=SYSDA
//UTPRINT DD SYSOUT=*
//SYSIN DD *
LOAD DATA INDDN SYSREC00 LOG NO RESUME YES NOCOPYPEND
INTO TABLE MCOD.AUTOS;
/*
//*
|
LOAD es una utilidad que permite cargar registros en tablas y construir
o ampliar índices de las mismas.
Si la tabla ya contiene datos, se podrían añadir otros nuevos, o bien,
reemplazar los datos ya existentes.
Antes de realizarse la carga, los datos serán previamente validados.
Sentencias de JCL para LOAD:
-
SYSREC – fichero de entrada que
contiene los datos a cargar.
-
SYSPRINT – fichero de salida donde
la utilidad deja los mensajes de ejecución.
-
SYSUT1 – fichero de trabajo
temporal que se usa para ordenar ficheros de entrada.
-
SORTOUT – fichero de trabajo
temporal que se usa para ordenar ficheros de salida.
-
SYSERR – fichero de errores de
proceso.
-
SYSMAP – fichero de trabajo para mapear
el identificador de las columnas de una tabla, en caso de error.
-
SYSDISC – fichero de trabajo que
contiene los registros no cargados.
-
UTPRINT – fichero que contiene
mensajes desde DFSORT.
-
SYSIN – codificación de los
mandatos o sentencias de control.
Sentencias de Control para LOAD:
-
DATA – identifica los datos
seleccionados para cargar con el nombre de la tabla que se indica en INTO
TABLE.
-
INDDN – especifica el nombre del
fichero de entrada. Dicho fichero tiene que ser de acceso secuencial y formato
fijo o variable. Por defecto es SYSREC.
-
RESUME – indica si los registros
van a ser cargados en un table space vacío o no.
§ NO – valor por defecto. Carga registros en un table space vacío. Por si
acaso no estuviese vacío, habría que utilizar REPLACE para evitar errores.
§ YES – carga registros en un table space no vacío. Si estuviese vacío,
daría un warning, pero los datos se cargarían correctamente.
-
REPLACE – indica si el table space
y todos sus índices necesitan ser reseteados, para vaciar antes de cargar los
registros. Con esta opción, las columnas nuevas a cargar reemplazarán a todas
las existentes.
-
LOG – indica si la entrada al
sistema ocurre durante la fase de reload o en el proceso de carga.
§ NO – entrada al sistema durante el proceso de carga. Valor por defecto.
§ YES - esta opción pone la
restricción COPY-pending, por la cual no se puede actualizar ninguna tabla. A
través de NOCOPYPEND, se indica al LOAD que no fije el status de COPY-pending.
6.2.- UNLOAD
|
//DESCARG1 JOB (CDT00),'UNLOAD
',CLASS=C,
//
MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
// REGION=4096K
//********************************************************************
//*
DESCARGA A TRAVES DE UNA SELECT
//********************************************************************
//*
//STEP010 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAA)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB71) PARM('SQL') -
LIB('DSN710AA.RUNLIB.LOAD')
END
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD
DSN=UCODA03.MCOD.CORTXXX.UNLOAD1,
// SPACE=(TRK,(10,10),RLSE),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA
//SYSIN DD *
SELECT * FROM MCOD.AUTOS
;
/*
|
UNLOAD es una utilidad que permite recuperar datos de tablas DB2,
descargando las tablas enteras, o bien, especificando ciertas columnas.
Esta utilidad siempre debe ejecutarse en el mismo sistema en el que se
encuentran las tablas.
Sentencias de JCL para UNLOAD:
-
SYSREC – fichero de salida que
contiene los datos descargados.
-
SYSPRINT – fichero de salida donde
la utilidad deja los mensajes de ejecución.
-
SYSPUNCH – fichero de trabajo que
contiene las sentencias de LOAD necesarias para un proceso de recarga de datos.
-
SYSIN – codificación de los
mandatos o sentencias de control.
No hay comentarios.:
Publicar un comentario