Abap Tutorials

Search
Syndicate
Home Abap Sample Programs
Simple Call Transaction Program
09pankPosted at 16:47 on Sun, 06/17/2012
*&- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*& Repor t ZCLASS_32
*&
*&- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*&
*&
*&- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
REPORT zcl ass_32.
PARAMETERS: p_f name TYPE r l gr ap
TYPES: BEGI N OF t _cust omer ,
kunnr TYPE kna1- kunnr ,
kt okd TYPE kna1- kt okd,
name1 TYPE kna1- name1,
sor t l TYPE kna1- sor t l ,
Abap Tutorials
Simple Call Transaction Program-1
Posted at 16:47 on Sun, 06/17/2012
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
PARAMETERS: p_f name TYPE r l gr ap- f i l ename.
TYPES: BEGI N OF t _cust omer ,
kunnr ,
kt okd,
name1,
sor t l ,
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
or t 01 TYPE kna1- or t 01,
pst l z TYPE kna1- pst l z,
l and1 TYPE kna1- l and1,
spr as TYPE kna1- spr as,
l zone TYPE kna1- l zone,
END OF t _cust omer .
DATA: v_f name TYPE st r i ng,
* I nt er nal Tabl e Decl ar at i on f or Cust omer dat a
i _cust omer TYPE STANDARD TABLE OF t _cust omer ,
wa_cust omer TYPE t _cust omer ,
* I nt aer nal Tabl e Decl ar at i on f or BDCDATA
wa_bdcdat a TYPE bdcdat a,
i _bdcdat a TYPE STANDARD TABLE OF bdcdat a,
* I nt er nal Tabl e Decl ar at i on f or BDCMSGCOLL
wa_bdcmsgcol l TYPE bdcmsgcol l ,
i _bdcmsgcol l TYPE STANDARD TABLE OF bdcmsgcol l .
AT SELECTI ON- SCREEN ON VALUE- REQUEST FOR p_f name.
* F4 f unct i onal i t y f or Fi l e Name
CALL FUNCTI ON ' F4_FI LENAME'
EXPORTI NG
pr ogr am_name = syst - cpr og
dynpr o_number = syst - dynnr
f i el d_name = ' '
I MPORTI NG
f i l e_name = p_f name.
START- OF- SELECTI ON.
v_f name = p_f name.
* Upl oad dat a f r omf l at f i l e and st or e i t i n an I nt er nal t abl e
CALL FUNCTI ON ' GUI _UPLOAD'
EXPORTI NG
f i l ename = v_f name
f i l et ype = ' ASC'
has_f i el d_separ at or = ' X'
TABLES
dat a_t ab = i _cust omer .
LOOP AT i _cust omer I NTO wa_cust omer .
CLEAR wa_bdcdat a.
REFRESH i _bdcdat a[ ] .
PERFORM bdc_dynpr o USI NG ' SAPMF02D' ' 0100' .
PERFORM bdc_f i el d USI NG ' BDC_CURSOR'
' RF02D- KTOKD' .
PERFORM bdc_f i el d USI NG ' BDC_OKCODE'
' / 00' .
PERFORM bdc_f i el d USI NG ' RF02D- KUNNR'
wa_cust omer - kunnr .
PERFORM bdc_f i el d USI NG ' RF02D- KTOKD'
wa_cust omer - kt okd.
PERFORM bdc_dynpr o USI NG ' SAPMF02D' ' 0110' .
PERFORM bdc_f i el d USI NG ' BDC_CURSOR'
' KNA1- SPRAS' .
PERFORM bdc_f i el d USI NG ' BDC_OKCODE'
' / 00' .
PERFORM bdc_f i el d USI NG ' KNA1- NAME1'
wa_cust omer - name1.
PERFORM bdc_f i el d USI NG ' KNA1- SORTL'
wa_cust omer - sor t l .
PERFORM bdc_f i el d USI NG ' KNA1- ORT01'
wa_cust omer - or t 01.
PERFORM bdc_f i el d USI NG ' KNA1- PSTLZ'
wa_cust omer - pst l z.
PERFORM bdc_f i el d USI NG ' KNA1- LAND1'
wa_cust omer - l and1.
PERFORM bdc_f i el d USI NG ' KNA1- SPRAS'
wa_cust omer - spr as.
PERFORM bdc_dynpr o USI NG ' SAPMF02D' ' 0120' .
PERFORM bdc_f i el d USI NG ' BDC_CURSOR'
' KNA1- LZONE' .
PERFORM bdc_f i el d USI NG ' BDC_OKCODE'
' =UPDA' .
PERFORM bdc_f i el d USI NG ' KNA1- LZONE'
wa_cust omer - l zone.
CALL TRANSACTI ON ' XD01' USI NG i _bdcdat a MODE ' E' UPDATE ' S'
MESSAGES I NTO i _bdcmsgcol l .
ENDLOOP.
LOOP AT i _bdcmsgcol l I NTO wa_bdcmsgcol l .
DATA: v_msg TYPE st r i ng.
CALL FUNCTI ON ' FORMAT_MESSAGE'
EXPORTI NG
i d = wa_bdcmsgcol l - msgi d
l ang = ' - D'
no = wa_bdcmsgcol l - msgnr
v1 = wa_bdcmsgcol l - msgv1
v2 = wa_bdcmsgcol l - msgv2
v3 = wa_bdcmsgcol l - msgv3
v4 = wa_bdcmsgcol l - msgv4
I MPORTI NG
msg = v_msg
EXCEPTI ONS
not _f ound = 1
OTHERS = 2.
I F sy- subr c EQ 0.
WRI TE: / 10 wa_bdcmsgcol l - msgt yp, wa_bdcmsgcol l - msgnr , v_msg.
ENDI F.
* WRI TE: / 10 wa_bdcmsgcol l - msgt yp, wa_bdcmsgcol l - msgnr , wa_bdcmsgcol l - msgv1.
ENDLOOP.
*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* St ar t new scr een *
*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
FORM bdc_dynpr o USI NG pr ogr amdynpr o.
CLEAR wa_bdcdat a. / 88
wa_bdcdat a- pr ogr am = pr ogr am.
wa_bdcdat a- dynpr o = dynpr o.
wa_bdcdat a- dynbegi n = ' X' .
APPEND wa_bdcdat a TO i _bdcdat a.
ENDFORM. " BDC_DYNPRO
*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* I nser t f i el d *
*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
FORM bdc_f i el d USI NG f namf val .
CLEAR wa_bdcdat a.
wa_bdcdat a- f nam= f nam.
wa_bdcdat a- f val = f val .
APPEND wa_bdcdat a TO i _bdcdat a.
ENDFORM. " BDC_FI ELD
Simple Call Transaction ProgramupSimple Call Transaction with BDCMSGCOLL Program
Loginto post comments
Network Sites
Best 5 List
Online Degrees
User login
Username: *
Password: *
Log in
Request new password
Navigation
News aggregator
Abap Tutorials| XMl Sitemap
Copyright 2010-2011 Abap Tutorials.. All rights reserved.
Tuesday, September 16th 2014