使用RPGLE检测IBM i（OS/400）上的TCP / IP端口是否打开

该示例代码展示了如何使用RPGLE编程语言检查IBM i（OS/400）上的特定TCP / IP端口是否打开。代码首先定义一个套接字控制块（Socket Control Block）来存储套接字描述符和套接字地址，并使用getprotobyname函数获取协议（如TCP或UDP）。然后，它在指定端口上使用SOCKET函数创建套接字，如果成功，则打印“端口已打开”，否则打印“无法打开端口”。

dcl-ds SocketCtlBlock qualified;
  sd integer(10);
  addr inaddr%ptr;
end-ds;

// 获取协议信息
dcl-proc GetProtoByName;
  protocol char(10);
  returns qualified inaddrinfo%ptr;
  dcl-ds protoent qualified;
    proto char(10);
    aliases pointer(10);
    proto_no integer(10);
  end-ds;
  execute sql get current client library special register into :protocol;
  return %addr(getprotobyname(%trim(protocol)));
end-proc;

dcl-proc Main;
  dcl-pi *n;
    port integer(10);
  end-pi;

  dcl-ds sin qualified based(addr);
    family integer(10);
    port integer(10);
    s_addr char(10);
    sin_zero char(8);
  end-ds;

  dcl-ds hints qualified;
    ai_flags integer(10);
    ai_family integer(10);
    ai_socktype integer(10);
    ai_protocol integer(10);
    ai_addrlen integer(10);
    ai_canonname pointer(30);
    ai_addr inaddr%ptr;
  end-ds;

  dcl-ds res qualified based(retVal);
    ai_flags integer(10);
    ai_family integer(10);
    ai_socktype integer(10);
    ai_protocol integer(10);
    ai_addrlen integer(10);
    ai_canonname pointer(30);
    ai_addr inaddr%ptr; 
  end-ds;

  dcl-ds servinfo qualified Options(*omit);
    ai_flags integer(10);
    ai_family integer(10);
    ai_socktype integer(10);
    ai_protocol integer(10);
    ai_addrlen integer(10);
    ai_canonname pointer(30);
    ai_addr inaddr%ptr; 
  end-ds;

  dcl-ds retVal pointer Inz(%null);

  dcl-c FAMILY_INET AF_INET;
  dcl-c sock_stream SOCK_STREAM;

  // 创建套接字
  SocketCtlBlock.sd = socket(FAMILY_INET,sock_stream,0);

  if (SocketCtlBlock.sd >= 0);
    memset(%addr(sin),*zeros,%size(sin));
    sin.port = port;
    sin.family = FAMILY_INET;
    hints.ai_family = FAMILY_INET;
    hints.ai_socktype = sock_stream;
    hints.ai_protocol = IPPROTO_TCP;

    // 获取并设置协议信息
    hints.ai_protocol = getprotobyname('TCP').p_proto;

    // 获取地址信息
    if (getaddrinfo(%null,%addr(sin),%addr(hints),%addr(retVal)) >= 0);

      // 检查端口是否打开
      if (connect(SocketCtlBlock.sd,res.ai_addr,res.ai_addrlen) >= 0);
        dsply('端口已打开');
      else;
        dsply('无法打开端口');
      endif;

    endif;
    closesocket(SocketCtlBlock.sd);
  endif;
end-proc;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com