" END-DISPLAY
    DISPLAY "Hidden Session-Id: " HTM2COB-HIDDEN-SESSION-ID END-DISPLAY
?>

"/>

Session counter Start page

------------------------------------------------------------------------------ UPDATE-COUNTER SECTION. *>------------------------------------------------------------------------------ *> start or resume session PERFORM HTM2COB-SESS-START IF NOT V-OK OF LNK-HTM2COB-SESSION THEN DISPLAY "session start error" END-IF *> check counter in session MOVE "sess-counter" TO HTM2COB-SESS-VAR-NAME PERFORM HTM2COB-SESS-GET IF V-OK OF LNK-RESULT OF LNK-HTM2COB-SESSION THEN MOVE TRIM(HTM2COB-SESS-VAR-VALUE) TO WS-COUNTER-X MOVE NUMVAL(WS-COUNTER-X) TO WS-COUNTER ADD 1 TO WS-COUNTER ELSE MOVE 1 TO WS-COUNTER END-IF *> write counter in session MOVE "sess-counter" TO HTM2COB-SESS-VAR-NAME MOVE WS-COUNTER TO HTM2COB-SESS-VAR-VALUE PERFORM HTM2COB-SESS-SET IF NOT V-OK OF LNK-HTM2COB-SESSION THEN DISPLAY "session set error" END-IF . EXIT SECTION . ?>