dliLib.AIBTDLI() システム関数は、AIBTDLI インターフェースを使用して DL/I 関数を直接呼び出します。
CBLTDLI インターフェースを使用して DL/I 関数を呼び出すには、dliLib.EGLTDLI() または vgLib.VGTDLI() を使用します。
dliLib.AIBTDLI()(
func CHAR(4) in,
pcbName STRING in
parms... ANY)
発行する DL/I 呼び出しに対応する EGL I/O ステートメントがない場合は、dliLib.AIBTDLI() を使用できます。 例えば、主記憶データベース (MSDB) およびデータ入力データベース (DEDB) に対する DL/I FLD 呼び出しに対応する I/O ステートメントは EGL に用意されていません。 この場合は、dliLib.AIBTDLI() を使用して、FLD 呼び出しを発行することができます。
Record CustomerPSBRecordPart type PSBRecord { defaultPSBName="STBICLG" }
// database PCB
customerPCB DB_PCBRecord { @PCB { pcbType = DB, pcbName = "STDCDBL",
hierarchy = [ @relationship { segmentRecord = "CustomerRecordPart" },
...]}};
end
mypsb CustomerPSBRecordPart;
dliLib.AIBTDLI("FLD", "STDCDBL", myIOArea, mySSA1, ... mySSAn);
if (mypsb.customerPCB.statusCode != " ")
// エラー処理
end