COBOL

 

l       Countine 和 Gogack 的使用

l       COBOL程序分为四个division，其中environment和data division是可选的

l       Identification division 通常包含PROGRAM-ID, AUTHOR, INSTALLATION, WRRTTEN-DATE, COMPLIED-DATE. 其中program－id必须在改division的第一行，名字必须和文件名字一致。其它则是可选的，编译时当作注释了。

l       Environment division 通常包含 configuration secion：source－computer，object－omputer；input－output section：file control

l       Data division：通常包含file section和working－storage section： 前者是描述用于发射到或者接收来自外设的数据（用FD结构），后者定义本程序要用到的数据

l       所有的division， section， paragraph name，FD entry和01 level entry从A区开始，其余B区开始。

l       COBOL中5中基本数据类型： alphabetic，numeric，alphanumeric，edited numeric，edited alphanumeric。

l       COBOL中3中lateral：numeric；non－numeric；Figurative。对于numeric的，最长不能超过18为，小数点不能在最右边，如果有符号，只能在最左边。对于non－numeric是用引号括起来，最长160位。对于figurative常有：ZERO(S) ZEROES, SPACE(S), HIGH-VALUE(S), LOW-VALUE(S), QUOTE(S)(单引号), ALL

l       COBOL中data name有3部分组成：level number，pic，value。Level number： 66：rename clause，77： independent item， 88：condition clause。

l       PIC中常用符号：9,A,X,V,S，另外在pic中可以使用以下edit 符号： Z,*, , +,-,CR,DB,B,$,/,.BLANK

l       ADD时：ADD NUM1, NUM2,…NUMn to RES1,RES2….RESn （GIVING GIV1，GIV2…GIVn）。的意思是先把NUM1, NUM2,…NUMn加起来然后再把这个值分别加上RES1,RES2….RESn或者把结果分别赋值给GIV1，GIV2…GIVn，同理退到SUBTRACT

l       MULTIP a BY b Giving c.

l       DIVIDE A BY B 21/3=7, DIVIDE B INTO A: 21/3=7, DIVIDE A BY B GIVING C REMAINDER D.  (A=21, B=3).

l       MOVE，如果移动的是alphabet和alphanumeric则均是从左到右填充（可以在pic后面用JUSTIFIED RIGHT强制从右向左），右边要么被裁减，要么保留原来的值（部分替换），但是如果是numeric或者edited numeric则是全部被替换，一小数点位置对齐（如果没有明确的小数点位置，则认为最右边是小数点）向两边扩展，多了则剪裁，少了则加0或者blank。三种格式： move 。。。to 。。。；move。。。of。。。to。。。of。。。； move。。。corresponding（corr）

l       GO TO PARAGRAPH_NAME,程序跳转指令

l       COBOL中的四种条件：关系条件（用关系运算符【>,GREATER THAN…】比较大小，可以结合AND，OR形成组合条件）, 符号条件（identifier is 【not】 POSITIVE/NEGATIVE/ZERO），类型条件（identifier is 【not】 ALPAHBETIC, NUMERIC, ALPHABETIC-LOWER, ALPHABETIC-UPPER, UerDefinedClassName），条件变量（用88 level number定义的）

l       条件变量的定义： 由两部分组成 group item 和 88 level item。前者可以必须由pic，可以有value，后者定义格式：88 identifier  VALUE (IS/ARE) XXX(THRU XXX).

l       PERFORM 共有7中变体，分别是simple perform（PERFORM + PARAGRAPH_NAME）, inline perform(PERFORM + 指令语句)，嵌套perform，perform paragraph_name through paragraph_name, perform xxx N TIMES, perform xxx UNITL…, perform xxx varying x from x by x until x. 前面4中的任何一种结构都可以用于后面三种中去。

l       Cobol中控制流程结束STOP RUN.

l       REDEFINE: 即是对同一块内存区域进行重定义。用两个或者更多的变量指向通过一个内存区域，redefine不能由于对66，88和file section中的01level。

l       RENAME则是用于对用一个group中的连续定义的item进行捆绑。格式： 66  xxx rename xxx 1THRU xxx2。且xxx1和xxx2不能为01 level，也不能有occur子句

l       USAGE: 用于指明数据存贮格式： USAGE IS DISPLAY/COMPUTATIONAL/COMP-1/COMP-2/COMP-3. 其中COMP-3也叫packed－decimal（每个字符占用半个字节，符号存于最右边的半个字节）。

l       COBOL对文件的读写操作：涉及到三个概念FIELD，RECORD和FILE。需要用到record buffer，在DATA DIVISION中FILE SECTION的FD中定义。每个文件对应一个record buffer。打开文件，则其在内存中自动被创建，关闭文件，则自动被删除。

l       COBOL对文件的操作： OPEN, READ, WRITE, REWRITE, CLOSE. DELETE

l       COBOL中操作的文件类型常有sequential file（顺序组织，顺序访问，不能insert和delete），index sequential file(由两个文件组成，data file和index file，data file有两个fields，index和data，而index file 也有两个域，index和在data file中对应的地址，组织方式：indexed，可以sequential和random)，relative file依靠relative record number定位，组织方式：relative，访问方式：sequential和random。

l       OPEN XXX FILE_NAME. 其中打开模式： input，i－o for read，OUTPUT, EXTEND FOR WRITE, I-O FOR REWRITE. 对不同类型的文件，格式有所不同。

l       无论哪种文件类型CLOSE格式均是一样：CLOSE filename1 [WITH LOCK]

l       对sequential文件操作

l       File－control的格式：

SELECT file-name ASSIGN TO implementor-name

[ ORGANIZATION IS SEQUENTIAL ]

[ ACCESS MODE IS SEQUENTIAL]

[ FILE STATUS IS identifier ].

l       READ格式：

READ file-name [ NEXT RECORD ] [ INTO identifier ]

[ AT END imperative statement-1 ]

[ NOT AT END imperative statement-2 ]

[ END-READ ].

l       WRITE格式：

WRITE record-name [ FROM identifier-1 ]

[ { BEFORE, AFTER } ADVANCING

{{ integer-1, identifier-2 } { LINE, LINES }}.

l       REWRITE格式：REWRITE record-name [ FROM identifier-1 ]

l       对indexed sequential file的操作

l       File－control的格式：

SELECT file-name ASSIGN TO { implementor-name }

ORGANIZATION IS INDEXED

ACCESS MODE IS { SEQUENTIAL, RANDOM }

RECORD KEY IS data-name-1

[ ALTERNATE RECORD KEY IS data-name-2

WITH DUPLICATES]

[ FILE STATUS IS data-name-3 ].

l       READ格式：

READ file-name [ NEXT RECORD ] [ INTO identifier-1 ]

[ KEY IS identifier-2 ]

[ INVALID KEY imperative-statement-1 ]

[ NOT INVALID KEY imperative-statement-2 ]

[ END-READ ]

l       WRITE格式：

WRITE record-name [ FROM identifier-1 ]

[ INVALID KEY imperative-statement-1 ]

[ NOT INVALID KEY imperative-statement-2]

[ END-WRITE ].

l       REWRITE格式：

REWRITE record-name [ FROM identifier-1 ]

[ INVALID KEY imperative-statement-1 ]

[ NOT INVALID KEY imperative-statement-2]

[ END-REWRITE ].

l       DELETE格式：

DELETE file-name RECORD

[ INVALID KEY imperative-statement-1 ]

[ NOT INVALID KEY imperative-statement-2]

[END-DELETE].

l       START：可以人为指定读取文件的开始位置。

START file-name

[ KEY IS { =, >, < } data-name]

[ INVALID KEY imperative-statement-1]

[ NOT INVALID KEY imperative-statement-2 ]

[END-START].

l       对relative file 的操作：

l       File－control格式：

SELECT file-name ASSIGN TO { implementor-name }

ORGANIZATION IS RELATIVE

ACCESS MODE IS { SEQUENTIAL, RANDOM }

RELATIVE KEY IS data-name-1

[ FILE STATUS IS data-name-2 ].

l       READ的格式： 如果是sequential访问，read格式和对sequential file的read格式一样。如果为random访问，格式如下

READ file-name RECORD ] [ INTO identifier ]

[ INVALID KEY imperative-statement-1 ]

[ NOT INVALID KEY imperative-statement-2]

[ END-READ ].

l       WRITE格式：和对indexed sequential文件的write格式一致

l       REWRITE格式：和对indexed sequential文件的rewrite格式一致

l       DELETE格式：和对indexed sequential文件的delete格式一致

l       COPY: 发生在编译阶段，首先把要copy的文件放入到copylib下，然后使用copy指令，格式如下： copy file_name 或者 COPY FILE_NAME REPLACING XXX BY XXX.

l       CALL：函数调用，支持两种调用方式： by reference和by content，缺损为by content。被调用程序必须满足：如果有参数传递，则要有一个linkage section，且在working－storage section之后定义，linkage section中的变量顺序顺便，procedure division之后要用using 指明被传入的参数，用exit program代替stop run。