z/OS 中处理 COBOL 数组的技巧

本示例代码介绍了如何使用 COBOL 编写一个程序来处理数组，并演示了如何正确的定义和使用数组，以及如何使用基于下标和基于指针的方法来访问数组中的元素。

IDENTIFICATION DIVISION.
       PROGRAM-ID. EXAMPLE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MY-ARRAY PIC 9(3) OCCURS 3 TIMES.
       PROCEDURE DIVISION.
           MOVE 100 TO MY-ARRAY(1)
           MOVE 200 TO MY-ARRAY(2)
           MOVE 300 TO MY-ARRAY(3)
           DISPLAY "Value of element 2 is: ", MY-ARRAY(2)
           DISPLAY "Value of element 3 is: ", *(ADDR MY-ARRAY(1) + 4)
           STOP RUN.

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com