-- $Source: /commtar/monoBANK/RTS/tKparams.bdy,v $ -- $Revision: 1.1 $ -- $Date: 88/04/22 15:39:13 $ -- $Author: callen $ package body Parameters is -- Since we don't have a command line on CICS from which to -- pick parameters, just always return the default values. -- Visible subprogram bodies function PickBoolean( ParamName : string; Default : boolean) return boolean is begin return Default; end PickBoolean; function PickInteger( ParamName : string; Default : integer) return integer is begin return Default; end PickInteger; function PickString( ParamName : string; Default : string) return string is begin return Default; end PickString; end Parameters; -- $Cprt start$ -- -- Copyright (C) 1988 by Intermetrics, Inc. -- -- This material may be used duplicated or disclosed by or for the -- U.S. Government pursuant to the copyright license under DAR clause -- 7-104.9(a) (May 1981). -- -- This project was spnsored by the STARS Foundation -- Naval Research Laboratory, Washington DC -- -- $Cprt end$