Transparency Programs and Macros › IMBSPROC Database Procedure

IMBSPROC Database Procedure

IMBSPROC, supplied in source and object form on the CA IDMS DML installation media, is a database procedure. This procedure moves pointers of current records (that participate in the sets described in IMBSTAB) from the subschema table to a CA IDMS/DB dummy record. The bridge program BINDs the dummy record to the IMBSTAB pointer table.

Integration of IMBSPROC into the Bridge Program

Integration of IMBSPROC into the bridge program is as follows:

• When a DBOMP program issues a retrieval or update request, the bridge program issues a GET of the dummy record before:
  • Moving the CA IDMS/DB record to the CA IDMS/DB logical record buffer

    or

  • Returning the DBOMP record to the database
• When the bridge program issues a GET of the dummy record, CA IDMS/DB calls IMBSPROC. IMBSPROC places currency information (pointers) in the dummy record.
• IMBSPROC moves pointers for the sets identified in the IMBSTAB set table from the subschema table to the dummy record and cancels the GET command issued to CA IDMS/DB.
• IMBSPROC returns the updated dummy record to the bridge program.
• The bridge program proceeds to move the pointers for the requested record from the dummy record into the DBOMP file work area, placing them as specified in IMBSTAB.

  Note: To protect the integrity of the CA IDMS/DB database, pointers are not returned with record data to the database when a write function has been requested.

What You Need To Do

The bridge program and IMBSPROC logic is transparent to the calling program. You must, however:

• Define the dummy record in the schema
• Include the dummy record in any subschema as that bridged programs use, thereby making it available to IMBSPROC and IMBSBRDG

In the schema RECORD description that describes the dummy record, include a CALL statement that directs CA IDMS/DB to call IMBSPROC before GETting the dummy record.

For example, see this sample COBOL RECORD description:

          record name is imbs-record.
          record id is 799.
          location mode is direct.
          within bill-of-matrl area.
          call imbsproc before get.

              05 imbs-pointers occurs n times.
                 10 imbs-pointer pic x(4) occurs 4 times.

Code the RECORD description paragraph as shown in the sample, changing the values for RECORD NAME, RECORD ID, and AREA name as necessary. Supply a value for n (in the 05-level OCCURS statement) that is less than or equal to the value specified in the SETLMT clause of the IMBS macro control statement.