sitemap
| SapMaterial.com |
 | |  | |  | |  | |  | |  | |  | |  | |  |
Function module to send data to data dictionary.
by Latha kuppam
FUNCTION z_taxi_issue.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(TPLNR) LIKE ZPM_TAXI_HIRER-TPLNR
*" REFERENCE(ZNRIC) LIKE ZPM_TAXI_HIRER-ZNRIC OPTIONAL
*" REFERENCE(DATE_ISSUE) LIKE ZPM_TAXI_HIRER-DATE_ISSUE OPTIONAL
*" REFERENCE(TIME_ISSUE) LIKE ZPM_TAXI_HIRER-TIME_ISSUE OPTIONAL
*" REFERENCE(MSGRP) LIKE ZPM_TAXI_HIRER-MSGRP OPTIONAL
*" REFERENCE(TITLE_MEDI) LIKE ZPM_TAXI_HIRER-TITLE_MEDI OPTIONAL
*" REFERENCE(NAME1) LIKE ZPM_TAXI_HIRER-NAME1 OPTIONAL
*" REFERENCE(NAME2) LIKE ZPM_TAXI_HIRER-NAME1 OPTIONAL
*" REFERENCE(STREET) LIKE ZPM_TAXI_HIRER-STREET OPTIONAL
*" REFERENCE(HOUSE_NUM1) LIKE ZPM_TAXI_HIRER-HOUSE_NUM1 OPTIONAL
*" REFERENCE(POST_CODE1) LIKE ZPM_TAXI_HIRER-POST_CODE1 OPTIONAL
*" REFERENCE(CITY1) LIKE ZPM_TAXI_HIRER-CITY1 OPTIONAL
*" REFERENCE(COUNTRY) LIKE ZPM_TAXI_HIRER-COUNTRY OPTIONAL
*" REFERENCE(BLAND) LIKE ZPM_TAXI_HIRER-BLAND OPTIONAL
*" REFERENCE(TEL_NUMBER) LIKE ZPM_TAXI_HIRER-TEL_NUMBER OPTIONAL
*" REFERENCE(MOB_NUMBER) LIKE ZPM_TAXI_HIRER-MOB_NUMBER OPTIONAL
*" REFERENCE(SMTP_ADDR) LIKE ZPM_TAXI_HIRER-SMTP_ADDR OPTIONAL
*" REFERENCE(SERGE) LIKE ZPM_TAXI_HIRER-SERGE OPTIONAL
*" REFERENCE(ZCONHIRER) LIKE ZPM_TAXI_HIRER-ZCONHIRER OPTIONAL
*" REFERENCE(ERR_HANDLER) LIKE ZPM_TAXI_HIRER-ERR_HANDLER OPTIONAL
*"----------------------------------------------------------------------
DATA: ITAB1 LIKE IFLOT,
error_ind type i value 0.
DATA itab LIKE zpm_taxi_hirer OCCURS 0 WITH HEADER LINE .
itab-tplnr = tplnr.
itab-date_issue = date_issue.
itab-znric = znric.
itab-time_issue = time_issue.
itab-msgrp = msgrp.
itab-title_medi = title_medi.
itab-name1 = name1.
itab-name2 = name2.
itab-street = street.
itab-house_num1 = house_num1.
itab-post_code1 = post_code1.
itab-city1 = city1.
itab-country = country.
itab-bland = bland.
itab-tel_number = tel_number.
itab-mob_number = mob_number.
itab-smtp_addr = smtp_addr.
itab-serge = serge.
itab-zconhirer = zconhirer.
* itab-err_handler = err_handler.
append itab.
SELECT SINGLE TPLNR TPLMA
INTO CORRESPONDING FIELDS OF ITAB1
FROM IFLOT
WHERE TPLNR = itab-tplnr.
IF SY-SUBRC = 0.
MODIFY zpm_taxi_hirer FROM TABLE itab.
else.
itab-err_handler = 1.
ENDIF.
ENDFUNCTION.
Reply Forward
gurram ashalatha to Santha
More options Mar 10
FUNCTION Z_TAXI_RETURN.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(TPLNR) LIKE ZPM_TAXI_HIRER-TPLNR
*" REFERENCE(ZNRIC) LIKE ZPM_TAXI_HIRER-ZNRIC
*" REFERENCE(DATE_ISSUE) LIKE ZPM_TAXI_HIRER-DATE_ISSUE
*" REFERENCE(TIME_ISSUE) LIKE ZPM_TAXI_HIRER-TIME_ISSUE
*" REFERENCE(DATE_RETURN) LIKE ZPM_TAXI_HIRER-DATE_RETURN
*" REFERENCE(TIME_RETURN) LIKE ZPM_TAXI_HIRER-TIME_RETURN
*"----------------------------------------------------------------------
DATA itab LIKE zpm_taxi_hirer OCCURS 0 WITH HEADER LINE .
data : begin of itab1 occurs 0,
tplnr like ZPM_TAXI_HIRER-tplnr,
znric like ZPM_TAXI_HIRER-znric,
end of itab1.
SELECT SINGLE TPLNR znric
INTO CORRESPONDING FIELDS OF ITAB1
FROM zpm_taxi_hirer.
* where tplnr = itab1-tplnr
* and znric = itab1-znric.
itab1-tplnr = tplnr.
itab1-znric = znric.
itab-date_issue = date_issue.
itab-time_issue = time_issue.
*if sy-subrc = 0.
*endif.
itab-tplnr = tplnr.
itab-znric = znric.
itab-date_issue = date_issue.
itab-time_issue = time_issue.
itab-date_return = date_return.
itab-time_return = time_return.
append itab.
update zpm_taxi_hirer set date_return = itab-date_return
time_return = itab-time_return where tplnr = itab-tplnr
and znric = itab-znric
and date_issue = itab-date_issue
and time_issue = itab-time_issue.
* ACCEPTING DUPLICATE KEYS.
ENDFUNCTION.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(TPLNR) LIKE ZPM_TAXI_HIRER-TPLNR
*" REFERENCE(ZNRIC) LIKE ZPM_TAXI_HIRER-ZNRIC OPTIONAL
*" REFERENCE(DATE_ISSUE) LIKE ZPM_TAXI_HIRER-DATE_ISSUE OPTIONAL
*" REFERENCE(TIME_ISSUE) LIKE ZPM_TAXI_HIRER-TIME_ISSUE OPTIONAL
*" REFERENCE(MSGRP) LIKE ZPM_TAXI_HIRER-MSGRP OPTIONAL
*" REFERENCE(TITLE_MEDI) LIKE ZPM_TAXI_HIRER-TITLE_MEDI OPTIONAL
*" REFERENCE(NAME1) LIKE ZPM_TAXI_HIRER-NAME1 OPTIONAL
*" REFERENCE(NAME2) LIKE ZPM_TAXI_HIRER-NAME1 OPTIONAL
*" REFERENCE(STREET) LIKE ZPM_TAXI_HIRER-STREET OPTIONAL
*" REFERENCE(HOUSE_NUM1) LIKE ZPM_TAXI_HIRER-HOUSE_NUM1 OPTIONAL
*" REFERENCE(POST_CODE1) LIKE ZPM_TAXI_HIRER-POST_CODE1 OPTIONAL
*" REFERENCE(CITY1) LIKE ZPM_TAXI_HIRER-CITY1 OPTIONAL
*" REFERENCE(COUNTRY) LIKE ZPM_TAXI_HIRER-COUNTRY OPTIONAL
*" REFERENCE(BLAND) LIKE ZPM_TAXI_HIRER-BLAND OPTIONAL
*" REFERENCE(TEL_NUMBER) LIKE ZPM_TAXI_HIRER-TEL_NUMBER OPTIONAL
*" REFERENCE(MOB_NUMBER) LIKE ZPM_TAXI_HIRER-MOB_NUMBER OPTIONAL
*" REFERENCE(SMTP_ADDR) LIKE ZPM_TAXI_HIRER-SMTP_ADDR OPTIONAL
*" REFERENCE(SERGE) LIKE ZPM_TAXI_HIRER-SERGE OPTIONAL
*" REFERENCE(ZCONHIRER) LIKE ZPM_TAXI_HIRER-ZCONHIRER OPTIONAL
*" REFERENCE(ERR_HANDLER) LIKE ZPM_TAXI_HIRER-ERR_HANDLER OPTIONAL
*"----------------------------------------------------------------------
DATA: ITAB1 LIKE IFLOT,
error_ind type i value 0.
DATA itab LIKE zpm_taxi_hirer OCCURS 0 WITH HEADER LINE .
itab-tplnr = tplnr.
itab-date_issue = date_issue.
itab-znric = znric.
itab-time_issue = time_issue.
itab-msgrp = msgrp.
itab-title_medi = title_medi.
itab-name1 = name1.
itab-name2 = name2.
itab-street = street.
itab-house_num1 = house_num1.
itab-post_code1 = post_code1.
itab-city1 = city1.
itab-country = country.
itab-bland = bland.
itab-tel_number = tel_number.
itab-mob_number = mob_number.
itab-smtp_addr = smtp_addr.
itab-serge = serge.
itab-zconhirer = zconhirer.
* itab-err_handler = err_handler.
append itab.
SELECT SINGLE TPLNR TPLMA
INTO CORRESPONDING FIELDS OF ITAB1
FROM IFLOT
WHERE TPLNR = itab-tplnr.
IF SY-SUBRC = 0.
MODIFY zpm_taxi_hirer FROM TABLE itab.
else.
itab-err_handler = 1.
ENDIF.
ENDFUNCTION.
Reply Forward
gurram ashalatha to Santha
More options Mar 10
FUNCTION Z_TAXI_RETURN.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(TPLNR) LIKE ZPM_TAXI_HIRER-TPLNR
*" REFERENCE(ZNRIC) LIKE ZPM_TAXI_HIRER-ZNRIC
*" REFERENCE(DATE_ISSUE) LIKE ZPM_TAXI_HIRER-DATE_ISSUE
*" REFERENCE(TIME_ISSUE) LIKE ZPM_TAXI_HIRER-TIME_ISSUE
*" REFERENCE(DATE_RETURN) LIKE ZPM_TAXI_HIRER-DATE_RETURN
*" REFERENCE(TIME_RETURN) LIKE ZPM_TAXI_HIRER-TIME_RETURN
*"----------------------------------------------------------------------
DATA itab LIKE zpm_taxi_hirer OCCURS 0 WITH HEADER LINE .
data : begin of itab1 occurs 0,
tplnr like ZPM_TAXI_HIRER-tplnr,
znric like ZPM_TAXI_HIRER-znric,
end of itab1.
SELECT SINGLE TPLNR znric
INTO CORRESPONDING FIELDS OF ITAB1
FROM zpm_taxi_hirer.
* where tplnr = itab1-tplnr
* and znric = itab1-znric.
itab1-tplnr = tplnr.
itab1-znric = znric.
itab-date_issue = date_issue.
itab-time_issue = time_issue.
*if sy-subrc = 0.
*endif.
itab-tplnr = tplnr.
itab-znric = znric.
itab-date_issue = date_issue.
itab-time_issue = time_issue.
itab-date_return = date_return.
itab-time_return = time_return.
append itab.
update zpm_taxi_hirer set date_return = itab-date_return
time_return = itab-time_return where tplnr = itab-tplnr
and znric = itab-znric
and date_issue = itab-date_issue
and time_issue = itab-time_issue.
* ACCEPTING DUPLICATE KEYS.
ENDFUNCTION.
|
All of the product names here are trademarks of their respective companies. The site
www.allsaplinks.com no way affiliated with SAP AG. We have made every effort for the content
integrity. Information used on this site is at your own risk.
www.allsaplinks.com no way affiliated with SAP AG. We have made every effort for the content
integrity. Information used on this site is at your own risk.