DEFINE VARIABLE hDoc AS HANDLE.
DEFINE VARIABLE hEnv AS HANDLE.
DEFINE VARIABLE hHead AS HANDLE.
DEFINE VARIABLE hSec AS HANDLE.
DEFINE VARIABLE hUserToken AS HANDLE.
DEFINE VARIABLE hUser AS HANDLE.
DEFINE VARIABLE hUserTxt AS HANDLE.
DEFINE VARIABLE hPass AS HANDLE.
DEFINE VARIABLE hPassTxt AS HANDLE.
DEFINE VARIABLE hBody AS HANDLE.
DEFINE VARIABLE hReadRQ AS HANDLE.
DEFINE VARIABLE hReadReq AS HANDLE.
DEFINE VARIABLE hHotelReadReq AS HANDLE.
DEFINE VARIABLE hSel AS HANDLE.
CREATE X-DOCUMENT hDoc.
CREATE X-NODEREF hEnv.
CREATE X-NODEREF hHead.
CREATE X-NODEREF hSec.
CREATE X-NODEREF hUserToken.
CREATE X-NODEREF hUser.
CREATE X-NODEREF hUserTxt.
CREATE X-NODEREF hPass.
CREATE X-NODEREF hPassTxt.
CREATE X-NODEREF hBody.
CREATE X-NODEREF hReadRQ.
CREATE X-NODEREF hReadReq.
CREATE X-NODEREF hHotelReadReq.
CREATE X-NODEREF hSel.
hDoc:CREATE-NODE(hEnv,"soapenv:Envelope","ELEMENT").
hDoc:APPEND-CHILD(hEnv).
hEnv:SET-ATTRIBUTE("xmlns:soapenv",'http://schemas.xmlsoap.org/soap/envelope/').
hDoc:CREATE-NODE(hHead, "soapenv:Header", "ELEMENT").
hEnv:APPEND-CHILD(hHead).
hDoc:CREATE-NODE(hSec,"wsse:Security","ELEMENT").
hHead:APPEND-CHILD(hSec).
hSec:SET-ATTRIBUTE("xmlns:wsse",'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd').
hSec:SET-ATTRIBUTE("xmlns:soapenv",'http://schemas.xmlsoap.org/soap/envelope/').
hSec:SET-ATTRIBUTE("soapenv:mustUnderstand",'1').
hDoc:CREATE-NODE(hUserToken,"wsse:UsernameToken","ELEMENT").
hSec:APPEND-CHILD(hUserToken).
hDoc:CREATE-NODE(hUser,"wsse:Username","ELEMENT").
hUserToken:APPEND-CHILD(hUser).
hDoc:CREATE-NODE(hUserTxt, "", "TEXT").
hUser:APPEND-CHILD(hUserTxt).
hUserTxt:NODE-VALUE = "VHP".
hDoc:CREATE-NODE(hPass,"wsse:Password","ELEMENT").
hUserToken:APPEND-CHILD(hPass).
hPass:SET-ATTRIBUTE("Type",'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText').
hDoc:CREATE-NODE(hPassTxt, "", "TEXT").
hPass:APPEND-CHILD(hPassTxt).
hPassTxt:NODE-VALUE = "5xT44Vl".
hDoc:CREATE-NODE(hBody,"soapenv:Body","ELEMENT").
hEnv:APPEND-CHILD(hBody).
hDoc:CREATE-NODE(hReadRQ,"OTA_ReadRQ","ELEMENT").
hBody:APPEND-CHILD(hReadRQ).
/*M hReadRQ:SET-ATTRIBUTE("xmlns",'http://www.opentravel.org/OTA/2003/05'). */
hReadRQ:SET-ATTRIBUTE("Version",'1.0').
hDoc:CREATE-NODE(hReadReq,"ReadRequests","ELEMENT").
hReadRQ:APPEND-CHILD(hReadReq).
hDoc:CREATE-NODE(hHotelReadReq, "HotelReadRequest", "ELEMENT").
hReadReq:APPEND-CHILD(hHotelReadReq).
hHotelReadReq:SET-ATTRIBUTE("HotelCode",'vhp').
hDoc:CREATE-NODE(hSel, "SelectionCriteria", "ELEMENT").
hReadReq:APPEND-CHILD(hSel).
hSel:SET-ATTRIBUTE("SelectionType",'Undelivered').
hDoc:SAVE("LONGCHAR",OTA_ReadRQ).
DELETE OBJECT hDoc.
DELETE OBJECT hEnv.
DELETE OBJECT hHead.
DELETE OBJECT hSec.
DELETE OBJECT hUserToken.
DELETE OBJECT hUser.
DELETE OBJECT hUserTxt.
DELETE OBJECT hPass.
DELETE OBJECT hPassTxt.
DELETE OBJECT hBody.
DELETE OBJECT hReadRQ.
DELETE OBJECT hReadReq.
DELETE OBJECT hHotelReadReq.
DELETE OBJECT hSel.
RUN ReadRQ IN hPmsXchangeService(INPUT OTA_ReadRQ, OUTPUT OTA_ResRetrieveRS) NO-ERROR.