REF.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por ALDO » 14 Dic 2018, 13:43

Estimados
REF.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES
Presente
Me encuentro Ejecutando el Programa Prog008 con DB2 que detallo a continuación:
1. Se Pre Compilo - Compilo - LinkEdito y se genero el Bind
con el Job JPROG008 con codigo de Retorno 00 en todos sus pasos.
2. Se Creo el Dclgen de la Tabla Productos en la Librería Particionada
ARVINGEN.CURSO.TABLADB2(Producto)
3 Se creo la Biblioteca Particionada ARVINGEN.CURSO.DBRM(PROG008) para guardar el DBRM
4. Se Creo el copy del SQLCA en la Biblioteca Particionada ARVINGEN.CURSO.CPY(SQLCA)
5. El Programa se Creo en la Biblioteca Particionada ARVINGEN.CURSO.COBOL(PROG008)Emulador
6. El resto de Bibliotecas que Utilizan en le JCL son Propias del Hercules
7. La Tabla Producto fue creada Bajo QMF, y se crearon Regs por el mismo Medio
8) El Programa Lee con una Intrucción Accept la llave que se encuentra en el JCL para accesar
un reg de la Tabla.
8) Para la Ejecucion del Programa se Definio e Instalo el Programa Prog008 y la Transaccion T008
en el Cics,
9) se Dio Nueva Copia al Programa (Prog008)
10) Se intento Ejecutar en una secion del Cics y me arrojo el Error abend 4038) !!!

Dudas:
a)La Tabla Producto fue creada en La Base de Datos COMERCIO, pero en el DCLGEN del
Programa (Prog008) no le indico la Base de Datos ??.
b) -El Bind del JCL me arrojo varios Problemas antes de lograr su ejecución sin errores
sin antes de Modificar el DSN SYSTEM Y PACKAGE y dejarlo como se ve a continuación.
c) En el Bind DESCONOZCO lo que realiza el sgte Parametro: DSN SYSTEM (DSN) ???
d) El //SYSOUT....etc. es Correcto?.

DSN SYSTEM (DSN)
BIND MEMBER (PROG008) -
PACKAGE (PROG008) -
LIBRARY ('ARVINGEN.CURSO.DBRM') -
ACTION (REP) -
ISOLATION (CS) -
VALIDATE (BIND)-
RELEASE (COMMIT) -
OWNER (IBMUSER) -
QUALIFIER (DEVQUALI)
END
/*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
AR24
/*

/////////////////////////////////////////////
Agradecido por vuestro importante ayuda. Gracias
////////////////////////////////////////////
PROGRAMA UTILIZADO PROG008

IDENTIFICATION DIVISION.
PROGRAM-ID. PROG008.
*======================================================*
* PROGRAMA: PROG008 *
* AUTHOR : ALDO RODRIGUEZ VERA *
* OBJETIVO: PROGRAMA QUE ACCEDE A LA TABLA PRODUCTO *
* FECHA : 11-12-2018. *
*======================================================*
*
ENVIRONMENT DIVISION.
*
CONFIGURATION SECTION.
*
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
*
DATA DIVISION.
*
WORKING-STORAGE SECTION.
*
EXEC SQL
INCLUDE SQLCA
END-EXEC.
*
EXEC SQL
INCLUDE PRODUCTO
END-EXEC.
*
01 WS-SYSIN.
05 WS-CODIGOARTICULO-SYS PIC X(04).
01 WS-PRODUCTOS.
05 WS-CODIGOARTICULO PIC X(04).
05 WS-SECCION PIC X(10).
05 WS-NOMBREARTICULO PIC X(20).
05 WS-PRECIO PIC S9(09)V9(2) COMP-3.
05 WS-PRECIO PIC S9(09)V9(2) COMP-3.
05 WS-FECHA PIC X(10).
05 WS-IMPORTADO PIC X(09).
05 WS-PAISDEORIGEN PIC X(09).
*
************************************************************
PROCEDURE DIVISION.
************************************************************
*00000 - PRINCIPAL
*--|------------------+----------><----------+-------------*
* 1| EJECUTA EL INICIO DEL PROGRAMA
* 2| EJECUTA EL PROCESO DEL PROGRAMA
* 3| EJECUTA EL FINAL DEL PROGRAMA
************************************************************
00000-PRINCIPAL.
*
PERFORM 10000-INICIO
*
PERFORM 20000-PROCESO
*
PERFORM 30000-FINAL.
*
************************************************************
*10000 - INICIO
*--|------------+----------><----------+-------------------*
* | SE REALIZA EL TRATAMIENTO DE INICIO:
* 1| INICIALIZACIóN DE ÁREAS DE TRABAJO
* 2| LECTURA DE SYSIN
************************************************************
10000-INICIO.
*
INITIALIZE WS-SYSIN
WS-PRODUCTOS.
ACCEPT WS-SYSIN FROM SYSIN.
************************************************************
*20000 - PROCESO
*--|------------------+----------><------------------------*
* | SE REALIZA EL TRATAMIENTO DE LOS DATOS:
* 1| REALIZA EL ACCESO A BASE DE DATOS
************************************************************
20000-PROCESO.
*
DISPLAY 'COMIENZO PROGRAMA PROG008'.
EXEC SQL
SELECT CODIGOARTICULO
,SECCION
,NOMBREARTICULO
,PRECIO
,FECHA
,IMPORTADO
,PAISDEORIGEN
INTO :WS-CODIGOARTICULO
,:WS-SECCION
,:WS-NOMBREARTICULO
,:WS-PRECIO
,:WS-FECHA
,:WS-IMPORTADO
,:WS-PAISDEORIGEN
FROM PRODUCTO
WHERE CODIGOARTICULO = :WS-CODIGOARTICULO-SYS
END-EXEC.
*
EVALUATE TRUE
WHEN SQLCODE EQUAL ZEROES
DISPLAY 'REGISTRO ENCONTRATO'
PERFORM 21000-GRABAR-SALIDA
WHEN SQLCODE EQUAL +100
DISPLAY 'CODIGO DE ARTICULO: ', WS-SYSIN, ' NO ENCONTRADO'
WHEN OTHER
DISPLAY 'PROB. AL LEER REG. EL SQLCODE ES: ' SQLCODE
PERFORM 30000-FINAL
END-EVALUATE.
*************************************************************
*21000 - GRABAR - SALIDA
*--|------------------+----------><----------+--------------*
* | ESCRIBE EN SYSOUT LA INFORMACIÓN RECUPERADA DE LA TABLA
*************************************************************
21000-GRABAR-SALIDA.
*
DISPLAY 'CODIGO DE ARTICULO:', WS-CODIGOARTICULO.
DISPLAY 'NOMBRE DE ARTICULO:', WS-NOMBREARTICULO.
DISPLAY 'PRECIO:', WS-PRECIO.
DISPLAY 'FECHA:', WS-FECHA.
DISPLAY 'IMPORTADO:', WS-IMPORTADO.
DISPLAY 'PAIS DE ORIGEN:', WS-PAISDEORIGEN.
*************************************************************
*30000 - FINAL
*--|------------------+----------><----------+-------------*
* | FINALIZA LA EJECUCION DEL PROGRAMA
************************************************************
30000-FINAL.
STOP RUN.
***********FIN FISICO DEL PROGRAMA ************
JCL UTILIZADO:
'==============================================
//JPROG008 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=IBMUSER,
// REGION=5M,COND=(0,NE) TYPRUN=SCAN
//********************************************************************
//* PROGRAMA (PROG008) DB2 QUE LEE TABLA PRODUCTO *
//* COMPILATION, LINK EDIT AND THE BIND STEP FOR A COBOL DB2 PROGRAM *
//* WILL BE DONE BY SUBMITTING THIS JOB. *
//* THE DB2 REGIONS AND CORRESPONDING PARAMETERS NEEDS TO BE CHANGED *
//* WITH RESPECT TO THE PROGRAM *
//********************************************************************
//* PRECOMPILE DB2 PROGRAM PROG008 *
//*-------------- LOCATION OF DBRM LIBRARY -------------------------*
//********************************************************************
//PC EXEC PGM=DSNHPC,
// PARM='HOST(IBMCOB),APOST,SOURCE',
// REGION=4096K
//DBRMLIB DD DISP=SHR,
// DSN=ARVINGEN.CURSO.DBRM(PROG008)
//STEPLIB DD DISP=SHR,DSN=DSN910.DB9G.SDSNEXIT
// DD DISP=SHR,DSN=DSN910.SDSNLOAD
//********************************************************************
//*SYSIN -----------INPUT COBOL DB2 PROGRAM LOCATION-----------------*
//********************************************************************
//SYSIN DD DISP=SHR,
// DSN=ARVINGEN.CURSO.COBOL(PROG008)
//SYSCIN DD DISP=(MOD,PASS),
// DSN=&&TEMP,
// SPACE=(800,(500,500)),
// UNIT=SYSDA
//********************************************************************
//* DCLGEN MEMBER LOCATION *
//*SYSLIB-----------------INPUT SOURCE LIBRARY FOR SQL---------------*
//********************************************************************
//SYSLIB DD DISP=SHR,
// DSN=ARVINGEN.CURSO.TABLADB2(PRODUCTO)
// DD DISP=SHR,
// DD DISP=SHR,
// DSN=ARVINGEN.CURSO.CPY(SQLCA)
//SYSPRINT DD SYSOUT=T
//SYSTERM DD SYSOUT=T
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//*
//********************************************************************
//* COMPILATION *
//********************************************************************
//*
//COB EXEC PGM=IGYCRCTL,
// COND=(4,LT,PC),
// PARM=('SIZE(4000K),BUFSIZE(32760),LIST,LIB,MAP,OBJECT',
// 'DATA(31),XREF,RENT'),
// REGION=4M
//STEPLIB DD DSN=IGY410.SIGYCOMP,DISP=SHR
//SYSIN DD DISP=(OLD,DELETE),
// DSN=&&TEMP
//SYSLIN DD DISP=(MOD,PASS),
// DSN=&&LOADTMP,
// SPACE=(800,(500,500)),
// UNIT=SYSDA
//********************************************************************
//*--------------SOURCE LIBRARIES FOR COBOL DB2 CODE (COPY LIBRARIES)*
//********************************************************************
//SYSLIB DD DISP=SHR,
// DSN=ARVINGEN.CURSO.TABLADB2(PRODUCTO)
// DD DSN=ARVINGEN.CURSO.CPY(SQLCA),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
// UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT3 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT4 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT5 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT6 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT7 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//*
//********************************************************************
//* LINK EDIT *
//********************************************************************
//*
//LKED EXEC PGM=IEWL,
// COND=((4,LT,COB),(4,LT,PC)),
// PARM='XREF'
//SYSLIB DD DSN=DFH320.CICS.SDFHLOAD,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=DSN910.SDSNLOAD,DISP=SHR
//SYSLIN DD DISP=(OLD,DELETE),
// DSN=&&LOADTMP
//* DD DDNAME=SYSIN
//********************************************************************
//*----------------LOCATION OF LOAD LIBRARY--------------------------*
//********************************************************************
//SYSLMOD DD DISP=SHR,
// DSN=DFH320.CICS.SDFHLOAD(PROG008)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(1024,(50,50)),
// UNIT=SYSDA
//*
//********************************************************************
//* BIND - BIND THE DB2 PACKAGE *
//********************************************************************
//BIND EXEC PGM=IKJEFT01,
// COND=(4,LT),
// REGION=4096K
//STEPLIB DD DISP=SHR,
// DSN=DFH320.CICS.SDFHLOAD
//DBRMLIB DD DISP=SHR,
// DSN=ARVINGEN.CURSO.DBRM(PROG008)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM (DSN)
BIND MEMBER (PROG008) -
PACKAGE (PROG008) -
LIBRARY ('ARVINGEN.CURSO.DBRM') -
ACTION (REP) -
ISOLATION (CS) -
VALIDATE (BIND)-
RELEASE (COMMIT) -
OWNER (IBMUSER) -
QUALIFIER (DEVQUALI)
END
/*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
AR24
/*
**************************** Bottom of Data ****************************

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por LuisFer » 14 Dic 2018, 16:57

U4038 es un error genérico de Usuario relacionado con el LE (Language Environment).
Puede darse por multiples razones, sería necesario analizar el motivo con un ABENDAID , CEEDUMP.....

Entiendo que el programa se ejecuta bajo una Tx CICS, no te faltará configurar la conexión del CICS con el DB2?
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por LuisFer » 14 Dic 2018, 17:19

DSN SYSTEM(DB2id) es decir el subsistema DB2 en el que quieres realizar el BIND.
No veo nada anormal en los esqueletos de JCL para compilar/LinkEdit/BIND
Como la definición de la tabla la hiciste bajo QMF (hace muchos años que no lo veo) entiendo que de alguna manera estaría "sufijada" la BBDD para la TABLA creada... algo como <Userid>.<Nombre_Tabla> o COMERCIO.<Nombre_Tabla>

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por ALDO » 14 Dic 2018, 20:09

R1: Entiendo que el programa se ejecuta bajo una Tx CICS, no te faltará configurar la conexión del CICS con el DB2?

..Es Posible, ya que no he realizado ninguna Configuración ( aparte de Hacer Partir el Cics y el Db2 en Forma Manual ( S CICSTS32 (' Partida del Cics'))
-DB9G START DB2 ('Partida del DB2')), ?Como se haría dicha dicha Conexión ?. Gracias

La Definición de la Tabla como parte de la Base de Dato "Comercio", no me parece que sea el error (pero tampoco lo descarto) , ya que me debiera
indicar que no existe la Tabla no dar un error como un Abend 4038 (supongo).

Atte. Aldo

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por LuisFer » 15 Dic 2018, 05:20

El enlace es para CICS 5.2, pero supongo que no cambiará mucho para V3.2 (que por el nombre de la STC estimo que es).
https://www.ibm.com/support/knowledgece ... htk2c.html

El U4038 no creo que se venga derivado por el nombre, si la tabla no la localiza daría un sqlcode...
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por LuisFer » 15 Dic 2018, 07:25

Por cierto, por si no lo sabes, al publicar tienes unos botones que permiten dar formatos, el que viene representado como "</>" es ideal para copiar código. Si te posicionas con el ratón sobre cada botón (sin Clickar) te aparece un pequeño globo de ayuda con una pequeña explicación de lo que hace.
Así por ejemplo tu programa COBOL te lo presentaría así:

Código: Seleccionar todo

DENTIFICATION DIVISION. 
PROGRAM-ID. PROG008. 
*======================================================* 
* PROGRAMA: PROG008 * 
* AUTHOR : ALDO RODRIGUEZ VERA * 
* OBJETIVO: PROGRAMA QUE ACCEDE A LA TABLA PRODUCTO * 
* FECHA : 11-12-2018. * 
*======================================================* 
* 
ENVIRONMENT DIVISION. 
* 
CONFIGURATION SECTION. 
* 
SPECIAL-NAMES. 
DECIMAL-POINT IS COMMA. 
* 
DATA DIVISION. 
* 
WORKING-STORAGE SECTION. 
* 
EXEC SQL 
INCLUDE SQLCA 
END-EXEC. 
* 
EXEC SQL 
INCLUDE PRODUCTO 
END-EXEC. 
* 
01 WS-SYSIN. 
05 WS-CODIGOARTICULO-SYS PIC X(04). 
01 WS-PRODUCTOS. 
05 WS-CODIGOARTICULO PIC X(04). 
05 WS-SECCION PIC X(10). 
05 WS-NOMBREARTICULO PIC X(20). 
05 WS-PRECIO PIC S9(09)V9(2) COMP-3. 
05 WS-PRECIO PIC S9(09)V9(2) COMP-3. 
05 WS-FECHA PIC X(10). 
05 WS-IMPORTADO PIC X(09). 
05 WS-PAISDEORIGEN PIC X(09). 
* 
************************************************************ 
PROCEDURE DIVISION. 
************************************************************ 
*00000 - PRINCIPAL 
*--|------------------+----------><----------+-------------* 
* 1| EJECUTA EL INICIO DEL PROGRAMA 
* 2| EJECUTA EL PROCESO DEL PROGRAMA 
* 3| EJECUTA EL FINAL DEL PROGRAMA 
************************************************************ 
00000-PRINCIPAL. 
* 
PERFORM 10000-INICIO 
* 
PERFORM 20000-PROCESO 
* 
PERFORM 30000-FINAL. 
* 
************************************************************ 
*10000 - INICIO 
*--|------------+----------><----------+-------------------* 
* | SE REALIZA EL TRATAMIENTO DE INICIO: 
* 1| INICIALIZACIóN DE ÁREAS DE TRABAJO 
* 2| LECTURA DE SYSIN 
************************************************************ 
10000-INICIO. 
* 
INITIALIZE WS-SYSIN 
WS-PRODUCTOS. 
ACCEPT WS-SYSIN FROM SYSIN. 
************************************************************ 
*20000 - PROCESO
*--|------------------+----------><------------------------* 
* | SE REALIZA EL TRATAMIENTO DE LOS DATOS: 
* 1| REALIZA EL ACCESO A BASE DE DATOS 
************************************************************ 
20000-PROCESO. 
* 
DISPLAY 'COMIENZO PROGRAMA PROG008'. 
EXEC SQL 
SELECT CODIGOARTICULO 
,SECCION 
,NOMBREARTICULO 
,PRECIO 
,FECHA 
,IMPORTADO 
,PAISDEORIGEN 
INTO :WS-CODIGOARTICULO 
,:WS-SECCION 
,:WS-NOMBREARTICULO 
,:WS-PRECIO 
,:WS-FECHA 
,:WS-IMPORTADO 
,:WS-PAISDEORIGEN 
FROM PRODUCTO 
WHERE CODIGOARTICULO = :WS-CODIGOARTICULO-SYS 
END-EXEC. 
* 
EVALUATE TRUE 
WHEN SQLCODE EQUAL ZEROES 
DISPLAY 'REGISTRO ENCONTRATO' 
PERFORM 21000-GRABAR-SALIDA 
WHEN SQLCODE EQUAL +100 
DISPLAY 'CODIGO DE ARTICULO: ', WS-SYSIN, ' NO ENCONTRADO'
WHEN OTHER 
DISPLAY 'PROB. AL LEER REG. EL SQLCODE ES: ' SQLCODE 
PERFORM 30000-FINAL 
END-EVALUATE. 
************************************************************* 
*21000 - GRABAR - SALIDA 
*--|------------------+----------><----------+--------------* 
* | ESCRIBE EN SYSOUT LA INFORMACIÓN RECUPERADA DE LA TABLA 
************************************************************* 
21000-GRABAR-SALIDA. 
* 
DISPLAY 'CODIGO DE ARTICULO:', WS-CODIGOARTICULO. 
DISPLAY 'NOMBRE DE ARTICULO:', WS-NOMBREARTICULO. 
DISPLAY 'PRECIO:', WS-PRECIO. 
DISPLAY 'FECHA:', WS-FECHA. 
DISPLAY 'IMPORTADO:', WS-IMPORTADO. 
DISPLAY 'PAIS DE ORIGEN:', WS-PAISDEORIGEN. 
************************************************************* 
*30000 - FINAL 
*--|------------------+----------><----------+-------------* 
* | FINALIZA LA EJECUCION DEL PROGRAMA 
************************************************************ 
30000-FINAL. 
STOP RUN. 
***********FIN FISICO DEL PROGRAMA ************ 
Es solo una recomendación.
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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por ALDO » 16 Dic 2018, 02:18

Gracias por la Recomendación

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. PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES TODAVÍIA SIN SOLUCIÓN

Mensaje por ALDO » 19 Dic 2018, 13:41

Estimados,
Aún no he podido solucionar Problema de la referencia, agradeceré vuestro apoyo, Gracias

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por LuisFer » 19 Dic 2018, 17:42

Has conseguido establecer la conexión entre el CICS y el DB2??
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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por ALDO » 20 Dic 2018, 16:14

No, Desconozco la Instrucción a Ejecutar por Consola o en la Configuración INI del Hercules..
Agradeceré si me la puedes indicar...Gracias

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.PROBLEMA (Abend 4038) AL EJECUTAR PROGRAMA DB2 (PROG008) CON EL EMULADOR HERCULES

Mensaje por LuisFer » 20 Dic 2018, 17:09

LuisFer escribió:
15 Dic 2018, 05:20
El enlace es para CICS 5.2, pero supongo que no cambiará mucho para V3.2 (que por el nombre de la STC estimo que es).
https://www.ibm.com/support/knowledgece ... htk2c.html

El U4038 no creo que se venga derivado por el nombre, si la tabla no la localiza daría un sqlcode...
Seguramente el U4038 venga derivado de la falta de conectividad CICS <==> DB2, tienes que configurar el CICS para que se conecte a DB2.
En el enlace tienes instrucciones de cómo hacerlo que no creo que cambie por la diferencia de versión.
No es lo mío el CICS, haber si hay alguien que pueda ayudar....
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

Responder