/*
 * This function does the tpcall to Tuxedo.
 */
static int
do_tpcall(char *service)

{

       long len;
       char *server_status;
       /* Begin a Global transaction */
       if (tpbegin(30, 0) == -1) {
              (void)fprintf(stderr, "ERROR: tpbegin failed (%s)\n",
                     tpstrerror(tperrno));
              return(-1);
       }
       /* Request the service with the user data */
       if (tpcall(service, (char *)fbfr, 0, (char **)&fbfr, &len,
                     0) == -1) {
              if(tperrno== TPESVCFAIL && fbfr != NULL &&
                  (server_status=Ffind(fbfr,STATLIN,0,0)) != 0) {
                     /* Server returned failure */
                     (void)fprintf(stderr, "%s returns failure
                     (%s)\n",
                            service,server_status);
              }
              else {
                     (void)fprintf(stderr,
                            "ERROR: %s failed (%s)\n", service,
                            tpstrerror(tperrno));
              }
              /* Abort the transaction */
              (void) tpabort(0);
              return(-1);
       }
       /* Commit the transaction */
       if(tpcommit(0) < 0) {
              (void)fprintf(stderr, "ERROR: tpcommit failed
                     (%s)\n",
                     tpstrerror(tperrno));
              return(-1);
       }
       return(0);
}

     main()
    {
         Parse command-line options with getopt();      
         Join application with tpinit();
         Begin global transaction with tpbegin();
         If (branch_ID specified) {
                   Allocate buffer for service requests with tpalloc();
                   Place branch_ID into the aud structure;
                   Do tpcall() to "ABAL_BID" or "TBAL_BID";
                   Print balance for branch_ID;
                   Free buffer with tpfree();
         }
         else /* branch_ID not specified */
                   all subroutine sum_bal();
         Commit global transaction with tpcommit();
         Leave application with tpterm();
    }
    sum_bal()
    }
         Allocate buffer for service requests with tpalloc();
         For (each of several representative branch_ID's,
                   one for each site)
                   Do tpacall() to "ABAL" or "TBAL";
         For (each representative branch_ID) {
                   Do tpgetrply() wtith TPGETANY flag set
                            to retrieve replies;
                   Add balance to total;
                   Print total balance;
         }
         Free buffer with tpfree();
    }

    main()
    {

            Join the application
            Begin a transaction
            Open a connection to conversational service AUDITC
            Do until user says to quit: {
                     Query user for input
                     Send service request
                     Receive response
                     Print response on user's terminal
                     Prompt for further input
            }

            Commit transaction
            Leave the application
    }

    void BR_ADD (TPSVCINFO *transb)
    {
            -set pointer to TPSVCINFO data buffer;
            -get all values for service request from field buffer;
            -insert record into BRANCH;
            -tpreturn() with success;
    }

    void TLR_ADD (TPSVCINFO *transb)
    {
            -set pointer to TPSVCINFO data buffer;
            -get all values for service request from fielded buffer;
            -get TELLER_ID by reading branch's LAST_ACCT;
            -insert teller record;
            -update BRANCH with new LAST_TELLER;
            -tpreturn() with success;
    }

    void OPEN_ACCT(TPSVCINFO *transb)
    {
        -Extract all values for service request from fielded buffer using Fget()
         and Fvall();
        -Check that initial deposit is positive amount and tpreturn() with 
         failure if not;
        -Check that branch ID is a legal value and tpreturn() with failure if it 
         is not;
        -Set transaction consistency level to read/write;
        -Retrieve BRANCH record to choose new account based on branch's LAST_ACCT
         field;
        -Insert new account record into ACCOUNT file;
        -Update BRANCH record with new value for LAST_ACCT;
        -Create deposit request buffer with tpalloc(); initialize it for FML with
         Finit();
        -Fill deposit buffer with values for DEPOSIT service request;
         -Increase priority of coming DEPOSIT request since call is from a service;
        -Do tpcall() to DEPOSIT service to add amount of initial balance;
        -Prepare return buffer with necessary information;
        -Free deposit request buffer with tpfree();
         tpreturn() with success;
    }

    void CLOSE_ACCT(TPSVCINFO *transb)
    {
       -Extract account ID from fielded buffer using Fvall();
       -Check that account ID is a legal value and tpreturn() with failure if it
        is not;
       -Set transaction consistency level to read/write;
       -Retrieve ACCOUNT record to determine amount of final withdrawal;
       -Create withdrawal request buffer with tpalloc(); initialize it for FML
        with Finit();
       -Fill withdrawal buffer with values for WITHDRAWAL service request;
       -Increase priority of coming WITHDRAWAL request since call is from
        a service;
       -Do tpcall() to WITHDRAWAL service to withdraw balance of account;
       -Delete ACCOUNT record;
       -Prepare return buffer with necessary information;
       -Free withdrawal request buffer with tpfree();
       tpreturn with success;
    }

    void WITHDRAWAL(TPSVCINFO *transb)
    {
       -Extract account id and amount from fielded buffer using Fvall() and Fget();
      -Check that account id is a legal value and tpreturn() with failure if not;
            -Check that withdraw amount (amt) is positive and tpreturn() with failure          
        if not;
       -Set transaction consistency level to read/write;
       -Retrieve ACCOUNT record to get account balance;
       -Check that amount of withdrawal does not exceed ACCOUNT balance;
       -Retrieve TELLER record to get teller's balance and branch id;
       -Check that amount of withdrawal does not exceed TELLER balance;
       -Retrieve BRANCH record to get branch balance;
       -Check that amount of withdrawal does not exceed BRANCH balance;
       -Subtract amt to obtain new account balance;
       -Update ACCOUNT record with new account balance;
       -Subtract amt to obtain new teller balance;
       -Update TELLER record with new teller balance;
       -Subtract amt to obtain new branch balance;
       -Update BRANCH record with new branch balance;
       -Insert new HISTORY record with transaction information;
       -Prepare return buffer with necessary information;
        tpreturn with success;
    }

    void DEPOSIT(TPSVCINFO *transb)
    {
        -Extract account id and amount from fielded buffer using Fvall() and Fget();
      -Check that account ID is a legal value and tpreturn() with failure if not;
      -Check that deposit amount (amt) is positive and tpreturn() with failure if
        not;
      -Set transaction consistency level to read/write;
      -Retrieve ACCOUNT record to get account balance;
      -Retrieve TELLER record to get teller's balance and branch ID;
      -Retrieve BRANCH record to get branch balance;
      -Add amt to obtain new account balance;
      -Update ACCOUNT record with new account balance;
      -Add amt to obtain new teller balance;
      -Update TELLER record with new teller balance;
      -Add amt to obtain new branch balance;
      -Update BRANCH record with new branch balance;
      -Insert new HISTORY record with transaction information;
      -Prepare return buffer with necessary information;
      tpreturn() with success;
    }

    void INQUIRY(TPSVCINFO *transb)
    {
      -Extract account ID from fielded buffer using Fvall();
      -Check that account ID is a legal value and tpreturn() with failure if not;
      -Set transaction consistency level to read only;
      -Retrieve ACCOUNT record to get account balance;
      -Prepare return buffer with necessary information;
       tpreturn() with success;
    }

    void TRANSFER(TPSVCINFO *transb)
    {
       -Extract account ID's and amount from fielded buffer using Fvall() 
        and Fget();
       -Check that both account IDs are legal values and tpreturn() with 
        failure if not;
       -Check that transfer amount is positive and tpreturn() with failure if 
        it is not;
       -Create withdrawal request buffer with tpalloc(); initialize it for 
        FML with
        Finit();
         -Fill withdrawal request buffer with values for WITHDRAWAL service request;
       -Increase priority of coming WITHDRAWAL request since call is from
        a service;
       -Do tpcall() to WITHDRAWAL service;
       -Get information from returned request buffer;
       -Reinitialize withdrawal request buffer for use as deposit request buffer
          with Finit();
       -Fill deposit request buffer with values for DEPOSIT service request;
       -Increase priority of coming DEPOSIT request;
       -Do tpcall() to DEPOSIT service;
       -Prepare return buffer with necessary information;
       -Free withdrawal/deposit request buffer with tpfree();
       tpreturn() with success;
    }

    void ABAL(TPSVCINFO *transb)
    {
       -Set transaction consistency level to read only;
       -Retrieve sum of all ACCOUNT file BALANCE values for the
         database of this server group (A single ESQL
         statement is sufficient);
       -Place sum into return buffer data structure;
       tpreturn( ) with success;
    }

    void TBAL(TPSVCINFO *transb)
    {
       -Set transaction consistency level to read only;
       -Retrieve sum of all TELLER file BALANCE values for the
         database of this server group (A single ESQL
         statement is sufficient);
       -Place sum into return buffer data structure;
       tpreturn( ) with success;
    }

    void ABAL_BID(TPSVCINFO *transb)
    {
       -Set transaction consistency level to read only;
       -Set branch_ID based on transb buffer;
       -Retrieve sum of all ACCOUNT file BALANCE values for records
         having BRANCH_ID = branch_ID (A single ESQL
         statement is sufficient);
       -Place sum into return buffer data structure;
       tpreturn( ) with success;
    }

    void TBAL_BID(TPSVCINFO *transb)
    {
       -Set transaction consistency level to read only;
       -Set branch_ID based on transb buffer;
       -Retrieve sum of all TELLER file BALANCE values for records
         having BRANCH_ID = branch_ID (A single ESQL
         statement is sufficient);
       -Place sum into return buffer data structure;
       tpreturn( ) with success;
    }

    #
    # Resource Manager
    #
    RM=TUXEDO/SQL
    #

    Booting admin processes
    exec DBBL -A :
          on MASTER -> process id=17160Started.
    exec BBL -A :
          on MASTER -> process id=17161Started.
    exec BBL -A :
          on NONMAST2 -> CMDTUX_CAT:814: cannot propagate TUXCONFIG file
    tmboot: WARNING: No BBL available on site NONMAST2.
          Will not attempt to boot server processes on that site.
    exec BBL -A :
          on NONMAST1 -> CMDTUX_CAT:814: cannot propagate TUXCONFIG file
    tmboot: WARNING: No BBL available on site NONMAST1.
          Will not attempt to boot server processes on that site.
    2 processes started.
    and messages such as these will be in the ULOG: 
    133757.mach1!DBBL.17160: LIBTUX_CAT:262: std main starting
    133800.mach1!BBL.17161: LIBTUX_CAT:262: std main starting
    133804.mach1!BRIDGE.17162: LIBTUX_CAT:262: std main starting
    133805.mach1!tmboot.17159: LIBTUX_CAT:278: Could not contact NLS on NONMAST2
    133805.mach1!tmboot.17159: LIBTUX_CAT:276: No NLS available for remote
      machine NONMAST2
    133806.mach1!tmboot.17159: LIBTUX_CAT:276: No NLS available for remote
      machine NONMAST2
    133806.mach1!tmboot.17159: CMDTUX_CAT:850: Error sending TUXCONFIG
      propagation request to TAGENT on NONMAST2
    133806.mach1!tmboot.17159: WARNING: No BBL available on site NONMAST2.
           Will not attempt to boot server processes on that site.
    133806.mach1!tmboot.17159: LIBTUX_CAT:278: Could not contact NLS on NONMAST1
    133806.mach1!tmboot.17159: LIBTUX_CAT:276: No NLS available for
      remote machine NONMAST1
    133806.mach1!tmboot.17159: LIBTUX_CAT:276: No NLS available for
     remote machine NONMAST1
    133806.mach1!tmboot.17159: CMDTUX_CAT:850: Error sending TUXCONFIG
      propagation request to TAGENT on NONMAST1
    133806.mach1!tmboot.17159: WARNING: No BBL available on site NONMAST1.
            Will not attempt to boot server processes on that site.
If tlisten is started with the wrong machine address, the following messages
appear in the tlisten log. 

    Mon Aug 26 10:51:56 1991; 14240; Oracle TUXEDO System Listener Process Started
    Mon Aug 26 10:51:56 1991; 14240; Could not establish listening endpoint
    Mon Aug 26 10:51:56 1991; 14240; Terminating listener process, SIGTERM

$ tmshutdown
Shutdown all server processes? (y/n): y
Shutting down all server processes in /usr/me/BANKAPP/TUXCONFIG
Shutting down server processes ...

Server Id = 1 Group Id = BANKB1 Machine = Site1:  shutdown succeeded.