Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 コンパイラーおよびランタイム 移行ガイド


1 次 BLL を扱うステートメント

表 1 に、1 次 BLL を扱うステートメントを示します。

2 次 BLL を扱うステートメントは、CONTINUE によって置き換えられます。

表 1. 1 次 BLL を扱う COBOL ステートメント
元のソース

変換後のソース

MOVE BLL1 TO BLL2

SET ADDRESS OF REC2 TO ADDRESS OF REC1

MOVE ID TO BLL

MOVE ID TO LCP-WS-ADDR-COMP
SET ADDRESS OF REC1 TO LCP-WS-ADDR-PNTR

MOVE BLL TO ID

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
MOVE LCP-WS-ADDR-COMP TO ID

ADD ID1, .. TO BLL

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
ADD ID1, TO LCP-WS-ADDR-COMP
SET ADDRESS OF REC TO LCP-WS-ADDR-PNTR

ADD BLL TO ID1, ID2

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
ADD LCP-WS-ADDR-COMP TO ID1, ID2

ADD ID1, ID2 GIVING BLL

ADD ID1, ID2 GIVING LCP-WS-ADDR-COMP
SET ADDRESS OF REC TO LCP-WS-ADDR-PNTR

ADD ID, BLL1 GIVING BLL2 BLL3

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
ADD ID, LCP-WS-ADDR-COMP GIVING
LCP-WS-ADDR-COMP
SET ADDRESS OF REC2 TO LCP-WS-ADDR-PNTR
SET ADDRESS OF REC3 TO LCP-WS-ADDR-PNTR

ADD ID1, BLL1 GIVING ID2 ID3

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
ADD ID1, LCP-WS-ADDR-COMP GIVING ID2 ID3

SUBTRACT ステートメント

変換は、ADD と同じ方法で行われます。

COMPUTE BLL = 式 (BLL)

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
COMPUTE LCP-WS-ADDR-COMP =
式 (LCP-WS-ADDR-COMP)

COMPUTE ID = 式 (BLL)

SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
COMPUTE ID = 式 (LCP-WS-ADDR-COMP)

COMPUTE BLL = 式 ...

COMPUTE LCP-WS-ADDR-COMP = 式 ...


ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)