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.
