O
OctavioOlguin
Guest
Please help... I'm really behind schedule. Have this structure working for 7 years now, but this year, change (increasing requirements) on law, order me to send an XML file to authorized processor for him to sign my xml (That process is for electronic bill, here in Mexico). The problem is the file can grow to 60 or 70KB (perhaps a little more) . This is the process able to send to sign a small file: DEFINE TEMP-TABLE quick_stamp NO-UNDO NAMESPACE-URI " facturacion.finkok.com/stamp" FIELD xml AS RAW FIELD username AS CHARACTER FIELD password AS CHARACTER . DEFINE DATASET quick_stampDset NAMESPACE-URI " facturacion.finkok.com/stamp" XML-NODE-TYPE "HIDDEN" FOR quick_stamp. COPY-LOB FROM FILE NomArchXMLTemp TO OBJECT lcXMLcfdi. PUT-STRING (lcRAWdata, 1, LENGTH (lcXMLcfdi)) = STRING(lcXMLcfdi). CREATE quick_stamp. ASSIGN username = wsUser password = wsPassword xml = lcRAWdata. RUN quick_Stamp IN hApplication (INPUT DATASET quick_stampDset, OUTPUT lcXMLcfdi ) . /* after this, lcXMLcfdi got the original XML, but with a node added (the signing) ... */ My nightmare now, is to send a 40 - 70KB... have tryed this but to no avail. COPY-LOB FROM FILE NomArchXMLTemp TO OBJECT memptrRawData. //PUT-STRING (lcRAWdata, 1, LENGTH (lcXMLcfdi)) = STRING(lcXMLcfdi). CREATE quick_stamp. put-bytes(quick_stamp.xml,1) = memptrRawData. ASSIGN username = wsUser password = wsPassword xml = lcRAWdata. RUN quick_Stamp IN hApplication (INPUT DATASET quick_stampDset, OUTPUT lcXMLcfdi ) . Response I got is "PUTBYTE/LENGTH too long -- increase -s" Added -s 50 to Agent parameters, but now I got "Server Terminated Unexpectedly" I'm really confused.. Thanks in advance for your help.
Continue reading...
Continue reading...