Implementando TWS 8.6.0 (OPC) - Cuarta Parte

Escrito por Javier

En esta cuarta y penúltima parte, vamos a empezar editando la librería de parámetros del sistema, es decir, la librería ADCD.Z113.PARMLIB. Hay que hacer los siguientes cambios:

NOTA: Estos cambios son para el LOADPARM con el que hayamos arrancado el sistema. Por ejemplo, si arrancamos con el LOADPARM que arranca lo básico, modificamos los miembros y luego arrancamos con otro LOADPARM que arranque DB2, habrá que modificar los miembros que usa ese LOADPARM para que funcione OPC.

  

Miembro IEFSSN**

Para saber que miembro IEFSSN** se está usando, hay que buscarlo en el log del sistema. Para ello, vamos al SDSF, opción LOG y, desde el principio, usamos el comando "F IEFSSN" para buscar.

  

Vemos que el miembro que se usa es el IEFSSN00, por lo tanto, lo buscamos en la librería ADCD.Z113.PARMLIB.

En el miembro IEFSSN00 hay que añadir lo siguiente:

SUBSYS SUBNAME(nombre de subsistema) INITRTN(nombre de módulo)

INITPARM (’maxecsa,suffix’)

Para buscar el nombre del módulo, hay que ir a la librería TWS860.SEQQLMD0 y buscar el miembro "EQQINIT*". Para rellenar el parámetro "maxecsa" usaremos este enlace.

 

En este caso, el módulo se llama EQQINITJ.

NOTA: en la imagen superior aparece una V para visualizar el miembro, pero no es necesario verlo, solo anotar el nombre.

Ahora buscamos el miembro “EQQSSCM*”, en la misma librería. La letra final (J) es el sufijo del subsistema.

 

 Ahora vamos a editar el miembro IEFSSN00.

 

Añadimos lo siguiente:

SUBSYS SUBNAME(OP1C) INITRTN(EQQINITJ) INITPARM (’0,J’)

SUBSYS SUBNAME(OP1T) INITRTN(EQQINITJ) INITPARM (’300,J’)

 

Miembro PROG**

Para saber el miembro PROG** que usamos, lo buscamos en el log del sistema.

 

Vemos que es el miembro PROG01 y está en la librería ADCD.Z113.PARMLIB. Vamos a editarlo.

 

Añadimos lo siguiente, tal y como se ve en la imagen:

APF ADD

      DSNAME(TWS860.SEQQLMD0)                         VOLUME(ZDPRD1)

 

También añadimos esta línea como se muestra en la imagen:

LNKLST ADD NAME(LNKLST00) DSN(TWS860.SEQQLMD0)              VOLUME(ZDPRD1)

NOTA: es importante ponerlo antes de la línea LNKLST ACTIVATE NAME(LNKLST00) para que funcione.

 

Miembro SMFPRM00

En este caso, solo existe en miembro SMFPRM00, por lo tanto, no hay que buscarlo en el log. En caso de tener varios, buscar en el log el que se usa. Editamos el miembro SMFPRM00 y añadimos al final:

SYS(TYPE(6,14,15,18,26,30,60,62,64,90),EXITS(IEFU83,IEFACTRT,IEFUJI))

SUBSYS(STC,EXITS(IEFUJI,IEFACTRT,IEFU83))

SUBSYS(JES2,EXITS(IEFUJI,IEFACTRT,IEFU83))

 

Miembro PROG01. (De nuevo)

Vamos a añadir una llamada a las EXITs que hemos añadido en el miembro anterior. Entramos en el miembro PROG01, y, después de la definición de las librerías APF, añadimos lo siguiente:

EXIT ADD EXITNAME(SYS.IEFU83) MODNAME(TWSU83)              

EXIT ADD EXITNAME(SYS.IEFACTRT) MODNAME(TWSACTRT)         

EXIT ADD EXITNAME(SYS.IEFUJI) MODNAME(TWSUJI)             

EXIT ADD EXITNAME(SYSSTC.IEFU83) MODNAME(TWSU83)          

EXIT ADD EXITNAME(SYSSTC.IEFACTRT) MODNAME(TWSACTRT)      

EXIT ADD EXITNAME(SYSSTC.IEFUJI) MODNAME(TWSUJI)          

EXIT ADD EXITNAME(SYSJES2.IEFU83) MODNAME(TWSU83)         

EXIT ADD EXITNAME(SYSJES2.IEFACTRT) MODNAME(TWSACTRT)     

EXIT ADD EXITNAME(SYSJES2.IEFUJI) MODNAME(TWSUJI)         

 

NOTA: El "MODNAME" tiene que ser el mismo nombre de los módulos que definimos en la tercera parte de este manual y se encuentran en la librería ADCD.Z113.LPALIB.

 

 Miembro IKJTSO**

Como hemos hecho anteriormente, lob buscamos en el log.

 

Si lo buscamos en la PARMLIB, vemos que solo existe uno, por lo tanto, no hubiera hecho falta buscarlo en el log.

 

En "AUTHTSF NAMES", añadimos EQQMINOJ.

 

En "AUTHCMD NAMES", añadir lo siguiente (hay que tener en cuenta que al final de cada línea hay un +):

BACKUP               /*                          */ + 

BULKDISC             /*                          */ + 

JSUACT               /*                          */ + 

OPINFO               /*                          */ + 

OPSTAT               /*                          */ + 

SRSTAT               /*                          */ + 

WSSTAT               /*                          */ 

 

Miembro SCHED**

Lo buscamos en el log del sistema con el comando "F SCHED**".

 

Ahora lo editamos para añadir la siguiente línea:

PPT PGMNAME(EQQMAJOR) NOSWAP

 

Ahora vamos a la librería ADCD.Z113.PROCLIB y editamos el miembro que usamos como procedimiento de TSO, en este caso, ISPFPROC.

 

Añadimos la siguiente línea en las DD de SYSPROC:

//         DD  DISP=SHR,DSN=OPC.OP1C.SEQQSKLO,UNIT=3390,VOL=SER=PROD01

 

La siguientes líneas en las DD de ISPPLIB:

//         DD  DISP=SHR,DSN=TWS860.SEQQGENU,UNIT=3390,VOL=SER=ZDPRD1  

//         DD  DISP=SHR,DSN=TWS860.SEQQPENU,UNIT=3390,VOL=SER=ZDPRD1  

 

En las DD de ISPSLIB:

//         DD  DISP=SHR,DSN=OPC.OP1C.SEQQSKLO,UNIT=3390,VOL=SER=PROD01

 

En las DD de ISPMLIB:

//         DD  DISP=SHR,DSN=TWS860.SEQQMSG0,UNIT=3390,VOL=SER=ZDPRD1

 

En las DD de ISPTLIB:

//         DD  DISP=SHR,DSN=TWS860.SEQQTBL0,UNIT=3390,VOL=SER=ZDPRD1

 

Al final del fichero, añadimos dos DD nuevas

//EQQMLIB  DD  DISP=SHR,DSN=TWS860.SEQQMSG0,UNIT=3390,VOL=SER=ZDPRD1   

//EQQTMPL  DD  DISP=SHR,DSN=TWS860.SEQQLENU,UNIT=3390,VOL=SER=ZDPRD1

 

Ahora vamos a añadir en el menú principal de ISPF una opción para acceder a OPC. En la entrada Arreglando el menú – Parte 1 – DITTO hay más detalles de cómo hacerlo.

Para hacer esto, vamos a la librería ADCD.Z113.ISPPLIB y modificamos el miembro ISR@PRIM que es el miembro del panel principal de ISPF que usamos con el procedimiento de TSO "ISPFPROC".

NOTA: Poned especial atención en esta parte, ya que si editamos mal el menú, tendremos problemas para acceder.

 

Vamos hasta la línea 200 y repetimos la linea que indica “11 Workplace…”. La modificamos como se muestra la imágen (se puede poner otro texto si se desea):

 

Ahora seguimos bajando y vamos a la línea 314. Añadimos, después de la línea "11,'PGM(ISRUDA)...", la siguiente línea:

O,'PANEL(EQQOPCAP) NEWAPPL(EQQA)'            

 

Salimos de la sesión de TSO y volvemos a entrar. Aparecerá la nueva opción del menú.

 

Hasta aquí la parte cuatro. La siguiente parte es la última de la parte de implementación.

 

Visto: 2231

Comentarios  

0 #1 Oskar 04-04-2018 11:20
Hi again

Javier, I'm missing TWS830.SEQQLENU and TWS830.SEQQGENU. As I found in some changelog this were added in tws v8.6. I guess I should just skip it? Or is there any v8.3 equivalent to swap with? https://drive.google.com/file/d/113zuN1AcTZpIHNTRIybl0jGPz9jgoZTz/view?usp=sharing
Citar
0 #2 Oskar 04-04-2018 11:29
Are this two just Advanced ISPF panels that I can go without? And the SEQQPENU is the basic one?
And if I skip them, does it change further installation process in anyway?

Sorry for spamming, no edit option :)
Citar

Escribir un comentario


Código de seguridad
Refescar