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

SUM

Ver el tema anterior Ver el tema siguiente Ir abajo

SUM

Mensaje por Coboler@ el Lun Mar 28, 2011 8:10 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, formateando los registros a su salida y además sumando los campos deseados de aquellos registros que cumplan las condiciones deseadas.

//***************************************************************
//* SORT SOBRE EL FICHERO XXXXXXXX *
//* ORDENANDO POR EMPRESA, CENTRO, CUENTA *
//* SUMANDO TODOS LOS IMPORTES DE CUOTAS DE CADA PRESTAMO *
//****************************************************************
//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)
SUM FIELDS=(27,8,PD)
/**********************************************
//SYSIN DD *
SORT FIELDS=(1,18,CH,A)
SUM FIELDS=NONE
/*********************************************
//SYSIN DD *
SORT FIELDS=(1,18,BI,A)
SUM FIELDS=(27,8,ZD)
OPTION=ZDPRINT
/*********************************************


En el ejemplo 1, se copia el fichero de entrada en el de salida, ordenando los registros a la salida por los caracteres 1 al 18 ascendente, sumando los importes de la posición 27 a la 34 que se encuentran comprimidos sin signo. En el ejemplo 2, se realiza el mismo ordenamiento, pero en caso de encontrarse con registros duplicados (con la misma clave del Sort), se queda sólo con el primero. En el ejemplo 3, se realiza el mismo ordenamiento, pero en modo Binario, sumando las posiciones 27 a 34 (numérico display), sacando a la salida esta suma pero sin signo.


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.