{$I OVC.INC}

{$B-} {Complete Boolean Evaluation}
{$I+} {Input/Output-Checking}
{$P+} {Open Parameters}
{$T-} {Typed @ Operator}
{$W-} {Windows Stack Frame}
{$X+} {Extended Syntax}

{$IFNDEF Win32}
{$G+} {286 Instructions}
{$N+} {Numeric Coprocessor}
{$C MOVEABLE,DEMANDLOAD,DISCARDABLE}
{$ENDIF}

{*********************************************************}
{*                  OVCVALID.PAS 2.00                    *}
{*     Copyright (c) TurboPower Software Co 1995-96      *}
{*                 All rights reserved.                  *}
{*********************************************************}

unit OvcValid;

interface

uses
  OvcEf, OvcPb;


const
  {the following special characters are used by ValidateSubfields}
  PartialChar = 'p';  {prohibit Partial entry in this subfield}
  ReqdChar    = 'r';  {entire subfield is Required}
  UnlessChar  = 'u';  {no blanks in subfield unless whole field is blank}

{*** validation routine helper functions ***}

function ValidateNoBlanks(EF : TOvcPictureBase) : Word;
  {-validate that no usable fields in a string contain spaces}
function ValidateNotPartial(EF : TOvcPictureBase) : Word;
  {-validate that no usable fields in a string contain spaces unless all do}
function ValidateSubfields(EF : TOvcPictureBase; const SubfieldMask : string) : Word;
  {-validate that subfields in a string meet the requirements of SubfieldMask}


implementation
