CICS. definición de recursos para TCP/IP

Definición de transacciones Editran

Las transid ZTBA (u otros listener) y ZTBB, deben tener máxima prioridad, así como la ya existente ZTB0 (núcleo editran), para así agilizar la transmisión.

Revise las transid ZTBA, ZTBB, ZTBZ en el miembro PCTCEDA de la lib de jcls.

Definición de programas Editran

Revise el miembro PPTCEDA de la lib de jcls, progs ZTBPOT**

Relinkedicciones

Los programas ZTBPOTCC Y ZTBPOTCD ya van relinkados con las librerías TCP de INDRA. Sin embargo, si no funcionan correctamente deben relinkarse en la propia instalación.

EDIT       KI.EGDC.ZTBP.JCLS(JLKTCPI) - 01.03              Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR 
 ****** ***************************** Top of Data ******************************
 000001 //KI0F6AEA JOB (EGDC,KIT,,199),'RELINK TCP/IP',MSGCLASS=H,CLASS=A,     
 000002 //           NOTIFY=&SYSUID                                            
 000003 //*--------------------------------------------------------------------*
 000004 //* RELINK PROGRAMA COBOL QUE LLAMA A UNA FUNCION C                    *
 000005 //*--------------------------------------------------------------------*
 000006 //LKED     EXEC PGM=HEWL,REGION=1500K,                                 
 000007 //         PARM=('MAP,LIST,RMODE=ANY,AMODE=31')                        
 000008 //SYSLIB   DD DSN=CEE.SCEELKED,DISP=SHR                                
 000009 //         DD DSN=CICS410.SDFHLOAD.SITO,DISP=SHR                       
 000010 //         DD DSN=TCPIP.SEZALINK,DISP=SHR                              
 000011 //         DD DSN=TCPIP.SEZATCP,DISP=SHR                               
 000012 //LCOBOLII DD DSN=KI.EGDC.ZTBP.LOAD31,DISP=SHR                         
 000013 //SYSPRINT DD SYSOUT=*                                                 
 000014 //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(5,5))                             
 000015 //SYSLMOD  DD DSN=KI.EGDC.ZTBP.LOAD31,DISP=SHR                         
 000016 //SYSLIN   DD *                                                        
 000017   INCLUDE SYSLIB(EDCSTART)
 000018   INCLUDE SYSLIB(IGZEBST)                                              
 000019   INCLUDE SYSLIB(@@CBL2C)                                              
 000020   INCLUDE SYSLIB(@@C2CBL)                                               
 000021   INCLUDE SYSLIB(EZACICAL)                                             
 000022   INCLUDE SYSLIB(EZASOKET)                                             
 000023   INCLUDE LCOBOLII(ZTBPOTCD)                                           
 000024   ENTRY ZTBPOTCD                                                       
 000025   NAME ZTBPOTCD(R)                                                     
 000026 /*                                                                     
 ****** **************************** Bottom of Data ****************************

El error descrito se refleja en la siguiente secuencia:

LOG DE SISTEMA:
STC01465 00000090  +DFHSR0001  BMCIDATR An abend (code 0C4/AKEA) has occurred at offset
                   X'00001B76' in program ZTBPOTCD.                            
STC01465 00000090  +DFHME0116 BMCIDATR 345                                     
     345 00000090   (Module:DFHMEME) CICS symptom string for message DFHSR0001 i
     345 00000090   PIDS/565501800 LVLS/410 MS/DFHSR0001 RIDS/DFHSRP PTFS/UN9491
     345 00000090   AB/S00C4 AB/UAKEA RIDS/ZTBPOTCD ADRS/00001B76              
STC01465 00000090  +DFHDU0205  BMCIDATR A SYSTEM DUMP FOR DUMPCODE: SR0001  , WA
                   SUPPRESSED BY THE DUMP TABLE OPTION FOR THIS DUMPCODE       
STC01465 00000090  +CEE1000S LE/370 INTERNAL ABEND. ABCODE = 4087 REASON = 0000008
******************************** BOTTOM OF DATA ******************************** 

LOG DE CICS:

DFHDU0207I 20/05/99 16:38:10 BMCIDATR Transaction and system dumps for dumpcode: 4039 were suppressed by the DUMP TABLE OPTION FOR THIS DUMPCODE.                                           
DFHDU0207I 20/05/99 16:38:10 BMCIDATR Transaction and system dumps for dumpcode: 4087 were suppressed by the DUMP TABLE OPTION FOR THIS DUMPCODE.                                           
DFHAC2236 20/05/99 16:38:10 BMCIDATR Transaction ZTBB abend 4087 in program ZTBPOTCD term ZTB3 backout successful.