Mira, te pongo un ejemplo de algo parecido, podes hacer un write.
DATA: NAME(5) VALUE ’Harry’,
DEST(18) VALUE ’Robert James Smith’,
OFF TYPE I,
LEN TYPE I.
OFF = 7.
LEN = 8.
WRITE (NAME) TO DEST+OFF(LEN).
La variable DEST ahora contiene el valor "Robert Harry ith".
Otro ejemplo:
Si tengo una variable v_archivo = '1234567890' y quiero una 'a' en la posicion 12 de esa variable:
WRITE 'a' TO v_archivo+12(1).
Esto me tendria que hacer : v_archivo = '1234567890 a'
Aclaraciones: el 12 es el offset, o sea a partir de que posicion quiero que me escriba y el 1, es que cuantos digitos queremos insertar, en nuestro caso a tiene 1 solo entonces va un "1".
Úlima edición por daniel1050 fecha: 01/06/11 a las 19:11:10.
|