#pragma errors 50
#pragma nowarn(303,217,148,113,107,94,93,84,36)
#pragma ENV COMMON
#pragma SYMBOLS
#pragma RUNNABLE
#pragma INSPECT
#include <math.h>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <stddef.h>
#include <stdlib.h>
#include <stdarg.h>
#include <fcntl.h>
#pragma SQL CHAR-AS-ARRAY

#define  col     58
 
#pragma COLUMNS 239
#pragma list
#define      NOT_TRUE   0
#define      AEI_maxj   20
 
typedef   struct __rcv_in_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 */
         {
         char                            key_sr[16];
         char                            key_usr[10];
         char                            key_p9l[8];
         char                            key_p9s[2];
         } key_number;
      } cob_key;
   struct                                                                   /* COB_TEST */
      {
      char                            i_sr[16];
      char                            i_usr[10];
      char                            i_p9l[8];
      char                            i_p9s[2];
      char                            o_sr[16];
      char                            o_usr[10];
      char                            o_p9l[8];
      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_num0;
         short                           ret_num1;
         short                           ret_num2;
         short                           ret_num3;
         short                           ret_num4;
         short                           ret_num5;
         short                           ret_num6;
         } ret_numeric;
      } cob_results;
   } rcv_in_cob_rec_def;
rcv_in_cob_rec_def   rcv_in_cob_rec;
rcv_in_cob_rec_def   *ptr_rcv_in_cob_rec = (rcv_in_cob_rec_def *)&rcv_in_cob_rec;
typedef   struct __rcv_out_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 */
         {
         char                            key_sr[16];
         char                            key_usr[10];
         char                            key_p9l[8];
         char                            key_p9s[2];
         } key_number;
      } cob_key;
   struct                                                                   /* COB_TEST */
      {
      char                            i_sr[16];
      char                            i_usr[10];
      char                            i_p9l[8];
      char                            i_p9s[2];
      char                            o_sr[16];
      char                            o_usr[10];
      char                            o_p9l[8];
      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_num0;
         short                           ret_num1;
         short                           ret_num2;
         short                           ret_num3;
         short                           ret_num4;
         short                           ret_num5;
         short                           ret_num6;
         } ret_numeric;
      } cob_results;
   } rcv_out_cob_rec_def;
rcv_out_cob_rec_def   rcv_out_cob_rec;
rcv_out_cob_rec_def   *ptr_rcv_out_cob_rec = (rcv_out_cob_rec_def *)&rcv_out_cob_rec;
typedef   struct __key_file_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 */
         {
         char                            key_sr[16];
         char                            key_usr[10];
         char                            key_p9l[8];
         char                            key_p9s[2];
         } key_number;
      } cob_key;
   struct                                                                   /* COB_TEST */
      {
      char                            i_sr[16];
      char                            i_usr[10];
      char                            i_p9l[8];
      char                            i_p9s[2];
      char                            o_sr[16];
      char                            o_usr[10];
      char                            o_p9l[8];
      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_num0;
         short                           ret_num1;
         short                           ret_num2;
         short                           ret_num3;
         short                           ret_num4;
         short                           ret_num5;
         short                           ret_num6;
         } ret_numeric;
      } cob_results;
   } key_file_cob_rec_def;
key_file_cob_rec_def   key_file_cob_rec;
key_file_cob_rec_def   *ptr_key_file_cob_rec = (key_file_cob_rec_def *)&key_file_cob_rec;
typedef   struct __ws_file_status_def
   {
   char                            file_status[2];
/* 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. */
   } ws_file_status_def;
ws_file_status_def   ws_file_status;
ws_file_status_def   *ptr_ws_file_status = (ws_file_status_def *)&ws_file_status;
char                            ws_error;
/* 88  NO-PROBLEMS            VALUE 0. */
/* 88  PROBLEMS               VALUE 1. */
char                            ws_done;
/* 88  NOT-DONE               VALUE 0. */
/* 88  DONE                   VALUE 1. */
char                            ws_data[40];
char                            ws_p9[3];
char                            ws_ptr[3];
char                            ws_pass[3];
char                            ws_fail[3];
short                           ws_start;
short                           ws_p9c;
typedef   struct __ws_date_def
   {
   struct                                                                   /* ARY[7] */
      {
      short                           dti;
      } ary[7];
   } ws_date_def;
ws_date_def   ws_date;
ws_date_def   *ptr_ws_date = (ws_date_def *)&ws_date;
short                           pre_key;
char                            key_col[56];
char                            aft_key[172];
 
 
 
short     rcv_in_cob_rec_index;
short     rcv_out_cob_rec_index;
short     key_file_cob_rec_index;
 
#include "TAL.h"

#include "AEILIB"

EXEC SQL BEGIN DECLARE SECTION;
typedef   struct __sql_key_file_cob_rec_def
   {
   short                           pre_key;
   char                            key_col[56];
   char                            aft_key[172];
   } sql_key_file_cob_rec_def;
__sql_key_file_cob_rec_def   sql_key_file_cob_rec;
sql_key_file_cob_rec_def   *ptr_sql_key_file_cob_rec = (sql_key_file_cob_rec_def *)&sql_key_file_cob_rec;
#define   RECORD_EXSISTS        2
#define   INSERT_FAILED         3
#define   SQL_EOF               100

short sqlmode;
short sqlcode;

EXEC SQL DECLARE COBFILE_XCUR CURSOR FOR
SELECT  * FROM   COBFILE
WHERE   KEY_COL = :sql_key_file_cob_rec.key_col
ORDER  BY KEY_COL ASCENDING;

EXEC SQL DECLARE COBFILE_NCUR CURSOR FOR
SELECT  * FROM    COBFILE
WHERE   KEY_COL > :sql_key_file_cob_rec.key_col
ORDER  BY KEY_COL ASCENDING;

EXEC SQL DECLARE COBFILE_PCUR CURSOR FOR
SELECT *  FROM    COBFILE
WHERE  KEY_COL  < :sql_key_file_cob_rec.key_col
ORDER  BY KEY_COL DESCENDING;
EXEC SQL END   DECLARE SECTION;

#pragma section AEI_SQL_OPEN_COBFILE
short AEI_SQL_OPEN_COBFILE(void)
{
return(CCE);
}

#pragma section AEI_SQL_KEYPOSITION_COBFILE
short AEI_SQL_KEYPOSITION_COBFILE(char *pa1,short pb1)
{
memcpy(&sql_key_file_cob_rec,pa1,sizeof(sql_key_file_cob_rec));
if ((pb1 & 0xE000) == 0xE000)
   {
   sqlmode = PREV;           /*PREV*/
   EXEC SQL CLOSE COBFILE_XCUR;
   EXEC SQL CLOSE COBFILE_NCUR;
   EXEC SQL CLOSE COBFILE_PCUR;
   EXEC SQL OPEN  COBFILE_PCUR;
   EXEC SQL
   FETCH COBFILE_PCUR
   INTO  :sql_key_file_cob_rec.pre_key,
         :sql_key_file_cob_rec.key_col,
         :sql_key_file_cob_rec.aft_key;
   if (sqlcode != 0)
      {
      EXEC SQL CLOSE COBFILE_PCUR;
      sqlmode = 0;
      return(CCL);
      }
   else
      {
      memcpy(&sql_key_file_cob_rec,pa1,sizeof(sql_key_file_cob_rec));
      EXEC SQL CLOSE COBFILE_PCUR;
      EXEC SQL OPEN  COBFILE_PCUR;
      }
   }
else if ((pb1 & 0xE000) == 0x8000)
   {
   sqlmode = NEXT;      /*NEXT*/
   EXEC SQL CLOSE COBFILE_XCUR;
   EXEC SQL CLOSE COBFILE_PCUR;
   EXEC SQL CLOSE COBFILE_NCUR;
   EXEC SQL OPEN  COBFILE_NCUR;
   EXEC SQL
   FETCH COBFILE_NCUR
   INTO  :sql_key_file_cob_rec.pre_key,
         :sql_key_file_cob_rec.key_col,
         :sql_key_file_cob_rec.aft_key;
   if (sqlcode != 0)
      {
      EXEC SQL CLOSE COBFILE_NCUR;
      sqlmode = 0;
      return(CCL);
      }
   else
      {
      memcpy(&sql_key_file_cob_rec,pa1,sizeof(sql_key_file_cob_rec));
      EXEC SQL CLOSE COBFILE_NCUR;
      EXEC SQL OPEN  COBFILE_NCUR;
      }
   }
else if ((pb1 & 0x0003) == 2)
   {
   sqlmode = EXACT;         /*EXACT*/
   EXEC SQL CLOSE COBFILE_PCUR;
   EXEC SQL CLOSE COBFILE_NCUR;
   EXEC SQL CLOSE COBFILE_XCUR;
   EXEC SQL OPEN  COBFILE_XCUR;
   EXEC SQL
   FETCH COBFILE_XCUR
   INTO  :sql_key_file_cob_rec.pre_key,
         :sql_key_file_cob_rec.key_col,
         :sql_key_file_cob_rec.aft_key;
   if (sqlcode != 0)
      {
      EXEC SQL CLOSE COBFILE_XCUR;
      sqlmode = 0;
      return(CCL);
      }
   }
return(CCE);
}

#pragma section AEI__SQL_READ_COBFILE
short AEI_SQL_READ_COBFILE(char *pa1,short pb1)
{
memset(&sql_key_file_cob_rec,0,sizeof(sql_key_file_cob_rec));
if (sqlmode == PREV)
   {
   EXEC SQL
   FETCH COBFILE_PCUR
   INTO  :sql_key_file_cob_rec.pre_key,
         :sql_key_file_cob_rec.key_col,
         :sql_key_file_cob_rec.aft_key;
   if (sqlcode != 0)
      {
      EXEC SQL CLOSE COBFILE_PCUR;
      sqlmode = 0;
      return(CCL);
      }
   else
      {
      memcpy(pa1,&sql_key_file_cob_rec,pb1);
      }
   }
else if (sqlmode == EXACT)
   {
   EXEC SQL CLOSE COBFILE_XCUR;
   memcpy(&sql_key_file_cob_rec,pa1,sizeof(sql_key_file_cob_rec));
   EXEC SQL OPEN  COBFILE_XCUR;
   EXEC SQL
   FETCH COBFILE_XCUR
   INTO  :sql_key_file_cob_rec.pre_key,
         :sql_key_file_cob_rec.key_col,
         :sql_key_file_cob_rec.aft_key;
   if (sqlcode != 0)
      {
      EXEC SQL CLOSE COBFILE_XCUR;
      sqlmode = 0;
      return(CCL);
      }
   else
      {
      memcpy(pa1,&sql_key_file_cob_rec,pb1);
      }
   }
else if (sqlmode == NEXT)
   {
   EXEC SQL
   FETCH COBFILE_NCUR
   INTO  :sql_key_file_cob_rec.pre_key,
         :sql_key_file_cob_rec.key_col,
         :sql_key_file_cob_rec.aft_key;
   if (sqlcode != 0)
      {
      EXEC SQL CLOSE COBFILE_NCUR;
      sqlmode = 0;
      return(CCL);
      }
   else
      {
      memcpy(pa1,&sql_key_file_cob_rec,pb1);
      }
   }
else
   {
   EXEC SQL CLOSE COBFILE_XCUR;
   EXEC SQL CLOSE COBFILE_PCUR;
   EXEC SQL CLOSE COBFILE_NCUR;
   return(CCL);
   }
return(CCE);
}

#pragma section AEI_SQL_WRITE_COBFILE
short AEI_SQL_WRITE_COBFILE(char * pa1,short pb1)
{
memcpy(&sql_key_file_cob_rec,pa1,pb1);
EXEC SQL
     INSERT INTO COBFILE
     VALUES (:sql_key_file_cob_rec.pre_key,
             :sql_key_file_cob_rec.key_col,
             :sql_key_file_cob_rec.aft_key);
if (sqlcode == 0)
   return(CCE);
return(CCG);
}

#pragma section AEI_SQL_UPDATE_COBFILE
short AEI_SQL_UPDATE_COBFILE(char *pa1,short pb1)
{
memcpy(&sql_key_file_cob_rec,pa1,pb1);
EXEC SQL
     UPDATE COBFILE
     SET    PRE_KEY  = :sql_key_file_cob_rec.pre_key,
            AFT_KEY  = :sql_key_file_cob_rec.aft_key
     WHERE  KEY_COL  = :sql_key_file_cob_rec.key_col;
if (sqlcode == 0)
   return(CCE);
return(CCG);
}

#pragma section AEI__SQL_DELETE_COBFILE
short AEI_SQL_DELETE_COBFILE(char *pa1,short pb1)
{
memcpy(&sql_key_file_cob_rec,pa1,pb1);
EXEC SQL
     DELETE FROM COBFILE
     WHERE  KEY_COL = :sql_key_file_cob_rec.key_col;
if (sqlcode == 0)
   return(CCE);
return(CCG);
}

#pragma section AEI_SQL_CLOSE_COBFILE
short AEI_SQL_CLOSE_COBFILE(void)
{
EXEC SQL CLOSE COBFILE_XCUR;
EXEC SQL CLOSE COBFILE_PCUR;
EXEC SQL CLOSE COBFILE_NCUR;
return(CCE);
}


#include "NSKSOCKH"
void Rcv_In_Error(void);
void Rcv_Out_Error(void);
void Key_File_Error(void);
void Main_Section_0000(void);
void Process_Section_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 list

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

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

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

void Main_Section_0000(void)
{
AEI_cc = AEI_InitTCP("$ZTZ0","172.19.1.114",3301);
sr = AEI_SQL_OPEN_COBFILE();
while (((Myatoi(ws_done,1) != 1) && (Myatoi(ws_error,1) != 1)))
   {
   Process_Section_2000();
   }
Clean_Up_9000();
Exit_9000();
Process_Section_2000();
return;
}

void Process_Section_2000(void)
{
memset(&rcv_in_cob_rec,' ',sizeof(rcv_in_cob_rec));
rcv_in_cob_rec.cob_code = 0;
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);
rcv_in_cob_rec.cob_results.ret_numeric.ret_num0 = 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num1 = 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num2 = 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num3 = 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num4 = 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num5 = 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num6 = 0;
memcpy(ws_fail,chr0es,3);
memcpy(ws_pass,chr0es,3);
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();
if (memcmp(&(ws_file_status),"00",2) != 0)
   {
   if (guardian_err != 40)
      {
      }
   else 
      {
      sr = AEI_DISPLAY(" Timeout on Receive \n");
      }
   }
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);
rcv_in_cob_rec.cob_results.ret_numeric.ret_num0 = (short) 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num1 = (short) 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num2 = (short) 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num3 = (short) 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num4 = (short) 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num5 = (short) 0;
rcv_in_cob_rec.cob_results.ret_numeric.ret_num6 = (short) 0;
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)
   {
   Start_2001();
   Exit_2001();
   }
else if (rcv_in_cob_rec.cob_code == 2)
   {
   Start_Next_2002();
   Exit_2002();
   }
else if (rcv_in_cob_rec.cob_code == 3)
   {
   Start_Prev_2003();
   Exit_2003();
   }
else if (rcv_in_cob_rec.cob_code == 4)
   {
   Read_2004();
   Exit_2004();
   }
else if (rcv_in_cob_rec.cob_code == 5)
   {
   Read_Next_2005();
   Exit_2005();
   }
else if (rcv_in_cob_rec.cob_code == 6)
   {
   Read_Prev_2006();
   Exit_2006();
   }
else if (rcv_in_cob_rec.cob_code == 7)
   {
   Write_2007();
   Exit_2007();
   }
else if (rcv_in_cob_rec.cob_code == 8)
   {
   Update_2008();
   Exit_2008();
   }
else if (rcv_in_cob_rec.cob_code == 9)
   {
   Del_2009();
   Exit_2009();
   }
else if ((rcv_in_cob_rec.cob_code > 30) && (rcv_in_cob_rec.cob_code < 40))
   {
   Math_Test_3000();
   Exit_3000();
   }
else if ((rcv_in_cob_rec.cob_code > 40) && (rcv_in_cob_rec.cob_code < 50))
   {
   Comp_Test_4000();
   Exit_4001();
   }
else if (rcv_in_cob_rec.cob_code == 50)
   {
   Str_Test_5000();
   Exit_5001();
   }
else if (rcv_in_cob_rec.cob_code == 60)
   {
   Nsk_Test_6000();
   Exit_6001();
   }
else if (rcv_in_cob_rec.cob_code == 99)
   {
   sr = Myitoa((char *)&ws_done,1,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 *)ws_pass,sizeof(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 *)ws_fail,sizeof(ws_fail));
   memcpy(rcv_out_cob_rec.cob_results.failed,tbuf,strlen(tbuf));
   memcpy(key_file_cob_rec.cob_results.ret_alpha,rcv_in_cob_rec.cob_results.ret_alpha,40);
   }
rcv_out_cob_rec.cob_code = (short) 0;
if (rcv_in_cob_rec.cob_code > 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();
   }
Exit_2000();
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))
   {
   Key_File_Error();
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
else
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
   ws_start = (short) 1;
   }
Exit_2001();
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))
   {
   Key_File_Error();
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
else
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
   ws_start = (short) 2;
   }
Exit_2002();
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))
   {
   Key_File_Error();
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
else
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
   ws_start = (short) 3;
   }
Exit_2003();
return;
}

void Exit_2003(void)
{
return;
}

void Read_2004(void)
{
if (ws_start == 1)
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
   sqlmode = EXACT;
   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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
Exit_2004();
return;
}

void Exit_2004(void)
{
return;
}

void Read_Next_2005(void)
{
if (ws_start == 2)
   {
   sqlmode = EXACT;
   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();
/*NEXT RECORD*/
      {
      sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      ws_start = (short) 0;
      }
   else
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   }
else 
   {
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
Exit_2005();
return;
}

void Exit_2005(void)
{
return;
}

void Read_Prev_2006(void)
{
if (ws_start == 3)
   {
   sqlmode = PREV;
   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();
      sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      ws_start = (short) 0;
      }
   else
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   }
else 
   {
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
Exit_2006();
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))
   {
   Key_File_Error();
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
else
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
}
Exit_2007();
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))
   {
   Key_File_Error();
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
else
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
}
Exit_2008();
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))
   {
   Key_File_Error();
   sr = Myitoa(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
   }
else
   {
   sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
}
Exit_2009();
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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   }
else if (rcv_in_cob_rec.cob_code == 34)
   {
   if (Myatof(rcv_in_cob_rec.cob_test.i_sr,sizeof(rcv_in_cob_rec.cob_test.i_sr),8,'s') == 0.0)
      sr=1;
   else 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   if (Myatof(rcv_in_cob_rec.cob_test.i_usr,sizeof(rcv_in_cob_rec.cob_test.i_usr),2,'s') == 0.0)
      sr=1;
   else 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   if (Myatol(rcv_in_cob_rec.cob_test.i_p9l,8) == 0)
      sr=1;
   else sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   if (Myatoi(rcv_in_cob_rec.cob_test.i_p9s,2) == 0)
      sr=1;
   else 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   }
Exit_3000();
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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   sr = Myltoa(key_file_cob_rec.cob_test.o_p9l,8,(long long)(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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 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(ws_fail,3,(short)(Myatoi(ws_fail,sizeof(ws_fail)) + 1));
      }
   else if (sr == 0)
      {
      sr = Myitoa(ws_pass,3,(short)(Myatoi(ws_pass,sizeof(ws_pass)) + 1));
      }
   }
Exit_4001();
return;
}

void Exit_4001(void)
{
return;
}

void Str_Test_5000(void)
{
memcpy(ws_pass,chr0es,3);
memcpy(ws_fail,chr0es,3);
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(ws_pass,3,((short)Myatoi(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(ws_fail,3,((long long)Myatol(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(ws_p9,3,((short)Myatoi(ws_p9,3) + 1));
   if ((cptr[x]  ==  '+') && (aft == 0))
      {
      cptr[x] = (char)'-';
      aft=1;
      }
   }
sr = Myitoa((char *)ws_ptr,3,3);
Idx = (short)(Myatoi(ws_ptr,sizeof(ws_ptr)) - Rltv);
memset(&(tbuf[0]),0,sizeof(tbuf));
memset(&(tbuf[0]),' ',Idx);
memcpy(&(tbuf[Idx]),"Alpha Key = ",12);
memcpy(&(tbuf[strlen(tbuf)]),(char *)ws_pass,sizeof(ws_pass));
memcpy(&(tbuf[strlen(tbuf)]),"; Numeric Key = ",16);
memcpy(&(tbuf[strlen(tbuf)]),(char *)ws_fail,sizeof(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(&(key_file_cob_rec.cob_results.ret_numeric),&(ws_date),_min(sizeof(key_file_cob_rec.cob_results.ret_numeric),sizeof(ws_date)));
memcpy(key_file_cob_rec.cob_results.ret_alpha,spaces,40);
memcpy(key_file_cob_rec.cob_results.ret_alpha,"MOVE LESS THEN TEST ",20);
ws_p9c = (short) ws_date.ary[(6 - Rltv)].dti;
sr = AEI_NUMOUT((char  *)&key_file_cob_rec.cob_results.ret_byte,ws_p9c,10,_sGP);
Exit_5001();
return;
}

void Exit_5001(void)
{
return;
}

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

void Exit_6001(void)
{
return;
}

void Clean_Up_9000(void)
{
AEI_cc = AEI_SOCKET_CLOSE_RECEIVE();
Exit_9000();
return;
}

void Exit_9000(void)
{
return;
}