OS400のバージョンを簡単に取得するにはデータ・エリア QGPL/QSS1MRI の最初から6桁に入っている値が
OS400のバージョンとして簡単に取得することができる。
OS400のバージョンは V5R3M0 のように保管されている。

DCL        VAR(&OS400) TYPE(*CHAR) LEN(6)           
RTVDTAARA  DTAARA(QGPL/QSS1MRI (1 6)) RTNVAR(&OS400)