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.