Statements dealing with the primary BLLs

The statements dealing with the primary BLLs are shown in Table 1.

Statements dealing with the secondary BLLs are replaced by CONTINUE.

Table 1. COBOL statements dealing with primary BLLs
Original source
Source after conversion
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 statements
The conversion is performed in the same way as ADD.
COMPUTE BLL = exp (BLL)
SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
COMPUTE LCP-WS-ADDR-COMP =
exp (LCP-WS-ADDR-COMP)
COMPUTE ID = exp (BLL)
SET LCP-WS-ADDR-PNTR TO ADDRESS OF REC
COMPUTE ID = exp (LCP-WS-ADDR-COMP)
COMPUTE BLL = exp ...
COMPUTE LCP-WS-ADDR-COMP = exp ...