Communications › CICS XCTL

CICS XCTL

With this method, your application may initiate:

• Any DBOC Command
• Any DBEC Command
• The DBUG Facility
• The DBTS Facility

If you want to develop a menu driver or initiate a DBOC command, use a CICS XCTL to DCCOCPR with a communication area completed as described here. For DBEC, XCTL to DCCECPR.

Procedure for DBOC or DBEC Commands

The communication area (DFHCOMMAREA) must be at least 80 bytes in length.

• Supply the command in the same format as you would type on a terminal.
• Issue an EXEC CICS XCTL to program DCCOCPR for DBOC or to DCCECPR for DBEC. This program examines the communication area and performs the command, overwriting any panel or data on the terminal with the response of the command.
• Once the command is complete, DCCOCPR or DCCECPR returns control to CICS.

Procedure for DBUG Command

The communication area (DFHCOMMAREA) must be at least 80 bytes in length.

• Supply the DBUG transaction as you would on a terminal. You can follow the transaction ID with any valid operand.
• Issue an EXEC CICS XCTL to program DCCFBPR. This program examines the communication area and displays the DEBUG Criteria Selection Panel, overwriting any panel or data on the terminal. If the criteria has been supplied with the transaction, the message is displayed that the request has been serviced and overwrites any panel or data on the terminal.
• Press Clear after all interaction is completed. DCCFBPR returns control to CICS.

Procedure for DBTS

The communication area (DFHCOMMAREA) must be at least 80 bytes in length.

• Supply the DBTS transaction as you would on a terminal.
• Issue an EXEC CICS XCTL to program DCUTSPR. This program examines the DFHCOMMAREA to determine that DBTS is required.
• Place the transaction ID (DBTS) in the DFHCOMMAREA.
• DBTS is displayed and sent to the terminal where you can interact with the DBTS facility.
• Press Clear after all interaction is completed. DCUTSPR returns control to CICS.

Example

DFHCOMMAREA

 ----+----1----+----2----+----3----+----4----+----5 . . . +----8

 DBOC RESTART=????  (for example)
  or
 DBTS
  or
 DBUG or DBUG BOTH (for example)
  or
 DBEC P,MSIDNAME(DBSIDPR),DISCONNECT,SYSID(CZDS) (for example)

Sample COBOL Program

The following sample program demonstrates how to address and format the DFHCOMMAREA to command CA Datacom CICS Services to open URTs or to initiate the DBUG or DBTS facility.

       IDENTIFICATION DIVISION.
         ..
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
         ..
       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.
         ..
         ..
       PROCEDURE DIVISION.
         ..
         ..
           MOVE 'OPEN=0001'     TO COMM-AREA-COMMAND.
           EXEC CICS XCTL PROGRAM('DCCOCPR') COMMAREA(COMM-AREA)
                LENGTH(82)  END-EXEC.
         ..
         ..
         ..
       END-PGM.
         ..