Technical data

STORE
DBM$_CHKITEM A record-name item contains an invalid value as
determined by a schema CHECK clause.
DBM$_CHKMEMBER A record-name item contains an invalid value as
determined by a schema CHECK clause.
DBM$_CHKRECORD A record-name item contains an invalid value as
determined by a schema CHECK clause.
DBM$_CSTYP_NULL The set currency indicator for an AUTOMATIC,
nonsingular set type in which record-name is a member
is null.
DBM$_CONVERR A data conversion error occurred in the STORE
operation.
DBM$_ILLNCHAR Invalid character found in a numeric field.
DBM$_NONDIGIT Nonnumeric character found in a numeric field.
DBM$_OVERFLOW A data overflow error occurred in the STORE operation.
DBM$_TRUNCATION A data truncation error occurred in the STORE
operation.
DBM$_UNDERFLOW A data underflow error occurred in the STORE
operation.
DBM$_SETSELECT You cannot store this record using this subschema.
Either add the specified set type to your subschema or
use a different subschema.
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
010-ADD-NEW-CLASS-RECORDS.
DISPLAY "ENTER CLASS CODE".
ACCEPT CLASS_CODE.
DISPLAY "ENTER CLASS DESCRIPTION".
ACCEPT CLASS_DESC.
DISPLAY "ENTER CLASS STATUS".
ACCEPT CLASS_STATUS.
STORE CLASS_REC WITHIN MAKE
ON ERROR DISPLAY "ERROR STORING CLASS . . . "
PERFORM 200-STORE-CLASS-ERROR
END-STORE.
Procedure Division 4–61