別のプログラムから受け取るアドレスの増分

呼び出し側プログラムから渡されるデータに、無視したいヘッダー情報 (たとえば、 コマンド・レベルにマイグレーションされない 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 に基づくものになります。