OS-Version Medifikationsstufe ermitteln

[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