cobol怎么去掉字符串末尾的空格

在COBOL中去掉字符串末尾的空格可以通过以下几种方法实现：

1. 使用STRING函数：使用STRING函数可以将字符串中的空格替换为空，然后再对替换后的字符串进行TRIM操作，即可去掉末尾的空格。示例代码如下：

01 MY-STRING        PIC X(10) VALUE 'COBOL     '. 01 RESULT-STRING    PIC X(10). MOVE SPACES TO RESULT-STRING. STRING MY-STRING DELIMITED BY SPACE INTO RESULT-STRING ON OVERFLOW END-STRING END-STRING. MOVE FUNCTION TRIM(RESULT-STRING) TO RESULT-STRING. DISPLAY RESULT-STRING. 

2. 使用INSPECT函数：使用INSPECT函数可以在字符串中查找最后一个非空格字符的位置，然后再使用SUBSTRING函数截取字符串到该位置。示例代码如下：

01 MY-STRING        PIC X(10) VALUE 'COBOL     '. 01 LENGTH           PIC 9(2). 01 RESULT-STRING    PIC X(10). MOVE LENGTH OF MY-STRING TO LENGTH. INSPECT FUNCTION REVERSE(MY-STRING) TALLYING LENGTH FOR LEADING SPACES. MOVE FUNCTION SUBSTRING(MY-STRING, 1, LENGTH) TO RESULT-STRING. DISPLAY RESULT-STRING. 

以上两种方法都可以达到去掉字符串末尾的空格的效果，根据实际需求选择适合的方法即可。