Wortfee.net

This is a free tool to build your foreign language vocabulary.

On this page you can see a list of users who have successfully completed a level. You can be the next one!

saved number of lines in the table 03 LN-GUEST-TAB-LINE-NR PIC 9(3). 03 LN-GUEST-TABLE. 04 LN-GUEST-TAB OCCURS 100 TIMES. 05 LN-GUEST-TAB-LINE. 06 LN-START-TIME PIC X(19). 06 LN-END-TIME PIC X(19). 06 LN-NICKNAME PIC X(15). 06 LN-LANGUAGES PIC X(5). 06 LN-LEVEL PIC 9(1). 06 LN-QUESTION-COUNT PIC 9(6). 06 LN-ANSWER-OK-COUNT PIC 9(6). 06 LN-MAX-USER-WORD PIC 9(4). ?> ------------------------------------------------------------------------------ PROCESS-REQUEST SECTION. *>------------------------------------------------------------------------------ *> write WF_SESSION table INITIALIZE LN-MOD4 CALL "PGMOD4" USING LN-MOD4 EXIT SECTION . *>------------------------------------------------------------------------------ DISP-GUEST-LIST SECTION. *>------------------------------------------------------------------------------ PERFORM VARYING WS-IND-1 FROM 1 BY 1 UNTIL WS-IND-1 > LN-GUEST-TAB-LINE-NR OR WS-IND-1 > 100 DISPLAY '
' END-DISPLAY DISPLAY "

" END-DISPLAY DISPLAY "Nickname: " trim(LN-NICKNAME(WS-IND-1)) "
" END-DISPLAY EVALUATE LN-LANGUAGES(WS-IND-1) WHEN "EN-DE" MOVE "English - German" TO WS-HTM-LANGUAGE-OUT WHEN "DE-EN" MOVE "German - English" TO WS-HTM-LANGUAGE-OUT WHEN "EN-HU" MOVE "English - Hungarian" TO WS-HTM-LANGUAGE-OUT WHEN "HU-EN" MOVE "Hungarian - English" TO WS-HTM-LANGUAGE-OUT WHEN "DE-HU" MOVE "German - Hungarian" TO WS-HTM-LANGUAGE-OUT WHEN "HU-DE" MOVE "Hungarian - German" TO WS-HTM-LANGUAGE-OUT END-EVALUATE DISPLAY "Languages: " trim(WS-HTM-LANGUAGE-OUT) "
" END-DISPLAY MOVE LN-MAX-USER-WORD(WS-IND-1) TO WS-MAX-USER-WORD MOVE WS-MAX-USER-WORD TO WS-MAX-USER-WORD-Z MOVE WS-MAX-USER-WORD-Z TO WS-HTM-MAX-USER-WORD DISPLAY "Level: " trim(LN-LEVEL(WS-IND-1)) " (" WS-HTM-MAX-USER-WORD " words)" "
" END-DISPLAY MOVE LN-QUESTION-COUNT(WS-IND-1) TO WS-QUESTION-COUNT MOVE WS-QUESTION-COUNT TO WS-QUESTION-COUNT-Z MOVE WS-QUESTION-COUNT-Z TO WS-HTM-QUESTION-COUNT DISPLAY "Questions: " trim(WS-HTM-QUESTION-COUNT) "
" END-DISPLAY MOVE LN-ANSWER-OK-COUNT(WS-IND-1) TO WS-ANSWER-OK-COUNT MOVE WS-ANSWER-OK-COUNT TO WS-ANSWER-OK-COUNT-Z MOVE WS-ANSWER-OK-COUNT-Z TO WS-HTM-ANSWER-OK-COUNT DISPLAY "OK Answers: " trim(WS-HTM-ANSWER-OK-COUNT) "
" END-DISPLAY DISPLAY "Start Time: " trim(LN-START-TIME(WS-IND-1)) "
" END-DISPLAY DISPLAY "End Time: " trim(LN-END-TIME(WS-IND-1)) "
" END-DISPLAY DISPLAY "

" END-DISPLAY DISPLAY "
" END-DISPLAY END-PERFORM EXIT SECTION . ?>