COBOL 教程

@yeafee — Wed, 11 Jul 2007 03:25:00 GMT

CHAPTER   1 COBOL 概述
CHAPTER   2 �q�程部初�?
CHAPTER   3 标识部和环境�?
CHAPTER   4 数据部之一
CHAPTER   5 �q�程部之�?
CHAPTER   6 �q�程部之�?
CHAPTER   7 各部之间的关�p�d��E�序举例
CHAPTER   8 联机及批量程序的一些差�?
CHAPTER   9 COBOL �~�程规范

CHAPTER 1 COBOL 概述

COBOL 是Common Business Oriented Language 的羃写。它不仅是商业数据处理的理想语言�Q?
而且�q�泛用于数据��理领域�Q�因此COBOL 语言也被�U�Cؓ“用于管理的语言”�?

一。COBOL 语言的特�?
        最适于数据处理领域�Q�算数计��量��而逻辑处理量多�Q�输入输出量大，数据间存在着一定的逻辑关系�Q�大量的分类排序�Q�COBOL比较接近��p��Q�容易懂�Q�通用性强�Q�易�U�L��,COBOL�l�构严�}�Q�层�ơ分明�?

二。COBOL的组成部分：
1。标识部�Q�IDENTIFICATION DIVISION�Q�：用于标识�E�序名�?
2。环境部�Q�ENVIRONMENT DIVISION�Q�：用于说明�E�序�q�行的环境�?
3。数据部�Q�DATA DIVISION�Q�：用于说明�E�序中涉及的所有数据�?
4。过�E�部�Q�PROCEDURE DIVISION�Q�：是程序的核心部分�Q�它军_��计算机应�q�行什么操作�?

三。最��单的COBOL �E�序举例�Q?
COL 1 ---6    7         8       12---72 73---80
                                 IDENTIFICATION DIVISION�?
                                 PROGRAM-ID�?PSAMPLE1�?
                                 ENVIRONMENT DIVISION�?
                                 DATA DIVISION�?
                                 PROCEURE DIVISION�?
        DISPLAY ‘THIS IS A COBOL PROGRAM.�?
                                            STOP RUN�?

四。COBOL 源程序的书写格式�Q?
       �W? �?6 列�ؓ “标号区”。      �?�W?列�ؓ“箋行标志区�?
       �W?��x��11列，�U�Cؓ“A区”。程序中有些内容如部��_��节头�Q�段��_��层号 01�Q�层�?77 及文�?
描述�W�FD�{�应从A区开始写�?
       �W?2��x��72列，�U�Cؓ“B区”。写�E�序中的正文部分。如�q�程部中的句子只能从B区开始写�?
       �W?3�?0列，�U�Cؓ“注释区”�?

五。COBOL字符集包括：

       数字0 --- 9 �Q�字�?A--- Z �Q�a --- z , 专用字符�Q? - * / = , . ; �?( ) < > $ 及空根{��属于系�l�字�W�集而不属于COBOL字符集的字符只能出现    在COBOL �E�序中的字符串里�?

六。常量：

        COBOL 帔R��分�ؓ数值常量（�?100�Q?29�Q�，非数值常量（�?‘ABC�?�Q�和表意帔R��Q�如 ZERO�Q�SPACE�Q�HIGH-VALUE�Q�LOW-VALUE �Q�QUOTE �Q�ALL 帔R��Q��?

七。COBOL 所处理的数据的特点
       层次的概念：数据间存在的从属关系�?
       文�g的概念：多个记录可以�l�成一个文件�?

       记录的概念：��h��一定层�ơ关�pȝ��一�l�数据项的最大集合，它是内存中具有独立逻辑含义的最大存取项�Q�具有最高层�ơ�?

CHAPTER 2 �q�程部初�?----最基本的过�E�部语句

一。输入输��句�?
1。ACCEPT语句�Q�直接从�l�端键盘或系�l�指定的输入讑֤�上输入数据�?
     ACCEPT   标识�W?[FROM 助忆名]
注：A。标识符(identifier)指的是能唯一地标识一个数据项的数据名�Q�不能唯一地标识一�?
              数据��的数据名不是标识符。标识符可以是组合项�?
        B。在ACCEPT语句中如不写FROM部分�Q�如ACCEPT   A �Q�则表示从系�l�隐含指定的
               讑֤�上读入一个数据给A�?如果不想从指定的�?备上输入�Q�则要用FROM 选项,
               �q�时“助忆名”需要在环境部中事先说明和那�U�外部设备相联系。如�Q?
ENVIRONMENT    DIVISION。（环境部）
CONFIGRATION SECTION。（配置节）
SPECIAL-NAMES。（专用名段�Q?
CONSOLE   IS ABC
如在�q�程部中�?ACCEPT T FROM ABC�?则表�C��从控制台接收数据
2。DISPLAY语句�Q�从计算机内存中输出到某一指定的输��备上�?
     DISPLAY { 标识�W?�Q�常�?}[标识�W?�Q�常�?]。。。[UPON 助忆名]
                       �Q?标识�W�和助忆名的说明同上�Q?
     ACCEPT语句和DISPLAY语句不必定义文�g适用于少量的数据输入输出�?
3�?READ语句�Q�COBOL语言中数据的输入输出主要是通过对外部文件的��d��q�行的。READ 语句��是从外部文件上��d��数据输出到程序中的数据项中。在�E�序中用到的所有文仉��需要在环境部中指定�E�序中用到的文�g名与实际外部文�g的联�p�R��数据部也要�Ҏ��件加以描�q�。指定数据结构各数据��Ҏ��占的内存单元长度以及数据形式�?
     COBOL 的存取是以文件�ؓ对象以记录�ؓ单位的�?
READ语句的最��单的格式为： READ 文�g名�?

  ENVIRONMENT DIVISION�?
  INPUT-OUTPUT SECTION�?
  FILE-CONTROL�?
          SELECT      IN-FILLE    ASSIGN TO      外部文�g名�?
��Z��存储��d��的记录，必须在内存开辟一个与文�g记录长度相等的存储区�Q�即‘输入文件纪录区’。每一个输入文仉��有相应的‘输入文件纪录区’，与之一一对应。亦卛_��数据部中描述文�g的数据结构�?
3。READ语句�Q?

     假设   IN-FILE 文�g每一记录中包含的内容为：产品代码�Q��品数量，产品单�h�Q�生产日期。设某一记录的具体数�?
     如下�Q? 0 1 0 0 1 0 0 0 0 0 1 0 0 0 1 9 9 9 0 3 2 2
                 prodcode    quantity        price               year      mon day
     如果我们希望��d��该记录�ƈ对各数据��进行处理，则需要在 ‘输入纪录区’中划分出各数据��，以便存放相应的数据。定义输入纪录区以及划分记录��Z��各数据项的工作是由数据部来完成的。下面我们简单介�l�数据部定义记录区方法，针对上面输入数据的特点，我们可以在数据部中对记录��Z��如下描述�Q?
DATA DIVISION�?
FD     IN-FILE   LABLE    RECORD IS   STANDARD�?
01      IN-RECORD。 �?�Q�定义记录区名�ؓIN-RECORD�Q?
           02     PROD-CODE PIC   9�Q?�Q��?
           02     PROD-QUANTITY PIC   9�Q?�Q��?
           02     PROD-PRICE PIC   9�Q?�Q��?
           02     MANU-DATE。（生��日期��Z��l�合��）
                    05   DATE-CCYY PIC   9�Q?�Q��?
                    05   DATE-MM PIC   9�Q?�Q��?
                    05   DATE-DD PIC   9�Q?�Q��?

其中�Q�FD �?FILE DESCRIPTION�Q�表�C�Z��该行��h��‘文件描�q�C��’�?
LABLE RECORD IS STANDARD �Q�所有的��盘文�g和磁带文仉��必须写明此句�?
01 层定义‘输入纪录区�?的名字�ؓIN-RECORD�Q�由�?01层属于FD描述体，因此也就指定�?IN-RECORD �?IN-FILE 的关�p�R��亦即从IN-FILE ��d��的数据存攑֜� IN-RECORD记录��Z��?
�q�样�Q�在执行一�ơREAD语句后，文�g中一个记录的数据便输入到内存记录区，按排列顺序分别送到记录��Z��各数据项中。注意文件的各记录中的数据是不分数据��的�Q�只是按一定的��序把数据存攑֜�各字节中。所以数据部对记录区中各数据��的描述应该与文件的记录中各数据排列�ơ序和长度相一致�?

READ 语句的一般�Ş式：READ 文�g名 �?RECORD [INTO 标识�W�] [AT END 执行语句] �Q?例如�Q?
READ IN-FILE INTO TEMP-RECORD AT END STOP RUN 该语句除了将��d��的数据传送到IN-RECORD之外�Q�还传送到TEMP-RECORD中。在遇到文�g��时�Q�程序结束运行�?

4。WRITE语句�Q�将内存中的数据输出到外部设备，主要是由WRITE 语句来完成的。WRITE语句的最��单的格式为：
      WRITE        记录�?�Q�注意WRITE语句的操作对象是记录�Q�所以是‘记录名’而不是‘文件名’）
     与输入文件相��D��出文件也要在环境部中指定所对应的实际存在的外部文�g�Q?
  ENVIRONMENT DIVISION�?
  INPUT-OUTPUT SECTION�?
  FILE-CONTROL�?
          SELECT      OUT-FILLE    ASSIGN TO      打印机名�?
也要在数据部中定义输��录区�Q?
DATA DIVISION�?
FD     OUT-FILE   LABLE    RECORD IS   OMITTED�?
01      OUT-RECORD。 �?
           02     PROD-CODE PIC   9�Q?�Q��?
           02     PROD-QUANTITY PIC   9�Q?�Q��?
           02     PROD-PRICE PIC   9�Q?�Q��?
           02     MANU-DATE
                    05   DATE-CCYY PIC   9�Q?�Q��?
                    05   DATE-MM PIC   9�Q?�Q��?
                    05   DATE-DD PIC   9�Q?�Q��?
LABLE RECORD IS OMITTED �Q�凡输出讑֤�是打印机的都必须写明此句。如输出讑֤�是磁盘，则仍用LABLE RECORD IS STANDARD�?
01 层定义‘输出纪录区�?的名字�ؓOUT-RECORD�Q�由�?01层属于FD描述体，因此也就指定�?
OUT-RECORD 和OUT-FILE 的关�p�R�?

在用WRITE 语句输出一个记录之前，应向输出记录��Z��送数据。如已将数据传送到上述各数据项中，则在执行 W RITE OUT-RECORD 语句后，则记录区中的数据通过打印机打印出来�?

WRITE 语句的一般�Ş式：                     标识�W?2 LINE
                      BEFORE                   整数  LINES
       WRITE     记录名�?[FROM 标识�W?1 ]       AFTER         ADVANCING          助忆名 �?
                      PAGE
5。OPEN语句�Q�程序中如果需要读写文�Ӟ��则该文�g必须先用OPEN语句打开�Q�系�l�在执行READ�Q�WRITE以前先检查该文�g是否已在规定的外部设备上准备��q�A�?
      OPEN语句的一般格式�ؓ�Q?

  INPUT 文�g�? [�Q�文件名2]。。�?
OPEN OUTPUT 文�g�? [�Q�文件名4]。。。   �?。。�?
6。CLOSE语句�Q�当对一个文件的��L��写的操作已完成，��应关闭该文件�?
      CLOSE语句的一般格式�ؓ�Q��?
CLOSE 文�g名�?1   [�Q�文件名2]。。�?

COBOL通过2位长度的文�g状态字(FILE-STATUS)来表�C�文件的操作�l�果是否成功�Q�常见的文�g状态值及意义:

二。算数运��语�?

1。ADD语句�Q?
格式1�Q�ADD 标识�W? �Q�标识符2。。。�?TO 标识�W�m [�Q�标识符n]。。�?
帔R��1 �Q�常�?

格式2�Q�ADD 标识�W? �Q�标识符2 �Q�标识符3
帔R��1 �Q�常�? �Q�常�?

。。。GIVING 标识�W�m [�Q�标识符n]。。�?/p>

2。SUBTRACT语句�Q?
格式1�Q�SUBTRACT 标识�W? �Q�标识符2 。。�?FROM 标识�W�m [�Q�标识符n]。。�?
帔R��1 �Q�常�?

     格式2�Q�SUBTRACT       标识�W?      �Q�标识符2   。。。�?FROM      标识�W��?
                                   帔R��1          �Q�常�?                                       帔R��
     GIVING 标识�W�n [�Q�标识符p]。。�?

3。MULTIPLY语句�Q?
格式1�Q�MULTIPLY 标识�W? BY 标识�W? [�Q�标识符3]。。�?
帔R��1�Q��?

     格式2�Q�MULTIPLY        标识�W?         BY 标识�W? GIVING 标识�W? [�Q�标识符4]。。�?
                              帔R��1 �Q� 常�?
4。DIVIDE语句�Q?
     格式1�Q�DIVIDE              标识�W?         INTO 标识�W? [�Q�标识符3]。。�?
                              帔R��1

格式2�Q�DIVIDE 标识�W? INTO 标识�W? GIVING 标识�W? [�Q�标识符4]。。�?
帔R��1 BY 帔R��2

     注意�Q� DIVIDE   A INTO B   是指   B/AB
DIVIDE A INTO B   GIVING C    是指 B/AC
                 DIVIDE   A BY     B   GIVING C    是指   A/BC
5。COMPUTE 语句�Q?
                 COMPUTE           标识�W? [�Q�标识符2 ]。。�? ��术表达�?
                 �q�算的优先��由高��C��序为：�Q�）�Q�正负号 �Q?* �Q? 或�?/   �Q? �?-
                 如：C = 3 �Q�D = 5 �Q�E = 2 �Q?F = 1 则：
                 COMPUT   A�Q�B = -�Q�C + D�Q? 2 / E ** 3 - F = -3
三。传送语�?�Q�MOVE�Q?
        MOVE 语句用来实现内存中数据的传送（而不是内存和外设之间的传送）�?
        MOVE语句的一般格式�ؓ�Q?
MOVE          标识�W?        TO          标识�W? [�Q�标识符3]。。�?
                      帔R��1
MOVE语句的传送规则：
1�Q�如果接攉��和发送项在数据部中描�q�的�c�d��和长度相同，则按字节一一对应传送�?
2�Q�如果接攉��和发送项长度不相同，而二者都是数值数据项�Q�则按小数点寚w��处理�?
3�Q�对字母或字�W�数据（非数值型数据�Q�的传送，按左寚w��处理�?
4�Q�初�{�项和组合项之间可以�怺�传送�?
        关于各类数据之间的传送规则将在第五章中介�l��?
四。�{�U�语句（GO TO�Q?
        当需要�ɽE�序改变正常执行的顺序时�Q�可以��用无条�g转移语句 GO TO 。其一般格式�ؓ�Q?
        格式1�Q� GO         TO     �q�程�?
        格式2�Q�    �?GO          TO    �q�程�? [�Q�过�E�名2]。。过�E�名n   DEPENDING    ON      标识�W?

        注意�Q�只能�{�U�d��D�|��节的开��_��不能转移到段或节的当中某一语句。段名或节名��E�名�?
五。条件语句（IF�Q?
        当需要根据给出的某些条�g是否满��来决定应执行哪一部分语句�Ӟ��可以使用条�g语句IF�?
        其一般格式�ؓ�Q?
         IF         条�g     语句�l?               ELSE       语句�l?                   [END-IF]
                                NEXT SENTENCE                      NEXT SENTENCE

         COBOL关系�q�算�W�： IS         GREATER     THAN    (>)
   IS         LESS              THAN    (<)
   IS         EQUAL          TO          (=)
   NOT    GREATER     THAN    (NOT >) (<=)
   NOT    LESS              THAN    (NOT <) (>=)
   NOT    EQUAL          TO         (NOT =)
注意�Q�句点在IF 语句中的�Ҏ��作用�?
如：IF    A > 0
                                             DISPLAY        A。 �?
         ADD          A          TO    TOTAL。               �?
         DISPLAY         TOTAL。             �?
与 �?IF    A > 0
               DISPLAY A
                ADD         A     TO    TOTAL�?
        DISPLAY        TOTAL。就不同�?
为避免出现问题应该��用显式终止符�Q�END-IF�Q�END-PERFORM�{�）代替隐式�l�止�W�（句点“。”）
六。停止语句（STOP�Q?
        其一般格式�ؓ�Q�         �?STOP          RUN
           帔R��
        STOP   RUN 执行后，�E�序停止�q�行�Q�停止后不能再接着�q�行�Q�如需要，可重新运行一�ơ�?
        STOP 帔R��Q�表�C�程序暂时挂起不往下执行，昄��出此帔R��?
七。返回语句（GOBACK�Q?
        停止�q�行�Q�将控制权返回给上一�U�。可用本语句代替STOP语句。子�E�序必须用GOBACK�?
不能用STOP�Q�因为STOP停止的是一个RUN UNIT�Q�运行单元）�?

CHAPTER 2 �q�程部初�?----最基本的过�E�部语句

一。标识部�Q�IDENTIFICATION DIVISION�Q?
        IDENTIFICATION       DIVISION.
        PROGRAM-ID.             �E�序名�?
        [AUTHOR。               �?作者名�?]
        [INSTALLATION。   �?计算��|�场所�?]
        [DATE-WRITTEN。  �?源程序编写日期�?]
        [DATE-COMPILED�?源程序编译日期�?]
        [SECURITY。            �?保密�E�度。]
二。环境部�Q�ENVIRONMENT DIVISION�Q?
        ENVIRONMENT          DIVISION.
        CONFIGRATION         SECTION�?
        SOURCE-COMPUTER。   �?源计��机名�?
        OBJECT-COMPUTER。    �?目标计算机名�?
        [SPECIAL-NAMES。         �?专用名描�q�项�?]
        [INPUT-OUTPUT         SECTION�?
        FILE-CONTROL。    �?{文�g控制描述体}。。�?
        [I-O-CONTROL。     �?输入输出控制描述体]]
1。CONFIGRATION SECTION�?
              专有名段的一般格式：
SPECIAL-NAMES�?
        [DICIMAL-POINT      IS   COMMA。]
                                    [CURRENCY   SIGN IS   非数值常量。]
        [专用名                     �?IS    助忆名。]
2。INPUT-OUTPUT   SECTION�?
      INPUT-OUTPUT SECTION 包括两个�D�，卻I��FILE-CONTROL   �?I-O-CONTROL。FILE-CONTROL�D�|��为文件分配外部文件。I-O-CONTROL�D늚�作用是可以指定目标程序运行时�Q�几个文件共用一个内存区�Q�以省内存。在此暂不作介绍�?
FILE-CONTROL�D늚�主要功能是给�E�序中��用的文�g命名。指出存放该文�g的外部设备及其它有关文�g控制的信息。对文�g的描�q�是由SELECT子句实现的。FILE-CONTROL�D늚�一般格式：
INPUT-OUTPUT       SECTION�?
FILE-CONTROL�?
SELECT       文�g名  �?ASSIGN    TO   外部文�g�?
[ORGANIZAION          IS … �?]       (SEQUENCIAL , INDEXED , RELATIVE)
[ACCESS     MODE      IS … �?]       (SEQUENCIAL, RANDOM , DYNAMIC)
[RECORD   KEY           IS … �?]
[FILE STATUS    IS           … �?]

CHAPTER 4 数据部之一

一。数据部概述�?
1�?数据部的作用是定义数据项属性，描述数据�l�构。所有在�q�程部中出现的数据项都必��d��数据部中对它们的属性进行说明。包括数据项的类型，数据��w��的关�p�，记录与文件的关系�Q�文件的属性�?
2�?数据的层�ơ和层号�Q�COBOL中把有从属关�pȝ��数据用层�ơ（level�Q�关�p�L��描述。数据的层次�l�构是：记录--》组合项--》初�{�项。如�Q�在前面READ语句中定义的 IN-FILE 文�g��h��如下�l�构�Q?
01      IN-RECORD。  �?
           02     PROD-CODE PIC   9�Q?�Q��?
           02     PROD-QUANTITY PIC   9�Q?�Q��?
           02     PROD-PRICE PIC   9�Q?�Q��?
           02     MANU-DATE。  �?
                    05   DATE-CCYY PIC   9�Q?�Q��?
                    05   DATE-MM PIC   9�Q?�Q��?
                    05   DATE-DD PIC   9�Q?�Q��?
层次规定如下�Q?
�Q?�Q�用来描�q�数据的层次�l�构的层号从01�?9。记录的层次最高，定�ؓ01层号�?
�Q?�Q�从属项的层��h��其下属项的层号高。层号不必要求连�l��?
�Q?�Q�从属于同一�l�合��但不互�总�属的数据��具有相同的层号�?
3。数据部的结构：数据部中通常用到的有以下几个节：
�Q?�Q�FILE SECTION�Q�描�q�程序中用到的输入输出文件及其记录中各数据项的属性�?
�Q?�Q�WORKING-STORAGE SECTION�Q�描�q�程序中用到的中间数据项�?
�Q?�Q�LINKAGE SECTION�Q�描�q�C��调用�E�序间发生数据传递的数据��V�?
�Q?�Q�REPORT SECTION�Q��ؓ了完成报表编制功能，此节用来规定�Ʋ输出的报表�?
          ‘体裁’，设计各报表栏的打印�Ş式和�Ҏ��{��?
二。文件节�?
1。文件节的作用： �E�序中每一个输入或输出文�g都要在文件节中加以描�q�。内容包括：文�g名和文�g属性；文�g中包括的记录名字�Q�每个记录中数据的层�ơ关�p�；记录中各数据��的数据形式和占内存的大��?
2。文件描�q�ͼ�          最��单的文�g描述体的一般格式�ؓ�Q?
  FD 文�g�?
            LABLE      RECORD        IS           STANDARD
                      RECORDS      ARE OMITTED
   DATA        RECORD        IS 数据�?
                      RECORDS      ARE
3。记录描�q�ͼ�记录描述体由01层号开始，后跟记录名。如果记录本�w�就是一个初�{�项�Q�则在记录名后描�q�记录长度；否则�Q�数据名后跟句点�Q�下面定义记录的数据�l�构。如�Q?
DATA DIVISION�?
FILE SECTION�?
FD    IN-FILE
          LABLE    RECORD IS STANDARD�?
          DATA      RECORD IS IN-FILE-RECORD�?
01     IN-FILE-RECORD         PIC         X�Q?0�Q��?
  DATA DIVISION�?
FILE SECTION�?
FD    IN-FILE
          LABLE    RECORD IS STANDARD�?
          DATA      RECORD IS IN-FILE-RECORD�?
01     IN-FILE-RECORD         PIC         X�Q?0�Q��?
或  �?�Q��?1     IN-FILE-RECORD�?
          05     DATE  PIC   9�Q?�Q��?
          05     PROD-CODE PIC   9�Q?�Q��?
          05     PROD-PRICE PIC   9�Q?�Q�。           �?�Q?
4。数据项描述�Q?在每一个初�{�项的名字后跟一个PIC子句。用它来描述数据的类型和长度。PIC子句在下面详�l�说明�?
5。文件节的书写格式：   FD从A区开始书写，01层号也从A区开始，其它层号可以从A��Z��可以从B区开始。�ؓ了看��h��层次分明�Q�最好从B区开始�?
三。PIC 子句。PIC即PICTURE的羃写。PIC子句用来描述每一个初�{�项。它说明�Q�（1�Q�数据项是什么类型。（2�Q�数据项占多大内存域。（3�Q�是否需要按打印的要求准备有兛_��W�。PIC子句的主要作用在于描�q�C��个初�{�项的一般特征和�~�辑要求�?
1。数值型数据的描�q�ͼ�
       �?’描�q�符�Q��?表示该位�|�上可以攑օ�一�? ~ 9 之间的数字。因此：
01          A        PIC 999。         �?�?
01          A        PIC 9�Q?�Q��?
表示A可以存放000 ~ 999 之间的一个三位数。有几个9表示有几位数�?
注意�Q�（1�Q�在数值型数据��中只能放数字不能放�I�格�?
             �Q?�Q�用�?’描�q�符只能表示整数�Q�如输入��数部分�Q�则��数部分被舍弃�?
             �Q?�Q�如送入一个负敎ͼ�则负可��舍弃�?

‘V’描�q�符�Q��?指出在数值数据结构中隐含的小数点的位�|�。小数点不占内存单元。如�Q?
03         M         PIC   9�Q?�Q�V9�Q?�Q��?
注意�Q�（1�Q�V在描�q�符的最后，则等于无��数炏V�?
             �Q?�Q�一个数据的描述�W�中只能出现一个V�?
             �Q?�Q�进行数据传送或�q�算�Ӟ��按隐含的��数点位�|�对准进行传送或�q�算�?
             �Q?�Q�V表示的小数点只在传送或�q�算时�v作用�Q�不能被昄��或打印出来。  �?

‘S’描�q�符�Q��?如果惛_��数据��中攑օ�一个带�W�号的数�Q�可以用‘S’描�q�符。如�Q?
03         M         PIC   S9�Q?�Q�V9�Q?�Q��?
注意�Q�（1�Q�S描述�W�必��L��最左边的一个描�q�符�?
             �Q?�Q�在内存中，S不占位数�Q�在传送或�q�算时�v作用�?
2。字母型数据的描�q�ͼ�字母型数据项用A描述�W�，在这�U�类型的数据��中只允许存攑֭�母或�I�格�?
3。字�W�型数据的描�q�ͼ��׃�Q意的COBOL字符�l�成的数据，�U�Cؓ字符型数据，它是非数值型的，不能用于计算。用X描述�W�来表示字符型数据。如�Q?
03         M        PIC   X�Q?�Q��?
注意�Q�（1�Q�字�W�型数据可以用X描述�W�，也可以用9和A描述�W�来描述。如描述数据
      ‘COB-74’可以用PIC X�Q?�Q�，也可以用    PIC   A�Q?�Q�X9�Q?�Q��?
             �Q?�Q�字母型数据既可以用A描述�Q�也可以用X�?
             �Q?�Q�字�W�型数据中可以放数字�?
4。编辑型描述�W�：�~�辑型数据项只是作�ؓ输出数据时增加或改变某些所需的符��P��L��辑作用，它不是作计算用的。下面分别介�l�编辑数据项中用到的�~�辑描述�W��?
�Q?�Q�。插入小数点‘。’，用‘。’描�q�符。如�Q?
               77         T        PIC   99�?9�?
   (2�Q�。插入逗号‘，’作分位��P��用‘，’描�q�符。如�Q?
               02         A        PIC 999�Q?99�?9�?�Q�或PIC 9�Q?�Q�，9�Q?�Q��?�Q?�Q�）
�Q?�Q�。插入空��|��用‘B’描�q�符。如�Q?
               02         A        PIC   B9�Q?�Q�B�?
�Q?�Q�。插入正负号�Q�用�?’或�?’描�q�符。如�Q?
               02         A1      PIC   +9�Q?�Q��?�?PIC   9�Q?�Q?�Q?
               02         A2      PIC   -9�Q?�Q�。（或PIC 9�Q?�Q?�Q?
               注意�Q�描�q�符�?’，一侓加�W�号。描�q�符�?’只对负值加负号�?
�Q?�Q�。插入�?�?。如�Q?
               02         A1       PIC   $999�?9�?
               02         A2       PIC +$99999�?
               02         A3       PIC -$999�?�?
�Q?�Q�。��Q动插入正负号和�?�?
               02         A1       PIC $$$99.99.
               02         A2       PIC $$$$$.$$.
               02         A3       PIC ++9.99.

�Q?�Q�。取消高位零�Q�用‘Z’和�?’描�q�符。在高位零的位置上代以空格或�?’。如�Q?
               02         A1       PIC Z�Q?�Q��?9�?
               02         A2       PIC *�Q?�Q��?�Q?�Q�。 �?
               02         A3       PIC +ZZZ�Q�ZZZ�Q�ZZ。ZZ�?
               02         A4       PIC -*�Q?**�Q?**�?9�?
�Q?�Q�。插入‘DB’和‘CR’字�W�。DB和CR只能用作固定插入�Q�当数��gؓ负时�Q�在�~�辑型数               据项中最后两个字节中�|�DB或CR�Q�数��gؓ正时�Q�此两字节留�I�格。如�Q?
               02         A1       PIC $9�Q?�Q��?9DB
                                           02         A2       PIC $9�Q?�Q��?9CR�?
5.常用数值型数据

四。工作单元节�Q�WORKING-STORAGE SECTION�Q?

1。工作单元节的作用：�E�序中用的数据项分�ؓ两部分，一部分是属于输入或输出文�g的，另一部分是非输入或输出的数据。如一些中间变量或用作累计的数据项�{�。非输入输出的数据就应在工作单元节中描述�Q�还可以用工作单元节来赋初倹{�?
2。VALUE子句�Q�用于给变量赋初倹{��如�Q?
02      A        PIC       9�Q?�Q�   �?VALUE   123�?
注意�Q� （1�Q�只有对工作单元节中的数据项才能赋初��|��不能�Ҏ��件节中输入输出文件中的         �?数据��赋初倹{�?
�Q?�Q�如果在�l�合��的描述体中使用VALUE�Q�初值只能是表意帔R��或非数值型帔R��。         �?对组合项整体而言�Q�一律按字符型数据项处理�?
�Q?�Q�当用一个带�W�号的数��g��初值时�Q�相应的PIC子句中应有‘S’描�q�符�?
�Q?�Q�赋初值时应该注意�c�d��的一致性�?
�Q?�Q�VALUE子句�l�出的值应适合PIC子句的描�q�范��_��否则会出现截断或产生错误�?

CHAPTER 5 �q�程部之�?/a>

一。MOVE 语句的较高技�?/p>

1。各�U�类型数据之间的传送规则见下表�Q�（Y�Q�表�C�合法传送。N�Q�表�C�非法传送。空白：表示某些时候是合法的。）

接收��?/p>	数值型	数值型	数值编辑型	字母�?/p>	字符�?/p>	字符�~�辑�?/p>	�l�合��?/p>
发送项	整数	非整�?/p>
数值型整数	Y	Y	Y	N	Y	Y	Y
数值型非整�?/p>	Y	Y	Y	N	N	N	Y
数值编辑型	Y	Y	Y	N	Y	Y	Y
字母�?/p>	N	N	N	Y	Y	Y	Y
字符�?/p>					Y	Y	Y
字符�~�辑�?/p>	N	N	N	N	Y	Y	Y
数值常�?/p>	Y	Y	Y	N	N	N	Y
非数值常�?/p>	N	N	N	Y	Y	Y	Y
ZERO	Y	Y	Y	N	Y	Y	Y
SPACE	N	N	N	Y	Y	Y	Y
�l�合��?/p>					Y	Y	Y

2。用CORRESPONDING子句的传�?—�?对应传送（同名传送）
       对应传送的一般格式：
MOVE         CORRESPONDING             标识�W?       TO        标识�W?
                      CORR
       说明�Q�（1�Q�如果两个组合项中包括的��不同，则只传送同名的��V�?
                   �Q?�Q�传送的两者间必须有成对的同名数据��，而且�q�一对中必须臛_��有一个项�?
            初等��V��否则不能作为对应项传送�?
                   �Q?�Q�所谓同名，指的是它们有相同的全�E�受限，卛_��E�同名。       �?
假如T1和T2的描�q�分别�ؓ�Q?
01         T1。 �?1         T2�?
        02 X。      �?02    X�?
              03 X1。。。            �?  03     X2。。�?
              03 X3。。。                                  �?03     X1。。�?
        02 Y1。      �?02    Y。     �?
              03 A1。。。             �?  03      A1。。�?
则T1中的A1与T2中的A1��׃��是全�E�同名�?

4。除法语句中的余数语句（REMAINDER 子句�Q�：DIVIDE 语句只能求商不能求余数。如��x��余数�Q�可用     �?REMAINDER 子句�?
如： DIVIDE        A        INTO      B            GIVING       C         REMAINDER             D
      注意�Q�（1�Q�商和余数的��g��仅取决于除数和被除数�Q�还取决于数据部中对商和余数的描�q��?
                  �Q?�Q�如用ROUNDED子句�Q�它只对商�v作用�Q�余��C��作四舍五入处理，在计��余
           数时�Q�仍按四舍五入前的��gؓ准�?
   (3�Q?长度溢出也只��查商的值是否溢出，而不��查余数�?
三。IF语句的较高技�?
1。符��h��Ӟ��
数据名     �?IS [NOT]          POSITIVE
��术表达式             �?NEGATIVE
                 ZERO
2。类型条�Ӟ��
标识�W� IS        [NOT]    NUMERIC
           ALPHABETIC
3。条件名条�g�Q�用来表�C�条件变量当前值的名字叫条件名。条件名本��n是一个条�Ӟ��它有一个��|��‘真’或‘假’）�Q�用它来��查条件变量的值是否落在条件名所代表的值的范围中，当条件变量的��D��在条件名所代表的值的范围中，则此条�g名所表示的条件�ؓ‘真’，否则为‘假’�?
条�g名条件的一般格式：
88           条�g名      �?{ VALUE      IS}        帔R��1        [{THRU}      帔R��2]
                 [帔R��3       [ [{THRU}      帔R��4]] 。。。]
               如： 02      WS-FILE-STATUS       PIC      9�Q?�Q��?
            88         WS-FILE-NORMAL          VALUE 0�Q?3。     �?
            88         WS-FILE-EOF           VALUE 10�?

CHAPTER 6 �q�程部之三——执行语句（PERFORM�Q?/a>

一。执行语句的作用�Q�在一个COBOL�E�序中，�q�程部中往往有一部分语句需要执行多�ơ。�ؓ了让重复的部分在�E�序中只出现一�ơ，可以把重复的部分单独写成一�D�|��一节（有一个段名或节名�Q�，每次执行�q�部分语句时转去该段�Q�执行完转回来。这时候就需要用到执行语句（PERFORM �Q��?

二。执行语句的一般�Ş式：
            PERFORM           �q�程�?        [THRU]                �q�程�?

三。��用PERFORM语句实现循环�Q?
1。 PERFORM           �q�程�?        [{THRU}                �q�程�?   ]        整数         TIMES
                                                                                                                                         标识�W?

2。 PERFORM           �q�程�?        [{THRU}                �q�程�?   ]        UNTIL     条�g

3。 PERFORM           �q�程�?        [{THRU}                �q�程�?   ]
  VARYING    标识�W?        FROM   常数1        BY       常数2             UNTIL   条�g
                                                                    标识�W?                            标识�W?

四。执行语句的多重循环形式�Q�COBOL 允许三重循环�Q�其一般格式可写�ؓ�Q?
PERFORM          �q�程�?        [{THRU}                �q�程�?   ]
  [VARYING   参数1        FROM   初�?        BY       步长1             UNTIL   条�g1 ]
  [AFTER         参数2        FROM   初�?        BY       步长2             UNTIL   条�g2 ]
  [AFTER         参数3        FROM   初�?        BY       步长3             UNTIL   条�g3 ]

五。出口语句（EXIT�Q�：EXIT语句提供了一�l�过�E�的公共出口�Q�即指出了被调用�q�程的逻辑�l�点�?

CHAPTER 7 各部之间的关�p�d��E�序举例

一.各部之间的关�p?

�?�E�序举例:
�?:
��d��一�l��品销售记�?每读入一个记�?计算出销售总额(数量X单�h).然后打印��产品的全部数�?数据形式如下:

1 9 9 2 1 2 3 1 0 0 0 0 0 1 A A A A 0 1 0 0 5 0 0 0
1 9 9 3 1 2 3 1 1 0 0 0 0 1 B B B B 0 2 0 0 6 0 0 0
------------------------- -----------------   ------------ ------------ -----------
         DATE                PRODCODE     CUST        AMT        PRICE
�E�序如下:
IDENTIFICATION       DIVISION.
PROGRAM-ID.             PEXAM1
ENVIRONMENT          DIVISION.
CONFIGRATION         SECTION.
INPUT-OUTPUT          SECTION.
FILE-CONTROL.
        SELECT     INPUT-FILE         ASSIGN    TO     FILE1
                           ORGANIZATION                    IS      SEQUENCIAL
                           ACCESS    MODE                    IS      SEQUENCIAL
                           FILE-STATUS                          IS     WS-INPUT-FILE-STATUS.
        SELECT    OUTPUT-FILE        ASSIGN TO     P-FILE
                           ORGANIZATION                    IS      SEQUENCIAL
                           ACCESS    MODE                    IS      SEQUENCIAL
                           FILE-STATUS                          IS     WS-OUTPUT-FILE-STATUS.
DATA                           DIVISION.
FILLE                           SECTION.
FD      INPUT-FILE       LABEL     RECORD    IS     STANDARD.
01       IN-REC.
           05      DATE            PIC    9(8).
           05      PROD-CODE  PIC    9(6).
           05      CUSTOMER-CODE  PIC    X(4).
           05      QUANTITY  PIC    9(4).
           05      UNIT-PRICE     PIC    9(4).
FD      OUTPUT-FILE       LABEL     RECORD    IS     STANDARD.
01       OUT-REC.
           05      DATE            PIC    9999B99B99.
           05      FILLER   PIC    X(5).
           05      PROD-CODE  PIC    9(6).
           05      FILLER   PIC    X(5).
           05      CUSTOMER-CODE PIC    X(4).
           05      FILLER   PIC    X(5).
           05      QUANTITY  PIC    ZZZ9.
           05      FILLER   PIC    X(5).
         05      UNIT-PRICE           PIC    $(5).
          05      FILLER          PIC    X(5).
          05      SALES-VALUE      PIC    $(8).

WORKING-STORAGE                SECTION.
01       WS-VARIBLES.
           05      WS-INPUT-FILE-STATUS PIC    9(2).
                     88       WS-INPUT-FILE-SUCCESSFUL         VALUE     0.
                     88       WS-INPUT-FILE-EOF                          VALUE    23.
           05      WS-OUTPUT-FILE-STATUS PIC    9(2).
                     88       WS-OUTPUT-FILE-SUCCESSFUL     VALUE     0.
PROCEDURE                                DIVISION.

A000-MAIN.
          PERFORM         A100-OPEN-FILES
          PERFORM         R000-READ-FILE
          PERFORM         A200-PROCESS-RECORD UNTIL WS-INPUT-FILE-EOF
          PERFORM         A300-CLOSE-FILES
          STOP RUN
          .
A000-EXIT.
          EXIT
          .

A100-OPEN-FILES.
           OPEN INPUT        INPUT-FILE
                         OUTPUT    OUTPUT-FILE
           IF    NOT           WS-INPUT-FILE-SUCCESSFUL
DISPLAY   ‘INPUT-FILE              OPEN     NOT   SUCCESSFUL’  �?UPON    CONSOLE
PERFORM Z000-ABEND
          END-IF
           IF    NOT            WS-OUTPUT-FILE-SUCCESSFUL
DISPLAY   ‘OUTPUT-FILE         OPEN      NOT   SUCCESSFUL’  �?UPON    CONSOLE
PERFORM Z000-ABEND
           END-IF
          .
A200-PROCESS-RECORD.
           INITIALIZE OUT-REC
           MOVE           CORR         IN-REC    TO           OUT-REC
           COMPUTE   SALES-VALUE   = QUANTITY OF IN-REC   *   UNIT-PRICE   OF   OUT-REC
           PERFORM   W000-WRITE-FILE
           PERFORM    R000-READ-FILE
           .
A300-CLOSE-FILE.
           CLOSE         INPUT-FILE
                                 OUTPUT-FILE
           .
R000-READ-FILE.
           READ INPUT-FILE
           IF    NOT   WS-INPUT-FILE-SUCCESSFUL   AND NOT    WS-INPUT-FILE-EOF
DISPLAY   ‘INPUT-FILE READ NOT   SUCCESSFUL’  �?UPON    CONSOLE
PERFORM Z000-ABEND            THRU      Z000-EXIT
           END-IF
          .

W000-WRITE-FILE.
           WRITE OUT-REC         AFTER     1
           IF    NOT   WS-OUTPUT-FILE-SUCCESSFUL
DISPLAY   ‘OUTPUT-FILE WRITE NOT   SUCCESSFUL’  �?UPON    CONSOLE
PERFORM Z000-ABEND
           END-IF
           .
Z000-ABEND.
          DISPLAY   ‘PROGRAM   ABEND !’  �?UPON    CONSOLE
          PERFORM A300-CLOSE-FILES          THRU    A300-EXIT
          MOVE         16                                         TO         RETURN-CODE
          GOBACK
          .

输出的数据�Ş式如�?
1992 12 31     000001     AAAA      100      $5000      $500000

1993 12 31     100001     BBBB       200      $6000      $1200000

�?:
Program : INVI300    Update inventory   file (random)

File	Description	Use
VALTRAN	Valid inventory transaction file	Input
INVMAST	Inventory master file	Update
ERRTRAN	Unmatched inventory transaction file	Output

Process specifications
This program updates an inventory master file (INVMAST) based on the data in a sequential
file of valid inventory transaction records (VALTRAN). The inventory master file is indexed by item number and updated randomly.

If the program finds a master record with the same item number as a transaction, it uses the
transaction data to update the master record .It does this by increasing the on hand quantity
in the master record by the receipt quantity in the transaction record.
If the program cannot find a master record for a transaction, it writes the transaction record on
the file of error transactions (ERRTRAN). The record format format for ERRTRAN is same as
for VALTRAN.

The basic processing requirements are:

1. Read a transaction record.

2. Read the master record with the same item number as in the transaction record.

3. If the master record is found , update and rewrite the matching master record.

4. If the transaction is not found , write the transaction record on the file of error transactions.

�E�序如下:
IDENTIFICATION DIVISION.
PROGRAM-ID. INV1300.

ENVIRONENT DIVISON.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
        SELECT VALTRAN    ASSIGN TO   SYS020-AS-VALTRAN.
        SELECT INVMAST     ASSIGN TO   SYS021-INVMAT
              ORGANIZATION IS INDEXED
              ACCESS                 IS    RANDOM
              RECORD KEY       IS   MR-ITEM-NO
              FILE STATUS        IS   INVMAST-ERROR-CODE.
         SELECT ERRTRAN    ASSIGN TO   SYS022-AS-ERRTRAN.

DATA  DIVISION.
FILE  SECTION.
FD    VALTRAN
         LABEL RECORDS ARE STANDARD.
01     VALID-TRANSACTION-AREA  PIC X(21).
FD    INVMAST
         LABEL RECORDS ARE STANDARD.
01     MASTER-RECORD-AREA.
         05   MR-ITEM-NO  PIC X(5).
         05   FILLER   PIC X(45).
FD    ERRTRAN
         LABEL RECORDS ARE STANDARD.
01     ERROR-TRANSACTION  PIC X(21).
WORKING-STORAGE SECTION.
01    SWITCHES.
        05    VALTRAN-EOF-SWITCH PIC X   VALUE ‘N�?
                88    VALTRAN-EOF                                  VALUE ‘Y�?
        05    MASTER-FOUND-SWITCH PIC X.
                88    MASTER-FOUND                               VALUE ‘Y�?

01 FILE-STATUS-FIELD.
05 INVMAST-ERROR-CODE PIC X(2).

01    INVENTROY-TRANSACTION-RECORD.
        05    IT-ITEM-NO  PIC X(5).
        05    IT-VENOR-NO  PIC X(5).
        05    IT-RECEIPT-DATE  PIC X(6).
        05    IT-RECEIPT-QUANTITY             PIC S9(5).
01    INVENTORY-MASTER-RECORD.
        05    IM-DESCRIPTIVE-DATA.
                10    IM-ITEM-NO  PIC X(5).
                10    IM-ITEM-DESC  PIC X(20).
                10    IM-UNIT-COST  PIC S9(3)V9(2).
                10    IM-UNIT-PRICE        PIC S9(3)V9(2).
        05    IM-INVENTORY-DATA.
                10    IM-REORDER-POINT PIC S9(5).
                10    IM-ON-HAND  PIC S9(5).
                10    IM-ON-ORDER  PIC S9(5).
PROCEDURE DIVISION.
A000-UPDATE-INVENTORY-FILE.
         OPEN             INPUT        VALTRAN
                                I-O               INVMAST
                                OUTPUT     ERRTRAN
         PERFORM    B000-PROCESS-INVENTORY-TRAN      THRU     B000-EXIT
                                UNTIL         VALTRAN-EOF
         CLOSE                  VALTRAN
                   INVMAST
                   ERRTRAN
         DISPLAY      ‘PROGRAM   INV1300 NORMAL END�?
         GOBACK.
B000-PROCESS-INVENTORY-TRAN.
        PERFORM                      B100-READ-INVENTORY-TRAN
        IF      NOT                       VALTRAN-EOF
                  PERFORM            B200-READ-INVENTORY-MASTER
                  IF     MASTER-FOUND
                           PERFORM   B300-UPDATE-INVENTORY-MASTER
                  ELSE
                           PERFORM   B400-WRITE-ERROR-TRAN
                  END-IF
        END-IF.
B000-EXIT.
        EXIT.

B100-READ-INVENTRORY-TRAN.
        READ   VALTRAN        INTO    INVENTORY-TRANSACTION-RECORD
                     AT   END           MOVE ‘Y’       �?TO        VALTRAN-EOF-SWITCH.
B100-EXIT.
        EXIT.

B200-READ-INVENTORY-MASTER.
        MOVE   IT-ITEM-NO                                    TO         MR-ITEM-NO
        READ    INVMASST                                      INTO    INVENTORY-MASTER-RECORD
        IF           INVMAST-ERROR-CODE              = �?0�?
                      MOVE ‘Y’                                      �?TO         MASTER-FOUND-SWITCH
        ELSE
                      MOVE ‘N’                                      �?TO         MASTER-FOUND-SWITCH
        END-IF.

B300-UPDATE-INVENTORY-MASTER.
        ADD     IT-RECEIPT-QUANTITY                TO          IM-ON-HAND
        REWRITE MASTER-RECORD-AREA       FROM    INVENTORY-MASTER-RECORD
        IF          INVMAST-ERROR-CODE              NOT       =   �?0�?
                     DISPLAY   �?INV1300 REWRITE   INVMAST ERROR . ITEM NUMBER = �?IM-ITEM-NO
                     DISPLAY   �?FILE STATUS    = ’  �?INVMAST-ERROR-CODE
                     MOVE ‘Y’                                       �?TO         VALTRAN-EOF-SWITH
        END-IF.
B300-EXIT.
        EXIT.

B400-WRITE-ERROR-TRAN.
        WRITE   ERROR-TRANSACTION                FROM   INVENTORY-TRANSACTION-RECORD.
B400-EXIT.
        EXIT.
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    PROGRAM3.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

01 WS-RESP PIC S9(8) COMP.
88 WS-RESP-NORMAL VALUE 0.

       01 PGM3COM.
    05 CUST-NO  PIC 9(8).
    05 PGM3-OUT.
                        10 PGM3-RETURN-CODE PIC X(2).
               88 PGM3-SUCCESSFUL                    VALUE ' '.
                                88 PGM3-CUST-NBR-ERR                VALUE '01'.
                88 PGM3-CUST-NOT-FND               VALUE '02'.
         10 PGM3-AC   PIC 9(5).
         10 PGM3-BAL   PIC 9(11).

01 MASTER-RECORD.
       05 MASTER-KEY      PIC 9(8).
       05 CUST-NAME    PIC X(20).
       05 CHECK-AC    PIC 9(5).
       05 BAL    PIC 9(11).
LINKAGE SECTION.

01 DFHCOMMAREA                   PIC X(26).

PROCEDURE DIVISION.

A000-MAIN-PROCESS.

         MOVE DFHCOMMAREA      TO      PGM3COM

         INITIALIZE PGM3-OUT

         PERFORM B000-VALIDATION      THRU B000-EXIT
         IF      PGM3-SUCCESSFUL
                  PERFORM C000-PROCESS    THRU C000-EXIT
        END-IF
        .

A999-RETURN.
           MOVE PGM3COM                 TO   DFHCOMMAREA.
           EXEC CICS        RETURN     END-EXEC.
           GOBACK.
      *
B000-VALIDATION.
           IF   CUST-NO       NOT NUMERIC
                SET PGM3-CUST-NBR-ERR    TO   TRUE
           END-IF
           .
B000-EXIT.
           EXIT.
      *

C000-PROCESS.
           MOVE CUST-NO                  TO   MASTER-KEY
           EXEC CICS READ FILE ('VMASTER')
                      RIDFLD(MASTER-KEY)
                      INTO (MASTER-RECORD)
                      LENGTH(LENGTH OF MASTER-RECORD)
     RESP (WS-RESP)
                      END-EXEC
           IF WS-RESP    NOT            =    DFHRESP(NORMAL)
        IF WS-RESP              =    DFHRESP(NOTFND)
               SET PGM3-CUST-NOT-FND TO   TRUE
        ELSE
               EXEC   CICS ABEND ABCODE('ABCD')   END-EXEC
        END-IF
           ELSE
        MOVE CHECK-AC          TO   PGM3-AC
        MOVE BAL   TO   PGM3-BAL
           END-IF
           .
C000-EXIT.
           EXIT.

CHAPTER 8 联机及批量程序的一些差�?/a>

扚w��	联机
对大量数据的集中处理	对特定的��量数据操作
一般在非营业时间运�?/td>	一般在营业旉��q�行
�Ҏ��率要求较�?/td>	对实时性要求较�?/td>
在操作系�l�中通过后台作业��来调度�q�行	在CICS�q�_��上通过CICS�Ȁ�z�运�?/td>
资源�׃��业流和程序管�?/td>	资源由CICS集中��理�Q�程序对资源使用通过调用CICS提供的语�?/td>
一般会使用INPUT-OUTPUT SECTION. FILE-CONTROL. FILE SECTION.	不会使用INPUT-OUTPUT SECTION. FILE-CONTROL. FILE SECTION.
出错处理通过��文件状态字	出错处理通过��CICS�q�回状态字

CHAPTER 9 COBOL-II �~�程规范

1. 使用�i�構化的�R�程�Ҏ�� ,開發一致的、可理解的和易于�E�護的COBOL�E�序 .�i�構化編�E�應遵��@“KISS”法則，卻I��“Keep It Simple & Stupid�?for EASY TO READ ,EASY TO DEBUG ,EASY TO MAINTAIN.
2.只用��序�Q��@环，选择3�U�程序結構及�i�合去表�C�程序邏�?
3.每個控制結構只有一個入口和一個出口（�i�構可以是一個模塊，�D�，��Q�子�E�序�Q��?
4.不要爲了時空效率而犧牲清晰性�?
5.�E�序的清晰性首先在於邏輯的清晰�Q�然後才是格式的清晰�?
6.清晰的格式有助於清晰的思維�?
7.��Z��所有變量在被��用時都被正確地置初倹{�?
8.避免�ȫ用語言特色�Q�應使程序簡潔易讀�?
9.使用有意��的、簡化的變量名及詞語標號�?
10.盡量使用標準的公用子�E�序埯��既定的程序功能�?
11.避免不必要的複雜的算術和邏輯表達式�?
12.避免重復的控制序列以及不必要的轉�U�R�?
13.不要用注釋去�_��地重復程序代��|��要��得注釋有價倹{�?
14.嚴格控制非限制性轉�U�語句“GOTO”的使用�Q�除非下面兩�E�情況：當不使用時將會模�p�而不是澄清功能；
在同一�E�序單元内正向轉�U�R�?br />
出处...

@yeafee 2007-07-11 11:25 发表评论

IDENTIFICATION DIVISION. PROGRAM-ID. PROGRAM1.	�l�程序加上标识以便识�?
ENVIRONMENT DIVISION. CONFIGRATION SECTION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT PRODFILE ASSIGN TO FILE1.	描述�E�序中用到的文�g与外部文件的关系及控制信�?br />
DATA DIVISION. FILE SECTION. FD PRODFILE LABEL RECORD IS STANDARD. 01 PROD-REC PIC X(200). WORKING-STORAGE SECTION. 01 WS-VARIBALES. 05 WS-I PIC 9(2).	描述�E�序中用到的所有文件及其记录中各数据项的属性及�E�序中用到的所有中间数据项的描�q?
PROCEDURE DIVISION.	�E�序的核心部�?他决定计��机�q�行什么操�?�?文�g的读写及其他处理

亚洲最大在线观看,国产精品亚洲一区二区三区在线观看,亚洲熟女乱色一区二区三区

COBOL 教程