[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
http_url_post problems
hi, we're having issues using http_url_post, getting http 1.1 500
Server errors
i'd appreciate any help you could give us. it's a simple web service
that adds two numbers with two parameters, x and y
H*********************************************************************
*************************
H
BNDDIR('LIBHTTP/HTTPAPI')
H DEBUG DATEDIT(*MDY/) DATFMT(*MDY) TIMFMT(*HMS:)
H*********************************************************************
*************************
FHTFLAT UF A E K
DISK
F********************************************************************
D
/copy
qrpglesrc,httpapi_h
D RC S 10I
0
D MSG S
52A
D RESULT S
50A
D MSGTXT S
50A
D WAIT S 1A
D ENC S
LIKE(HTTP_URL_ENCODER)
D DATA S
*
D SIZE S 10I
0
D FILENAME S
10A
C
C EVAL FILENAME =
'HTFLAT'
C
/FREE
ENC =
HTTP_URL_ENCODER_NEW();
HTTP_URL_ENCODER_ADDVAR_S( ENC: 'X':
'2');
HTTP_URL_ENCODER_ADDVAR_S( ENC: 'Y': '2');
HTTP_URL_ENCODER_GETPTR(ENC: DATA:
SIZE);
RC = HTTP_URL_POST( '[1]
HTTP://192.1.1.200/ITEK_WSL/WEBSERVICELESSONS.'
+
'ASMX/ADD'
:
DATA
:
SIZE
:
FILENAME);
IF (RC <> 1);
MSG =
HTTP_ERROR();
ELSE;
RESULT =
%TRIM(MSGTXT);
MSG = 'RESULT = ' +
%TRIM(RESULT);
ENDIF;
*INLR =
*ON;
/END-FREE
References
1. http://192.1.1.200/ITEK_WSL/WEBSERVICELESSONS
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------