2005-05-21 如何直接取得 OS400 版本資訊 ? (API QSZRTVPR)

如何直接取得 OS400 版本資訊 ? (API QSZRTVPR)

可以利用系統 API QSZRTVPR(Retrieve Product Information)可以直接取得 OS/400 版本資訊


File  : QCLSRC
Member: RTVOSLVLC
Type  : CLP
Usage : CRTCLPGM RTVOSLVLC
        CALL RTVOSLVLC

PGM                                                                    
                                                                       
 DCL     &RELEASE    *CHAR  6                                          
 DCL     &RCVR       *CHAR  128                                        
 DCL     &RCVRLEN    *CHAR  4      VALUE(X'00000080')                  
 DCL     &FORMAT     *CHAR  8      VALUE('PRDR0100')                   
 DCL     &PRDINFO    *CHAR  27     VALUE('*OPSYS *CUR  0000*CODE     ')
 DCL     &ERRCODE    *CHAR  4      VALUE(X'00000000')                  
                                                                       
 CALL QSYS/QSZRTVPR PARM(&RCVR &RCVRLEN &FORMAT &PRDINFO &ERRCODE)     
 CHGVAR &RELEASE (%SST(&RCVR 20 6))                                    
                                                                       
 SNDPGMMSG MSG('THIS SYSTEM IS AT RELEASE' |> &RELEASE)                
                                                                       
ENDPGM