DO CASE CASE xx = 1 m.Note_Name1 = ALLTRIM(a_name[ 1 ]) @ ( 8 * ( xx - 1 ) + 7 ) * row_incr, 16 GET dummy1 ; FUNCTION '*NH Note' ; SIZE but_height, 8 ; VALID v_choice(m.Note_Name1) ; DEFAULT 0 CASE xx = 2 m.Note_Name2 = ALLTRIM(a_name[ 2 ]) @ ( 8 * ( xx - 1 ) + 7 ) * row_incr, 16 GET dummy2 ; FUNCTION '*NH Note' ; SIZE but_height, 8 ; VALID v_choice(m.Note_Name2) ; DEFAULT 0 ENDCASEAnyone know why or if there is a way around this?
> >FOR xx = 1 to 2 > > m.Note_Name = ALLTRIM(a_name[ xx ]) > > @ ( 6 * ( xx - 1 ) + 7 ) * row_incr, 16 SAY m.Note_Name > > @ ( 8 * ( xx - 1 ) + 7 ) * row_incr, 16 GET dummy ; > FUNCTION '*NH Note' ; > SIZE but_height, 8 ; > VALID v_choice(m.Note_Name) ; > DEFAULT 0 > >ENDFOR > >READ CYCLE MODAL > >