次の例は、整数値を UP BY で増やしたり、DOWN BY で減らすことによってポインターの値を調整する方法を示しています。 このような方法でポインターの値を変更することは、ポインター・データ項目で参照されるテーブル中の項目にアクセスする場合に便利です。
WORKING-STORAGE SECTION. 01 A. 05 ARRAY-USER-INFO OCCURS 300 TIMES. 10 USER-NAME PIC X(10). 10 USER-ID PIC 9(7). 01 ARRAY-PTR USAGE IS POINTER. LINKAGE SECTION. 01 USER-INFO. 05 USER-NAME LIKE USER-NAME OF ARRAY-USER-INFO. 05 USER-ID LIKE USER-ID OF ARRAY-USER-INFO. PROCEDURE DIVISION. SET ARRAY-PTR TO ADDRESS OF ARRAY-USER-INFO(200). 1 SET ADDRESS OF USER-INFO TO ARRAY-PTR. 2 SET ARRAY-PTR UP BY LENGTH OF USER-INFO. 3 SET ADDRESS OF USER-INFO TO ARRAY-PTR. 4 MOVE "NEW NAME" TO USER-NAME OF USER-INFO.5
MOVE "NEW NAME" to USER-NAME OF ARRAY-USER-INFO (201).
SET ステートメントの詳しい定義については、「WebSphere Development Studio: ILE COBOL 解説書」を参照してください。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.