Organização e manipulação de arquivos VSAM.

Criar VSAM no emulador HERCULES TK5

Mais
1 hora 23 minutos atrás #70 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!

COBOL is not DEAD!

Por favor Entrar ou Registrar para participar da conversa.

Powered by Fórum Kunena