start or resume session PERFORM HTM2COB-SESS-START 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 . ?>