Y si utilizas clob como tipo de dato para almacenar? , que es lo que pretendes realizar? En lo funcional
El mar., 5 may. 2020 16:37, Miguel SB <[email protected]> escribió: > Buenas tardes, > Es posible convertir un texto de mas de 1024 a base64 en RPGLE, tengo una > funcion que hace la conversion a base64 (lo obtuve de la pagina > https://www.scottklement.com/base64/), mi duda es como inserto el > siguinte texto en una variable para enviarlo a esa funcion y me haga la > conversion: > El texto que quiero convertir es el siguiente: > > > > > > > > > > > > > > > > > > > > > > > > > *IDE|B503-0013289|2020-05-05|16:20:38|03|PEN||2020-05-05EMI|6|20100049181|||150122|JR > MARIANO||LIMA|LIMA||PE|||0000REC|1|11111111|CLIENTE > VARIOS|||||PE||CAB|1001|515.08||||||||||||||[1000|92.72]||||607.80|||0101|[1000|SEISCIENTOS > SIETE Y 80/100 SOLES]|92.72|DET|00001|111321|PAPEL FOTOC REPORT 75GR A-4 > PQTX500|1.00|NIU|7.63|9.00|[1000|1.37|10|7.63|18.00]|7.63|||||1.37|[false|00|0.50|9.00|18.00]DET|00002|693154|LAPIZ > AMAR C/B HB VINIFAN X 3 > 75020|1.00|NIU|2.29|2.70|[1000|0.41|10|2.29|18.00]|2.29|||||0.41|DET|00003|511159|LAPIZ > AMAR C/B X 3 > FAB|1.00|NIU|2.46|2.90|[1000|0.44|10|2.46|18.00]|2.46|||||0.44|DET|00004|606717|LAPIZ > AMAR C/B 2B CAX12 VINIFAN > 76001|1.00|NIU|4.24|5.00|[1000|0.76|10|4.24|18.00]|4.24|||||0.76|DET|00005|331782|REGLA > DE METAL 1 > MT|1.00|NIU|13.73|16.20|[1000|2.47|10|13.73|18.00]|13.73|||||2.47|DET|00006|697477|REGLA > PARA CIRCULOS ARTESCO > > 10055100|1.00|NIU|1.19|1.40|[1000|0.21|10|1.19|18.00]|1.19|||||0.21|DET|00007|646437|REGLA > 30 CM FLEX COLOR VINIFAN > 74005|1.00|NIU|2.80|3.30|[1000|0.50|10|2.80|18.00]|2.80|||||0.50|DET|00008|490743|PLUMON > ARTESCO CD-MAX 0.7MM > NEGRO|1.00|NIU|2.03|2.40|[1000|0.37|10|2.03|18.00]|2.03|||||0.37|DET|00009|510587|PLUMON > ARTESCO CD-MAX 0.7MM NEGRO X > 1|1.00|NIU|2.46|2.90|[1000|0.44|10|2.46|18.00]|2.46|||||0.44|DET|00010|579601|PLUMON > ARTESCO CD-MAX 0.7MM X 2 > (NGO/AZ)|1.00|NIU|4.92|5.80|[1000|0.88|10|4.92|18.00]|4.92|||||0.88|DET|00011|579612|PLUMON > ARTESCO CD-MAX 0.7MM X 2 > (NGO/RJ)|1.00|NIU|4.92|5.80|[1000|0.88|10|4.92|18.00]|4.92|||||0.88|DET|00012|854689|PINCEL > DE AGUA PENTEL PUNTA > FINA|1.00|NIU|22.88|27.00|[1000|4.12|10|22.88|18.00]|22.88|||||4.12|DET|00013|854700|PINCEL > DE AGUA PENTEL PUNTA > GRUESA|1.00|NIU|26.61|31.40|[1000|4.79|10|26.61|18.00]|26.61|||||4.79|DET|00014|854711|PINCEL > DE AGUA PENTEL PUNTA > MEDIANA|1.00|NIU|22.88|27.00|[1000|4.12|10|22.88|18.00]|22.88|||||4.12|DET|00015|854678|PINCEL > DE AGUA PENTEL X DE 3 > PIEZAS|1.00|NIU|71.19|84.00|[1000|12.81|10|71.19|18.00]|71.19|||||12.81|DET|00016|621665|TINTA > BROTHER LC-79BK MFC-J6710DW BLACK > (2400P|1.00|NIU|136.10|160.60|[1000|24.50|10|136.10|18.00]|136.10|||||24.50|DET|00017|621676|TINTA > BROTHER LC-79C MFC-J6710DW CYAN > (1200P)|1.00|NIU|78.81|93.00|[1000|14.19|10|78.81|18.00]|78.81|||||14.19|DET|00018|348425|CD-R > GRAB 700MB/80MIN (CONX100) > IMATION|1.00|NIU|64.32|75.90|[1000|11.58|10|64.32|18.00]|64.32|||||11.58|DET|00019|353122|CD-R > GRABABLE 700MB/80MIN (CON X 25) > IMATION|1.00|NIU|17.54|20.70|[1000|3.16|10|17.54|18.00]|17.54|||||3.16|DET|00020|855008|CD-R > GRAB 700MB/80MIN (CONX50) > SONY|1.00|NIU|26.10|30.80|[1000|4.70|10|26.10|18.00]|26.10|||||4.70|ADI|@@1|AS400* > > Este texto sale de una factura que tengo en mi sistema, por lo que su > tamaño es variable. He probado con campo declarados de la siguiente forma: > > D wbase64 S 9999999A inz > > Pero igual solo toma los primeros 1024 caracteres. > Por favor ayuda con este tema. > > 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.
