Converting DBOMP to CA IDMS/DB › Converting DBOMP Load and Maintenance Programs › DBOMP Process Indicators and Corresponding DML

DBOMP Process Indicators and Corresponding DML

Replacing DBOMP process indicators with equivalent CA IDMS DML statements is part of program conversion (see the steps for converting programs). On the following pages, DBOMP process indicators are shown with their equivalent DML statements (and associated logic, where appropriate). DML statements are shown in this order:

• Assembler
• COBOL
• PL/I

OPEN

►►─── @READY ─┬─ ALL ───┬─────────────────────────────────────────────────────►◄
              └─ AREA= ─┘
►►─── READY ──────────────────────────────────────────────────────────────────►◄
►►─── READY ─┬─────────┬─ ; ──────────────────────────────────────────────────►◄
             └─ AREA= ─┘

CLOS

►►─── @FINISH ────────────────────────────────────────────────────────────────►◄
►►─── FINISH ─────────────────────────────────────────────────────────────────►◄
►►─── FINISH; ────────────────────────────────────────────────────────────────►◄

MADD and MCRT

►►─── @STORE REC= ────────────────────────────────────────────────────────────►◄
►►─── STORE ──────────────────────────────────────────────────────────────────►◄
►►─── STORE RECORD; ──────────────────────────────────────────────────────────►◄

Associated Logic

Build record in user work area and move key to required field before STORE.

MDEL and MTAG

►►─── @ERASE ─┬─ REC ───────┬─ ,REC= ─────────────────────────────────────────►◄
              ├─ PERMANENT ─┤
              ├─ SELECTIVE ─┤
              └─ ALL ───────┘
►►─── ERASE ──┬────────────────────────────┬──────────────────────────────────►◄
              └─┬─ PERMANENT ─┬─ MEMBERS ──┘
                ├─ SELECTIVE ─┤
                └─ ALL ───────┘
►►─── ERASE RECORD ─┬─────────────┬─ ; ───────────────────────────────────────►◄
                    ├─ PERMANENT ─┤
                    ├─ SELECTIVE ─┤
                    └─ ALL ───────┘

Associated Logic

For MTAG, insert user logic to accomplish tagging.

CADD

►►─── @STORE REC= ────────────────────────────────────────────────────────────►◄
►►─── STORE ──────────────────────────────────────────────────────────────────►◄
►►─── STORE RECORD; ──────────────────────────────────────────────────────────►◄

Associated Logic

Move parent master record key to program variable storage; FIND CALC parent master record; build 'chain' record; move subordinate master key to program variable storage; FIND CALC subordinate master record; CONNECT subordinate master record to appropriate set; perform low-level code routine; set membership for product-structure relationship is MM.

CADD (Subordinate Master)

►►─── @STORE REC= ────────────────────────────────────────────────────────────►◄
►►─── STORE ──────────────────────────────────────────────────────────────────►◄
►►─── STORE RECORD; ──────────────────────────────────────────────────────────►◄

Associated Logic

Move parent master record key to program variable storage; move subordinate master record key to program variable storage; build 'chain' record in program variable storage; FIND CALC parent master record; FIND CALC subordinate master record; STORE 'chain' record; NOTE: set membership for subordinate master record is assumed MA.

CADD (No Subordinate Master)

►►─── @STORE REC= ────────────────────────────────────────────────────────────►◄
►►─── STORE ──────────────────────────────────────────────────────────────────►◄
►►─── STORE RECORD; ──────────────────────────────────────────────────────────►◄

Associated Logic

Move master record key to program variable storage; build 'chain' record; FIND CALC master record; STORE 'chain' record.

CDLS

►►─── @ERASE ─┬─ REC ───────┬─ ,REC= ─────────────────────────────────────────►◄
              ├─ PERMANENT ─┤
              ├─ SELECTIVE ─┤
              └─ ALL ───────┘
►►─── ERASE ──┬────────────────────────────┬──────────────────────────────────►◄
              └─┬─ PERMANENT ─┬─ MEMBERS ──┘
                ├─ SELECTIVE ─┤
                └─ ALL ───────┘
►►─── ERASE RECORD ─┬─────────────┬─ ; ───────────────────────────────────────►◄
                    ├─ PERMANENT ─┤
                    ├─ SELECTIVE ─┤
                    └─ ALL ───────┘

Associated Logic

Move master record key to program variable storage; FIND CALC master record; OBTAIN NEXT record within set; check error status; loop until record is found or end of set reached; delete found record.

CDLM

►►─── @ERASE ─┬─ REC ───────┬─ ,REC= ─────────────────────────────────────────►◄
              ├─ PERMANENT ─┤
              ├─ SELECTIVE ─┤
              └─ ALL ───────┘
►►─── ERASE ──┬────────────────────────────┬──────────────────────────────────►◄
              └─┬─ PERMANENT ─┬─ MEMBERS ──┘
                ├─ SELECTIVE ─┤
                └─ ALL ───────┘
►►─── ERASE RECORD ─┬─────────────┬─ ; ───────────────────────────────────────►◄
                    ├─ PERMANENT ─┤
                    ├─ SELECTIVE ─┤
                    └─ ALL ───────┘

Associated Logic

Move master record to program variable storage; FIND CALC master record; OBTAIN NEXT record within set; delete 'chain' record; check error status; loop until end of set.

CCSR

►►─── @MODIFY REC= ───────────────────────────────────────────────────────────►◄
►►─── MODIFY ─────────────────────────────────────────────────────────────────►◄
►►─── MODIFY RECORD; ─────────────────────────────────────────────────────────►◄

Associated Logic

Move subordinate master record key to program variable storage; OBTAIN CALC subordinate master record; change subordinate master record key to desired value; MODIFY subordinate master record.

CEQL

►►─── @STORE REC= ────────────────────────────────────────────────────────────►◄
►►─── STORE ──────────────────────────────────────────────────────────────────►◄
►►─── STORE RECORD; ──────────────────────────────────────────────────────────►◄

Associated Logic

Move parent master record key to program variable storage; FIND CALC parent master record; OBTAIN NEXT record within set; move key of obtained record to program variable storage for parent master record; FIND CALC record; STORE retrieved ('chain') record.

CCHG

►►─── @MODIFY REC= ───────────────────────────────────────────────────────────►◄
►►─── MODIFY ─────────────────────────────────────────────────────────────────►◄
►►─── MODIFY RECORD; ─────────────────────────────────────────────────────────►◄

Associated Logic

Move master record key to program variable storage; FIND CALC master record; MODIFY record as required.

CFIN and CEND

Have no IDMS equivalents

Associated Logic

If end of set is desire, FIND OWNER within set.

SADD

►►─── @CONNECT REC=,SET= ─────────────────────────────────────────────────────►◄
►►─── CONNECT TO ─────────────────────────────────────────────────────────────►◄
►►─── CONNECT RECORD SET; ────────────────────────────────────────────────────►◄

Associated Logic

Move master record key to program variable storage; FIND CALC master record; OBTAIN NEXT record within set; move subordinate record key to master record key in program variable storage; FIND CALC master record; CONNECT found master record to appropriate set.

SDEL

►►─── @DISCON REC=,SET= ──────────────────────────────────────────────────────►◄
►►─── DISCONNECT FROM ────────────────────────────────────────────────────────►◄
►►─── DISCONNECT RECORD SET; ─────────────────────────────────────────────────►◄

Associated Logic

FIND CALC record; OBTAIN NEXT record within set; DISCONNECT retrieved record.

CCRT

See information for CADD

MRKY

►►─── @FIND CALC,REC= ────────────────────────────────────────────────────────►◄
►►─── FIND CALC ──────────────────────────────────────────────────────────────►◄
►►─── FIND CALC RECORD; ──────────────────────────────────────────────────────►◄

MRAN

►►─── @OBTAIN CALC,REC= ──────────────────────────────────────────────────────►◄
►►─── OBTAIN CALC ────────────────────────────────────────────────────────────►◄
►►─── OBTAIN CALC RECORD; ────────────────────────────────────────────────────►◄

MDIR

►►─── @OBTAIN DBKEY= ─────────────────────────────────────────────────────────►◄
►►─── OBTAIN DB-KEY IS ───────────────────────────────────────────────────────►◄
►►─── OBTAIN DBKEY; ──────────────────────────────────────────────────────────►◄

MRDR

►►─── @FIND DBKEY= ───────────────────────────────────────────────────────────►◄
►►─── FIND DB-KEY IS ─────────────────────────────────────────────────────────►◄
►►─── FIND DBKEY; ────────────────────────────────────────────────────────────►◄

MUPD

►►─── @MODIFY REC= ───────────────────────────────────────────────────────────►◄
►►─── MODIFY ─────────────────────────────────────────────────────────────────►◄
►►─── MODIFY RECORD; ─────────────────────────────────────────────────────────►◄

MWRT

Has no CA IDMS/DB equivalent

CDIR

►►─── @OBTAIN DBKEY= ─────────────────────────────────────────────────────────►◄
►►─── OBTAIN DB-KEY IS ───────────────────────────────────────────────────────►◄
►►─── OBTAIN DBKEY ───────────────────────────────────────────────────────────►◄

CUPD

►►─── @MODIFY REC= ───────────────────────────────────────────────────────────►◄
►►─── MODIFY ─────────────────────────────────────────────────────────────────►◄
►►─── MODIFY RECORD; ─────────────────────────────────────────────────────────►◄

Associated Logic

OBTAIN record before issuing MODIFY.

CWRT

Has no CA IDMS/DB equivalent

CMPR and EXPN

Have no CA IDMS/DB equivalents; addresses are not compressed in CA IDMS/DB