OS-Version Medifikationsstufe ermitteln

[Daechsle]

Hallo Welt

In einem RPG-Programm soll die OS-Version ermittelt werden. Das geschieht mit dem API "QUSROBJD". Als Kommentar steht in diesem Programm (aus dem Jahr 2006), dass dieses API die OS-Version z.B. für V5R3M5 als "V05R03M50" zurückliefert, d.h. die Modifikationsstufe steht nicht, wie man erwarten würde, an den letzten beiden Stellen als "05", sondern an der vorletzten Stelle als "5".

In letzter Zeit gibt es vermehrt Meldungen von Kunden, dass die Modifikationsstufe anscheinend nicht mehr richtig ermittelt wird. Kann es sein, dass das je nach OS-Version unterschiedlich zurückgeliefert wird bzw. hat sich in den OS-Versionen 6 oder 7 daran etwas geändert?

Mir steht leider zur Zeit gar kein System mit einer Modifikationsstufe > 0 zur Verfügung, wo ich das testen könnte.

Danke im Voraus für hilfreiche Antworten

[Robi]

Das Api kenn ich nicht
wir machen das so


D PR_RTN S 128A INZ
D PR_RTNLEN S 4A INZ(X'00000080')
D PR_FORMAT S 8A INZ('PRDR0100')
D PR_PROD S 27A INZ('*OPSYS *CUR 0000*CODE ')
D PR_ERRCD S 4A INZ(X'00000000')
C CALL 'QSZRTVPR'
* ==== ============
C PARM PR_RTN
C PARM PR_RTNLEN
C PARM PR_FORMAT
C PARM PR_PROD
C PARM PR_ERRCD

C EVAL RELEASE = %SUBST(PR_RTN:20:6)

C IF RELEASE = *BLANK
C RETURN '*NONE '
C ENDIF


Das liefert V7R1M0 zurück

Robi

[loisl]

Hi,

hätte eine kurze Frage dazu. Was habt ihr gegen den Datenbereich QSS1MRI?

Mfg
loisl

[Robi]

Ich halt mich da an Scott Klement (ungeprüft)

Retrieve OS/400 Version? - System iNetwork | The Ultimate Resource for IBM i Pros - System iNetwork Forums - IBM i - CL (http://www.systeminetwork.com/forums/aft/46195)

Robi