How can I issue a DBOC or DBEC command from a user program?

Document ID : KB000016548
Last Modified Date : 14/02/2018
Show Technical Document Details
Question:

How can I issue a DBOC or DBEC command from a user program?

For example I want to do a DBOC INQ=CODES from a program. 

Answer:

You can code a CICS program to do a XCTL to program DCCOCPR to issue a DBOC command and get the output in the DBOCPRT file. 

You can call DCCOCPR for DBOC or DCCECPR for a DBEC command. When calling these programs the CICS COMM area contains the DBOC or DBEC command that you would normally type on the terminal. Define it like this: 

01 COMM-AREA.
02 COMM-AREA-ID PIC X(05) VALUE 'DBOC '.
02 COMM-AREA-COMMAND PIC X(75) VALUE SPACES.
02 COMM-AREA-RTNCDE PIC X(02) VALUE SPACES. 

For example, to issue a DBOC INQ=CODES you would code this: 

MOVE 'INQ=CODES' TO COMM-AREA-COMMAND.

Additional Information:

See DocOps section CICS XCTL.