Step_5_Disconnect_from_the_Database

BUSINESS SOFTWARE, INC. (BSI) CONFIDENTIAL AND PROPRIETARY INFORMATION

Step 5 -- Disconnect from the Database

$image\TRIANG.gif$ Close the database connection as follows:

C Instructions:

/*
** Disconnect from the database at the end
*/
if (!DisconnectDataSource(NULL))
printf("Disconnect data source error\n");

COBOL Instructions:

COPY TF10API.
77 RTN-CODE                PIC S9(04) VALUE 0 COMP-4.
.
.
.
CALL "PROCESSREVERSETAXES" USING
    BY REFERENCE TF10-SESSION-ID
    BY REFERENCE RTN-CODE
    RETURNING RTN-STATUS.
CALL "DISCONNECTDATASOURCE" USING
    BY REFERENCE RTN-CODE
    RETURNING RTN-STATUS.
STOP RUN.

RPG Instructions:

LR      CALLB   'TF1004'
PARM               T9SESS
PARM               T9RTNC
LR      CALLB   'TF1003'
PARM               T9RTNC