He hecho una aplicación en la cual simulo el AltBackColor de los Grid en el control Table de Power 3.
Creamos una rutina común en PROCEDURE del Form (prefiero llamar el Sheet Form como en Power 9):
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. COLOREA IS COMMON.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 IDX-1 PIC 9(9). *> indice de Rows
01 IDX-2 PIC 9(9). *> indice de Cols
01 MAX PIC 9(9). *> máximo
PROCEDURE DIVISION.
IF POW-ROWS OF TABLE1 < 22 *> los Rows que hay en vacio
MOVE 22 TO POW-ROWS OF TABLE1
MOVE 22 TO MAX
ELSE
MOVE POW-ROWS OF TABLE1 TO MAX
END-IF
MOVE 2 TO IDX-1
PERFORM UNTIL IDX-1 > MAX
MOVE 1 TO IDX-2
PERFORM UNTIL IDX-2 > 15 *> recorre todas las columnas de un row, sustituir 15 por las que tengáis
MOVE X'FFEEFF00' TO POW-BACKCOLOR (IDX-1 IDX-2) OF TABLE1 *> nombre de la tabla que tengáis en el Form
ADD 1 TO IDX-2
END-PERFORM
ADD 2 TO IDX-1
END-PERFORM
EXIT PROGRAM.
END PROGRAM COLOREA.
El color X'FFEEFF00' corresponde al formato RGB de WEB + un nulo al final (X"00"). Podéis sustituirlo por cualquier otro color que queráis.
Cada vez que vaciáis o rellenáis la tabla, hacési CALL "COLOREA" y listo.