COBOL 程序全例子

 


<严重声明>:


 本贴吧大部分作品的版权归个人所有,其中转载别人知识的内容,个人将做出声明,对于本贴吧原创内容的任何转载,需注明,不要把别人的作品当成自己的创意************************

本人做成的几个COBOL例子都贴进http://hi.baidu.com/yangg_00了,有兴趣去学习�

IDENTIFICATION DIVISION.
ROGRAM-ID. MINGMINGZHOU.
NVIRONMENT DIVISION.
NPUT-OUTPUT SECTION.
ILE-CONTROL.
 SELECT SALE ASSIGN TO FILE1.
 SELECT BUY ASSIGN TO FILE2.
DATA DIVISION.
FILE SECTION.
FD SALE.
01 SALE-RECORD.
 02 FILLER PIC X(2).
 02 SP-NUMBER PIC X(4).
 02 FILLER PIC X(2).
 02 SP-NAME PIC X(10).
 02 FILLER PIC X(2).
 02 SP-CURRENT-SALE PIC 9(5)V99.
 02 FILLER PIC X(2).
 02 SP-CURRENT-RETURN PIC 9(4)V99.
 02 FILLER PIC X(2).
FD BUY.
01 BUY-RECORD.
 02 FILLER PIC X(10).
 02 RT-NUMBER PIC X(4).
 02 FILLER PIC X(6).
 02 RT-NAME PIC X(10).
 02 FILLER PIC X(6).
 02 RT-NEW-CURRENT-SALE PIC 9(5).
 02 FILLER PIC X(16).
 02 RT-COMMISSION PIC 9(5).
WORKING-STORAGE SECTION.
77 NET-CURRENT-SALES PIC 9(5).
77 COMMISSION PIC 9(4).
PROCEDURE DIVISION.
 OPEN INPUT SALE
 OUTPUT BUY.
. READ SALE AT END CLOSE SALE, BUY STOP RUN.
SUBTRACT SP-CURRENT-SALE FROM SP-CURRENT-RETURN GIVING NET-CURRENT-SALES.
 IF NET-CURRENT-SALES IS LESS THAN 5000
 MULTIPLY NET-CURRENT-SALES BY 0.075
 GIVING COMMISSION 
 ADD 100 TO COMMISSION
 ELSE MULTIPLY NET-CURRENT-SALES BY 0.10
 GIVING COMMISSION
 ADD 150 TO COMMISSION
 MOVE SP-NUMBER TO RT-NUMBER.
 MOVE SP-NAME TO RT-NAME.
 MOVE NET-CURRENT-SALES TO RT-NEW-CURRENT-SALE.
 MOVE COMMISSION TO RT-COMMISSION.
 WRITE BUY-RECORD AFTER 2.
 GO TO A.

这么短呀�

MF/COBOL交流招聘一群：107472799（满）二群：84354905 进群写验证信息

GO TO 跳转到A段，可是你没有定义A段的位置。move语句应该放在B区书写

招聘人事：1.有一年以上计算机相关专业的人事助理经验（优秀应届毕业生亦可）2.大专以上
工作地点：大连高新园区 有意者联系QQ：2379984663 邮箱：2379984663@qq.com