Scribd
Upload
97 views3 pages

Practice Programs

This report summarizes data from various SAP tables based on user selections. If the user selects vbak, it displays rows from the vbak table. If bkpf is selected, it displays a single row from bkpf. If bsis is selected, it loops through and displays rows from bsis. For other options like erdat, carrid, sflite, etc. it performs queries on various tables and displays the results.

Uploaded by

sri_plns
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
97 views3 pages

Practice Programs

This report summarizes data from various SAP tables based on user selections. If the user selects vbak, it displays rows from the vbak table. If bkpf is selected, it displays a single row from bkpf. If bsis is selected, it loops through and displays rows from bsis. For other options like erdat, carrid, sflite, etc. it performs queries on various tables and displays the results.

Uploaded by

sri_plns
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

*&---------------------------------------------------------------------* *& Report ZPRASAD_6 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zprasad_6. TABLES : sflight.

PARAMETERS : vbak TYPE c RADIOBUTTON GROUP g1, bkpf TYPE c RADIOBUTTON GROUP g1, bsis TYPE c RADIOBUTTON GROUP g1, erdat RADIOBUTTON GROUP g1, carrid TYPE c RADIOBUTTON GROUP g1, cid(2) TYPE c, sflite TYPE c RADIOBUTTON GROUP g1, fldt TYPE sflight-fldate, btwn TYPE c RADIOBUTTON GROUP g1. SELECT-OPTIONS : carid FOR sflight-carrid. parameters : single TYPE c RADIOBUTTON GROUP g1. TYPES : BEGIN OF w_vbak, vbeln TYPE vbak-vbeln, erdat TYPE vbak-erdat, ernam TYPE vbak-ernam, submi TYPE vbak-submi, END OF w_vbak. DATA : t_vbak TYPE STANDARD TABLE OF w_vbak. DATA : wa_vbak TYPE w_vbak. TYPES : BEGIN OF w_bkpf, bukrs TYPE bkpf-bukrs, belnr TYPE bkpf-belnr, blart TYPE bkpf-blart, END OF w_bkpf. DATA : t_bkpf TYPE STANDARD TABLE OF w_bkpf. DATA : wa_bkpf TYPE w_bkpf. TYPES : BEGIN OF w_bsis, bukrs TYPE bsis-bukrs, budat TYPE bsis-budat, blart TYPE bsis-blart, END OF w_bsis. DATA : t_bsis TYPE STANDARD TABLE OF w_bsis. DATA : wa_bsis TYPE w_bsis. TYPES : BEGIN OF w_erdat, erdat TYPE vbak-erdat, erdat1 TYPE likp-erdat, END OF w_erdat. DATA : t_erdat TYPE STANDARD TABLE OF w_erdat. DATA : wa_erdat TYPE w_erdat. DATA : total TYPE p DECIMALS 3.

TYPES : BEGIN OF w_flight, carrid TYPE sflight-carrid, END OF w_flight. DATA : t_flight TYPE STANDARD TABLE OF w_flight. DATA : wa_flight TYPE w_flight. TYPES : BEGIN OF w_flite, carrid TYPE sflight-carrid, connid TYPE sflight-connid, fldate TYPE sflight-fldate, price TYPE sflight-price, END OF w_flite. DATA : t_flite TYPE STANDARD TABLE OF w_flite. DATA : wa_flite TYPE w_flite. IF vbak = 'X'. SELECT vbeln erdat ernam submi INTO TABLE t_vbak FROM vbak. SORT t_vbak BY vbeln ASCENDING. DATA : count TYPE i. DESCRIBE TABLE t_vbak LINES count. WRITE :'Number of rows:',count COLOR 6. SKIP 1. LOOP AT t_vbak INTO wa_vbak. WRITE :/ wa_vbak-vbeln,20 wa_vbak-erdat,40 wa_vbak-ernam,50 wa_vbak-submi. SKIP 1. ENDLOOP. ENDIF.

IF bkpf = 'X'. SELECT SINGLE bukrs belnr blart INTO wa_bkpf FROM bkpf. WRITE :/ wa_bkpf-bukrs,20 wa_bkpf-belnr,40 wa_bkpf-blart. SKIP 1. ENDIF.

IF bsis = 'X'. SELECT bukrs budat blart UP TO 5 ROWS FROM bsis INTO TABLE t_bsis. IF t_bsis IS NOT INITIAL. LOOP AT t_bsis INTO wa_bsis. WRITE :/ sy-vline,wa_bsis-bukrs,sy-vline,20 wa_bsis-budat,sy-vline,40 wa_b sis-blart. WRITE : sy-uline. ENDLOOP. SKIP 2. ENDIF. ENDIF.

IF erdat = 'X'.

SELECT erdat INTO TABLE t_erdat FROM vbak. IF sy-subrc = 0. SELECT erdat INTO TABLE t_erdat FROM likp . IF sy-subrc = 0. LOOP AT t_erdat INTO wa_erdat. WRITE :/ wa_erdat-erdat,20 wa_erdat-erdat1. ENDLOOP. ENDIF. ENDIF. ENDIF.

IF carrid = 'X'. SELECT SUM( price ) FROM sflight INTO total WHERE carrid = cid. WRITE : 'The Total amount for all Carrid where id =LH is ',total. ENDIF. IF sflite = 'X'. SELECT carrid FROM sflight INTO TABLE t_flight WHERE fldate GT fldt. LOOP AT t_flight INTO wa_flight. WRITE : wa_flight-carrid. SKIP 1. ENDLOOP. ENDIF. IF btwn = 'X'. SELECT carrid FROM sflight INTO TABLE t_flight WHERE carrid IN carid. LOOP AT t_flight INTO wa_flight. WRITE : wa_flight-carrid. SKIP 1. ENDLOOP. ENDIF. IF single ='X'. SELECT SINGLE carrid connid fldate price FROM sflight INTO wa_flite WHERE carr id ='LH' AND connid = 0400 AND fldate = fldt. WRITE : / wa_flite-carrid,20 wa_flite-connid,40 wa_flite-fldate,60 wa_flite-pr ice. ENDIF.

You might also like