Previous Topic: Modification StatementsNext Topic: ACCEPT Statements


Retrieval Statements

Major Function Code

Database Statement

(in COBOL DML)

(1) Calling Arguments

(nn)

(2)

(3)

(4)

(5)

03

FIND DB-KEY

db-key

75

db-key

 

 

 

 

FIND record-name

DB-KEY IS

db-key

06

record-name

db-key

 

 

 

FIND DB-KEY db-key

PAGE_INFO page-info

29

dbkey

page-info

 

 

 

FIND CURRENT

30

 

 

 

 

 

FIND CURRENT

record-name

07

record-name

 

 

 

 

FIND CURRENT

WITHIN set-name

08

set-name

 

 

 

 

FIND CURRENT

WITHIN

area-name

09

area-name

 

 

 

 

FIND NEXT WITHIN

set-name

14

set-name

 

 

 

 

FIND NEXT

record-name

WITHIN set-name

10

record-name

set-name

 

 

 

FIND PRIOR

WITHIN set-name

16

set-name

 

 

 

 

FIND PRIOR

record-name

WITHIN set-name

12

record-name

set-name

 

 

 

FIND FIRST

WITHIN set-name

20

set-name

 

 

 

 

FIND FIRST

record-name

WITHIN set-name

18

record-name

set-name

 

 

 

FIND LAST

WITHIN set-name

24

set-name

 

 

 

 

FIND LAST

record-name

WITHIN set-name

22

record-name

set-name

 

 

 

FIND sequence-number

WITHIN set-name

78

set-name

sequence-number

 

 

 

FIND sequence-number

record-name

WITHIN set-name

76

record-name

set-name

sequence-number

 

 

FIND NEXT WITHIN

area-name

15

area-name

 

 

 

 

FIND NEXT

record-name

WITHIN

area-name

11

record-name

area-name

 

 

 

FIND PRIOR WITHIN

area-name

17

area-name

 

 

 

 

FIND PRIOR

record-name

WITHIN

Area-name

13

record-name

area-name

 

 

 

FIND FIRST WITHIN

area-name

21

area-name

 

 

 

 

FIND FIRST

record-name

WITHIN

area-name

19

record-name

area-name

 

 

 

FIND LAST WITHIN

area-name

25

area-name

 

 

 

 

FIND LAST

record-name

WITHIN

area-name

23

record-name

area-name

 

 

 

FIND sequence-number

WITHIN

area-name

79

area-name

sequence-number

 

 

 

FIND sequence-number

record-name

WITHIN

area-name

77

record-name

area-name

sequence-number

 

 

FIND OWNER

WITHIN set-name

31

set-name

 

 

 

 

FIND CALC (ANY)

record-name

32

record-name

 

 

 

 

FIND DUPLICATE

record-name

50

record-name

 

 

 

 

FIND record-name

WITHIN

set-name USING

sort-field-name

33

record-name

set-name

sort-field-name

 

 

FIND record-name

WITHIN

set-name

CURRENT USING

sort-field-name

51

record-name

set-name

sort-field-name

 

OBTAIN (any of the above FIND record selection expressions.)

Call generated consists of arguments described above for the

FIND in question plus an additional argument of IDBMSCOM

(43) function. For example:

 

OBTAIN CALC record

32

record-name

IDBMSCOM

(43)

 

 

 

OBTAIN PRIOR

record-name

WITHIN set-name

12

record-name

 

 

 

KEEP/KEEP EXCLUSIVE (any of the above FIND/OBTAIN

record selection expressions.)

Call generated consists of arguments described above for the

FIND/OBTAIN in question plus one of the following additional

IDBMSCOM function:

KEEP..............................IDBMSCOM(87)

KEEP EXCLUSIVE...........IDBMSCOM(88)

For example:

 

OBTAIN KEEP CALC

record-name

32

record-name

IDBMSCOM

(43)

IDBMSCOM

(87)

 

 

FIND KEEP

EXCLUSIVE

CURRENT

30

IDBMSCOM

(88)

 

 

 

05

GET

43

 

 

 

 

 

GET record-name

34

record-name

 

 

 

17

RETURN db-key

FROM

index-set-name

CURRENCY

KEY INTO

symbolic-key

81

index-set-name

db-key

symbolic-key

 

 

RETURN db-key

FROM

index-set-name

FIRST

KEY INTO

symbolic-key

82

index-set-name

db-key

symbolic-key

 

 

RETURN db-key

FROM

index-set-name

LAST

KEY INTO

symbolic-key

83

index-set-name

db-key

symbolic-key

 

 

RETURN db-key

FROM

index-set-name

NEXT

KEY INTO

symbolic-key

84

index-set-name

db-key

symbolic-key

 

 

RETURN db-key

FROM

index-set-name

PRIOR

KEY INTO

symbolic-key

85

index-set-name

db-key

symbolic-key

 

 

RETURN db-key

FROM

index-set-name

USING

index-key-value

KEY INTO

symbolic-key

86

index-set-name

db-key

index-key-key

symbolic-key