2006-05-29 如何於 OS/400 V4R5 檢核 TCPIP 是否已啟動 ?

如何於 OS/400 V4R5 檢核 TCPIP 是否已啟動 ?

前一期 "如何檢核 TCPIP 是否已啟動 ?(RTVTCPSTS with API QtocRtvTCPA)"
僅適用於從 V5R1 以後, 那 V4R5 以前就要利用偵測兩個系統作業是否已啟動,
來決定, 下述範例是利用前期
"2003-09-08 如何確認某個 Job 已在系統中執行？(CMD: RTVJOBSTS)" 電子報,
來檢核 TCP/IP 是否已啟動.

當然此法也適用於 V5R1 以後.



File  : QCLSRC
Member: RTVTCPSTSC
Type  : CLP
Usage : CRTCLPGM RTVTCPSTSC
        CALL RTVTCPSTSC


/*********************************************************************/
/*   The pgm to check TCP/IP status ans uesd before V4R5(include)    */
/*                                                                   */
/*   After started TCP/IP, there are two system jobs started         */
/*   as following:                                                   */
/*   QTCPIP, QTCPMONITR                                              */
/*                                                                   */
/*   We just check these two jobs active or not to determine TCP/IP  */
/*   Status                                                          */
/*                                                                   */
/*********************************************************************/
PGM

      DCL &RC1 *CHAR 1
      DCL &RC2 *CHAR 1

      RTVJOBSTS  JOB(QTCPIP) STATUS(&RC1)
      RTVJOBSTS  JOB(QTCPMONITR) STATUS(&RC2)

      IF  (&RC1 *EQ '1' *AND &RC2 *EQ '1') +
          SNDPGMMSG MSG('TCP/IP is active.')
      ELSE                                 +
          SNDPGMMSG MSG('TCP/IP is not active.')

ENDPGM