D* BINARY宣言
D gpid_Version    S              9B 0
D gpid_Platform   S              9B 0
 *
C*
C                   CALLB     'CEEGPID'
C                   PARM                    gpid_Version
C                   PARM                    gpid_Platform
C* 
C* gpid_Platformの内容
C*    2   OS/2
C*    3   MVS/VM/370
C*    4   OS/400
C                   SELECT
C     gpid_Platform WHENEQ    2
C     'OS/2'        DSPLY
C     gpid_Platform WHENEQ    3
C     'MVS/VM/370'  DSPLY
C     gpid_Platform WHENEQ    4
C     'OS/400'      DSPLY
C                   ENDSL
C*
C* R410の場合は410、R420の場合は420のように数字の戻り値です。
C     gpid_Version  DSPLY
C*
C                   SETON                                        LR
C                   RETURN