cobol学习之二对文件的操作

来源：互联网发布：屏幕尺寸测量软件编辑：程序博客网时间：2024/06/06 09:52

首先代码入下：

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-FILE000022     MOVE ZERO TO FEMALE-COUNTER000023     MOVE ZERO TO MALE-COUNTER.000024 READ-FILE.000025     READ STUDENT-FILE000026          AT END GO TO DISPLAY-ANSWER.000027 COUNTING.000028     IF SEX-CODE = 'F'000029         ADD 1 TO FEMALE-COUNTER000030         GO TO READ-FILE.000031     IF SEX-CODE = 'M'000032         ADD 1 TO MALE-COUNTER000033         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.

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

111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">R</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223

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

0 0