Please help me out with my code I am writing MSG ACCEPT & REJECT

Please anyone help me...
I am using MSG ACCEPT and REJECT...
but my code when I execute it...it keep show out MSG REJECT...
Please help me...Thanks a lot....
public class Addmission
public static void main(String[] args) throws Exception
char Message;
double GPA = 3.0;
int ATS = 60;
int ATScore = 80;
System.out.println("Enter your Grade Point Average");
GPA = (char)System.in.read();
System.out.println("Enter your Addmission Test Score");
ATS =(char)System.in.read();
System.in.read(); System.in.read();
     if(GPA >= 3.0 && ATS == 60)
System.out.println("Accept");
if(GPA <= 3.0 && ATScore == 80)
System.out.println("Accept");
else
System.out.println("Reject");

see the implementaiton of readAFloat() ...
implementation of readAnInt() is left as an exercise to you.
cheers
public class Addmission
public static void main(String[] args) throws Exception
char Message;
double GPA = 3.0;
int ATS = 60;
int ATScore = 80;
System.out.println("Enter your Grade Point Average");
GPA = readAFloat();
System.out.println("Enter your Addmission Test Score");
ATS = readAnInt();
System.out.println(" Your GPA ["+GPA+"]");
System.out.println(" Your ATS ["+ATS+"]");
if(GPA >= 3.0 && ATS == 60)
System.out.println("Accept");
if(GPA <= 3.0 && ATScore == 80)
System.out.println("Accept");
else
System.out.println("Reject");
public static float readAFloat() throws Exception {
     byte ba[]=new byte[10];
     int len;
     len=System.in.read(ba, 0, ba.length);
     String s = new String(ba, 0, len);
     float f=Float.parseFloat(s);
     return(f);
public static int readAnInt() throws Exception {
     return 80;

Similar Messages

  • Please help me out with the function code of print option in module pool

    please help me out with the function code of print option in module pool, along with CASE condition.
    regards,
    asif

    Hi
    you can use the Function module
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING
        destination            = 'LP01'                       "'Printer name
        list_name              = 'TEST'
        list_text              = 'SUBMIT ... TO SAP-SPOOL'
        immediately            = ' '
        line_size              = '2000'
        no_dialog              = 'X'             "pass space to Pop screen for Print option
      IMPORTING
        out_parameters         = wa_pri_params
        valid                  = w_valid.
    "next call below things
      NEW-PAGE PRINT ON NO DIALOG PARAMETERS wa_pri_params.
         "and try to Print the values inside the new-page
      NEW-PAGE PRINT OFF.
    Prabhudas

  • My iPhone 6 ear speaker is not working properly I couldn't able to hear any thing from ear speaker to lissen I had to put on loud speaker or to use handsfree please help me out with this problem if some body have answer?

    My iPhone 6 ear speaker is not working properly I couldn't able to hear any thing from ear speaker to listen I had to put on loud speaker or to use hands free please help me out with this problem if some body have answer?

    Hi Venkata from NZ,
    If you are having an issue with the speaker on your iPhone, I would suggest that you troubleshoot using the steps in this article - 
    If you hear no sound or distorted sound from your iPhone, iPad, or iPod touch speaker - Apple Support
    Thanks for using Apple Support Communities.
    Best,
    Brett L 

  • Firefox is not able load any websites but others programs can. i tried everything given in the support forum but nothing worked out. so can you please help me out with it?

    firefox is not able to load any websites... i tried everything given in the support forum under the topic firefox is not able to load any websites but other programs can.. but still i am facing the same problem. so please help me out with this issue!!

    firefox is not able to load any websites... i tried everything given in the support forum under the topic firefox is not able to load any websites but other programs can.. but still i am facing the same problem. so please help me out with this issue!!

  • Please help me out with some fundamentals in BW

    Hello,
    Please guide me regarding the below mentioned questions.
    1. what is the key date in query designer.
    2. when do we perform attribute change run
        like once the master data is loaded then we perform attribute change run and load the transactional data ?
    3.what is the disadvantage of using aggregates.
    4. what is full repair options?
    please help me out with these questions

    HI,
    Repair full request :
    If you indicate a request in full update mode as a repair request, then it is able to be updated in all data targets. This is also true if they already contain data from initial runs or deltas for this DataSource / source system combination, and they have overlapping selections.
    Consequently, a repair request can be updated at any time without checking each ODS object. The system supports loading in an ODS object by using the repair request without having to check the data for overlapping or request sequencing. This is because you can also delete selectively without checking an ODS object.
    Posting such requests can lead to duplicate data records in the data target.
    Hierarchy/attribute change run after loading master data;
    When hierarchies or attributes of characteristics change, the aggregate affected by the change can be adjusted manually or calculated automatically in process chains.
    Aggregates:
    Aggregates are materialized, pre-aggregated views on InfoCube fact table data. They are independent structures where summary data is stored within separate transparent InfoCubes. The purpose of aggregates is purely to accelerate the response time of queries by reducing the amount of data that must be read in the database for a given query navigation step. In the best case, the records presented in the report will exactly match the records that were read from the database.
    Aggregates can only be defined on basic InfoCubes for dimension characteristics, navigational attributes (time-dependent and time-independent) and on hierarchy levels (for time-dependent and time-independent hierarchy structures). Aggregates may not be created on ODS objects, MultiProviders or Remote Cubes.
    Queries may be automatically split up into several subqueries, e.g for individual restricted key figures (restricted key figures sales 2001 and sales 2002). Each subquery can use one aggregate; hence, one query can involve several aggregates.
    If an aggregate has less than 15 components, BW 3.x puts each component automatically into a separate dimension that will be marked as “line item” (except package and unit dimension); these aggregates are called flat aggregates. Hence, dimension tables are omitted and SID tables referenced directly.  Flat aggregates can be rolled up on the DB server (i.e., without loading data into the application server). This accelerates the roll up (hence the upload) process.
    Disadvantage : The more aggregates exist, the more time-consuming is the roll-up process and thus the data loading process; the change run is also affected.
    Hope this info Helps.
    Thanks,Ramoji.

  • How to access the activities created by an enduser especially when the enduser has left the organization?Please help me out with the possible solution

    How to access the activities created by an end user especially when the end user has left the organization?Please help me out with the possible solution

    Hi Ramesh,
    In the web UI we have business role IC_manger where you can search the activities based on employee responsible and you can use business transaction assignment functionality to assign those activities to any  other end user or team.
    Else you can also use Agent inbox functionality if you have configure the agent inbox for those activity.
    Hope this helps solving your query

  • Please help me out with embedding!

    HI CAN ANYBODY HELP ME OUT. OUR TEAM IS WORKING ON A SITE N I
    HAVE JUST CREATE A ANIMATION IN FLASH CS3 BUT WHEN I MAKE .SWF FIE
    IT WILL NOT SHOW UP ON WINDOWS I THINK WE NEED TO EMBEDD FONTS.
    PLEASE HELP ME OUT ASAP.

    tanya Verma wrote:
    > HI CAN ANYBODY HELP ME OUT. OUR TEAM IS WORKING ON A
    SITE N I HAVE JUST CREATE
    > A ANIMATION IN FLASH CS3 BUT WHEN I MAKE .SWF FIE IT
    WILL NOT SHOW UP ON
    > WINDOWS I THINK WE NEED TO EMBEDD FONTS. PLEASE HELP ME
    OUT ASAP.
    >
    Give us link to the problematic file so we can check it out.
    Meantime - if you animate regular text and use STATIC font,
    you don't need to embed
    anything. Make sure text is not set to DYNAMIC.
    Best Regards
    Urami
    "Never play Leap-Frog with a Unicorn."
    <urami>
    If you want to mail me - DO NOT LAUGH AT MY ADDRESS
    </urami>

  • Please help me out with  "Data only excel option "

    Post Author: pavan pusuluri
    CA Forum: Crystal Reports
    When i am trying to spool the data with data only excel option using crystal reports XI, the records are appearing in two rows instead of single row. i have studied that when we use data only excel option entire record will be displayed in a single row,but it is not appearing in that way.Please help me out in fixing this bug. I am very much new to crytal reports.

    Post Author: pavan pusuluri
    CA Forum: Crystal Reports
    I thank you for the prompt reply.  
    All the field are of same size and height.  The format is fine.  The report is designed in such a way that data is   displayed in three detail sections. What i would like to have is " i want the data in these three sections to be displayed in a single row when i select the data only excel  export option".Please help me  out in fixing this issue.
    Thanks in anticipation

  • Please help me out with this error:Logical dimension table D_TARGET has a source D_TARGET that does not join to any fact source.

    I get the folowing error when I run the global consistency check
    WARNINGS:
    Business Model DAC_Measures:
    [39008] Logical dimension table D_TARGET has a source D_TARGET that does not join to any fact source.
    Can someone help me out please?
    Thank you!

    It seems your dimension is not joined to any facts. Did you check your BMM/physical joins?

  • I am new to illustrator. Please help me out with this.

    I am totally confused about how is it done
    I created a stripes pattern but when applying it to the font it overlaps at the closing edge of the font. Please help my if there is a tutorial for doing this.

    Sidaddict,
    You can create it from a combination of carefully chosen straight (open) paths and closed paths, especially using Object>Path>Offset Path by the distance between paths, using operations like Object>Path>Divide Objects Below on certain copies of paths along with cutting with the Scissors Tool, general copying, and deleting unwanted parts underway.
    View>Smart Guides are your friends.
    The (18) vertical paths may be created by moving copies or from a tall thin rectangle using Object>Path>Offset Path, or just by moving a copy multiple time, then cut as desired.
    The B may be created from a (partially overlapping) double set based on the innermost closed (upper) path using Object>Path>Offset Path, and moving a copy, then deleting unwanted parts.
    The E and the text frames may be created from rectangles corresponding to the innermost of a series of closed paths, then using Object>Path>Offset Path, then deleting unwanted parts.
    If the vertical lines are created as closed paths, copies of the outermost shapes of the B, E, and text boxes may be used to cut them using Object>Path>Divide Objects Below.
    Throughout, you need to think ahead and build/remove paths. Especially important is to see how the desired shapes can be built from an original closed path (set) using offset path, such as the B, E, and text boxes, where you need to imagine the parts to be later deleted again.

  • Please help me out with something simple.

    I know this is simple probably to figure out but I really want to make sure that I do this correctly.
    So please if someone could tell me exactly how to get my ipod working.
    Do I need to re-install itunes if I had it on here for my old ipod?
    And when do I set up my ipod to be charged and all?
    Do I launch itunes first and then plugg in my ipod?
    I know this must be really an anoying question, but I just want to be safe.
    Thanks
    ?   Windows XP   ?

    Let me take a whack at this and see if I can help at all.
    Do I need to re-install itunes if I had it on here for my old ipod?
    itunes is not ipod specific. You can update multiple ipods with the same itunes library. Now ipods are itunes library specific though. If you try to sync your ipod with a separate itunes library without having it sync manually, it will erase all your media and replace it with the current library.
    And when do I set up my ipod to be charged and all?
    Your ipod will charge whenever it senses a viable charge input (usb connection, wall charger, car charger)
    Do I launch itunes first and then plugg in my ipod?
    You can, but you don't have to. When you open itunes, it will search for any ipods plugged into your computer. There is also a setting in which you can have your ipod automatically open up itunes for you when you plug in your ipod.
    I hope this helps

  • Can you please help me out with the answers

    u2022     Created a report to display details of the Open Picking Slip for a given Shipping Point and Delivery Date.
    u2022     Developed a report program for stock details in various storage locations. Which displays material number, material group, material description, quantity and plat based on selection screen fields material number and plant number. 
    u2022     Created a ALV to display the customer arrears report. 
    u2022     Developed a BDC program to upload Customer master data from legacy to sap system using Call transaction method.
    u2022     Modification of Standard Sap script layout set for Sales Order output and printed SAP Scripts using print programs.
    u2022     Using SAP Standard Report program RSTXLDMC to upload logo and display it as Standard text

    Mazhar,
    Maintain the hierarchy for the object and in the Hierarchy display properties of that info object you can maintain the levels.
    If the values are appearing in Unassigned then you need to check out the hierarchy definition once. Please check out that and revert back if you have the same issue repeats.
    Hope this helps...
    Regards
    Gattu

  • PLEASE HELP ME OUT WITH THIS REQUIREMENT VERY URGENT

    HI TO ALL EXPERTS,
    I HAVE AN INTERNAL TABLE IT_EXCEL WITH THREE FIELDS
    SUPPOSE
    ROW COL VAL
    1         1       231
    1         2       001
    NOW I WANT TO MOVE  JUST THAT VAL (COLOUMN)CONTENTS TO ANOTHER INTERNAL TABLE
    FOR EX :
    DATA : BEGIN OF ITAB OCCURS 0,
                    VAL1(4),
                     VAL2(5),
               END OF ITAB.
    NOW THAT ITAB SHOULD HAVE
    VAL1 VAL2
    231     001
    PLEASE ANYONE EXPALIN HOW TO DO IT?
    FULL POINTS FOR CORRECT ANSWER

    HI PABLO,
    IM SENDING THE CODE,
    IM HAVE WRITEN A BAPI FOR MATERIAL SAVE
    I HAVE GOT THE DATA IN EXCEL FILE.
    NOW I WANT TO MOVE THE VALUE COLOUMN OF EXCEL INTERNAL  TABLE TO IT_DATA INTERNAL TABLE
    REPORT  ZBAPI_MATERIAL_SAVEDATA NO STANDARD PAGE HEADING MESSAGE-ID (ZHNC).
    TYPES:BEGIN OF TY_MAT,
           MATERIAL(4),
           IND_SECTOR(1),
           MATL_TYPE(4),
           MATL_GROUP(9),
           BASE_UOM(3),
           BASE_UOM_ISO(3),
           PLANT(4),
           DEL_FLAG(1),
           PUR_GROUP(3),
           BASE_QTY(13),
           PLANT1(4),
           STGE_LOC(4),
           MRP_IND(1),
           SALES_ORG(4),
           DISTR_CHAN(2),
           DEL_FLAG1(1),
           MIN_ORDER(13),
           MAKTX(40),
           LANGU(2),
       END OF TY_MAT.
    DATA: IT_DATA TYPE TABLE OF TY_MAT,
          WA_DATA LIKE LINE  OF IT_DATA,
          WA_DATA1 TYPE TY_MAT.
    *DECLARING WORK AREA  TO BE PASSED TO THE FUNCTION MODULE.
    DATA: BAPI_HEAD LIKE BAPIMATHEAD,
          BAPI_CLIENTDATA LIKE BAPI_MARA,
          BAPI_CLIENTDATAX LIKE BAPI_MARAX,
          BAPI_PLANTDATA LIKE BAPI_MARC,
          BAPI_PLANTDATAX LIKE  BAPI_MARCX,
          BAPI_STORAGELOCATIONDATA LIKE BAPI_MARD,
          BAPI_STORAGELOCATIONDATAX LIKE BAPI_MARDX,
          BAPI_SALESDATA LIKE BAPI_MVKE,
          BAPI_SALESDATAX LIKE BAPI_MVKEX,
          BAPI_MAKT LIKE BAPI_MAKT,
          BAPI_RETURN LIKE BAPIRET2.
    *EXCELAL TABLE TO HOLD THE MATERIAL DESCRIPTION
    DATA: BEGIN OF IT_MAKT.
    INCLUDE STRUCTURE BAPI_MAKT.
    DATA END OF IT_MAKT.
    DATA:BEGIN OF IT_RET.
    INCLUDE STRUCTURE BAPIRET2.
    DATA END OF IT_RET.
    *EXCELAL TABLE TO HOLD HEADER DATA
    DATA: IT_EXCEL TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
    *SELECTION-SCREEN ELEMENTS
    SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
    PARAMETER: FNAME TYPE RLGRAP-FILENAME OBLIGATORY.
    PARAMETERS: P_BEGCOL TYPE I DEFAULT 1 NO-DISPLAY,
                P_BEGROW TYPE I DEFAULT 1 NO-DISPLAY,
                P_ENDCOL TYPE I DEFAULT 100 NO-DISPLAY,
                P_ENDROW TYPE I DEFAULT 32000 NO-DISPLAY.
    SELECTION-SCREEN END OF BLOCK B1.
    *DECLARATION OF EXCELAL TABLE
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.
    PERFORM F_GET_FILE USING FNAME.
    START-OF-SELECTION.
    PERFORM F_XLS_ITAB USING FNAME
                       CHANGING IT_EXCEL.
    PERFORM F_MOVE_DATA.
    *&      Form  F_GET_FILE
          text*
         -->P_FNAME  text*
         <--P_SY_SUBRC  text*
    FORM F_GET_FILE  USING    P_FNAME LIKE FNAME.
    CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
       PROGRAM_NAME        = SYST-REPID
       DYNPRO_NUMBER       = SYST-DYNNR
      FIELD_NAME          = ' '*
      STATIC              = ' '*
      MASK                = ' '*
      CHANGING
        FILE_NAME           = P_FNAME
    EXCEPTIONS*
      MASK_TOO_LONG       = 1*
      OTHERS              = 2*
    IF SY-SUBRC <> 0.
    MESSAGE E006(ZHNC).
    ENDIF.
    ENDFORM.                    " F_GET_FILE
    *&      Form  F_XLS_ITAB
          text*
         -->P_FNAME  text*
         <--P_IT_EXCEL  text*
    FORM F_XLS_ITAB  USING    P_FNAME
                     CHANGING P_IT_EXCEL.
    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        FILENAME                      = FNAME
        I_BEGIN_COL                   = P_BEGCOL
        I_BEGIN_ROW                   = P_BEGROW
        I_END_COL                     = P_ENDCOL
        I_END_ROW                     = P_ENDROW
      TABLES
        INTERN                        = IT_EXCEL
    EXCEPTIONS
       INCONSISTENT_PARAMETERS       = 1
       UPLOAD_OLE                    = 2
       OTHERS                        = 3
    IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.*
    ENDIF.

  • Can someone please help me out with a task on Photoshop? I am willing to pay!

    Hi everyone,
    I'm looking for someone who is skilled in using Photoshop (or a similar program) to edit PDF documents.
    I don't want to post my entire document here, as it includes personal information, but you can download a sample of the document I need you to work on here:
    http://www.4shared.com/folder/Pc7enLBn/_online.html.
    Where there is a letter grade written (for example, DI), I would need that changed to something else (for example, HD, or in some cases - grade not available). I would need this done HIGHLY accurately, with absolutely no room for error.
    I do have my reasons for doing this, and I am happy to provide them to the person who would like to undertake the job.
    I am prepared to pay you a negotiable amount of money - potentially something around $50, or more, if need be. I can transfer the money through online banking.
    Additionally, I will need this job completed ASAP - approximately 24 hours from when I send you the main file.
    If you are interested, please email me at the email address I created for this job: [email protected], or provide your email address here for me to contact you. If you have any relevant qualifications or experience, please tell me.
    Many thanks, and I look forward to hearing from you soon!

    Your task is hardly a case for Photoshop: replacing text accurately in a scanned, not even
    straightened image.
    My recommendations:
    a) put a crossreference list on each page
       or
    b) straighten the scans and improve the contrast, both by Photoshop.
       Then apply a program which converts images of text into machine coded text
       by OCR - Optical Character Recognition , for instance Abbyy Finereader
       http://finereader.abbyy.de/professional/?adw=google_eu&gclid=CMirrcCMx7MCFZHRzAodlisAJg
       (I'm not related to the manufacturer of this software, I'm just a user).
       In coded text it's easy to replace isolated character groups as required.
    Best regards and good luck --Gernot Hoffmann

  • Please help me out with this report

    hi to all experts,
    my requirement  is to display only those purchase order that were created on Saturdays and sundays. i have toiled hard and could develop the code but still im not be able to get the requirement.IT is showing all purchase order for the given date range. what should be modified in my code.
    *& Report  Z_DAYS_SUNDAY_SAT                                           *
    *& This report will display purchase order created on saturday and sunday                                                                    *
    REPORT  Z_DAYS_SUNDAY_SAT                       .
    tables: ekko,dtresr.
    types: begin of ty_pur,
              ebeln type ekko-ebeln,"purchase document no
              bukrs type ekko-bukrs,"company code
              bstyp type ekko-bstyp,"document category
              bsart type ekko-bsart,"document type
              aedat type ekko-aedat,"date on which record was created
         end of ty_pur,
        begin of ty_days,
          days type ekko-aedat,
         end of ty_days.
    data: it_ekko type table of ty_pur,
          wa_ekko like line of it_ekko,
          it_days type table of ty_days,
          wa_days like line of it_days.
    data : dbtwn type i,
           g_day type dtresr-weekday.
    parameters : p1 type dats,
                 p2 type dats.
    ranges : r_day for ekko-aedat.
    r_day-low = p1.
    r_day-high = p2.
    r_day-sign = 'I'.
    r_day-option = 'BT'.
    append r_day.
    if p2 gt p1.
    dbtwn = p2 - p1.
    else.
    message e000(zhnc) with 'plz enter date in proper order'.
    endif.
    do dbtwn times.
    CALL FUNCTION 'DATE_TO_DAY'
      EXPORTING
        date          = p1
    IMPORTING
       WEEKDAY       = g_day.
    if g_day = 'Sat.' or g_day = 'Sunday'.
    wa_days = G_DAY.
    APPEND wa_days TO it_days.
    p1 = p1 + 1.
    Endif.
    enddo.
    select    ebeln
              bukrs
              bstyp
              bsart
              aedat from ekko into table it_ekko where aedat in r_day.
      loop at it_ekko into wa_ekko.
      READ TABLE it_days INTO wa_days WITH KEY wa_days-days.
      write : / wa_ekko-ebeln,wa_ekko-bukrs,wa_ekko-bstyp,wa_ekko-bsart, wa_days-days.
    endloop.

    Hi
    try this code I've made changes...
    *& Report Z_DAYS_SUNDAY_SAT *
    *& This report will display purchase order created on saturday and sunday *
    REPORT Z_DAYS_SUNDAY_SAT .
    TABLES: ekko,dtresr.
    TYPES: BEGIN OF ty_pur,
    ebeln TYPE ekko-ebeln,"purchase document no
    bukrs TYPE ekko-bukrs,"company code
    bstyp TYPE ekko-bstyp,"document category
    bsart TYPE ekko-bsart,"document type
    aedat TYPE ekko-aedat,"date on which record was created
    END OF ty_pur,
    BEGIN OF ty_days,
    days TYPE ekko-aedat,
    END OF ty_days.
    DATA: it_ekko TYPE TABLE OF ty_pur,
    wa_ekko LIKE LINE OF it_ekko,
    it_days TYPE TABLE OF ty_days,
    wa_days LIKE LINE OF it_days.
    DATA : dbtwn TYPE i,
    g_day TYPE dtresr-weekday.
    PARAMETERS : p1 TYPE dats,
    p2 TYPE dats.
    RANGES : r_day FOR ekko-aedat.
    r_day-low = p1.
    r_day-high = p2.
    r_day-sign = 'I'.
    r_day-option = 'BT'.
    APPEND r_day.
    IF p2 GT p1.
      dbtwn = p2 - p1.
    ELSE.
      MESSAGE e000(zhnc) WITH 'plz enter date in proper order'.
    ENDIF.
    *DO dbtwn TIMES.
    *  CALL FUNCTION 'DATE_TO_DAY'
    *    EXPORTING
    *      date    = p1
    *    IMPORTING
    *      weekday = g_day.
    *  IF g_day = 'Sat.' OR g_day = 'Sunday'.
    *   wa_days = g_day.
    *    APPEND wa_days TO it_days.
    *  ENDIF.
    *  p1 = p1 + 1.
    *ENDDO.
    SELECT ebeln bukrs bstyp bsart aedat FROM ekko INTO TABLE it_ekko WHERE aedat IN
    r_day.
    LOOP AT it_ekko INTO wa_ekko.
      CALL FUNCTION 'DATE_TO_DAY'
        EXPORTING
          date    = wa_ekko-aedat
        IMPORTING
          weekday = g_day.
      IF g_day = 'Sat.' OR g_day = 'Sunday'.
            WRITE : / wa_ekko-ebeln, wa_ekko-bukrs, wa_ekko-bstyp, wa_ekko-bsart, g_day.
      ENDIF.
    ENDLOOP.

Maybe you are looking for