REF. PROB. AL LEER ARCHIVO VSAM (ARVINGEN.VSAM.OFICINA0) DESDE EL CICS (CECI)

Todo lo relacionado con JCL, manejo de jobs, etc.
Responder
ALDO
Usuario avanzado
Usuario avanzado
Mensajes: 30
Registrado: 27 Nov 2018, 11:45
País: CHILE
Ciudad: VIÑA DEL MAR
Ocupación: Jefe de area de sistemas

REF. PROB. AL LEER ARCHIVO VSAM (ARVINGEN.VSAM.OFICINA0) DESDE EL CICS (CECI)

Mensaje por ALDO » 16 Dic 2018, 14:38

Estimados
REF. PROB. AL LEER ARCHIVO VSAM (ARVINGEN.VSAM.OFICINA0) DESDE EL CICS (CECI)
Presente
He Creado y Cargado un archivo VSAM via el sgte JCL que se adjunta.
A momento de Intentar leer en el Cics mediante la Instrución que se indica
me indica que el archivo se Encuentra NOTOPEN
Nota: Previamnte lo defini e Instale en el Cics.

Código: Seleccionar todo

READ FILE(OFICINA0) RIDFLD('AR010001')                             
STATUS:  COMMAND EXECUTION COMPLETE                         NAME=  
 EXEC CICS  READ                                                   
  File( 'OFICINA0' )                                               
  < SYsid() >                                                      
  ( SEt() | Into( '' ) )                                           
  < Length( +00000 ) >                                             
  RIdfld( 'AR010001' )                                             
  < Keylength() < GEneric > >                                      
  < RBa | Xrba | RRn | DEBRec | DEBKey >                           
  < GTeq | Equal >                                                 
  < UNcommitted | Consistent | REpeatable | UPdate < Token() > >   
  < Nosuspend >                                                    
Agradeceré si me pueden indicar Como dejarlo OPEN ENA para el Cics

Consultas:
1. ?Existe algún parametro en el momento de la creación (jcl) para que el archivo
que ya disponible al momento de la creación?.
2. Posteriormente a la creación, es posible dejarlo OPEN ENA en el cics, si esto no se hizo
al momento de la creacion (pUnto 1.)
3. Para crear el archivo vsam lo declare a partir de una biblioteca particionada
,?es correcto?, o el vsam debe residir en ua biblioteca No particioNada?

'---JCL DE CREACION DEL VSAM ---

Código: Seleccionar todo

//JVSAM000 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=IBMUSER,   
//         REGION=5M,COND=(0,NE) TYPRUN=SCAN                       
//********************************************************         
//*   BORRA CLUSTER DE ARCHIVO VSAM ARVINGEN.VSAM.OFICINA0         
//********************************************************         
//DELETE   EXEC PGM=IDCAMS                                         
//SYSPRINT DD   SYSOUT=*                                           
//SYSIN    DD   *                                                  
  DELETE  (ARVINGEN.VSAM.OFICINA0)                                 
//********************************************************         
//*  DEFINE CLUSTER DE ARCHIVO VSAM ARVINGEN.VSAM.OFICINA0         
//********************************************************         
//DEFINE   EXEC PGM=IDCAMS,COND=(0,NE)                             
//SYSPRINT DD   SYSOUT=*                                           
//SYSIN    DD   *                                                  
  DEFINE CLUSTER (NAME (ARVINGEN.VSAM.OFICINA0) -                  
                   TRACKS (02 00) -                                
                   RECORDSIZE (52 52) -                            
                   FREESPACE (10 00) -                             
                   VOLUMES (JASYS1) -                              
                   SHAREOPTIONS (2 3) -                            
                   KEYS (8 1) -                                    
                   UNIQUE -                                        
                   IMBED ) -                                       
            DATA (NAME (ARVINGEN.VSAM.OFICINA0.DATA) ) -           
           INDEX (NAME (ARVINGEN.VSAM.OFICINA0.INDEX) )            
/*                                                                 
//****************************************************             
//*  CARGA ARCHIVO VSAM ARVINGEN.VSAM.OFICINA0********             
//****************************************************             
//REPRO    EXEC PGM=IDCAMS,COND=(0,NE)                             
//ORIGEN   DD   DSN=ARVINGEN.SECUENCI.OFICINA0,DISP=SHR            
//SYSPRINT DD   SYSOUT=*                                           
//SYSIN    DD   *                                                  
  REPRO INFILE (ORIGEN) OUTDATASET (ARVINGEN.VSAM.OFICINA0)        
/*   
//****************************************************        
Se agradece Vuestro importante ayuda.

Avatar de Usuario
LuisFer
Colaborador Senior
Colaborador Senior
Mensajes: 407
Registrado: 27 May 2006, 16:06
País: España
Ciudad: Madrid
Ocupación: Otra

Re: REF. PROB. AL LEER ARCHIVO VSAM (ARVINGEN.VSAM.OFICINA0) DESDE EL CICS (CECI)

Mensaje por LuisFer » 17 Dic 2018, 11:30

ALDO escribió:
16 Dic 2018, 14:38
Agradeceré si me pueden indicar Como dejarlo OPEN ENA para el Cics
Prueba con :

Código: Seleccionar todo

F CICSTS32,CEMT S FILE(OF*) OPEN
ALDO escribió:
16 Dic 2018, 14:38
Consultas:
1. ?Existe algún parametro en el momento de la creación (jcl) para que el archivo
que ya disponible al momento de la creación?.
No, hasta donde yo se.Tendrías que enviar un comando de consola desde el propio JCL. Hay utilities en Internet, busca en http://www.cbttape.org
ALDO escribió:
16 Dic 2018, 14:38
2. Posteriormente a la creación, es posible dejarlo OPEN ENA en el cics, si esto no se hizo
al momento de la creacion (pUnto 1.)
Con el comando de arriba
ALDO escribió:
16 Dic 2018, 14:38
3. Para crear el archivo vsam lo declare a partir de una biblioteca particionada
,?es correcto?, o el vsam debe residir en ua biblioteca No particioNada?
Para definirlo, al ser un JCL, el único requerimiento es que el Dataset o libreria particionada sea de LRECL=80, si no estoy equivocado

Saludos
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

ALDO
Usuario avanzado
Usuario avanzado
Mensajes: 30
Registrado: 27 Nov 2018, 11:45
País: CHILE
Ciudad: VIÑA DEL MAR
Ocupación: Jefe de area de sistemas

Re: REF. PROB. AL LEER ARCHIVO VSAM (ARVINGEN.VSAM.OFICINA0) DESDE EL CICS (CECI)

Mensaje por ALDO » 17 Dic 2018, 13:12

Gracias, Probare con la Instrucción Indicada

Responder