Technical data

KEEP
• Section 4.4, on database key identifiers
• Section 4.8.1, on database On Error condition
• USE statement
Examples
1. Currency indicator access
• To insert the database key value of the current record of the run unit into
KEEPLIST-A:
KEEP CURRENT USING KEEPLIST-A.
• To insert the database key value of the current record of the CLASS_
PART set into KEEPLIST-B:
KEEP CURRENT WITHIN CLASS_PART USING KEEPLIST-B.
• To insert the database key value of the current record of the BUY realm
into KEEPLIST-B:
KEEP CURRENT WITHIN BUY USING KEEPLIST-B.
• To insert the database key value of PART record into KEEPLIST-B:
KEEP CURRENT WITHIN PART USING KEEPLIST-B.
2. Keeplist access
• To insert the first keeplist entry from KEEPLIST-A as the last entry in
KEEPLIST-B:
KEEP FIRST WITHIN KEEPLIST-A USING KEEPLIST-B.
• To insert the last keeplist entry in KEEPLIST-A as the last entry in
KEEPLIST-B:
KEEP LAST WITHIN KEEPLIST-A USING KEEPLIST-B.
• To insert the fourth keeplist entry relative to the current position in
KEEPLIST-A as the last entry in KEEPLIST-B:
KEEP OFFSET 4 WITHIN KEEPLIST-A USING KEEPLIST-B.
4–44 Procedure Division