Como configurar el DB2 para el cics en Hercules

[jfarnaiz]

Buenas:

El problema ha cambiado. No te puedes conectar al CICS, porque no arranca. Falta adaptarlo a RACF. Voy a ver si veo los pasos exactos para verlo y te lo digo. Un pelín de calma, que ando mal de tiempo, pero lo intentaré.

[tatindgp]

no no ..si me puedo conecxtar y ejcutar porgras cics con y sin db2 gracias a tu ayuda..lo que no puedo hacer es habilitar el CESN
poero lo demas lo puedo hacer todo

[jfarnaiz]

Hola: Eso creí haber puesto en un mensaje previo, pero no lo debí salvar bien, porque ví que tenía el mismo problema. Intenta ejecutar la CLIST DFH$CAT1 de la librería CICSTSxx.CICS*.SDFHSAMP (aquí debes poner el de tu versión) y mira si progresas. Mi Hercules no es idéntico al tuyo, pero creo que se parece bastante, en lo que tiene. Puede que tengas que revisar si las CLASS del CICS están activas o no. Intenta activarlas con RACF. Ayer tuve algo de tiempo y llegué a ese punto. Si avanzo más, te diré algo. Casi todo lo que ví que podía ir pasando está en el manual Cics Racf Security Guide, incluidos los mensajes de error del CICS al caerse.
Suerte.

[tatindgp]

J,
La verdad con esto ultimo que me has dicho no he sabido que hacer, he entrado a ese componente y no entiendo como ejecutarlo y usarlo.

[tatindgp]

J,
Te he mandado un MP

[JPL]

Estoy leyendo sobre este asunto de DB2 y CICS y quiero comentar que tengo instalado en hercules la version 8 con z19 .El db2 en BATCH funciona a la perfeccion con cobol y jcls con spufi, pero no he podido comunicarlo con CICS. El programa que prepare me envia los mensajes para saber por donde pasa pero abendea justo al acceder el DB2.

El plan que utilizo en batch tiene como nombre PAVAN

IDENTIFICATION DIVISION.
PROGRAM-ID. DB2CICS0.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PROGRAMA PIC X(40) VALUE 'VER DB2CICS0 20100223 12:51 00'.
01 W-CLI PIC 9(3) VALUE 3.
01 DB2-MENSAJE.
05 DB2-OBJ PIC X(12).
05 DB2-COM PIC X(12).
05 DB2-COD PIC 9(9)-.
01 W-CODRET PIC 9(9) COMP VALUE 0.
01 W-CODRETN PIC 9(9) VALUE 0.
01 W-CODRET2 PIC 9(9) COMP VALUE 0.
01 W-CODRET2N PIC 9(9) VALUE 0.
*----------------COPY-CLIENTES-----------
EXEC SQL
INCLUDE CLIENTES
END-EXEC.
*----------------------------------------
*----------------SQL-CODE----------------
EXEC SQL
INCLUDE SQLCA
END-EXEC.
*----------------------------------------
PROCEDURE DIVISION.
ENT.
DISPLAY 'DB2CICS0 ENTRE'
EXEC CICS
HANDLE CONDITION ERROR(DESERR2)
RESP(W-CODRET)
RESP2(W-CODRET2)
END-EXEC
.
BUS.
EXEC SQL
SELECT NOM INTO :NOM
FROM DBAVAN01.TCLIENTE
WHERE NUM = 3
END-EXEC
EVALUATE SQLCODE
WHEN ZEROS
DISPLAY 'CLIENTE ' W-CLI
DISPLAY 'NOMBRE ' NOM
WHEN +100
DISPLAY 'NO EXISTE RENGLON'
WHEN OTHER
MOVE 'TCLIENTE' TO DB2-OBJ
MOVE 'SELECT' TO DB2-COM
MOVE SQLCODE TO DB2-COD
PERFORM DESERR
END-EVALUATE
.
FIN.
DISPLAY 'DB2CICS0 SALI '

EXEC CICS
RETURN
END-EXEC
.
DESERR.
DISPLAY 'ERROR EN DB2'
DISPLAY 'OBJETO ' DB2-OBJ
DISPLAY 'COMANDO ' DB2-COM
DISPLAY 'SQLCODE ' DB2-COD
PERFORM FIN
.
DESERR2.
MOVE W-CODRET TO W-CODRETN
DISPLAY 'CODRET=' W-CODRETN
MOVE W-CODRET2 TO W-CODRET2N
DISPLAY 'CODRET2=' W-CODRET2N
PERFORM FIN
.

Precompile, compile, bindee y linkee el programa sin errores

Defini e instale este DB2CONN

VIE DB2CONN(DB2CAVAN) G(GAVAN)
OBJECT CHARACTERISTICS CICS RELEASE
CEDA View DB2Conn( DB2CAVAN )
DB2Conn : DB2CAVAN
Group : GAVAN
DEscription : DB2CONN DB2CAVAN CONECCION AVANSIS
CONNECTION ATTRIBUTES
CONnecterror : Sqlcode Sqlcode | Abend
DB2Groupid :
DB2Id : DB8G
MSGQUEUE1 : CDB2
MSGQUEUE2 :
MSGQUEUE3 :
Nontermrel : Yes Yes | No
PUrgecycle : 00 , 30 0-59
Resyncmember : Yes Yes | No
SIgnid :
STANdbymode : Reconnect Reconnect | Connect | Noconnect
STATsqueue : CDB2
TCblimit : 0012 4-2000
THREADError : N906D N906D | N906 | Abend
POOL THREAD ATTRIBUTES
ACcountrec : None None | TXid | TAsk | Uow
AUTHId :
AUTHType : Userid Userid | Opid | Group | Sign | TErm
| TX
DRollback : Yes Yes | No
PLAN : PLANAVAN
PLANExitname :
PRiority : High High | Equal | Low
THREADLimit : 0003 3-2000
THREADWait : Yes Yes | No
COMMAND THREAD ATTRIBUTES
COMAUTHId :
COMAUTHType : Userid Userid | Opid | Group | Sign | TErm
| TX
COMThreadlim : 0001 0-2000

Lo conecte asi: CEMT SET DB2CONN CONNECTED DB2ID(DB8G)

Defini e instale este DB2ENTRY

CEDA DEFine DB2Entry( DB2EAV01 )
DB2Entry ==> DB2EAV01
Group ==> GAVAN
DEscription ==> DB2ENTRY PARA AVANSIS
THREAD SELECTION ATTRIBUTES
TRansid ==>
THREAD OPERATION ATTRIBUTES
ACcountrec ==> None None | TXid | TAsk | Uow
AUTHId ==>
AUTHType ==> Userid | Opid | Group | Sign | TErm
| TX
DRollback ==> Yes Yes | No
PLAN ==> PAVAN
PLANExitname ==>
PRIority ==> High High | Equal | Low
PROtectnum ==> 0000 0-2000
THREADLimit ==> 0000 0-2000
THREADWait ==> Pool Pool | Yes | No

Defini e instale este DB2TRAN

CEDA DEFine DB2Tran( DB2TAV01 )
DB2Tran : DB2TAV01
Group : GAVAN
Description ==> DB2TRAN PARA AVANSIS 01
Entry ==> DB2EAV01
Transid ==> JCA1

Ejecute la transaccion JCA1 y obtengo este mensaje

DFHAC2220 21:59:04 CICS The coordinator system has indicated that the current
unit of work is to be backed out. Transaction JCA1 has been abnormally
terminated with abend ASP3.

Los mensajes que obtengo de las salidas del CICS son (contienen los displays que inserte en el programa):

SDSF OUTPUT DISPLAY CICSA STC00027 DSID
COMMAND INPUT ===>
******************************** TOP OF DATA
L702JCA1 20100225215904 DB2CICS0 ENTRE
L702JCA1 20100225215904 ERROR EN DB2
L702JCA1 20100225215904 OBJETO TCLIENTE
L702JCA1 20100225215904 COMANDOSELECT
L702JCA1 20100225215904 SQLCODE00922-
L702JCA1 20100225215904 DB2CICS0 SALI
******************************* BOTTOM OF DA

Entiendo que el SQLCODE 922- esta relacionado con permisos

el archivo SYSIN de CICS tiene esto:

DFH320.SYSIN(DFH$SIP1) - 01.07
===>
***************************** Top o
INITPARM=(DFHD2INI='DB8G'),
DB2CONN=YES,
APPLID=(CICS,CICS),
SEC=NO,
*GMTRAN=CESN,
TCPIP=YES,
XRF=NO,
AUXTR=OFF,
AUXTRSW=NEXT,
EDSALIM=200M,
*GRPLIST=(DFHLIST),
GRPLIST=(XYZLIST),
FCT=NO,
TCT=NO,
SRT=1$,
TRTABSZ=64,
PGRET=P/,



Quise poner el SEC=YES pero al dar IPL el CICS no termina de instalarse y en la consola se ve este error:

IST264I REQUIRED RESOURCE A06CICS NOT ACTIVE

Le di en SDSF /D NET,ID=CICS,E me dio esto

RESPONSE=ADCD IST097I DISPLAY ACCEPTED
RESPONSE=ADCD IST075I NAME = CICS, TYPE = APPL
RESPONSE=ADCD IST486I STATUS= ACT/S, DESIRED STATE= ACTIV
RESPONSE=ADCD IST1447I REGISTRATION TYPE = CDSERVR
RESPONSE=ADCD IST2062I SNPS FORCED TAKEOVER REQUESTS ARE ACCEPTABLE
RESPONSE=ADCD IST599I REAL NAME = ADCD.A06CICS
RESPONSE=ADCD IST977I MDLTAB=***NA*** ASLTAB=***NA***
RESPONSE=ADCD IST861I MODETAB=***NA*** USSTAB=***NA*** LOGTAB=***NA***
RESPONSE=ADCD IST934I DLOGMOD=***NA*** USS LANGTAB=***NA***
RESPONSE=ADCD IST1632I VPACING = 7
RESPONSE=ADCD IST1938I APPC = NO
RESPONSE=ADCD IST597I CAPABILITY-PLU ENABLED ,SLU ENABLED ,SESSION
RESPONSE=LIMIT NONE
RESPONSE=ADCD IST231I APPL MAJOR NODE = A0600
RESPONSE=ADCD IST213I ACBNAME FOR ID = A06CICS
RESPONSE=ADCD IST654I I/O TRACE = OFF, BUFFER TRACE = OFF
RESPONSE=ADCD IST1500I STATE TRACE = OFF
RESPONSE=ADCD IST271I JOBNAME = CICSA, STEPNAME = CICSA, DSPNAME =

en la ADCD.Z19.VTAMLST(ATCSTR00) vi esto:

CONFIG=00,SUPP=NOSUP, X
SSCPID=06,NOPROMPT, X
HOSTSA=6,MAXSUBA=31, X
SSCPNAME=ADCDSSCP,HOSTPU=ADCD$PU, X
NETID=ADCD, X
NODETYPE=NN, X
DYNLU=YES, X
CRPLBUF=(208,,15,,1,16), X
IOBUF=(400,508,19,,1,20), X
LFBUF=(104,,0,,1,1), X
LPBUF=(64,,0,,1,1), X
SFBUF=(163,,0,,1,1)
*/*
*/* LIB: SYS1.VTAMLST(ATCSTR00)
*/* GDE: CBIPO COMMUNICATIONS
*/* DOC: THIS MEMBER CONTAINS THE ACF/VTAM DEFAULT
*/* START OPTIONS ON THE MODEL INSTALLATION SYSTEM.

apunta al ATCON00

vi en ADCD.Z19.VTAMLST(ATCCON00)

A0600,NSNAFXX,NSNA70X,NSNA90X,DYNMODEL,XCAE40R,XCAE40E,COSAPPN, *
A0TCP,DB8GLU,OSATRL1,IMS91APL,DB9GLU
*/* LIB: SYS1.VTAMLST(ATCCON00)
*/* GDE: CBIPO COMMUNICATIONS
*/* DOC: THIS MEMBER CONTAINS A LIST OF MAJOR NODES WHICH
*/* ARE TO BE INITIALLY ACTIVATED WHEN ACF/VTAM IS
*/* STARTED WITH THE DEFAULT LIST OPTION 00.
*/*




Que me falta para que funcione?

[tatindgp]

Holaa,
Yo probaria lo siguiente ya que a mi me pasaba lo mismo, y lo pude solucionar con lo me que me comento Jfernaiz :

Prueba esto:

En el Cics hice un "CEDA EXPAND" de los grupos que empezaban por DFH y cuando ví uno que se llamaba DFH$DB2, le hice un INSTALL a dicho grupo y ya funcionó. Espero que te valga. El resto del CICS no lo cambié para nada. Si esto te funcionara, para no tener que hacerlo siempre, tendrías que meter dicho grupo en una lista en el arranque del CICS, para que el grupo estuviera permanentemente instalado.
Suerte.

Te comento que yo primero hice lo que comenta Jfernaiz sobre el CEDA EXPAND y luego hice lo mismo que tu con el CEMT S DB2CONN

Saludos.

[JPL]

preguntas:

le hiciste un install al grupo o al db2conn del grupo?

si fue un install al grupo me puedes por favor poner la instruccion para desplegar solo el grupo y para instalar solo el grupo?

Saludos

[JPL]

Ya vi como instalar el grupo, hice lo sugieren y nada, en enero del 2010 lo pude echar a andar pero ahora en junio ya no jalaba, repase todo lo q hice y nada, finalmente despues de mucho buscarle y con el apoyo de un buen amigo dba di sin saber como con la solucion q tambien descubrio formalemente este amigo.

La definicion del DB2CONN (DB2C) y el DB2ENTRY (DB2E) deben contener en AUTHID=IBMUSER, debe darsele GRANT PUBLIC al plan que estemos usando y para hacer permanente la configuracion dar de alta el grupo donde se definieron los componentes de cics en el grupo XYZLIST , nos percatamos de esto al correr con CEDF la transaccion que corre el programa cobol-cics-db2, cuando mandaba el error el usuario era CICSUSER y al corregirlo mostro IBMUSER, notese los codigos de retorno -922 con CICSUSER, 000 con IBMUSER

CON CICSUSER, y error
TRANSACTION: T001 PROGRAM: EJER0040 TASK: 0000152 APPLID: CICS DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE
CALL TO RESOURCE MANAGER DSNCSQL
EXEC SQL SELECT P.AUTH=CICSUSER, S.AUTH=
PLAN=PLANDESA, DBRM=EJER0045, STMT=00076, SECT=00001
SQL COMMUNICATION AREA:
SQLCABC = 136 AT X'1F229EB8'
SQLCODE = -922 AT X'1F229EBC'
SQLERRML = 027 AT X'1F229EC0'
SQLERRMC = 'USER AUTHORIZATION,00F30058' AT X'1F229EC2'
SQLERRP = 'DSNAET03' AT X'1F229F08'
SQLERRD(1-6) = 000, 000, 00000, 0000000000, 00000, 000 AT X'1F229F10'
SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _' AT X'1F229F28'
SQLSTATE = 42505 AT X'1F229F33'
OVAR 001: TYPE=CHAR, LEN=00030, IND=000 AT X'1F229E55'
DATA=X'40404040400000000000000000000000000000000000000000000000'...
OFFSET:X'00081A' LINE:UNKNOWN EIBFN=X'0204'
RESPONSE:

CON IBMUSER, exitoso
 TRANSACTION: T001 PROGRAM: DB2CICSC TASK: 0000035 APPLID: CICS     DISPLAY:  00
  STATUS:  COMMAND EXECUTION COMPLETE                                          
  CALL TO RESOURCE MANAGER DSNCSQL                                             
  EXEC SQL SELECT                            P.AUTH=IBMUSER , S.AUTH=          
  PLAN=DB2CICSP, DBRM=DB2CICSC, STMT=00030, SECT=00001                         
  SQL COMMUNICATION AREA:                                                      
   SQLCABC      = 136                                            AT X'1F229DE8'
   SQLCODE      = 000                                            AT X'1F229DEC'
   SQLERRML     = 000                                            AT X'1F229DF0'
   SQLERRMC     = ''                                             AT X'1F229DF2'
   SQLERRP      = 'DSN'                                          AT X'1F229E38'
   SQLERRD(1-6) =  000,  000, 00000, -1, 00000,  000             AT X'1F229E40'
   SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _'                        AT X'1F229E58'
   SQLSTATE     = 00000                                          AT X'1F229E63'
  OVAR 001: TYPE=CHAR,                 LEN=00016,    IND=000     AT X'1F229E68'
            DATA=X'D8D4C6F8F1F040404040404040404040'                           
  OFFSET:X'000666'    LINE:UNKNOWN        EIBFN=X'0000'             

finalmente agregue el grupo como lo hayamos definido a la lista de arranque de CICS llamada XYZLIST para que la db2conn entry y tran se instalen siempre al arranque -- esto mediante CEDA ADD y luego (tu grupo tiene un nombre distinto es obvio):
 
 CEDA ADD                                         
 OVERTYPE TO MODIFY                          
  CEDA  ADd                                  
   Group        ==> TEST                     
   List         ==> XYZLIST                  
   Before       ==>                          
   After        ==>               

gracias a todos saludos

[tatindgp]

Gracias,
ya estoy probando cambiar mi configuracion de hercules, aunque.. a mi no me ha pasado el problema que me mencionas aun...pero igual siempre es bueno que po si me pasa ya tenga una solicion...nuevamente gracias.