COBOL字符串拼接

 

字符串连接语句（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语句）

  <