LDB in function module

Hello Frn's ,
Can i use PNP Ldb inside the function module ... if yes than how ?
Thanks and Regards..
Priyank Dixit

check the below link.
[http://help.sap.com/saphelp_nw70/helpdata/en/64/237f8cd43711d1950b0000e8353423/content.htm]
[http://www.saptechies.com/what-are-function-modules-in-ldb/]

Similar Messages

Execute function module using outputs

Hi,
I want to create reservations automatically when a rental sales order is saved. I have the function module for creating reservations and want to know if I can execute it using outputs. I don't want to include code in user exits. Can anyone suggest how I can execute this function module using outputs?
Edited by: carrie anderson on Jun 9, 2009 3:45 PM

i m very thank ful for ur immediate response
but i need to use the logical data base and put an additional code for the
report(RPTQTA10) and calculate the qouta type and so on
simply wat i need is to use the ldb in function module
can u plz tell

Help needed on workin with LDBs using call through Function Module LDB_PROC

Hi All
I am new to Logical Databases. I found on net that I can use a dynamic call to a Logical Database using Function Module
"LDB_PROCESS".
I tried implementing the same using the following logic.
REPORT zsa_test2.
TABLES: pernr.
SELECT-OPTIONS s_pernr FOR pernr-pernr.
DATA: callback TYPE TABLE OF ldbcb,
 callback_wa LIKE LINE OF callback.
callback_wa-ldbnode = 'PERNR'.
callback_wa-get = 'X'.
callback_wa-cb_prog = sy-repid.
callback_wa-cb_form = 'CALLBACK_PERNR'.
APPEND callback_wa TO callback.
START-OF-SELECTION.
CALL FUNCTION 'LDB_PROCESS'
 EXPORTING
 ldbname = 'PNP'
 VARIANT = ' '
 EXPRESSIONS = TEXPR
 FIELD_SELECTION = FSEL
 TABLES
 callback = callback
 SELECTIONS = SELTAB
 EXCEPTIONS
 LDB_NOT_REENTRANT = 1
 LDB_INCORRECT = 2
 LDB_ALREADY_RUNNING = 3
 LDB_ERROR = 4
 LDB_SELECTIONS_ERROR = 5
 LDB_SELECTIONS_NOT_ACCEPTED = 6
 VARIANT_NOT_EXISTENT = 7
 VARIANT_OBSOLETE = 8
 VARIANT_ERROR = 9
 FREE_SELECTIONS_ERROR = 10
 CALLBACK_NO_EVENT = 11
 CALLBACK_NODE_DUPLICATE = 12
 OTHERS = 13.
IF sy-subrc <> 0.
 WRITE: 'Exception with SY-SUBRC', sy-subrc.
ENDIF.
*& Form CALLBACK_SPFLI
 text
 -->NAME text
 -->WA text
 -->EVT text
 -->CHECK text
FORM callback_pernr USING name TYPE ldbn-ldbnode
 wa TYPE pernr
 evt TYPE c
 check TYPE c.
BREAK-POINT.
WRITE: / wa-pernr.
ULINE.
ENDFORM. "CALLBACK_SPFLI
But I am unable to transfer the control to the subroutine. The break-point isn't reached.
Can someone please guide me? Am I using the wrong node or something??

look at the below code ..
pass sstab to the selection in the FM
data cbtab type table of ldbcb.
data wa_cbtab like line of cbtab.
data sstab type table of rsparams.
data wa_sstab like line of sstab.
wa_cbtab-ldbnode = 'SPFLI'.
wa_cbtab-get = 'X'.
wa_cbtab-get_late = ' '.
wa_cbtab-cb_prog = sy-cprog.
wa_cbtab-cb_form = 'CB_SPFLI'.
append wa_cbtab to cbtab.
wa_cbtab-ldbnode = 'SFLIGHT'.
wa_cbtab-get = 'X'.
wa_cbtab-get_late = ' '.
wa_cbtab-cb_prog = sy-cprog.
wa_cbtab-cb_form = 'CB_SFLIGHT'.
append wa_cbtab to cbtab.
wa_sstab-selname = 'AIRP_FR'.
wa_sstab-kind = 'S'.
wa_sstab-sign = 'I'.
wa_sstab-option = 'EQ'.
wa_sstab-low = 'FRA'.
append wa_sstab to sstab.
call function 'LDB_PROCESS'
exporting
 ldbname = 'F1S'
tables
 callback = cbtab
 selections = sstab .
form cb_spfli using nodename type ldbn-ldbnode
 wa_spfli type spfli
 mode type c
 selected type c.
 write: / wa_spfli-carrid,
 wa_spfli-connid,
 wa_spfli-airpfrom,
 wa_spfli-airpto.
endform.
form cb_sflight using nodename type ldbn-ldbnode
 wa_sflight type sflight
 mode type c
 selected type c.
 write: /3 wa_sflight-fldate,
 wa_sflight-seatsmax,
 wa_sflight-seatsocc.
endform.

How to use Logical database in function module?

I will create a function module in HR.
but how to use Logical database in function module ? Logical database PNP always show screen.in function (RFC) code , it is a matter.

You cannot attach the LDB to the main program of the function group.
- So you may [SUBMIT|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=submit&adv=false&sortby=cm_rnd_rankvalue] a report which use the LDB and get back the data (export/import), by default in the syntax of SUBMIT the selection-screen will not be displayed
- Use [LDB_PROCESS|https://www.sdn.sap.com/irj/sdn/advancedsearch?query=ldb_process&cat=sdn_all], fill a structured table for selection, and get data back in another table
- Use [HR function modules to read Infotypes|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=hrfunctionmodulestoread+Infotypes&adv=false&sortby=cm_rnd_rankvalue].
Regards

Use of Logical Database in function module

Hello Experts,
Is there a way of using logical database and Get enent inside a function module.
I am trying to create a RFC for HR module and need this badly. Any help would be highly appriciated.
Thanks,
Gregory fernando

This fm will work fine with all LDBs including PNP
Have you checked the fm documentation ?
a®

A FUNCTION MODULE FOR THE HR MODULE FOR PAYROLL OF EMPLOYEES

hi,
i want some a function module or code where i need to get the payroll details like the basic pay ,hra,special allowance,medical allowance,other allowance of an employee on the monthly basis.
the data that i have on ot os not on the basis of months it contains datd of more than one month.like the baisc pay of an employee is given on a radom day basis of more than one month.
but i need to bifercatethe data on monthly basis.
waiting for the reply.
thanks and regards

Hi,
Use the fun module
RP_FILL_WAGE_TYPE_TABLE_EXT
which willget PA0008 results.
but to get the real payroll results you have to import data from clusters by writing the program. Data will be fetch from RT and CRT internal tables based on the Wage Types
see the sample code:
report zporgr0100
 line-size 252
 line-count 60(1)
 no standard page heading
 message-id zndc.
Database Tables & Infotypes
tables: pcl1, " HR Cluster1
 pcl2, " HR Cluster1
 pa0003, " Master data - Payroll Status
 cskt, " Cost Center Texts
 t528t, " Positions Texts
 t513s, " Job Titles
 pernr, " Logical PNP
 t001p, " Personnel Subarea
 t500p, " Personnel Area
 t501, " Employee Group
 t503k, " Employee Subgroup
 csks. " Cost Center
infotypes:0000,0001.
*include rpclst00.
include rpc2rx00.
include rpc2rxx0.
include rpc2cd00.
*include rpc2ps00.
*include rpc2pt00.
*include rpcfvp00.
*include rpcfdc10.
*include rpcfdc00.
include rpppxd00.
include rpppxd10.
Declaration of Internal Tables
Internal Table for Output Data
data: begin of rep_tab occurs 0,
 kostl like pa0001-kostl, " Cost Center
 pernr like pa0001-pernr, " Personal Number
 ename like pa0001-ename, " Employee Name
 ctext like cskt-ltext, " Cost Center Text
 ptext like t528t-plstx, " Position Text
 ot1 type p decimals 2, " Jan OT Amount
 ot2 type p decimals 2, " Feb OT Amount
 ot3 type p decimals 2, " Mar OT Amount
 ot4 type p decimals 2, " Apr OT Amount
 ot5 type p decimals 2, " May OT Amount
 ot6 type p decimals 2, " Jun OT Amount
 ot7 type p decimals 2, " Jul OT Amount
 ot8 type p decimals 2, " Aug OT Amount
 ot9 type p decimals 2, " Sep OT Amount
 ot10 type p decimals 2, " Oct OT Amount
 ot11 type p decimals 2, " Nov OT Amount
 ot12 type p decimals 2, " Dec OT Amount
 ott type p decimals 2, " Total OT Amount
 end of rep_tab.
Declaration of Variables
data: v_mon(2) type n, " Month
 v_no type i, " Data Lines
 v_year(4) type c, " Year
 v_date like sy-datum, " Date
 v_date1 like sy-datum, " Date
 v_seqnr like pc261-seqnr. " Sequence No.
Declaration of Constants
data: c_type like hrp1001-otype value 'S', " Object Type
 c_kokrs like cskt-kokrs value '1000', " Controlling Area
 c_date1 like sy-datum value '18000101', " Date
 c_date2 like sy-datum value '99991231', " Date
 c_x type c value 'X', " Sign
 c_mon(2) type c value '01', " Month
 c_val1(2) type c value '31', " Date
 c_val2(2) type c value '12', " Month Type
 c_val like p0041-dar01 value '01', " Date Type
 c_lgart1 like p0008-lga01 value '0722', " Wage Type
 c_lgart2 like p0008-lga01 value '0723', " Wage Type
 c_1(2) type n value '01', " Month1
 c_2(2) type n value '02', " Month2
 c_3(2) type n value '03', " Month3
 c_4(2) type n value '04', " Month4
 c_5(2) type n value '05', " Month5
 c_6(2) type n value '06', " Month6
 c_7(2) type n value '07', " Month7
 c_8(2) type n value '08', " Month8
 c_9(2) type n value '09', " Month9
 c_10(2) type n value '10', " Month10
 c_11(2) type n value '11', " Month11
 c_12(2) type n value '12'. " Month12
Selection-screen
parameters:
p_year like pc2b0-pabrj obligatory. " Payroll Year
At selection-screen
at selection-screen.
Validate the Selection Screen fields
perform validate_screen.
Start-of-Selection
start-of-selection.
Selection of Period
perform get_period.
Get PERNR from LDB
get pernr.
Get the Master data from infotype 0001
perform get_master_data.
Top-of-page
top-of-page.
Write the Report and Column Headings
perform top_of_page.
End-of-Page
end-of-page.
write /1(252) sy-uline.
End-of-Selection
end-of-selection.
Display the Output Report.
perform display_report.
Form-Routines
*& Form validate_screen
Validation of selection Screen fields
form validate_screen.
Validation of Cost Center
clear csks.
if not pnpkostl[] is initial.
 select single kostl
 into csks-kostl
 from csks
 where kostl in pnpkostl.
 if sy-subrc <> 0.
 message e999 with 'Invalid Cost Center'(003).
 endif.
endif.
Validation of Personnel Number
clear pa0003.
if not pnppernr[] is initial.
 select pernr
 from pa0003 up to 1 rows
 into pa0003-pernr
 where pernr in pnppernr.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personal Number Entered'(002).
 endif.
endif.
Validation of Personnel Area
clear t500p.
if not pnpwerks[] is initial.
 select persa
 from t500p up to 1 rows
 into t500p-persa
 where persa in pnpwerks.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Area Entered'(001).
 endif.
endif.
Validation of Personnel Sub Area
clear t001p.
if not pnpbtrtl[] is initial.
 select btrtl
 from t001p up to 1 rows
 into t001p-btrtl
 where btrtl in pnpbtrtl.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Sub Area Entered'(037).
 endif.
endif.
Validation of Employee Group
clear t501.
if not pnppersg[] is initial.
 select persg
 from t501 up to 1 rows
 into t501-persg
 where persg in pnppersg.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Group Entered'(038).
 endif.
endif.
Validation of Employee Sub Group
clear t503k.
if not pnppersk[] is initial.
 select persk
 from t503k up to 1 rows
 into t503k-persk
 where persk in pnppersk.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Sub Group Entered'(039).
 endif.
endif.
endform. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
form get_period.
clear: v_year,v_mon, v_date, v_date1.
v_year = sy-datum+0(4).
v_mon = sy-datum+4(2).
if pnptimr1 = c_x. " Current Date
 pnpbegda = sy-datum.
 pnpendda = sy-datum.
elseif pnptimr2 = c_x. " Current Month
 concatenate v_year v_mon c_val into v_date.
 concatenate v_year v_mon c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr3 = c_x. " Current Year
 concatenate v_year c_val c_val into v_date.
 concatenate v_year c_val2 c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr4 = c_x. " Upto Today
 pnpbegda = c_date1.
 pnpendda = sy-datum.
elseif pnptimr5 = c_x. " From Today
 pnpbegda = sy-datum.
 pnpendda = c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = c_date1.
 pnpendda = c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 pnpbegda = c_date1.
 pnpendda = pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = pnpbegda.
 pnpendda = pnpendda.
 endif.
endif.
endform. "get_period
*& Form get_master_data
Get the Master Data from Database Tables PA0001,0002,0003
form get_master_data.
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
if p0001-kostl in pnpkostl.
 rep_tab-kostl = p0001-kostl.
 rep_tab-pernr = p0001-pernr.
 rep_tab-ename = p0001-ename.
Get the Position Text
 clear t528t-plstx.
 select single plstx into t528t-plstx from t528t
 where plans = p0001-plans and
 otype = c_type and
 sprsl = sy-langu.
 if sy-subrc = 0.
 rep_tab-ptext = t528t-plstx.
 endif.
Get the Cost Center Text
 clear cskt-ltext.
 select single ltext into cskt-ltext from cskt
 where spras = sy-langu and
 kokrs = c_kokrs and
 kostl = p0001-kostl.
 if sy-subrc = 0.
 rep_tab-ctext = cskt-ltext.
 endif.
Get the Overtime Payment Data
 perform get_ot_data.
 rep_tab-ott = rep_tab-ot1 + rep_tab-ot2 + rep_tab-ot3 +
 rep_tab-ot4 + rep_tab-ot5 + rep_tab-ot6 +
 rep_tab-ot7 + rep_tab-ot8 + rep_tab-ot9 +
 rep_tab-ot10 + rep_tab-ot11 + rep_tab-ot12.
 append rep_tab.
 clear rep_tab.
endif.
sort rep_tab by kostl pernr.
delete rep_tab where kostl = ' '.
delete rep_tab where ott = 0.
endform. "get_master_data
*& Form get_ot_data
Get the Overtime Payment Data
form get_ot_data.
cd-key = pernr-pernr.
rp-imp-c2-cd.
sort rgdir by seqnr.
To get sequence number for the payroll period
loop at rgdir where void is initial
 and reversal is initial
 and outofseq is initial
 and srtza eq 'A'.
 if rgdir-fpper+0(4) = p_year.
To consider offcycle run data
 if not rgdir-ocrsn is initial.
 v_seqnr = rgdir-seqnr.
 exit.
 endif.
 v_seqnr = rgdir-seqnr.
 endif.
 if not v_seqnr is initial.
 perform import_rx.
 endif.
 perform process_wagetypes.
endloop.
endform. "get_ot_data
include rpppxm00.
*& Form Import_rx
Import the RX data from Clusters
form import_rx.
rx-key-pernr = cd-key-pernr.
rx-key-seqno = v_seqnr.
rp-init-buffer.
rp-imp-c2-rx.
endform. " Import_rx
*& Form Process_wagetypes
Calculate the Overtime Amount based on Wage types
form process_wagetypes.
loop at rt.
 if rt-lgart = c_lgart1 or rt-lgart = c_lgart2.
 if rgdir-fpper+0(4) = p_year.
 v_mon = rgdir-fpper+4(2).
 case v_mon .
 when c_1.
 rep_tab-ot1 = rep_tab-ot1 + rt-betrg.
 when c_2.
 rep_tab-ot2 = rep_tab-ot2 + rt-betrg.
 when c_3.
 rep_tab-ot3 = rep_tab-ot3 + rt-betrg.
 when c_4.
 rep_tab-ot4 = rep_tab-ot4 + rt-betrg.
 when c_5.
 rep_tab-ot5 = rep_tab-ot5 + rt-betrg.
 when c_6.
 rep_tab-ot6 = rep_tab-ot6 + rt-betrg.
 when c_7.
 rep_tab-ot7 = rep_tab-ot7 + rt-betrg.
 when c_8.
 rep_tab-ot8 = rep_tab-ot8 + rt-betrg.
 when c_9.
 rep_tab-ot9 = rep_tab-ot9 + rt-betrg.
 when c_10.
 rep_tab-ot10 = rep_tab-ot10 + rt-betrg.
 when c_11.
 rep_tab-ot11 = rep_tab-ot11 + rt-betrg.
 when c_12.
 rep_tab-ot12 = rep_tab-ot12 + rt-betrg.
 endcase.
 endif.
 endif.
endloop.
endform. "process_wagetypes
*& Form top_of_page
Write the Report and Column Headings
form top_of_page.
format color col_heading on.
write: /1(252) 'NATIONAL DRILLING COMPANY'(010) centered,
 /1(252) 'Overtime Payments Details'(011) centered.
format color off.
if pnptimr1 = c_x. " Current Date
 write: /2 'Period From :'(036), sy-datum, 'To:'(006), sy-datum.
elseif pnptimr2 = c_x. " Current Month
 write: /2 'Period From :'(036), v_date, 'To:'(006), v_date1.
elseif pnptimr3 = c_x. " Current Year
 write: /2 'Period From :'(036), v_date, 'To:'(006), v_date1.
elseif pnptimr4 = c_x. " Upto Today
 write: /2 'Period From :'(036), c_date1, 'To:'(006), sy-datum.
elseif pnptimr5 = c_x. " From Today
 write: /2 'Period From :'(036), sy-datum, 'To:'(006), c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(036), c_date1, 'To:'(006), c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 write: /2 'Period From :'(036), c_date1, 'To:'(006), pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(036), pnpbegda,
 'To:'(006), pnpendda.
 endif.
endif.
write: 219 'Report Run Date:'(018), sy-datum.
if not pnpkostl[] is initial.
 if pnpkostl-high is initial.
 write: /2 'Cost Center :'(004), pnpkostl-low,
 219 'Time :'(020), sy-uzeit.
 else.
 write: /2 'Cost Center From:'(005), pnpkostl-low+7(3),
 'To:'(006), pnpkostl-high,
 219 'Time :'(020), sy-uzeit.
 endif.
else.
 write: /219 'Time :'(020), sy-uzeit.
endif.
if not pnppernr[] is initial.
 if pnppernr-high is initial.
 write: /2 'Personal Number :'(007), pnppernr-low,
 219 'User :'(021), sy-uname.
 else.
 write: /2 'Personal No.From:'(008), pnppernr-low,
 'To:'(006), pnppernr-high,
 219 'User :'(021), sy-uname.
 endif.
else.
 write: /219 'User :'(021), sy-uname.
endif.
write: /219 'Page No :'(022), sy-pagno.
format color col_heading.
write /1(252) sy-uline.
write:/1 sy-vline, 10 sy-vline,
 41 sy-vline,
 67 sy-vline, 68(167) 'Overtime Payments(Dirhams)'(013) centered,
 235 sy-vline,252 sy-vline.
format color col_heading.
write:/1 sy-vline, 2(8) 'Emp #'(019) centered,
 10 sy-vline, 11(30) 'Employee Name'(012) centered,
 41 sy-vline, 42(25) 'Position'(014) centered,
 67 sy-vline, 68(167) sy-uline,
 235 sy-vline,236(16) 'Total'(017) centered,
 252 sy-vline.
write:/1 sy-vline, 10 sy-vline,
 41 sy-vline,
 67 sy-vline, 68(13) 'JANUARY'(024) centered,
 81 sy-vline, 82(13) 'FEBRUARY'(025) centered,
 95 sy-vline, 96(13) 'MARCH'(026) centered,
 109 sy-vline,110(13) 'APRIL'(027) centered,
 123 sy-vline,124(13) 'MAY'(028) centered,
 137 sy-vline,138(13) 'JUNE'(029) centered,
 151 sy-vline,152(13) 'JULY'(030) centered,
 165 sy-vline,166(13) 'AUGUST'(031) centered,
 179 sy-vline,180(13) 'SEPTEMBER'(032) centered,
 193 sy-vline,194(13) 'OCTOBER'(033) centered,
 207 sy-vline,208(13) 'NOVEMBER'(034) centered,
 221 sy-vline,222(13) 'DECEMBER'(035) centered,
 235 sy-vline,252 sy-vline.
format color off.
write /1(252) sy-uline.
endform. "top_of_page
*& Form Display_report
Write the Report Output
form display_report.
clear v_no.
describe table rep_tab lines v_no.
if v_no = 0.
 message i999 with
 'No Data found for the entered Selection'(015).
endif.
loop at rep_tab.
 format color 3.
 at new kostl.
 read table rep_tab index sy-tabix.
 write:/1 sy-vline, 2(12) 'Cost Center:'(009),
 14(10) rep_tab-kostl,
 25(30) rep_tab-ctext,
 252 sy-vline.
 format color off.
 write /1(252) sy-uline.
 endat.
 format color col_normal.
 write: /1 sy-vline, 2(8) rep_tab-pernr,
 10 sy-vline, 11(30) rep_tab-ename,
 41 sy-vline, 42(25) rep_tab-ptext,
 67 sy-vline, 68(13) rep_tab-ot1 no-zero,
 81 sy-vline, 82(13) rep_tab-ot2 no-zero,
 95 sy-vline, 96(13) rep_tab-ot3 no-zero,
 109 sy-vline,110(13) rep_tab-ot4 no-zero,
 123 sy-vline,124(13) rep_tab-ot5 no-zero,
 137 sy-vline,138(13) rep_tab-ot6 no-zero,
 151 sy-vline,152(13) rep_tab-ot7 no-zero,
 165 sy-vline,166(13) rep_tab-ot8 no-zero,
 179 sy-vline,180(13) rep_tab-ot9 no-zero,
 193 sy-vline,194(13) rep_tab-ot10 no-zero,
 207 sy-vline,208(13) rep_tab-ot11 no-zero,
 221 sy-vline,222(13) rep_tab-ot12 no-zero,
 235 sy-vline,236(16) rep_tab-ott no-zero,
 252 sy-vline.
 at end of kostl.
 write /1(252) sy-uline.
 endat.
 format color off.
 at last.
 sum.
 format color 1.
 write: /1 sy-vline,
 10 sy-vline, 11(30) 'Total'(017) centered,
 41 sy-vline,
 67 sy-vline, 68(13) rep_tab-ot1 no-zero,
 81 sy-vline, 82(13) rep_tab-ot2 no-zero,
 95 sy-vline, 96(13) rep_tab-ot3 no-zero,
 109 sy-vline,110(13) rep_tab-ot4 no-zero,
 123 sy-vline,124(13) rep_tab-ot5 no-zero,
 137 sy-vline,138(13) rep_tab-ot6 no-zero,
 151 sy-vline,152(13) rep_tab-ot7 no-zero,
 165 sy-vline,166(13) rep_tab-ot8 no-zero,
 179 sy-vline,180(13) rep_tab-ot9 no-zero,
 193 sy-vline,194(13) rep_tab-ot10 no-zero,
 207 sy-vline,208(13) rep_tab-ot11 no-zero,
 221 sy-vline,222(13) rep_tab-ot12 no-zero,
 235 sy-vline,236(16) rep_tab-ott no-zero,
 252 sy-vline.
 write /1(252) sy-uline.
 endat.
 format color off.
endloop.
endform. "display_report
reward points if useful
regards,
Anji

How to defined which logical database to use in a function module?

Hey,
I am trying to do logical database in a function module. I need to know where do i go to define which logical database to use? Becuase i get syntax error on my Get statement. The logical database i am trying to use is HR PNP .
Any useful help will be appreciated,
Thanks

I think we can't assign logical database to FM or FG. Because there isn't any option to put the logical database in the FM or FG's attributes.
You must have to create a executable report to have the LDB in use.
Regards,
Naimesh Patel

Problem in Logical Databse Call via Function Module - Urgent

Hi Experts,
To use the Logical Database(LDB) in the function module(Custom) I am using the function module - LDB_PROCESS. But I didn't get any output. I am attaching the code. Please Help me in this.
DATA : W_LDBNAME LIKE TRDIR-LDBNAME.
DATA : IT_CALLBACK LIKE TABLE OF LDBCB WITH HEADER LINE,
 IT_SELECTIONS LIKE TABLE OF RSPARAMS WITH HEADER LINE,
 IT_PERNR TYPE TABLE OF PERNR WITH HEADER LINE.
MOVE 'PNP' TO W_LDBNAME.
IT_CALLBACK-LDBNODE = 'PERNR'.
IT_CALLBACK-GET = 'X'.
IT_CALLBACK-CB_PROG = SY-CPROG.
IT_CALLBACK-CB_FORM = 'CALLBACK_PERNR'.
APPEND IT_CALLBACK.
CLEAR IT_CALLBACK.
IT_SELECTIONS-KIND = 'S'.
IT_SELECTIONS-SELNAME = 'PNPPERNR'.
IT_SELECTIONS-SIGN = 'I'.
IT_SELECTIONS-OPTION = 'EQ'.
IT_SELECTIONS-LOW = '100178'.
APPEND IT_SELECTIONS.
CLEAR IT_SELECTIONS.
CALL FUNCTION 'LDB_PROCESS'
EXPORTING
 LDBNAME = W_LDBNAME
VARIANT =
EXPRESSIONS =
FIELD_SELECTION =
DYN_NODE_TYPES =
TABLES
 CALLBACK = IT_CALLBACK
 SELECTIONS = IT_SELECTIONS
EXCEPTIONS
 LDB_NOT_REENTRANT = 1
 LDB_INCORRECT = 2
 LDB_ALREADY_RUNNING = 3
 LDB_ERROR = 4
 LDB_SELECTIONS_ERROR = 5
 LDB_SELECTIONS_NOT_ACCEPTED = 6
 VARIANT_NOT_EXISTENT = 7
 VARIANT_OBSOLETE = 8
 VARIANT_ERROR = 9
 FREE_SELECTIONS_ERROR = 10
 CALLBACK_NO_EVENT = 11
 CALLBACK_NODE_DUPLICATE = 12
 CALLBACK_NO_PROGRAM = 13
 CALLBACK_NO_CBFORM = 14
 DYN_NODE_NO_TYPE = 15
 DYN_NODE_INVALID_TYPE = 16
 OTHERS = 17.
IF SY-SUBRC <> 0.
MESSAGE I039(ZABA) WITH SY-SUBRC.
ENDIF.
LOOP AT IT_PERNR.
message i039(zaba) with 'Inside loop'.
WRITE : / IT_PERNR-PERNR, IT_PERNR-BUKRS.
ENDLOOP.
*& Form CALLBACK_PERNR
 text
 -->L_LDBNAME text
 -->L_IT_PAYROLL text
 -->TYPE text
 -->PAY99_REULT text
 -->L_EVT text
 -->L_CHK text
FORM CALLBACK_PERNR USING L_LDBNAME LIKE TRDIR-LDBNAME
 L_IT_PERNR LIKE PERNR
 L_EVT type C
 L_CHK type C.
message i039(zaba) with 'Inside Callback'.
WRITE : / L_IT_PERNR-PERNR,
 L_IT_PERNR-BUKRS.
MOVE-CORRESPONDING L_IT_PERNR TO IT_PERNR.
APPEND IT_PERNR.
CLEAR IT_PERNR.
ENDFORM. "CALLBACK_PERNR
Thanks in advance
Arul Jothi.

Hi,
I think Arul commented the 'it_selections' while trying out.. I couldn't get the fm work for PNP.. it worked fine with the FI LDBs.. just didn't seem to like the PNP..
Regards,
Suresh Datti

Regarding hr function modules

if to read the data from a RT table which of the following function module will be best
. pyxx_read_payroll_result or RP_FILL_WAGE_TYPE_TABLE
what i am doing is i am filling the rgdir table using the function module cu_read_rgdir
as looking at the query you can see i am totally confused in these function modules
can anone please let me know that how i can get data from rt using these function modules coz i am not using ldb PNP in my program and i have got all the data wihtout using it now the only issue left is PF that i can get only from RT TABLE.
if there is any other way also for that please let me know
the wage types for pf are /3f1,/3f2./3f3
if anynobdy can help me in this i can complete rest of the parts by today ..
sorry for disturbing you all have asked too many questions on rt table
please dont mind
just wanted to have a grip on it thats y asking so many queries and thanks for all your replies that you all have given
pelase help me in this last one also:)

Hi,
refer
Retrieve record from RT
Re: regarding RT tables
Hope this solves your purpose.
Award points if it helps.
-Gaurang

HR Function Modules and HR Macros

Hi ,
I have to create one interface program for SAP HR.
For that I am trying to use Function module HR_READ_INFOTYPE , but I think we should not use LDB PNP if we use this Function module.
Further I tried to use RP_PROVIDE_FROM_LAST macro also for this LDB is mandatory.
I need to know which one i can use the Function module or Macros in regards to performance.
Which one will take more time for execution Function Module or the Macro? If Function Module why ? If Macro why?
Please help me out becoz am new to SAP HR coding.
Thanks in Advance

You can use th get runtime statements in code to find out how much time a part of the source takes to run.
HR macros are stored in table TRMAC, so you can find out what the source is behind these.
Kind regards, Rob Dielemans

Function module for assigned wage types

Hi experts,
We need wage type wise count and sum of the amount for each wage type defined in infotype '0008' for the given from and to dates. Is there any function module available for the same.
Please suggest.
Regards,
Kaustubh Kabre.

Hi,
<li>I do not look for function module for this case as i know that we can or have to read wage types and corresponding amount in the program. LDB PNP should be given in program attributes.
REPORT RPABAP06.
TABLES:PERNR.
INFOTYPES:0008.
DATA: BEGIN OF WAGETYPES,
 LGA LIKE P0008-LGA01,
 BET LIKE P0008-BET01,
 ANZ LIKE P0008-ANZ01,
 EIN LIKE P0008-EIN01,
 OPK LIKE P0008-OPK01,
END OF WAGETYPES.
DATA:total type P0008-BET01.
GET PERNR.
RP_PROVIDE_FROM_LAST P0008 SPACE PN-BEGDA PN-ENDDA.
DO 20 TIMES VARYING WAGETYPES-LGA FROM P0008-LGA01 NEXT P0008-LGA02
 VARYING WAGETYPES-BET FROM P0008-BET01 NEXT P0008-BET02.
IF WAGETYPES-LGA IS INITIAL.
EXIT.
ELSE.
TOTAL = TOTAL + WAGETYPES-BET.
WRITE: / WAGETYPES-LGA, WAGETYPES-BET.
ENDIF.
ENDDO.
WRITE TOTAL.
Thanks
Venkat.O

URGENT: Function modules or BAPIs

Hi Experts,
I need function modules or BAPI to get the open items and cleared items G/L Account wise.
Useful replies will be surely awarded.

Hi Chakradhar,
Check tcode : BAPI
u will get all bapis there.
Regards,
Hemant

How to attached class or function module in FD03

Hi Guys
I want to attached CL_ATTACHMENT_LIST for retriving attachment list from fd03 please help to attached the function module in my program?
regards
Piroz
report zfir_aged_debtors no standard page heading
 line-size 255.
Type group
type-pools:
slis. " ALV types
Tables
tables:
adrc, " Addresses
bsad, " Accounting: Customer secondary index (Cleared)
bsid, " Accounting: Customer secondary index (Open)
kna1, " Customer master: General data
knkk, " Customer master: Credit management
knvk. " Customer master: Contact persons
Types
types:
begin of ty_bsadbsid,
 bukrs like bsad-bukrs, " Company code
 kunnr like bsad-kunnr, " Customer
 gjahr like bsad-gjahr, " Fiscal year
 belnr like bsad-belnr, " Accounting document number
 buzei like bsad-buzei, " Line item
 budat like bsad-budat, " Posting date
 bldat like bsad-bldat, " Document date
 waers like bsad-waers, " Currency
 xblnr like bsad-xblnr, " Reference
 shkzg like bsad-shkzg, " Debit/credit indicator
 dmbtr like bsad-dmbtr, " Amount
 zfbdt like bsad-zfbdt, " Baseline date for due date
 " calculation
 zbd1t like bsad-zbd1t, " Cash discount days 1
 zbd2t like bsad-zbd2t, " Cash discount days 2
 zbd3t like bsad-zbd3t, " Net payment terms period
 rebzg like bsad-rebzg, " Number of the invoice
 rebzt like bsad-rebzt, " Follow on document type
end of ty_bsadbsid,
ty_it_bsadbsid type ty_bsadbsid occurs 0,
begin of ty_merged,
 kunnr like kna1-kunnr, " Customer number
 name1 like adrc-name1, " Name
 city1 like adrc-city1, " City
 post_code1 like adrc-post_code1, " Post code
 street like adrc-street, " Street
 house_num1 like adrc-house_num1, " House number
 tel_number like adrc-tel_number, " Telephone number
 fax_number like adrc-fax_number, " Fax number
 namev like knvk-namev, " First name
 namew like knvk-name1, " Last name
 telf1 like knvk-telf1, " Telephone number
 klimk like knkk-klimk, " Credit limit
 skfor like knkk-skfor, " Total receivables
 total like bsad-dmbtr, " Total amount
 rast1 like bsad-dmbtr, " Amount period 1
 rast2 like bsad-dmbtr, " Amount period 2
 rast3 like bsad-dmbtr, " Amount period 3
 rast4 like bsad-dmbtr, " Amount period 4
 rast5 like bsad-dmbtr, " Amount period 5
 rast6 like bsad-dmbtr, " Amount period 6
end of ty_merged,
ty_it_merged type ty_merged occurs 0.
Internal tables
data:
Internal table to store customer line items from BSAD and BSID
it_bsadbsid type ty_it_bsadbsid,
Internal table to store field catalog for ALV function call
it_fieldcat type slis_t_fieldcat_alv,
Internal table to store summarised data for report output
it_merged type ty_it_merged.
Structures
data:
Display variant structures
st_tvariant like disvariant,
st_variant like disvariant.
Constants
constants:
co_delim_dash type c
 value '-',
co_false type c " False
 value space,
co_koart_d like faede-koart " Customer account type
 value 'D',
co_save_u type c " User display variant
 value 'U', " saving allowed.
co_shkzg_h like bsid-shkzg " Debit/Credit indicator
 value 'H', " for credit
co_shkzg_s like bsid-shkzg " Debit/Credit indicator
 value 'S', " for debit
co_selected type c " Value of selected radio
 value 'X', " button or checkbox
co_true type c " True
 value co_selected.
Variables
data:
va_exit type c.
Selection screen definition
selection-screen: begin of block b1 with frame title text-001.
select-options:
s_kunnr for bsad-kunnr. " Customer number
parameters:
p_kkber like knkk-kkber, " Credit control area
p_pafkt like knvk-pafkt, " Contact function
p_datum like sy-datum. " Report date
selection-screen: begin of line,
 comment 01(30) text-006,
 position pos_low.
parameters:
rastbis1 like rfpdo1-allgrogr " Due date sorted 1
 default '000',
rastbis2 like rfpdo1-allgrogr " Due date sorted 2
 default '000',
rastbis3 like rfpdo1-allgrogr " Due date sorted 3
 default '000',
rastbis4 like rfpdo1-allgrogr " Due date sorted 4
 default '000',
rastbis5 like rfpdo1-allgrogr " Due date sorted 5
 default '000'.
selection-screen: end of line.
selection-screen: end of block b1,
 begin of block b2 with frame title text-002.
parameters:
p_varint like disvariant-variant. " Display variant.
selection-screen: end of block b2.
Initialisation
initialization.
Provide default periods for due date sorted list.
rastbis1 = 0.
rastbis2 = 30.
rastbis3 = 60.
rastbis4 = 90.
rastbis5 = 120.
Default report date to current.
p_datum = sy-datlo.
Default credit control area to BP01.
p_kkber = 'BP01'.
At selection screen on value request for
at selection-screen on value-request for p_varint.
Provide display variant list for this program.
call function 'REUSE_ALV_VARIANT_F4'
 exporting
 is_variant = st_variant
 i_save = co_save_u
 importing
 e_exit = va_exit
 es_variant = st_tvariant
 exceptions
 not_found = 2.
if sy-subrc eq 2.
 message id sy-msgid type 'S'
 number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
 if va_exit eq space.
 st_variant = st_tvariant.
 p_varint = st_tvariant-variant.
 endif.
endif.
At selection screen
at selection-screen.
Load display variant.
if not p_varint is initial.
 move st_variant to st_tvariant.
 move p_varint to st_tvariant-variant.
 call function 'REUSE_ALV_VARIANT_EXISTENCE'
 exporting
 i_save = co_save_u
 changing
 cs_variant = st_tvariant.
 st_variant = st_tvariant.
else.
 clear st_variant.
 st_variant-report = sy-repid.
endif.
if p_kkber is initial.
Ensure credit control area is specified.
 message e000(zgen) with 'Credit control area must be specified'.
endif.
if p_pafkt is initial.
Ensure contact person function is specified.
 message e000(zgen) with 'Contact person function must be specified'.
endif.
Start of selection
start-of-selection.
Extract open customer items from BSID
select bukrs kunnr gjahr belnr buzei budat bldat waers xblnr shkzg
 dmbtr zfbdt zbd1t zbd2t zbd3t rebzg rebzt
 from bsid
 into table it_bsadbsid
 where kunnr in s_kunnr
 and budat le p_datum.
Extracct cleared customer items from BSAD
select bukrs kunnr gjahr belnr buzei budat bldat waers xblnr shkzg
 dmbtr zfbdt zbd1t zbd2t zbd3t rebzg rebzt
 from bsad
 appending table it_bsadbsid
 where kunnr in s_kunnr
 and budat le p_datum
 and augdt ge p_datum.
Ensure that items were not selected twice while getting data from the
open and cleared items tables (Only if transaction occured during
report run).
sort it_bsadbsid by bukrs belnr gjahr buzei.
delete adjacent duplicates from it_bsadbsid
 comparing bukrs belnr gjahr buzei.
if it_bsadbsid[] is initial.
No data found for selection
 message s001(zgen).
 exit.
endif.
Merge data for report output
perform merge_data tables it_bsadbsid
 it_merged.
Build field catalog
perform build_field_catalog tables it_fieldcat.
Output report via ALV
perform output_report_via_alv tables it_fieldcat
 it_merged.
*& Form merge_data
 text
form merge_data tables pa_it_bsadbsid type ty_it_bsadbsid
 pa_it_merged type ty_it_merged.
Local work areas
data:
lwa_bsadbsid type ty_bsadbsid,
lwa_merged type ty_merged.
Local structures
data:
lst_faede like faede.
Local variables
data:
lva_daysover type i,
lva_merged_tabix like sy-tabix.
loop at pa_it_bsadbsid into lwa_bsadbsid.
Lookup merged entry for customer
 clear lwa_merged.
 read table pa_it_merged into lwa_merged
 with key kunnr = lwa_bsadbsid-kunnr
 binary search.
 lva_merged_tabix = sy-tabix.
 if sy-subrc ne 0.
 Create new merged record for customer
 lwa_merged-kunnr = lwa_bsadbsid-kunnr.
 Get customer details from KNA1
 clear kna1.
 select single *
 from kna1
 where kunnr eq lwa_bsadbsid-kunnr.
 Get customer address details from ADRC
 clear adrc.
 select single *
 from adrc
 where addrnumber eq kna1-adrnr
 and date_from le p_datum.
 lwa_merged-name1 = adrc-name1.
 lwa_merged-city1 = adrc-city1.
 lwa_merged-post_code1 = adrc-post_code1.
 lwa_merged-street = adrc-street.
 lwa_merged-house_num1 = adrc-house_num1.
 lwa_merged-tel_number = adrc-tel_number.
 lwa_merged-fax_number = adrc-fax_number.
 Get credit limit details from KNKK
 clear knkk.
 select single *
 from knkk
 where kunnr eq lwa_bsadbsid-kunnr
 and kkber eq p_kkber.
 lwa_merged-klimk = knkk-klimk.
 lwa_merged-skfor = knkk-skfor.
 Get customer contact person details from KNVK
 clear knvk.
 select single *
 from knvk
 where kunnr eq lwa_bsadbsid-kunnr
 and pafkt eq p_pafkt.
 lwa_merged-namev = knvk-namev.
 lwa_merged-namew = knvk-name1.
 lwa_merged-telf1 = knvk-telf1.
 insert lwa_merged into pa_it_merged index lva_merged_tabix.
 endif.
Interpret debit/credit indicator
 case lwa_bsadbsid-shkzg.
 when co_shkzg_h.
 Credit
 lwa_bsadbsid-dmbtr = 0 - lwa_bsadbsid-dmbtr.
 when co_shkzg_s.
 Debit
 endcase.
Perform ageing
 clear lst_faede.
 move-corresponding lwa_bsadbsid to lst_faede.
 lst_faede-koart = co_koart_d.
 call function 'DETERMINE_DUE_DATE'
 exporting
 i_faede = lst_faede
 importing
 e_faede = lst_faede
 exceptions
 others = 1.
 lva_daysover = p_datum - lst_faede-netdt.
Accumulate total.
 add lwa_bsadbsid-dmbtr to lwa_merged-total.
 if lva_daysover le rastbis1.
 add lwa_bsadbsid-dmbtr to lwa_merged-rast1.
 else.
 if lva_daysover le rastbis2 or
 rastbis3 is initial.
 add lwa_bsadbsid-dmbtr to lwa_merged-rast2.
 else.
 if lva_daysover le rastbis3 or
 rastbis4 is initial.
 add lwa_bsadbsid-dmbtr to lwa_merged-rast3.
 else.
 if lva_daysover le rastbis4 or
 rastbis5 is initial.
 add lwa_bsadbsid-dmbtr to lwa_merged-rast4.
 else.
 if lva_daysover le rastbis5.
 add lwa_bsadbsid-dmbtr to lwa_merged-rast5.
 else.
 add lwa_bsadbsid-dmbtr to lwa_merged-rast6.
 endif.
 endif.
 endif.
 endif.
 endif.
Update the merged record
 modify pa_it_merged from lwa_merged index lva_merged_tabix.
endloop.
endform. " merge_data
*& Form build_field_catalog
 text
form build_field_catalog tables pa_it_fieldcat type slis_t_fieldcat_alv.
Local work areas
data:
 lwa_fieldcat type slis_fieldcat_alv.
--WG1K903216: Start Insert-
data: v_datum type datum,
 v_mdmth type datum,
 v_datxt type string,
 v_noday type i.
--WG1K903216: End Insert---
refresh pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'KUNNR'.
lwa_fieldcat-ref_tabname = 'KNA1'.
lwa_fieldcat-ref_fieldname = 'KUNNR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '1'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'NAME1'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'NAME1'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '2'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'CITY1'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'CITY1'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '3'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'POST_CODE1'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'POST_CODE1'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '4'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'STREET'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'STREET'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '5'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'HOUSE_NUM1'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'HOUSE_NUM1'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '6'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'TEL_NUMBER'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'TEL_NUMBER'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '7'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'FAX_NUMBER'.
lwa_fieldcat-ref_tabname = 'ADRC'.
lwa_fieldcat-ref_fieldname = 'FAX_NUMBER'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '8'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'NAMEV'.
lwa_fieldcat-ref_tabname = 'KNVK'.
lwa_fieldcat-ref_fieldname = 'NAMEV'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '9'.
lwa_fieldcat-seltext_l = 'Contact first name'.
lwa_fieldcat-seltext_m = 'Contact Fname'.
lwa_fieldcat-seltext_s = 'Ctct Fname'.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'NAMEW'.
lwa_fieldcat-ref_tabname = 'KNVK'.
lwa_fieldcat-ref_fieldname = 'NAME1'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '10'.
lwa_fieldcat-seltext_l = 'Contact last name'.
lwa_fieldcat-seltext_m = 'Contact Lname'.
lwa_fieldcat-seltext_s = 'Ctxt Lname'.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'TELF1'.
lwa_fieldcat-ref_tabname = 'KNVK'.
lwa_fieldcat-ref_fieldname = 'TELF1'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '11'.
lwa_fieldcat-seltext_l = 'Contact phone no.'.
lwa_fieldcat-seltext_m = 'Contact phone'.
lwa_fieldcat-seltext_s = 'Ctct Phne'.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'KLIMK'.
lwa_fieldcat-ref_tabname = 'KNKK'.
lwa_fieldcat-ref_fieldname = 'KLIMK'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '12'.
lwa_fieldcat-seltext_l = 'Credit limit'.
lwa_fieldcat-seltext_m = 'Credit limit'.
lwa_fieldcat-seltext_s = 'Crdt limit'.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'SKFOR'.
lwa_fieldcat-ref_tabname = 'KNKK'.
lwa_fieldcat-ref_fieldname = 'SKFOR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '13'.
lwa_fieldcat-seltext_l = 'Credit used'.
lwa_fieldcat-seltext_m = 'Credit used'.
lwa_fieldcat-seltext_s = 'Crdt used'.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'TOTAL'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '14'.
lwa_fieldcat-seltext_l = 'Total'.
lwa_fieldcat-seltext_m = 'Total'.
lwa_fieldcat-seltext_s = 'Total'.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'RAST1'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '15'.
--WG1K903216: Start Delete-
concatenate '<'
 rastbis2
 into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Delete---
--WG1K903216: Start Insert-
clear: v_datum,
 v_datxt.
v_noday = rastbis2.
Always use the middle of the report month as a heading reference date.
concatenate p_datum+0(6) '15' into v_mdmth.
call function 'ZWAG_DATE_CALCULATOR'
 exporting i_datum = v_mdmth
 i_noday = v_noday
 i_oprnd = '+'
 importing e_datum = v_datum
 exceptions invalid_operand = 1.
call function 'ZWAG_END_MONTH'
 exporting i_datum = v_datum
 importing e_datum = v_datum
 e_datxt = v_datxt
 exceptions invalid_date = 1.
concatenate 'Due' v_datxt into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Insert---
lwa_fieldcat-seltext_m = lwa_fieldcat-seltext_l.
lwa_fieldcat-seltext_s = lwa_fieldcat-seltext_l.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'RAST2'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '16'.
--WG1K903216: Start Delete-
concatenate rastbis1
 rastbis2
 into lwa_fieldcat-seltext_l
 separated by co_delim_dash.
--WG1K903216: End Delete---
--WG1K903216: Start Insert-
clear: v_datum,
 v_datxt.
v_noday = rastbis1.
call function 'ZWAG_DATE_CALCULATOR'
 exporting i_datum = v_mdmth
 i_noday = v_noday
 i_oprnd = '+'
 importing e_datum = v_datum
 exceptions invalid_operand = 1.
call function 'ZWAG_END_MONTH'
 exporting i_datum = v_datum
 importing e_datum = v_datum
 e_datxt = v_datxt
 exceptions invalid_date = 1.
concatenate 'Due' v_datxt into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Insert---
lwa_fieldcat-seltext_m = lwa_fieldcat-seltext_l.
lwa_fieldcat-seltext_s = lwa_fieldcat-seltext_l.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'RAST3'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '17'.
--WG1K903216: Start Delete-
concatenate rastbis2
 rastbis3
 into lwa_fieldcat-seltext_l
 separated by co_delim_dash.
--WG1K903216: End Delete---
--WG1K903216: Start Insert-
clear: v_datum,
 v_datxt.
v_noday = rastbis2.
call function 'ZWAG_DATE_CALCULATOR'
 exporting i_datum = v_mdmth
 i_noday = v_noday
 i_oprnd = '-'
 importing e_datum = v_datum
 exceptions invalid_operand = 1.
call function 'ZWAG_END_MONTH'
 exporting i_datum = v_datum
 importing e_datum = v_datum
 e_datxt = v_datxt
 exceptions invalid_date = 1.
concatenate 'Due' v_datxt into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Insert---
lwa_fieldcat-seltext_m = lwa_fieldcat-seltext_l.
lwa_fieldcat-seltext_s = lwa_fieldcat-seltext_l.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'RAST4'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '18'.
--WG1K903216: Start Delete-
concatenate rastbis3
 rastbis4
 into lwa_fieldcat-seltext_l
 separated by co_delim_dash.
--WG1K903216: End Delete---
--WG1K903216: Start Insert-
clear: v_datum,
 v_datxt.
v_noday = rastbis3.
call function 'ZWAG_DATE_CALCULATOR'
 exporting i_datum = v_mdmth
 i_noday = v_noday
 i_oprnd = '-'
 importing e_datum = v_datum
 exceptions invalid_operand = 1.
call function 'ZWAG_END_MONTH'
 exporting i_datum = v_datum
 importing e_datum = v_datum
 e_datxt = v_datxt
 exceptions invalid_date = 1.
concatenate 'Due' v_datxt into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Insert---
lwa_fieldcat-seltext_m = lwa_fieldcat-seltext_l.
lwa_fieldcat-seltext_s = lwa_fieldcat-seltext_l.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'RAST5'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '19'.
--WG1K903216: Start Delete-
concatenate rastbis4
 rastbis5
 into lwa_fieldcat-seltext_l
 separated by co_delim_dash.
--WG1K903216: End Delete---
--WG1K903216: Start Insert-
clear: v_datum,
 v_datxt.
v_noday = rastbis4.
call function 'ZWAG_DATE_CALCULATOR'
 exporting i_datum = v_mdmth
 i_noday = v_noday
 i_oprnd = '-'
 importing e_datum = v_datum
 exceptions invalid_operand = 1.
call function 'ZWAG_END_MONTH'
 exporting i_datum = v_datum
 importing e_datum = v_datum
 e_datxt = v_datxt
 exceptions invalid_date = 1.
concatenate 'Due' v_datxt into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Insert---
lwa_fieldcat-seltext_m = lwa_fieldcat-seltext_l.
lwa_fieldcat-seltext_s = lwa_fieldcat-seltext_l.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
clear lwa_fieldcat.
lwa_fieldcat-tabname = 'PA_IT_MERGED'.
lwa_fieldcat-fieldname = 'RAST6'.
lwa_fieldcat-ref_tabname = 'BSAD'.
lwa_fieldcat-ref_fieldname = 'DMBTR'.
lwa_fieldcat-row_pos = '1'.
lwa_fieldcat-col_pos = '20'.
--WG1K903216: Start Delete-
concatenate '>'
 rastbis5
 into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Delete---
--WG1K903216: Start Insert-
clear: v_datum,
 v_datxt.
v_noday = rastbis5.
call function 'ZWAG_DATE_CALCULATOR'
 exporting i_datum = v_mdmth
 i_noday = v_noday
 i_oprnd = '-'
 importing e_datum = v_datum
 exceptions invalid_operand = 1.
call function 'ZWAG_END_MONTH'
 exporting i_datum = v_datum
 importing e_datum = v_datum
 e_datxt = v_datxt
 exceptions invalid_date = 1.
concatenate 'Due By' v_datxt into lwa_fieldcat-seltext_l
 separated by space.
--WG1K903216: End Insert---
lwa_fieldcat-seltext_m = lwa_fieldcat-seltext_l.
lwa_fieldcat-seltext_s = lwa_fieldcat-seltext_l.
lwa_fieldcat-ddictxt = 'L'.
append lwa_fieldcat to pa_it_fieldcat.
endform. " build_field_catalog
*& Form output_report_via_alv
 text
form output_report_via_alv
 tables pa_it_fieldcat type slis_t_fieldcat_alv
 pa_it_merged type ty_it_merged.
Local variables
data:
 lva_repid like sy-repid,
 lva_formname type slis_formname.
lva_repid = sy-repid.
lva_formname = 'USER_COMMAND'.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = lva_repid
 i_callback_user_command = lva_formname
 i_save = 'A'
 is_variant = st_variant
 it_fieldcat = pa_it_fieldcat[]
 tables
 t_outtab = pa_it_merged
 exceptions
 program_error = 1
 others = 2.
endform. " output_report_via_alv

Hi shiva
Thanks for your help,
Can you check this coding and revert me back ASAP Please.
REPORT BDS_GOS_CONNECTION.
DATA : logical_system LIKE BAPIBDS01-log_system.
 CLASSNAME LIKE BAPIBDS01-CLASSNAME
 OBJKEY LIKE SWOTOBJID-objkey.
PARAMETERS: pa_lo_sys BAPIBDS01-log_system,
 pa_class like BPIBDS01-CLASSNAME,
 pa_objkey like swotobjidobjkey.
AT SELECTION-SCREEN.
CALL FUNCTION 'BDS_GOS_CONNECTIONS_GET'
 EXPORTING
 bor_id = bor_id
 IMPORTING
 logical_sytem = pa_lo_sys.
 classname = pa_class.
 objkey = pa_objkey.
 EXCEPTIONS
 no_objects_found = 1
 internal_error = 2
 internal_gos_error = 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.
clear v_attno1.
i_object1-typeid = 'BUS2012'.
i_object1-catid = 'BO'.
i_object1-instid = i_yItem-docno.
call method cl_gos_attachment_query=>count_for_object
 exporting
 is_object = i_object1
 ip_arl = space
 receiving
 rt_stat = i_stat1.
read table i_stat1 into wa_stat1 index 1.
if sy-subrc eq c_0.
 move wa_stat1-counter to v_attno1.
endif.
CALL METHOD cl_gos_attachment_query=>count_for_object
EXPORTING
is_object = object
ip_arl = space
RECEIVING
rt_stat = lt_stat.
READ TABLE lt_stat INDEX 1 into ls_stat.
count = ls_stat-counter.
*The object has to be a concatenation of your document, like this:
CONCATENATE object-instid tab-gjahr INTO object-instid.
ELSE.
CONCATENATE tab-bukrs tab-belnr tab-gjahr INTO
object-instid.
ENDIF.

Function Module to Release Scheduled Jobs

Dear All,
I have a requirement to create all the background jobs in SCHEDULED status, this is achieved by using the function modules JOB_OPEN, JOB_SUBMIT and JOB_CLOSE.
Now at a later point of time, i want to release only a few jobs, which were created using the above mentioned procedure. Insead of doing it manually, is there any way to automate this step ??
Regards,
kartik

Dear Mr. Parupalli,
That solved my problem. Thank you.
Regards,
kartik

Call RFC Function Module and return 1000 records at a time

I would like to call a Remote Enabled Function Module from a non SAP system. This function module will select data from the database and return it to the calling program.
Suppose there are 100,000 records that need to be returned, but the calling module would like the data in chunks of 1000 records. Therefore the calling program would call the FM 100 times.
How do I code the function module to know on each subsequent call to grab the next chunk of 1000 records?
Let me know if additional information is needed.
Thanks,
Aaron

Hello,
Here is how you can go for this issue:
1. Create one RFC function module with following parameter. These parameters are with respective of chunking logic.
     Import: Package Size
     Export: Total number of records
     Changing: chunk count
Implement following logic:
1. First of you need to know how many chunks you need to fetch for that get the count of total number of records. This is one
    time activity so you better maintain one flag import parameter will be set to 'X' only first call.
2. Get the number of chunk using total number of records / chunk size for e.g. 1000 / 100 so chunk count = 10.
3. Define internal chunk counter in function module which will be used to locate the correct chunk depending on the chunk
    counter value sent from calling program.
4. Send first call with package size 100 and chunk count = 1, execute select statement and increment internal
    chunk count check if chunk count = internal chunk count in current case chunk count = 1 so exit select statement and return
    with first chunk.
5. Send second call with package size 100 and chunk count = 2. Execute select statement and check chunk count with internal
    chunk counter, in current case it will be 1 so skip that data and go for next chunk of 100 records increment internal chunk
    counter. In this case it will match with external chunk count = 2. load output table with that data and return to calling program.
6. Repeat step 4 until you reach last chunk.
You need to use SELECT...ENDSELECT with PACKAGE SIZE addition so for every loop it will return number of records mentioned in package size.
Hope this helps.
Thanks,
Augustin.

LDB in function module

Similar Messages

Maybe you are looking for