cobol学习之二对文件的操作
cobol学习之二对文件的操作
指尖残雪 发表于2年前
cobol学习之二对文件的操作
  • 发表于 2年前
  • 阅读 14
  • 收藏 0
  • 点赞 2
  • 评论 0

华为云·免费上云实践>>>   

首先代码入下:


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.


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

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会一次读取数据,然后分别复制给每一个定义的变量


共有 人打赏支持
粉丝 8
博文 73
码字总数 0
×
指尖残雪
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: