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

book

Article ID: 16548

calendar_today

Updated On:

Products

CA Datacom - DB CA Datacom CA Datacom - AD CA Datacom - Server CA CIS CA Common Services for z/OS CA 90s Services CA Database Management Solutions for DB2 for z/OS CA Common Product Services Component CA Common Services CA Datacom/AD CA ecoMeter Server Component FOC CA Easytrieve Report Generator for Common Services CA Infocai Maintenance CA IPC Unicenter CA-JCLCheck Common Component CA Mainframe VM Product Manager CA Chorus Software Manager CA On Demand Portal CA Service Desk Manager - Unified Self Service CA PAM Client for Linux for zSeries CA Mainframe Connector for Linux on System z CA Graphical Management Interface CA Web Administrator for Top Secret CA CA- 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.