Stran 39

Pri bazi je potrebno razdelati razne zanke
ažuriranju:

O1 kadrt.

10 pic x (32) value "KADRCTRLKADRNAZ IKADRNASL.".

10 pic x(9X- value "ENDE".
O1 kadra.

10 kadrctrl Bi -x4O).

10 kadrnazi pig. x (50)

10 kadrnasl pic.X (30).

10 kadrosta Di č:x RNI.
Ydatoteka kadr libirazp.lib----------o-ooo ooo
O1 razpkak pic x(5). Zkljuc za link KADRLKZE
Ol razpork pic x($). /Zkljuc za link ORENLKZP
Ol razpkar pic x(4). /reference za link KADRLKZPE
Ol razporr pic x(4). /reference za link ORENLKZE
O1 razpt.

10 pic x(24) value "RAZPKADRRAZPORENRAZPOSTA".

10 pic x6(8) "value "ENDI".
O1 razpa.

10 razpkadr Die xi IV

10 razporen pieč(5).,

10 razposta pic, x (NR)
Ydatoteka kadr lib:gkadr.lib-----------------------.--

4Xklica za dototeko KADR (vse operacije in RDNXT)

gkadr. call "mmbase" using tfunc tstat "KADR" kadretrl
kadrt kadra tyend.
move tenrl to tyend move kadrctrl to tetrl
move "'kadr" to tadat.
gkadrr. call "mmbase" using tfunc tstat "KADR"
tgual kadrt kadra tyend.
move tenrl to tyend move kadra to tetrl
move "KADR" to tadat.

Xdatoteka kadr librgrazp.lib

sklici za daoteko RAZP ( vse oprracije in RDXNT)

grazpor.call "mmbase" using tfunc tstat "RAZP"
razporr "orenlkzp' razpork razpt razpa tyend.
move tenrl to tyend move razpork to tetrl
move "RAZP" to tadat.

grazpka.call "mmbase" using tfunc tstat "RAZP"

razpkar "kadrlkzp" razpkak razpt razpa tyend.

move tenrl to tyend move razpkak to tetrl

move "razp"' to tadat.

call "MMBASE" using tfunc tstat

tgual razpt razpa tyend.

move tenrl to tyend move RAZPa to tetrl

move "RAZP" to tadat.

sin uma ommen WVOOD BORA oROBA BORAR SADRE MDO NAGA NARO NMRRR NORO MARK MAJA MORO SWOGO BRANE SGOVR OBAMA GABOR ORA MEN MOREM AROME SBRRR MARA BORRO mAARO GEGA ma mom MODRE oBORO MOGO SR MOORE MORA MRENE. mRmDE OVESE SRGRA OoBNE ROGE Ban DOSE »VoEE sma

grazpr. "RAZP"

pri branju ali pri