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

OUTREC

Ver el tema anterior Ver el tema siguiente Ir abajo

OUTREC

Mensaje por Coboler@ el Dom Mar 27, 2011 9:47 pm

Mediante esta opción del Sort, se puede copiar un fichero sobre otro con la opción de ordenamiento de los registros a la salida si se desea, con la inclusión u omisión de los registros que cumplan las condiciones deseadas y además formateando los registros a su salida.

//***************************************************************
//* SORT SOBRE EL FICHERO XXXXX *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//* PONIENDO EMPRESA '1111’ A TODOS LOS REGISTROS *
//***************************************************************
//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN DD DSN=XXX.XXX.XXXXXXX.XXXXXXXX,DISP=SHR
//SORTOUT DD DSN=XXX.XXX.XXXXXXX.XXXXXXXX.SORT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPRO,SPACE=(CYL,(50,10),RLSE) ),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=18400)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,18,CH,A)
OUTREC FIELDS=(1,4,C’1111’,5,76)
/*


En el ejemplo, se copia el fichero de entrada en el de salida, ordenando los registros a la salida por los caracteres 1 al 18 ascendente, sacando a la salida de todos los registros la empresa ‘1111 y el resto de datos del fichero de entrada.


//SYSIN DD *
SORT FIELDS=(1,18,CH,A)
OUTREC FIELDS=(1,18,10X,10Z,X'00001C')
/*


En el ejemplo, se ordena los registros a la salida por los caracteres 1 al 18 ascendente, sacando a la salida la Empresa, Centro y Cuenta, añadiendo 10 espacios en blanco, añadiendo 10 ceros (en numérico) y añadiéndoles un indicador ‘1’.
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.