Code

Stat gsStatusCodes as Array[100, 2] of String
Stat gsCodeCount as Int
Stat gsMax as Int = 100

Subroutine PopulateStatusCodeArray()
Var vList as String
Var vLine as String
Var vCode as String

	gsCodeCount = 0
	vList = @XLookupSourceListAll("Data\StatusCodes.db", "/=", "Statuses!StatusCode", "StatusCode;StatusDesc")
	If vList <> "" Then
	{
		While vList <> ""
		{
			gsCodeCount = gsCodeCount + 1
			If gsCodeCount <= gsMax Then
			{
				vLine = Split(vList, @Newline())
				vCode = Split(vLine, ";")
				gsStatusCodes[gsCodeCount, 1] = vCode
				gsStatusCodes[gsCodeCount, 2] = vLine
			}
			Else
			{
				Writeln("Error! More than " + gsMax + " status codes!")
			}
		}
	}

End Subroutine

Function FindStatusDesc(vCode as Int) as String
Var vDesc as String
Var vLoop as Int
Var vFound as Int

	vLoop = 1
	vFound = 0
	While((vLoop <= gsMax) and (vFound = 0))
	{

		If gsStatusCodes[vLoop, 1] = vCode Then
		{
			vDesc = gsStatusCodes[vLoop, 2]
			vFound = 1
		}
		vLoop = vLoop + 1
	}
	If vFound = 0 Then
	{
		Writeln("Unable to locate a Status code of " + vCode)
	}

	Return(vDesc)
End Function

PopulateStatusCodeArray() 

Code

Writeln(FindStatusDesc(9001))