start or resume session PERFORM HTM2COB-SESS-START DISPLAY "

    HTM2COB-HIDDEN-SESSION-ID: " HTM2COB-HIDDEN-SESSION-ID"

" *> regenerate session PERFORM HTM2COB-SESS-REGENERATE DISPLAY "
after regenerate session" DISPLAY "

    HTM2COB-HIDDEN-SESSION-ID: " HTM2COB-HIDDEN-SESSION-ID"

" ?>

## Mars Planet Webshop

##### Sorry, there is no return ticket back to Earth...

### Choose a category

"/>

Nr. | Category | Select Category
--- | --- | ---

Mars Planet Webshop start page

------------------------------------------------------------------------------ LIST-CATEGORIES SECTION. *>------------------------------------------------------------------------------ PERFORM VARYING WS-IND FROM 1 BY 1 UNTIL WS-IND > CAT-MAX-IND DISPLAY "
" ""WS-CAT-NR OF WS-CAT-TAB(WS-IND)"" ""FUNCTION TRIM(WS-CAT-NAME OF WS-CAT-TAB(WS-IND))"" "" "
" END-DISPLAY END-PERFORM EXIT SECTION . ?>