Technical data

FETCH
• Record relative to the current record, this statement starts from the
current position to the position defined by this offset
FETCH RELATIVE SEARCH-NUMBER
ON ERROR PERFORM 300-FETCH-IN-ERROR-ROUTINE
END-FETCH.
• PART record with PART_STATUS equal to ‘‘G’’ from the CLASS_PART set
MOVE "G" TO PART_STATUS.
FETCH NEXT CLASS WITHIN ALL_CLASS.
FETCH NEXT PART WITHIN CLASS_PART USING PART_STATUS
AT END . . .
• DB-KEY access. To retrieve the item referred to by the DB-KEY special
register:
FETCH DBKEY.
4–34 Procedure Division