------------------------SDT2Check----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText-----------------------------------  Check----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! EXPORTED PROCEDURE Check)]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------0()[8(!F ; FPAR IN card Charstring, code KeyArrayType;RETURNS ResultType;)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------\()[(!  ! 22!(d)[(! .  )[(! 6)[(! 6d! )]][ (! 6)][9(! 6d! !S)[8(! D!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1-------------------------------------------------DefinitionPage------------------------------------  !%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------CL i Integer; )]][&z(! 6,! d!S)[8(! )][(!XX!"XX)[6(! 6! ,d!S)[8(! i := 1, thePINCode :=  '')][(!X&XX!"XXX&)[6(! 6X! d!S)[8(!; thePINCode := thePINCode // mkstring(code(i)), i := i + 1)][(!XX!" XX)[ (! 6! ,d!S)[8(! i > KeyMax)][(!*  ?X?XX!"XX )[8(! 6K ! false)][(!4F!5!7)[!(! 1!!2!3)]}(! 1!!2!3)]]}-----------------------------------------------------------------------------------------------------------------------[()[w(!GSDL)]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- = "')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('&#(thePINCode)[1]')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('")"')), retcode := SQLExecDirect (hstmt, #code('(unsigned char*)#(SQL_stmt)'), SQL_NTS))][ (!"l!"l)[ (! 6 l! d!S)[8(!> (retcode = SQL_SUCCESS) OR (retcode = SQL_SUCCESS_WITH_INFO))][(!4!"4(! 6X?!)][)()]][(!"XRXkk!"XR)[8(! 6! true)][6(! 62! !S)[8(!S retcode := SQLBindCol(hstmt, 1, #code('SQL_C_SLONG'), #code('(void *)&#(PINCode)'), 0, #code('&#(CodeNbrInd)')), retcode := SQLBindCol(hstmt, 2, #code('SQL_C_SLONG'), #code('(void *)&#(CardId)'), 0, #code('&#(CardNbrInd)')), retcode := SQLBindCol(hstmt, 3, #code('SQL_C_SLONG'), #code('(void *)&#(CardIndex)'), 0, #code('&#(MasterInd)')))][(!"Lee~!"~L)[6(! 62~! ,!S)[8(! SQL_stmt_ptr := #code('#(SQL_stmt)'), SQL_stmt_ptr := strcpy (SQL_stmt_ptr, #code('"SELECT CardNbr, PINCode, Master FROM Card_Code_table WHERE (CardNbr = "')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('&#(card)[1]')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('" AND PINCode )[8(! 6! true)][6 (! 64! d!S)[8(! retcode := SQLFetch(hstmt))][:(! !" )[ @(! 6r ! d!S)[8(! retcode /= SQL_NO_DATA)][F(!r  " !"" r )[8(! 6 ! false)][(! 6 !)][6.(! 6" ! d!S)[8(!" retcode := SQLCloseCursor(hstmt))][4(!  !"  )['(! 6 ! d!S)[8(! NotOK)]]]]][C(! " !""  )[8(! 6 ! true)][67(! 6" ! d!S)[8(!" retcode := SQLCloseCursor(hstmt))][=(!  !"  )[ (! 6r ! d!S)[8(! CardIndex)][(!  !"  )[8(! 65 ! else)]['(! 6r ! d!S)[8(! Main)]]][(!:   !" : )[8(! 6 ! /=1)]['(! 6 ! d!S)[8(! OK)]]]]]]]]]]][((! !" )[8(! 64! false)][6"(! 62! x!S)[8(! temp := #code('#(SQL_state)'), temp2 := #code('#(Msg)'), retcode := SQLGetDiagRec(SQL_HANDLE_STMT, hstmt, 1, temp, &NativeError, temp2, 256, &MsgLen))][1(!. " !"" . )[).()]]]]]]]]]]]]]]]]]]]}!S)[8(! temp := #CODE('#(SQL_state)'), temp2 := #CODE('#(Msg)'), retcode := SQLGetDiagRec(SQL_HANDLE_STMT, hstmt, 1, temp, &NativeError, temp2, 256, &MsgLen))][1(!. " !"" . )[).()]]]]]]]]]]]]]]]]]]]]]]]}-------------------------------------------------------