COBOL非常见知识点一

1. ’advancing‘是‘前进’的意思，这里有换行和换页的用法。下列是还数字是换2行，3行的写法。

MOVE  H01-AREA       TO    OUT3-DTL.
WRITE OUT3-FILE-REC  FROM  OUT3-REC  AFTER  ADVANCING  PAGE.
MOVE  H02-AREA       TO    OUT3-DTL.
WRITE OUT3-FILE-REC  FROM  OUT3-REC  AFTER  ADVANCING  3.
MOVE  H03-AREA       TO    OUT3-DTL.
WRITE OUT3-FILE-REC  FROM  OUT3-REC  AFTER  ADVANCING  2.

2.DISPLAY '*******' ' ' with no advancing.的用法（with no advancing表示不进行常规的display换行操作）

000000 IDENTIFICATION   DIVISION.
000000 PROGRAM-ID.      STUDY-1.
000000 ENVIRONMENT      DIVISION.
000000 DATA             DIVISION.
000000 WORKING-STORAGE  SECTION.
000000  77    I         PIC   99.
000000  77    J         PIC   99.
000000  77    DA3       PIC   99.
000000  77    DA4       PIC   Z9.
000000  77    DA5       PIC   Z9.
000000  77    DA6       PIC   Z9.
000000*
000000 PROCEDURE        DIVISION.
000000 A10.
000000     PERFORM  A20 VARYING  I  FROM  1 BY 1 UNTIL I > 9
000000                  AFTER    J  FROM  1 BY 1 UNTIL J > I.
000000     STOP RUN.
000000*
000000 A20.
000000     COMPUTE DA3       =      I   *   J .
000000     MOVE    DA3       TO     DA4.
000000     MOVE    I         TO     DA5.
000000     MOVE    J         TO     DA6.
000000*  j * i : 1*1=1
000000*          1*2=1  2*2=1
000000*          1*3=1  3*2=1  3*3=1
000000*          ......
000000     IF      I         =    J
000000         DISPLAY  DA6  '*'  DA5  '='  DA4 '  '
000000       ELSE
000000         DISPLAY  DA6  '*'  DA5  '='  DA4 '  ' WITH NO ADVANCING
000000     END-IF.

字符串连接语句（STRING语句）
（1）STRING是字符连接语句，可以将多个发送项字符发送到一个接收项中。
STRING A, B, C DELIMITED BY SIZE INTO D.
（2）DELIMITED是界定短语，用来控制各个发送项的终止位置。
DELIMITED BY SIZE 表示把每个发送项的内容全部送到接收项；
DELIMITED BY SPACE 表示发送项去空格送到接收项；
DELIMITED BY 'H' 表示发送项去字符‘H’传送到接收项。
案例1： STRING A, B, C DELIMITED BY SIZE INTO D.
案例2： STRING A DELIMITED BY 'H' B DELIMITED BY 'Y' C DELIMITED BY 'W' INTO D.
说明：使用界定短语，当遇到界定字符，只会把界定字符之前的字符段送到接收字段；界定字符后的数据丢失。
（3）POINTER是指针短语，控制接收项开始接收字符的位子。
STRING A,B,C DELIMITED BY SIZE WHIT POINTER T INTO D.
如果T=3，则表示接收项D从第三位开始接收数据；T不能小于1或者大于接收项长度,否则发生数据溢出。
（4）OVERFLOW是溢出短语，用来判断是否发生溢出，以及发生溢出后所做的处理。
STRING A,B,C DELIMITED BY SIZE INTO D ON OVERFLOW DISPALY 'OVERFLOW'.
如果发生溢出就显示“OVERFLOW”信息。

字符串分解语句（UNSTRING语句）
（1）UNSTRING是字符串分解语句，是STRING的逆操作。
UNSTRING A INTO B, C, D.
说明：将字符串A分解，如果B项接收长度满了则C开始接收，如果C项接收长度满了D开始接收。
（2）使用DELIMITED进行字符串分解界定，是将字符串按照界定字符分成若干部分。
UNSTRING A DELIMITED BY 'M' INTO B,C,D. //以字符'M'界定。
UNSTRING A DELIMITED BY ALL 'M' INTO B,C,D. //以单个或者多个字符'M'界定。
说明：将字符串以字符‘M’分成若干部分，第一部分给B，第二部分给C，第三部分给D；
如果发送项A中不存在字符'M'，则字符只有一个部分，给B项，C和D不传值；如果发送项A被分成部分多于3份，则只取前三份。

（3）COUNT短语，用于计算已经传到接收项的字符数量。
UNSTRING A DELIMITED BY 'T' INTO B COUNT IN W.
（4）DELIMITER是定界符存储短语，如果使用多个定界符，在传送接收项时，同事把界定符存储。
UNSTRING A DELIMITED BY 'T' OR ALL ' ' OR 'R' INTO B DELIMITER INTO Q
C DELIMITER INTO Q
D.
（5）POINTER指针短语，指定从发送项的某位开始发送。
UNSTRING A INTO C WITH POINTER U.
（6）TALLYING接收项计数短语，用来记录实际接收项的项数。
UNSTRING A DELIMITED BY 'M' INTO B, C, D TALLYING IN N.
（7）溢出短语OVERFLOW。

 编程实例UNSTRING WS-ENG-LLONG-NAME DELIMITED BY ALL SPACEINTO WS-ENG-SSNAME(01),WS-ENG-SSNAME(02),WS-ENG-SSNAME(03),WS-ENG-SSNAME(04),WS-ENG-SSNAME(05)STRING   WS-ENG-SSNAME(01) DELIMITED BY SPACE' ' DELIMITED BY SIZEWS-ENG-SSNAME(02) DELIMITED BY SPACE' ' DELIMITED BY SIZEWS-ENG-SSNAME(03) DELIMITED BY SPACE' ' DELIMITED BY SIZEWS-ENG-SSNAME(04) DELIMITED BY SPACE' ' DELIMITED BY SIZEWS-ENG-SSNAME(05) DELIMITED BY SPACE' ' DELIMITED BY SIZEINTO WS-TMP-ENG-NAME

COBOL非常见知识点一相关推荐

【带你重拾Redis】Redis常见知识点
什么是Redis? Redis是一个使用ANSI C语言编写,遵守BSD协议规范的开源的K-V类型的NoSQL数据库服务器. Redis是当前最流行的K-V类型的NoSQL数据库之一,在通往系统架构的 ...
机器学习常见知识点自查50问与答
机器学习常见知识点自查50问与答 1.什么是机器学习 2.机器学习与数据挖掘的区别 3.什么是机器学习的过度拟合现象 4.过度拟合产生的原因 5.如何避免过拟合 6.什么是感应式的机器学习 7.机器学 ...
JAVA编程多线程面试常见知识点灵魂拷问(一)
1.对线程池的了解 ThreadPoolExcutor创建线程池,包含七个参数.七个参数分别是核心线程数.最大线程数.任务队列.等待时间.时间单位.线程工厂.拒绝策略. 任务加入线程池算法流程,若加入 ...
php cakephp like,cakephp常见知识点汇总
本文实例总结了cakephp常见知识点.分享给大家供大家参考,具体如下: 1. 调用其他控制器的模板,重定向方法一: 在此调用/views/tasks/tasks下的hello.ctp模板 $thi ...
Java面试常见知识点总结
目录面试常见知识点静态代码块代码块构造方法之间的顺序 interface和abstract的区别 abstract能不能继承interface 反正可不可以 interface 和abstra ...
linux内核知识点,linux常见知识点总结
常见知识点总结 1.date -s 日期设置 [root@localhost ppp]# date -s 2015-7-5 2015年 07月 05日星期日 00:00:00 CST 2.date ...
二级c语言程序题常考知识点,计算机等级考试二级C语言常见知识点总结
记忆力对于人生的生活是非常重要的,如果一个人老是遗忘事情,对他的生活与工作会出现很大的影响.下面学习啦小编就为大家介绍一下关于计算机等级考试二级c语言的常见知识点,欢迎大家参考和学习. 1)程序结构是 ...
Java常见知识点汇总
Java常见知识点汇总基础概念与常识 1.Java 语言有哪些特点? 2.JVM vs JDK vs JRE 3.什么是字节码?采用字节码的好处是什么? 4.为什么不全部使用 AOT 呢? 5.为什 ...
计算机网络基础必考知识点,计算机网络技术考试常见知识点
计算机网络技术促进了办公自动化.工厂自动化.家庭自动化的发展,计算机网络是服务现代科技的开端.下面是小编整理的关于计算机网络技术考试常见知识点,欢迎大家参考! 组播技术 1.IP组播的概念和特点单播 ...

COBOL非常见知识点一

COBOL非常见知识点一相关推荐

最新文章

热门文章