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

OMIT

Ver el tema anterior Ver el tema siguiente Ir abajo

OMIT

Mensaje por Coboler@ el Jue Mar 24, 2011 8:33 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 y con la omisión de los registros que cumplan las condiciones deseadas.

//******************************************************************
//* SORT SOBRE EL FICHERO XXXXXXXXX *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//* EXCLUYENDO AQUELLOS QUE NO SEAN (‘1111’) *
//******************************************************************
//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN DD DSN=XXX.XXX.XXXXXXXX.XXXXXXXX,DISP=SHR
//SORTOUT DD DSN=XXX.XXX.XXXXXXXX.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)
OMIT COND=(1,4,CH,NE,C’1111’)
/*


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, omitiendo a la salida registros que no sean de 1111 (Empresa <> 1111).
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.