Creating radio buttons and text box in the screen

Question

Hi Guys,
Need help asap. I am writing a report and I have to create text box for user to input GL account numbers for two types of customer. I have to make these fields required and take the data back from the screen and write it in a file. The second thing that I have to do is to make radio buttons for the user to select whether he wants the file written on the application server or the presentation server. and process the report accordingly. Now can somebody please given some code and tell me how I should do this. Both the things have to be done for the same report. Please help.
Thanks,
Minal

Answer 1

Hi,
TABLES: likp,
        lips.
TYPES: Begin of ty_likp,
       vbeln like likp-vbeln,
     end of ty_likp.
TYPES: Begin of ty_lips,
       vbeln like lips-vbeln,
       posnr like lips-posnr,
     end of ty_lips.
DATA:  i_likp TYPE STANDARD TABLE OF ty_likp,
       i_lips TYPE STANDARD TABLE OF ty_lips,
       w_lips TYPE ty_lips,
       w_likp TYPE ty_likp.
SELECTION-SCREEN BEGIN OF BLOCK b_0 WITH FRAME TITLE text-001.
SELECT-OPTIONS:  s_delno FOR likp-vbeln,
                 s_type  FOR likp-lfart,
                 s_ship  FOR likp-vstel,
                 s_date  FOR likp-erdat.
SELECTION-SCREEN END OF BLOCK b_0.
SELECT vbeln
         FROM likp INTO TABLE i_likp
         WHERE vbeln IN s_delno
         AND   lfart IN s_type
         AND   vstel IN s_ship
         AND   erdat IN s_date.
  IF sy-subrc <> 0.
    MESSAGE i000 WITH text-002.
    " No valid deliveries for the selection parameters entered.
    STOP.
  ENDIF.
  IF NOT i_likp[] IS INITIAL.
    SELECT vbeln
           posnr
           FROM lips INTO TABLE i_lips
           FOR ALL ENTRIES IN i_likp
           WHERE vbeln = i_likp-vbeln.
  ENDIF.
format color 1 on intensified on.
  WRITE: /01(46) 'Following are the Hanging Deliveries/Invoices:'.
format color off intensified off.
skip.
format color 1 on.
  WRITE:  SY-ULINE(27).
  WRITE: /1       SY-VLINE,
          3(12)    'Document No.',
          16      SY-VLINE,
          17(8)  'Item No.',
          27      SY-VLINE.
write:/1 sy-ULINE(27).
format color off.
  sort i_lips by vbeln posnr.
  LOOP AT i_lips INTO w_lips.
      Read table i_likp into w_likp with key
                        vbeln = w_lips-vbeln
                        posnn = w_lips-posnr.
      if sy-subrc <> 0.
      format color 2 on.
         WRITE: /1   sy-vline,
                3(12)  w_lips-vbeln,
                16  sy-vline,
                17(8)  w_lips-posnr,
                27  sy-vline.
        write:/1 sy-uline(27).
        format color off.
        clear w_lips.
      endif.
      ENDLOOP.
Try this one with ur own example.
Thanks & Regards,
Judith.