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

Step 3 -- Connect to the Database/Data Set

Call the following APIs from your payroll system. They should be called only once per session.

C Instructions:

/*
** Connecting to the database
*/

BSI_CHAR str[256] = "";

if (!ConnectToDataSource(str, NULL))
fprintf(stderr, "Connect to data source error: %s.\n", str);

Note: The above API gets the connection information from the environment variable DATABASE. Set this variable before you run your payroll system.

Following are valid examples:

$ export DATABASE=TF10/<yourpassword> /* For Oracle version */

$ export DATABASE=TF10 /* for DB2 version */

$ export DATABASE=TF10@myinformixserver /* for Informix version */

/*
** Connecting to the dataset
*/

BSI_CHAR str[256] = "";
TF10_SESSION Session;

strcpy(str, "MyDataSet");
if (!ConnectToDataSet(str, "TF10", "bsi", &Session, NULL))
fprintf(stderr, "Connect to data set error: %s.\n", str);

COBOL Instructions:

COPY TF10API.
.
.
.
MOVE "<DB2 CONNECTION STRING>" TO ERROR-MESSAGE.
CALL "TF1011" USING
    BY REFERENCE ERROR-MESSAGE
    BY REFERENCE RTN-CODE.
    RETURNING RTN-STATUS

IF RTN-STATUS NOT = 1
    DISPLAY "ERROR ON CONNECT TO A DATABASE:" ERROR-MESSAGE.
STOP RUN.

COPY TF10API.
.
.
.
MOVE "MYDATASET" TO ERROR-MESSAGE.
CALL "TF10002" USING
    BY REFERENCE ERROR-MESSAGE
    BY REFERENCE TF1001-LOGIN-USERID
    BY REFERENCE TF1001-LOGIN-PASSWD
    BY REFERENCE TF10-SESSION-ID
    BY REFERENCE RTN-CODE.

IF RTN-CODE NOT = 1
    DISPLAY "ERROR ON CONNECT TO A DATASET:" ERROR-MESSAGE.
STOP RUN.

RPG Instructions:

MOVE     *BLANKS        ERRMSG
CALLB    'TF1001'
PARM                    ERRMSG
PARM                    T9RTNC

MOVE     *BLANKS        ERRMSG
MOVE     *BLANKS        *T9GUSR
MOVE     *BLANKS        *T9GPW
MOVEL    'DEFAULT'      ERRMSG
MOVEL    '*SVRAUTH'     *T9GUSR
CALLB    'TF1002'
PARM                    ERRMSG
PARM                    T9GUSR
PARM                    T9GPW
PARM                    T9SESS
PARM                    T9RTNC

At this point you can run the payroll to complete the tax calculation or import the payroll information to the What If Tool.