## Cookie save data test

First name: |
Last name: |

------------------------------------------------------------------------------ HTM2COB-GET-COOKIE SECTION. *>------------------------------------------------------------------------------ *> read first-name cookie INITIALIZE FNAME INITIALIZE HTM-FNAME INITIALIZE LNK-HTM2COB-GET-COOKIE MOVE "first-name" TO LNK-COOKIE-NAME OF LNK-HTM2COB-GET-COOKIE CALL "HTM2COB-GET-COOKIE" USING LNK-HTM2COB-GET-COOKIE END-CALL IF LNK-COOKIE-VALUE OF LNK-HTM2COB-GET-COOKIE NOT = SPACES THEN MOVE LNK-COOKIE-VALUE OF LNK-HTM2COB-GET-COOKIE TO FNAME CALL "HTM2COB-SPEC-CHARS" USING FNAME, HTM-FNAME END-CALL END-IF *> read last-name cookie INITIALIZE LNAME INITIALIZE HTM-LNAME INITIALIZE LNK-HTM2COB-GET-COOKIE MOVE "last-name" TO LNK-COOKIE-NAME OF LNK-HTM2COB-GET-COOKIE CALL "HTM2COB-GET-COOKIE" USING LNK-HTM2COB-GET-COOKIE END-CALL IF LNK-COOKIE-VALUE OF LNK-HTM2COB-GET-COOKIE NOT = SPACES THEN MOVE LNK-COOKIE-VALUE OF LNK-HTM2COB-GET-COOKIE TO LNAME CALL "HTM2COB-SPEC-CHARS" USING LNAME, HTM-LNAME END-CALL END-IF . EXIT SECTION . ?>