Wortfee.net

This is a free tool to build your foreign language vocabulary.

A higher level also contains all words from the levels below it.

Login as guest

Implement this section, if you want to set a cookie. *>------------------------------------------------------------------------------ HTM2COB-SET-COOKIE SECTION. *>------------------------------------------------------------------------------ *> create session-id PERFORM HTM2COB-GET-SESS-ENV-PARAMS PERFORM HTM2COB-CREATE-SESSION-ID *> save session-id in cookie INITIALIZE LNK-HTM2COB-SET-COOKIE SET V-SET OF LNK-COOKIE-FUNC OF LNK-HTM2COB-SET-COOKIE TO TRUE MOVE "SESSIONID" TO LNK-COOKIE-NAME OF LNK-HTM2COB-SET-COOKIE MOVE HTM2COB-HIDDEN-SESSION-ID TO LNK-COOKIE-VALUE OF LNK-HTM2COB-SET-COOKIE *> 86400 sec = 24 hour MOVE 86400 TO LNK-MAX-AGE-SEC OF LNK-HTM2COB-SET-COOKIE MOVE "wortfee.net" TO LNK-DOMAIN-VALUE OF LNK-HTM2COB-SET-COOKIE MOVE "/" TO LNK-PATH-VALUE OF LNK-HTM2COB-SET-COOKIE SET V-YES OF LNK-HTTPONLY-FLAG OF LNK-HTM2COB-SET-COOKIE TO TRUE *> SET V-YES-LAX OF LNK-SAMESITE-FLAG OF LNK-HTM2COB-SET-COOKIE TO TRUE *> SET V-YES-STRICT OF LNK-SAMESITE-FLAG OF LNK-HTM2COB-SET-COOKIE TO TRUE *> SET V-YES OF LNK-SECURE-FLAG OF LNK-HTM2COB-SET-COOKIE TO TRUE CALL "HTM2COB-SET-COOKIE" USING LNK-HTM2COB-SET-COOKIE END-CALL *> The last DISPLAY in this section is always with "WITH NO ADVANCING" DISPLAY FUNCTION TRIM(LNK-COOKIE-STR OF LNK-HTM2COB-SET-COOKIE) WITH NO ADVANCING END-DISPLAY EXIT SECTION . *>------------------------------------------------------------------------------ PROCESS-REQUEST SECTION. *>------------------------------------------------------------------------------ *> start or resume session PERFORM HTM2COB-SESS-START *> if we come back here from other pages, then it is important to destroy the session PERFORM HTM2COB-SESS-DESTROY INITIALIZE WS-HTM-LEVEL-TABLE CALL "PGMOD1" USING LN-MOD1 IF V-OK OF LN-RESULT-FLAG THEN MOVE LN-LEVEL-TABLE TO WS-HTM-LEVEL-TABLE END-IF EXIT SECTION . ?>