Configurar o TCP/IP no AS/400
AS400: Passo a Passo
Averiguar o nome do recurso assinalado na limha Ethernet usando o comando WRKHDWRSC TYPE(*CMN).
Opt Resource Type Status Text
_ CMB02 2809 Operational MFIO Processor
_ LIN04 2838 Operational LAN Adapter
_ CMN07 2838 Operational Ethernet Port
_ CMB01 9164 Operational Combined function IOP
_ LIN05 2723 Operational LAN Adapter
_ CMN08 2723 Operational Ethernet Port
_ LIN02 2721 Operational Comm Adapter
_ CMN03 2721 Operational V.24 Port
_ LIN03 2721 Operational Comm Adapter
CMN05 2721 Operational Comm Port
CMN06 2721 Operational Comm Port
Criar a linha Ethernet com o comando CRTLINETH (Aqui se vê como está descrita a linha do AS/400 CTADES)
Descrição da linha . . . . . . . : LIND ETHLINE
Opção . . . . . . . . . . . . . . : OPTION *ALL
Categoria da linha . . . . . . . . : *ELAN
Nome do recurso . . . . . . . . : RSRCNAME CMN04
Online no IPL . . . . . . . . . : ONLINE *YES
Espera ativação . . . . . . . . : VRYWAIT *NOWAIT
Controlador de rede . . . . . . . . : NETCTL Se deve deixar em branco
Direção do adaptador local . . . . : ADPTADR *ADPT
Identificador de intercâmbio . . . : EXCHID 05624550
Standard Ethernet . . . . . . . . : ETHSTD *ALL
Velocidade da linha . . . . . . . . : LINESPEED 100M
Velocidade da linha atual . . . . : 100M
Se deve por a velocidade que admita o concentrador ao que está conectado (10 o 100).
Dúplex . . . . . . . . . . . . . . : DUPLEX *HALF
Dúplex atual . . . . . . . . . . : *HALF
Máximo de controladores . . . . . : MAXCTL 40
Nível de início de error . . . . . : THRESHOLD *OFF
Gerar trama de prova . . . . . : GENTSTFRM *YES
Tamanho de trama LEC . . . . . . . :
Texto . . . . . . . . . . . . . . : TEXT Linha para a rede Ethernet
———–Controladores Comutados Ativos————
TAINCOSE
Lista de SSAP . . . . . . . . . . : SSAP
-Pontos de Acesso de Serviço Original-
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
Direção de grupo . . . . . . . . : GRPADR
————–Direções Grupo—————
030000000002
Velocidade de enlace . . . . . . . : LINKSPEED 100M
Se deve por a velocidade que admita o concentrador ao que está conectado (10 o 100).
Custo/tempo conexão . . . . . . : COSTCNN 0
Custo/byte . . . . . . . . . . . . : COSTBYTE 0
Segurança para linha . . . . . . . : SECURITY *NONSECURE
Retardo de propagação . . . . . . : PRPDLY *LAN
Definido por usuário 1 . . . . . . : USRDFN1 128
Definido por usuário 2 . . . . . . : USRDFN2 128
Definido por usuário 3 . . . . . . : USRDFN3 128
Criação automática controlador . . . : AUTOCRTCTL *YES
Por erro *NO e se deve trocar por *YES
Supressão automática controlador . . : AUTODLTCTL 4320
Por omissão 1440 mas em CTA e CTADES há 4320 pelo tanto 4320
Limites de recuperação . . . . . : CMNRCYLMT
Limite de conta . . . . . . . . : 2
Intervalo de tempo . . . . . . : 5
Creir uma interface TCP/IP uma vez criada a linha ethernet.
Utilizar o comando CFGTCP
Utilizar a opção 1, Trabalhar com interfaces
Utilizar a opção 1, Adicionar
Adicionar Interface TCP/IP (ADDTCPIFC)
Pressione Enter.
Direção internet . . . . . . . INTNETADR > ‘192.168.1.165′ à Código Tainco
Descrição da linha . . . . . . LIND ETHLINE a Linha criada mais acima
Máscara de subrede . . . . . . . SUBNETMASK ‘255.255.255.0′
Trocar o domínio TCP/IP uma vez adicionada l a interface TCP/IP.
Utilizar o comando CFGTCP
Utilizar a opção 12, Trocar informação de domínio TCP/IP
Trocar domínio TCP/IP (CHGTCPDMN)
Pressione Enter.
Nome do sistema principal . . ‘CTADES’
Nome do domínio . . . . . . . ‘TAINCO400.COM’
Prior. Busca nom. sis. ppal *REMOTE *REMOTE, *LOCAL, *SAME
Direção internet . . . . . . *NONE
Adicionar uma entrada de tabela de sistemas principais TCP/IP.
Utilizar o comando CFGTCP
Utilizar a opção 10, Trabalha com entradas de tabela de sistemas principais TCP/IP
Utilizar a opção 1, Adicionar
Adicionar Entr Tab Sis Pri TCP/IP (ADDTCPHTE)
Pressione Enter.
Direção internet . . . . . . . > ‘192.168.1.165′
Nomes sistemas principais: ‘CVA’
Nome . . . . . . . . . . . .
+ para mais valores
Texto descritivo . . . . . . .
Modificar o programa de autostart do AS/400 (programa CL, QGPL/QSTRUP), para incluir o start de todos os subsistemas relativos ao TCP/IP.
Recuperar o fonte desde a biblioteca QSYS com o comando RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(QGPL/QCLSTRUP)
Editar o fonte para incluir as linhas marcadas:
QSYS/STRSBS SBSD(QINTER)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QBATCH)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QCMN)
MONMSG MSGID(CPF0000)
QSYS/STRTCP Sentença incluída
MONMSG MSGID(CPF0000) Sentença incluída
QSYS/STRTCPSVR Sentença incluída
MONMSG MSGID(CPF0000) Sentença incluída
QSYS/STRHOSTSVR SERVER(*ALL) Sentença incluída
MONMSG MSGID(CPF0000) Sentença incluída
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
Renomear o objeto QSYS/QSTRUP como OLDQSTRUP
Compilar o fonte QGPL/QCLSRC(QSTRUP), situando o objeto resultante na biblioteca QSYS.
Trocar o nome do sistema por mediação do comando CHGNETA SYSNAME(nome_sistema)
Criar o usuário TCPUSER pela opção 21 do menu PCSTSK. Esta opção não é obrigatória, mas simplifica sei termos em cada sistema da rede do usuário para tarefas de manutenção.
Modificar o valor de sistema de Criação de Dispositivos Virtuais por mediação do comando WRKSYSVAL QAUTOVRT (opção 2, por um valor alto segundo nº de dispositivos que variam a conectar-se; Para uma rede pequena, 100 é suficiente)
Comprovar o valor do sistema de Configuração Automática por mediação do comando WRKSYSVAL QAUTOCFG (deve estar a 1)
Modificar o nº de licenças máximas de Client Access.
Utilizar o comando WRKLICINF y selecionar o programa produto 5769XW1. Terá que por o nº de licenças que se tem contratado.
Envie uma mensagem que se deve responder com "G"
Envie outra mensagem na conta QSYSOPR (Maiusculas+PetSis+6) ao que também terá que responder com "G"
Desligar e religar o sistema. O AS/400 está pronto para conectar-se a rede.
PC: Passo a Passo
Instalar Client Access.
Instalar PTFs de Client Access.
Definir una nova conexão para Client Access.
Inicio, Programas, Client Access, Conexões AS/400, Nova
Enviee uma tela. Tecle Seguinte
Selecionar TCP/IP (winsock 1.1)
Escrever o nome do sistema: nome_sistema. Podemos assinar um nome nemotécnico, o qual não tem porque coincidir com o que tenha o AS/400.
Ter paciência e esperar
Na seguinte tela, por a direção IP definida no AS/400 (192.168.1.165 no exemplo anterior)
Na tela de ID de usuário, especificar o usuário com o que se irá conectar.
Na tela de vista de AS/400 por omissão, selecionar a opção desejada. Se o trabalho normal é de emulação, escolher Emulação de tela 5250. Se trata de um sistema remoto, se pode escolher Conectar somente.
Não selecionar o botão de verificar conexão
Teclar Finalizar
Tomar um café; Já temos acabado !
Cedido por Ángel Lampreave
Fonte: www.recursos-as400.com