COBOL: move up in the sort order