KFK2666.pdf

9-57
BEISPIELE
PROGRAMME
-327-
STATUS: PROC OPTIONS{MAIN)REGENTlNOOA,BANK);
ENTER DASAl;
ON ERROR ßEGIN;
STATUS OPEN; END;
DESC BANKl BANK;
OESC POOll POOL;
INIT BANK(BANK1);
OPEN BANK(BANKl) UPDATE;
INIT POOltPOOlUTITlE('TEXT')IN BANK{8ANKUSPACE{ 10000) DATA;
OPEN POOl{POOlIJTITLE('TEXT'JIN BANKtBANK1)UPOATE KEEP;
OCl CARO CHAR{80}INITC' KARTE ');
oel PIC PICTURE'99';
00 PIC=l TO 50;
SUBSTRCCARO,8,2}=PIC;
STORE POOl{POOLl)FROMlCARD);
END;
STATUS STATISTIC;
STA TUS OPEN;
STATUS STRUCTURE ßANK1BANK1};
STATUS out..,P BANK{BANKU;
STATUS SPACE PRINT BANK{BANK1);
STATUS ATTRIBUTE POOLlPOOll) TYP(TYP) ACTlACT) MAX{MAX) NEXTlNEXTJ;
DCL(lYP,MAX,ACT,NEXT)ßIN FIXEO(31);
PUT SKIP DATA(TYP,MAX,ACT,NEXT);
STATUS STATISTIC;
END DASAl;
PU T S1< I PLI ST ( , ST AT US T ES T FI NI S HE ü' ) ;
END STATUS;