Hi, I´m new using macro. After a lot of trys I write this code, but it dosen't work.

*////////// PRUEBA_1.
DEFINE !codigos (vnames=!CMDEND)
VECTOR c=v1 TO v5.
VECTOR d=imp_conc1 TO imp_conc5.
!DO !cnt=1 !TO 5
IF (c(!cnt)) = !QUOTE(!vnames).
COMPUTE !CONCAT('c_', !vnames) = d(!cnt).
!DOEND
!ENDDEFINE.
*//////////.

SET MPRINT = ON.
!codigos vnames = 001_001 001_002 001_003.
(I have more than 100 codes)

The idea is repeat this sintax for all codes.

VECTOR c=v1 TO v5.
VECTOR d=imp_conc1 TO imp_conc5.
LOOP cnt=1 TO 5.
DO IF (c(cnt)) = '001-001'.
COMPUTE c_001_001= d(cnt).
END IF.
END LOOP.
EXECUTE.

I hope you can help me.

Angelina