Technical data

RECONNECT
DBM$_NOT_UPDATE The realm is not in ready update usage mode.
DBM$_NOT_MBR You attempted to reconnect a record to a set in which
it is not a member.
DBM$_CHKMEMBER The Oracle CODASYL DBMS CHECK (member)
condition was evaluated to be false. The database has
not been changed.
Additional References
• Section 2.2, on reserved words (database special registers)
• HP COBOL Reference Manual, Chapter 6, section on scope of statements
• Section 4.8.1, on database On Error condition
• Section 5.14.1, on RETAINING clause
• USE statement
Example
This example shows how to change a record’s set membership (terminal
classifications) when the record (VT3) is a MANDATORY member. (OPTIONAL
members must be DISCONNECTED from the old set occurrence and
CONNECTED to the new set occurrence.)
ZK−6157−GE
TERMINALS SUPPORTED
VT1 VT3
VT2
TERMINALS NOT SUPPORTED
VT4
BEFORE
MOVE "TERMINALS NOT SUP" TO CLASS_DESC.
FIND FIRST CLASS-REC WITHIN ALL_CLASS
USING CLASS_DESC.
MOVE "VT3" TO PART_DESC.
FIND FIRST PART WITHIN ALL_PARTS_ACTIVE.
USING PART_DESC
RETAINING CLASS_PART.
RECONNECT PART WITHIN CLASS_PART.
Procedure Division 4–55