How to perform subroutine form in an include program?

Hi all,
I would like to perform an external subroutine form residing in an include program from a customer function user exit. I tried using the following code, but it dumps:
PERFORM <form name> IN PROGRAM (lv_program)
TABLES <a> USING <c>.
In the dump analysis I see that "Program <include name> is type I and therefore cannot be generated" and "The current ABAP/4 program attempts to call the program <include name> but this program cannot be executed. Therefore,the current program had to be terminated. "
If the include can't be generated, is there another way or method I could directly call the form without needing to copy the standard code to an own function or form?
Best regards,
Mikko

Hi,
take this example..
 perform idoc_status_record_write in program sapmsed7 using
 x_edidc-docnum
 c_idoc_status_ready
 space
 space
 space
 space
 space
 space.
in this the from is in include, but while calling you need to call with the help of main program.
in this case SAPMSED7 main program, but form is in include MSED7F05
Regards
vijay

Similar Messages

How to distinguish the ABAP Code in include program into different TRs

Hello Friends,
In our current project, two teams are working on the developments. One team is for LES related developements and another team is for billing related developments. As part of developments, same programs are sharing by two teams, example -
Include - MV45AFZZ, the userexits in include are using by both the teams for their developments
Now the issue was, since the same program is using by both the teams, and during program activation , system automatically includes the code in both the team TRs. This was causing issue while testing and transport to other testing systems, since billing project is going live in next year and LES in coming november
Hence, we need to understand how we can differentiate the code which should not impact with other TRs.
Many thanks for your inputs
Best Regards,
Goutham

Thanks all for the quick reply..
I would like to brief more clear...
In current project, Team 1 is working for Logistics developments, Team 2 is for Billing developments. As part of project plan, Logistics is going live this november
When two teams are working on the same include, Team 1 is activated the changes then the task is updated in their TR, later when Team 2 has made changes in the same inlcude then the task was includeded in their TR. Now the problem facing was, Team 2 has developed statements like COMMIT WAIT WORK and also BAPI call etc... and these statements are causing performance issues and some other problems......
Recently Logistics related TRs are moved to testing system for testing, in that all the development TRs are moved into testing system and also code related to Billing project (Team2) as well.... when we cross check the reason then it was identified that the same include is using by both the teams for the development. Now we need distinguish the code specific to team whcih should not impact other...
Hope my explanation clear the criticality of the problem
Thanks
Best Regards,
Goutham

How to find the Form on knowing print program

Hi
I have to do changes for particular script layout. Print program for the same is Z program. I know the program name based on that I could not find the form. I have verified all the possibilities mentioned below.
1. NACE transaction
2. TNAPR, TTXFP
3. SPRO
I could see the layout thru print program.
Any help appreciated.
Thans.
Regards
Raj

try
spro
Finance Accounting Global Settings
Accounts Receivable and Accounts Payable
Business Transactions
Outgoing Invoices / Credit memos
Make and check Settings for Correspondence
Define form names for correpondence print

How to write top-of-page in include structure

Hi,
how write top-of-page event, perform & form routines in include program. but include is under Function & function.
when i am writing those statement get the error massage.
the error massgae is : (incorrect nesting : before the statement 'top-of-page'the structure introduced by Function must be concluded by Endfunction).
Edited by: sandhya kiran on Nov 6, 2008 5:50 PM

hi,
in program error not occured.
but same program i am use in smartforms-programline it's give error like
" Incorrect nesting: Before the statement "FORM", the structure introduced by "FUNCTION" must be concluded by "ENDFUNCTION" . . ."
Thanks In Advance.
Regards .
Sam

BSP Performance Appraisal Form PDF Generation

Hi all,
 I need to find out how the standard SAP Performance Appraisal template generates the PDF format of this BSP page. Does anyone have any idea how and where this generation of this PDF file is done?

Hi Geva,
please remember that I am by no means certain that this is how the Performance Appraisal form you mention works. This is just an example of how I have dome this in the past.
Think of BSP as a delivery mechanism for SmartForm output. SmartForm output can be in different formats including HTML and PDF.
Once you have executed the SmartForm and have the output in the correct format you then just need to populate the HTTP response object. Something like this example for PDF.
* Conversion of output format OTF into PDF format
CALL FUNCTION 'CONVERT_OTF'
 EXPORTING
 format = 'PDF'
 IMPORTING
 bin_filesize = l_pdf_len
 bin_file = l_pdf_xstring " binary file
 TABLES
 otf = ls_output_data-otfdata
 lines = lt_lines
 EXCEPTIONS
 err_max_linewidth = 1
 err_format = 2
 err_conv_not_possible = 3
 err_bad_otf = 4
 OTHERS = 5.
IF sy-subrc <> 0.
* error handling
ENDIF.
* Fill HTTP response
response->set_header_field( name = 'content-type' value = 'application/pdf' ).
* some Browsers have caching problems when loading PDF format
response->set_header_field( name = 'cache-control' value = 'max-age=0' ).
* display PDF format in Browser
l_pdf_len = XSTRLEN( l_pdf_xstring ).
response->set_data( data = l_pdf_xstring length = l_pdf_len ).
navigation->response_complete( ).
Cheers
Graham

How can i bind my hr form to my abap program?

Hi guys y have a little problem does any one knows how to bind hr form to an abap program ?

thanks i solved by my self

Subroutine (perform) inside the include program

Hi all,
i am writting a subroutine inside an include.include itself is present inside a subroutine.
form x.
include xyz.
endform.
inside this include, structure of program is like below.
include xyx.
perform y.
perform z.
form y.
endform.
form z.
endform.
so i am geting error like before statement form structure introduced by form must be ended with endform.
can i use perform & form statement inside include?
if not then how is it possible to put perform statements inside that include. this include is nothing but an exit
of program--MV50AFZ1.plz suggest me .it is very urgent.
any suggestion will be highly appreaciated.
Regards
pabitra

inside this include, structure of program is like below.
include xyx.
perform y.
perform z.
form y.
endform.
form z.
endform.
Maintain separate Include to keep the FORMS when u ae defining PERFORMS in Include program. Then it will allow u to activate

How to upgrade 6i form to 11g forms which includes OLE container ?

How to upgrade 6i form to 11g forms which includes OLE container ?

The migration assistant has no upgrade for that. You need to get a Javabean or PJC:
http://download.oracle.com/docs/cd/E17904_01/doc.1111/e10394/items.htm#sthref207
I don't know what kind of OLE files you have, but if it's just Word and Excel, I would you use browser functionality instead and get the doc's via web.show_document. That, however, doesn't give you update possibility.
You can also use webutil file transfer to get the file to the PC, modify it there, and transfer back to the database.
Then you still have a problem. Documents uploaded via Forms OLE container are actually modified by Forms before they are stored in the database. So, don't throw away your 6i version yet.
You need to get all the stored documents out via Forms 6i and save them as a normal document on the file system. Then you can store them back in the database using some other tool, like dbms_lob or webutil's file transfer.
There are some related discussions on his forum, so just use the Search option, e.g.
Oracle Forms 10g and OLE Containers, word documents?
Edited by: InoL on Jul 13, 2011 9:32 AM

How to Modify medruck form to include company logo.

explain in detail ,
How to Modify medruck form to include company logo.

Hi Sandeep,
As said by Chythanya we can do modification only in the original language.
after that goto the Text Elements (F9).
Menu Path
Insert ---> Graphics
Now u get a window Include Graphics
select the Tab Stored on Document Server . Here given the name of logo in Name Field and press Enter.
u can see this in ur editor
/: BITMAP 'SAPLOGO1' OBJECT GRAPHICS ID BMAP TYPE BCOL
U can Upload the LOGO using transaction SE78
Best regrads,
raam

Subroutine inconsistency due to deletion of Include program

Hi All,
      I created an include program(saved in local object) within my report(this was previously stored in a package) and I copied a few performs and forms from my report into the include program, but then i decided to go for the code without the include and commented the include statement in my report and deleted the include program(in se38). But now when I click on the perform statement in my report it gives a message "Object ZXY not found". The ZXY is my include program. Also when I view the report in se80 I find repetitive sub routines.Also I am not able to delete the duplicate sub routines in se80.
     How can we overcome this inconsistency in duplication of subroutines, how to suppress the message and make sure the code is consistent?

Hi,
      So currently all the performs in program are part of some other include which is part of your main program?Because if not , obviously an error will be thrown.
Have you tried the option of rebuilding object list for the whole program?
Right click on the program name in SE80--> Other functions->Rebuild object List
Regards,
Arun
Edited by: arun warrier on Nov 30, 2011 1:36 PM

Sap script perform subroutine

i got this sample code from sdn, but i have a dobt in this code.
here in form subroutine giving i_intpar and i_outpar i just wanted to know should we declare this structure before writing the subroutine,and what would be that structure
just explain this below code in detail,
pls help
Code this form routine in your script.
/: PERFORM GET_PYMT_DUE_IN IN PROGRAM ZSROINVOICE
/: USING &VBDKR-VBELN&
/: USING &VBDKR-FKDAT&
/: USING &VBDKR-ZTERM&
/: CHANGING &PYMNTDUE&
code it in ur driver program to fetch the details.
FORM get_pymt_due TABLES i_intpar STRUCTURE itcsy
i_outpar STRUCTURE itcsy.
DATA : wa_fkdat LIKE sy-datum,
wa_ztag2 LIKE t052-ztag2,
wa_pymnt LIKE sy-datum.
READ TABLE i_intpar WITH KEY name = 'VBDKR-FKDAT'.
IF sy-subrc = 0.
CONCATENATE i_intpar-value6(4) i_intpar-value3(2)
i_intpar-value+0(2)
INTO wa_fkdat.
ENDIF.
READ TABLE i_intpar WITH KEY name = 'VBDKR-ZTERM'.
IF sy-subrc = 0.
Payment Terms
SELECT SINGLE ztag2
INTO wa_ztag2
FROM t052
WHERE zterm = i_intpar-value.
ENDIF.
wa_pymnt = wa_fkdat + wa_ztag2.
MOVE 'PYMNTDUE' TO i_outpar-name.
CONCATENATE wa_pymnt6(2) '.' wa_pymnt4(2) '.' wa_pymnt+0(4) INTO
i_outpar-value.
APPEND i_outpar.
CLEAR i_outpar.
ENDFORM.
pls help

Hi
Hope it will help you.
Pls reward if help.
How to call a subroutine form SAPscripts
The Form :
/:PERFORM CDE_CENT IN PROGRAM ZKRPMM_PERFORM_Z1MEDRUCK
/:USING &EKKO-EBELN&
/:CHANGING &CDECENT&
/:ENDPERFORM
The report :
REPORT zkrpmm_perform_z1medruck .
DATA : BEGIN OF it_input_table OCCURS 10.
INCLUDE STRUCTURE itcsy.
DATA : END OF it_input_table.
déclaration de la table output_table contenant les
variables exportées
DATA : BEGIN OF it_output_table OCCURS 0.
INCLUDE STRUCTURE itcsy.
DATA : END OF it_output_table.
DATA : w_ebeln LIKE ekko-ebeln,
w_vbeln LIKE vbak-vbeln,
w_zcdffa LIKE vbak-zcdffa.
FORM CDE_CENT
FORM cde_cent TABLES input output.
it_input_table[] = input[].
it_output_table[] = output[].
READ TABLE it_input_table INDEX 1.
MOVE it_input_table-value TO w_ebeln.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = w_ebeln
IMPORTING
output = w_ebeln.
SELECT SINGLE zcdffa FROM ekko
INTO w_zcdffa
WHERE ebeln = w_ebeln.
it_output_table-name = 'CDECENT'.
MOVE w_zcdffa TO it_output_table-value.
MODIFY it_output_table INDEX 1.
output[] = it_output_table[].
ENDFORM.
/: PERFORM
/: USING &INVAR1&
/: USING &INVAR2&
/: CHANGING &OUTVAR1&
/: CHANGING &OUTVAR2&
/: ENDPERFORM
INVAR1 and INVAR2 are variable symbols and may be of any of the four SAPscript symbol types.
OUTVAR1 and OUTVAR2 are local text symbols and must therefore be character strings.
Example:
In script form
/: PERFORM READ_TEXTS IN PROGRAM 'Z08M1_FORM_EKFORM1'
/: USING &EKKO-EKORG&
/: USING &EKPO-WERKS&
/: USING &EKKO-EKGRP&
/: USING &EKKO-BSTYP&
/: CHANGING &COMPNAME&
/: CHANGING &SENDADR&
/: CHANGING &INVCADR&
/: CHANGING &COMPADR&
/: CHANGING &COVERLTR&
/: CHANGING &SHIPADR&
/: CHANGING &REMINDER&
/: CHANGING &REJECTION&
/: CHANGING &POSTADR&
/: CHANGING &LOGO&
/: ENDPERFORM
In program
FORM Read_texts - To extract the standard texts from the table *
FORM READ_TEXTS TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : L_EKORG TYPE EKORG,
L_WERKS TYPE WERKS_D,
L_BSTYP TYPE BSTYP,
L_EKGRP TYPE BKGRP.
READ TABLE IN_PAR WITH KEY 'EKKO-EKORG' .
CHECK SY-SUBRC = 0.
L_EKORG = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKPO-WERKS' .
CHECK SY-SUBRC = 0.
L_WERKS = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKKO-EKGRP' .
CHECK SY-SUBRC = 0.
L_EKGRP = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY 'EKKO-BSTYP' .
CHECK SY-SUBRC = 0.
L_BSTYP = IN_PAR-VALUE.
CLEAR Z08M1_ORG_TEXTS.
SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG
AND WERKS = L_WERKS
AND EKGRP = L_EKGRP
AND BSTYP = L_BSTYP.
IF SY-SUBRC NE 0.
SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG
AND WERKS = L_WERKS
AND EKGRP = L_EKGRP
AND BSTYP = SPACE.
ENDIF.
READ TABLE OUT_PAR WITH KEY 'COMPNAME'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COMP.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'SENDADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_ADRS.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'INVCADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_INVC.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'COMPADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_CPAD.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'COVERLTR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COVR.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'SHIPADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_SHIP.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'REMINDER'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RMDR.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'REJECTION'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RJCT.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'POSTADR'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_POST.
MODIFY OUT_PAR INDEX SY-TABIX.
READ TABLE OUT_PAR WITH KEY 'LOGO'.
OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_LOGO.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDFORM.
REPORT ZMPO1 .
form get_freight tables in_par structure itcsy out_par structure itcsy.
tables: ekko,konv,t685t.
data: begin of itab occurs 0,
 ebeln like ekko-ebeln,
 knumv like ekko-knumv,
 end of itab.
data: begin of itab1 occurs 0,
 knumv like konv-knumv,
 kposn like konv-kposn,
 kschl like konv-kschl,
 kbetr like konv-kbetr,
 waers like konv-waers,
 kwert like konv-kwert,
 end of itab1.
data: begin of iout occurs 0,
 kschl like konv-kschl,
 vtext like t685t-vtext,
 kbetr like konv-kbetr,
 kwert like konv-kwert,
 end of iout.
data v_po like ekko-ebeln.
read table in_par with key 'EKKO-EBELN'.
if sy-subrc = 0.
 v_po = in_par-value.
 select
 ebeln
 knumv
from ekko
into table itab
where ebeln = v_po.
if sy-subrc = 0.
 loop at itab.
 select
 knumv
 kposn
 kschl
 kbetr
 waers
 kwert
 into table itab1
 from konv
 where knumv = itab-knumv and
 kappl = 'M'.
 endloop.
 loop at itab1.
 if itab1-kposn <> 0.
 select single * from t685t
 where kschl = itab1-kschl
 and kappl = 'M'
 and spras = 'EN'.
 iout-vtext = t685t-vtext.
 iout-kschl = itab1-kschl.
 iout-kbetr = itab1-kbetr.
 iout-kwert = itab1-kwert.
 append iout.
 clear iout.
 endif.
 endloop.
 sort itab1 by kposn.
 loop at iout.
 sort iout by kschl.
 if ( iout-kschl eq 'GSDC' OR
 iout-kschl eq 'GSFR' OR
 iout-kschl eq 'GSIR' ).
 at end of kschl.
 read table iout index sy-tabix.
 sum.
 write:/ iout-kschl,iout-vtext,iout-kwert.
 out_par-name = 'A1'.
 out_par-value = iout-vtext.
 append out_par.
 out_par-name = 'A2'.
 out_par-value = iout-kwert.
 append out_par.
 endat.
 endif.
 endloop.
 endif.
endif.
endform.
IN THE FORM I AM WRITING THIS CODE.
/:DEFINE &A1& = ' '
/:DEFINE &A2& = ' '
/:PERFORM GET_FREIGHT IN PROGRAM ZMFORM_PO1
/:USING &EKKO-EBELN&
/:CHANGING &A1&
/:CHANGING &A2&
/:ENDPERFORM
&A1&
&A2&
This Code is to be written in the PO form under ADDRESS window.
/:DEFINE &A1& = ' '
/:DEFINE &A2& = ' '
/:DEFINE &A3& = ' '
/:DEFINE &A4& = ' '
/:DEFINE &A5& = ' '
/:DEFINE &A6& = ' '
/:PERFORM GET_VENDOR IN PROGRAM ZMFORM_PO
/:USING &EKKO-EBELN&
/:CHANGING &A1&
/:CHANGING &A2&
/:CHANGING &A3&
/:CHANGING &A4&
/:CHANGING &A5&
/:CHANGING &A6&
/:ENDPERFORM
&A1&
&A2&
&A3&
&A4&
&A5&
&A6&

How to perform calculations using column data in BI Publisher

Hello guys
I am very new to BIP, and recently I am learning to create new templates using XML files..
I am trying to create a report that has Account Amount, Amount Net Amount, PM_Amount and a New field say "X"
For Account Amount it is what it is, but for Net Amount it is "Account Amount/40%", for PM_Amount it is "Net Amount x (Account Amount/30)" and for field X it is "(Net Amount + PM_Amount)/column A" where column A is another data field in the XML file but it should not be included in the template report..
Could anyone help me with how to perform such kind of calculations in BIP Template builder? In OBIEE, it is very easy that I can just use column formula, but in BIP I still haven't figure out the way yet..
PLease advice
Thanks

Thanks for the reply..
I looked at the link you provided already, what I wanna know is how to exactly apply the expression in my calculation. In other words, I know that Column C = "Column A div Column B", but in BIP form property, how do I actually substitue "column A" with the actual column..
I wish I could post the XML, but it is huge, it contains 6 data sets and more than 100 columns. I only need 15 columns on my template.
On the form property of each measures, in the "advance tab", I see codes like <?accountamount?>. Now I wanna have a new column said "PM_Amt" which should be "(accountamount div %40) x column B". So I just randomly select another column said "payment". I rename it to "PM_AMT" and on its "advanced tab" it is still <?payment?>. So right there, if I wanna replace that code with a new one that does "(accountamount div %40) x column B" calculation, how would I do it? What would be the syntax including how to propertly refer to the right column field as part of the expression?
And do I have to always use xdofx between <>? how would I know?
Please advice if you understood what I am trying to say
Much thanks
Edited by: user7276913 on Sep 14, 2009 11:24 PM

How to call subroutines defined in ABAP program with type S

how to call subroutines defined in ABAP program with type S? can you give an example?

Normal executable program,
REPORT ZTEST_MAIN.
perform sub1 in program ztest_sub.
"you can call using in program addition
Subroutine pool program
PROGRAM ZTEST_SUB.
form sub1.
endform.

How to perform Error Handling in this Bdc Code

Hi,
I had created this BDC for the tcode MB1B and i want to know how to perform the ERROR HANDLING in it ..
Plzz provide me guidelines for doing it . here's d code:-
report ZBDC_MB1B
 no standard page heading line-size 255.
include bdcrecx1.
data: begin of record OCCURS 0,
 WERKS_001(004), "Plant
 MATNR_002(018), "ItemId
 ERFMG_003(013), "Quantity in Unit of Entry
 ERFME_004(003), "Unit of Entry
 LGORT_005(004), "Storage Location
 CHARG_006(010), "BatchId
 KDAUF_007(010), "Sales Order Number
 KDPOS_008(006), "Item Number in Sales Order
 end of record.
PARAMETERS : P_FILNAM LIKE RLGRAP-FILENAME.
initialization.
CTUMODE = 'A'.
CUPDATE = 'A'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILNAM.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 MASK = ',. '
 MODE = 'O'
 IMPORTING
 FILENAME = P_FILNAM
 EXCEPTIONS
 INV_WINSYS = 1
 NO_BATCH = 2
 SELECTION_CANCEL = 3
 SELECTION_ERROR = 4
 OTHERS = 5
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
start-of-selection.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = P_FILNAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = RECORD
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 NO_AUTHORITY = 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.
LOOP AT RECORD.
BEGIN OF SCREEN 1
perform bdc_dynpro using 'SAPMM07M' '0400'.
perform bdc_field using 'BDC_CURSOR'
 'RM07M-SOBKZ'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
*perform bdc_field using 'MKPF-BLDAT'
 '22.12.2008'.
*perform bdc_field using 'MKPF-BUDAT'
 '22.12.2008'.
perform bdc_field using 'RM07M-BWARTWA'
 '411'.
perform bdc_field using 'RM07M-SOBKZ'
 'E'.
perform bdc_field using 'RM07M-WERKS'
 RECORD-WERKS_001. "Plant
perform bdc_field using 'XFULL'
 'X'.
perform bdc_field using 'RM07M-WVERS2'
 'X'.
BEGIN OF SCREEN 2
perform bdc_dynpro using 'SAPMM07M' '0421'.
perform bdc_field using 'BDC_CURSOR'
 'MSEG-CHARG(01)'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'MSEG-MATNR(01)'
 RECORD-MATNR_002. "ITEMID
perform bdc_field using 'MSEG-ERFMG(01)'
 RECORD-ERFMG_003. "QTY.
perform bdc_field using 'MSEG-ERFME(01)'
 RECORD-ERFME_004. "UOM
perform bdc_field using 'MSEG-LGORT(01)'
 RECORD-LGORT_005. "ST.LOC
perform bdc_field using 'MSEG-CHARG(01)'
 RECORD-CHARG_006. "BATCHID
perform bdc_field using 'MSEGK-MAT_KDAUF'
 RECORD-KDAUF_007. "S.O.
perform bdc_field using 'MSEGK-MAT_KDPOS'
 RECORD-KDPOS_008. "S.O.LINE ITEM
perform bdc_field using 'DKACB-FMORE'
 'X'.
BEGIN OF SCREEN 3
perform bdc_dynpro using 'SAPLKACB' '0002'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTE'.
perform bdc_field using 'DKACB-FMORE'
 'X'.
perform bdc_dynpro using 'SAPLKACB' '0002'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTE'.
perform bdc_dynpro using 'SAPMM07M' '0421'.
perform bdc_field using 'BDC_CURSOR'
 'MSEG-ERFMG(01)'.
perform bdc_field using 'BDC_OKCODE'
 '=BU'.
perform bdc_field using 'DKACB-FMORE'
 'X'.
BEGIN OF SCREEN 4
perform bdc_dynpro using 'SAPLKACB' '0002'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTE'.
perform bdc_transaction using 'MB1B'.
ENDLOOP.

hi,
check this code in bold letters.
INCLUDE BDCRECX1.
TABLES : MARC.
TYPES : BEGIN OF TY_UPLOAD,
 MATNR TYPE MARA-MATNR,
 WERKS TYPE MARC-WERKS,
 STEUC TYPE MARC-STEUC,
 END OF TY_UPLOAD.
TYPES : BEGIN OF TY_MARC,
 MATNR TYPE MARA-MATNR,
 WERKS TYPE MARC-WERKS,
 END OF TY_MARC.
TYPES : BEGIN OF TY_MTART,
 MATNR TYPE MARA-MATNR,
 MTART TYPE MARA-MTART,
 END OF TY_MTART.
DATA : T_MARC TYPE STANDARD TABLE OF TY_MARC,
 : T_UPLOAD TYPE STANDARD TABLE OF TY_UPLOAD,
 : T_BASIC TYPE STANDARD TABLE OF TY_UPLOAD,
 : T_SALES TYPE STANDARD TABLE OF TY_UPLOAD,
 : T_ERROR TYPE STANDARD TABLE OF TY_UPLOAD.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
 IT_BDCDATA_VIEW LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
 IT_DATA(3200) OCCURS 0 WITH HEADER LINE,
 IT_FIELD(3200) OCCURS 0 WITH HEADER LINE,
 IT_BDCMSG TYPE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA GI_MSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA : CHAR1(500),
 CHAR2(500),
 CHAR3 TYPE STRING,
 V_SELECTION TYPE STRING. " For View Selection
DATA : W_MARC TYPE TY_MARC,
 WA_UPLOAD TYPE TY_UPLOAD,
 WA_BASIC TYPE TY_UPLOAD,
 WA_SALES TYPE TY_UPLOAD,
 WA_ERROR TYPE TY_UPLOAD,
 WA_MTART TYPE TY_MTART.
DATA : VAR TYPE N,
 VAR1 TYPE STRING.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. "SELECTION SCREEN
PARAMETERS: P_FNAM LIKE RLGRAP-FILENAME.
PARAMETERS: P_BAS LIKE RLGRAP-FILENAME.
PARAMETERS: P_SAL LIKE RLGRAP-FILENAME.
PARAMETERS: P_ERR LIKE RLGRAP-FILENAME.
SELECTION-SCREEN : END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAM.
PERFORM SEARCH USING P_FNAM.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_BAS.
PERFORM SEARCH USING P_BAS.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SAL.
PERFORM SEARCH USING P_SAL.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_ERR.
PERFORM SEARCH USING P_ERR.
*& Form SEARCH
 text
 -->PFNAME text
FORM SEARCH USING PFNAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 STATIC = 'X'
 CHANGING
 FILE_NAME = PFNAME.
ENDFORM. "SEARCH
START-OF-SELECTION.
PERFORM UPLOAD_PROCESS USING P_FNAM.
PERFORM OPEN_GROUP.
PERFORM PROCESS.
PERFORM CLOSE_GROUP.
IF NOT T_BASIC[] IS INITIAL.
 PERFORM DOWNLOAD TABLES T_BASIC[] USING P_BAS .
ENDIF.
IF NOT T_SALES[] IS INITIAL.
 PERFORM DOWNLOAD TABLES T_SALES[] USING P_SAL .
ENDIF.
IF NOT T_ERROR[] IS INITIAL.
 PERFORM DOWNLOAD TABLES T_ERROR[] USING P_ERR.
ENDIF.
*& Form PROCESS
 text
FORM PROCESS.
LOOP AT T_UPLOAD INTO WA_UPLOAD.
 PERFORM CONV_ROUTINE USING WA_UPLOAD-MATNR
 CHANGING WA_UPLOAD-MATNR.
 SELECT COUNT(*) FROM MARA WHERE MATNR = WA_UPLOAD-MATNR.
 IF SY-SUBRC NE 0.
 MOVE-CORRESPONDING WA_UPLOAD TO WA_BASIC.
 APPEND WA_BASIC TO T_BASIC.
 CLEAR WA_BASIC.
 CONTINUE.
 ENDIF.
 SELECT COUNT(*) FROM MARC WHERE MATNR = WA_UPLOAD-MATNR
 AND WERKS = WA_UPLOAD-WERKS
 AND PSTAT LIKE '%V%'.
 IF SY-SUBRC NE 0.
 MOVE-CORRESPONDING WA_UPLOAD TO WA_SALES.
 APPEND WA_SALES TO T_SALES.
 CLEAR WA_SALES.
 CONTINUE.
 ENDIF.
 CLEAR : WA_MTART.
 SELECT SINGLE MATNR MTART FROM MARA INTO WA_MTART WHERE MATNR = WA_UPLOAD-MATNR.
 PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0060'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'RMMG1-MATNR'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=AUSW'.
 PERFORM BDC_FIELD USING 'RMMG1-MATNR'
 WA_UPLOAD-MATNR.
 CALL FUNCTION 'MATERIAL_BTCI_SELECTION_NEW' " Function module
 EXPORTING
 MATERIAL = WA_UPLOAD-MATNR " Material number
 MATERIALART = WA_MTART-MTART " Material Type
 SELECTION = 'V' "
 TCODE = 'MM02' " Tcode where view's are called.
 TABLES
 BTCI_D0070 = IT_BDCDATA_VIEW
 EXCEPTIONS
 MATERIAL_NOT_FOUND = 1
 MATERIAL_NUMBER_MISSING = 2
 MATERIAL_TYPE_MISSING = 3
 MATERIAL_TYPE_NOT_FOUND = 4
 NO_ACTIVE_DYNPRO_SELECTED = 5
 NO_AUTHORITY = 6
 OTHERS = 7.
 READ TABLE IT_BDCDATA_VIEW WITH KEY FVAL = 'X'.
 IF SY-SUBRC = 0.
 V_SELECTION = IT_BDCDATA_VIEW-FNAM.
 ELSE.
 CONTINUE.
 ENDIF.
 VAR = IT_BDCDATA_VIEW-FNAM+17(2).
 VAR = VAR + 3.
 CONCATENATE 'MSICHTAUSW-KZSEL(' '0' VAR ')' INTO VAR1.
 PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'MSICHTAUSW-DYTXT(06)'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=ENTR'.
 PERFORM BDC_FIELD USING VAR1
 'X'.
 CLEAR VAR.
 CLEAR VAR1.
 PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(06)'
 'X'.
 PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0080'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'RMMG1-VKORG'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=ENTR'.
 PERFORM BDC_FIELD USING 'RMMG1-WERKS'
 WA_UPLOAD-WERKS.
 PERFORM BDC_DYNPRO USING 'SAPLMGMM' '4004'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=BU'.
 PERFORM BDC_FIELD USING 'MAKT-MAKTX'
 'MTI_ESE_HALB_01'.
 PERFORM BDC_FIELD USING 'MARC-STEUC'
 WA_UPLOAD-STEUC.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'MARC-HERKR'.
 PERFORM BDC_FIELD USING 'MARC-HERKL'
 'IN'.
 PERFORM BDC_FIELD USING 'MARC-HERKR'
 'MAH'.
 PERFORM BDC_TRANSACTION USING 'MM02'.
move the error record into seperate internal table nad down load it ****
 IF MESSTAB-MSGTYP = 'E'.
 MOVE-CORRESPONDING WA_UPLOAD TO WA_ERROR.
 APPEND WA_ERROR TO T_ERROR.
 CLEAR WA_ERROR.
 ENDIF.
ENDLOOP.
ENDFORM. "PROCESS
*& Form UPLOAD_PROCESS
 text
 -->PFNAME text
FORM UPLOAD_PROCESS USING PFNAME.
DATA : PFNAME1 TYPE STRING.
PFNAME1 = PFNAME.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 FILENAME = PFNAME1
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = T_UPLOAD[].
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. "UPLOAD_PROCESS
*& Form CONV_ROUTINE
 text
 -->P_INPUT text
 -->P_OUTPUT text
FORM CONV_ROUTINE USING P_INPUT
 CHANGING P_OUTPUT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = P_INPUT
 IMPORTING
 OUTPUT = P_OUTPUT.
ENDFORM. "CONV_ROUTINE
*& Form DOWNLOAD
 text
 -->GI_FINAL text
 -->PFNAME text
FORM DOWNLOAD TABLES
 GI_FINAL
 USING PFNAME .
DATA : FNAME TYPE STRING.
FNAME = PFNAME.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = FNAME
 FILETYPE = 'DAT'
 WRITE_FIELD_SEPARATOR = 'x'
 HEADER = '00'
 IMPORTING
 FILELENGTH =
 TABLES
 DATA_TAB = GI_FINAL[]
 FIELDNAMES = GI_FIELDNAMES[]
IF SY-SUBRC = 0.
 MESSAGE 'FILE DOWNLOADED SUCCESSFULLY' TYPE 'I'.
ENDIF.
ENDFORM. " DOWNLOAD
Regards
Siva Prasad

How to use subroutine in user-exit program

Hi Experts,
    I have a requirement in user-exit where i have to use some lines of code in several times. So i want to use Perform and perform inside the exit (i.e. Include ZXXX). But it is not recognizing the form part of the ubroutime and gives error.
             Please let me know how to use the Perform and form statement in the exit or is there any way to write repeated code once but used no of times in exit program.
Thanks
Ajit

I'm sorry, I was overly harsh there. Please accept my apologies. But I do despair sometime!
Consider the structure of a function group and it should be clear - you need to remember that INCLUDES are just repositories of code. If you take the contents out of the include and put them into the main program, then this is what you get:
function-pool xrsr.
* Global data definition.
function exit_saplrrs0_001.
* the source code within the zxrsru01 include.
endfunction.
Now, what you're trying to do, is create a form in your include. You can't do that, because you end up with:
function-pool xrsr.
* Global data definition.
function exit_saplrrs0_001.
perform xyz.
form xyz.
endform.
endfunction.
And you can't have a FORM defined inside a function module definition. The solution is to put it outside the function module. If you follow the process suggested above, you end up with
function-pool xrsr.
* Global data definition.
function exit_saplrrs0_001.
perform xyz.
endfunction.
form xyz. " This will be in LXRSRF01
endform.
Do you see how it works now?

How to perform subroutine form in an include program?

Similar Messages

Maybe you are looking for