TDACCEPT

%INCLUDE SYGWPLI;

01 TDPROC                 PTR,
01 RETCODE                FIXED BIN(31),
01 IHANDLE                PTR,
01 ACCEPT_CONNECTION_NAME CHAR(08) INIT('  '),
01 ERROR_SUBCODE          FIXED BIN(31);

CALL TDACCEPT (TDPROC,	RETCODE,	IHANDLE,
                ACCEPT_CONNECTION_NAME, ERROR_SUBCODE);

TDPROC

(O) Handle for this client/server connection. All subsequent server functions using this connection must specify this same value in the TDPROC argument. The TDPROC handle corresponds to the connection and command handles in Open Client Client-Library.

RETCODE

(O) Variable where the result of function execution is returned. Its value is one of the codes listed in Table 3-2.

IHANDLE

(I) A transaction-wide structure that contains information used to set up the Gateway-Library environment. This must be the same IHANDLE specified in the program’s initial TDINIT call. It corresponds to the context structure in Open Client Client-Library.

ACCEPT_CONNECTION_NAME

(I) Leave blank. CICS and IMS TM get this information elsewhere.

ERROR_SUBCODE

(O) Detailed error information. Provides additional information about the cause of failure when TDACCEPT returns a return code other than TDS_OK. For a list of error subcodes, see Mainframe Connect Client Option and Server Option Messages and Codes.

The RETCODE argument can contain any of the return values listed in Table 3-2.

The following code fragment illustrates the use of TDINIT, TDACCEPT, TDSNDDON, TDFREE, and TDTERM at the beginning and end of a Gateway-Library program. This example is taken from the sample program in Appendix B, “Sample RPC Application for CICS.”

 	/*------------------------------------------------------------------*/
  	INITIALIZE_PROGRAM:
 	/*------------------------------------------------------------------*/
 
  	/*      ------------------------------------------------------------*/
  	/*      reset db2 error handlers                                    */
  	/*      ------------------------------------------------------------*/
          EXEC SQL WHENEVER SQLWARNING CONTINUE;
          EXEC SQL WHENEVER SQLERROR   CONTINUE;
          EXEC SQL WHENEVER NOT FOUND  CONTINUE;
 
  	/*      ------------------------------------------------------------*/
  	/*      establish gateway environment                               */
  	/*      ------------------------------------------------------------*/
          CALL TDINIT (DFHEIBLK, GWL_RC, GWL_INIT_HANDLE);
 
  	/*      ------------------------------------------------------------*/
  	/*      accept client request                                       */
  	/*      ------------------------------------------------------------*/
          CALL TDACCEPT (GWL_PROC, GWL_RC, GWL_INIT_HANDLE,
                         SNA_CONNECTION_NAME,
                         SNA_SUBC);
  	/*------------------------------------------------------------------*/ 
  	/*  (BODY OF PROGRAM)                                               */ 
  	/*------------------------------------------------------------------*/ 
          GO TO END_PROGRAM; 
	/*------------------------------------------------------------------*/
	END_PROGRAM:
	/*------------------------------------------------------------------*/
          IF SEND_DONE = SEND_DONE_OK THEN
              WRK_DONE_STATUS = TDS_DONE_COUNT;
 
          ELSE
          DO;
              WRK_DONE_STATUS  = TDS_DONE_ERROR;
              PARM_RETURN_ROWS = 0;
          END;
 
          CALL TDSNDDON (GWL_PROC, GWL_RC,
                         WRK_DONE_STATUS,
                         PARM_RETURN_ROWS,
                         TDS_ZERO,
                         TDS_ENDRPC);
 
          CALL TDFREE (GWL_PROC, GWL_RC);
          EXEC CICS RETURN;
 
  END SYSAMP1;

Example 2

The following code fragment illustrates the use of TDINIT, TDSETPT, and TDACCEPT at the beginning of a Gateway-Library program. This example is taken from the sample program in Appendix D, “Sample RPC Application for IMS TM (Explicit).”

/*      ------------------------------------------------------------*/
/*       establish gateway environment                              
/*      ------------------------------------------------------------*/
          CALL TDINIT (P_PCBTERM, GWL_RC, GWL_INIT_HANDLE); 
	[check return code]
/*      ------------------------------------------------------------*/
/*        set program type to EXPL 
/*      ------------------------------------------------------------*/
          GWL_PROG_TYPE = ‘EXPL’;                                       
                                                                        
          CALL TDSETPT (GWL_INIT_HANDLE, GWL_RC, GWL_PROG_TYPE,         
                        GWL_SPA_PTR, TDS_NULL, TDS_NULL); 
	[check return code]

/*      ------------------------------------------------------------*/
/*      accept client request                                       */
/*      ------------------------------------------------------------*/
          CALL TDACCEPT (GWL_PROC, GWL_RC, GWL_INIT_HANDLE,             
                         SNA_CONNECTION_NAME,                           
                         SNA_SUBC);                                     
	[check return code]

Usage

TDACCEPT

• TDACCEPT retrieves login information from the login packet sent with the client request. The login packet contains information needed by the mainframe program, including the following:

  • The client login name and password.

  • The national language and character set used by the client.

  • The type of request (language, RPC, cursor or dynamic). If the request is an RPC, the RPC name. If the request is a cursor, the cursor name.

  • The name of the TRS sending the request (in a three-tier environment). The name of the Open Server from the interfaces file (in a two-tier environment).

  Your program can retrieve login information with TDGETUSR.

• TDACCEPT returns the handle for the conversation initiated by this client request.

  This book uses the term conversation to refer to active connections for both SNA and TCP/IP.

• A successful TDACCEPT puts the server application in RECEIVE state. The server application can then call TDRCVSQL, TDYNAMIC, TDRCVPRM or TDCURPRO to retrieve incoming SQL text, RPC parameters or cursor information. See “Communication states” for a discussion of SEND and RECEIVE states.

• TDACCEPT returns standard communication subcodes. These codes are listed in Mainframe Connect Client Option and Server Option Messages and Codes.

• Only one TDACCEPT can be in an Open ServerConnect program. If this is a long-running transaction, use TDACCEPT to accept the first client request and TDGETREQ to accept subsequent requests.

Character set conversion

Customization

Login packet

For Japanese users

Loading the JCM

See also

• TDFREE

• TDINIT

Related topics

• “Character sets”

• “The login packet”

• “Processing Japanese client requests”

• “Customization”

Related documents

• Mainframe Connect Client Option and Server Option Messages and Codes

---

Copyright © 2007. Sybase Inc. All rights reserved.

View this document as PDF