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