好笑的 ABAP 寫法

FORM SCR_0130.

DATA: myTitle(14) type c,
myString(20) type c,
counter(2) type n.
counter = 1.

PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=VW'.
LOOP AT i_tab.

myTitle = 'LFBK-BANKS('.
CONCATENATE myTitle counter ')' INTO myTitle.
* PERFORM bdc_field USING 'LFBK-BANKS'
PERFORM bdc_field USING myTitle
* 'TW'.
i_tab-country.
myTitle = 'LFBK-BANKL('.
CONCATENATE myTitle counter ')' INTO myTitle.
* PERFORM bdc_field USING 'LFBK-BANKL'
PERFORM bdc_field USING myTitle
* '0060040'.
i_tab-bankno.
myTitle = 'LFBK-BANKN('.
CONCATENATE myTitle counter ')' INTO myTitle.
* PERFORM bdc_field USING 'LFBK-BANKN'
PERFORM bdc_field USING myTitle
* '112355678'.
i_tab-accountno.
myTitle = 'LFBK-KOINH('.
CONCATENATE myTitle counter ')' INTO myTitle.
CONCATENATE '有' counter '間公司' INTO myString.
* PERFORM bdc_field USING 'LFBK-KOINH'
PERFORM bdc_field USING myTitle
* i_tab-vendername.
myString.
counter = counter + 1.
ENDLOOP.

ENDFORM.