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

Enter quantities for items

"/>
Nr. Item Price ($) Quantity


"/>

Mars Planet Webshop start page

------------------------------------------------------------------------------ LIST-CAT-ITEMS SECTION. *>------------------------------------------------------------------------------ CALL "HTM2COB-POST" USING "selcatnr", WS-SEL-CAT-NR END-CALL PERFORM VARYING WS-IND FROM 1 BY 1 UNTIL WS-IND > CAT-ITEM-MAX-IND IF WS-CAT-NR OF WS-CAT-ITEM-TAB(WS-IND) = WS-SEL-CAT-NR THEN MOVE WS-CAT-ITEM-NR OF WS-CAT-ITEM-TAB(WS-IND) TO WS-SEL-ITEM-NR PERFORM READ-ITEMS-FROM-SESS MOVE WS-CAT-ITEM-PRICE OF WS-CAT-ITEM-TAB(WS-IND) TO WS-PRICE-DISP DISPLAY "" ""WS-CAT-ITEM-NR OF WS-CAT-ITEM-TAB(WS-IND)"" ""FUNCTION TRIM(WS-CAT-ITEM-NAME OF WS-CAT-ITEM-TAB(WS-IND))"" ""WS-PRICE-DISP"" "" "" END-DISPLAY END-IF END-PERFORM EXIT SECTION . *>------------------------------------------------------------------------------ READ-ITEMS-FROM-SESS SECTION. *>------------------------------------------------------------------------------ MOVE ZEROES TO WS-QTY 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-TMP IF FUNCTION TEST-NUMVAL(WS-QTY-TMP) = ZEROES AND FUNCTION NUMVAL(WS-QTY-TMP) > ZEROES THEN MOVE FUNCTION NUMVAL(WS-QTY-TMP) TO WS-QTY END-IF END-IF EXIT SECTION . ?>