Módulo 11 — Redes e Comunicação INTERMEDIÁRIO

TCP/IP, FTP, status de linhas e diagnóstico de conectividade no AS/400.

11.1 Status TCP/IP

CFGTCP                    /* Menu de configuração TCP/IP            */
NETSTAT OPTION(*IFC)      /* Interfaces de rede configuradas        */
NETSTAT OPTION(*RTE)      /* Tabela de rotas                        */
NETSTAT OPTION(*CNN)      /* Conexões ativas (sockets)              */
NETSTAT OPTION(*SVR)      /* Serviços TCP/IP ativos                 */

11.2 Diagnóstico de Rede

PING RMTSYS('192.168.1.100')
PING RMTSYS('servidor.empresa.com')
DSPSYSVAL SYSVAL(QSYSNAME)          /* Nome do sistema na rede      */

11.3 Serviços TCP/IP

STRTCP                              /* Iniciar todos os serviços TCP */
ENDTCP                              /* Encerrar todos                */
STRTCPSVR SERVER(*FTP)              /* Iniciar FTP                   */
ENDTCPSVR SERVER(*FTP)              /* Encerrar FTP                  */
STRTCPSVR SERVER(*TELNET)           /* Iniciar Telnet                */
STRTCPSVR SERVER(*NETSVR)           /* Iniciar NetServer (Windows)   */

11.4 FTP — Transferência de Arquivos

FTP RMTSYS('192.168.1.50')          /* Conectar ao servidor FTP      */

Comandos dentro da sessão FTP:

USER joao               /* Login                                    */
CD /pasta               /* Mudar diretório remoto                   */
LCD /QSYS.LIB/MEUALIB.LIB  /* Diretório local                     */
GET arquivo.csv         /* Baixar arquivo                           */
PUT relatorio.txt       /* Enviar arquivo                           */
DIR                     /* Listar diretório remoto                  */
BYE                     /* Desconectar                              */

FTP em modo batch (script)

/* Criar membro com os comandos FTP em QTEMP/FTPCMDS: */
USER joao senha123
CD /dados
GET arquivo.csv
BYE

/* Executar: */
FTP RMTSYS('192.168.1.50') INFILE(QTEMP/FTPCMDS)

11.5 Interfaces de Rede

ADDTCPIFC INTNETADR('192.168.1.100') LIND(ETHLINE) SUBNETMASK('255.255.255.0')
RMVTCPIFC INTNETADR('192.168.1.100')
STRTCPIFC INTNETADR('192.168.1.100')  /* Ativar interface            */
ENDTCPIFC INTNETADR('192.168.1.100')  /* Desativar interface         */

11.6 Linhas de Comunicação

WRKLIND                               /* Listar linhas configuradas  */
WRKCFGSTS CFGTYPE(*LIN)               /* Status das linhas           */
VRYCFG CFGOBJ(ETHLINE) CFGTYPE(*LIN) STATUS(*ON)   /* Variar online  */
VRYCFG CFGOBJ(ETHLINE) CFGTYPE(*LIN) STATUS(*OFF)  /* Variar offline */
DSPLIND LIND(ETHLINE)                 /* Detalhar linha              */

11.7 Hostname e Domínio

CHGTCPDMN HOSTNAME(AS400SRV) DMNNAME(empresa.com)