So I have coded up a program to not set on lr
// if Procs is 0, then first time, option connection
if Procs = 0 ;
URL = '' ;
// Open persistent connection
pComm = http_persist_open(URL);
http_setauth(HTTP_AUTH_BASIC:
userid: pass) ;
endif ;
// If Procs is -1, then shutdown
if Procs = -1;
http_persist_close(pComm);
*inLR = *on ;
return ;
endif ;
postdata = '{"articles":[{"typeid":1,"articleSecondaryId":+
'+ap2+%trim(itemnbr)+ap2+'}]} ' ;
rc = http_persist_post( pComm
: URL
: 0
: *null
: %addr(postData)+2
: %len(postData)
: fd
: %paddr('INCOMING')
:HTTP_TIMEOUT
:HTTP_USERAGENT
: 'application/json' );
// I get a json array back, parse it and return…
Within the next few calls, I have lost PCOMM, URL
|
Gerald Magnuson |
Senior System I Admin |
|
|
|
|
|
|