1、中华人民共和格式HB/Z 181.3-90 -COBOL 1 主题内容与适用范围本标准规定了使用COBOL语言编程的格式，本标准不涉及程序设计方法和编程技巧。本标准适用于软件开发中的编程工作。2基本约定2. 1 程序单元长度一个程序单元(指包括一个标识部分、环境部分、数据部分和过程部分)的长度，A般不要超过4页打印纸(约240行，包括注释在内)。2.2 程序结构为了使程序易读和醒目起见，各部分之间用空白行隔开，并在标识部分后说明程序功能以及i周用关系等。对标识部分的描述要尽可能详细，且各注释项要对齐。例如:描述体IDENTIFICATION DIVlSON PROGRAM-ID 程序名 ENV
2、IRONMENT DIVISON DATA DIVISION . PROCEDURE DIVISION 2. 3 描述体描述体以注释形式给出，它至少包括下述信息，按顺序为:程序名航空航天工业部1990-09-18发布182 1991-02-01实施版本号及完成日期程序单元的功能编程人员的姓名.单位HB/Z 181.3-90 程序修改人员姓名，单位，修改日期对环境的依赖性调用本程序单元的程序单元名本程序单元直接调用的其它程序单元名输入数据说明输出数据说明其它需说明的问题描述体的具体格式见附录A2.4 注释为了使程序清晰可读，应适当加以注释。注释行要书写整齐。特别在过程部分的各节段标题后，紧接着要
3、对该节段的功能加以必要说明，这些说明最好写在20-72列之间。2.5 标识符程序名、节名、段名和数据名等要简明扼要，且尽量具有明显的含义，必要时通过注释加以说明。3 语句约定3. 1 设备部分的子句设备各部分的子句应该从B区左界写起，而且一个子句占一行，也可把一个子句以适当关键字分开，另写在下一行，但需右缩四格。然而在文件控制段中，可把子句SELECT-ASSJGN写在同一行，而描述该文件特性的其它子句，各占一行并且要右缩四格.例FILE-CONTROL SELECT CARD-FILE ASSIGN TO DISK. SELECT PRINT一FILEASSIGN TO PRINTER. S
4、ELECT PART-FILE ASSIGN TO PARTFILE. ORGANlZATION IS WORD-ADDRESS ACCEPT MODE IS DYNAMIC. 3.2 文件描述层指示符FD与SD后的文件名、RD后的报表名，都应从B区左界写起.其后继各行写文件描述子句，每个句子各占一行，从B区左界写起。例:FD CARD-FILE DATA RECORD IS CARD-RECORD. LABEL RECORDS ARE ST ANDARD. 3.3 数据描述中的句子183 H/Z 181.3-90 在数据描述体中，描述一数据项的子句可与该数据项同处一行或不同行.当描述数据项的
5、子句和该数据项不同行时，其描述子句的开始位置要与该数据项上下对齐.另外，同层的各PICTURE子句最好对齐。例子见附录B。3.4 条件句子对条件句子要按以下格式书写zIF 条件语句1ELSE 语句2伊: IF HOURS-WORKEDO IF HOURS-WORKER41 PERFORM NORMAL-HOURS ELSE PERFORM TOO-MANY-HOURS ELSE PERFORM NO-HOURS. 3.5 过程部分的语句过程部分的语句，一般应从B区左界写起，必要时，也可从适当短语(特别是带有强制语句的短语分开写在下一行，但要右缩四格。例:READ CARD-FILE AT EN
6、D MOVE Y TO EOF-CARD. 4其它约定4. 1标题部分标题、节标题、段标题一般各占一行，这些标题以及层指示符(FD，SD、RD)、记录层号。1和层号77从A区左界写起.4.2 层号一位数字层号前面必须冠以数字。，记录层号规定为01.其后继层号逐次加l。各后继层号的开始位置与其直接上层层号相比要右缩四格.同层层号需对齐，层号与其数据名间隔三个空格.例g。1ISAM-RECORD 184 02 DELETE一FLAG02 PERSONAL. 03 ISAM-NAME 03 ISAM-NUMBER 03 ISAM-ADDRESS PIC 9. PIC X(22). PIC 9(6)
7、PIC X(30) 赞NAME，祷VERSION，普FUNCTION骨AUTHOR，骨MODIFIEDBY , 骨DEPENDENCE，骨CALLEDBY , 提CALLS，备INPUT，曾OUTPUT，份OTHERS，程序名HB/Z 181.3-90 附录A描述体细节(补充件版本号及完成日期程序单元的功能编程人员的姓名，单位程序修改人员姓名，单位，修改日期对环境的依赖性调用本程序单元的程序单元名本程序单元调用的其它程序单元名输入参数说明、输入参数类型说明、输入参数功能说明(若无输入量、则填NONE)输出参数说明、输出参数类型说明、输出参数功能说明(若无输出量则填NONE)其它需说明的问题18
8、5 幡NAME，骨VERSION，骨FUNCTION，司h电坠句&精AUTHOR，候DEPENDENCEI 始CALI.S，备INPUT，骨OUTPUT，骨OTHER，IDENTIFICA TION PROGRAM-ID. ENVIRONMENT INPUT一OUTPUTFILE-CONTROL. HB/Z 181.3-90 附录B实例(参考件PRINT-A一REPORT1.0且JNE15.1986 THIS PROGRAM WILL READ AN INPUT CARDFILE AND RPEPARE AND PRINT A TRIPLE-SPACED REPORT COUNTING SOM
9、E OF THE DATA FRO M CARD ON WHICH THE PAY CODE IS LESS THAN 5. LU GONE .CACT. INST. XI AN THIS PROGRAM DEPEND ON CDC MACHINE NONE. CARD-FILE. PRINT -FILE. SECURITY IS PUBLIC. DIVISION. PRINT-A-REPORT. DIVISION. SECTION. SELECT CARD-FILE ASSIGN TO UR-S-CARDS. SELECT PRINT一FILEASSIGN TO UR-S-PRINTER.
10、DATA DIVISION. FILE SECTION. FD CARD-FILE LABEL RECORDS ARE OMITTED. 01 CARD-RECORD. 02 C-CODE PIC 9(9). 02 C-PERSONAL-DATA. 03 C-NAME PIC X(21). 03 C-ADDRESS PIC X(25). 03 C-PHONE PIC X (10). 02 C一CREDIT-DATA.03 C-YR-OPENDED PIC 99. 03 C-MAX-CREDIT PIC 9(4)V99 186 HB/Z 181.3-90 03 C -PRESENT一DUEPIC
11、 9(4)V99 03 C-PAYCODE PIC 9. 02 FILLER PIC X(25) FD PRINT-FILE LABEL RECORDS ARE OMITTED. 01 PRINT-LINE PIC X (133). WORKING-STORAGE SECTION 。1EOF-CARD PIC X VALUE、N. 01 HEADING-LINE. 01 02 FILLER 02 HFILLl 02 FILLER 02 HFILL2 02 FILLER 02 HFILL3 02 FILLER INFO-LINE. 02 FILLER 02 。-CODE02 FILLER 02
12、。一PAYCODE02 FILLER 02 。一PRESENT-DUE02 FILLER PIC x (10) V ALUE SPACES. PIC x (1 3.) V ALUE CUSTOMER CODE PIC x (10) V ALUE SPACES. PIC X (15) V ALUE、PAYMENTHISTORT七PIC x (10) V ALUE SPACES. PIC X (15) VALUE CURRENT BALANCE. PIC X(60) VALUE SPACES. PIC X (12) V ALUE SPACES. PIC X(9). PIC x (19) V ALU
13、E SPACES. PIC X. PIC X(21) V ALUE SPACES. PIC $ $ $ $ $. 99. PIC x(63) V ALUE SPACE. PROCEDURE DIVISION. MAIN-PARAGRAPH. OPEN INPUT_ CARD-FILE OUTPUT PRINT-FILE. WITE PRINT-LINE FROM HEADING-LINE AFTER ADV ANCING TO一TOP.PERFORM PROCESS-RECORDS UNTIL EOF一CARD=吁.CLOSE PRINT - FILE ,CARD-FILE. STOP RUN
14、. PROCESS - RECORDS. IF C一PAYCODELESS THAN 5 187 HB/Z 181.3-90 MOVEC一CODETO O-CODE MOVE C-PAYCODE TO O-PAYCODE MOVE C-PRESENT-DUE TO O-PRESENT-DUE WR1TE PR1NT-L1NE FROM 1NFO-L1NE AFTER ADV ANC1NG 3 L1NES ELSE NEXT SENRENCE. PERFORM READ-CARD. READ-CARD. READ CARD-F1LE AT ENDMOVE Y TO EOF-CARD. 附加说明2本标准由航空航天工业部第三0一研究所提出本标准由航空航天工业部第六三一研究所负责起草188
