IMPORT com
IMPORT XML

FUNCTION aprobacion(req)
              
        
           DEFINE req com.HttpServiceRequest
           DEFINE doc xml.DomDocument,
                  archivo string

           WHENEVER ERROR CONTINUE
           LET doc = xml.DomDocument.Create()
           CALL doc.setFeature("whitespace-in-element-content",FALSE)
            LET doc = req.readXmlRequest()
            
            IF STATUS = 0 THEN
            CALL doc.save("acuserecibido.xml")
            
            RETURN 200, "Satisfactorio"
            ELSE
            RETURN 400,"Insatisfactorio"
            
            END IF
            
           DISPLAY "filexml ",archivo
    
            
END FUNCTION