Hola Arturo,
prueba esto:
D ind s 1 dim(99)
/Free
ind = *in;
%subarr(ind:50:3) = '101';
*in = ind;
...
Saludos,
Carlos Bartolomé
El 20/02/2015 a las 13:26, Arturo Reyes escribió:
Buenos días amig@s <mailto:amig@s> foreros,
Una consulta sobre codificación:
¿Como puedo hacer el FREE RPG un MOVEA a varios indicadores a la vez?.
Me explico:
Para activar/desactivar varios indicadores consecutivos en RPGIV lo
hago con MOVEA: ejemplo si quiero activar el indicador 50 y a la vez
desactivar el 51 y activar el 52... lo hago asi: MOVEA '101' *IN(50)
En free lo he intentado con %SubArr pero no consigo la misma función
que con MOVEA solo puedo activar o desactivar todos.
Gracias por vuestra ayuda
Arturo
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
