Originally posted by sadkingbilly
View Post

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: