表 1 に、1 次 BLL を扱うステートメントを示します。
2 次 BLL を扱うステートメントは、CONTINUE によって置き換えられます。
| 元のソース | 変換後のソース |
|---|---|
| MOVE BLL1 TO BLL2 | SET ADDRESS OF REC2 TO ADDRESS OF REC1 |
| MOVE ID TO BLL | MOVE ID TO LCP-WS-ADDR-COMP |
| MOVE BLL TO ID | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| ADD ID1, .. TO BLL | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| ADD BLL TO ID1, ID2 | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| ADD ID1, ID2 GIVING BLL | ADD ID1, ID2 GIVING LCP-WS-ADDR-COMP |
| ADD ID, BLL1 GIVING BLL2 BLL3 | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| ADD ID1, BLL1 GIVING ID2 ID3 | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| SUBTRACT ステートメント | 変換は、ADD と同じ方法で行われます。 |
| COMPUTE BLL = 式 (BLL) | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| COMPUTE ID = 式 (BLL) | SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC |
| COMPUTE BLL = 式 ... | COMPUTE LCP-WS-ADDR-COMP = 式 ... |