JCL: Copiar un fichero mediante SORT

Para copiar un fichero mediante un paso de SORT se haría lo siguiente:

          //SORT01 EXEC PGM=SORT
          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA,DISP=SHR
          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,
          //                    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 para copiar el fichero FICH.PRUEBA.ENTRADA se utiliza lo siguiente: SORT FIELDS=COPY => esto supone que vamos a hacer una copia exacta en el fichero de salida FICH.PRUEBA.SALIDA

14/12/2018 - Actualización. Ahora bien, si queremos copiar muchos archivos en uno solo, ¿cómo se haría? Muy fácil, partimos del ejemplo anterior y procedemos a copiar, por ejemplo, 5 ficheros en uno solo. El paso de sort quedaría así:

          //SORT01 EXEC PGM=SORT

          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA1,DISP=SHR

          //              DD DSN=FICH.PRUEBA.ENTRADA2,DISP=SHR

          //              DD DSN=FICH.PRUEBA.ENTRADA3,DISP=SHR

          //              DD DSN=FICH.PRUEBA.ENTRADA4,DISP=SHR

          //              DD DSN=FICH.PRUEBA.ENTRADA5,DISP=SHR

          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,

          //                    DISP=(,CATLG,DELETE),

          //                    SPACE=(CYL,1,1)

          //SORTWK01 DD SPACE=(CYL,(1,1),RLSE)

          //SYSOUT     DD SYSOUT=*

          //SYSIN        DD *

              SORT FIELDS=COPY

Como resultado tendríamos un fichero de salida, FICH.PRUEBA.SALIDA, en donde tendríamos la información de los 5 ficheros de entrada e iría concatenada una detrás de otra; es decir, primero irían los registros del primer fichero, después los registros del segundo fichero, a continuación los registros del tercer fichero, los del cuarto fichero y finalmente estarían los del quinto fichero.