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...

Checkout

Total Price ($):

Please transfer the total amount to the given bank account. IBAN: ...

Mars Planet Webshop start page

------------------------------------------------------------------------------ READ-CART-ITEMS-FROM-SESS SECTION. *>------------------------------------------------------------------------------ INITIALIZE WS-TOTAL-PRICE PERFORM VARYING WS-IND FROM 1 BY 1 UNTIL WS-IND > CAT-ITEM-MAX-IND MOVE WS-CAT-NR OF WS-CAT-ITEM-TAB(WS-IND) TO WS-SEL-CAT-NR MOVE WS-CAT-ITEM-NR OF WS-CAT-ITEM-TAB(WS-IND) TO WS-SEL-ITEM-NR *> read from session MOVE WS-SEL-CAT-ITEM TO HTM2COB-SESS-VAR-NAME PERFORM HTM2COB-SESS-GET IF V-OK OF LNK-RESULT OF LNK-HTM2COB-SESSION THEN MOVE HTM2COB-SESS-VAR-VALUE TO WS-QTY IF FUNCTION TEST-NUMVAL(WS-QTY) = ZEROES AND FUNCTION NUMVAL(WS-QTY) > ZEROES THEN COMPUTE WS-SUBTOTAL-PRICE = WS-CAT-ITEM-PRICE OF WS-CAT-ITEM-TAB(WS-IND) * FUNCTION NUMVAL(WS-QTY) END-COMPUTE COMPUTE WS-TOTAL-PRICE = WS-TOTAL-PRICE + WS-SUBTOTAL-PRICE END-COMPUTE MOVE WS-TOTAL-PRICE TO WS-TOTAL-PRICE-DISP END-IF END-IF END-PERFORM EXIT SECTION . ?>