PDA

Ver la Versión Completa : Error con sentencia


MARocca
10/11/11, 14:49:36
Hola gente, se me presenta el siguiente error:

"TRANS" must be a character-type data object (data type C, N, D, T or STRING).

Les defino auszug y TRANS:

data: begin of auszug occurs 10,
zeile(300) type c,
end of auszug.

data: begin of trans occurs 0,
x type x value '00',
c_00 type c value ' ',
soh type x value '01',
c_01 type c value ' ',
stx type x value '02',
c_02 type c value ' ',
etx type x value '03',
c_03 type c value ' ',
eot type x value '04',
c_04 type c value ' ',
enq type x value '05',
c_05 type c value ' ',
ack type x value '06',
c_06 type c value ' ',
bel type x value '07',
c_07 type c value ' ',
bs type x value '08',
c_08 type c value ' ',
ht type x value '09',
c_09 type c value ' ',
lf type x value '0A',
c_0a type c value ' ',
vt type x value '0B',
c_0b type c value ' ',
ff type x value '0C',
c_0c type c value ' ',
cr type x value '0D',
c_0d type c value ' ',
so type x value '0E',
c_0e type c value ' ',
si type x value '0F',
c_0f type c value ' ',
dle type x value '10',
c_10 type c value ' ',
dc1 type x value '11',
c_11 type c value ' ',
dc2 type x value '12',
c_12 type c value ' ',
dc3 type x value '13',
c_13 type c value ' ',
dc4 type x value '14',
c_14 type c value ' ',
nak type x value '15',
c_15 type c value ' ',
syn type x value '16',
c_16 type c value ' ',
etb type x value '17',
c_17 type c value ' ',
can type x value '18',
c_18 type c value ' ',
em type x value '19',
c_19 type c value ' ',
sub type x value '1A',
c_1a type c value ' ',
esc type x value '1B',
c_1b type c value ' ',
fs type x value '1C',
c_1c type c value ' ',
gs type x value '1D',
c_1d type c value ' ',
rs type x value '1E',
c_1e type c value ' ',
us type x value '1F',
c_1f type c value ' ',
end of trans.

y les repito la sentencia que me genera este conflicto:

translate auszug using trans

Cualquier ayuda sobre como remplazar esta sentencia por alguna otra que haga lo misma será más que bien recibida, obviamente no?

Saludos y éxitos para TODOS!!!

DCErick
10/11/11, 16:33:41
Que quieres hacer?

MARocca
10/11/11, 17:23:24
Necesito que al cargar un archivo (UMSATZ) se reemplazen los "códigos especiales" por espacios en blanco como figuran en TRANS. Cualquier otra cosa que ayude avisenme.

Saludos!

DCErick
10/11/11, 19:21:57
Solo se me ocurre que puedas hacer un loop a la tabla interna y reemplazar esos caracteres especiales con la instrucción replace regex

Ejemplo:
REPLACE REGEX `\w+` IN text WITH `$0 $0 $&`.

REGEX MUNDOSAP