呼び出し側プログラムから渡されるデータに、無視したいヘッダー情報 (たとえば、 コマンド・レベルにマイグレーションされない CICS/400(R) アプリケーションから受け取るデータの) が含まれている場合があります。
ポインター・データ項目は数値ではないので、この項目に関する演算を直接行うことはできません。 しかし、SET verb を使用することによって、渡されるアドレスを増分し、ヘッダー情報をう回することができます。
LINKAGE SECTION を次のようにセットアップすることができます。
LINKAGE SECTION. 01 RECORD-A. 05 HEADER PIC X(16). 05 REAL-SALARY-REC PIC X(30).
·
·
·
01 SALARY-REC. 05 PTR-NEXT-REC POINTER. 05 NAME PIC X(20). 05 DEPT PIC 9(4). 05 SALARY PIC 9(6).
PROCEDURE DIVISION では、次のようにして SALARY-REC のアドレスを REAL-SALARY-REC のアドレスに基づくものにしてください。
SET ADDRESS OF SALARY-REC TO ADDRESS OF REAL-SALARY-REC
これで、SALARY-REC は RECORD-A のアドレス + 16 に基づくものになります。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.