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

Products

• Datacom
• DATACOM - AD
• CIS
• COMMON SERVICES FOR Z/OS
• 90S SERVICES
• DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS
• COMMON PRODUCT SERVICES COMPONENT
• Common Services
• CA ECOMETER SERVER COMPONENT FOC
• Easytrieve Report Generator for Common Services
• INFOCAI MAINTENANCE
• IPC
• UNICENTER JCLCHECK COMMON COMPONENT
• Mainframe VM Product Manager
• CHORUS SOFTWARE MANAGER
• CA ON DEMAND PORTAL
• CA Service Desk Manager - Unified Self Service
• PAM CLIENT FOR LINUX ON MAINFRAME
• MAINFRAME CONNECTOR FOR LINUX ON MAINFRAME
• GRAPHICAL MANAGEMENT INTERFACE
• WEB ADMINISTRATOR FOR TOP SECRET
• Xpertware

Issue/Introduction

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. 

Environment

Release: DATABB00200-14-Datacom/AD
Component:

Resolution

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.