840-FIND-<Index>

Name

840-FIND-<Index>

Description

840-FIND-<Index> reads the single database record whose key fields equal the values you set in the record retrieval variables (DB fields) corresponding to the index key fields. Because this call looks for a specific record, all DB fields must have a value entered before performing the routine.

Input Values

Field Description

<Index>

You must specify the index in the FIND statement.
Record retrieval variables (also known as DB fields) You must populate the index key fields used to locate the record before using this call.

Return Values

Field Description
<FileName>-SW The Find routines set the <FileName>-SW switch to indicate the outcome of the read.

<FileName>-NOTFOUND

<FileName>-FOUND

Each routine sets the logical value <FileName>-NOTFOUND or <FileName>-FOUND based on the outcome of the read process.

Programming Example

The following example shows the call used to retrieve a record from the GLMASTER file.

*       Find the company record in GLMASTER.
*
        MOVE WS-COMPANY              TO DB-COMPANY.
        MOVE WS-VAR-LEVELS           TO DB-VAR-LEVELS.
        MOVE WS-ACCT-UNIT            TO DB-ACCT-UNIT.
        MOVE WS-ACCOUNT              TO DB-ACCOUNT.
        MOVE WS-SUB-ACCOUNT          TO DB-SUB-ACCOUNT.
        PERFORM 840-FIND-GLMSET1.