void accept( params ) |
<form action="servlet/isCobol(PROG1)" enctype="multipart/form-data" method="post"> Type some text:<br> <input type="text" name="textline" size="30"><br> Choose a file to upload:<br> <input type="file" name="datafile" size="40"><br> Send to server<br> <input type="submit" value="Send"> </form> |
CONFIGURATION SECTION. REPOSITORY. CLASS WEB-AREA AS "com.iscobol.rts.HTTPHandler" . ... WORKING-STORAGE SECTION. 01 http-data identified by "http_data". 03 identified by "textline". 05 w-textline pic x any length. 03 identified by "datafile". 05 w-datafile pic x any length. ... LINKAGE SECTION. 01 LNK-AREA OBJECT REFERENCE WEB-AREA. PROCEDURE DIVISION USING LNK-AREA. MAIN. LNK-AREA:>accept(http-data). |