void acceptFromXML( params ) |
Content-Type : text/xml Content: <?xml version="1.0" encoding="UTF-8"?><request><user>admin</user><md5pwd>2eec6fa53d1cce9321efac977e60d705</md5pwd></request> |
CONFIGURATION SECTION. REPOSITORY. CLASS WEB-AREA AS "com.iscobol.rts.HTTPHandler" . ... WORKING-STORAGE SECTION. 01 request identified by "request". 03 identified by "user". 05 user pic x any length. 03 identified by "md5pwd". 05 pwd pic x any length. ... LINKAGE SECTION. 01 LNK-AREA OBJECT REFERENCE WEB-AREA. PROCEDURE DIVISION USING LNK-AREA. MAIN. LNK-AREA:>acceptFromXML(request). |