‎2007 Jul 27 11:07 AM
Hi,
pa0000 - pernr
pa0002-vorna
pa0002-nachn
to dispaly the data.
(there is no condition& sel criteria)
thanks
sree
‎2007 Jul 27 11:10 AM
Hi
Just write a select statement for PA0002 info type and display the data
DATA: BEGIN OF ITAB OCCURS 0,
PERNR LIKE PA0000-PERNR,
VORNA LIKE PA0002-VORNA,
NACHN LIKE PA0002-NACHA,
END OF ITAB.
SELECT PERNR VORNA NACHN INTO TABLE ITAB FROM PA0002
WHERE ENDDA = '99991231' . (if you want you can comment this line also)
loop at itab.
write: . itab-pernr, 10 itab-vorna, 30 itab-nachn.
endloop.
<b>Reward points for useful Answers</b>
Regards
Anji
Message was edited by:
Anji Reddy Vangala
‎2007 Jul 27 11:09 AM
‎2007 Jul 27 11:10 AM
Hi
Just write a select statement for PA0002 info type and display the data
DATA: BEGIN OF ITAB OCCURS 0,
PERNR LIKE PA0000-PERNR,
VORNA LIKE PA0002-VORNA,
NACHN LIKE PA0002-NACHA,
END OF ITAB.
SELECT PERNR VORNA NACHN INTO TABLE ITAB FROM PA0002
WHERE ENDDA = '99991231' . (if you want you can comment this line also)
loop at itab.
write: . itab-pernr, 10 itab-vorna, 30 itab-nachn.
endloop.
<b>Reward points for useful Answers</b>
Regards
Anji
Message was edited by:
Anji Reddy Vangala
‎2007 Jul 27 11:12 AM
hi,
Report ZHR.
tables : pa0000.
Types : begin of t_data,
pernr type pa0000-pernr,
vorna type pa0000-vorna,
nachn type pa0000-nachn,
end of t_data.
* Declaration
data : wa_tab type t_data. " WOrk area
Data : itab type standard table of t_data. "Internal table..
select pernr vorna nachn from pa0000 into table itab.
loop at itab into wa_tab.
write wa_itab-pernr.
write wa_itab-vorna.
write wa_itab-nachn.
clear wa_iatb.
endlloop.Rgds
Reshma
‎2007 Jul 27 11:19 AM
‎2007 Jul 27 11:27 AM
‎2007 Jul 27 11:33 AM
hi the link is <a href="http://www.alvrobot.com.ar/home.php">here</a>
pls reward points if useful
‎2007 Jul 27 11:40 AM
REPORT ZTEST_BAPI.
type-pools: slis.
types : begin of ty_billing ,
pernr type pa0000-pernr,
vorna type pa0000-vorna,
nachn type pa0000-nachn,
end of ty_billing.
data : it_billing type standard table of ty_billing,
wa_billing type ty_billing.
----
Constants ALV *
----
DATA : intrecordcount TYPE i, "Variable to hold the record count
i_grid_settings TYPE lvc_s_glay.
DATA : wa_variant LIKE disvariant, "Variant,
it_fieldcat TYPE slis_t_fieldcat_alv,
it_events TYPE slis_t_event,
lwa_line TYPE slis_listheader,
it_list_top_of_page TYPE slis_t_listheader,
w_cuustock LIKE mbew-verpr,
w_cuustockplan LIKE mbew-verpr,
w_cuustockplanext LIKE mbew-verpr,
w_unit TYPE string,
w_brand TYPE string,
w_qty LIKE mseg-erfmg,
w_qty1 LIKE mseg-erfmg,
w_qty2 LIKE mseg-erfmg,
w_qty3 LIKE mseg-erfmg,
w_qty4 LIKE mseg-erfmg,
test_title TYPE string,
gd_layout TYPE slis_layout_alv,
w_stock TYPE string.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gt_events TYPE slis_t_event,
gd_prntparams TYPE slis_print_alv,
gd_repid LIKE sy-repid,
test_title1(70) TYPE c,
sp_day TYPE string,
sp_month TYPE string,
sp_year TYPE string,
test_date TYPE string,
test_date1 TYPE string.
start-of-selection.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM build_events.
PERFORM build_print_params.
PERFORM display_alv_report.
end-of-selection.
&----
*& Form build_events
&----
text
----
--> p1 text
<-- p2 text
----
FORM build_events.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = gt_events[].
READ TABLE gt_events
WITH KEY name = slis_ev_end_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE 'END_OF_PAGE' TO ls_event-form.
APPEND ls_event TO gt_events.
ENDIF.
READ TABLE gt_events
WITH KEY name = slis_ev_end_of_list
INTO ls_event.
IF sy-subrc = 0.
MOVE 'END_OF_LIST' TO ls_event-form.
APPEND ls_event TO gt_events.
ENDIF.
ls_event-name = 'USER_COMMAND'.
ls_event-form = 'F01_USER_COMMAND'.
APPEND ls_event TO gt_events.
ENDFORM. " build_events
FORM build_fieldcatalog.
fieldcatalog-fieldname = 'pernr'.
fieldcatalog-key = 'X'.
fieldcatalog-seltext_m = 'heading1'.
fieldcatalog-col_pos = 1.
fieldcatalog-outputlen = 15.
fieldcatalog-edit = ''.
<td align=center>
fieldcatalog-align = "right".
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'vorna'.
fieldcatalog-key = 'X'.
fieldcatalog-seltext_m = 'heading2'.
fieldcatalog-col_pos = 2.
fieldcatalog-outputlen = 10.
fieldcatalog-edit = ''.
<td align=center>
fieldcatalog-align = "right".
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'nachn'.
fieldcatalog-key = 'X'.
fieldcatalog-seltext_m = 'heading3'.
fieldcatalog-col_pos = 2.
fieldcatalog-outputlen = 10.
fieldcatalog-edit = ''.
<td align=center>
fieldcatalog-align = "right".
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM. " build_fieldcatalog
hey ur ..
vorna type pa0000-vorna,
nachn type pa0000-nachn,
is incorrect plz put in the correct one and run the program otherwise comment that and run the program.....
Regard
nawa