• Averiguar el nombre del recurso asignado a la línea Ethernet usando el mandato WRKHDWRSC TYPE(*CMN).

  Opc Recurso Tipo Estado Texto

  CMB01 6757 Operativo IOP de funciones combinadas

  LIN01 2720 Operativo Adaptador de Comunicaciones

  CMN01 2720 Operativo Puerto de Comunicaciones

  LIN02 2721 Operativo Adaptador de Comunicaciones

  CMN02 2721 Operativo Puerto de Comunicaciones

  CMN03 2721 Operativo Puerto de Comunicaciones

  LIN03 2838 Operativo Adaptador LAN

  CMN04 2838 Operativo Puerto Ethernet

• Crear la línea Ethernet Crear la línea Ethernet con el mandato CRTLINETH (Aquí se ve como esta descrita la línea del as/400 CTADES)

  Descripción de línea . . . . . . . : LIND ETHLINE

  Opción . . . . . . . . . . . . . . : OPTION *ALL

  Categoría de línea . . . . . . . . : *ELAN

  Nombre de recurso . . . . . . . . : RSRCNAME CMN04

  En línea en IPL . . . . . . . . . : ONLINE *YES

  Espera activación . . . . . . . . : VRYWAIT *NOWAIT

  Controlador de red . . . . . . . . : NETCTL Se debe dejar en blanco

  Dirección adaptador local . . . . : ADPTADR *ADPT

  Identificador de intercambio . . . : EXCHID 05624550

  Estándar Ethernet . . . . . . . . : ETHSTD *ALL

  Velocidad de línea . . . . . . . . : LINESPEED 100M

  Velocidad de línea actual . . . . : 100M

  Se debe poner la velocidad que admita el concentrador al que está conectado (10 o 100).

  Dúplex . . . . . . . . . . . . . . : DUPLEX *HALF

  Dúplex actual . . . . . . . . . . : *HALF

  Máximo de controladores . . . . . : MAXCTL 40

  Nivel de umbral de error . . . . . : THRESHOLD *OFF

  Generar trama de prueba . . . . . : GENTSTFRM *YES

  Tamaño de trama LEC . . . . . . . :

  Texto . . . . . . . . . . . . . . : TEXT Línea para la red Ethernet

  -----------Controladores Conmutados Activos------------

  TAINCOSE

  Lista de SSAP . . . . . . . . . . : SSAP

  -Puntos de Acceso de Servicio Origen- -Puntos de Acceso de Servicio Origen-

  SSAP Trama Máxima Tipo SSAP Trama Máxima Tipo

  04 1496 *SNA C8 1496 *HPR

  12 1496 *NONSNA DC 1496 *NONSNA

  AA 1496 *NONSNA

  Dirección de grupo . . . . . . . . : GRPADR

  --------------Direcciones Grupo---------------

  030000000002

  Velocidad de enlace . . . . . . . : LINKSPEED 100M

  Se debe poner la velocidad que admita el concentrador al que está conectado (10 o 100).

  Coste/tiempo conexión . . . . . . : COSTCNN 0

  Coste/byte . . . . . . . . . . . . : COSTBYTE 0

  Seguridad para línea . . . . . . . : SECURITY *NONSECURE

  Retardo de propagación . . . . . . : PRPDLY *LAN

  Definido por usuario 1 . . . . . . : USRDFN1 128

  Definido por usuario 2 . . . . . . : USRDFN2 128

  Definido por usuario 3 . . . . . . : USRDFN3 128

  Creación automát controlador . . . : AUTOCRTCTL *YES

  à à Por defecto sale *NO y se debe cambiar por *YES

  Supresión automát controlador . . : AUTODLTCTL 4320

  à à Por omisión sale 1440 pero en CTA y CTADES hay 4320 por lo tanto 4320

  Límites de recuperación . . . . . : CMNRCYLMT

  Límite de cuenta . . . . . . . . : 2

  Intervalo de tiempo . . . . . . : 5

• Crear un interfaz TCP/IP Crear un interfaz TCP/IP una vez creada la linea ethernet.
  1. Utilizar el comando CFGTCP
  2. Utilizar la opción 1, Trabajar con interfaces
  3. Utilizar la opción 1, Añadir

   

  Añadir Interfaz TCP/IP (ADDTCPIFC)

   

  Teclee elecciones, pulse Intro.

  Dirección internet . . . . . . . INTNETADR > '192.168.1.165' à Código Tainco

  Descripción de línea . . . . . . LIND ETHLINE à Línea creada más arriba

  Máscara de subred . . . . . . . SUBNETMASK '255.255.255.0'

   

  1. Cambiar el dominio TCP/IP una vez añadida l a interfaz TCP/IP.
  1. Utilizar el comando CFGTCP
  2. Utilizar la opción 12, Cambiar información de dominio TCP/IP

   

  Cambiar dominio TCP/IP (CHGTCPDMN)

   

  Teclee elecciones, pulse Intro.

  Nombre de sistema principal . . 'CTADES'

  Nombre de dominio . . . . . . . 'TAINCO400.COM'

  Prior. búsqueda nom. sis. ppal *REMOTE *REMOTE, *LOCAL, *SAME

  Dirección internet . . . . . . *NONE

   

  1. Añadir una entrada de tabla de sistemas principales TCP/IP.
  1. Utilizar el comando CFGTCP
  2. Utilizar la opción 10, Trabajar con entradas de tabla de sistemas principales TCP/IP
  3. Utilizar la opción 1, Añadir

   

  Añadir Entr Tab Sis Pri TCP/IP (ADDTCPHTE)

   

  Teclee elecciones, pulse Intro.

   

  Dirección internet . . . . . . . > '192.168.1.165'

  Nombres sistemas principales: ‘CVA’

  Nombre . . . . . . . . . . . .

  + para más valores

  Texto descriptivo . . . . . . .

   

  1. Modificar el programa de autoarranque del AS/400 (programa CL, QGPL/QSTRUP), para incluir el arranque de todos los subsistemas relativos al TCP/IP.
  1. Recuperar el fuente desde la biblioteca QSYS con el mandato RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(QGPL/QCLSTRUP)
  2. Editar el fuente para incluir las líneas marcadas:

     QSYS/STRSBS SBSD(QINTER)

     MONMSG MSGID(CPF0000)

     QSYS/STRSBS SBSD(QBATCH)

     MONMSG MSGID(CPF0000)

     QSYS/STRSBS SBSD(QCMN)

     MONMSG MSGID(CPF0000)

     QSYS/STRTCP Sentencia incluida

     MONMSG MSGID(CPF0000) Sentencia incluida

     QSYS/STRTCPSVR Sentencia incluida

     MONMSG MSGID(CPF0000) Sentencia incluida

     QSYS/STRHOSTSVR SERVER(*ALL) Sentencia incluida

     MONMSG MSGID(CPF0000) Sentencia incluida

     DONE:

     QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)

     IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS))

     CALL PGM(QSYS/QWCSWTRS)

     MONMSG MSGID(CPF0000)

     NOWTRS:

     RETURN

     CHGVAR VAR(&CPYR) VALUE(&CPYR)

     ENDPGM

  3. Renombrar el objeto QSYS/QSTRUP como OLDQSTRUP
  4. Compilar el fuente QGPL/QCLSRC(QSTRUP), situando el objeto resultante en la biblioteca QSYS.
  1. Cambiar el nombre del sistema por mediación del comando CHGNETA SYSNAME(nombre_sistema)
  2. Crear el usuario TCPUSER por la opción 21 del menú PCSTSK. Esta opción no es obligatoria, pero simplifica si tenemos en cada sistema de la red dicho usuario para tareas de mantenimiento.
  3. Modificar el valor de sistema de Creación de Dispositivos Virtuales por mediación del comando WRKSYSVAL QAUTOVRT (opción 2, poner un valor alto según nº de dispositivos que vayan a conectarse; Para una red pequeña, 100 es suficiente)
  4. Comprobar el valor de sistema de Configuración Automática por mediación del comando WRKSYSVAL QAUTOCFG (debe estar a 1)
  5. Modificar el nº de licencias máximas de Client Access.
  1. Utilizar el mandato WRKLICINF y seleccionar el programa producto 5769XW1. Hay que poner el nº de licencias que se hayan contratado.
  2. Sale un mensaje que se debe contestar con "G"
  3. Sale otro mensaje en la cola QSYSOPR (Mayusculas+PetSis+6) al que también hay que contestar con "G"
  1. Apagar y encender el sistema. EL AS/400 está listo para conectarse a la red.

  PC: Paso a Paso

  1. Instalar Client AccessInstalar Client Access.
  2. Instalar PTFs de Client Access.
  3. Definir una nueva conexión para Client AccessDefinir una nueva conexión para Client Access.
  1. Inicio, Programas, Client Access, Conexiones AS/400, Nueva
  2. Sale una ventana. Pulsar Siguiente
  3. Seleccionar TCP/IP (winsock 1.1)
  4. Escribir el nombre del sistema: nombre_sistema. Podemos asignarle un nombre nemotécnico, el cual no tiene porqué coincidir con el que tenga el AS/400.
  5. Tener paciencia y esperar
  6. En la siguiente ventana, poner la dirección IP definida en el AS/400 (192.168.1.165 en el ejemplo anterior)
  7. En la ventana de ID de usuario, especificar el usuario con el que se vaya a conectar.
  8. En la ventana de vista de AS/400 por omisión, seleccionar la opción deseada. Si el trabajo normal es de emulación, escoger Emulación de pantalla 5250. Si se trata de un sistema remoto, se puede escoger Conectar solamente.
  9. No seleccionar el botón de verificar conexión
  10. Pulsar Finalizar
  11. Tomar un café; Ya hemos acabado !

Cedido por Ángel Lampreave

Comentarios de usuarios