Hi, i implemented below logic, But, call "HttpPost" does not work.... what is causing issue on my code.? Or MicroFocus software has issue?
Move spaces to XMLFILE1-ID.
String LS-DIR-HOMEDRIVE-VALUE ":"
LS-DIR-HOMETEMP-VALUE
"TMP\\file1.xml"
delimited by spaces into XMLFILE1-ID
End-String.
Move spaces to XMLFILE2-ID.
String LS-DIR-HOMEDRIVE-VALUE ":"
LS-DIR-HOMETEMP-VALUE
"TMP\\file2.xml"
delimited by spaces into XMLFILE2-ID
End-String.
XML INITIALIZE.
IF NOT XML-OK
GO TO 004-END-PROCESS
END-IF.
open OUTPUT XMLFILE1.
If XMLFILE1-STATUS = "00" or "10" or SPACE
continue
else
PERFORM 005-ERROR-STATUS
END-IF.
move WS-AUTH-XML to XMLFILE1-REC.
write XMLFILE1-REC.
close XMLFILE1.
XML GET TEXT
request-payload
request-len
"XMLFILE1-ID"
IF NOT XML-OK
GO TO 004-END-PROCESS
END-IF.
PERFORM 001-NET-INIT.
call "HttpPost"
using
Post-Address1
Content-Type
request-payload
request-len
response-payload
response-len
Desired-SOAP-Action1
giving
response-status.
XML PUT TEXT
response-payload
response-len
"XMLFILE2-ID"
IF NOT XML-OK
GO TO 004-END-PROCESS
END-IF.
PERFORM 003-NETFREE.
Open input XMLFILE2.