UTILIDADES
MVS FRECUENTES
IEBGENER
Este programa de utilidad realiza las siguientes funciones:
-
Crear una copia de un fichero
secuencial o de un miembro de un particionado.
-
Crear un particionado o un miembro
a partir de un secuencial.
-
Añadir miembros a un particionado.
-
Generar una salida editada de un
fichero secuencial o particionado.
-
Cambiar el blocaje de un fichero,
o modificar las longitudes de registro de un fichero.
|
//TRABAJO JOB
//PROGRAMA EXEC
PGM=IEBGENER
//SYSPRINT DD
SYSOUT=*
//SYSUT1 DD DSN=…,DISP=SHR
//SYSUT2 DD DSN=…,DISP=…
//SYSIN DD *
Sentencias de
Control
/*
|
Sentencias de JCL para IEBGENER:
-
JOB – inicia el trabajo.
-
EXEC – indica el programa que va a
ejecutarse, IEBGENER.
-
SYSPRINT – fichero de salida donde
la utilidad deja los mensajes de ejecución.
-
SYSUT1 – fichero de entrada.
-
SYSUT2 – fichero de salida.
-
SYSIN – codificación de las
sentencias de control.
|
//TRABAJO JOB
//PROGRAMA EXEC
PGM=IEBGENER
//SYSPRINT DD
SYSOUT=*
//SYSUT1 DD
DSN=USUARIO.FUENTE.DATOS,DISP=SHR
//SYSUT2 DD
DSN=USUARIO.MAESTRO.DATOS,DISP=SHR
//SYSIN DD *
GENERATE MAXFLDS=99,MAXLITS=5
RECORDS
FIELD=(5,’LOPEZ’,,1),
FIELD=(3,1,PZ,6)
EXITS IOERROR=RUTINA
/*
|
Sentencias de Control para IEBGENER:
-
GENERATE MAXFLDS – indica el número de campos que se van a dejar
en la salida.
-
MAXLITS – especifica el número de
caracteres en literales que se pueden dejar en los campos de salida del fichero
destino.
-
RECORD – permite definir el
registro de datos.
-
FIELD – longitud, posición inicial
en entrada, conversión, posición inicial en salida.
|
//TRABAJO JOB
//PROGRAMA EXEC
PGM=IEBGENER
//SYSPRINT DD
SYSOUT=*
//SYSUT1 DD
DSN=USUARIO.FUENTE.DATOS,DISP=SHR
//SYSUT2 DD
DSN=USUARIO.MAESTRO.DATOS,DISP=SHR
//SYSIN DD
*
GENERATE
MAXNAME=2,MAXGPS=2
MEMBER NAME=CLIENTES
RECORDS
IDENT=(5,’LOPEZ’,1)
MEMBER NAME =VENTAS
IDENT=(4,’DATO’,10)
/*
|
Sentencias de Control para IEBGENER:
-
GENERATE MAXNAME – especifica el número de miembros que se van a
crear.
-
MEMBER NAME – asigna nombre a un
nuevo miembro.
-
RECORDS IDENT – define los datos del registro en el
siguiente orden: longitud del valor, valor, columna inicial. Tantos como
indique MAXGPS.
-
También se puede emplear RECORD
FIELD, en lugar de RECORD IDENT, donde
se especifica: longitud, posición inicial en entrada, conversión, posición
inicial en salida.
DFSORT
Este programa de utilidad realiza las siguientes funciones:
-
Ordenación de registros en un
fichero.
-
Fusión de dos o más ficheros en
uno.
-
Copia de ficheros.
-
Eliminación de registros de un
fichero.
-
Reformateo de registros de un
fichero.
-
Acumular los valores de los
registros.
DFSORT – Ordenación
|
//TRABAJO JOB
//ORDENAR EXEC
PGM=SORT
//SYSOUT DD
SYSOUT=*
//SYSIN DD *
SORT
FIELDS=(1,5,CH,A,7,8,CH,D)
INCLUDE
COND=(1,5,CH,GT,6,5,CH)
SUM FIELDS=(14,9,PD)
OUTREC FIELDS=(1,100)
//SORTIN DD
DSN=…,DISP=SHR
//SORTOUT DD
DSN=…,DISP=…
//SORTWKnn DD
UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
|
Sentencias de JCL para DFSORT:
-
JOB – inicia el trabajo.
-
EXEC – indica el programa que va a
ejecutarse, SORT.
-
SYSOUT – fichero de salida donde
la utilidad SORT deja los mensajes de la ejecución.
-
SORTIN – fichero de entrada que se
quiere ordenar, hasta un total de 99 ficheros.
-
SORTOUT – fichero de salida en el
que se desea guardar el fichero ya ordenado y reformateado.
-
SORTWKnn – ficheros de trabajo que
se utilizan para que el sistema tenga mejor rendimiento al realizar la
ordenación del fichero.
-
SYSIN – codificación de las
sentencias de control.
Sentencias de Control para DFSORT:
-
SORT FIELDS=(inicio, longitud,
tipo, orden) – indica los campos por los que se quiere ordenar el fichero.
Dichos campos se especifican mediante su posición de inicio y su longitud, el
orden puede ser ascendente o descendente, y el tipo de campo (CH, carácter; BI,
binario; PD, empaquetado; ZD, decimal).
-
INCLUDE COND – incluye únicamente
los registros que cumplen una condición especificada.
INCLUDE COND=(inicio,longitud,tipo,operador comparación,valor,operador
lógico,
inicio,longitud,tipo,operador
comparación,inicio,longitud,tipo)
Para poner varias condiciones, se utilizan los operadores lógicos (AND,
OR) separados por comas.
-
OMIT COND – se excluyen los
registros que cumplen una condición especificada. Tiene el mismo formato que la
sentencia INCLUDE COND.
-
SUM FIELDS=(posición inicio
campo,longitud,tipo) – permite sumar los valores del campo que comienza en la
posición indicada y que ocupa los bytes indicados. Sólo se pueden sumar campos
numéricos, empaquetados o decimales.
-
SUM FIELDS=NONE – se eliminan
registros duplicados.
-
OUTREC
FIELDS=(posición1,longitud1) – se utiliza para reformatear el registro de
salida con los campos especificados en esta sentencia. Reformatea los registros
después de ordenar.
-
INREC FIELDS – reformatea los
registros antes de ordenar. Tiene el mismo formato que la sentencia OUTREC
FIELDS.
DFSORT – Fusión
|
//TRABAJO JOB
//FUSIONAR EXEC
PGM=SORT
//SYSOUT DD
SYSOUT=*
//SYSIN DD *
MERGE
FIELDS=(1,5,CH,A,7,8,CH,D)
INCLUDE
COND=(1,5,CH,GT,6,5,CH)
SUM FIELDS=(14,9,PD)
OUTREC FIELDS=(1,100)
//SORTINnn DD
DSN=…,DISP=SHR
//SORTOUT DD
DSN=…,DISP=…
|
Se utiliza cuando se quieren FUSIONAR los registros ya ordenados de
varios ficheros, hasta un total de 16 ficheros. No son necesarios ficheros de
trabajo.
DFSORT – Copia
|
//TRABAJO JOB
//COPIAR EXEC
PGM=SORT
//SYSOUT DD
SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE
COND=(1,5,CH,GT,6,5,CH)
OUTREC FIELDS=(1,100)
//SORTIN DD
DSN=…,DISP=SHR
//SORTOUT DD
DSN=…,DISP=…
|
Se utiliza cuando se quieren COPIAR datos sin realizar ordenación ni
mezcla de ficheros.
IDCAMS
Este programa de utilidad realiza las siguientes funciones:
-
Definir y borrar un fichero VSAM.
-
Copiar un fichero en otro.
-
Construir índices alternativos.
-
Listar catálogos.
-
Imprimir ficheros.
-
Transferir ficheros de un sistema
a otro.
No hay comentarios.:
Publicar un comentario