COBOL表達式作爲表數組中的索引

Question

只是一個簡短的快速問題。 如何將表達式編入COBOL數組？ 例如，如果我的索引k=1，我想做到以下幾點找到k=2

element(k+1) 

元素很不幸，這是不能接受的COBOL和我想知道是否有任何替代？

Answer 1

我不確定爲什麼你認爲這不起作用，只要你把它放在Cobol聲明中。

ID DIVISION. 
    PROGRAM-ID. SUBMOD. 
    DATA DIVISION. 
    WORKING-STORAGE SECTION. 
    01 A-NICELY-NAMED-TABLE. 
     05 FILLER OCCURS 2 TIMES. 
      10 A-NICELY-NAMED-ENTRY PIC X. 
    01 ANOTHER-PIECE-OF-DATA  PIC X VALUE SPACE. 
    01 A-NICELY-NAMED-SUBSCRIPT BINARY 
            PIC 9(4). 
    LINKAGE SECTION. 
    01 L-INPUT      PIC X(4). 
    01 L-TO-HEX      PIC BXBXBXBX. 
    PROCEDURE DIVISION USING L-INPUT L-TO-HEX. 
     MOVE "A"      TO A-NICELY-NAMED-ENTRY (1) 
     MOVE "B"      TO A-NICELY-NAMED-ENTRY (2) 
     MOVE 1      TO A-NICELY-NAMED-SUBSCRIPT 
     IF A-NICELY-NAMED-ENTRY (A-NICELY-NAMED-SUBSCRIPT + 1) 
      EQUAL TO "B" 
      MOVE A-NICELY-NAMED-ENTRY 
      (A-NICELY-NAMED-SUBSCRIPT + 1) 
            TO ANOTHER-PIECE-OF-DATA 
     END-IF 
     DISPLAY ">" ANOTHER-PIECE-OF-DATA "<" 


     GOBACK 
     . 

輸出是：

>B< 

參考您的意見，這是不以任何手段 「嚴」 的事情。這是「+ 1」是一件事，「相對下標」，「+1」是別的，它是第二個下標。

根據您的編譯器，你可能能夠代碼：

MOVE ELEMENT(k++1) ... 

您可能不得不忍受來自編譯器的一些呻吟，我在一些它可能無法正常工作設想。但是，這可能是寫Cobol的一個可怕的方法。

我建議不要使用像ELEMENT這樣的名字。在未來某個時候，很可能會出現Cobol的「保留字」。不要簡寫。使用好的名字，使用有效的間距。它可以幫助你稍後瞭解你的程序，並且會幫助其他任何必須查看它的人。