Das Api kenn ich nicht
wir machen das so

Code:
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