@Socavi, lo tengo hecho de la siguiente manera.
En el evento
ColumnClick tengo:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 POW-COLUMNINDEX PIC S9(9) COMP-5.
PROCEDURE DIVISION USING POW-COLUMNINDEX.
MOVE POW-COLUMNINDEX TO "SortColumn" OF CMLISTVIEW1