2003-08-21 如何很簡便的取得 OS/400 OS 的版本資訊？(API CEEGPID)

如何很簡便的取得 OS/400 OS 的版本資訊？(API CEEGPID)

取得 OS/400 OS 的版本資訊有多種方式：
1: DSPDTAARA QSS1MRI
2: MATMATR API (2001/03 電子報 如何於 RPG IV 中直接取得系統資訊 ?)
3: CEEGPID Retrieve OS level API(本期範例)


File  : QRPGLESRC
Member: RTVOSLVLR
Type  : RPGLE
OS version : V3
Usage : CRTBNDRPG RTVOSLVLR
        CALL RTVOSLVLR


     H DFTACTGRP(*NO) ACTGRP(*NEW)

     D VerRelMod       S             10I 0
     D OSPlatform      S             10I 0

     C                   CallB     'CEEGPID'
     C                   Parm                    VerRelMod
     C                   Parm                    OSPlatform
     C*
     C* OSPlatform
     C*    2   OS/2
     C*    3   MVS/VM/370
     C*    4   OS/400
     C                   Select
     C                   When      OSPlatform = 2
     C     'OS/2'        dsply
     C                   When      OSPlatform = 3
     C     'MVS/VM/370'  dsply
     C                   When      OSPlatform = 4
     C     'OS/400'      dsply
     C                   EndSl

     C     VerRelMod     Dsply

     C                   eval      *InLr = *On