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

INCLUDE

Ver el tema anterior Ver el tema siguiente Ir abajo

INCLUDE

Mensaje por Coboler@ el Miér Mar 23, 2011 8:48 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 inclusión de los registros que cumplan las condiciones deseadas.

//******************************************************************
//* SORT SOBRE EL FICHERO XXXXXXXX *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//* TOMANDO REG. CON F.ALTA < ‘20110101’ *
//******************************************************************
//P010 EXEC PGM=SORT,COND=(0,NE)
//SORTIN DD DSN=XXX.XXX.XXXXXXX.XXXXXXX,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)
INCLUDE COND=(28,8,CH,LT,C’20110101’,AND,1,4,CH,EQ,C’0128’)
/*

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, tomando únicamente aquellos registros cuya fecha de alta sea anterior a 20110101, y además tenga en las posiciones 1 a la 4 ‘0128’.


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.