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.
