プログラムを移行して、DL/I 呼び出し用の BLL セルの使用も回避することができま す。 これを行うためには、プログラムを調べて、以下の変更を行ってください。
CALL "CBLTDLI" USING PCB-CALL,
PSB-NAME,
ADDRESS OF DLIUIB
LINKAGE SECTION.
COPY DLIUIB.
01 OVERLAY-DLIUIB REDEFINES DLIUIB.
02 PCBADDR USAGE IS POINTER.
02 FILLER PIC XX.
01 PCB-ADDRESSES.
02 PCB1-ADDR USAGE IS POINTER.
02 PCB2-ADDR USAGE IS POINTER.
* VACATION PCB
01 VAC-PCB.
COPY RDLICVP.
* HOTEL PCB
01 HTL-PCB.
COPY RDLICHT.
⋮
PROCEDURE DIVISION.
⋮
CALL 'CBLTDLI' USING PCB
PSBNAME
ADDRESS OF DLIUIB
IF UIBFCTR IS NOT EQUAL TO LOW-VALUES
MOVE 'PCB CALL FAILED.' TO MSG-TEXT
PERFORM WRITE-MESSAGE-AND-AMEND
ELSE
SET ADDRESS OF PCB-ADDRESSES TO PCBADDR
SET ADDRESS OF HTL-PCB TO PCB1-ADDR
SET ADDRESS OF VAC-PCB TO PCB2-ADDR
END-IF
⋮