[Kuk]

RaulC, desde hace ya varios años no trabajo con z/OS así que no puedo comprobar los ejemplos. El caso es que tenía un ejemplo que funciona al 100% que es el siguiente:

//S2002640 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN       DD DISP=SHR,DSN=VSHRDV.P3ADALCE.DAABBCC
//SYSIN    DD *
  REPRO INFILE(IN)                                      -
     OUTDATASET(PREFIJO.NOMBRE.FICHERO)
  END
/*

Y lo he querido adaptar. Lo que pasa es que acabo de verificar que efectivamente el subcomando INFILE espera el nombre DD y no DSN.

http://docweb.cns.ufl.edu/docs/d0071/ar09.html

Así que lo correcto sería reemplazar INFILE por INDATASET que como OUTDATASET espera DSN.

Resumiendo, el ejemplo correcto sería este: en el OUTREC pones

REPRO INDATASET(NOMBRE.FICHERO.OBTENIDO)  -

Y el step de copiado no sería con OUTDATASET sino con OUTFILE para que apunte a la ficha DD:

//S2002640 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OUT      DD DSN=FICHERO.DESTINO,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(10,10),RLSE),
//            RECFM=FB,LRECL=80
//SYSIN    DD DSN=FICHERO.OUTREC
//         DD *
     OUTFILE(OUT)
  END
/*

Si lo pudieras comprobar estaría genial.

Y gracias por tus comentarios, siempre se agradece cuando la gente publica las soluciones que haya encontrado para que los demás puedan aprovecharlas.

Un saludo.