Question How to redeem field recorded?

[Anderson Apdo de Souza]

I have an record in database oracle field that access by the Progress 4GL which was recorded by using a C# GZIpStream component.

How to redeem this field, using only resources from Progress 4GL?

 

[Cringer]

What Progress version and platform are you on?

 

[Anderson Apdo de Souza]

10.2B.

Windows.

 

[TomBascom]

The same way that it manged to be written using only resources from Progress 4gl?

Sorry to be a smart-ass but it is not reasonable to impose such a restriction. And it should be perfectly feasible to use the same C# component from within the 4gl.

 

[Anderson Apdo de Souza]

Actually I need to convert a blb file because inside it is my XML .

 

[Anderson Apdo de Souza]

CxwAAB+LCAAAAAAABADtvQdgHEmWJSYvbcp7f0r1StfgdKEIgGATJNiQQBDswYjN5pLsHWlHIymrKoHKZVZlXWYWQMztnbz33nvvvffee++997o7nU4n99//P1xmZAFs9s5K2smeIYCqyB8/fnwfPyIeT9v8ZV1N03eLctl89tG8bVeP7t69uroar6q6zcrzoplm5bhYno8n9V1q/VF6mddNVn320e54595HR49P3uTv8fbRY/rjpM3Ts9lnH9Gr9+7v7uzu7H+6f+/+3sN7Ozs7u/d27j+gH/Trzt6D/Xuf7tL/7t9/cG9vr9d1McuPHk+/enZ07/7ju/j5eHry5si+QJ/Rn49Pnn358ug+wX98l399vMzaL1dHL1+dvn5zfHL8Zfr0NH19+uonz0741zevjl+8fvnlqzen6XGKJk9On5+enH1x+uLNl+nZi6dfvX7z6vFdgfH4vKpfZhdHBFp/e7yoZkf3Hzy+i5+Pm7wu8qPdx3fll8dLwocHRQCA2mx+uiiO9mi02/S/nf03uw8e7T98dH//8V356nG7OlusAEF+ob/p40Y+4N8eT5/+JPrHD/r2eDGRL/EL/U0kPtrB3/jl8YqmGmDpE/PrY6IpOODoi2zZ1tly/CJvf3+i75jamK8eT79YL9H43v393f0dwt588Pid/gJqnj0lGp2mL199xb88vmu+fPzVM/x4/fLxXfkNVMrKo51dphP9Rpi+zutLQZV/4z7Plp0+8QH3iV8G++RWXz3DD+mTP8D7z4oFAQSHHQhAfMAA8cuT41dfnb46EyD8zVfP8EOA8Ad13hZ1BhLrb4/bapHt3JOfjD9+yg98fFeYtFqsaJTvTrI6mx7PjgjXV6efH1NP5hP9jsZ+dPLli588fXFy9uWL4+emBT5//A60+/wrfo/JeF6u31X0+Zd1cXG0A3LKr8SO5ptJc/TF6auT46fj9OTL56dvjp8ep9up9p+++PLVF8fP7z57dUpEPPnyiyfjZ8dPzr5MT86On6d37+7+5JfP05PtZ/TVi2cE4PjVG5KJL9LjF6e/95d30RuBJ0LK6PJF0ZK4vXj5naNQoEnw8OHjs9Oj+5/u7dBsfvpwd5c+pg8ev3tRLfKj4xdPv3x19uLbx07+jumT4/T5m6cYLjd6/O4ZManXlhD6/Pg1fc2fP86Xs7w+ZSzePb+oj45/Mv3Ol8c/8dXZFxnn4IW9BcxlnIVQXyZQaJ37oMl+ffH7/jHk1fHr8/AAfLhebUkXXJwjwDtEV2hcuiDx3e9Ud+VKajzhZmHg72H90FzzMOnnXm4f//ggObhoT8PX70+e3GcHj8nXXf8/PTzV6Qa79LfJ18RqVPSiM9PvvzyeWc+Iu8c2zkxWO/tPdx7+GDXYM1Iv8oZCCbi1VfHNFevT9Pnp2dvTkdpuh9M0X53hr7zNH3y5YvPz778yeMXZ9/M9Nzfebj7AdNz1xsS2bgXzyD28+wyP4KN23kYTsX9+zvUIT/7Bzu79/c+fXB/f59tFr9DekNhvCes3d3dB5/u7z98CFb7QFh7u3v094OD/U/vfzCse7sP9vZ2Hzx8EIN1lzl2ljdGf+zs3yey3PsUgPCC5du9nU8Jq4NP92mYPt9++2X6jLjwBSsuteavU5miUIcIQ+7u7z58cOCJEc/eU8ZAdMfz4y9OSVeS9KcviKm/9Nnxwf0uPx4/f/nt4588e/781PgIZ8d9tvQMj7JlYHKEFXc+pcEzZh/GijKYu0LVy5e1/Hwjv9C8jNGF+fvx5at86j7FH49PKngcQjaxED95/PzLV5aSl9xA35DGd+VH/82Xp6+/7Ly4//DT8cHGV4+fnn5x+p7dvaRJ+5w1tv/WvfHeDT3x0E6/eM/eTo7fvOcbT09fvzw++XYXwZteO3vzvnT//NXZ6/d8hXBji/qer4lf8Z4vOQ/ofd768qs3r768zbDuGoYv8NfZyRevCdDrNzs7/OOIpYt+Pr58cuK4nn5/vOK2u3v8ifzx+JJ/fKqt5LO7Cu2u/sn9ILZ5k7+o6oX8ntUX5AtefpHXU7Iw+/t7wob8N5xxwnFGHHsCH8b8ST7buj3J2qPPT1+x/6d/AuBPINxZFjP2nOU38py/YCCvvyR199WbL+FB45PHv0i63+fRAXP9gNXuT8gP/aTJL+A1NOR6XxztQx3Lr4/f4d/jEwRIn3/1SjwycggIK/56ebyqyqMTslykqdOnJ/fv39uDDZXPOwN3I78r/VUz0oyviA9OjsRK0HNwf/eA9L18+nhGFLl08RFZdPnkcVm17GzzT8KXQd31yc9/tMQjr4sLCtbWdSxKvbo3ruqLu7BXd3ce3qUGs6a4+PGP5K18drY8J7gn2bJaFhTIFj/I2qJafpG382qWHpcXVV2080UM5JtXgLp799XpyTaB3Z7u7i+38cnOvd37H9310LoNtC6CFAVvN/NsF4Be5ed5nS+nefrVq7PPPvrx9w2qjx6/obCvofh10Xi/vx9C+fIyL6tVPttuzLiA2y2h3Uisuz6KT4sLkuyvQzZDMoHwk1m5puD43uKr37t98OXFsnpSXn/19Ivll99+eX7+9JPq+LPHd/2WxJWG1PS7zyB2LqXh7/17313+5OLgO1n25qfPZz+1an7qq+erfeLHh/Mf/OTD7+4uftHssrxb/j5v5l/U955cHu+8unj23YPTy2fFt3/i4jtvq/LJvVX9/OrVt19cziavF8/K+d6zT+//YPXiwZOrs0nz9PnFV59PX//E7/X0+U9O9i+a2YOn1Qtyi776tLz7fHH23R9cPNu7+H32F8vvvs5/0cH9V3s/eVatfp9Pnj55/pO/10/s33v9nby4++Dey/n093r1+3wmA/GQf/x75dcyqt+bHOKnGeQLv53kdVuckxSQTH1xdvb586cnJ09evb44vjp7cnxxdvbd2fLly3vN6YMfnF49/Ynf5zu/V/VTZ/PL6Yvjnzh99uQnjq/ePD19/sXx28+Pd786fTL/4uQnyrN3pz84fvXk4sVPPjmu3py8LZ9+dbJ7Ml08+0H23at3v9fT44V898Wbb+++ePbV22dvfuL1k6c/9Xt/Zyf77k+tfp+9Z28n974zPzt9tfqpvXLn9/nu1cXsp0+vvj2fvvjizfEVhXp7X7w523nxg7MffJc/Ow0/++mTJ5++J07Pnh6/lu+aNyfX82dvXj85Iby+/Imdg9UXry6unl38Pk9/8id+4vnp1cHVF0+P6f+n/P8v3xzvfPH04ob3f+Lq1L7fVK++2rn4ifI7T968ffHy93pz+tUXT84Yz5N3Xzz/vU5/8sXZ6Xde/8RX95++uX77IXAXNGqGe/zuixnBO32z+53vvHk7f3L27BXgv/nq9OHrnzx9hs+fnJ2+++rV6enVxU8ddOf4Cc3x04vfZ+f4i7PPv3Ncff7k+OzpYvLk95p898lPfv6d/NnZT7y4fr6z/OQn3l29+am8err/ZLJz0E6Of/D8J37ve598sv/J/uXlJ6+/+kX125e7n997/sUX+/nJu3ef/KLTbxdFsXg5L69env4+P/jpn/rug28/f1lMP917sf69Jp9/+lMnP/n2B9nvnS8p+vyJz5s3n+SLL6+/O3v+e/+i2ZNfdPDpq+XFwSfPV3s/eX//1U989eDzi4OfuvpFV69+r92Ln/r84tvrnZ3j+t13Hl4eX3zx5Pj485++uHh+j3j75OAHx1+Cnt/+iYMnx+cHp8SDJ0/y46tv/wTR8dVO+eTJ73P17Pj3Ofu9rn4fGvdX3yYZ+PzkpPmcUg3Pnlx9cfrFkwPQdHZ29RO/zxdPsuNnz2cXv+jZ5f3mF2Xr4y93dz59+JO/1/VP/VT1U5c/OSV6fcp9EWEvJmdXF9knTz5/O3vy6u0TmqNXL796W1JY/OzpT/zkd779Ez/5xfondh6+eP72O6+rpzufP/nuky+Of+KL0+rpT7z54qfPiNd+4t2Xb36fvS+efnX14gdvd794+vvsy+fHkf+f7n3x01/tvXjzEz948ezFm6+evfiJ6sm+gXlSPfnqzenud17+xNufpPk/uHjzVflTP/HVd5589ytir9PFxec/8fs8+31Or54cX315cfrkiy9fPP19dr74wVfXX775AvDfffGDk4tnV6ZNfvF0/sUXPRyeTYVOx69oFPtXb45/n8+5/cXp51+cEvV8Gl+cfvfF5/Od2bePP31+/fDe7N50/fvs/eT17PNykX33xfynPn/4NvvubDX7/FnzfPHicvL6fjEtHl7/1O/95HJK+oF0xWpy/fDt9PMvri7Oj7nfb1+9Jh1w8uT+myffqU7zi1e/z089zb79amf6tLp8Tj3Mru//dKBv9qyuob4fts8X37l+fu875fTzh8SEry6ni/Ly+d67n6Z+f0Dvzad7z376p779+7wjfK4nT588rU4/v3i5//s8tH1w204f9774OrDfVM8+v3iz/1MvHP6ddxflT08//8717/N7v1hNTu4vJ/d+n/Xvszy7nHxOgrn7ooSO+31e9+jV/D73zujvn8R7899n79XeF6/v//R0cUU6YOrxPMn/2ee/F/Hyt794euU+/8Hxk/lPP6lm33519WVxcDnZe/GD6cltaKr4fPfFW+j0V1eOD744/r0+/3Lvvfngp3+f774qs+8++0EH9nr6dFZ8cbzz+cnrX/T567PJvaesy746Pt4nu/YTJ4v7+6uf/vbrn5pefvv5xdXnz5u7ef1w2f70T39x9YuO79ere/Xby+PfZ7X6dHJ/8e2Xn75aP7z7+uzs7tUXDz6vL+vpvH758Lw4eHH13dUPPr37Uz+xmN/N3q2uj3+vy4uny72zb78o94/vXjav3rx71n7793ryxar4fSa/qPlFi+arnb2f2n14/Z0X68+vz4pPX62Klw+Ozx58efbV7/Xp5/e/2s3Lhz9YTneb5btPXn77q+dPz6ZvL36vt/dftudnL+unv9fFu594ePITX91bvWh/75PvPHl2sci++Or88+/8op3Xv8/sB2dv89ez3ye/t/fk8pOfmOxc5PMfEHdc5D998NP3z37v+nR2v/wq+2R/vfPJ733/9FnxU+XB4tOnO28vs/rh3Xp5vH76xV711d3f6+SkXv5k/UXTvPnO3uryF/304jv3Xn3Z7j6tJrtF/eqi/Zxy6F8d/97X9+vJ7/X63unZT3yVF0/2fp/y5PHdrkchn4i3cdd6IM43QbylCxgtFpy6C0HLc1qoaPsLINTueFUWU0qh/P4vn//+9OrvT07ljJc25AvKXwHy+7jMyF8xNrM55UkmbdVZwbm/82jnHlZw9NvHS0Zul3NkOzv3KEW29ynFMvLx41lx8ZNYDNnoiGqjx9PXLcWCuwim5FdKI1VtcUkZqHVLnvAPslmVVum6qVL65eTNdo7UkrTgmEj6vKuEpN90BfDo/wFEEac2CxwAAA==

 

[Anderson Apdo de Souza]

I need to convert it to xml .

 

[Cecil]

Could this be of any use: http://sourceforge.net/projects/zlib4gl/

If the field is seams to be encoded in Base64 this needs to be decoded to memptr first. Then try and run un-compress the memptr hopefully into the XML document.

 

[Anderson Apdo de Souza]

Hello my friend.

Do you can help me?

How do I use it? I could not use it .

 

[Anderson Apdo de Souza]

Cecil, post code please.

 

[Cecil]

Here it is. Sorry for the delay, due to time zone differences I was sleeping.
Here is the working code. It does use the code from http://sourceforge.net/projects/zlib4gl/ so that's going to be a prerequisit. It's quick and dirty but not ideal as it has to create temporary files in on disk to uncompress GZip files so it's not going to be fast.

Let us know (this thread) on how you got on. It's always nice to hear of customer satisfaction stories.

USING net.progress.encode.gzip.Zlib.

PROCEDURE Unpackify:

    DEFINE INPUT-OUTPUT PARAMETER ENCODEDSOURCE AS LONGCHAR CASE-SENSITIVE NO-UNDO.
 
    DEFINE VARIABLE UNECODEDSOURCE              AS Memptr     NO-UNDO.
    DEFINE VARIABLE TempBlobFile                AS CHARACTER   NO-UNDO.
 
    Set-SIZE(UNECODEDSOURCE) = 0.

    TempBlobFile = SUBSTITUTE('&1.unpackify_&3.blob',
                              SESSION:TEMP-DIR,
                              THIS-PROCEDURE:UNIQUE-ID).

    /** First Stage Decode the data to memptr**/
    UNECODEDSOURCE = BASE64-DECODE(ENCODEDSOURCE).
     
    /** THE MAGIC! I don't know why but we have to drop the first four bytes starting at the 5th byte.**/
    /** Compress GZIP files start with 0x1F 0x8B 0x08**/
    COPY-LOB FROM UNECODEDSOURCE STARTING AT 5 TO FILE TempBlobFile.
 
    /** Memory Clean up.**/
    Set-SIZE(UNECODEDSOURCE) = 0.

    Zlib:getInstance():uncompressFile(TempBlobFile, TempBlobFile + '.xml', true).
     
    IF SEARCH(TempBlobFile + '.xml') NE ? THEN
    DO:
        COPY-LOB FROM FILE TempBlobFile + '.xml' TO OBJECT ENCODEDSOURCE.
        OS-DELETE VALUE(TempBlobFile + '.xml').
    END.
     
    /** Delete the temporary Blob file**/
    OS-DELETE VALUE(TempBlobFile).
 
    RETURN.
END PROCEDURE.


/** Main Block**/

DEFINE VARIABLE OracleDBblbField AS LONGCHAR CASE-SENSITIVE NO-UNDO.

OracleDBblbField = 'CxwAAB+LCAAAAAAABADtvQdgHEmWJSYvbcp7f0r1StfgdKEIgGATJNiQQBDswYjN5pLsHWlHIymrKoHKZVZlXWYWQMztnbz33nvvvffee++997o7nU4n99//P1xmZAFs9s5K2smeIYCqyB8/fnwfPyIeT9v8ZV1N03eLctl89tG8bVeP7t69uroar6q6zcrzoplm5bhYno8n9V1q/VF6mddNVn320e54595HR49P3uTv8fbRY/rjpM3Ts9lnH9Gr9+7v7uzu7H+6f+/+3sN7Ozs7u/d27j+gH/Trzt6D/Xuf7tL/7t9/cG9vr9d1McuPHk+/enZ07/7ju/j5eHry5si+QJ/Rn49Pnn358ug+wX98l399vMzaL1dHL1+dvn5zfHL8Zfr0NH19+uonz0741zevjl+8fvnlqzen6XGKJk9On5+enH1x+uLNl+nZi6dfvX7z6vFdgfH4vKpfZhdHBFp/e7yoZkf3Hzy+i5+Pm7wu8qPdx3fll8dLwocHRQCA2mx+uiiO9mi02/S/nf03uw8e7T98dH//8V356nG7OlusAEF+ob/p40Y+4N8eT5/+JPrHD/r2eDGRL/EL/U0kPtrB3/jl8YqmGmDpE/PrY6IpOODoi2zZ1tly/CJvf3+i75jamK8eT79YL9H43v393f0dwt588Pid/gJqnj0lGp2mL199xb88vmu+fPzVM/x4/fLxXfkNVMrKo51dphP9Rpi+zutLQZV/4z7Plp0+8QH3iV8G++RWXz3DD+mTP8D7z4oFAQSHHQhAfMAA8cuT41dfnb46EyD8zVfP8EOA8Ad13hZ1BhLrb4/bapHt3JOfjD9+yg98fFeYtFqsaJTvTrI6mx7PjgjXV6efH1NP5hP9jsZ+dPLli588fXFy9uWL4+emBT5//A60+/wrfo/JeF6u31X0+Zd1cXG0A3LKr8SO5ptJc/TF6auT46fj9OTL56dvjp8ep9up9p+++PLVF8fP7z57dUpEPPnyiyfjZ8dPzr5MT86On6d37+7+5JfP05PtZ/TVi2cE4PjVG5KJL9LjF6e/95d30RuBJ0LK6PJF0ZK4vXj5naNQoEnw8OHjs9Oj+5/u7dBsfvpwd5c+pg8ev3tRLfKj4xdPv3x19uLbx07+jumT4/T5m6cYLjd6/O4ZManXlhD6/Pg1fc2fP86Xs7w+ZSzePb+oj45/Mv3Ol8c/8dXZFxgAifKLN2cvvhyluwfUN7d4vKyrI/4Tvzx+9yQravqFiPOTX6avvnz65U+eHb86+5Ja6zfMRSFPCv8McyOR5PTl0e5DosSnn4IW9BcxlnIVQXyZQaJ37oMl+ffH7/jHk1fHr8/AAfLhebUkXXJwjwDtEV2hcuiDx3e9Ud+VKajzhZmHg72H90FzzMOnnXm4f//ggObhoT8PX70+e3GcHj8nXXf8/PTzV6Qa79LfJ18RqVPSiM9PvvzyeWc+Iu8c2zkxWO/tPdx7+GDXYM1Iv8oZCCbi1VfHNFevT9Pnp2dvTkdpuh9M0X53hr7zNH3y5YvPz778yeMXZ9/M9Nzfebj7AdNz1xsS2bgXzyD28+wyP4KN23kYTsX9+zvUIT/7Bzu79/c+fXB/f59tFr9DekNhvCes3d3dB5/u7z98CFb7QFh7u3v094OD/U/vfzCse7sP9vZ2Hzx8EIN1lzl2ljdGf+zs3yey3PsUgPCC5du9nU8Jq4NP92mYPt9++2X6jLjwBSsuteavU5miUIcIQ+7u7z58cOCJEc/eU8ZAdMfz4y9OSVeS9KcviKm/9Nnxwf0uPx4/f/nt4588e/781PgIZ8d9tvQMj7JlYHKEFXc+pcEzZh/GijKYu0LVy5e1/Hwjv9C8jNGF+fvx5at86j7FH49PKngcQjaxED95/PzLV5aSl9xA35DGd+VH/82Xp6+/7Ly4//DT8cHGV4+fnn5x+p7dvaRJ+5w1tv/WvfHeDT3x0E6/eM/eTo7fvOcbT09fvzw++XYXwZteO3vzvnT//NXZ6/d8hXBji/qer4lf8Z4vOQ/ofd768qs3r768zbDuGoYv8NfZyRevCdDrNzs7/OOIpYt+Pr58cuK4nn5/vOK2u3v8ifzx+JJ/fKqt5LO7Cu2u/sn9ILZ5k7+o6oX8ntUX5AtefpHXU7Iw+/t7wob8N5xxwnFGHHsCH8b8ST7buj3J2qPPT1+x/6d/AuBPINxZFjP2nOU38py/YCCvvyR199WbL+FB45PHv0i63+fRAXP9gNXuT8gP/aTJL+A1NOR6XxztQx3Lr4/f4d/jEwRIn3/1SjwycggIK/56ebyqyqMTslykqdOnJ/fv39uDDZXPOwN3I78r/VUz0oyviA9OjsRK0HNwf/eA9L18+nhGFLl08RFZdPnkcVm17GzzT8KXQd31yc9/tMQjr4sLCtbWdSxKvbo3ruqLu7BXd3ce3qUGs6a4+PGP5K18drY8J7gn2bJaFhTIFj/I2qJafpG382qWHpcXVV2080UM5JtXgLp799XpyTaB3Z7u7i+38cnOvd37H9310LoNtC6CFAVvN/NsF4Be5ed5nS+nefrVq7PPPvrx9w2qjx6/obCvofh10Xi/vx9C+fIyL6tVPttuzLiA2y2h3Uisuz6KT4sLkuyvQzZDMoHwk1m5puD43uKr37t98OXFsnpSXn/19Ivll99+eX7+9JPq+LPHd/2WxJWG1PS7zyB2LqXh7/17313+5OLgO1n25qfPZz+1an7qq+erfeLHh/Mf/OTD7+4uftHssrxb/j5v5l/U955cHu+8unj23YPTy2fFt3/i4jtvq/LJvVX9/OrVt19cziavF8/K+d6zT+//YPXiwZOrs0nz9PnFV59PX//E7/X0+U9O9i+a2YOn1Qtyi776tLz7fHH23R9cPNu7+H32F8vvvs5/0cH9V3s/eVatfp9Pnj55/pO/10/s33v9nby4++Dey/n093r1+3wmA/GQf/x75dcyqt+bHOKnGeQLv53kdVuckxSQTH1xdvb586cnJ09evb44vjp7cnxxdvbd2fLly3vN6YMfnF49/Ynf5zu/V/VTZ/PL6Yvjnzh99uQnjq/ePD19/sXx28+Pd786fTL/4uQnyrN3pz84fvXk4sVPPjmu3py8LZ9+dbJ7Ml08+0H23at3v9fT44V898Wbb+++ePbV22dvfuL1k6c/9Xt/Zyf77k+tfp+9Z28n974zPzt9tfqpvXLn9/nu1cXsp0+vvj2fvvjizfEVhXp7X7w523nxg7MffJc/Ow0/++mTJ5++J07Pnh6/lu+aNyfX82dvXj85Iby+/Imdg9UXry6unl38Pk9/8id+4vnp1cHVF0+P6f+n/P8v3xzvfPH04ob3f+Lq1L7fVK++2rn4ifI7T968ffHy93pz+tUXT84Yz5N3Xzz/vU5/8sXZ6Xde/8RX95++uX77IXAXNGqGe/zuixnBO32z+53vvHk7f3L27BXgv/nq9OHrnzx9hs+fnJ2+++rV6enVxU8ddOf4Cc3x04vfZ+f4i7PPv3Ncff7k+OzpYvLk95p898lPfv6d/NnZT7y4fr6z/OQn3l29+am8err/ZLJz0E6Of/D8J37ve598sv/J/uXlJ6+/+kX125e7n997/sUX+/nJu3ef/KLTbxdFsXg5L69env4+P/jpn/rug28/f1lMP917sf69Jp9/+lMnP/n2B9nvnS8p+vyJz5s3n+SLL6+/O3v+e/+i2ZNfdPDpq+XFwSfPV3s/eX//1U989eDzi4OfuvpFV69+r92Ln/r84tvrnZ3j+t13Hl4eX3zx5Pj485++uHh+j3j75OAHx1+Cnt/+iYMnx+cHp8SDJ0/y46tv/wTR8dVO+eTJ73P17Pj3Ofu9rn4fGvdX3yYZ+PzkpPmcUg3Pnlx9cfrFkwPQdHZ29RO/zxdPsuNnz2cXv+jZ5f3mF2Xr4y93dz59+JO/1/VP/VT1U5c/OSV6fcp9EWEvJmdXF9knTz5/O3vy6u0TmqNXL796W1JY/OzpT/zkd779Ez/5xfondh6+eP72O6+rpzufP/nuky+Of+KL0+rpT7z54qfPiNd+4t2Xb36fvS+efnX14gdvd794+vvsy+fHkf+f7n3x01/tvXjzEz948ezFm6+evfiJ6sm+gXlSPfnqzenud17+xNufpPk/uHjzVflTP/HVd5589ytir9PFxec/8fs8+31Or54cX315cfrkiy9fPP19dr74wVfXX775AvDfffGDk4tnV6ZNfvF0/sUXPRyeTYVOx69oFPtXb45/n8+5/cXp51+cEvV8Gl+cfvfF5/Od2bePP31+/fDe7N50/fvs/eT17PNykX33xfynPn/4NvvubDX7/FnzfPHicvL6fjEtHl7/1O/95HJK+oF0xWpy/fDt9PMvri7Oj7nfb1+9Jh1w8uT+myffqU7zi1e/z089zb79amf6tLp8Tj3Mru//dKBv9qyuob4fts8X37l+fu875fTzh8SEry6ni/Ly+d67n6Z+f0Dvzad7z376p779+7wjfK4nT588rU4/v3i5//s8tH1w204f9774OrDfVM8+v3iz/1MvHP6ddxflT08//8717/N7v1hNTu4vJ/d+n/Xvszy7nHxOgrn7ooSO+31e9+jV/D73zujvn8R7899n79XeF6/v//R0cUU6YOrxPMn/2ee/F/Hyt794euU+/8Hxk/lPP6lm33519WVxcDnZe/GD6cltaKr4fPfFW+j0V1eOD744/r0+/3Lvvfngp3+f774qs+8++0EH9nr6dFZ8cbzz+cnrX/T567PJvaesy746Pt4nu/YTJ4v7+6uf/vbrn5pefvv5xdXnz5u7ef1w2f70T39x9YuO79ere/Xby+PfZ7X6dHJ/8e2Xn75aP7z7+uzs7tUXDz6vL+vpvH758Lw4eHH13dUPPr37Uz+xmN/N3q2uj3+vy4uny72zb78o94/vXjav3rx71n7793ryxar4fSa/qPlFi+arnb2f2n14/Z0X68+vz4pPX62Klw+Ozx58efbV7/Xp5/e/2s3Lhz9YTneb5btPXn77q+dPz6ZvL36vt/dftudnL+unv9fFu594ePITX91bvWh/75PvPHl2sci++Or88+/8op3Xv8/sB2dv89ez3ye/t/fk8pOfmOxc5PMfEHdc5D998NP3z37v+nR2v/wq+2R/vfPJ733/9FnxU+XB4tOnO28vs/rh3Xp5vH76xV711d3f6+SkXv5k/UXTvPnO3uryF/304jv3Xn3Z7j6tJrtF/eqi/Zxy6F8d/97X9+vJ7/X63unZT3yVF0/2fp/y5PHdrkchn4i3cdd6IM43QbylCxgtFpy6C0HLc1qoaPsLINTueFUWU0qh/P4vn//+9OrvT07ljJc25AvKXwHy+7jMyF8xNrM55UkmbdVZwbm/82jnHlZw9NvHS0Zul3NkOzv3KEW29ynFMvLx41lx8ZNYDNnoiGqjx9PXLcWCuwim5FdKI1VtcUkZqHVLnvAPslmVVum6qVL65eTNdo7UkrTgmEj6vKuEpN90BfDo/wFEEac2CxwAAA=='.

RUN Unpackify (INPUT-OUTPUT OracleDBblbField).

MESSAGE STRING(OracleDBblbField)
    View-AS ALERT-BOX INFO.

It comes without any warranty. Use at your own risk. Blar blar blar

 

[Anderson Apdo de Souza]

No problem.

Cecil, return

"<cteProc xmlns=""http://ww"

 

[Anderson Apdo de Souza]

He don't return string complete.... :S

 

[Cecil]

Is it only show the first 1024 bytes? If so that's due to the string function.

 

[Cecil]

Try
MeSSAGE STRING(OracleDBblbField) length(OracleDBblbField)
View-AS ALERT-BOX INFO.

What value is being returned for its lenght?

 

[Anderson Apdo de Souza]

lenght = 25.

 

[Cecil]

Just so I've got my facts correct. Is this using the same base64 string you originally supplied or is it a new Base64 string from the Oracle database?

 

[Anderson Apdo de Souza]

the same base64 string you originally supplied

 

[Cecil]

Ok that just weird. There must be a simple answer as to why you are getting a different answer to me.
I don't have 10.2b to test on as I'm working on 11.4.
Somebody else will need test this code on different machine.

 

[Anderson Apdo de Souza]

Ok, thank you my friend.