COBOL 解串成数组

Question

我正在尝试将用“;”分隔的输入行解串成一个数组。但我无法在第一个“;”之后显示每个单词。

基本上，输入：Hello;Stack;Overflow

---

输出：值：2（因为有 2 个分号）

---

我的记录表第一行：你好

---

我的记录表的第 2 行：堆栈

---

我的记录表第 3 行：溢出

到目前为止我的代码：

*-------------------------------------------------------------
 LINKAGE SECTION.                                             
 01  X-INPUT-LINE                   PIC X(2000).              
 01  X-SEP-CHAR                     PIC X(1).                                     
 01  X-RET-TABLE.                                             
  02 CMAX                           PIC 9(5) COMP-3.          
  02 ENTRY-REC OCCURS 0 TO 9999 TIMES DEPENDING ON CMAX       
                                      INDEXED   BY CIDX.      
   04 ENTRY-REC2.                                             
    07 LINEVALUE                    PIC X(100).               

PROCEDURE DIVISION USING X-INPUT-LINE
                         X-SEP-CHAR  
                         X-RET-TABLE.

MAIN SECTION.
MN-00.       
INITIALIZE WERT.                                

INSPECT X-INPUT-LINE TALLYING WERT FOR ALL      
        X-SEP-CHAR.                             
MOVE X-INPUT-LINE TO VAL.                       

ADD 1 TO WERT.                                  
PERFORM WERT TIMES                              
MOVE WERT TO LINEVALUE OF X-RET-TABLE (WERT)    
     UNSTRING VAL DELIMITED BY ";"              
     INTO STRVAL                                
     END-UNSTRING                               


IF CMAX OF X-RET-TABLE < 9999                   
   ADD  1  TO CMAX OF X-RET-TABLE               
   MOVE STRVAL TO ENTRY-REC(CMAX OF X-RET-TABLE)

END-IF                                          
END-PERFORM.    

使用下面的代码，我只能在示例中显示“Hello”，程序在 3 个不同的行中显示 3 次。

Answer 1

您的原始代码几乎有效。

主要问题是，您 UNSTRING 给定变量并始终使用相同的起点。

我们可以使用WITH POINTER。用于STRING 子句表示“存储下一个字符的位置”，用于UNSTRING 表示“读取下一个字符的位置”。

使用起始代码（添加调用者，实际上使用给定的分隔符而不是固定的“;”和结果的DISPLAY），添加here我们为起点添加一个变量并使用它。

     UNSTRING X-INPUT-LINE DELIMITED BY X-SEP-CHAR
     INTO STRVAL
     END-UNSTRING

变成

     UNSTRING X-INPUT-LINE DELIMITED BY X-SEP-CHAR
     INTO STRVAL
     WITH POINTER STARTING-POINT
     END-UNSTRING

您还需要初始化一些部分，可以直接使用表格项（只要您确保计数器不会太大），为您提供result（包括更多示例）。

Answer 2

Unstring 并不是这样工作的。如果您知道要解串的字段名称，解串将起作用。基本上你的代码中发生的事情是你运行 unstring 3 次，因为“hello”是 unstring 中的第一件事，它被 unstring 3 次。如果你想做一些可扩展成数组的事情，你需要编写这样的循环：

01 WS-UNSTRING-FIELDS.
   05 WS-INPUT PIC X(1000).
   05 WS-SUB   PIC 9(4) COMP.
   05 WS-START PIC 9(4) COMP VALUE 1.
   05 WS-INDEX PIC 9(4) COMP VALUE 0.
   05 WS-ARRAY OCCURS 0 TO 9999 DEPENDING ON WS-INDEX.

PERFORM VARYING WS-SUB
           FROM 1 BY 1 
          UNTIL WS-SUB > FUNCTION LENGTH(WS-INPUT)
   IF WS-INPUT(WS-SUB:1) = ";"
      ADD 1 TO WS-INDEX

      MOVE WS-INPUT(WS-START:WS-SUB - 1) 
        TO WS-ARRAY(WS-INDEX)

      COMPUTE
         WS-START = WS-SUB + 1
      END-COMPUTE
   END-IF
END-PERFORM

我真的没有时间对此进行测试并确保它 100% 正常工作，但您需要一些类似的东西。无论如何，我都会避免在这里使用 unstring。

当您确切知道有多少字段进入时，Unstring 非常有用。例如，假设您有与 MQ 系列交互的通用程序。作为该程序的输入，您可以传递一个包含类似指令的字符串

QueueName/Action

然后您可以在此上下文中使用 unstring 将它们拆分为 2 个字段：

UNSTRING WS-INPUT DELIMITED BY "/"
   INTO WS-Q-NAME
        WS-ACTION
END-UNSTRING

假设这里的输入是：

THIS_IS_MY_QUEUE/DELETE

WS-Q-NAME 将具有 THIS_IS_MY_QUEUE_NAME，而 WS-ACTION 将具有 DELETE