在 COBOL 中填充数组时出现问题

Question

我遇到了非常奇怪的情况。我在 COBOL pgm 中定义了一个数组。

05  A-TABLE.                                   
    10  A-TABLE-LIST OCCURS 10 TIMES INDEXED BY A-IDX. 

        15  FILLER              PIC X(7) VALUE '<TEST>'. 
        15  A-LIST-VALUE        PIC X(30).                
        15  FILLER              PIC X(8) VALUE '</TEST>'.

我设置 A-IDX=1 并将“XYZ”移动到 A-LIST-VALUE(A-IDX)。 显示A-TABLE时，显示为 XYZ------------------------------ 和所有空格...:( 我不明白这里有什么问题？ 谁能帮我解决这个问题？

问候， 赛莎。

Answer 1

您不能以这种方式设置表的值。在表中设置值的一种方法是使用 REDEFINES 和单独的数据区域。

05  A-TABLE-X.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.
    10  FILLER PIC X(45)
        VALUE '<TEST>                              </TEST>'.

05  A-TABLE REDEFINES A-TABLE-X.     
    10  A-TABLE-LIST OCCURS 10 TIMES INDEXED BY A-IDX. 

        15  FILLER              PIC X(7). 
        15  A-LIST-VALUE        PIC X(30).                
        15  FILLER              PIC X(8).

那是相当麻烦的。另一种方法是在运行时将数据移入初始化段落。

05  A-TABLE REDEFINES A-TABLE-X.     
    10  A-TABLE-LIST OCCURS 10 TIMES INDEXED BY A-IDX. 

        15  A-LIST-A            PIC X(7). 
        15  A-LIST-VALUE        PIC X(30).                
        15  A-LIST-B            PIC X(8).

PERFORM VARYING A-IDX FROM 1 BY 1 UNTIL A-IDX > 1
  MOVE '<TEST> TO A-LIST-A(A-IDX)
  MOVE SPACES TO A-LIST-VALUE(A-IDX)
  MOVE '</TEST> TO A-LIST-B(A-IDX)
END-PERFORM

我没有尝试编译其中任何一个，这只是徒手的。

附带说明一下，如果您使用 Enterprise COBOL 版本 3.2 或更高版本，并且尝试在 COBOL 中创建 XML，则存在 XML GENERATE 语句。

Answer 2

据我了解，你的问题是为什么“XYZ<27个空格>”仅移动“XYZ”时显示。如果是这样，您需要在移动之前初始化，并在显示或移动到另一个变量之前修剪空格。

如果您的问题尚未解决，请详细描述，否则请告诉我们问题是如何解决的。