------------------------SDT2Register----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText-----------------------------------  Register-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! EXPORTED PROCEDURE Register)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------3()[8(!E ; FPAR IN card Charstring, IN code KeyArrayType;RETURNS OKType;)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------[()[(!  ! 22!(d)[h(!  )[k(! 6)[n(! 6d! )]][ t(! 6l)][9(! 6d! !S)[8(! D!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ---- --------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------CL j Integer;)]][&w(! 6^,! d!S)[8(! )][(!!")[6(! 6! Xd!S)[8(!8 CurrentCardNbr := Curre ntCardNbr + 1, thePINCode := '')][ (!"99R!"R)[(! 6R!! !S)[8(!6 cardbase!NoOfElements := CardBase!NoOfElements + 1  (!4=!5!7)[!(! 1!!2!3)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------[()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------)]]][ (!"99XRX!"RX)[(! 6R&!! !S)[8(!y cardbase!cardarray(cardbase!NoOfElements)!carddata := card, cardbase!cardarray(ca rdbase!NoOfElements)!codedata := code )]]][(!&!"&)[ (! 6^! d!S)[8(! CurrentCardNbr = 1)][(!^ !" ^)[8(! 6! false)][6(! 6d ! d!S)[8(! Master := '0')][(!"!")[6(! 6^! d!S)[8(! j := 1;)][(!L!"L)[6(! 6d! d!S)[8(!; thePINCode := thePINCode // mkstring(code(j)), j := j + 1)][(!F!"F)[ (! 6,F! ,d!S)[8(! j > KeyMax)][(!*,x2x2!",x)[8(! 62e! false)][(! 6!)][)()]][(!XxRxR!"RXx)[8(! 6k! true)][6(! 62! @^!S)[8(!F SQL_stmt_ptr := #code('#(SQL_stmt)'), SQL_stmt_ptr := strcpy (SQL_stmt_ptr, #code('"INSERT INTO Card_Code_table (CardNbr, PINCode, Master) VALUES("')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('&#(card)[1]')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('", "')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('&#(thePINCode)[1]')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('", "')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('&#(Master)[1]')), SQL_stmt_ptr := strcat (SQL_stmt_ptr, #code('")"')), retcode := SQLExecDirect (hstmt, #code('(unsigned char*)#(SQL_stmt)'), 256) )][(!R:Rl!"RlR:)[ (! 6l! d!S)[8(!> (retcode = SQL_SUCCESS) OR (retcode = SQL_SUCCESS_WITH_INFO))][:(!"RR4!"4R)[8(! 6! false)][67(! 624! x!S)[8(! temp := #code('#(SQL_state)'), temp2 := #code('#(Msg)'), retcode := SQLGetDiagRec(SQL_HANDLE_STMT, hstmt, 1, temp, &NativeError, temp2, 256, &MsgLen))][=(!( !"( )[6(! 6( ! d!S)[8(!" retcode := SQLCloseCursor(hstmt))]["(!  !"  )['(! 6 ! d!S)[8(! NotOK)]]]]]]][((!@@( !"@( )[8(! 6l! true)][6%(! 6F( ! d!S)[8(!" retcode := SQLCloseCursor(hstmt))][+(!@ @ !"@ @ )['(! 6 ! d!S)[8(! OK)]]]]]]]]]]]]]]]]][(!& !" &)[8(! 6! true)][6(! 6 ! d!S)[8(! Master:=' 1')][ (!RRR!"RRR)[(! 6 !! !S)[8(!( Set if this is the first card inserted)]]][(!"!")[(! 6!)][)()]]]]]]]]]]]}--------------------------------------------------------------------------------------