Not sure how useful this is to anyone else but it helped me solves something and scratched an itch
Example usage:
PROGRAM
Include('NamedFieldPairsClass.inc'),ONCE
Pairs NamedFieldPairsClass
F1 CSTRING(255)
F2 CSTRING(255)
MAP
END
CODE
F1 = 'Before'
Pairs.AddNamedItem(F1,'F1')
F1 = 'After'
IF Pairs.Equal()
Stop('No change detected')
ELSE
Stop('Before value was "' & Pairs.GetRight('F1') & '" and now it is "' & Pairs.GetLeft('F1') & '"')
END