Database Access Commands › Logical Record Facility Commands › STORE

STORE

Purpose

Stores new occurrences of logical records.

Syntax

►►─── STORE lr-name ────┬───────────────────────────────────┬─────────────────►
                        └─ WHERE lr-conditional-expression ─┘

 ►──┬────────────────────┬─── . ──────────────────────────────────────────────►◄
    └─ error-expression ─┘

Parameters

lr-name

Specifies the name of the Logical Record Facility record.

Lr-name must be known to the dialog's subschema.

WHERE lr-conditional-expression

Specifies the selection criteria to be applied to the logical record request.

Syntax for lr-conditional-expression is described earlier in this section.

error-expression

Specifies the status codes that are returned to the dialog.

Usage

Considerations

The execution of a STORE command does not necessarily result in new occurrences of all or any of the database records used to create the object logical record. The path selected to service the STORE request performs only the database access operations specified in the subschema.

For example, CUST-ORDER-LR comprises fields from the CUSTOMER, PRODUCT, ORDOR, and ITEM records. A new CUST-ORDER-LR logical record is stored for each new customer order; however, only new occurrences of the ORDOR and ITEM records are actually added to the database. The CUSTOMER and PRODUCT records already exist in the database.

Example

The statements in the following example store a new occurrence of the logical record CUST-ORDER-LR for customer 1234567890. The DBA-designated keywords NEW-ORDER and NEW-ITEM direct LRF to the logical record paths that store new order and new item information, respectively.

MOVE ORDER-NEW TO ORDOR.
STORE CUST-ORDER-LR
  WHERE CUST-NUMBER EQ '1234567890' AND NEW-ORDER.
      .
      .
      .

MOVE ITEM-NEW TO ITEM.
MODIFY CUST-ORDER-LR
  WHERE NEW-ITEM.

More information:

Error Handling