Cobol基本语法总结

1、口不儿基本語法一、 COBOL 基本語法compla 項目使用的 Cobol 是 Micro Focus 公司生产的 Cobol, 采用在 HP-UNIX 上运行。 cobol 的书写格式（每行）1、前 6 列为序号区 （一般不编辑 ）2、第 7 列为标示列，仅可以写如下几个标示符。a. “ ” 注释符 （注释当前行的代码 ）b “/“注释符 （注释当前行的代码 ,程序编译时，强制程序清单另起一页, 不建议使用 ）c “ “ 字符串连接符d “D ”DEBUG 行标示符 （ 程序为 DEBUG 模式时，标有该标示符的语句行代码执行，否则和注释行效果一样 ）3、第 8 列 -11 列为 A 区，

2、包括以下内容。a 部、节名。b 层号 014、第 12 列 -72 列为 B 区，过程部的程序必须写在 B 区中。5、第 72 以后部分不能编辑。、 cobol 的语法结构 （ 几大部分 ）1 、 标 示 部 （IDENTIFICATIONDIVISION）: 提 供 程 序 的 一 般 性 文 档 说 明 , 本 项 目 只 保 留 程 序 名(PROGRAM-ID) 一项。2 、 环境部 (ENVIRONMENT DIVISION):提供程序外部有关的项目a. 配置节 (CONFIGURATION SECTION) . 指定源计算机 (SOURCE-COMPUTE). . 目标计算机 (O

3、BJECT-COMPUTE).WITH DEBUGGING MODE)CNS-ENV-PARMCNS-ENV-NAME. .设置 debug 模式(SOURCE-COMPUTE H9000V . 指定读环境变量设置 .SPECIAL-NAMES.ENVIRONMENT-VALUEISENVIRONMENT-NAMEISb. 输入输出节 (INPUT-OUTPUTSECTION).文件的物理路径的定义 方法一： （写死文件路径 ）SELECT FILE-LOG ASSIGN /usr3/WSI/commonlog/WSI1101.logORGANIZATION IS LINE SEQUENTIA

4、L. 方法二 :(过程部中动态指定文件 )SELECT FILE-LOG ASSIGN TOSELECT-FILEORGANIZATION IS LINE SEQUENTIAL.在数据部定义字符串变量 SELECT-FILE, 在文件 FILE-LOG 打开前动态指定文件路径。 方法三 :（环境变量中动态指定文件 ）口朮儿基本語法SELECT FILE-LOG ASSIGN TO EXTERNAL EXTFILELOGORGANIZATION IS LINE SEQUENTIAL.在该程序运行前，设置环境变量 :setenv dd_ EXTFILELOG /usr3/WSI/nco035/ls

5、c/tstlog/WSIXXXX.log3 、数据部 (DATA DIVISION) 。程序中的变量都在数据部中定义， Cobol 中没有全局变量和局部之分。 (变量的类型结构参照5.变量类型)a. 文件节 (FILE SECTION)给环境部定义的文件指定一个 RECORD 变量，读写文件用 :FD FILE-LOG.01 RECORD-LOG PIC X(2000).b. 工作存储节定义程序中用到的临时变量。a) COBOL 变量定义需要加层号 (表示层次关系 ),层号从01开始如：01I PICX(10).组合项如：01WORK-AREA.05NUM-1PIC9(09).05STR-1P

6、ICX(10)b) 层号依次排列顺序为：01 ,05,10,15,20,30c. 连接节 子程序的参数的定义。4 、 过程部 (PROCEDURE DIVISION)程序的主体 ：程序的逻辑运算在此操作。a、每个程序分为四大节 (模块 ), 前处理 (初始化变量 ,设定初始值等 ) 主处理 ( 程序业务处理部分 ) 后处理 ( 程序正常结束时的出口 ) 错误处理 ( 程序异常结束时的出口 )b、对于子程序， PROCEDURE DIVISION 后应列出 LINK 节中定义的参数。如 ： PROCEDURE DIVISION USING LINK-INPUT-DATA LINK-OUTPUT-

7、DATA. c 、 程序结束。 主程序 STOP RUN. 子程序 GO BACK.5 、变量类型COBOL 程序的基本变量类型分为两大类字符串型 (X) 、数值型 (9)。a 字符串型01 STRING-A PIC X(100).100 个字符长的变量，程序可以局部操作一个变量 ( STRING-A(start： length) 如： MOVE ALL “X”TO STRING-A(2：10)(将变量STRING-A 第2位开始10长度的内容全赋为”字符)b数值型种类类型说明备注DISPLAY9(m)无符号整数，每位占用一个字节， 显示或输岀到文件时，为零的数位 显示”0”(1=m =18)

8、例如：01 IPIC 9(8).变量I占用8个字节。I = 1 时，输出显示时为 00000001S9(m)带符号整数，每位占用一个字节， 符号位不占位，显示时，为零的数 位显示” ”，符号显示在最后，输岀 到文件时，为零的数位显示 ”，符 号丢失。(1=m =18)例如：01 IPIC S9(8).变量I占用8个字节。I = 1 时，显示时为 00000001 + 输出到文件时为 00000001DISPLAY9(m)V9(n)无符号小数(小数点不显示，不占位) 每位占用一个字节，显示或输岀到 文件时，为零的数位显示 ”(1=m + n =18)例如：01 IPIC 9(4)V9(2).变量

9、I占用6个字节，整数位4位， 小数位2位。I = 1.1 时，输出显示时为 000110S9(m)V9(n)带符号小数(小数点不显示，不占位) 每位占用一个字节，符号位不占位， 显示时，为零的数位显示”0”，符号 显示在最后，输岀到文件时，为零 的数位显示”符号丢失。(1=m + n =18)例如：01 IPIC S9(4)V9(2).变量I占用6个字节，整数位4位， 小数位2位。I = 1.1 时，显示时为 000110+输出到文件时为000110岀力+Z(m)带符号整数，每位占用一个字节， 符号位占位，显示和输岀到文件时， 为零的高位显示为空格，正数时，符 号位为”+”负数时，符号位为”(

10、1=m =18)例如：01 IPIC +Z.变量I占用5个字节，I = 1时，输出显示时为+1I = -1时，输出显示时为-1-Z(m)带符号整数，每位占用一个字节， 符号位占位，显示和输岀到文件时， 为零的高位显示为空格，正数时，符 号位为空格负数时，符号位为”(1=m =18)例如：01 IPIC -Z(4).变量I占用5个字节，I = 1时，输出显示时为1I = -1时，输出显示时为-1+Z(m).Z(n)带符号小数，每位占用一个字节，例如：01 I PIC+Z4).z(2)符号、小数点占位，显示和输出到 文件时，整数部为零的高位显示为 空格，小数部为零的低位显示为0;正数时，符号位为

11、” ”负数时，符 号位为 ”(1=m +n =18)变量1占用8个字节，I = 1.1时，输出显示时为+1.10I = -1.1时，输出显示时为-1.10-Z(m).Z(n)带符号小数，每位占用一个字节，例如：01 IPIC -Z(4).Z(2)符号、小数点占位，显示和输出到变量1占用8个字节，文件时，整数部为零的高位显示为I = 1.1时，输出显示时为1.1空格，小数部为零的低位显示为空 格；正数时，符号位为 ” ”负数时，符号位为 ”(1=m + n =18)I = -1时，输出显示时为-1.1Comp,comp-5,comp-39(m) comp-5无符号整数，数据以二进制方式存 贮，显

12、示和9(m) 一样，不能出力(1= m =18)S9(m) comp-5有符号整数，数据以二进制方式存 贮，显示和S9(m)类似，只是符号 在前面，不能出力，(1= m = 18)9(m)v9(n) comp-5无符号小数，数据以二进制方式存贮，显示和9(m)v9(n) 一样，不能岀力(1= m + n =18)S9(m)v9(n) comp-5有符号整数，数据以二进制方式存贮，显示和 S9(m)v9(n)类似，只是符号在前面，不能岀力，(1= m + n 大于ISLESSTHAN=小于等于ISNOT LESSTHANNOT =大于等于ISNOT EQUALTONOT =不等于判断字符串能否转

13、换为数字。A1IS NUMERICA1IS NOT NUMERIC11 、PERFORM 语句 PERFORM XXX-RTN.调用子节，直到遇到第一个只包含EXIT语句的段中止，回到该调用语句的下一条语句EXIT 只与它搭配有效。所以节的定义规定如下 :XXX-RTNSECTION.语句块 XXX-EXT. EXIT.PERFORM XXX-RTN N TIMES. 循环调用子节 N 次PERFORM XXX-RTN UNTIL N 30. 循环调用子节，直到 N 大于 30。PERFORM UNTIL 表达式语句 END-PERFORM. 循环调用语句块 ,表达式判断在语句块前进行。PER

14、FORM VARYINGXFROM A BY B UNTIL X 12语句 END-PERFORM. 循环调用语句块 ,相当于 FOR 循环。12 、EVALUATE 语句EVALUATE 变量、常量、表达式WHEN ANYTRUEFALSE(NOT) 常量 1 THRU (THROUGH) 常量 2WHENOTHER .END -EVALUATE ANY ：任何变量、常量值 TRUE 、FALSE ：关系表达式的结果 (NOT) 常量1 THRU (THROUGH)常量2: 值(不)在常量1和常量2 构成的闭区间 另外，在 WHEN 后面可以包含简单的关系表达式。如:EVALUATE AWH

15、EN = 10EVALUATE BWHEN = 1 OR = 2 OR = 3语句 WHEN OTHER语句 END-EVALUATEWHEN OTHER语句 END-EVALUATE.13 、另外 ,不同的 COBOL 系统提供了不同内部函数，建议少用内部函数， ORD 取得字符的ASICII码如：MOVE FUNCTION ORD (“A”)? UPPER-CASE 字母小写转换成大写 如：MOVE FUNCTION UPPER-CASE (STRING(START:1) LOWER -CASE 字母小写转换成大写 如：MOVE FUNCTION LOWER-CASE (STRING(ST

16、ART:1) REVERSE对字符串中所有字符进行倒序如：MOVE FUNCTION REVERSE(STRING-1) LENGTH取得变量的定义长度，如：以下提供几个通用的内部函数TO NUMBER.TO STRING(START:1)TO STRING(START:1)TO STRINGCOMPUTE LEN = FUNCTION LENGTH(STRING)二、 PRO*COBOL 基本語法COMPLA 使用的 PRO*COBOL 是 ORACLE 公司提供的在 COBOL 程序中嵌入 SQL 语句的一种方法，使得程序方 便地访问操作 ORACLE 数据库； PRO*COBOL 程序经

17、过 ORACLE 提供的预编译器预编译生成中间 COBOL 程序后，程 序中所有的 SQL 语句直接调用 ORACLE 库函数， 再经过 COBOL 编译器同一般 COBOL 程序一样编译生成各种可执行模 块 ,由于程序中直接调用 ORACLE 库函数，所以它们访问操作 ORACLE 数据库的速度很快，基本语法如下。 一、特点。 所有的SQL或数据库操作相关语句均被括在 ” EXEC SQL ”和 END-EXEC ”之间，并且它们只能包含一条语 句，如 :EXECSQLSQL 语句END-EXEC.所有访问操作数据库的变量都必须是主变量“EXEC SQL三、 数据部内容。END-EXEC 及

18、其包含的语句都必须从 12 列或 12 列以后开始引用两个对象 SQLCA, ORACA.EXEC SQL INCLUDE SQLCAEND-EXEC.EXEC SQL INCLUDE ORACAEND-EXEC.主变量定义。EXEC SQL BEGIN DECLARE SECTION END-EXEC.（主变量定义开始）EXEC SQL END DECLARE SECTION END-EXEC.（主变量定义结束） 主变量都必须定义在这里，具体定义和一般的COBOI变量一样。VARCHA型变量（可变长度）.该变量定义就是在X型变量后加关键字 VARYING如:05 STRINGPIC X（10

19、0） VARYING.它实际包含两部分（预编译后的中间 COBO程序可见）05 STRING.06 STRING-LEN PIC S9（4） COMP.06 STRING-ARR PIC X（100）.STRING-LEN表示字符串的实际长度，STRING-ARR表示字符串的实际内容。SQL 语句中，只能用 STRING.从表中得到值时，STRING-LEN自动被赋值。向表中写入值时，STRING-LEN需要手工指定长度，SQL将 STRING（1:STRING-LEN部分有效字符串写到表中。 定义主变量时，引用 COPY句 : EXEC SQL INCLUDE WSITIIOl.cpy EN

20、D-EXEC. 游标的定义可以放在数据中。四、数据部中SQL语句的基本语法1 ）、 错误扑获ORACLE错误扑获是一个全局性的标志，在一个事务（在PRO*COBO中，ORACLE务以COMMI或ROLLBACKS分割点）中，后一个错误扑获会覆盖前一个错误扑获设置。 遇至U SQL警告（SQLCODE 0 ）继续EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC. 遇至U SQL错误(SQLCODE 0 )继续EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC. 遇至U SQL错误(SQLCODE 0 )跳转EXEC

21、 SQL WHENEVER SQLERROR GOTO ORA-ERROR END-EXEC.2 )、 数据连接数据库连接在一般的项目开发中用不到，只用于测试程序中(不连接外部数据库)方式一(USERNAM和 PASSWORD开,女口： USERNAME =“OPS$LAPROC51 PASSWORD = “LAPROC ) EXEC SQLCONNECT :USERNAME IDENTIFIED BY :PASSWDEND-EXEC.方式二(USERNAM和 PASSWORD并 ,女口： UID = “ OPS$LAPROC51/LAPR”CEXEC SQL CONNECT :UIDEND-

22、EXEC.3)、 静态SQL语句 单条记录的检索EXEC SQLSELECT ENAME,SAL,COMMINTO :HST-EMP-NAME, :HST-SALARY, :HST-COMMISSION:HST-COMM-INDFROM EMP WHERE EMPNO = :HST-EMP-NUMBEREND-EXEC.注：上例中的COMM-IND指示变量，在检索操作中每个接受主变量都可指定一个指示变量(9(04) COM型)，它用来判断主变量是不是接受至一个空值 (NULL) (主变量不能接受空值) ，当指示变量为 -1 时，表示对应的主变 量应该接受至一个空值(主变量自己表示不出来) 多条

23、记录的检索(CURSORS标) 游标的定义EXEC SQL DECLARE CUR_NAME CURSOR FOR SELECT MSG_CD ，MSG_1，MSG_2FROM WWWTMSG1END-EXEC.游标的定义：将 SQL查询语句声明为一个游标，不调用ORACL库函数，不会更新 SQLCOD的值。 游标的打开EXEC SQLOPEN CUR_NAMEEND-EXEC.（此时游标指针在第一条游标的打开：用游标定义的 SQL语句检索数据库，将检索结果生成一个游标对象, 记录前一位置，无法确定游标中有没有记录) 。 游标中记录的抽取EXEC SQLFETCH CUR_NAMEINTO :

24、 HST-MSG-CD ,: HST-MSG-1,: HST-MSG-2END-EXEC.游标中记录的抽取：将游标中的记录抽取到相应的主变量中，一次抽取一条。 游标的关闭EXEC SQLCLOSE CUR_NAMEEND-EXEC.游标的关闭 : 将现有的游标对象释放，游标再次打开前，必须关闭。 更新EXEC SQLUPDATE WWWTMSG1SET MSG_1 = : HST-MSG-1,MSG_2 = : HST-MSG-2WHERE MSG_CD = : HST-MSG-CDEND-EXEC. 删除EXEC SQLDELETE FROM WWWTMSG1WHERE MSG_CD = :

25、 HST-MSG-CDEND-EXEC 插入EXEC SQLINSERTINTO WWWTMSG1(MSG_CD,MSG_1,MSG_2)VALUES (:HST-MSG-CD,:HST-MSG-1,:HST-MSG-2)END-EXEC 事务的提交方式一（释放连接）EXEC SQL COMMIT WORK RELEASE END-EXEC.方式二（不释放连接）EXEC SQL COMMIT WORK END-EXEC. 事务的回滚方式一（释放连接）EXEC SQL ROLLBACK WORK RELEASE END-EXEC.方式二（不释放连接）EXEC SQL ROLLBACK WORK

26、END-EXEC.典型的SQLCOD值SELECT1403 : 没有检索到记录FETCH （游标中记录的抽取）1403 :游标指针FETCH到游标的尾部UPDATE1403 :没有更新的记录-60 :死锁-2049:由于死锁导致系统超时DELETE1403 :没有删除的记录-60 :死锁-2049:由于死锁导致系统超时INSERT-1 :插入的记录已存在-60 :死锁-2049:由于死锁导致系统超时典型ORACL内部变量SQLCODE : SQL 语句运行后得到的返回值SQLERRMC: SQL 语句运行后得到的返回信息SQLERRD（3）: SQL 语句运行处理的记录条数4）、动态SQL语句

27、 动态一（直接执行 SQL字符串） 方式一MOVE INSERT INTO DYN1 VALUES （TEST） TO DYNSTMT.EXEC SQL EXECUTE IMMEDIATE :DYNSTMT END-EXEC. 方式二EXEC SQL EXECUTE IMMEDIATEINSERT INTO DYN1 VALUES (TEST)END-EXEC.动态一：只用于没有任何参数和返回结果的SQL语句操作动态二（用于非检索SQL语句）方式一（带参数）MOVE INSERT INTO EMP （EMPNO, DEPTNO） VALUES （:V1, :V2） TO DYNSTMT-ARR

28、.EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC.EXEC SQL EXECUTE S USING :EMPNO, :DEPTNO1 END-EXEC.其中V1,V2为形参，S为PREPARED成的临时对象 方式二（不带参数）STRING INSERT INTO DELIMITED BY SIZE EMP （EMPNO, DELIMITED BY SIZE DEPTNO） DELIMITED BY SIZE VALUES （ DELIMITED BY SIZEEMPNODELIMITED BY SIZE , DELIMITED BY SIZEDEPTNO1

29、DELIMITED BY SIZE ） DELIMITED BY SIZEINTO DYNSTMT.EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC.EXEC SQL EXECUTE S END-EXEC.动态三（用于检索SQL语句）方式一（带参数）MOVE SELECT ENAME FROM EMP WHERE DEPTNO = :V1 TO DYNSTMT.EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC.EXEC SQL DECLARE C CURSOR FOR S END-EXEC.EXEC SQL OPEN C US

30、ING :DEPTNO END-EXEC.EXEC SQL FETCH C INTO :ENAME END-EXEC.EXEC SQL CLOSE C END-EXEC. 方式二（不带参数）STRING SELECT ENAME FROM DELIMITED BY SIZE EMP WHERE DEPTNO = DELIMITED BY SIZE DEPTNODELIMITED BY SIZE DELIMITED BY SIZEINTO DYNSTMT.EXEC SQL DECLARE C CURSOR FOR S END-EXEC.EXEC SQL OPEN C END-EXEC.EXEC

31、SQL FETCH C INTO :ENAME END-EXEC.EXEC SQL CLOSE C END-EXEC.所有的检索SQL语句都必须采用游标方式。三、开发环境、概要MQ SERVERORACLE SERVER(inforstar mq)8.1.7OPENTP1SERVER(applicatoin server)HP UNIX(unix server)Compla项目的开发环境以HP UNIX B.11.11为操作系统以OPENTP1 SERVER（日立制品）为APPLICATION SERVER, COMPLA 所有的程序都基于OPENTP1.以MQ SERVER（INFOR ST

32、AR MQ ,IBM MQ的改造品）完成异步通信方式。以ORACLE SERVER 为数据库系统、通信处理方式Compla项目采用两种处理方式 RPC（同步）,MQ（异步）. MQ （Message Queue ）方式MQ發信MQ受信處理示意圖MQ方式如上图所示，AP制御以SUP的方式常驻于 OPENTPT，监视受信MQSERVE，受信MCSERVER 中一有MC数据，AP制御就取出来，传给DB同期更新程序进行处理，更新关联 DB发信方和 受信方以受信MQSERVE隔离，互相不影响，完成异步处理，在项目开发中，主要开发 DB同 期更新，不涉及具体环境。 RPC (Remote Process

33、Call) 方式RPC 方式为OPENTP1 SERVES供的进程间访问方式，由 SUP( Service Use Process) 和 SPP ( Service Provide Process) 组成。Compla 项目就是制作若干 SPP常驻于 OPENTP1 中，供其它系统调用。如下具体介绍 SUP和SPP的基本结构和基本函数.- SUP (服务使用者) RPC OPEN口乃S 開始 )01 RPC-OP-ARG.02 REQESTPIC X(8) VALUE OPEN .02 STATUS-CODEPIC X(5) VALUE SPACE.02 FILLERPIC X(3).02 F

34、LAGSPIC S9(9) COMP VALUE ZEROCALL CBLDCRPCUSING RPC-OP-ARG.进入OPENTP1环境RPC ADM(二一廿廿一八開始処理完了報告)01 ADM-ARG.02 REQUESTPIC X(8) VALUE COMPLETE.02 STATUS-CODEPIC X(5) VALUE SPACE.02 FILLERPIC X(3).02 FLAGSPIC S9(9) COMP VALUE ZERO.02 FILLERPIC X(3).CALL CBLDCADM USING ADM-ARG.如果SUP常驻OPENTP下，该函数向OPENTP报告注册

35、信息。（不常驻OPENTPT的SUP程序不调用该函数）RPC CALL （遠隔要求）01 RPC-CALL-ARG1. （CALL-MAIN）02 REQESTPIC X(8) VALUE CALL .02 STATUS-CODEPIC X(5) VALUE SPACE.02 FILLERPIC X(3).02 FLAGSPIC S9(9) COMP VALUE ZERO.02 DESCRIPTORPIC S9(9) COMP VALUE ZERO.02 S-NAMEPIC X(32) VALUE SPACE.02 G-NAMEPIC X(32) VALUE WSISPPSV.01 RPC-C

36、ALL-ARG2. (INPUT-DATA)02 INDATA-LENGPIC S9(9) COMP VALUE ZERO02 INDATAPIC X(40) VALUE SPACE.01 RPC-CALL-ARG3. (OUTPUT-DATA)02 OUTDATA-LENG PIC S9(9) COMP VALUE ZERO02 OUTDATAPIC X(40) VALUE SPACE.CALL CBLDCRPC USING RPC-CALL-ARG1 RPC-CALL-ARG2 RPC-CALL-ARG3.调用OPENTP下注册的指定组(G-NAME内的指定服务(S-NAME)。注意在SU

37、F程序中调用前必须指定入力 一夕的长度(INDATA-LENG和出力一夕 的长度(OUTDATA-LENGRPC CLOSE01 RPC-CL-ARG.02 REQEST PIC X(8) VALUE CLOSE .02 STATUS-CODE PIC X(5) VALUE SPACE.02 FILLERPIC X(3).02 FLAGSPIC S9(9) COMP VALUE ZERO.CALL CBLDCRPC USING RPC-CL-ARG退出OPENTP环境- SPP （服务提供者）如图所示，一个 SPP Module 由一个 SPP MAIN ,多个 SPP SERVICE ，一个

38、 SPPDEFINE三部分组成。一个 SPP Module 在OPENTP1 下以一个组的方式注册。SERVICESPP MAINRPC OPEN口夕厶開始 ）01 RPC-OP-ARG.02 REQESTPIC X(8) VALUE OPEN02 STATUS-CODEPIC X(5) VALUE SPACE.02 FILLERPIC X(3).02 FLAGSPIC S9(9) COMP VALUE ZERO.CALLCBLDCRPC USING RPC-OP-ARG.进入OPENTP环境RPC MAINLOOP (SPP開始）01 RSV-ARG.02REQUESTPIC X(8) VA