This is the entirety of the log:
Below are the relevant parts of the source code. The program runs as part of an AS400 job and coded using RPG.HTTPAPI Ver 1.40 released 2019-08-15
NTLM Ver 1.4.0 released 2014-12-22
OS/400 Ver V7R3M0
2025-02-06-08.26.04.112000: New iconv() objects set, PostRem=819. PostLoc=0. ProtRem=819. ProtLoc=0
2025-02-06-08.26.04.112000: SetError() £22: open(): No such path or directory.
2025-02-06-08.26.04.130000: SetError() £22: open(): No such path or directory.
2025-02-06-08.26.04.130000: SetError() £22: open(): No such path or directory.
The data area contains
Code: Select all
*Declaration of data area structure
DDDTAARA DS DTAARA(DTAKP01A0)
DDTAINFO 1 49
DDTAURL 50 149
DDTAAPIKEY 150 199
DDTALOG 200 200
DDTALCK 201 201
DDTAIFS 202 221
DDTAIFS2 222 241
DDTAFILLER 242 512
*This is the actual code that sends the request.
begsr send_KPB;
callp http_debug(*ON: %trimr(dtaifs) + SERVER + '.txt');
http_setOption( 'content-type'
: 'application/json');
http_xproc( HTTP_POINT_ADDL_HEADER
: %paddr(ADDHEADER));
RC = http_req('PATCH'
: %trimr(DTAURL) + %trimr(EID)
: %trimr(DTAIFS2) + server + '.txt'
: *omit
: *omit
: JSONDATA);
http_error(err:httpret);
if RESEND = 'N';
if RC = 1
or RC = 201;
PRC = '1';
TDATE = %date();
TTIME = %time();
else;
PRC = '0';
exsr write_Error;
exsr send_Retry;
RESEND = 'N';
endif;
endif;
if RESEND = 'Y';
if RC = 1
or RC = 201;
PRC = '1';
else;
PRC = '0';
endif;
exsr update_Error;
if F3KERREL = 0;
exsr send_Retry;
endif;
endif;
if (RC = 1
or RC = 201)
and DTALOG = 'Y';
exsr log_Success;
endif;
endsr;
We also have the same program and setup in another partition, including the API key, and we don't have any problems there either. We only have problems with one specific partition.