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

Robi