KFK2666.pdf

-352-
Beispiel
A: PROC(P)REGENT;
END
DCL P POINTER;
DCL 1 DATENBANK BASED(P),
2 BANKEN(3) BANK;
10-6
DCL BANKl BANK INIT(P-7BANKEN(1));
DCL POOL POOL;
INITIATE BANK (BANKl) ;
OPEN BANK(BANKEN(2));
OPEN POOL(POOL) IN(BANKEN(2));
BANKI = BANKEN (3)i
OPEN BANK (BANKl) ;