How to retreive version of OS/400

The name of the API is QSZRTVPR. Here is an example:

Call  QSZRTVPR  (                               +
                  &RcvVar                       +
                  x'00000100'                   +
                  'PRDR0100'                    +
                  '*OPSYS *CUR  0000*CODE     ' +
                  x'00000000'                   +
                )

ChgVar  &CurRls  %sst( &RcvVar 20 6 )

[report a broken link by clicking here]