valutazioni - 0, GPA: 0
(
)
)
|
da questo dispositivo ha anche altre istruzioni :
Facilità d'uso
READING
A
KSAM
FILE
IN
CHRONOL
OGICAL
ORDER
The
order
in
whic
h
records
are
ph
ysically
written
to
a
data
le
is
called
c
hronological
order.
This
order
is
not
necessarily
the
same
as
a
sequence
b
y
k
ey
v
alue
although
it
may
b e.
In
particular,
if
the
records
w
ere
written
b
y
a
COBOL
pro cedure
to
a
le
op ened
for
sequen
tial
access,
then
the
c
hronological
sequence
and
the
primary
k
ey
sequence
are
the
same.
If,
ho
w
ev
er,
these
orders
dier,
then
the
le
system
pro
vides
an
in
trinsic
that
allo ws
y
ou
to
read
a
KSAM
le
in
c
hronological
order.
Figure
5-4
is
a
program
that
uses
the
in
trinsic
FREADC
to
read
the
records
in
the
order
they
w
ere
stored
in
the
le.
Other
le
system
in
trinsics
allo w
y
ou
to
p osition
the
le
to
a
particular
record
n
um
b er
in
c
hronological
order
(FPOINT),
to
retrieve
the
curren
t
c
hronological
record
n
um
b er
(FGETINF
O),
and
to
read
a
record
lo
cated
b
y
its
c
hronological
record
n
um
b er
(FREADDIR).
The
COBOL
pro cedures
for
KSAM
in
terface
do
not
pro
vide
the
means
to
access
records
b
y
c
hronological
record
n
um
b er.
C********************************************************
*****
C
EXAMPL3
*
C
READ
KSAM
FILE
CHRONOLOGICALLY
*
C
********************************************************* ***
SYSTEM
INTRINSIC
F0PEN,FCLOSE,FERRMSG,FCHECK
SYSTEM
INTRINSIC
FREADC
INTEGER
FILNUM
CHARACTER
FILENAME*10
CHARACTER
OUTPUT*72
CHARACTER
MESSAGE(72)
LOGICAL
INPUT
(36)
LOGICAL
MESSAGEW(36)
EQUIVALENCE
(MESSAGE,MESSAGEW)
EQUIVALENCE
(OUTPUT,INPUT)
DATA
FILENAME/"FEXAMFIL
"/
C********************************************************
******
C
OPEN
KSAM
FILE
FOR
INPUT
*
C********************************************************
******
FILENUM=FOPEN(FILNAME,%7L)
IF
(FILNUM
.EQ.
0)
GO
TO
200
C********************************************************
******
C
READ
DATA
FROM
FlLE
IN
*
C
CHRONOLOGICAL
ORDER
*
C********************************************************
******
DISPLAY
"PRINT
RECORDS
IN
CHRONOLOGICAL
ORDER"
20
ILEN=FREADC(FILNUM,INPUT, 072)
IF
(.CC.)
300,30,50
30
DISPLAY
OUTPUT
GO
TO
20
C********************************************************
******
C
CLOSE
FILE
*
C********************************************************
******
50
CALL
FCLOSE(FILNUM,0,0)
IF
(.CC.)
600,55,600
55
STOP
"END
OF
JOB"
Figure
5-4.
Reading
KSAM
File
in
Chronological
Sequence
Using
F
ORTRAN
USING
KSAM
FILES
IN
F
ORTRAN
5-13
PROGRAMS
... Questo manuale è adatto anche per i modelli :
Software - MPE/iX 6.5 Operating System (1.35 mb)
Software - MPE/iX 7.0 Operating System (1.35 mb)
Software - MPE/iX 7.5 Operating System (1.35 mb)