initialize_application

Description

Generates a call to set the application name on the global CS_CONTEXT handle. If precompiled with the -x option, it will also set the cs_config(CS_SET, CS_EXTERNAL_CONFIG, CS_TRUE) property.

Syntax

exec sql initialize_application 
 [application_name “=” application_name] end-exec

Examples

Example 1

 EXEC SQL INCLUDE SQLCA END-EXEC.
 
 
    EXEC SQL BEGIN DECLARE SECTION END-EXEC.
           01 SPID          PIC S9(9) COMP.
           01 PROG-NAME     PIC X(33).
           01 UID          PIC X(33).
           01 PASS          PIC X(33).
    EXEC SQL END DECLARE SECTION END-EXEC.
 
    PROCEDURE DIVISION.
    PO.
 
 * The INITIALIZE_APPLICATION MUST be the FIRST embedded SQL statement
 * in the program.
 
  EXEC SQL INITIALIZE_APPLICATION APPLICATION_NAME
               = "TEST" END-EXEC.
 * The body of the main procedure division goes here including all ESQL
 * statements.
    ...EXEC SQL CONNECT :UID IDENTIFIED BY :PASS END-EXEC.
       EXEC SQL SELECT @@spid INTO :SPID END-EXEC.
       EXEC SQL SELECT program_name INTO :PROG-NAME
          FROM master..sysprocesses
          WHERE spid = :SPID END-EXEC.
       DISPLAY "THIS APPLICATION'S NAME IN SYSPROCESSES IS ", PROG-NAME.
 
     ...EXEC SQL EXIT END-EXEC.

Usage

See also

exit