精品课程第4章-COBOL常用语句.pptVIP

STRING语句 STRING语句用来将多个非数值型数据项的值连接后送到一个接收数据项中，在合并过程中可以删除某些指定的字符 例如： 77 A PIC X(4) VALUE ‘ABC’. 77 B PIC X(4) VALUE ‘JKL’. 77 C PIC X(4) VALUE ‘XYZ’. 77 D PIC X(16). STRING A, B, C DELIMITED BY SIZE INTO D // D=‘ABC_JKL_XYZ_____’ (五个空格) DELIMITED BY SIZE 是按发送项的长度全部传送到接收项 STRING语句 可以将发送项空格之前的字符串传送到接收项 例如： STRING A, B, C DELIMITED BY SPACE INTO D // D=‘ABCJKLXYZ_______’ (末尾七个空格) 可以使用其它字符作为定界符，各个发送项可以使用不同的定界符 例如： STRING A DELIMITED BY ‘B’ B DELIMITED BY ‘L’ C DELIMITED BY ‘M’ INTO D // D=‘AJKXYZ__________’ (末尾十个空格) STRING语句 定界符可以是字符串 STRING A DELIMITED BY ‘BC’ B DELIMITED BY ‘LP’ C DELIMITED BY ‘ZZ’ INTO D // D=‘AJKL_XYZ________’ (末尾八个空格) 可以在传送中插入所需字符 例如： STRING A, ‘*’, B, ‘=’, C DELIMITED BY SPACE INTO D // D=‘ABC*JKL=XYZ_____’ (末尾五个空格) STRING语句 如果不想从接收项的最左端开始接收字符，可以使用POINTER短语指定从某一字符位开始接收字符 MOVE 3 TO P. STRING A, B, C DELIMITED BY SPACE WITH POINTER P INTO D. // D=‘__ABCJKLXYZ_____’ (头部两个，末尾五个空格) 如果接收项的字符个数不足，则发生“溢出”，可以进行溢出处理 77 D PIC X(10) STRING A, B, C DELIMITED BY SIZE INTO D ON OVERFLOW DISPLAY ‘OVERFLOW’. // D=‘ABC_JKL_XY’ STRING语句 注意： a. 接收数据项必须是初等项 b. 指针项必须是一个整型的初等项 c. STRING语句结束后，接收项中未送入的字符位置上 保持原有内容，而不是自动设置空格 UNSTRING语句 UNSTRING语句将一个发送字符串拆成若干个接收字符串，是STRING语句的逆操作 例如： 77 A PIC X(23) VALUE ‘DATE PRODUCT QUANTITY’ 77 B PIC X(5) 77 C PIC X(8) 77 D PIC X(8) UNSTRING A INTO B, C, D DISPLAY B //B=‘DATE ’ 末尾一个空格 DISPLAY C //C=‘PRODUCT ’ 末尾一个空格 DISPLAY D //D=‘QUANTITY’ UNSTRING语句 可以使用DELIMITED子句设置分解时的定界符。自左向右累计字符，直到遇见定界符，符号左面的内容按MOVE语句的规则传送到接收项，例如： UNSTRING A DELIMITED BY ‘T’ INTO B, C, D DISPLAY B //B=‘DA___ ’ 末尾三个空格 DISPLAY C //C=‘E_PRODUC’ DISPLAY D //D=‘_QUAN___’ 末尾三个空格 如果扫描到最右端仍未发现定界符，则以最右端字符为截止界线，例如： UNSTRING A DELIMITED BY ‘W’ INTO B, C, D DISPLAY B //B=‘DATE_ ’ DISPLAY C //C全是空格 DISPLAY D //D