donwload fichier ZIP depuis site HTTPS
Posté : mar. 18 févr. 2020, 23:15:11
Bonjour,
Je galère un peu (beaucoup) pour télécharger un fichier ZIp depuis un site HTTPS vers l'IFS.
En utilisant HTTPGETBLOB, j'ai le code erreur SQLCODE = -4302.
Si quelqu'un a une idée, je le remercie de tout cœur.
Voici le code RPG :
**free
DCL-S fichier SQLTYPE( BLOB_FILE ) INZ ;
DCL-S httpEntete CHAR ( 256 ) INZ ;
DCL-S fichierUrl CHAR ( 2048 ) INZ ;
DCL-PI *N ;
siteRepertoire CHAR ( 256 ) ;
siteFichier CHAR ( 256 ) ;
repertoireFichier CHAR ( 256 ) ;
fichierNom CHAR ( 256 ) ;
END-PI;
*INLR = '1' ;
fichierUrl = %TRIM( siteRepertoire ) + %TRIM( siteFichier ) ;
httpEntete = '<httpHeader ConnectionTimeout="10"><header '
+ ' name="Authorization" value="Basic bmljazpwYXNzdzByZA=="'
+ '/></httpHeader>' ;
fichier_name = %TRIM( repertoireFichier ) + %TRIM( fichierNom ) ;
fichier_nl = %LEN( %TRIM( fichier_name ) ) ;
fichier_fo = SQFOVR ;
EXEC SQL SET :fichier = SYSTOOLS.HTTPGETBLOB( :fichierUrl,
CAST ( :httpEntete AS CLOB(10K) ) );
IF SQLCODE <>0 ;
SQLCODE = SQLCODE ;
ENDIF;
Je galère un peu (beaucoup) pour télécharger un fichier ZIp depuis un site HTTPS vers l'IFS.
En utilisant HTTPGETBLOB, j'ai le code erreur SQLCODE = -4302.
Si quelqu'un a une idée, je le remercie de tout cœur.
Voici le code RPG :
**free
DCL-S fichier SQLTYPE( BLOB_FILE ) INZ ;
DCL-S httpEntete CHAR ( 256 ) INZ ;
DCL-S fichierUrl CHAR ( 2048 ) INZ ;
DCL-PI *N ;
siteRepertoire CHAR ( 256 ) ;
siteFichier CHAR ( 256 ) ;
repertoireFichier CHAR ( 256 ) ;
fichierNom CHAR ( 256 ) ;
END-PI;
*INLR = '1' ;
fichierUrl = %TRIM( siteRepertoire ) + %TRIM( siteFichier ) ;
httpEntete = '<httpHeader ConnectionTimeout="10"><header '
+ ' name="Authorization" value="Basic bmljazpwYXNzdzByZA=="'
+ '/></httpHeader>' ;
fichier_name = %TRIM( repertoireFichier ) + %TRIM( fichierNom ) ;
fichier_nl = %LEN( %TRIM( fichier_name ) ) ;
fichier_fo = SQFOVR ;
EXEC SQL SET :fichier = SYSTOOLS.HTTPGETBLOB( :fichierUrl,
CAST ( :httpEntete AS CLOB(10K) ) );
IF SQLCODE <>0 ;
SQLCODE = SQLCODE ;
ENDIF;