Communications › CICS Interval Control Start

CICS Interval Control Start

Use this method to issue any DBOC or DBEC command as a separate CICS task. With this method, CA Datacom CICS Services provides no return code or response. When CA Datacom CICS Services processes the command, it writes any response to the Message Log file (DBOCPRT) and to the terminal, if one is specified.

When using an Interval Control Start, provide a data area containing the command in the same format as you would type on a terminal. For details about using an Interval Control Start, see the CICS application programming documentation. Use the terminal ID parameter to identify the output display, if one is available.

Interval Control Start Data Area

 ----+----1----+----2----+----3----+----4----+----5 . . . +----8
DBOC OPEN=0001

Sample COBOL Program

The following sample program demonstrates issuing a CA Datacom CICS Services command as a separate task using the CICS Interval Control Start.

IDENTIFICATION DIVISION
	..
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
         ..
       01  WORK-AREA.
           02  WORK-AREA-COMMAND PIC  X(80)       VALUE SPACES.
         ..
         ..
       PROCEDURE DIVISION.
         ..
      *---------------------------------------------------------------*
      *    EXAMPLE WITHOUT TERMID                                     *
      *---------------------------------------------------------------*
           MOVE 'DBOC OPEN=0001'   TO WORK-AREA-COMMAND.
           EXEC CICS START TRANSID('DBOC')
                FROM(WORK-AREA) LENGTH(80)  END-EXEC.
         ..
      *---------------------------------------------------------------*
      *    EXAMPLE WITH TERMID                                        *
      *---------------------------------------------------------------*
           MOVE 'DBOC OPEN=0001'   TO WORK-AREA-COMMAND.
           EXEC CICS START TRANSID('DBOC') TERMID('XXXX')
                FROM(WORK-AREA) LENGTH(80)  END-EXEC.
         ..

Note: If you have modified the DBOC or DBEC transaction ID (for example, through the GENOPTS screen) to some other value then the value you specify in the EXEC statement must reflect this new value.

EXEC CICS START TRANSID('xxxx')