Cookie visit test

Implement this section, if you want to set a cookie. HTM2COB-SET-COOKIE SECTION. INITIALIZE LNK-HTM2COB-SET-COOKIE SET V-SET OF LNK-COOKIE-FUNC OF LNK-HTM2COB-SET-COOKIE TO TRUE MOVE "VISITED" TO LNK-COOKIE-NAME OF LNK-HTM2COB-SET-COOKIE MOVE "YES" TO LNK-COOKIE-VALUE OF LNK-HTM2COB-SET-COOKIE MOVE 1800 TO LNK-MAX-AGE-SEC OF LNK-HTM2COB-SET-COOKIE SET V-YES OF LNK-HTTPONLY-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 . HTM2COB-GET-COOKIE SECTION. INITIALIZE LNK-HTM2COB-GET-COOKIE MOVE "VISITED" TO LNK-COOKIE-NAME OF LNK-HTM2COB-GET-COOKIE CALL "HTM2COB-GET-COOKIE" USING LNK-HTM2COB-GET-COOKIE END-CALL IF LNK-COOKIE-VALUE OF LNK-HTM2COB-GET-COOKIE = "YES" THEN SET V-YES OF WS-COOKIE-VISITED-FLAG TO TRUE ELSE SET V-NO OF WS-COOKIE-VISITED-FLAG TO TRUE END-IF EXIT SECTION . ?>