Technical data

FREE
Technical Note
FREE statement execution can result in these database exception conditions and
those associated with a Database Key Identifier:
DBM$_BADZERO Integer-exp is zero.
DBM$_END You accessed a keeplist with fewer entries than you
expected.
Additional References
• Section 2.2, on reserved words (database special registers)
• HP COBOL Reference Manual, Chapter 6, section on scope of statements
• Section 4.4, on database key identifiers
• Section 4.8.1, on database On Error condition
• USE statement
Examples
1. Currency indicator access
• To free the current record of the run unit:
FREE CURRENT.
• To free the currency indicator for the PART record:
FREE CURRENT WITHIN PART.
• To free all currencies:
FREE ALL CURRENT.
2. Keeplist access
• To free the first keeplist entry in KEEPLIST-A:
FREE FIRST WITHIN KEEPLIST-A.
• To free the last keeplist entry in KEEPLIST-A:
FREE LAST WITHIN KEEPLIST-A.
• To free the second keeplist entry relative to the current position in the
keeplist:
FREE OFFSET 2 WITHIN KEEPLIST-B.
• To empty a keeplist:
FREE ALL FROM KEEPLIST-B
• To empty all keeplists:
FREE ALL
4–40 Procedure Division