/******************************************************************************
* COPYRIGHT (C) 1990-1997 by      SECURITY DYNAMICS TECHNOLOGIES, INC.        *
*                         ---ALL RIGHTS RESERVED---                           *
*                                                                             *
* THIS SOFTWARE IS PROPRIETARY AND CONFIDENTIAL TO SECURITY DYNAMICS          *
* TECHNOLOGIES, INC., IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION    *
* OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THEREOF   *
* MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO    *
* TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.                *
*                                                                             *
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND    *
* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY SECURITY DYNAMICS TECHNOLOGIES,  *
* INC.                                                                        *
******************************************************************************/

/* This procedure is calculated how many records in the given table {1}.
 * It will then return the sum of number of the record in the given table plus
 * the value that passed in.
 *  
 * This file primarily used for sdmigrate.sh.
 */
 
DEFINE OUTPUT PARAMETER sub-total AS INTEGER.


DEFINE QUERY table-query FOR {1} CACHE 1.
OPEN QUERY table-query PRESELECT EACH {1}.

sub-total = NUM-RESULTS("table-query").

CLOSE QUERY table-query.