Hola Raul.
Ya está solucionado. Era el CCSID que tenía puesto el que viene por
defecto.
Gracias.
De: "Raul Bascones" <rbasco...@gmail.com>
Para: "forum.help400" <forum.help400@listas.combios.es>
Fecha: 17/09/2019 11:04
Asunto: ** Newsletter ** Re: Recuperar columnas de una tabla
Enviado por: forum.help400-boun...@listas.combios.es
Buenas días,
Tal vez te pueda valer así:
select column_name, cast(column_heading as char(100)) from
qsys2/syscolumns
where table_name=trim(:@table) and Table_schema=trim(:@esquema);
He puesto 100 por poner algo.
Un saludo.
El mar., 17 sept. 2019 a las 9:08, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Hola Foro
Estoy haciendo una función que me recupere los nombres de las columnas de
una tabla y las pase a un array.
pero al recuperarlas, me da el error SQLCOD -332 Character conversion is
not defined.
E
Tanto column_name como column_heading son dos campos del tipo varchar y
los tengo definidos así en el programa:
D Reg_col DS
D@name 128 Varying
D@Heading 60 Varying
El fuente es éste:
Exec SQl declare @cursor cursor for
select column_name, column_heading from qsys2/syscolumns
where table_name=trim(:@table) and Table_schema=trim(:@esquema);
Exec SQl open @cursor;
Dow sqlcod<>100 and sqlcod>=0;
Exec sql fetch next from @cursor into :reg_col;
If Sqlcod<>100 and sqlcod>=0;
@i+=1;
ds_col(@i)=reg_col;
ENDIF;
Exec SQL close @cursor;
Alguien me puede dar una pista?
Gracias!
____________________________________________________
Ú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.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
