#define ATEST_HIGHLIGHT "REVERSE, NORMAL" #define ATEST_LOWLIGHT "REVERSE, DIM" #define ATEST_BRIGHT "NORMAL" #define ATEST_NORMAL "NORMAL" #define ATEST_DIM "DIM" #define ATEST_REVERSE "REVERSE" #define ATEST_UNDERLINE "UNDERLINE" #define ATEST_HIDDEN "HIDDEN" #define ATEST_PROTECTED "PROTECTED" #define ATEST_BLINK "BLINK" #define ATEST_NEXT_PAGE "NEXT-PAGE" #define ATEST_PREV_PAGE "PREV-PAGE" #define ATEST_START_EXACT "F1" #define ATEST_START_NEXT "F2" #define ATEST_START_PREV "F3" #define ATEST_READ_EXACT "F4" #define ATEST_READ_NEXT "F5" #define ATEST_READ_PREV "F6" #define ATEST_WRITE "F7" #define ATEST_UPDATE "F8" #define ATEST_DELETE "F9" #define ATEST_A_ADD "F11" #define ATEST_A_SUB "F15" #define ATEST_A_MUL "F13" #define ATEST_A_DIV "F14" #define ATEST_C_ADD "SF11" #define ATEST_C_SUB "SF15" #define ATEST_C_MUL "SF13" #define ATEST_C_DIV "SF14" #define ATEST_CHAR_TEST "F10" #define ATEST_NSK_TEST "SF10" #define ATEST_DONE "F16" #define ATEST_ALLDONE "F16" #pragma fieldalign matched2 __c_ws_def typedef struct __c_ws_def { short exit_flag; /* 88 EXIT-FLAG-TRUE VALUE 1. */ short this_page; struct /* RET_STR */ { /* PIC_F_0U */ char ret_str1[4]; char ret_fil1; /* PIC_F_0U */ char ret_str2[2]; char ret_fil2; /* PIC_F_0U */ char ret_str3[2]; char ret_fil3; /* PIC_F_0U */ char ret_str4[2]; char ret_fil4; /* PIC_F_0U */ char ret_str5[2]; char ret_fil5; /* PIC_F_0U */ char ret_str6[2]; char ret_fil6; /* PIC_F_0U */ char ret_str7[2]; } ret_str; struct /* COB_REC */ { 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; struct /* SQL_COB_REC */ { short pre_key; char key_col[56]; char aft_key[172]; } sql_cob_rec; short pre_key; char key_col[56]; char aft_key[172]; } c_ws_def; c_ws_def c_ws; #pragma fieldalign matched2 __screen1_main_def typedef struct __screen1_main_def { char filler_a0[8]; char filler_a1[2]; char filler_a2[6]; char filler_a3[6]; char filler_a4[6]; char filler_a5[17]; char filler_a6[14]; char filler_a7[8]; char filler_a8[2]; char screen1_key_byte; char screen1_key_odd[5]; char screen1_key_even[6]; char screen1_key_a6[6]; /* * PIC_F_8S */ char screen1_key_sr[16]; /* * PIC_F_2S */ char screen1_key_usr[10]; /* PIC_F_0U */ char screen1_key_p9l[8]; /* PIC_F_0U */ char screen1_key_p9s[2]; char screen1_o_byte; char screen1_o_odd[5]; char screen1_o_even[6]; char screen1_o_a6[6]; /* * PIC_F_8S */ char screen1_o_sr[16]; /* * PIC_F_2S */ char screen1_o_usr[10]; /* PIC_F_0U */ char screen1_o_p9l[8]; /* PIC_F_0U */ char screen1_o_p9s[2]; char screen1_passed[20]; char screen1_failed[20]; char filler_a9[16]; char filler_b0[7]; char filler_b1[7]; char filler_b2[7]; char filler_b3[7]; char filler_b4[7]; char filler_b5[7]; char filler_b6[6]; char filler_b7[6]; char filler_b8[6]; } screen1_main_def; screen1_main_def screen1_main; #pragma fieldalign matched2 __screen2_main_def typedef struct __screen2_main_def { char filler_a0[8]; char filler_a1[2]; char filler_a2[6]; char filler_a3[6]; char filler_a4[6]; char filler_a5[17]; char filler_a6[14]; char filler_a7[8]; char filler_a8[2]; /* * PIC_F_8S */ char screen2_key_sr[16]; /* * PIC_F_2S */ char screen2_key_usr[10]; /* PIC_F_0U */ char screen2_key_p9l[8]; /* PIC_F_0U */ char screen2_key_p9s[2]; /* * PIC_F_8S */ char screen2_i_sr[16]; /* * PIC_F_2S */ char screen2_i_usr[10]; /* PIC_F_0U */ char screen2_i_p9l[8]; /* PIC_F_0U */ char screen2_i_p9s[2]; /* * PIC_F_8S */ char screen2_o_sr[16]; /* * PIC_F_2S */ char screen2_o_usr[10]; /* PIC_F_0U */ char screen2_o_p9l[8]; /* PIC_F_0U */ char screen2_o_p9s[2]; char screen2_passed[20]; char screen2_failed[20]; char filler_a9[15]; char filler_b0[7]; char filler_b1[7]; char filler_b2[7]; char filler_b3[7]; char filler_b4[8]; char filler_b5[9]; } screen2_main_def; screen2_main_def screen2_main; #pragma fieldalign matched2 __screen3_main_def typedef struct __screen3_main_def { char filler_a0[8]; char filler_a1[2]; char filler_a2[6]; char filler_a3[6]; char filler_a4[6]; char filler_a5[17]; char filler_a6[14]; char filler_a7[8]; char filler_a8[2]; char screen3_key_byte; char screen3_key_odd[5]; char screen3_key_even[6]; char screen3_key_a6[6]; /* * PIC_F_8S */ char screen3_key_sr[16]; /* * PIC_F_2S */ char screen3_key_usr[10]; /* PIC_F_0U */ char screen3_key_p9l[8]; /* PIC_F_0U */ char screen3_key_p9s[2]; char screen3_ret_byte; char screen3_ret_str[20]; char screen3_ret_alpha[40]; char screen3_passed[20]; char screen3_failed[20]; char filler_a9[16]; char filler_b0[8]; char filler_b1[8]; char filler_b2[8]; char filler_b3[9]; } screen3_main_def; screen3_main_def screen3_main; short termination_status; short termination_substatus; char logical_terminal_name[16]; short restart_counter; short stop_mode; short transaction_id; void Main_0000(void); void Main_Exit_0000(void); void Screens_0001(void); void Screens_Exit_0001(void); void Accept_Page1_0001(void); void Accept_Page2_0002(void); void Accept_Page3_0003(void); void Atest_Present_Screen_01(void); void Atest_Key_Start(void); void Atest_Key_Next(void); void Atest_Key_Prev(void); void Atest_Get_Exact(void); void Atest_Get_Next(void); void Atest_Get_Prev(void); void Atest_Writeit(void); void Atest_Updateit(void); void Atest_Deleteit(void); void Atest_Present_Screen_02(void); void Atest_Present_Screen_02_Exit(void); void Atest_A_Addit(void); void Atest_A_Subit(void); void Atest_A_Mulit(void); void Atest_A_Divit(void); void Atest_C_Addit(void); void Atest_C_Subit(void); void Atest_C_Mulit(void); void Atest_C_Divit(void); void Atest_Present_Screen_03(void); void Atest_Present_Screen_03_Exit(void); void Atest_Char(void); void Atest_Nsk(void); void Atest_Next_Pageit(void); void Atest_Prev_Pageit(void); void Atest_Present_Allscreen_Exit(void); #include "C:\CGI\ScobReqC.h" #include "C:\CGI\ScobReqC.TFU" void AEI_Init_Declarations(void); #pragma COLUMNS 239 #pragma list void Main_0000(void) { c_ws.exit_flag = (short) 0; c_ws.cob_rec.cob_key.key_string.key_byte = '1'; memcpy(c_ws.cob_rec.cob_key.key_string.key_odd,"00001",5); memcpy(c_ws.cob_rec.cob_key.key_string.key_even,"000001",6); memcpy(c_ws.cob_rec.cob_key.key_string.key_a6,"ABCDEF",6); memcpy(c_ws.cob_rec.cob_key.key_number.key_sr,"1000000000000001",16); memcpy(c_ws.cob_rec.cob_key.key_number.key_usr,"1000000001",10); memcpy(c_ws.cob_rec.cob_key.key_number.key_p9l,"10000001",8); memcpy(c_ws.cob_rec.cob_key.key_number.key_p9s,"11",2); memcpy(c_ws.cob_rec.cob_test.i_sr,"2000000000000002",16); memcpy(c_ws.cob_rec.cob_test.i_usr,"2000000002",10); memcpy(c_ws.cob_rec.cob_test.i_p9l,"20000002",8); memcpy(c_ws.cob_rec.cob_test.i_p9s,"22",2); memcpy(c_ws.cob_rec.cob_test.o_sr,"0000000000000000",16); memcpy(c_ws.cob_rec.cob_test.o_usr,"0000000000",10); memcpy(c_ws.cob_rec.cob_test.o_p9l,"00000000",8); memcpy(c_ws.cob_rec.cob_test.o_p9s,"00",2); while (c_ws.exit_flag != 1 ) { Screens_0001(); Screens_Exit_0001(); } return; } void Main_Exit_0000(void) { return; } void Screens_0001(void) { if (c_ws.this_page == 1) { Accept_Page1_0001(); } else if (c_ws.this_page == 2) { Accept_Page2_0002(); } else if (c_ws.this_page == 3) { Accept_Page3_0003(); } if (c_ws.cob_rec.cob_code > 0) { AEI_cc = AEI_SERVER_SEND((char *)&c_ws.cob_rec, (short )sizeof(c_ws.cob_rec), (char *)&c_ws.cob_rec, (short )sizeof(c_ws.cob_rec)); if (_status_ne(AEI_cc)) Atest_Present_Allscreen_Exit(); } return; } void Screens_Exit_0001(void) { return; } void Accept_Page1_0001(void) { Atest_Present_Screen_01(); do { Accept_183(); AEI_GetPage(); AEI_cc = AEI_SCobol_ACCEPT(); AEI_PutPage(); Reset_Attrib(); } while (fk != ATEST_START_EXACT && fk != ATEST_START_NEXT && fk != ATEST_START_PREV && fk != ATEST_READ_EXACT && fk != ATEST_READ_NEXT && fk != ATEST_READ_PREV && fk != ATEST_WRITE && fk != ATEST_UPDATE && fk != ATEST_DELETE && fk != ATEST_NEXT_PAGE && fk != ATEST_PREV_PAGE && fk != ATEST_DONE && fk != ATEST_ALLDONE); if ((fk == ATEST_START_EXACT)) { Atest_Key_Start(); } if ((fk == ATEST_START_NEXT)) { Atest_Key_Next(); } if ((fk == ATEST_START_PREV)) { Atest_Key_Prev(); } if ((fk == ATEST_READ_EXACT)) { Atest_Get_Exact(); } if ((fk == ATEST_READ_NEXT)) { Atest_Get_Next(); } if ((fk == ATEST_READ_PREV)) { Atest_Get_Prev(); } if ((fk == ATEST_WRITE)) { Atest_Writeit(); } if ((fk == ATEST_UPDATE)) { Atest_Updateit(); } if ((fk == ATEST_DELETE)) { Atest_Deleteit(); } if ((fk == ATEST_NEXT_PAGE)) { Atest_Next_Pageit(); } if ((fk == ATEST_PREV_PAGE)) { Atest_Prev_Pageit(); } if ((fk == ATEST_DONE) || (fk == ATEST_ALLDONE)) { Atest_Present_Allscreen_Exit(); } return; } void Accept_Page2_0002(void) { Atest_Present_Screen_02(); do { Accept_214(); AEI_GetPage(); AEI_cc = AEI_SCobol_ACCEPT(); AEI_PutPage(); Reset_Attrib(); } while (fk != ATEST_A_ADD && fk != ATEST_A_SUB && fk != ATEST_A_MUL && fk != ATEST_A_DIV && fk != ATEST_C_ADD && fk != ATEST_C_SUB && fk != ATEST_C_MUL && fk != ATEST_C_DIV && fk != ATEST_NEXT_PAGE && fk != ATEST_PREV_PAGE && fk != ATEST_DONE && fk != ATEST_ALLDONE && fk != ATEST_ALLDONE); if ((fk == ATEST_A_ADD)) { Atest_A_Addit(); } if ((fk == ATEST_A_SUB)) { Atest_A_Subit(); } if ((fk == ATEST_A_MUL)) { Atest_A_Mulit(); } if ((fk == ATEST_A_DIV)) { Atest_A_Divit(); } if ((fk == ATEST_C_ADD)) { Atest_C_Addit(); } if ((fk == ATEST_C_SUB)) { Atest_C_Subit(); } if ((fk == ATEST_C_MUL)) { Atest_C_Mulit(); } if ((fk == ATEST_C_DIV)) { Atest_C_Divit(); } if ((fk == ATEST_NEXT_PAGE)) { Atest_Next_Pageit(); } if ((fk == ATEST_PREV_PAGE)) { Atest_Prev_Pageit(); } if ((fk == ATEST_DONE) || (fk == ATEST_ALLDONE)) { Atest_Present_Allscreen_Exit(); } return; } void Accept_Page3_0003(void) { Atest_Present_Screen_03(); do { Accept_238(); AEI_GetPage(); AEI_cc = AEI_SCobol_ACCEPT(); AEI_PutPage(); Reset_Attrib(); } while (fk != ATEST_CHAR_TEST && fk != ATEST_NSK_TEST && fk != ATEST_NEXT_PAGE && fk != ATEST_PREV_PAGE && fk != ATEST_DONE && fk != ATEST_ALLDONE && fk != ATEST_ALLDONE); if ((fk == ATEST_CHAR_TEST)) { Atest_Char(); } if ((fk == ATEST_NSK_TEST)) { Atest_Nsk(); } if ((fk == ATEST_NEXT_PAGE)) { Atest_Next_Pageit(); } if ((fk == ATEST_PREV_PAGE)) { Atest_Prev_Pageit(); } if ((fk == ATEST_DONE) || (fk == ATEST_ALLDONE)) { Atest_Present_Allscreen_Exit(); } return; } void Atest_Present_Screen_01(void) { c_ws.this_page = (short) 1; ScobReqC_Screen1_Main(); AEI_Page = 1; return; } void Atest_Key_Start(void) { c_ws.cob_rec.cob_code = (short) 1; return; } void Atest_Key_Next(void) { c_ws.cob_rec.cob_code = (short) 2; return; } void Atest_Key_Prev(void) { c_ws.cob_rec.cob_code = (short) 3; return; } void Atest_Get_Exact(void) { c_ws.cob_rec.cob_code = (short) 4; return; } void Atest_Get_Next(void) { c_ws.cob_rec.cob_code = (short) 5; return; } void Atest_Get_Prev(void) { c_ws.cob_rec.cob_code = (short) 6; return; } void Atest_Writeit(void) { c_ws.cob_rec.cob_code = (short) 7; return; } void Atest_Updateit(void) { c_ws.cob_rec.cob_code = (short) 8; return; } void Atest_Deleteit(void) { c_ws.cob_rec.cob_code = (short) 9; return; } void Atest_Present_Screen_02(void) { c_ws.this_page = (short) 2; ScobReqC_Screen2_Main(); AEI_Page = 2; return; } void Atest_Present_Screen_02_Exit(void) { return; } void Atest_A_Addit(void) { c_ws.cob_rec.cob_code = (short) 31; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_A_Subit(void) { c_ws.cob_rec.cob_code = (short) 32; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_A_Mulit(void) { c_ws.cob_rec.cob_code = (short) 33; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_A_Divit(void) { c_ws.cob_rec.cob_code = (short) 34; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_C_Addit(void) { c_ws.cob_rec.cob_code = (short) 41; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_C_Subit(void) { c_ws.cob_rec.cob_code = (short) 42; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_C_Mulit(void) { c_ws.cob_rec.cob_code = (short) 43; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_C_Divit(void) { c_ws.cob_rec.cob_code = (short) 44; Screen2_Main_23="NORMAL"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; Screen2_Main_22="NORMAL"; aSSV[22].tmp='Y'; aSSV[22].atb=Screen2_Main_22; return; } void Atest_Present_Screen_03(void) { c_ws.this_page = (short) 3; sr = Myitoa((char *)c_ws.ret_str.ret_str1,4,c_ws.cob_rec.cob_results.ret_numeric.ret_num1); sr = Myitoa((char *)c_ws.ret_str.ret_str2,2,c_ws.cob_rec.cob_results.ret_numeric.ret_num2); sr = Myitoa((char *)c_ws.ret_str.ret_str3,2,c_ws.cob_rec.cob_results.ret_numeric.ret_num3); sr = Myitoa((char *)c_ws.ret_str.ret_str4,2,c_ws.cob_rec.cob_results.ret_numeric.ret_num4); sr = Myitoa((char *)c_ws.ret_str.ret_str5,2,c_ws.cob_rec.cob_results.ret_numeric.ret_num5); sr = Myitoa((char *)c_ws.ret_str.ret_str6,2,c_ws.cob_rec.cob_results.ret_numeric.ret_num6); sr = Myitoa((char *)c_ws.ret_str.ret_str7,2,c_ws.cob_rec.cob_results.ret_numeric.ret_num7); ScobReqC_Screen3_Main(); AEI_Page = 3; return; } void Atest_Present_Screen_03_Exit(void) { return; } void Atest_Char(void) { c_ws.cob_rec.cob_code = (short) 50; Screen2_Main_23="UNDERLINE"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; return; } void Atest_Nsk(void) { c_ws.cob_rec.cob_code = (short) 60; Screen2_Main_23="UNDERLINE"; aSSV[23].tmp='Y'; aSSV[23].atb=Screen2_Main_23; return; } void Atest_Next_Pageit(void) { if (c_ws.this_page == 1) { Atest_Present_Screen_02(); } else if (c_ws.this_page == 2) { Atest_Present_Screen_03(); } else if (c_ws.this_page == 3) { Atest_Present_Screen_01(); } return; } void Atest_Prev_Pageit(void) { if (c_ws.this_page == 3) { Atest_Present_Screen_02(); } else if (c_ws.this_page == 2) { Atest_Present_Screen_01(); } else if (c_ws.this_page == 1) { Atest_Present_Screen_03(); } return; } void Atest_Present_Allscreen_Exit(void) { return; }