#define  col     58
 
#pragma fieldalign matched2 __cob_rec_def
typedef   struct __cob_rec_def
   {
   short                           cob_code;
   struct                                                                   /* COB_KEY */
      {
      struct                                                                /* KEY_STRING */
         {
         char                            key_byte;
         char                            key_odd[5];
         char                            key_even[6];
         char                            key_a6[6];
         } key_string;
      struct                                                                /* KEY_NUMBER */
         {
/* PIC_F_8S */
         char                            key_sr[16];
/* PIC_F_2S */
         char                            key_usr[10];
/* PIC_F_0U */
         char                            key_p9l[8];
/* PIC_F_0U */
         char                            key_p9s[2];
         } key_number;
      } cob_key;
   struct                                                                   /* COB_TEST */
      {
/* PIC_F_8S */
      char                            i_sr[16];
/* PIC_F_2S */
      char                            i_usr[10];
/* PIC_F_0U */
      char                            i_p9l[8];
/* PIC_F_0U */
      char                            i_p9s[2];
/* PIC_F_8S */
      char                            o_sr[16];
/* PIC_F_2S */
      char                            o_usr[10];
/* PIC_F_0U */
      char                            o_p9l[8];
/* PIC_F_0U */
      char                            o_p9s[2];
      } cob_test;
   struct                                                                   /* COB_RESULTS */
      {
      char                            passed[20];
      char                            failed[20];
      char                            ret_alpha[40];
      char                            ret_byte;
      struct                                                                /* RET_NUMERIC */
         {
         short                           ret_num1;
         short                           ret_num2;
         short                           ret_num3;
         short                           ret_num4;
         short                           ret_num5;
         short                           ret_num6;
         short                           ret_num7;
         } ret_numeric;
      } cob_results;
   } cob_rec_def;
cob_rec_def   cob_rec;
#pragma fieldalign matched2 __sql_cob_rec_def
typedef   struct __sql_cob_rec_def
   {
   short                           pre_key;
   char                            key_col[56];
   char                            aft_key[172];
   } sql_cob_rec_def;
sql_cob_rec_def   sql_cob_rec;
short                           pre_key;
char                            key_col[56];
char                            aft_key[172];
 
#pragma fieldalign matched2 __c_ws_def
typedef   struct __c_ws_def
   {
   struct                                                                   /* WS_FILE_STATUS */
      {
      short                           file_status;
      } ws_file_status;
/* 88 NO-ERROR                         VALUE 00. */
/* 88 END-OF-FILE                      VALUE 10. */
/* 88 RECORD-NOT-FOUND                 VALUE 23. */
/* 88 FILE-ERROR                       VALUE 01 THRU 09,  11 THRU 21, 24 THRU 99. */
   short                           ws_error;
/* 88  NO-PROBLEMS            VALUE 0. */
/* 88  PROBLEMS               VALUE 1. */
   short                           ws_done;
/* 88  NOT-DONE               VALUE 0. */
/* 88  DONE                   VALUE 1. */
   char                            ws_data[40];
/* PIC_F_0U */
   char                            ws_p9[3];
/* PIC_F_0U */
   char                            ws_ptr[3];
/* PIC_F_0U */
   char                            ws_pass[3];
/* PIC_F_0U */
   char                            ws_fail[3];
   short                           ws_start;
   short                           ws_p9c;
   struct                                                                   /* WS_DATE */
      {
      struct                                                                /* ARY[7] */
         {
         short                           dti;
         } ary[7];
      } ws_date;
   } c_ws_def;
c_ws_def   c_ws;
 
 
cob_rec_def   rcv_in_cob_rec;
cob_rec_def   rcv_out_cob_rec;
cob_rec_def   key_file_cob_rec;
 
short     rcv_in_cob_rec_index;
short     rcv_out_cob_rec_index;
short     key_file_cob_rec_index;
 


 #pragma section AEI_SQL_KEYPOSITION_COBFILE
 short AEI_SQL_KEYPOSITION_COBFILE(char *pa1,short pb1)
 {
 Form1->Timer1->Enabled = false;
 memset(&sql_cob_rec,(char)' ',sizeof(sql_cob_rec));
 memcpy(&sql_cob_rec,pa1,sizeof(sql_cob_rec));
 sqlfirst = true;
 if ((pb1 & 0xE000) == 0xE000)
    sqlmode = PREV;            /*PREV*/
 else if ((pb1 & 0xE000) == 0x8000)
    sqlmode = NEXT;           /*NEXT*/
 else if ((pb1 & 0x0003) == 2)
    sqlmode = EXACT;          /*EXACT*/
 Form1->COBFILEQ->Close();
 Form1->COBFILEQ->SQL->Clear();
 Form1->COBFILEQ->SQL->Add("SELECT * FROM COBFILE");
 if (sqlmode == PREV)
    {
    Form1->COBFILEQ->SQL->Add("WHERE   (KEY_COL <= :sql_cob_rec.key_col)");
    Form1->COBFILEQ->SQL->Add("ORDER BY KEY_COL ASC");
    }
 else if (sqlmode == EXACT)
    {
    Form1->COBFILEQ->SQL->Add("WHERE   (KEY_COL = :sql_cob_rec.key_col)");
    Form1->COBFILEQ->SQL->Add("ORDER BY KEY_COL ASC");
    }
 else if (sqlmode == NEXT)
    {
    Form1->COBFILEQ->SQL->Add("WHERE   (KEY_COL >= :sql_cob_rec.key_col)");
    Form1->COBFILEQ->SQL->Add("ORDER BY KEY_COL ASC");
    }
 Form1->COBFILEQ->Params->Items[0]->AsString   = (char *)sql_cob_rec.key_col;
 Form1->COBFILEQ->Prepare();
 Form1->COBFILEQ->Open();
 sqlcode = CCE;
 Form1->Timer1->Enabled = true;
 return(sqlcode);
 }

 #pragma section AEI_SQL_READ_COBFILE
 short AEI_SQL_READ_COBFILE(char *pa1,short pb1)
 {
 Form1->Timer1->Enabled = false;
 memset(&sql_cob_rec,(char)' ',sizeof(sql_cob_rec));
 memcpy(&sql_cob_rec,pa1,sizeof(sql_cob_rec));
 if (sqlmode == PREV)
    {
    if (sqlfirst)
       {
       sqlfirst=false;
       if (Form1->COBFILEQ->FindLast() )
          sqlcode = CCE;
       else
         sqlcode = SQL_EOF;
       }
     else
       {
       if (Form1->COBFILEQ->FindPrior() )
          sqlcode = CCE;
       else
         sqlcode = SQL_EOF;
       }
    }
 else if (sqlmode == EXACT)
    {
    if (Form1->COBFILEQ->FindFirst() )
       sqlcode = CCE;
    else
      sqlcode = SQL_EOF;
    }
else if (sqlmode == NEXT)
    {
    if (sqlfirst)
       {
       sqlfirst=false;
       if (Form1->COBFILEQ->FindFirst() )
          sqlcode = CCE;
       else
         sqlcode = SQL_EOF;
       }
     else
       {
       if (Form1->COBFILEQ->FindNext() )
          sqlcode = CCE;
       else
         sqlcode = SQL_EOF;
       }
    }
else
   {
   sqlcode = SQL_EOF;
   }
 if (sqlcode == CCE)
    {
    Form1->COBFILEQ->Fields->Fields[0]->GetData((char *)sql_cob_rec.key_col,True);
    Form1->COBFILEQ->Fields->Fields[1]->GetData((char *)gl,True);
    sql_cob_rec.pre_key = (short)gl;
    try
      {
      AEIS = Form1->COBFILEQ->CreateBlobStream(Form1->COBFILEQ->Fields->Fields[2],bmRead);
      AEIS->Read(sql_cob_rec.aft_key,sizeof(sql_cob_rec.aft_key));
      }
    catch (...)
      {
      sqlcode = SQL_EOF;
      throw;
      }
    delete AEIS;
    memcpy((char *)pa1,(char *)&sql_cob_rec,sizeof(sql_cob_rec));
    }
 else
    sqlcode = SQL_EOF;
 Form1->Timer1->Enabled = true;
 return(sqlcode);
 }

 #pragma section AEI_SQL_WRITE_COBFILE
 short AEI_SQL_WRITE_COBFILE(char *pa1,short pb1)
 {
 Form1->Timer1->Enabled = false;
 memset(&sql_cob_rec,(char)' ',sizeof(sql_cob_rec));
 memcpy(&sql_cob_rec,pa1,sizeof(sql_cob_rec));
 Form1->COBFILEQ->Close();
 Form1->COBFILEQ->SQL->Clear();
 Form1->COBFILEQ->SQL->Add("SELECT * FROM COBFILE");
 Form1->COBFILEQ->SQL->Add("WHERE   (KEY_COL = :sql_cob_rec.key_col)");
 Form1->COBFILEQ->SQL->Add("ORDER BY KEY_COL ASC");
 Form1->COBFILEQ->Params->Items[0]->AsString   = (char *)sql_cob_rec.key_col;
 Form1->COBFILEQ->Prepare();
 Form1->COBFILEQ->Open();
 if (Form1->COBFILEQ->IsEmpty() )
    {
    Form1->COBFILEQ->Close();
    Form1->COBFILEQ->SQL->Clear();
    Form1->COBFILEQ->SQL->Add("INSERT  INTO COBFILE");
    Form1->COBFILEQ->SQL->Add("       (KEY_COL,PRE_KEY,AFT_KEY)");
    Form1->COBFILEQ->SQL->Add("VALUES (:sql_cob_rec.key_col,");
    Form1->COBFILEQ->SQL->Add("        :sql_cob_rec.pre_key,");
    Form1->COBFILEQ->SQL->Add("        :sql_cob_rec.aft_key)");
    Form1->COBFILEQ->Params->Items[0]->AsString   = (char *)sql_cob_rec.key_col;
    Form1->COBFILEQ->Params->Items[1]->AsSmallInt = (short )sql_cob_rec.pre_key;
    Form1->COBFILEQ->Params->Items[2]->SetBlobData(sql_cob_rec.aft_key,sizeof(sql_cob_rec.aft_key));
    Form1->COBFILEQ->ExecSQL();
    sqlcode = CCE;
    }
 else
    sqlcode = SQL_EOF;
 Form1->Timer1->Enabled = true;
 return(sqlcode);
 }

 #pragma section AEI_SQL_UPDATE_COBFILE
 short AEI_SQL_UPDATE_COBFILE(char *pa1,short pb1)
 {
 Form1->Timer1->Enabled = false;
 memset(&sql_cob_rec,(char)' ',sizeof(sql_cob_rec));
 memcpy(&sql_cob_rec,pa1,sizeof(sql_cob_rec));
 Form1->COBFILEQ->Close();
 Form1->COBFILEQ->SQL->Clear();
 Form1->COBFILEQ->SQL->Add("SELECT * FROM COBFILE");
 Form1->COBFILEQ->SQL->Add("WHERE   (KEY_COL = :sql_cob_rec.key_col)");
 Form1->COBFILEQ->SQL->Add("ORDER BY KEY_COL ASC");
 Form1->COBFILEQ->Params->Items[0]->AsString   = (char *)sql_cob_rec.key_col;
 Form1->COBFILEQ->Prepare();
 Form1->COBFILEQ->Open();
 if (Form1->COBFILEQ->IsEmpty() )
    sqlcode = SQL_EOF;
 else
    {
    Form1->COBFILEQ->Close();
    Form1->COBFILEQ->SQL->Clear();
    Form1->COBFILEQ->SQL->Add("UPDATE    COBFILE");
    Form1->COBFILEQ->SQL->Add("  SET     KEY_COL = :sql_cob_rec.key_col,");
    Form1->COBFILEQ->SQL->Add("          PRE_KEY = :sql_cob_rec.pre_key,");
    Form1->COBFILEQ->SQL->Add("          AFT_KEY = :sql_cob_rec.aft_key ");
    Form1->COBFILEQ->SQL->Add("  WHERE  (KEY_COL = :sql_cob_rec.key_col)");
    Form1->COBFILEQ->Params->Items[0]->AsString   = (char *)sql_cob_rec.key_col;
    Form1->COBFILEQ->Params->Items[1]->AsSmallInt = (short )sql_cob_rec.pre_key;
    Form1->COBFILEQ->Params->Items[2]->SetBlobData(sql_cob_rec.aft_key,sizeof(sql_cob_rec.aft_key));
    Form1->COBFILEQ->ExecSQL();
    sqlcode = CCE;
    }
 Form1->Timer1->Enabled = true;
 return(sqlcode);
 }

 #pragma section AEI_SQL_DELETE_COBFILE
 short AEI_SQL_DELETE_COBFILE(char *pa1,short pb1)
 {
 char   key_col[100];

 Form1->Timer1->Enabled = false;
 memset(&sql_cob_rec,(char)' ',sizeof(sql_cob_rec));
 memcpy(&sql_cob_rec,pa1,sizeof(sql_cob_rec));
 memcpy(key_col,sql_cob_rec.key_col,sizeof(sql_cob_rec.key_col));
 Form1->COBFILEQ->Close();
 Form1->COBFILEQ->SQL->Clear();
 Form1->COBFILEQ->SQL->Add("DELETE   FROM COBFILE");
 Form1->COBFILEQ->SQL->Add("WHERE    KEY_COL = :key_col");
 Form1->COBFILEQ->ParamByName("KEY_COL")->AsString   = (char *)sql_cob_rec.key_col;
 Form1->COBFILEQ->ExecSQL();
 sqlcode = CCE;
 Form1->Timer1->Enabled = true;
 return(sqlcode);
 }

 #pragma section AEI_SQL_OPEN_COBFILE
 short AEI_SQL_OPEN_COBFILE(void)
 {
 Form1->COBFILET->Active=true;
 return(CCE);
 }

 #pragma section AEI_SQL_CLOSE_COBFILE
 short AEI_SQL_CLOSE_COBFILE(void)
 {
 Form1->COBFILET->Close();
 Form1->COBFILE->Close();
 return(CCE);
 }

void Rcv_In_Error(void);
void Rcv_Out_Error(void);
void Key_File_Error(void);
void Main_0000(void);
void Process_2000(void);
void Exit_2000(void);
void Start_2001(void);
void Exit_2001(void);
void Start_Next_2002(void);
void Exit_2002(void);
void Start_Prev_2003(void);
void Exit_2003(void);
void Read_2004(void);
void Exit_2004(void);
void Read_Next_2005(void);
void Exit_2005(void);
void Read_Prev_2006(void);
void Exit_2006(void);
void Write_2007(void);
void Exit_2007(void);
void Update_2008(void);
void Exit_2008(void);
void Del_2009(void);
void Exit_2009(void);
void Math_Test_3000(void);
void Exit_3000(void);
void Comp_Test_4000(void);
void Exit_4001(void);
void Str_Test_5000(void);
void Exit_5001(void);
void Nsk_Test_6000(void);
void Exit_6001(void);
void Clean_Up_9000(void);
void Exit_9000(void);
void AEI_Init_Declarations(void);

#pragma COLUMNS 239
#pragma list

 
void Rcv_In_Error(void)
{
memcpy(&c_ws.ws_file_status,"30",2);
memset(rcv_in_cob_rec.cob_results.ret_alpha,' ',sizeof(rcv_in_cob_rec.cob_results.ret_alpha));
memcpy(rcv_in_cob_rec.cob_results.ret_alpha,"RCV-IN ERROR",12);
return;
}

void Rcv_Out_Error(void)
{
memcpy(&c_ws.ws_file_status,"30",2);
memset(rcv_in_cob_rec.cob_results.ret_alpha,' ',sizeof(rcv_in_cob_rec.cob_results.ret_alpha));
memcpy(rcv_in_cob_rec.cob_results.ret_alpha,"RCV-OUT ERROR",13);
return;
}

void Key_File_Error(void)
{
memcpy(&c_ws.ws_file_status,"30",2);
memset(rcv_in_cob_rec.cob_results.ret_alpha,' ',sizeof(rcv_in_cob_rec.cob_results.ret_alpha));
memcpy(rcv_in_cob_rec.cob_results.ret_alpha,"KEY-FILE ERROR",14);
return;
}

void Main_0000(void)
{
while (((c_ws.ws_done  !=  1 ) && (c_ws.ws_error  !=  1 )))
   {
   Process_2000();
   Exit_2000();
   }
  ptc++;
  do
     {
     pte=ptc;
     Clean_Up_9000();
     Exit_9000();
     } while (ptc > pte);
return;
}

void Process_2000(void)
{
sr = AEI_DISPLAY(" START LOOP \n");
memset(&rcv_in_cob_rec,' ',sizeof(rcv_in_cob_rec));
sr = Myftoa(rcv_in_cob_rec.cob_key.key_number.key_sr,
     sizeof(rcv_in_cob_rec.cob_key.key_number.key_sr),8,'s',0);
sr = Myftoa(rcv_in_cob_rec.cob_key.key_number.key_usr,
     sizeof(rcv_in_cob_rec.cob_key.key_number.key_usr),2,'s',0);
sr = Myitoa(rcv_in_cob_rec.cob_key.key_number.key_p9l,sizeof(rcv_in_cob_rec.cob_key.key_number.key_p9l),0);
sr = Myitoa(rcv_in_cob_rec.cob_key.key_number.key_p9s,sizeof(rcv_in_cob_rec.cob_key.key_number.key_p9s),0);
sr = Myftoa(rcv_in_cob_rec.cob_test.i_sr,
     sizeof(rcv_in_cob_rec.cob_test.i_sr),8,'s',0);
sr = Myftoa(rcv_in_cob_rec.cob_test.i_usr,
     sizeof(rcv_in_cob_rec.cob_test.i_usr),2,'s',0);
sr = Myitoa(rcv_in_cob_rec.cob_test.i_p9l,sizeof(rcv_in_cob_rec.cob_test.i_p9l),0);
sr = Myitoa(rcv_in_cob_rec.cob_test.i_p9s,sizeof(rcv_in_cob_rec.cob_test.i_p9s),0);
sr = Myftoa(rcv_in_cob_rec.cob_test.o_sr,
     sizeof(rcv_in_cob_rec.cob_test.o_sr),8,'s',0);
sr = Myftoa(rcv_in_cob_rec.cob_test.o_usr,
     sizeof(rcv_in_cob_rec.cob_test.o_usr),2,'s',0);
sr = Myitoa(rcv_in_cob_rec.cob_test.o_p9l,sizeof(rcv_in_cob_rec.cob_test.o_p9l),0);
sr = Myitoa(rcv_in_cob_rec.cob_test.o_p9s,sizeof(rcv_in_cob_rec.cob_test.o_p9s),0);
sr = Myitoa((char *)c_ws.ws_fail,3,0);
sr = Myitoa((char *)c_ws.ws_pass,3,0);
AEI_NWB = false;
memcpy(&c_ws.ws_file_status,"00",2);
AEI_cc = AEI_SOCKET_READ_RECEIVE((char *)&rcv_in_cob_rec,
                                 (short )sizeof(rcv_in_cob_rec));
if (_status_ne(AEI_cc))
   Rcv_In_Error();
memcpy(rcv_in_cob_rec.cob_results.passed,spaces,20);
memcpy(rcv_in_cob_rec.cob_results.failed,spaces,20);
memcpy(rcv_in_cob_rec.cob_results.ret_alpha,spaces,40);
memcpy(&(rcv_in_cob_rec.cob_results.ret_numeric),zeroes,sizeof(rcv_in_cob_rec.cob_results.ret_numeric));
memcpy(&(key_file_cob_rec),&(rcv_in_cob_rec),min(sizeof(key_file_cob_rec),sizeof(rcv_in_cob_rec)));
if (rcv_in_cob_rec.cob_code == 1)
   {
   ptc++;
   do
      {
      pte=ptc;
      Start_2001();
      Exit_2001();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 2)
   {
   ptc++;
   do
      {
      pte=ptc;
      Start_Next_2002();
      Exit_2002();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 3)
   {
   ptc++;
   do
      {
      pte=ptc;
      Start_Prev_2003();
      Exit_2003();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 4)
   {
   ptc++;
   do
      {
      pte=ptc;
      Read_2004();
      Exit_2004();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 5)
   {
   ptc++;
   do
      {
      pte=ptc;
      Read_Next_2005();
      Exit_2005();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 6)
   {
   ptc++;
   do
      {
      pte=ptc;
      Read_Prev_2006();
      Exit_2006();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 7)
   {
   ptc++;
   do
      {
      pte=ptc;
      Write_2007();
      Exit_2007();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 8)
   {
   ptc++;
   do
      {
      pte=ptc;
      Update_2008();
      Exit_2008();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 9)
   {
   ptc++;
   do
      {
      pte=ptc;
      Del_2009();
      Exit_2009();
      } while (ptc > pte);
   }
else if ((rcv_in_cob_rec.cob_code > 30) && (rcv_in_cob_rec.cob_code < 40))
   {
   ptc++;
   do
      {
      pte=ptc;
      Math_Test_3000();
      Exit_3000();
      } while (ptc > pte);
   }
else if ((rcv_in_cob_rec.cob_code > 40) && (rcv_in_cob_rec.cob_code < 50))
   {
   ptc++;
   do
      {
      pte=ptc;
      Comp_Test_4000();
      Exit_4001();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 50)
   {
   ptc++;
   do
      {
      pte=ptc;
      Str_Test_5000();
      Exit_5001();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 60)
   {
   ptc++;
   do
      {
      pte=ptc;
      Nsk_Test_6000();
      Exit_6001();
      } while (ptc > pte);
   }
else if (rcv_in_cob_rec.cob_code == 99)
   {
   c_ws.ws_done = (short) 1;
   }
memcpy(&(rcv_out_cob_rec),&(key_file_cob_rec),min(sizeof(rcv_out_cob_rec),sizeof(key_file_cob_rec)));
if (rcv_in_cob_rec.cob_code != 50)
   {
   memset(&(tbuf[0]),0,sizeof(tbuf));
   memcpy(&(tbuf[strlen(tbuf)]),"SUCCESS = ",10);
   memcpy(&(tbuf[strlen(tbuf)]),(char*)&(c_ws.ws_pass),sizeof(c_ws.ws_pass));
   memcpy(&(rcv_out_cob_rec.cob_results.passed),&(tbuf),strlen(tbuf));
   memset(&(tbuf[0]),0,sizeof(tbuf));
   memcpy(&(tbuf[strlen(tbuf)]),"ERRORS  = ",10);
   memcpy(&(tbuf[strlen(tbuf)]),(char*)&(c_ws.ws_fail),sizeof(c_ws.ws_fail));
   memcpy(&(rcv_out_cob_rec.cob_results.failed),&(tbuf),strlen(tbuf));
   memset(key_file_cob_rec.cob_results.ret_alpha,' ',sizeof(key_file_cob_rec.cob_results.ret_alpha));
   memcpy(key_file_cob_rec.cob_results.ret_alpha,&(rcv_in_cob_rec),sizeof(key_file_cob_rec.cob_results.ret_alpha));
   }
sr = AEI_DISPLAY(" Passed =  %.20s  Failed =  %.20s\n",rcv_out_cob_rec.cob_results.passed,rcv_out_cob_rec.cob_results.failed);
rcv_out_cob_rec.cob_code = (short) 0;
AEI_cc = AEI_SOCKET_WRITE_RECEIVE((char *)&rcv_out_cob_rec,
                    (short )sizeof(rcv_out_cob_rec));
if (_status_ne(AEI_cc))
   Rcv_Out_Error();
return;
}

void Exit_2000(void)
{
return;
}

void Start_2001(void)
{
AEI_cc  = AEI_SQL_KEYPOSITION_COBFILE((char *)&key_file_cob_rec,
                                      (short )EXACT);
if (_status_ne(AEI_cc))
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
else
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   c_ws.ws_start = (short) 1;
   }
return;
}

void Exit_2001(void)
{
return;
}

void Start_Next_2002(void)
{
AEI_cc  = AEI_SQL_KEYPOSITION_COBFILE((char *)&key_file_cob_rec,
                                      (short )NEXT);
if (_status_ne(AEI_cc))
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
else
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   c_ws.ws_start = (short) 2;
   }
return;
}

void Exit_2002(void)
{
return;
}

void Start_Prev_2003(void)
{
AEI_cc  = AEI_SQL_KEYPOSITION_COBFILE((char *)&key_file_cob_rec,
                                      (short )PREV);
if (_status_ne(AEI_cc))
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
else
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   c_ws.ws_start = (short) 3;
   }
return;
}

void Exit_2003(void)
{
return;
}

void Read_2004(void)
{
if (c_ws.ws_start == 1)
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   AEI_cc  = AEI_SQL_READ_COBFILE((char  *)&key_file_cob_rec,
                                  (short  ) sizeof(key_file_cob_rec));
   if (_status_ne(AEI_cc))
      Key_File_Error();
   }
else 
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
return;
}

void Exit_2004(void)
{
return;
}

void Read_Next_2005(void)
{
if (c_ws.ws_start == 2)
   {
   AEI_cc  = AEI_SQL_READ_COBFILE((char  *)&key_file_cob_rec,
                                  (short  ) sizeof(key_file_cob_rec));
   if (_status_ne(AEI_cc))
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      c_ws.ws_start = (short) 0;
      }
   else
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else 
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
return;
}

void Exit_2005(void)
{
return;
}

void Read_Prev_2006(void)
{
if (c_ws.ws_start == 3)
   {
   AEI_cc  = AEI_SQL_READ_COBFILE((char  *)&key_file_cob_rec,
                                  (short  ) sizeof(key_file_cob_rec));
   if (_status_ne(AEI_cc))
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      c_ws.ws_start = (short) 0;
      }
   else
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else 
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
return;
}

void Exit_2006(void)
{
return;
}

void Write_2007(void)
{
AEI_cc  = AEI_SQL_WRITE_COBFILE((char *)&key_file_cob_rec,
                                (short ) sizeof(key_file_cob_rec));
if (_status_ne(AEI_cc))
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
else
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   }
return;
}

void Exit_2007(void)
{
return;
}

void Update_2008(void)
{
AEI_cc  = AEI_SQL_UPDATE_COBFILE((char *)&key_file_cob_rec,
                                 (short ) sizeof(key_file_cob_rec));
if (_status_ne(AEI_cc))
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
else
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   }
return;
}

void Exit_2008(void)
{
return;
}

void Del_2009(void)
{
AEI_cc  = AEI_SQL_DELETE_COBFILE((char *)&key_file_cob_rec,
                                 (short ) sizeof(key_file_cob_rec));
if (_status_ne(AEI_cc))
   {
   sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
   }
else
   {
   sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
   }
return;
}

void Exit_2009(void)
{
return;
}

void Math_Test_3000(void)
{
if (rcv_in_cob_rec.cob_code == 31)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,
               sizeof(key_file_cob_rec.cob_test.o_sr),8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_sr),8,'s') + 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,
               sizeof(rcv_in_cob_rec.cob_test.i_sr),8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,
               sizeof(key_file_cob_rec.cob_test.o_usr),2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_usr),2,'s') + 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,
               sizeof(rcv_in_cob_rec.cob_test.i_usr),2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) + 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) + 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 32)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,
               sizeof(key_file_cob_rec.cob_test.o_sr),8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_sr),8,'s') - 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,
               sizeof(rcv_in_cob_rec.cob_test.i_sr),8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,
               sizeof(key_file_cob_rec.cob_test.o_usr),2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_usr),2,'s') - 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,
               sizeof(rcv_in_cob_rec.cob_test.i_usr),2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) - 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) - 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 33)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,
               sizeof(key_file_cob_rec.cob_test.o_sr),8,'s',(
               Myatof(rcv_in_cob_rec.cob_test.i_sr,
               sizeof(rcv_in_cob_rec.cob_test.i_sr),8,'s') * 
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_sr),8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,
               sizeof(key_file_cob_rec.cob_test.o_usr),2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_usr),2,'s') * 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,
               sizeof(rcv_in_cob_rec.cob_test.i_usr),2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) * 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) * 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 34)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,
               sizeof(key_file_cob_rec.cob_test.o_sr),8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_sr),8,'s') / 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,
               sizeof(rcv_in_cob_rec.cob_test.i_sr),8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,
               sizeof(key_file_cob_rec.cob_test.o_usr),2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,
               sizeof(rcv_in_cob_rec.cob_key.key_number.key_usr),2,'s') / 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,
               sizeof(rcv_in_cob_rec.cob_test.i_usr),2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) / 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) / 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
return;
}

void Exit_3000(void)
{
return;
}

void Comp_Test_4000(void)
{
if (rcv_in_cob_rec.cob_code == 41)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,16,8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,16,8,'s') + 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,16,8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,10,2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,10,2,'s') + 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,10,2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) + 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) + 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 42)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,16,8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,16,8,'s') - 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,16,8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,10,2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,10,2,'s') - 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,10,2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) - 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) - 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 43)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,16,8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,16,8,'s') * 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,16,8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,10,2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,10,2,'s') * 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,10,2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) * 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) * 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 44)
   {
   sr = Myftoa(key_file_cob_rec.cob_test.o_sr,16,8,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_sr,16,8,'s') / 
               Myatof(rcv_in_cob_rec.cob_test.i_sr,16,8,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myftoa(key_file_cob_rec.cob_test.o_usr,10,2,'s',(
               Myatof(rcv_in_cob_rec.cob_key.key_number.key_usr,10,2,'s') / 
               Myatof(rcv_in_cob_rec.cob_test.i_usr,10,2,'s')));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(__int64)(
               Myatol(rcv_in_cob_rec.cob_key.key_number.key_p9l,8) / 
               Myatol(rcv_in_cob_rec.cob_test.i_p9l,8)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   sr = Myitoa(key_file_cob_rec.cob_test.o_p9s,2,(short)(
               Myatoi(rcv_in_cob_rec.cob_key.key_number.key_p9s,2) / 
               Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2)));
   if (sr != 0)
      {
      sr = Myitoa(c_ws.ws_fail,3,(short)(Myatoi(c_ws.ws_fail,3) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
      }
   }
return;
}

void Exit_4001(void)
{
return;
}

void Str_Test_5000(void)
{
sr = Myitoa((char *)c_ws.ws_pass,3,0);
sr = Myitoa((char *)c_ws.ws_fail,3,0);
cptr = (char *)&(key_file_cob_rec.cob_key);
aft=0;
bfr=0;
for (x=0; x < sizeof(key_file_cob_rec.cob_key); x++)
   {
   if (cptr[x] == '-')
       cptr[x] =  '+';
   }
cptr = (char *)&(key_file_cob_rec.cob_key);
aft = Mychrspn((char *)&key_file_cob_rec.cob_key,sizeof(key_file_cob_rec.cob_key),'+');
bfr = Mychrspn((char *)&key_file_cob_rec.cob_key,sizeof(key_file_cob_rec.cob_key),'+');
for (x=0; x < sizeof(key_file_cob_rec.cob_key); x++)
   {
   if ((cptr[x]  ==  '0') && (x > aft))
      {
      cptr[x] = '9';
      }
   if ((cptr[x]  ==  '0') && (x < bfr))
      {
      cptr[x] = (char)'1';
      }
   }
cptr = (char *)&(key_file_cob_rec.cob_key);
aft=0;
bfr = Mychrspn((char *)&key_file_cob_rec.cob_key,sizeof(key_file_cob_rec.cob_key),'+');
for (x=0; x < sizeof(key_file_cob_rec.cob_key); x++)
   {
   if (x < bfr)
      Myitoa(c_ws.ws_pass,3,((short)Myatoi(c_ws.ws_pass,3) + 1));
   }
cptr = (char *)&(key_file_cob_rec.cob_key);
aft = Mychrspn((char *)&key_file_cob_rec.cob_key,sizeof(key_file_cob_rec.cob_key),'+');
bfr=0;
for (x=0; x < sizeof(key_file_cob_rec.cob_key); x++)
   {
   if (x > aft)
      Myltoa(c_ws.ws_fail,3,((__int64)Myatol(c_ws.ws_fail,3) + 1));
   }
cptr = (char *)&(key_file_cob_rec.cob_key);
aft=0;
bfr = Mychrspn((char *)&key_file_cob_rec.cob_key,sizeof(key_file_cob_rec.cob_key),'+');
for (x=0; x < sizeof(key_file_cob_rec.cob_key); x++)
   {
   if ((cptr[x] == '1') && (x < bfr))
      Myitoa(c_ws.ws_p9,3,((short)Myatoi(c_ws.ws_p9,3) + 1));
   if ((cptr[x]  ==  '+') && (aft == 0))
      {
      cptr[x] = (char)'-';
      aft=1;
      }
   }
sr = Myitoa((char *)c_ws.ws_ptr,3,3);
memset(&(tbuf[0]),0,sizeof(tbuf));
memset(&(tbuf[0]),' ',(short)(Myatof(c_ws.ws_ptr,3,0,'u') - Rltv));
memcpy(&(tbuf[(short)(Myatof(c_ws.ws_ptr,3,0,'u') - Rltv)]),"Alapha Key = ",13);
memcpy(&(tbuf[strlen(tbuf)]),(char*)&(c_ws.ws_pass),sizeof(c_ws.ws_pass));
memcpy(&(tbuf[strlen(tbuf)]),"; Numeric Key = ",16);
memcpy(&(tbuf[strlen(tbuf)]),(char*)&(c_ws.ws_fail),sizeof(c_ws.ws_fail));
memcpy(&(tbuf[strlen(tbuf)]),":",1);
memcpy(&(key_file_cob_rec.cob_results.ret_alpha),&(tbuf),strlen(tbuf));
lx=0;
l=1;
for (x=0; x < sizeof(key_file_cob_rec.cob_results.ret_alpha); x++)
   {
   if ((key_file_cob_rec.cob_results.ret_alpha[x] == ';') ||
   (key_file_cob_rec.cob_results.ret_alpha[x] == col))
      {
      if (l == 1)
         {
         memcpy(key_file_cob_rec.cob_results.passed,&key_file_cob_rec.cob_results.ret_alpha[lx],(x-lx));
         lx=x+1;
         l++;
         }
      else if (l == 2)
         {
         memcpy(key_file_cob_rec.cob_results.failed,&key_file_cob_rec.cob_results.ret_alpha[lx],(x-lx));
         lx=x+1;
         l++;
         }
      }
   }
memcpy(&(c_ws.ws_date),zeroes,sizeof(c_ws.ws_date));
memcpy(&(key_file_cob_rec.cob_results.ret_numeric),&(c_ws.ws_date),min(sizeof(key_file_cob_rec.cob_results.ret_numeric),
            sizeof(c_ws.ws_date)));
memcpy(key_file_cob_rec.cob_results.ret_alpha,chr0es,40);
memset(key_file_cob_rec.cob_results.ret_alpha,' ',sizeof(key_file_cob_rec.cob_results.ret_alpha));
memcpy(key_file_cob_rec.cob_results.ret_alpha,"MOVE LESS THEN TEST ",20);
c_ws.ws_p9c = (short) c_ws.ws_date.ary[(6 - Rltv)].dti;
sr = AEI_NUMOUT(0x00000007,(char  *)&key_file_cob_rec.cob_results.ret_byte,c_ws.ws_p9c,10,_sGP);
return;
}

void Exit_5001(void)
{
return;
}

void Nsk_Test_6000(void)
{
sr = AEI_MYTERM(0x00000001,(short *)&c_ws.ws_data);
sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
memset(key_file_cob_rec.cob_results.ret_alpha,' ',sizeof(key_file_cob_rec.cob_results.ret_alpha));
memcpy(key_file_cob_rec.cob_results.ret_alpha,"MYTERM =",8);
memcpy(&key_file_cob_rec.cob_results.ret_alpha[(10 - Rltv)],c_ws.ws_data,(40-(10 - Rltv)));
sr = AEI_TIME((short *)&c_ws.ws_date);
memcpy(&(key_file_cob_rec.cob_results.ret_numeric),&(c_ws.ws_date),min(sizeof(key_file_cob_rec.cob_results.ret_numeric),
            sizeof(c_ws.ws_date)));
sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
c_ws.ws_p9c = (short) c_ws.ws_date.ary[(6 - Rltv)].dti;
sr = AEI_NUMOUT(0x00000007,(char  *)&key_file_cob_rec.cob_results.ret_byte,c_ws.ws_p9c,10,_sGP);
sr = Myitoa(c_ws.ws_pass,3,(short)(Myatoi(c_ws.ws_pass,3) + 1));
return;
}

void Exit_6001(void)
{
return;
}

void Clean_Up_9000(void)
{
AEI_cc = AEI_SOCKET_CLOSE_RECEIVE();
sr = AEI_SQL_CLOSE_COBFILE();
return;
}

void Exit_9000(void)
{
return;
}