cobol＆amp; JCL删除多余的空格

Question

我试图接受来自jcl的输入，例如'John Snow'并从我的cobol程序运行它我使用JUSTIFIED RIGHT VALUE SPACES将字符串移动到右侧但是我需要使用我的cobol pgm删除额外的空格

示例 我的工作存储是：

01 ALPHA-ITEM PIC X(50).                           
01 MOVE-ITEM REDEFINES ALPHA-ITEM PIC X(50).       
01 NUM-ITEM PIC X(50) JUSTIFIED RIGHT VALUE SPACES.

在我的程序部门

ACCEPT ALPHA-ITEM.         
MOVE MOVE-ITEM TO NUM-ITEM.
DISPLAY NUM-ITEM.  

它在屏幕右侧显示“John Snow”，但我不知道如何删除多余的空格。

Answer 1

你需要这样的东西：

01 ALPHA-ITEM PIC X(50).                                 
01 WS-INDEX PIC 99.

ACCEPT ALPHA-ITEM  

PERFORM VARYING WS-INDEX 
    FROM 50 BY -1
   UNTIL ALPHA-ITEM(WS-INDEX:1) NOT EQUAL SPACE
         OR WS-INDEX < 1
END-PERFORM

DISPLAY ALPHA-ITEM(1:WS-INDEX).  

此代码将接受alpha项，然后运行循环以查明数据实际存在的时间。然后它将显示从位置1开始直到循环中设置的计数器的字段。

Answer 2

也有..由于某种原因不受欢迎。 将通过空格分隔的MOVE-ITEM释放为NUM-ITEM。