Implement qsys2.Http_get for blob file

Hi

I think allowing BLOB's in the new http-functions from qsys2 is really a requirement.

When you are calling different (related) API's in 1 process and 1 of them returns a BLOB, than you need to use the old systools function for that 1 API call to make the process work. (or go back using systools for all the API calls.

Hi Pablo,

You are correct. Further research indicates this was just a short-coming in the new HTTP_GET UDTF. I believe IBM is planning to enhance it soon, but IDK for certain. :)

Hi BOB,

excuse me but I don't understand how can it be possibile with your technics.

Here's a sample with the different between http_get and HTTPGETBLOB.
the result of HTTP_get is:

// HTTPTransportException: Problem occurred when receiving the stream.
// No data available for message.

**FREE
// Elabora richiesta di chiamate http fatte da un programma esterno
Ctl-Opt DftActGrp(*no)
ActGrp(*StgMdl)
StgMdl(*SNGLVL)
Thread(*Concurrent)
Option(*NoUnRef :*SrcStmt :*NoDebugIo)
DatFmt(*Iso) TimFmt(*Iso)
Debug(*Constants)
AlwNull(*UsrCtl)
DftName(TESTCLOB)
Text('Elabora richiesta di chiamate http in batch');
// ___________________________________________________________________

Dcl-Pr TESTCLOB ExtPgm('TESTCLOB');
End-Pr TESTCLOB;

Dcl-Pi TESTCLOB;
End-Pi TESTCLOB;

// ____________________________________________________________________________
Dcl-S OutputClob SqlType(Clob_File) ccsid(1208);
Dcl-S OutputBlob SqlType(Blob_File);
Dcl-S HttpOptions VarChar(2000);
Dcl-S HttpHeader SqlType(Xml_Clob :10000) ccsid(1208);
Dcl-C SQLOK '00000';
Dcl-C SQLEOF '02000';

// Main Line
// ___________________________________________________________________

*Inlr = *On;

Exec Sql
Set Option Datfmt = *Iso,
Timfmt = *Iso,
Closqlcsr = *EndActGrp,
Commit = *chg;

HttpOptions = '{"connectTimeout":"5","redirect" : "10", "header":"content-type, accept, image/webpd"}';

OutputClob_Name = '/home/paolos/test.jpeg';
OutputClob_NL = %Len(%Trim(OutputClob_Name));
OutputClob_FO = SQFOVR; // OverWrite

Exec Sql
Values Qsys2.Http_Get('http://httpbin.org/image', :HttpOptions)
into :OutputClob;

If (SqlState = SQLOK);
Exec Sql Commit;
EndIf;

// the result of this is:
// HTTPTransportException: Problem occurred when receiving the stream.
// No data available for message.

OutputBlob_Name = '/home/paolos/testblob.jpeg';
OutputBlob_NL = %Len(%Trim(OutputBlob_Name));
OutputBlob_FO = SQFOVR; // OverWrite

HttpHeader_Data = '+
+
';
HttpHeader_Len = %len(%Trim(HttpHeader_Data));
Exec Sql
Values Systools.HttpGetBlob('http://httpbin.org/image', :HttpHeader)
into :OutputBlob;

If (SqlState = SQLOK);
Exec Sql Commit;
EndIf;

Return;

Hi IBM,

Why uncommited candidate?

IBM will use this request as input to planning but no commitment is made or implied. This request will be updated in the future if IBM implements it.

I reread my CGI BOUNDARY stuff in CGILIB and iQuery both of which support file uploads. I also read about CCSIDs and CLOB vs BLOB. Since a multipart form upload will be in USASCII for the header and boundary parts, it needs to be CLOB with a CCSID of 1208 (probably). Then once you get the boundary markers, you extract the content between the markers (that is your file data) which will be ASCII but "binary ASCII", and then save that out to the IFS, to a file with CCSID 1208.
If the result were a BLOB, then you'd have to move all that stuff to another CLOB and do some of that CCSID conversion (maybe via iconv if you're not using native SQL/PL) and then repeat the above. So again, unless I'm way off here, I don't think a BLOB is going to help you with file upload/transfers. May remembering/realizing that a CLOB is _NOT_ a null-terminated string would help visual it.

I could be wrong, but doesn't .ZIP and other binary uploads get converted to base64 when they're received? Thus, a BLOB won't really do you any good as nothing comes back through HTTP as a BLOB.
I know with POST method, you need to search for the BOUNDARY= marker and reconstruct the file upload from those marker boundaries. We us CLOBs for this today. But again, I could be off on this as I don't have the spec in front of me.