Stran 42

8.8.1.4 Standardni deli programa —

» definicije podatkov
«  Fazna ponavljajoča koda

PI

swokring "kadr librwss.libh'----—---
O1 razni-stevci.
10x pic s7?7(9) comp.
10—-Y pic s?(7) comp.
10 w pic s?(9) comp.
10 wrtrn pic s7(7) comp.
Yzacetek "kadr librzacetek.libh"----—-
zacetek.

move O to t ierr.
move "d" to crtice sceroll.
go to ad0o,
konec. move 2 to indx.
move 7 to t.
perform gurt.
stop run.

8.8.2 Sortiranje z SORT INPUT in OUTPUT PROCEDURE -

Podprogram za sortiranje, katerega uporaba ne podre strukture
programa.

4definicija podatkov
"datoteka "kadr librgort.libj---—-—--—---
O1 xxsortstev pic ?%(4) comp value 1.
O1 xxsortfunc pic x.
O1 xxsortdata.
10 xxsortsize pic %(4) comp.
10 xxsortkeys occurs 9,
20 xxsortascd pic %(4) comp.

20 xxsortstar pic %(4) comp.
20 xxsortdolz pic $%(4) comp.
10 pic x (482).
O1 xxsortdatar redefines xxsortdata.
10 datal Bio x.
10 datačo pir X(6X.
10 datax.
20: detrl Dicix48).,
20 dprim piE NE ZOIa

20 ddroj pic XVI):