Hola: yo lo hago así:
Supongamos que tengo los checks en la primer columna y el procedimiento se llama "selecciona":
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ii pic 9(8).
01 cant pic 9(8).
LINKAGE SECTION.
01 p-param pic s9(4) comp-5.
PROCEDURE DIVISION USING p-param.
comienzo.
invoke grdLista "ListCount" returning cant.
perform varying ii from zeros by 1 until ii > cant
if p-param = pow-true
move pow-tristate-checked to "CellCheck"(ii, 1) of grdLista
else
move pow-tristate-unchecked to "CellCheck"(ii, 1) of grdLista
end-if
end-perform.
exit program.
y después llamo a la procedimiento:
Código COBOL:
* para seleccionar
call "selecciona" using pow-true
* para deseleccionar
call "selecciona" using pow-false
Saludos...