IF m.llSuccess * Initialize any passed parameters list IF (TYPE('m.taParms[1]') = 'C') AND (NOT ISNULL(m.taParms[1])) AND (NOT EMPTY(m.taParms[1])) LOCAL lcString, lcPName, yy FOR yy = 1 TO ALEN(taParms, 1) lcString = 'LOCAL ' + m.taParms[m.yy, 1] &lcString. lcName = m.taParms[m.yy, 1] STORE m.taParms[m.yy, 2] TO &lcName. ENDFOR ENDIF ENDIFwhich would be better as
IF m.llSuccess * Initialize any passed parameters list IF (TYPE('m.taParms[1]') = 'C') AND (NOT ISNULL(m.taParms[1])) AND (NOT EMPTY(m.taParms[1])) LOCAL yy FOR yy = 1 TO ALEN(taParms,1) LOCAL (taParms[m.yy,1]) &&& declare the variable in taParms[yy,1] STORE (taParms[m.yy,2]) TO (taParms[m.yy,1]) &&& store the variable whose name is in taParms[yy,1] with the value in taParms[yy,2] ENDFOR ENDIF endifThat was only 1 of 3 things I ever taught Drew. :) He added the &&& comments.