Iniciando CICS, modo ensayo y error
· 15 min read
Levantar un CICS puede parecer intimidante al principio, pero con el orden correcto y entendiendo qué hace cada componente, el proceso se vuelve mucho más claro. En este post te muestro, paso a paso, cómo inicié una región CICS en IBM Z, qué revisé antes del arranque y cómo interpreté los mensajes clave para asegurarte de que todo quedó operativo. Esto es ideal si estás comenzando en el mundo mainframe o si quieres reforzar fundamentos que usamos a diario.
-
INTENTAMOS INICIAR EL CICS DESDE SDSF
/S PRODAOR2 -
COMO ERA DE ESPERAR, CANCELÓ
********************************* TOP OF DATA ********************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 STEPLIB +0005 - DATA SET DB2.SDSNLOAD NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1248
IEF032I STEP/CICS /STOP 2026006.1248
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1248
IEF033I JOB/PRODAOR2/STOP 2026006.1248
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA ******************************
-
EDITAMOS EL MEMBER
SBOX.PROCLIB(PRODAOR2), LO PRIMERO ES RESPALDAR EL ARCHIVO PRODAOR2 DESDE EL EDITOR ISPF, CREATE $RODAOR2 Y C9999, LUEGO COMENTAMOS EN EL BLOQUE STEPLIB LA DD DB2.SDSNLOAD -
BUSCAMOS LA LIBRERÍA CON EL PROCEDIMIENTO DE PARTIDA (STARTER), EN ESTE CASO:
SBOX.PROCLIB -
INICIAMOS NUEVAMENTE EL CICS Y NOS TOPAMOS CON LO SIGUIENTE:
********************************* TOP OF DATA **************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 STEPLIB +0006 - DATA SET TMON.CICS420.TCELOAD NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1311
IEF032I STEP/CICS /STOP 2026006.1311
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1311
IEF033I JOB/PRODAOR2/STOP 2026006.1311
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA ************************************
- VOLVEMOS AL MEMBER SBOX.PROCLIB(PRODAOR2) Y COMENTAMOS EN EL BLOQUE STEPLIB LA DD TMON.CICS420.TCELOAD APROVECHAMOS DE COMENTAR LAS LÍNEAS SIGUIENTES QUE TIENEN SUFIJO TMON YA QUE ESE PRODUCTO NO ESTÁ DISPONIBLE EN ESA LPAR
EDIT SBOX.PROCLIB(PRODAOR2) - 01.50 MEMBER PRODAOR2 SAVED
COMMAND ===> SCROLL ===> CSR
000025 // DD DISP=SHR,DSN=CEE.SCEERUN
000026 //* DD DISP=SHR,DSN=DB2.SDSNLOAD
000027 // DD DISP=SHR,DSN=TCPIP.SEZALOAD
000028 //* DD DISP=SHR,DSN=TMON.CICS420.TCELOAD
000029 //* DD DISP=SHR,DSN=TMON.TSS200.LMKLOAD
000030 //* DD DISP=SHR,DSN=TMON.TSS200.LMKRLOD
000031 //*
000032 //DFHRPL DD DISP=SHR,DSN=&CPSMHLQ..SEYULOAD
-
GUARDAMOS LOS CAMBIOS E INTENTAMOS INICIAR CICS NUEVAMENTE
-
CANCELÓ NUEVAMENTE, PERO ESTA VEZ PORQUE NO ENCONTRÓ EL ARCHIVO
TMON.CICS420.TCELOADEN EL BLOQUEDFHRPL
********************************* TOP OF DATA **************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 DFHRPL +0007 - DATA SET TMON.CICS420.TCELOAD NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1316
IEF032I STEP/CICS /STOP 2026006.1316
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1316
IEF033I JOB/PRODAOR2/STOP 2026006.1316
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA ************************************
- VOLVEMOS AL MEMBER
SBOX.PROCLIB(PRODAOR2)Y COMENTAMOS TODAS LAS LÍNEAS DEL BLOQUEDFHRPLQUE TIENEN SUFIJOTMON
EDIT SBOX.PROCLIB(PRODAOR2) - 01.50 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000032 //DFHRPL DD DISP=SHR,DSN=&CPSMHLQ..SEYULOAD
000033 // DD DISP=SHR,DSN=&CICSHLQ..SDFHLOAD
000034 // DD DISP=SHR,DSN=&CICSHLQ..SDFHLIC
000035 // DD DISP=SHR,DSN=CEE.SCEECICS
000036 // DD DISP=SHR,DSN=CEE.SCEERUN2
000037 // DD DISP=SHR,DSN=CEE.SCEERUN
000038 // DD DISP=SHR,DSN=TCPIP.SEZATCP
000039 //* DD DISP=SHR,DSN=TMON.CICS420.TCELOAD
000040 //* DD DISP=SHR,DSN=TMON.TSS200.LMKLOAD
000041 //* DD DISP=SHR,DSN=TMON.TSS200.LMKRLOD
000042 // DD DISP=SHR,DSN=CICSTS.V530.LOADLIB.PROD
000043 // DD DISP=SHR,DSN=MVSESA.CICS.INGESIST.LOADLIB.PDSE
000044 // DD DISP=SHR,DSN=PXPL.CICSPROD.LOADLIB
000045 // DD DISP=SHR,DSN=PCMX.BKUAC.REL-111.CCP.LOAD
000046 // DD DISP=SHR,DSN=PCMX.BKUAC.REL-111.CCP.SQL.LOAD
000047 //*
-
GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE
-
AHORA, NO ENCUENTRA EL ARCHIVO
CICSTS.V530.LOADLIB.PRODEN EL BLOQUEDFHRPL
********************************* TOP OF DATA ********************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 DFHRPL +0007 - DATA SET CICSTS.V530.LOADLIB.PROD NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1319
IEF032I STEP/CICS /STOP 2026006.1319
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1319
IEF033I JOB/PRODAOR2/STOP 2026006.1319
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA ******************************************
-
VOLVEMOS AL MEMBER
SBOX.PROCLIB(PRODAOR2)Y COMENTAMOS EN EL BLOQUEDFHRPLLA DDCICSTS.V530.LOADLIB.PROD -
GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE
-
AHORA, NO ENCUNTRA EL ARCHIVO
PXPL.CICSPROD.LOADLIB
********************************* TOP OF DATA **************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 DFHRPL +0008 - DATA SET PXPL.CICSPROD.LOADLIB NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1322
IEF032I STEP/CICS /STOP 2026006.1322
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1322
IEF033I JOB/PRODAOR2/STOP 2026006.1322
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA ************************************
-
VOLVEMOS AL
MEMBER SBOX.PROCLIB(PRODAOR2)Y COMENTAMOS EN EL BLOQUEDFHRPLLA DDPXPL.CICSPROD.LOADLIB -
GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE
-
AHORA, NO ENCUNTRA EL ARCHIVO
PCMX.BKUAC.REL-111.CCP.LOAD
********************************* TOP OF DATA ***********************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 DFHRPL +0008 - DATA SET PCMX.BKUAC.REL-111.CCP.LOAD NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1326
IEF032I STEP/CICS /STOP 2026006.1326
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1326
IEF033I JOB/PRODAOR2/STOP 2026006.1326
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA *********************************************
- VOLVEMOS AL MEMBER
SBOX.PROCLIB(PRODAOR2)Y COMENTAMOS EN EL BLOQUEDFHRPLLA DDPCMX.BKUAC.REL-111.CCP.LOAD, APROVECHAMOS DE COMENTAR LA SIGUIENTE LÍNEA YA QUE ESE ARCHIVO NO ESTÁ DISPONIBLE EN ESA LPAR
EDIT SBOX.PROCLIB(PRODAOR2) - 01.51 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000032 //DFHRPL DD DISP=SHR,DSN=&CPSMHLQ..SEYULOAD
000033 // DD DISP=SHR,DSN=&CICSHLQ..SDFHLOAD
000034 // DD DISP=SHR,DSN=&CICSHLQ..SDFHLIC
000035 // DD DISP=SHR,DSN=CEE.SCEECICS
000036 // DD DISP=SHR,DSN=CEE.SCEERUN2
000037 // DD DISP=SHR,DSN=CEE.SCEERUN
000038 // DD DISP=SHR,DSN=TCPIP.SEZATCP
000039 //* DD DISP=SHR,DSN=TMON.CICS420.TCELOAD
000040 //* DD DISP=SHR,DSN=TMON.TSS200.LMKLOAD
000041 //* DD DISP=SHR,DSN=TMON.TSS200.LMKRLOD
000042 //* DD DISP=SHR,DSN=CICSTS.V530.LOADLIB.PROD
000043 // DD DISP=SHR,DSN=MVSESA.CICS.INGESIST.LOADLIB.PDSE
000044 //* DD DISP=SHR,DSN=PXPL.CICSPROD.LOADLIB
000045 //* DD DISP=SHR,DSN=PCMX.BKUAC.REL-111.CCP.LOAD
000046 //* DD DISP=SHR,DSN=PCMX.BKUAC.REL-111.CCP.SQL.LOAD
000047 //*
- GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE
********************************* TOP OF DATA ****************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 TMONCNTL - DATA SET TMON.CICS421.SBOX1.VTCECNTL NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1329
IEF032I STEP/CICS /STOP 2026006.1329
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1329
IEF033I JOB/PRODAOR2/STOP 2026006.1329
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA **************************************
- VOLVEMOS AL MEMBER
SBOX.PROCLIB(PRODAOR2)Y COMENTAMOS EL BLOQUETMONCNTLQUE TIENE LA DDTMON.CICS421.SBOX1.VTCECNTL
EDIT SBOX.PROCLIB(PRODAOR2) - 01.51 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000048 //*-------------------------------------------------------------------
000049 //* TMONCNTL DD DISP=SHR,DSN=TMON.CICS421.&SYSNAME..VTCECNTL
000050 //DFHLCD DD DISP=SHR,DSN=&RGNHLQ..DFHLCD
000051 //DFHGCD DD DISP=SHR,DSN=&RGNHLQ..DFHGCD
000052 //DFHTEMP DD DISP=SHR,DSN=&RGNHLQ..DFHTEMP
000053 //DFHINTRA DD DISP=SHR,DSN=&RGNHLQ..DFHINTRA
000054 //DFHLRQ DD DISP=SHR,DSN=&RGNHLQ..DFHLRQ
000055 //*
- GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE
********************************* TOP OF DATA ***************************************
IEFA111I PRODAOR2 IS USING THE FOLLOWING JOB RELATED SETTINGS:
SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
IEFA107I PRODAOR2 PRODAOR2 DFHLCD - DATA SET CICSTS.V560.PRODAOR2.DFHLCD NOT FOUND
IEF272I PRODAOR2 PRODAOR2 - STEP WAS NOT EXECUTED.
IEF373I STEP/CICS /START 2026006.1333
IEF032I STEP/CICS /STOP 2026006.1333
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 7M SHRD: 0M
IEF375I JOB/PRODAOR2/START 2026006.1333
IEF033I JOB/PRODAOR2/STOP 2026006.1333
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
******************************** BOTTOM OF DATA *************************************
- VOLVEMOS AL
MEMBER SBOX.PROCLIB(PRODAOR2)Y OBSERVAMOS QUE LA LÍNEADFHLCDTIENE UNA VARIABLE&RGNHLQ
EDIT SBOX.PROCLIB(PRODAOR2) - 01.51 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000048 //*-------------------------------------------------------------------
000049 //*MONCNTL DD DISP=SHR,DSN=TMON.CICS421.&SYSNAME..VTCECNTL
000050 //DFHLCD DD DISP=SHR,DSN=&RGNHLQ..DFHLCD
000051 //DFHGCD DD DISP=SHR,DSN=&RGNHLQ..DFHGCD
000052 //DFHTEMP DD DISP=SHR,DSN=&RGNHLQ..DFHTEMP
000053 //DFHINTRA DD DISP=SHR,DSN=&RGNHLQ..DFHINTRA
000054 //DFHLRQ DD DISP=SHR,DSN=&RGNHLQ..DFHLRQ
000055 //*
- VAMOS A BUSCARLA LA VARIABLE VARIABLE
&RGNHLQEN LA PARTE SUPERIOR DEL MEMBER LA DEFINICIÓN DE LA VARIABLE, LA ENCONTRAMOS EN LA LÍNEA 4
EDIT SBOX.PROCLIB(PRODAOR2) - 01.51 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
****** ********************************* TOP OF DATA **********************************
==MSG> -WARNING- THE UNDO COMMAND IS NOT AVAILABLE UNTIL YOU CHANGE
==MSG> YOUR EDIT PROFILE USING THE COMMAND RECOVERY ON.
000001 //*-------------------------------------------------------------------
000002 //* PRODAOR2 CICS TS 5.6.0
000003 //*-------------------------------------------------------------------
000004 //PRODAOR2 PROC RGNHLQ='CICSTS.V560.PRODAOR2',
000005 // CICSHLQ=CICSTS.V560.CICS.&JCICS,
000006 // CPSMHLQ=CICSTS.V560.CPSM.&JCICS,
000007 // PRMLIB=CICSTS.V560.SYSIN.PROD.&JCICS,
000008 // REG='1900M',
000009 // START='INITIAL',
000010 // CICSPRM=PRODAOR2, CICS PARAMETERS
000011 // CPSMPRM=PRAOR2&SYSCLONE CPSM PARAMETERS
000012 //*
- SE DEBEN CREAR LOS ARCHIVOS VSAMM PARA ELLO BUSCAMOS UN JCL BASE PARA CREAR LOS ARCHIVOS, ¿DONDE BUSCAR? BUSCAMOS EN EL ISPF DESDE LA OPCIÓN
P.3.4, INGRESAMOSCICSTS.**.JCLLIB. EN ESTE CASO, ENCONTRAREMOS 4 OPCIONES, POR SIMPLE INSPECCIÓN DETERMINAMOS QUE LA CORRECTA ES:CICSTS.V560.JCLLIB.PROD
DSLIST - DATA SETS MATCHING CICSTS.**.JCLLIB ROW 1 OF 4
COMMAND ===> SCROLL ===> CSR
COMMAND - ENTER "/" TO SELECT ACTION MESSAGE VOLUME
-------------------------------------------------------------------------------
CICSTS.JCLLIB.PROD SBOX26
B CICSTS.V560.JCLLIB.PROD SBOX26
CICSTS.V560.JCLLIB.SANBOX SBOX26
CICSTS.V560.JCLLIB.SO1T SBOX26
***************************** END OF DATA SET LIST ****************************
BUSCAMOS EL ARCHIVO BASE, EN ESTE CASO USAREMOS PRODAOR1
BROWSE CICSTS.V560.JCLLIB.PROD ROW 0000012 OF 0000029
COMMAND ===> SCROLL ===> CSR
NAME PROMPT SIZE CREATED CHANGED ID
_________ PRODAOR1 *VIEWED 384 2026/01/05 2026/01/05 18:20:40 XXXXXXX
_________ REPRO01 10 2019/05/07 2020/03/25 21:21:11 XXXXXXX
_________ REPRO02 12 2004/10/05 2018/09/12 16:17:46 XXXXXXX
_________ SAFEAORA 384 2024/07/16 2024/07/16 13:32:21 XXXXXXX
_________ SAFEAORB 384 2025/05/29 2025/06/11 10:37:04 XXXXXXX
_________ SAFEAORC 384 2025/06/11 2025/06/11 11:22:20 XXXXXXX
_________ SAFEAORD 384 2025/06/11 2025/06/11 11:25:16 XXXXXXX
_________ SAFEAORE 384 2025/06/11 2025/06/11 11:26:45 XXXXXXX
_________ SAFEAORF 384 2025/06/11 2025/06/11 11:28:23 XXXXXXX
_________ SAFEAORG 384 2025/06/11 2025/06/11 11:29:37 XXXXXXX
_________ SAFEAORH 384 2025/06/11 2025/06/11 11:31:42 XXXXXXX
_________ SAFEAORI 384 2025/06/11 2025/06/11 12:53:42 XXXXXXX
_________ SAFEAOR1 384 2025/12/30 2025/12/30 18:40:53 XXXXXXX
_________ SAFEAOR2 384 2025/12/30 2025/12/30 18:42:06 XXXXXXX
_________ SAFEAOR7 384 2024/07/16 2024/07/16 13:30:03 XXXXXXX
_________ SAFEAOR8 384 2024/07/16 2024/07/16 13:32:53 XXXXXXX
_________ SAFEAOR9 384 2024/07/16 2024/07/16 13:33:23 XXXXXXX
**END**
-
VIASUALIZAMOS EL ARCHIVO, CREAMOS UNA COPIA CON NOMBRE PRODAOR2. EDITAMOS EL ARCHIVO RECIÉN CREADO Y REEMPLAZAMOS LAS REFERENCIAS A
PRODAOR1PORPRODAOR2UTILIZANDO EL COMANDOCH PRODAOR1 PRODAOR2 ALLFINALMENTE, GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE -
OBSERVAMOS QUE EL PROGRAMA
TM2N680NO FUE ENCONTRADO
********************************* TOP OF DATA ***************************************************
DFHSI8440I PRODAOR2 INITIATING CONNECTION TO CICSPLEX SM.
IEC141I 013-18,IGG0191B,PRODAOR2,PRODAOR2,EYUPARM,8F26,SBOX26,
CICSTS.V560.SYSIN.PROD.J1(PRAOR2X1)
DFHAM4897 PRODAOR2 THE DEFINITION OF TDQUEUE COPR SPECIFIED OPENTIME=INITIAL BUT THE OPEN FAILED.
EYUNX0001I PRODAOR2 LMAS INITIALIZATION PROGRAM STARTING
EYUXL0003I PRODAOR2 CPSM VERSION 560 LMAS STARTUP IN PROGRESS
EYUXL0119I PRODAOR2 CPSM KERNEL LOADED FROM EYU9XL01
IEF237I JES2 ALLOCATED TO S0000001
IEF285I PRODAOR2.PRODAOR2.STC00658.D0000111.? SYSOUT
EYUXL0022I PRODAOR2 LMAS PHASE I INITIALIZATION COMPLETE
IEC141I 013-18,IGG0191B,PRODAOR2,PRODAOR2,EYUPARM,8F26,SBOX26,
CICSTS.V560.SYSIN.PROD.J1(PRAOR2X1)
EYUXL0213E PRODAOR2 REQUIRED PARAMETER ' CICSPLEX ' NOT SUPPLIED.
EYUXL0215E PRODAOR2 PARAMETER SERVICES INITIALIZATION FAILED.
EYUXM0004I PRODAOR2 MESSAGE SERVICES TERMINATION COMPLETE
EYUXL0023I PRODAOR2 TRACE SERVICES TERMINATION REQUESTED
EYUXZ0001I PRODAOR2 TRACE SERVICES TERMINATION COMPLETE
EYUXL0112E PRODAOR2 LMAS INITIALIZATION FAILED
DFHSI8440I PRODAOR2 INITIATING CONNECTION TO DB2.
DFHSI8442 PRODAOR2 CONNECTION TO DB2 HAS FAILED.
DFHSI8430I PRODAOR2 ABOUT TO LINK TO PLT PROGRAMS DURING THE THIRD STAGE OF INITIALIZATION.
DFHSI1579D PRODAOR2 MODULE DFHSIPLT PLT PROGRAM TM2N680 NOT FOUND. REPLY GO OR CANCEL.
******************************** BOTTOM OF DATA ***************************************************
- AHORA
PRODAOR2NO CANCELA, PERO AÚN NO ESTÁ COMPLETAMENTE OPERATIVO. EL LOG INDICA QUE NO ENCUNTRA EL PROGRAMATM2N680. NÓTESE QUE INDICA LA PLT COMO REFERENCIA, ASÍ ES QUE DEBEMOS ENCONTRAR EL ARCHIVO PLT, PARA ELLO VOLVEMOS A LA STARTERSBOX.PROCLIB(PRODAOR2)Y BUSCAMOS LADFHTABLE
EDIT SBOX.PROCLIB(PRODAOR2) - 01.51 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000011 // CPSMPRM=PRAOR2&SYSCLONE CPSM PARAMETERS
000012 //*
000013 //*-------------------------------------------------------------------
000014 //CICS EXEC PGM=DFHSIP,REGION=®,TIME=1440,
000015 // PARM='START=&START,SYSIN'
000016 //*
000017 //SYSIN DD DISP=SHR,DSN=&PRMLIB(&CICSPRM)
000018 //EYUPARM DD DISP=SHR,DSN=&PRMLIB(&CPSMPRM)
000019 //DFHTABLE DD DISP=SHR,DSN=CICSTS.SOURCE.PROD
000020 //*
- UBICADO EL NOMBRE DE LA LIBRERÍA, NECESITAMOS EL NOMBRE DEL MEMBER CORRECTO. AHORA,
TENEMOS QUE BUSCAR EL
SUFIJO PLTEL CUAL BUSCAMOS EN LA SYSINCICSTS.V560.SYSIN.PROD.J1(PRODAOR2)
VIEW CICSTS.V560.SYSIN.PROD.J1(PRODAOR2) - 01.64 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000046 MNFREQ=001500 PERFORMANCE MONITORING FREQUENCY
000047 MNPER=ON SWITCH PERFORMANCE MONITORING ON OR OFF
000048 MNRES=ON TRANSACTION RESOURCE MONITORING ACTIVE
000049 MROLRM=YES LONG-RUNNING MIRROR TASK OPTION
000050 MXT=400 MAXIMUM TASKS
000051 NCPLDFT=DFHNCPRD SERVIDOR DE NAME COUNTER
000052 PGAIPGM=ACTIVE PG AUTOINSTALL STATE
000053 PLTPI=SI SI CON SOCKETS CON ISI
000054 PLTSD=SD PROGRAM LIST TABLE SHUT DOWN
000055 RAPOOL=(50,0) MAXIMUM RECEIVE ANY REQUEST FROM SNA
000056 RLS=YES RLS SUPPORT
000057 RENTPGM=PROTECT DEFAULT, PROTEGE LA ERDSA
000058 SEC=YES EXTERNAL SECURITY ( YES / NO )
000059 SECPRFX=YES SECURITY PREFFIX
000060 SPOOL=YES SYSTEM SPOOLING INTERFACE
000061 START=INITIAL ( AUTO, INITIAL , COLD O STANDBY )
- LA LÍNEA 53 MUESTRA EL SUFIJO
PLTPI=SI, CON ESTE DATO PODEMOS VOLVER A LA LIBRERIACICSTS.SOURCE.PRODENCONTRANDO EL MEMBERDFHPLTSI. AHORA, BUSCAMOS LA ENTRADA CORRESPONDIENTE AL PROGRAMATM2N680
EDIT CICSTS.SOURCE.PROD(DFHPLTSI) - 01.09 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
000017 *---------------------------------------------------------------------*
000018 * PRINT NOGEN *
000019 PLTSI DFHPLT TYPE=INITIAL,SUFFIX=SI
000020 DFHPLT TYPE=ENTRY,PROGRAM=DFHDELIM
000021 DFHPLT TYPE=ENTRY,PROGRAM=TM2N680
000022 DFHPLT TYPE=ENTRY,PROGRAM=EZACIC20 ACTIVATE TCPIP SOCK.
000023 STRTPHS2 DFHPLT TYPE=ENTRY,PROGRAM=DFHDELIM
000024 DFHPLT TYPE=ENTRY,PROGRAM=TMON963
000025 DFHPLT TYPE=FINAL
000026 END
****** ******************************** BOTTOM OF DATA ********************************
-
LA COMENTAMOS Y APROVECHAMOS DE COMENTAR LA ENTRADA
TMON963. AHORA GUARDAMOS LOS CAMBIOS E INICIAMOS CICS NUEVAMENTE -
EN EL LOG INDICARÁ QUE HAY UN ERROR CON LOS DATOS DE CICSPLEX, ESO LO SOLUCIONAMOS CON LOS
PARÁMETROS CPSM. ¿DÓNDE UBICARLOS? EN LA STARTERSBOX.PROCLIB(PRODAOR2)
VIEW SBOX.PROCLIB(PRODAOR2) - 01.52 COLUMNS 00001 00080
COMMAND ===> SCROLL ===> CSR
****** ********************************* TOP OF DATA **********************************
==MSG> -WARNING- THE UNDO COMMAND IS NOT AVAILABLE UNTIL YOU CHANGE
==MSG> YOUR EDIT PROFILE USING THE COMMAND RECOVERY ON.
000001 //*-------------------------------------------------------------------
000002 //* PRODAOR2 CICS TS 5.6.0
000003 //*-------------------------------------------------------------------
000004 //PRODAOR2 PROC RGNHLQ='CICSTS.V560.PRODAOR2',
000005 // CICSHLQ=CICSTS.V560.CICS.&JCICS,
000006 // CPSMHLQ=CICSTS.V560.CPSM.&JCICS,
000007 // PRMLIB=CICSTS.V560.SYSIN.PROD.&JCICS,
000008 // REG='1900M',
000009 // START='INITIAL',
000010 // CICSPRM=PRODAOR2, CICS PARAMETERS
000011 // CPSMPRM=PRAOR2&SYSCLONE CPSM PARAMETERS
000012 //*
-
VEMOS LA VARIABLE
&SYSCLONELA CUAL "APARENTEMENTE SERÍA" UNA VARIABLE DEL SISTEMA PUES NO ESTÁ EN EL JCL. VAMOS A CONFIRMARLO, PARA ELLO EN EL SDSF INGRESAMOS/S SYMBOLSY VEMOS SI LA VARIABLE ESTÁ EN EN EL LISTADO. -
EN ESTE CASO, LA VARIABLE NO APARECE, ENTONCES, DEBEMOS REEMPLAZAR
&SYSCLONEPORP1, SIGUIENDO EL EJEMPLO DEL ARCHIVO BASEPRODAOR1 -
FINALMENTE, REINICIAMOS EL CICS Y DEBERÍA FUNCIONAR CORRECTAMENTE.