as400 model

[Revathi Muruges]

how can AS400 model and OS version number could be seen when we are working in Emulator-Mocha software

help me soon
thanks

[jamief]

take a look at system values

You need to look at system values to get the model of the as400.
You can use API's to get system values in RPG or RTVSYSVAL In Cl programs.


To get model

RTVSYSVAL QMODEL

To see it type WRKSYSVAL QMODEL

**VERSION**

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

ChgVar  &CurRls  %sst( &RcvVar 20 6 )




OR

dspdtaara QSS1MRI
//
RTVDTAARA QSS1MRI