Technical data

FIND

• First entry in the keeplist

FIND FIRST WITHIN KEEPLIST-A.

• Last entry in the keeplist

FIND LAST WITHIN KEEPLIST-B.

• N(th) entry in the keeplist

FIND OFFSET RECORD-COUNT

WITHIN KEEPLIST-C.

3. Set owner access. To locate the owner (PART) of the PART_USES set:

FIND OWNER WITHIN PART_USES.

4. Record search access. To locate the following items, use the statement listed

with each item:

• NEXT DEALER record whose DEAL-PHONE item begins with the area

code numbers 617

FIND NEXT DEALER WHERE DEAL-PHONE MATCHES "617"

• First member within the PART_USES set

FIND FIRST WITHIN PART_USES.

• Last member within the BUY realm

FIND LAST WITHIN BUY.

• Next COMPONENT record in the PART_USED_ON set

FIND NEXT COMPONENT WITHIN PART_USED_ON.

• Prior COMPONENT record in the PART_USES set (uses COMP_SUB_

PART and COMP_OWNER_PART as record keys)

FIND PRIOR COMPONENT WITHIN PART_USES

USING COMP_SUB_PART, COMP_OWNER_PART.

• A record relative to the current record (this statement starts from the

current position to the position deﬁned by this offset)

FIND RELATIVE SEARCH-NUMBER

ON ERROR PERFORM 300-FIND-IN-ERROR-ROUTINE

END-FIND.

• PART record with PART_STATUS equal to ‘‘G’’ from the CLASS_PART set

MOVE "G" TO PART_STATUS.

FIND NEXT CLASS WITHIN ALL_CLASS.

FIND NEXT PART WITHIN CLASS_PART USING PART_STATUS

AT END . . .

• All PART records with PART_STATUS OF G (this statement puts their

dbkey values in KEEPLIST-4)

FIND ALL KEEPLIST-4 PART USING PART_STATUS

• DB-KEY access. To locate the item referred to by the DB-KEY special

FIND DBKEY.

4–38 Procedure Division