PreviousNext
Help > Development > W-Language Functions for AS/400 > Program and Procedure calls > ASRtvResult > Examples > 2) Retrieve system serial number.
2) Retrieve system serial number.


bRet is a boolean

Result is a string

var1 is a string

CmdLine is a string

 

CmdLine = "RTVSYSVAL SYSVAL(QSRLNBR) RTNVAR(&VAR1)"

bRet = ASRtvCall (CmdLine)

 

sResult is a string

sResult = ASRtvResult ("RC")

IF sResult = "0" THEN

Result = ASRtvResult ("VAR1")

Info("AS/400 serial number = " + Result)

END