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

IEGENER

Ver el tema anterior Ver el tema siguiente Ir abajo

IEGENER

Mensaje por Coboler@ el Lun Abr 11, 2011 11:19 pm

Para copiar un fichero, se puede utilizar el ICEGENER.

//P060 EXEC PGM=ICEGENER,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PRO.VAL.VALENVIO.VDGTP10,DISP=SHR
//SYSUT2 DD DSN=PRO.VAL.VALENVIO,DISP=(SHR),
// UNIT=TAPE,LABEL=(,NL),VOL=SER=VDGTP,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=4800,DEN=3)
//SYSIN DD DUMMY


En el ejemplo, se copia el fichero SYSUT1 en el fichero SYSUT2 que está en Cinta.

//P060 EXEC PGM=ICEGENER,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PRO.VAL.VALENVIO.VDGTP10,DISP=SHR
//SYSUT2 DD SYSOUT=(Q,,AL1)
//SYSIN DD DUMMY


En el ejemplo, se copia el fichero SYSUT1 en la salida especificada, en este caso para listar un fichero.

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.