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

Volcado de VSAM a Secuencial

Ver el tema anterior Ver el tema siguiente Ir abajo

Volcado de VSAM a Secuencial

Mensaje por Coboler@ el Lun Abr 04, 2011 8:09 pm

Un fichero Vsam puede ser copiado todo su contenido sobre un fichero Secuencial, bien mediante una Repro o mediante Sort.

 //P050    EXEC PGM=IDCAMS,COND=(0,NE       
 //SYSPRINT DD  SYSOUT=*
 //ENTRADA  DD  DSN=PRO.TRC.ASIGCTA.POSI.KSDS,DISP=SHR
 //SALIDA      DD  DSN=&&SP050,DISP=(,PASS,DELETE),      
 //                            UNIT=WORK,SPACE=(18422,(500,100),RLSE),
 //                            DCB=(RECFM=FB,LRECL=61,BLKSIZE=18422)  
 //SYSIN         DD  DSN=EXP.PRO.DATA(REPRO1),DISP=SHR      

REPRO INFILE(ENTRADA) OUTFILE(SALIDA)    -
             SKIP(100) COUNT(1500) REUSE


En el ejemplo, se realiza una descarga del fichero Vsam ENTRADA sobre el fichero Secuencial SALIDA. Los parámetros de la Repro son los indicados a continuación y almacenados en el miembro REPRO1 de la librería EXP.PRO.DATA, donde se indica que se copien 1500 registros saltándose los 100 primeros.

 //P050    EXEC PGM=SORT,COND=(0,NE)                
 //SORTIN      DD  DSN=PRO.TRC.ASIGCTA.POSI.KSDS,DISP=SHR
 //SORTOUT  DD  DSN=&&SP050,DISP=(,PASS,DELETE),      
 //                            UNIT=WORK,SPACE=(18422,(500,100),RLSE),
 //                            DCB=(RECFM=FB,LRECL=61,BLKSIZE=18422)  
 //SYSOUT     DD  SYSOUT=*
 //SYSIN         DD  *      
   SORT FORMAT=CH,FIELDS=(1,18,A)
/*


En el ejemplo, se realiza una descarga del fichero Vsam sobre el fichero Secuencial, mediante Sort, donde además se ordena por las 18 primeras posiciones.


Última edición por Coboler@ el Mar Nov 05, 2013 12:09 pm, editado 2 veces
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

Dudota

Mensaje por Julio Cesar Alarcon Muri el Vie Nov 01, 2013 11:37 am

Hola coboler@ realmente tu saber mucho, las instrucciones de impresión y volcado son de JCL?

Julio Cesar Alarcon Muri

Mensajes : 1
Reputación : 0
Fecha de inscripción : 01/11/2013

Ver perfil de usuario

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.