INTEGER diagSt_ioUnit(numLists)
& diagSt_ioUnit
diagSt_ioUnit(n) = 0
nUnit = diagSt_ioUnit(listId)
nUnit = diagSt_ioUnit(n)
diagSt_ioUnit(n) = nUnit