En determinados casos nos veremos en la situación de convertir un fichero VSAM en un fichero secuencial.
Te preguntarás que cómo se hace. Es muy fácil y sencillo: mediante un simple paso de SORT lo podemos conseguir.
Imagínate que tienes un fichero VSAM llamado FIC.VS.INFORMA
//SORT01 EXEC PGM=SORT
//SORTIN DD DSN=FIC.VS.INFORMA,DISP=SHR
//SORTOUT DD DSN=FICH.VSINFORMA.SECUEN,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,1,1)
//SORTWK01 DD SPACE=(CYL,(1,1),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
Obsérvese que en la línea del SORTIN se ponde el fichero VSAM y en el SORTOUT se pone el fichero secuencial que se generará al ejecutarse dicho paso de SORT. El fichero secuencial se generará de acuerdo a lo indicado en el SORT FIELDS.
No hay comentarios:
Publicar un comentario