@MODE—initializes global SET symbols

DML Precompiler-Directive Statements › @MODE—initializes global SET symbols

@MODE—initializes global SET symbols

The @MODE statement initializes global SET symbols for the assembler; these symbols control the generation of macros associated with CA IDMS/DB requests. You must specify the operating mode for programs that access a CA IDMS/DB database. If you do not code an @MODE statement, you can specify the CA IDMS/DB environment by using the MODE parameter of the @INVOKE statement, described later in this chapter. For CA IDMS programs that do not require access to a CA IDMS/DB database, the function of the @MODE statement is to indicate the operating mode: batch or online. An online mode selection is made from one of the valid teleprocessing monitors.

The @MODE and the @INVOKE statement must precede all other DML statements in the program. Either statement can be placed before the other.

@Mode Syntax

►►─── @MODE MODE= ─┬─ BATCH ─────┬────────────────────────────────────────────►
                   ├─ IDMSDC ────┤
                   ├─ DCBATCH ───┤
                   ├─ CICS ──────┤
                   ├─ CICS-EXEC ─┤
                   ├─ INTERCOMM ─┤
                   └─ SHADOW ────┘

 ►─┬──────────────────────┬───────────────────────────────────────────────────►
   └─ ,QUOTES= ─┬─ YES ◄ ┬┘
                └─ NO ───┘

 ►─┬─────────────────────┬────────────────────────────────────────────────────►
   └─ ,DEBUG ─┬─ NO  ◄ ─┬┘
              └─ YES ───┘

 ►─┬──────────────────────────────────┬───────────────────────────────────────►◄
   └─ ,WORKREG= ─┬─ 0 ◄ ─────────────┬┘
                 └─ register-number ─┘

@MODE Parameters

MODE=

Defines the operating environment for which the calling sequence will be generated. If the @MODE statement is not used, the CA IDMS/DB environment must be specified in the @INVOKE statement, which is discussed below.

BATCH: (Default); specifies to execute the program in batch mode. The IDMS communications block is copied into variable storage; standard CALL statements are generated.
IDMSDC: Specifies to execute the program in IDMS DC mode. The IDMS DC communications block is copied into variable storage; CA IDMS/DC CALL statements are generated for CA IDMS/DC requests.
DCBATCH: Specifies to execute the program in DC-BATCH mode. The IDMS DC communications block is copied into variable storage; DC-BATCH CALL statements are generated for CA IDMS/DC requests. Specify MODE=DCBATCH to access DC queues and printers from batch applications running under the CA IDMS central version.
CICS/CICS-EXEC/INTERCOMM/SHADOW: Specifies to execute the program in a special environment under the specified teleprocessing monitor. The appropriate communications block is copied into variable storage and operating-mode-specific CALL sequences are generated.

QUOTES=

Required for programs that access the CA IDMS/DB database; indicates whether names (such as record name or area name) coded in DML statements must be enclosed in site-standard quotation marks.

YES: (Default); specifies to enclose names specified in CA IDMS/DB database requests in site-standard quotation marks.
NO: Specifies to not enclose names specified in CA IDMS/DB database requests in site-standard quotation marks.

DEBUG=

Required for programs that access the CA IDMS/DB database; requests the DML precompiler to save sequence numbers associated with DML statements in the IDMS communications block, as follows:

NO

(Default); specifies not to save sequence numbers of DML statements.

YES

Generates the appropriate code for saving sequence numbers associated with DML statements. At runtime, the sequence number of each DML statement is moved to the IDMS communications block before program execution. These sequence numbers appear in the Assembler source statement listing in the form DML-SEQUENCE=n. Depending on the error routine defined by the DBA, the DML sequence number can be reported when errors occur and can be used to assist you in debugging your Assembler program.

Note: This option does not apply to DC/UCF requests. Statement numbers associated with DC/UCF requests cannot be saved because the system does not use the IDMS communications block.

WORKREG=0/

Required for programs that access the CA IDMS/DB database; specifies the general purpose register to be used for constructing the IDMS parameter list for calls to IDMS.

register: An integer in the range 0 through 15, or any valid symbolic or defining term for the general-purpose register (for example, R0). The default is general register 0.