Running DBOC or DBEC command from a user program

Products

• Datacom

Issue/Introduction

This article explains how a user program can run a Datacom CICS Services DBOC command or a DBEC command.

Environment

z/OS

Datacom CICS Services 15.1 

Resolution

Code a CICS program to do an XCTL to program DCCOCPR to issue a DBOC command and get the output in the DBOCPRT file. 

Call DCCOCPR for DBOC or DCCECPR for a DBEC command. When calling these programs the CICS commarea contains the DBOC or DBEC command that normally would be typed 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 , code

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

 

Additional Information

For documentation, see CICS XCTL .