------------------------SDT2 ValidateCard--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ValidateCard--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!- ; FPAR IN CardNbr Integer; RETURNS Boolean;)]})]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------C()[8(! Procedure ValidateCard)]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------!%()HeaderText------------------------------------!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1------------------------------------------------- !%&()LinkEndpoints----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 62! )[8(!& DCL DBpo s IndexType, DB DBArrayType;)]][9"(! 6~2! )[8(!I NEWTYPE DBArrayType Array(IndexType,PostType) ENDNEWTYPE DBArrayType;)]][&w(! 6! d)[8(! )][}(!^ !"^)[6z(! 6! d)[8(! DBpos:= 0 )][(!&!"&)[6(! 6&! X,)[8(! DB(1)!CardElement:=1, DB(1)!CodeElement:=(. 1 .), DB(2)!CardElement:=2, DB(2)!CodeElement:=(. 2 .), DB(3)!CardElement:=3, DB(3)!CodeElement:=(. 3 .), DB(4)!CardElement:=4, DB(4)!CodeElement:=(. 4 .))][(!R!" R)[(! 6!Z)][3(! 6! d)[8(! Search)]]]]]]]][3(! 6! d)[8(! Search)][(!&!" &)[(! 6&! d)[8(! DBpos <= 9)][(!!")[ (! 6! d)[8(!! DB(DBpos)!CardElement = CardNbr)][(!!")[8(! 63! True)]['(! 6! d)[8(! True)]]][ (! !" )[8(! 6-R! False)][ (! 6! d)[8(! DBpos <9)][ (!!")[8(! 6-! True)][6(! 6! d)[8(! DBpos:= DBpos+1)][(!~!"~)[(! 6!Z)][3(! 6! d)[8(! Search)]]]]][(!x!"x)[8(! 6'! False)]['(! 6! d)[8(! False)]]]]]]]]]]]]}-------------------------------------(!4"!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P