- Postagens: 32
- Obrigados Recebidos: 2
Organização e manipulação de arquivos VSAM.
Criar VSAM no emulador HERCULES TK5
1 hora 23 minutos atrás #70
por bopnet
COBOL is not DEAD!
Criar VSAM no emulador HERCULES TK5 foi criado por bopnet
Após varias tentativas sem sucesso, tive uma conversa durante a live #32 com o Josue Campelo que se prontificou a analisar o problema.
No dia seguinte ele entrou em contato comigo me informando que conseguiu executar o JOB que gerar o VSAM.
No emulador Hercules TK5 tem um particionado que contem um JOB que gera o VSAM, basta colocar os dados e submeter o JOB:
SYS2.JCLLIB(ARCHDEF)
//ARCHDEF JOB 01,DEFARCH,MSGCLASS=X,NOTIFY=&SYSUID
//*
//* Name: SYS2.JCLLIB(ARCHDEF)
//* Last update: 2024/08/31 11:30
//* Desc: Sample job to define an ARCHIVE cluster
//*
//STEP01 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET MAXCC=0
DEFINE CLUSTER(NAME(CDICAS.ARCHIVE) -
RECORDSIZE(200 32000) -
FREESPACE(20 20) -
VOLUMES(TSO002) -
UNIQUE -
KEYS(49 0)) -
DATA(NAME(CDICAS.ARCHIVE.DATA) -
CYLINDERS(3 1)) -
INDEX(NAME(CDICAS.ARCHIVE.INDEX) -
CYLINDERS(2 1))
/*
Dessa forma conseguimos criar o arquivo VSAM no HERCULES TK5.
Obrigado Josue pela ajuda!
No dia seguinte ele entrou em contato comigo me informando que conseguiu executar o JOB que gerar o VSAM.
No emulador Hercules TK5 tem um particionado que contem um JOB que gera o VSAM, basta colocar os dados e submeter o JOB:
SYS2.JCLLIB(ARCHDEF)
//ARCHDEF JOB 01,DEFARCH,MSGCLASS=X,NOTIFY=&SYSUID
//*
//* Name: SYS2.JCLLIB(ARCHDEF)
//* Last update: 2024/08/31 11:30
//* Desc: Sample job to define an ARCHIVE cluster
//*
//STEP01 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET MAXCC=0
DEFINE CLUSTER(NAME(CDICAS.ARCHIVE) -
RECORDSIZE(200 32000) -
FREESPACE(20 20) -
VOLUMES(TSO002) -
UNIQUE -
KEYS(49 0)) -
DATA(NAME(CDICAS.ARCHIVE.DATA) -
CYLINDERS(3 1)) -
INDEX(NAME(CDICAS.ARCHIVE.INDEX) -
CYLINDERS(2 1))
/*
Dessa forma conseguimos criar o arquivo VSAM no HERCULES TK5.
Obrigado Josue pela ajuda!
COBOL is not DEAD!
Por favor Entrar ou Registrar para participar da conversa.