Code Fragment 6.8 Sequenced sort INCUMBENTS on the position code, version 1