chk this
PARÁMETROS: test1(10) TIPO c MODIF ID sc1,
test2(10) TIPO c MODIF ID sc2,
test3(10) TIPO c MODIF ID sc1,
test4(10) TIPO c MODIF ID sc2.
EN SELECCIÓN-PANTALLA SALIDA.
BUCLE EN PANTALLA.
SI screen-group1 = 'SC1'.
screen-intensified = '1'.
MODIFICAR PANTALLA.
CONTINUAR.
FIN-SI.
SI screen-group1 = 'SC2'.
screen-intensified = '0'.
MODIFICAR PANTALLA.
FIN-SI.
FIN-BUCLE.