cobol学习之二对文件的操作

首先代码入下：

000001 IDENTIFICATION                   DIVISION.
000002  PROGRAM-ID.                     SAMPLE04-2.
000003 ENVIRONMENT                      DIVISION.
000004  INPUT-OUTPUT                    SECTION.
000005   FILE-CONTROL.
000006    SELECT STUDENT-FILE ASSIGN TO STDT.
000007 DATA                             DIVISION.
000008  FILE                            SECTION.
000009 FD STUDENT-FILE LABEL RECORD IS STANDARD.
000010  01 GZQD-R.
000011     02 STUDENT-NUM PIC 9(6).
000012     02 STUDENT-NAME PIC X(10).
000013     02 SEX-CODE PIC X.
000014     02 AGE PIC 999.
000015     02 CLASSE PIC 9.
000016 WORKING-STORAGE                  SECTION.
000017 77 FEMALE-COUNTER PIC 999.
000018 77 MALE-COUNTER PIC 999.
000019 PROCEDURE                        DIVISION.
000020 INIT.
000021     OPEN INPUT STUDENT-FILE
000022     MOVE ZERO TO FEMALE-COUNTER
000023     MOVE ZERO TO MALE-COUNTER.
000024 READ-FILE.
000025     READ STUDENT-FILE
000026          AT END GO TO DISPLAY-ANSWER.
000027 COUNTING.
000028     IF SEX-CODE = 'F'
000029         ADD 1 TO FEMALE-COUNTER
000030         GO TO READ-FILE.
000031     IF SEX-CODE = 'M'
000032         ADD 1 TO MALE-COUNTER
000033         GO TO READ-FILE.
000034     DISPLAY 'ERROR IN SEX CODE', SEX-CODE , '   '
000035                   STUDENT-NUM.
000036     GO TO READ-FILE.
000037 DISPLAY-ANSWER.
000038     DISPLAY 'FEMALE=' , FEMALE-COUNTER.
000039     DISPLAY 'MALE=' , MALE-COUNTER.
000040     CLOSE STUDENT-FILE.
000041     STOP RUN.

对文件中的数据进行读取，得出有男生和女生各有多少，如果不匹配则输出错误信息学号。

111111CCCCCCCCCCF2223111111CCCCCCCCCCF2223111111CCCCCCCCCCR2223111111CCCCCCCCCCF2223111111CCCCCCCCCCF2223111111CCCCCCCCCCF2223111111CCCCCCCCCCM2223111111CCCCCCCCCCM2223111111CCCCCCCCCCM2223111111CCCCCCCCCCM2223111111CCCCCCCCCCM2223111111CCCCCCCCCCM2223

把上面的数据按每21个分开，每段数据中第17个（红色部分）就代表他们的性别（看程序），cobol会一次读取数据，然后分别复制给每一个定义的变量