Additional output column for transaction IW37N.

Hi All,
I need to add an additional output column for purchase order in the output of transaction IW37N. I checked the user exit IWOC0004. But it is used only for IW37N. I found that the following BADIs are present for IW37N:
1. BADI_EAM_SINGLELEVEL_LIST
2. IWOC_LIST_TUNING
3. IHREP_EXTENSIONS
4. ALV_SWITCH_GRID_LIST
Could you please let me know if any of the exit/BADI can be used to add the addiional column to the transaction IW37N. I do not want to create a new Z program for this requirement.
Thanks in advance.
Regards,
Suchitra.

Hi Gautham,
Thanks for the reply. But I also need to fill the value of the purchase order based on the ATB. Can this also be done through the BADI BADI_EAM_SINGLELEVEL_LIST or we cneed to finc some other exit / BADI?
Thanks.
Regards,
Suchitra.

Similar Messages

Additional Output fields for ME2N?

We have created a Z field which exists on the item level of our POs (table EKPO). It is available in the search criteria of our ME2N report, but not in the output. Does anyone know of a way to add additional fields to the output of ME2N? Thanks so much.
Jim

Lot of thanks Ken G, I follow your code and solved the same problem.
1st I add custom field YYJ_4KSCAT in structure MEREP_OUTTAB_PURCHDOC
then do that enhancement:
Tcode: ME2N/ME2W/...
program: LMEREPI02
Method: if_reader_mm~read_table
Code:
ENHANCEMENT 1 ZME2W_CUSTOM_FIELDS.    "active version
   FIELD-SYMBOLS: <ZZ_CUSTOM> TYPE MEREP_OUTTAB_PURCHDOC.
   DATA: idx TYPE sy-tabix.
   IF my_struct_name EQ 'MEREP_OUTTAB_PURCHDOC'.
     LOOP AT <OUTTAB> ASSIGNING <ZZ_CUSTOM>.
       idx = sy-tabix.
       READ TABLE <ekko> into ls_ekko WITH KEY ebeln = <ZZ_CUSTOM>-ebeln.
       clear lt_ekpo[].
       my_any_ekpo->read_lines( exporting im_key   = ls_ekko-ebeln
                                importing ex_table = lt_ekpo ).
       READ TABLE lt_ekpo into ls_ekpo WITH KEY ebeln = <ZZ_CUSTOM>-ebeln
                                                 ebelp = <ZZ_CUSTOM>-ebelp.
         <ZZ_CUSTOM>-YYJ_4KSCAT = ls_ekpo-j_4kscat.
         MODIFY <OUTTAB> FROM <ZZ_CUSTOM> INDEX idx .
     ENDLOOP.
   ENDIF.
ENDENHANCEMENT.

Creating output type for MB01,MB1B & MB1C for IDOC

Dear Exoerts,
Here scenarion is client using interface at front end.Which provides backup data from SAP.
Can anybody guide to Create output type for transactions MB01,MB1B & MB1C.It is going to use for IDOC creation.Client wants Inventory program at front end system.
Waiting for your reply.

Hi,
Please check below link in this regard. Thanking you.
http://help.sap.com/saphelp_45b/helpdata/en/52/16ac64543311d1891c0000e8322f96/frameset.htm
Edited by: Padmasri Garapati on Nov 30, 2011 3:14 PM

How to add column in table control for transaction APPCREATE

Hi All,
How can i add the additional column in table control for transaction APPCREATE.
There is structure PT1045_EXT present behind table control. But not found any customer exit or badi to display on screen.
Please help...

You can add new columns
If you add new columns in tr. PHAP_CATALOG

Addition of new column in Transaction VL10G

Hello Experts.
My requirement is that USER want to add new column in Transaction VL10G
There two plant in which Ware house management is activated. while creating delivery from Transaction VL10G from these two plants, Storage type column should be added in layout in delivery creation screen.
Storage type column should be appear after executing VL10G for Ware house managed plant only.
please help me in that ,is there any configuration or USER Exist which can fulfilled my requirement. ?
waiting for reply.....its quite Urgent
Regards
Pash@SD

Hi
Go to report V50R_USEREXITS and see these includes
* 1. Add field to list-display
* Userexits for additional fields on list display
* use append-structure in DDIC at structure SHP_VL10_ITEM
* and ad field value in one of these routines
*INCLUDE LV50R_VIEWG02.       "POS_ITEM_FILL_USER:       SD/MM-orders
*INCLUDE LV50R_VIEWG03.       "POSTAB_VEPVG_FILL_USER    SD-Index
*INCLUDE LV50R_VIEWG06.       "POSTAB_VETVG_FILL_USER    MM-Index
*INCLUDE LV50R_VIEWG07.       "POSTAB_DELIVERY_FILL_USER Delivery item
See also SAP Note 421791 - VL10: Including new fields in the shipping due date list
Regards
Eduardo

Addition of config keys for transaction CT04

For transaction code CT04 for a material for which i have output types ZCRE and ZCHG
under variant config we have configuration value and configuration description. i would
like to add additional config keys like configuration key part3 and configuration key part 4
configuration key part5 and configuration key part6 to the existing
configuration key part 1 and configuration key part2.
How can i create additional configuration keys and how do i group them.

Hi!
CT04 is for maintaining characteristics. What configuration keys are you talking about exactly?
Any relevant transactions can be found at the following SAP menu path:
Logistics - Central functions - Classification
Regards
Tamá

Strange behaviour in alv output display for a date column!

hi friends,
my alv output list display contains a column for budat (posting date), if this field has no value, then it displays a blank cell (space) in the output in my user login...but when the same report is run in another user login, even though the value of the column is null, it displays 00000000 (8 zeroes) rather than displaying a blank cell...i have set the field catalog property NO_ZERO = 'X'; is this property has anything to do with authorization to achieve its funcionality? am not sure...this is strange, as it is the same report, same field catalog that is being used..need some inputs on this
thanks in advance
Sathish

There are 2 solutions for an adhoc solution you can change the field to a char10 field, this will solve your immediate problem of the 0 display. For a permanent solution you can check the user profile setting for the date for you as well as the concerned user.
Hope That Helps
Anirban M.

How to create an IDOC as an output type for an SAP standard transaction

Hi ,
How to create an outbound IDOC as an output type for an SAP standard transaction.
Regards,
Beena

In NACE tcode u can create output type with medium as EDI,
u can assign the entry sub routine as ENTRY_EDI in RNASTED

EDI output message for Outbound Deliv send with application own transaction

Dear All,
I encountering a problem with the output message "WSOR" via EDI.
What i want:
I would to configure this message output without the Dispatch time " 3: Send with application own transaction".
What is encountering now:
I have done the setting in "VV22" or VV21, with the conbination of Delivery type and Shipping point. and the setting is EDI with dispatch time 3: Send with application own transaction.
But When i use ME2O to create the outbound delivery for subcontractor, the message output "WSOR" process automatically and the dispatch time is 4: Send immediately (When application save).
Can anyone please advice me what are the setting or area that i need to check!!
Thank you very much,
Regards,
Chee Wee

Hi
Try here...
Logistics Execution -> Shipping -> Basic Shipping Functions -> Output Control -> Output Determination -> Maintain Output Determination for Outbound Deliveries
Regards
Eduardo

Dynamically show/hide columns for DelimitedData output

My users want to see only dynamic sets of data from the same report query.
For example, if the query returns:
Date, Widget1Count, Widget2Count, ..., WidgetZCount
User1 wants to see Date and counts for widgets 1,2, 5, and 10
User2 wants to see Date and counts for widgets 2, 3, 4, 5, 10-20.
Uset3 wants to see Date and widget 99 count.
I don't want to write a custom report for every single user nor do I want to create Z! number of queries to satisfy every possible request combination.
I wonder, is there a way to change "Exclude from XML Output" property for a particular query field(s) from a report AfterPForm or BeforeReport trigger?

Hi,
I had the same problem, but I saw the Metalink document: 340793.1, which gave the solution I needed.
In my case, I needed to limit the number of columns being outputted in a DELIMITEDDATA format based on a user parameter.
I ended up with the following code in my After PForm trigger, which did the job.
BEGIN
SRW.ADD_DEFINITION('<report DTDVersion="1.0">');
SRW.ADD_DEFINITION('<customize>');
-- For those columns I want displayed, Set the XMLSuppress property to False
FOR tmp IN 1 .. 10 LOOP
SRW.ADD_DEFINITION('<object name="col_'||LPAD(TO_CHAR(tmp), 3, '0')||'_title" type="REP_COL_MAP">');
SRW.ADD_DEFINITION('<properties>');
SRW.ADD_DEFINITION('<property name="XMLSuppress">False</property>');
SRW.ADD_DEFINITION('</properties>');
SRW.ADD_DEFINITION('</object>');
END LOOP;
-- For those column I don't want displayed, Set the XMLSuppress property to True
FOR tmp in 11 .. 100 LOOP
SRW.ADD_DEFINITION('<object name="col_'||LPAD(TO_CHAR(tmp), 3, '0')||'_title" type="REP_COL_MAP">');
SRW.ADD_DEFINITION('<properties>');
SRW.ADD_DEFINITION('<property name="XMLSuppress">True</property>');
SRW.ADD_DEFINITION('</properties>');
SRW.ADD_DEFINITION('</object>');
END LOOP;
SRW.ADD_DEFINITION('</customize>');
SRW.ADD_DEFINITION('</report>');
SRW.APPLY_DEFINITION;
END;
I hope this helps with your problem.
Paul

How to delete columns in table control (tab Services) for transaction ME51

Hi, gurus!
We're facing this problem in our upgrade: we have a batch input (ME51) in order to create purchase requisitions, but we get an error with the dynpro data (program: SAPMM06B, dynpro: 0102).
We are sure we populate all the required fields in that screen.
The only possible reason we find for that error is the fact that we have two new entries in table control (in tab services=> Current settings there are 67 fixed columns)
We had to add in table T162V (which previously had only 65 columns for each variant): ESLL-SRVMAPKEY y ESLL-EXTERNALID, as described on note 1382685, so table control and table T162V could have same number of fields.
We guess we could solve the batch input error deleting those fields in both table control and T162V, but don't know how.
We really would appreciate any clue.
Thanks in advance.
Best regards,
J. Madariaga

It's an own batch input.
The error is: "Batch input information for dynpro SAPMM06B 0102 does not exist", but the fields in that screen are alright.
And that batch input works fine in another client with same patch level, but without fields ESLL-SRVMAPKEY and ESLL-EXTERNALID in table T162V, so I guess that could be the problem (not sure about it, of course).
Regards,
J Madariaga

Hiding the Output types for ME22n transaction

Hi,
We have a requirement in removing the output types from the message tab of ME22n trasaction.we have defined 2 output types for the same NEU and ZFES a special function,we need to check if the PO is already assigned with ZFES then the NEU output types should not be displayed over there in messgaes tab.
Any pointers will be really helpful.
Thanks,
Jay

Use EXIT function VN000001 for output selection
write down your code as per your need .
thanks
abhishek

Excel o/p in Reports 9i-additional report header for every row

Dear All,
Is there any way to generate an Excel file output from OracleReports9i.Actually I have tried the simple report.
I am able to create a delimited output.But the prob is it contains an additional report header for every row of the report and this is very strange.Its coming like that
Empno     Ename     Job     7566     JONES      MANAGER
Empno     Ename     Job     7902     FORD      ANALYST
I need the Xls o/p like that
Empno     Ename          Job
7566     JONES      MANAGER
7902     FORD      ANALYST
8877 JAMES SALES
my Environment oracle9i developersuite /forms9i/reports9i
I have given     DESFORMAT = DELIMITED
          MODE      = CHARACTER
I am able to generate the reports in html/HTMLCSSIE/HTMLCSS/PDF/RTF
Only delimited is giving problem
What should i do to resolve this issue. Please help me it is very very urgent for me.
Thanks in advance
Pavendhan.N

I had the same problem and this is what I did, works great. You have the total control.
function BeforeReport return boolean is
fp text_io.file_type;
begin
-- creating a file name
:CP_filename := 'C:\Gap'||to_char(sysdate,'MMDDYYHHMISS')||'.csv';
-- Opening the file in write mode
fp := text_io.fopen(:CP_filename,'w');
-- writing the column headings into the file
text_io.put_line(fp,'"Platform","Sys#","GapType",');
text_io.fclose(fp);
return (TRUE);
end;
and then where ever it is suitable, depending on the requirement, write into file by opening it in the append mode.
function R_G_systemplatformFormatTrigge return boolean is
fp text_io.file_type;
begin
--     srw.message(99,:dname);
fp := text_io.fopen(:CP_filename,'a');
text_io.put(fp,'"' || :systemplatform || '",');
text_io.put(fp,'"' || to_char(:sysno) || '",');
text_io.put_line(fp,'"' || :CF_gaptype || '",');
text_io.fclose(fp);
return (TRUE);
end;
This works great. Hope this helps.

Additional Lead Column in Report painter

Hi Gurus
Please guide me how to add an additional Lead column in Report painter
Thanks
Hiren

Hi HIren,
There can be only one lead column in report painter.
However within the one lead column you can identify more than one characteristic - e.g. cost center and cost element. You can then identify that both characteristics should be exploded.
If you go Edit > Rows > Explode, you have the opportunity of identifying which characteristic takes presidence over the other, and how they expand. So in this example, Cost center will be 1 and cost element will be 2.
The output will be dependant upon your report layout, but you should have the layout so that you have:
Cost Center A:
- Cost Element A
- Cost Element B:
- Cost Element C:
Cost Center B:
- Cost Element A:
- Cost Element B:
- Cost Element C:
And to distinguish the cost centers from the cost elements, you can format the cost center row "Color for Totals"
Regards,
Gaurav

BDC code for transaction XD01

Hi all,
Can anyone of you provide me complete BDC code for Transaction XD01.
An early reply will be highly appreciated and would be rewarded.
Regards,
Neeraj

Hi Prakash
hope this code will help you.
ABAP BDC SAMPLE CODE XD01
Table/Structure declarations. *
TABLES : KNA1. "Customer master
Constants declarations. *
CONSTANTS : C_MODE VALUE 'A',
C_UPDATE VALUE 'S',
C_X VALUE 'X',
C_SESS TYPE APQI-GROUPID VALUE 'ZCUSTOMER', "Session Name
C_XD01 LIKE TSTC-TCODE VALUE 'XD01'.
Variable declarations. *
DATA : V_FNAME(15) VALUE SPACE, " Name of file to be created
V_FAILREC TYPE I, " No of failed records
V_MSG(255), " Message Text
V_ERRREC TYPE I, " No of failed records
V_LINES TYPE I, " No of records
V_BANKS(15), " Table column BANKS
V_BANKL(15), " Table column BANKL
V_BANKN(15), " Table column BANKN
V_TIDX(2) TYPE N. " Table row index
*-- FLAG DECLARATIONS
DATA : FG_DATA_EXIST VALUE 'X', " Check for data
FG_SESSION_OPEN VALUE ' '. " Check for Session Open
*-- MACRO DEFINITIONS
*-- Macro for BANKS
DEFINE BANKS.
CLEAR V_BANKS.
CONCATENATE 'KNBK-BANKS(' &1 ')' INTO V_BANKS.
CONDENSE V_BANKS.
END-OF-DEFINITION.
*-- Macro for BANKL
DEFINE BANKL.
CLEAR V_BANKL.
CONCATENATE 'KNBK-BANKL(' &1 ')' INTO V_BANKL.
CONDENSE V_BANKL.
END-OF-DEFINITION.
*-- Macro for BANKN
DEFINE BANKN.
CLEAR V_BANKN.
CONCATENATE 'KNBK-BANKN(' &1 ')' INTO V_BANKN.
CONDENSE V_BANKN.
END-OF-DEFINITION.
Structures / Internal table declarations *
*-- Structure to hold BDC data
TYPES : BEGIN OF T_BDCTABLE.
INCLUDE STRUCTURE BDCDATA.
TYPES END OF T_BDCTABLE.
*-- Structure to trap BDC messages
TYPES : BEGIN OF T_MSG.
INCLUDE STRUCTURE BDCMSGCOLL.
TYPES : END OF T_MSG.
*-- Structure to trap ERROR messages
TYPES : BEGIN OF T_ERR_MSG,
MESSAGE(255),
END OF T_ERR_MSG.
*--Internal table to store flat file data
DATA : BEGIN OF IT_KNA1 OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
KTOKD LIKE T077D-KTOKD,
NAME1 LIKE KNA1-NAME1,
SORTL LIKE KNA1-SORTL,
ORT01 LIKE KNA1-ORT01,
PSTLZ LIKE KNA1-PSTLZ,
LAND1 LIKE KNA1-LAND1,
SPRAS LIKE KNA1-SPRAS,
LZONE LIKE KNA1-LZONE,
END OF IT_KNA1.
*--Internal table to store bank details
DATA : BEGIN OF IT_BANK OCCURS 0,
BANKS LIKE KNBK-BANKS,
BANKL LIKE KNBK-BANKL,
BANKN LIKE KNBK-BANKN,
END OF IT_BANK.
*-- Internal table to hold BDC data
DATA: IT_BDCDATA TYPE STANDARD TABLE OF T_BDCTABLE WITH HEADER LINE,
*-- Internal Table to store ALL messages
IT_MSG TYPE STANDARD TABLE OF T_MSG WITH HEADER LINE,
*-- Internal Table to store error messages
IT_ERR_MSG TYPE STANDARD TABLE OF T_ERR_MSG WITH HEADER LINE.
Selection Screen. *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_FLNAME(15) OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R_LIST RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN COMMENT 5(20) TEXT-003.
PARAMETERS : R_SESS RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN COMMENT 30(20) TEXT-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
Event:Initialization *
INITIALIZATION.
AT Selection Screen. *
AT SELECTION-SCREEN.
Event: Start-of-Selection *
START-OF-SELECTION.
V_FNAME = P_FLNAME.
PERFORM GET_DATA.
PERFORM GET_BANKDATA.
PERFORM GENERATE_DATASET.
Event: End-of-Selection *
END-OF-SELECTION.
IF FG_DATA_EXIST = ' '.
MESSAGE I010 WITH TEXT-009.
EXIT.
ENDIF.
PERFORM GENERATE_BDCDATA.
PERFORM DISPLAY_ERR_RECS.
Event: top-of-page
TOP-OF-PAGE.
FORM DEFINITIONS *
*& Form get_data
Subroutine to get the data from mard
--> p1 text
<-- p2 text
FORM GET_DATA.
CALL FUNCTION 'UPLOAD'
EXPORTING
CODEPAGE = ' '
FILENAME = 'C:\XD01.TXT'
FILETYPE = 'DAT'
ITEM = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
LINE_EXIT = ' '
USER_FORM = ' '
USER_PROG = ' '
SILENT = 'S'
IMPORTING
FILESIZE =
CANCEL =
ACT_FILENAME =
ACT_FILETYPE =
TABLES
DATA_TAB = IT_KNA1
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF IT_KNA1[] IS INITIAL.
FG_DATA_EXIST = ' '.
ENDIF.
ENDFORM. " get_data
*& Form GENERATE_DATASET
text
--> p1 text
<-- p2 text
FORM GENERATE_DATASET.
MESSAGE I010 WITH 'OPENING FILE IN APPLICATION SERVER'.
**--Creating a data set in application server
OPEN DATASET V_FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
**---Transfering data from internal table to dataset
MESSAGE I010 WITH 'TRANSFERING DATA FROM INETERAL TABLE TO THE FILE'.
LOOP AT IT_KNA1.
TRANSFER IT_KNA1 TO V_FNAME.
ENDLOOP.
**--Closing the dataset
MESSAGE I010 WITH 'CLOSING THE FILE'.
CLOSE DATASET V_FNAME.
ENDFORM. " GENERATE_DATASET
*& Form BDC_DYNPRO
text
-->P_0467 text
-->P_0468 text
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR IT_BDCDATA.
IT_BDCDATA-PROGRAM = PROGRAM.
IT_BDCDATA-DYNPRO = DYNPRO.
IT_BDCDATA-DYNBEGIN = 'X'.
APPEND IT_BDCDATA.
ENDFORM.
*& Form BDC_FIELD
text
-->P_0472 text
-->P_0473 text
FORM BDC_FIELD USING FNAM FVAL.
IF NOT FVAL IS INITIAL.
CLEAR IT_BDCDATA.
IT_BDCDATA-FNAM = FNAM.
IT_BDCDATA-FVAL = FVAL.
APPEND IT_BDCDATA.
ENDIF.
ENDFORM.
*& Form GENERATE_BDCDATA
text
--> p1 text
<-- p2 text
FORM GENERATE_BDCDATA.
REFRESH IT_KNA1.
Opening dataset for reading
OPEN DATASET V_FNAME FOR INPUT IN TEXT MODE ENCODING DEFAULT.
Reading the file from application server
DO.
CLEAR: IT_KNA1,IT_BDCDATA.
REFRESH IT_BDCDATA.
READ DATASET V_FNAME INTO IT_KNA1.
IF SY-SUBRC <> 0.
EXIT.
ELSE.
Populate BDC Data for Initial Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0100',
BDC_FIELD USING 'BDC_CURSOR' 'RF02D-KUNNR',
BDC_FIELD USING 'BDC_OKCODE' '/00',
BDC_FIELD USING 'RF02D-KUNNR' IT_KNA1-KUNNR,
BDC_FIELD USING 'RF02D-KTOKD' IT_KNA1-KTOKD.
Populate BDC Data for Second Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0110',
BDC_FIELD USING 'BDC_CURSOR' 'KNA1-NAME1',
BDC_FIELD USING 'BDC_OKCODE' '/00',
BDC_FIELD USING 'KNA1-NAME1' IT_KNA1-NAME1,
BDC_FIELD USING 'KNA1-SORTL' IT_KNA1-SORTL,
BDC_FIELD USING 'KNA1-ORT01' IT_KNA1-ORT01,
BDC_FIELD USING 'KNA1-PSTLZ' IT_KNA1-PSTLZ,
BDC_FIELD USING 'KNA1-LAND1' IT_KNA1-LAND1,
BDC_FIELD USING 'KNA1-SPRAS' IT_KNA1-SPRAS.
Populate BDC Data for Third Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0120',
BDC_FIELD USING 'BDC_CURSOR' 'KNA1-LZONE',
BDC_FIELD USING 'BDC_OKCODE' '/00',
BDC_FIELD USING 'KNA1-LZONE' IT_KNA1-LZONE.
Populate BDC Data for Fourth Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0125',
BDC_FIELD USING 'BDC_CURSOR' 'KNA1-NIELS',
BDC_FIELD USING 'BDC_OKCODE' '/00'.
Populate BDC Data for Table control for bank details.
V_TIDX = '01'.
LOOP AT IT_BANK.
BANKS V_TIDX.
BANKL V_TIDX.
BANKN V_TIDX.
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0130',
BDC_FIELD USING 'BDC_CURSOR' V_BANKN,
BDC_FIELD USING 'BDC_OKCODE' '=ENTR',
BDC_FIELD USING V_BANKS IT_BANK-BANKS,
BDC_FIELD USING V_BANKL IT_BANK-BANKL,
BDC_FIELD USING V_BANKN IT_BANK-BANKN.
V_TIDX = V_TIDX + 1.
ENDLOOP.
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0130',
BDC_FIELD USING 'BDC_CURSOR' V_BANKS,
BDC_FIELD USING 'BDC_OKCODE' '=UPDA'.
CALL TRANSACTION C_XD01 USING IT_BDCDATA
MODE C_MODE
UPDATE C_UPDATE
MESSAGES INTO IT_MSG.
IF SY-SUBRC <> 0.
*--In case of error list display
IF R_LIST = C_X.
V_ERRREC = V_ERRREC + 1.
PERFORM FORMAT_MESSAGE.
IT_ERR_MSG-MESSAGE = V_MSG.
APPEND IT_ERR_MSG.
CLEAR : V_MSG,IT_ERR_MSG.
ENDIF.
*--In case of session log
IF R_SESS = C_X.
*-- In case of transaction fails.
IF FG_SESSION_OPEN = ' '.
FG_SESSION_OPEN = C_X.
PERFORM BDC_OPEN_GROUP.
ENDIF. " IF FG_SESSION_OPEN = ' '.
*-- Insert BDC Data..
PERFORM BDC_INSERT_DATA.
ENDIF. " IF R_SESS = C_X.
ENDIF. " IF SY-SUBRC <> 0.
ENDIF. " IF SY-SUBRC <> 0.
ENDDO.
Closing the dataset
CLOSE DATASET V_FNAME.
*-- Close the session if opened
IF FG_SESSION_OPEN = C_X.
PERFORM BDC_CLOSE_GROUP.
CALL TRANSACTION 'SM35'.
ENDIF.
ENDFORM. " GENERATE_BDCDATA
*& Form BDC_OPEN_GROUP
text
--> p1 text
<-- p2 text
FORM BDC_OPEN_GROUP.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
DEST = FILLER8
GROUP = C_SESS
HOLDDATE = FILLER8
KEEP = C_X
USER = SY-UNAME
RECORD = FILLER1
IMPORTING
QID =
EXCEPTIONS
CLIENT_INVALID = 1
DESTINATION_INVALID = 2
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
HOLDDATE_INVALID = 5
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
SYSTEM_LOCK_ERROR = 9
USER_INVALID = 10
OTHERS = 11
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " BDC_OPEN_GROUP
*& Form BDC_INSERT_DATA
text
--> p1 text
<-- p2 text
FORM BDC_INSERT_DATA.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = C_XD01
POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
TABLES
DYNPROTAB = IT_BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " BDC_INSERT_DATA
*& Form BDC_CLOSE_GROUP
text
--> p1 text
<-- p2 text
FORM BDC_CLOSE_GROUP.
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 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.
ENDFORM. " BDC_CLOSE_GROUP
*& Form FORMAT_MESSAGE
text
--> p1 text
<-- p2 text
FORM FORMAT_MESSAGE.
CLEAR V_LINES.
DESCRIBE TABLE IT_MSG LINES V_LINES.
READ TABLE IT_MSG INDEX V_LINES.
CLEAR V_MSG.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = IT_MSG-MSGID
LANG = IT_MSG-MSGSPRA
NO = IT_MSG-MSGNR
V1 = IT_MSG-MSGV1
V2 = IT_MSG-MSGV2
V3 = IT_MSG-MSGV3
V4 = IT_MSG-MSGV4
IMPORTING
MSG = V_MSG
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " FORMAT_MESSAGE
*& Form DISPLAY_ERR_RECS
text
--> p1 text
<-- p2 text
FORM DISPLAY_ERR_RECS.
LOOP AT IT_ERR_MSG.
WRITE: / IT_ERR_MSG-MESSAGE.
ENDLOOP.
ENDFORM. " DISPLAY_ERR_RECS
*& Form GET_BANKDATA
text
--> p1 text
<-- p2 text
FORM GET_BANKDATA.
IT_BANK-BANKS = 'AD'.
IT_BANK-BANKL = '1000'.
IT_BANK-BANKN = 'S.B A/C'.
APPEND IT_BANK.
IT_BANK-BANKS = 'AD'.
IT_BANK-BANKL = 'CITY'.
IT_BANK-BANKN = 'CURR. A/C'.
APPEND IT_BANK.
IT_BANK-BANKS = 'AD'.
IT_BANK-BANKL = 'H001'.
IT_BANK-BANKN = 'S.B A/C'.
APPEND IT_BANK.
reward if help.

Additional output column for transaction IW37N.

Similar Messages

Maybe you are looking for