Originally posted by sadkingbilly
View Post
![Big Grin](https://forums.contractoruk.com/core/images/smilies/biggrin.png)
IDENTIFICATION DIVISION. PROGRAM-ID. COUNT-GOOD-POSTS. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT POSTS-FILE ASSIGN TO "posts.dat". DATA DIVISION. FILE SECTION. FD POSTS-FILE. 01 POSTS-RECORD. 02 POST-ID PIC 9(4). 02 POST-USER PIC X(20). 02 POST-QUALITY PIC X(3). 02 POST-DATE PIC X(10). WORKING-STORAGE SECTION. 01 WS-COUNTER PIC 9(4) VALUE ZERO. 01 WS-USER PIC X(20). PROCEDURE DIVISION. BEGIN. DISPLAY "Enter the user name:". ACCEPT WS-USER. OPEN INPUT POSTS-FILE. READ POSTS-FILE AT END SET WS-COUNTER TO ZERO NOT AT END IF POST-USER = WS-USER AND POST-QUALITY = "GOOD" ADD 1 TO WS-COUNTER END-IF READ POSTS-FILE END-READ. CLOSE POSTS-FILE. DISPLAY WS-USER "has made" WS-COUNTER "good posts". STOP RUN.
IDENTIFICATION DIVISION. PROGRAM-ID. COUNT-GOOD-POSTS. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT POSTS-FILE ASSIGN TO "posts.dat". DATA DIVISION. FILE SECTION. FD POSTS-FILE. 01 POSTS-RECORD. 02 POST-ID PIC 9(4). 02 POST-USER PIC X(20). 02 POST-QUALITY PIC X(3). 02 POST-DATE PIC X(10). WORKING-STORAGE SECTION. 01 WS-COUNTER PIC 9(4) VALUE ZERO. 01 WS-USER PIC X(20). PROCEDURE DIVISION. BEGIN. DISPLAY "Enter the user name:". ACCEPT WS-USER. OPEN INPUT POSTS-FILE. READ POSTS-FILE AT END SET WS-COUNTER TO ZERO NOT AT END IF POST-USER = WS-USER AND POST-QUALITY = "GOOD" ADD 1 TO WS-COUNTER END-IF READ POSTS-FILE END-READ. CLOSE POSTS-FILE. DISPLAY WS-USER "has made" WS-COUNTER "good posts". STOP RUN.
Leave a comment: