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

DEFINE CLUSTER (Creación fichero Vsam)

Ver el tema anterior Ver el tema siguiente Ir abajo

DEFINE CLUSTER (Creación fichero Vsam)

Mensaje por Coboler@ el Dom Abr 03, 2011 7:06 pm

Para crear un fichero Vsam es necesario hacerlo a través del programa del sistema IDCAMS.

//P010 EXEC SYSCMD,COND=(0,NE)
//SYSIN DD *
F CICSPFOR,'CEMT S FI(ULTCTA) CLO DIS'
/*
//*****************************************************
//P030 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL PRO.TRC.ASIGCTA.POSI.KSDS PURGE CL
SET MAXCC = 0

DEF CLUSTER -
(NAME(PRO.TRC.ASIGCTA.POSI.KSDS) -
RECORDS (500 50) -
RECORDSIZE (61 61) -
VOLUME (PRO004) -
KEYS (17 0) -
SHR (2 3) -
FREESPACE (01 01) -
NONSPANNED -
REPLICATE -
SPEED -
IMBED -
REUSE -
INDEXED) -
DATA (NAME(PRO.TRC.ASIGCTA.POSI.DATA) -
CYL (1,1) -
CISZ(4096)) -
INDEX (NAME(PRO.TRC.ASIGCTA.POSI.INDEX) -
TRACKS (1,1) -
CISZ(1024))
/*
//*****************************************************
//P100 EXEC SYSCMD,COND=(0,NE)
//SYSIN DD *
F CICSPFOR,'CEMT S FI(ULTCTA) OPE ENA'
/*


En el ejemplo, se cierra el fichero ULTCTA al Cics, se borra (si no existe no da error) y crea en un paso posterior y finalmente se abre de nuevo al Cics. Se crea con una cantidad primaria de 500 registros y cantidad secundaria de 50, el tamaño de registro es de 61, en el volumen PRO004, con clave de la posición 1 a la 17,compartido por varios usuarios en lectura y uno solo en escritura, KSDS. Para un ESDS se pondría NONINDEXED, y para un RRDS se pondría NUMBERED.

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

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.