For include program..

from list of standard include who can we come to know tht which include is modified..of which function group...any short cut...from se37 and after going into deep way i knw but it consume time much...so if anybody knows shortcut then reply me...
thx
reguards...
naiensh...
Edited by: nainesh patadia on Jan 18, 2008 4:46 PM

Hi,
This is strange that you are not able to access SE09.
Go once again on Transaction SE09 and there on that screen check on the WorkBench Request and check both the Checkboxes Released as well as Modifiable.
You will get all the TRs.
If you know the user name then put the user name in the User tab.
This way you would be able to get the list.
Give it a try. This would be helpful.
Regards,
Lalit Kabra

Similar Messages

Table for Include Programs.

Hi,
Can anyone tell me which table stores the include program names of a Module Pool.??
regards,
Ramakanth

Thanks for your Reply..
My exact requirement is to identify the main program for all the include programs. REPOSRC gives the include program name but i think it doesnt give the main program name from where include is fetched.
So I need table which stores the main program / Module Pool and its includes.

Incorrect Logical Expression for Include Program

Hi All
thank you very much for all the support...
I managed to get through that error - however, now I m coming up with a different error:
Incorrect logical expression: Comparison / SELECT-OPTION can only be
followed by "AND", "OR" or ")".
Where should I add the ''and" "or" on the below code?
IF sy-subrc NE 0.
    MESSAGE e002(zsqts_sqts)
       INTO l_dummy
       WITH lv_host.
    PERFORM msg_add USING probclass_very_high.
ENDIF.
Zu der gewunschten FTP Ordner navigieren
REFRESH result.
IF lv_path IS NOT INITIAL.
    CONCATENATE 'cd' lv_path INTO lv_path SEPARATED BY space.
    CALL FUNCTION 'FTP_COMMAND'
      EXPORTING
        handle        = lv_handle
        command       = lv_path
      TABLES
        data          = result
      EXCEPTIONS
        tcpip_error   = 1
        command_error = 2
        data_error    = 3.
Thank you very much
Rukshana
Moderator message: please try solving this yourself first, do not post each single error message to the forum. SCN forums cannot replace proper training.
locked by: Thomas Zloch on Oct 6, 2010 1:04 PM

On 3/20/2015 3:48 PM, leosucksatc wrote:
if(Grade ='A'||'a')
= is assignment. == is equality comparison. You had that right in your previous post.
Also, the || operator doesn't work the way you think it does. Make it
if (Grade == 'A' || Grade == 'a')
Igor Tandetnik

Which is better Function modules or Include programs?

Hi,
I am working on an enhancement and it has lot of screens with a tree structure on the left. Now we are planning to have each screen to have its PAI/PBO and the processing logic to be in seperate include programs.
However in our team we have debate as to go in for include programs or for Function modules. The opinion here is that the program should not take long time to load if its going to be include programs.
Please suggest what approach is better, is it Function modules or include programs.
Any other suggestion is also welcome.
Thank You,
SAC.

Thank You all.
In this enhancement I have about 13 screens and has business logic in each. So if I go with each screens and business logic coding in seperate Function modules than includes under 1 function group is adviceable?
Using object oriented approach is really the best thing here, but however most of my team members are not welversed in OO concepts. The deadlines are very tight for grooming my team members as well.
My only concern is that with so much screens and business logic in 1 transaction should not bring down this programs performance when its executed.
Any other suggestions to keep in mind for this is appreciated.
Thank You.
SAC

Access key for include

Dear Friends,
I need to make changes in an include.
Should i ask basis people to give access key for include program or main program?
Thanks.

Hi,
Check this:
Re: HOW TO MODIFY SAP STANDARD FORM
Rgds,
Raghu

Problem in creating include program for customer exit for BC425_01

Hi,
I want to write a customer exit for transaction BC425_01. For identifying the include program for exit , i go to System->Status.There I double click on the program name(GUI).Then I perform a 'FIND' in main program for 'customer-function' keyword. I get 3 search results with "CALL CUSTOMER-FUNCTION '001' " , "CALL CUSTOMER-FUNCTION '002' " , "CALL CUSTOMER-FUNCTION '003' ".
Now i double click on CALL CUSTOMER-FUNCTION '001' and i am taken to the code of program where this function is called in MODULE cust_check INPUT. I double click on CALL CUSTOMER-FUNCTION '001' and then I am taken to the function module code which contains a single statement 'INCLUDE ZXBC425G01U01 .' .
Now I double click on this include program so that I can write my own code. But when i double click on it , a message displayed 'Program names ZX.. are reserved for includes of exit function groups'. Hence I am not able to creates this include program and write my coding.
Kindly Help
THANKS

Hi Amber,
Then you click enter button.It is asking to create object with that include name ZXBC425G01U01 in a pop-up.You should select YES option.It will ask package . Give the package name and save.Then include program is created and allowed you to write your own code.
Thanks,
Prasad GVK.

Program name zxvau02 are reserved for includes of exit function group

i am facing a problem during user exit.
when i am trying to change the code in function module (va01) in include zxvvau02
an error is occurred 'program name zxvau02 are reserved for includes of exit function group'
so i could not edit the include program.

Hi,
1. Find the appropriate Enhancement.
2. Enter the ABAP code in the "Z" program within the function module.
3. Create a project.
4. Add the Enhancement to the project.
5. Activate the project.
At the step (2), when I double click on the Include ZX* within source code of the function module to realize the exit, the
system would prompt to create the include. But NO, it always prompt that the name of include is reserved by SAP and I
cannot create it... I entered an access key for the object ...

Error : No framework program was found for include

Hi All,
A web UI enhancement worked perfectly fine in a development system. However, after transporting it to a quality system, it did not work as expected. All transports were error free and all the developed items could be seen in the quality system.
When trying to keep a breakpoint in the redefined method of a controller class, I get the error "No framework program was found for include <> "; where <> is the z implementation class that was created.
Any suggestions/ideas on how to resolve this error?

Hi,
Check the entries in sm30 bspwdv_ehset_asg if the enhacement is assigned to client in Q system..
Hope this helps..
Cheers,
Sumit Mittal

Program names ZX... are reserved for includes of exit function groups means

dear all,
i am doing the enhacement SRVESSR for EXIT_SAPLMLSR_010 in this exit i got include, when i double click on the ZXMLUU19
i am getting the following error.
Program names ZX... are reserved for includes of exit function groups
regrds.
shashi

Hi,
When the warning message is displayed press enter key, System will prompt the message "Include ZXMLUU19 does not exist. Create Object? ". Select Yes option. Include will be created.
Regards
Vinod

No authorized for enhance include program

I'd like to enhance include program such as v50rincl.
SAP reject me because I have no authorized. However, I can change or create ABAP program. so, should I can do?
I also would like enhance structure such as SHP_VL10_SELECT_OPTIONS. should I can do?
thanks
Henry

Hi,
Check this thread.
[Re: problem in VL10A;
You can create an your own Z-report as copy of report RVV50R10C A or B (relevent to u ) and insert the new select-options and manage it in the user-exit V50R_USEREXIT_TRANSF:
FORM USEREXIT_SELECT_OPTIONS_TRANSF
CHANGING CX_SELECT_OPTIONS TYPE SHP_VL10_SELECT_OPTIONS
CX_LIST_PROFIL TYPE SHP_VL10_LIST_PROFIL.
cx_select_options-z_new_criterium = SO_NEWOPTION[] (ur range).
ENDFORM.
So here you have to transfer your new select-option to cx_select_options and you can do it enhancing the structure SHP_VL10_SELECT_OPTIONS.
From note 198137:
You can also check the enhanced selection criteria from customer-specific reports ZZ50R10. Enhanced selection criteria from user-defined reports, for example, ZZ50R10 can also be checked. To do this, the DDIC type SHP_VL10_SELECT_OPTIONS must be enhance using a new selection criterion that can be included in a user-defined selection screen.
Rhea.
Edited by: rhea on Nov 4, 2008 12:08 PM

Schedule a background job for a program using ABAP code.

Hi,
I have to write a program to schedule a background job for another program.
Need your help to understand how we can achieve this functionality.Any example of an abap code would be of great help.
Need it urgently.
Thanks in advance.
Sandeep.

Hi Sandeep,
Here is the demo program regarding the BDC For the background job.
report zprprbdc1
       no standard page heading line-size 255.
include bdcrecx1.
parameters: dataset(132) lower case.
***    DO NOT CHANGE - the generated data section - DO NOT CHANGE    ***
*   If it is nessesary to change the data section use the rules:
*   1.) Each definition of a field exists of two lines
*   2.) The first line shows exactly the comment
*       '* data element: ' followed with the data element
*       which describes the field.
*       If you don't have a data element use the
*       comment without a data element name
*   3.) The second line shows the fieldname of the
*       structure, the fieldname must consist of
*       a fieldname and optional the character '_' and
*       three numbers and the field length in brackets
*   4.) Each field must be type C.
*** Generated data section with specific formatting - DO NOT CHANGE ***
***data: begin of itab occurs 0 ,
***       matnr(20) type c,
***       mbrsh(30) type c,
***       mtart(30) type c,
***       kzsel(20) type c,
***       maktx(40) type c,
***       meins(5) type c,
***       end of itab.
data: begin of record occurs 0,
* data element: MATNR
        matnr_001(018),
* data element: MBRSH
        mbrsh_002(001),
* data element: MTART
        mtart_003(004),
* data element: XFELD
        kzsel_01_004(001),
* data element: MAKTX
        maktx_005(040),
* data element: MEINS
        meins_006(003),
* data element: MTPOS_MARA
        mtpos_mara_007(004),
      end of record.
*** End generated data section ***
start-of-selection.
*perform open_dataset using dataset.
perform open_group.
**do.
**read dataset dataset into record.
**if sy-subrc <> 0. exit. endif.
call function 'GUI_UPLOAD'
exporting
    filename                      = 'c:\jitu\bdc\10002.txt'
   filetype                      = 'ASC'
   has_field_separator           = 'x'
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = 'X'
*   DAT_MODE                      = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   CHECK_BOM                     = ' '
*   VIRUS_SCAN_PROFILE            =
*   NO_AUTH_CHECK                 = ' '
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
tables
    data_tab                      = record
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 2
*   NO_BATCH                      = 3
*   GUI_REFUSE_FILETRANSFER       = 4
*   INVALID_TYPE                  = 5
*   NO_AUTHORITY                  = 6
*   UNKNOWN_ERROR                 = 7
*   BAD_DATA_FORMAT               = 8
*   HEADER_NOT_ALLOWED            = 9
*   SEPARATOR_NOT_ALLOWED         = 10
*   HEADER_TOO_LONG               = 11
*   UNKNOWN_DP_ERROR              = 12
*   ACCESS_DENIED                 = 13
*   DP_OUT_OF_MEMORY              = 14
*   DISK_FULL                     = 15
*   DP_TIMEOUT                    = 16
*   OTHERS                        = 17
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 .
perform bdc_dynpro      using 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MATNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RMMG1-MATNR'
                              record-matnr_001.
perform bdc_field       using 'RMMG1-MBRSH'
                              record-mbrsh_002.
perform bdc_field       using 'RMMG1-MTART'
                              record-mtart_003.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              record-kzsel_01_004.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx_005.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MEINS'.
perform bdc_field       using 'MARA-MEINS'
                              record-meins_006.
perform bdc_field       using 'MARA-MTPOS_MARA'
                              record-mtpos_mara_007.
perform bdc_transaction using 'MM01'.
**enddo.
endloop.
perform close_group.
*perform close_dataset using dataset.
&*****************Reward point if helpful************&

How to use the variables of Function exit in the include program

i have a problem of using the variables of a function exit in the include program..
If i use those variables there will be an error indicating 'Field FEBVW_IN is unknown. It is neither in one of the specified tables nor defined by a DATA statement'. Please help... Below is the code of the function exit:
FUNCTION EXIT_SAPLIEDP_202.
""Lokale Schnittstelle:
*" IMPORTING
*"     VALUE(IDOC_CONTROL_INDEX)
*"     VALUE(IDOC_DATA_INDEX)
*"     VALUE(FEBVW_IN) LIKE FEBVW STRUCTURE FEBVW
*"     VALUE(FEBKO_IN) LIKE FEBKO STRUCTURE FEBKO
*"     VALUE(FEBEP_IN) LIKE FEBEP STRUCTURE FEBEP
*"     VALUE(FEBRE_IN) LIKE FEBRE STRUCTURE FEBRE
*"     VALUE(FEBPI_IN) LIKE FEBPI STRUCTURE FEBPI
*" EXPORTING
*"     VALUE(I_FIMSG) LIKE FIMSG STRUCTURE FIMSG
*"     VALUE(FEBVW_OUT) LIKE FEBVW STRUCTURE FEBVW
*"     VALUE(FEBKO_OUT) LIKE FEBKO STRUCTURE FEBKO
*"     VALUE(FEBEP_OUT) LIKE FEBEP STRUCTURE FEBEP
*"     VALUE(FEBRE_OUT) LIKE FEBRE STRUCTURE FEBRE
*"     VALUE(FEBPI_OUT) LIKE FEBPI STRUCTURE FEBPI
*" TABLES
*"      IDOC_CONTROL STRUCTURE EDIDC
*"      IDOC_DATA STRUCTURE EDIDD
*"      IDOC_AVIP STRUCTURE AVIP OPTIONAL
*"      IDOC_AVIR STRUCTURE AVIR OPTIONAL
*"      IDOC_AVIT STRUCTURE AVIT OPTIONAL
*" CHANGING
*"     REFERENCE(IDOC_AVIK) TYPE AVIK OPTIONAL
*" EXCEPTIONS
*"      PROC_ERROR
INCLUDE ZXF08U10.
Here is the code for the include program.
INCLUDE ZXF08U10
MOVE febvw_in TO febvw_out.

Sometimes you will get this error message when checking include code in exits even though there is really no error - it happens because the include does not realise it is in the function due to the navigation index being out of date.
Try activating the code - it may work even though the check said there were errors.
You can also get this issue when trying to drill down on the field in the include to view its structure.
Andrew

Hello, I have created a distribution kit for my program.The problem is that the when the program is installed onto another computer, it fails to communicate with field point (Using FP-AO-200 and FP-AO-1000). Help is greatly appreciated, Thanks faen9901

Hi Everyone,
I have a program that sends information(analog output) to lab windows cvi in the form of a text file or user input.
The program runs on the computers that I have the field point explorer and lab windows cvi installed on. In order to run the program without always installing labwindows/cvi and field point; I wanted to create an executable file that could be load on another computer.
I used the create distribution kit part of labwindows/cvi to do this.After creating the distribution kit, I then installed it
to another computer.
My user interface appears on the screen, when the user clicks on the exe. file, but no data is sent to the field point module. I know that the data is being read from the user and textfile because in it appears in the uir.
The following are some details about the problem:
1. On another computer without labwindows/cvi and field point explorer not installed - no data is sent to field point module
I know this because a current is being read on the current meter connected to field point module.
My questions are the following:
1. What are the possible reasons for the data not being sent to the field point module?
2. Do I still need to create an iak. (Installing Field point Explorer) file stored on any new computer that I install my created distribution kit file too?
Thankyou very much for any help that you can provide. I greatly appreciate it.
Faen9901

Re: Hello, I have created a distribution kit for my program.The problem is that the when the program is installed onto another computer, it fails to communicate with field point (Using FP-AO-200 and FP-AO-1000). Help is greatly appreciated, Thanks faen9901Faen9901,
1) If you do not install FieldPoint Explorer, the FieldPoint Server is not installed so there is nothing on the target computer that knows how to talk to the FieldPoint system.
2) Yes, you need an IAK file on the target computer. Assuming the settings (i.e. com port#) are identical you can simply include the iak file as part of the distribution.
3) You also need to include as part of your installer the file "fplwmgr.dll". If this file is not installed, your program will not be able to access the FieldPoint Server. Alternatively, this file is installed automatically if FieldPoint Explorer detects LabWindows/CVI or Measurement Studio Development versions on the target computer or if you choose to do a custom FieldPoint Explorer installation and
choose to provide LabWindows/CVI support.
Regards,
Aaron

Template for ABAP programs

Hi all.
I've implemnted the following soultion for our SAP system.
Go to TCODE CMOD,
Create a new Project like ZSE38 as follows.
Check the 'Enhancements Assignments' Radio button, click create and add SEUED001 ( for Editor )
now SAVE, click on Components and select the User Exit that you want to use.
EXIT_SAPLS38E_001 <-- this is a function module.
inside this FM there is an INCLUDE program ZXSEUU08.
double click on it, when a warning message appears in the status bar below press ENTER
to create the program.
write the code you want inside this program. or add the following code.
code
DATA: it_code(256) TYPE c OCCURS 0.
DATA: wa_code like line of it_code.
DATA: it_new_code(256) TYPE c OCCURS 0.
DATA: lv_linecount TYPE i.
IF OPERATION = 'EDIT'.
read report program into it_code.
DESCRIBE TABLE it_code LINES lv_linecount.
IF lv_linecount LE 10.
read table it_code into wa_code index 5.
if wa_code(9) '*& Author'.
read table it_code into wa_code index 1.
append wa_code to it_new_code.
read table it_code into wa_code index 2.
append wa_code to it_new_code.
read table it_code into wa_code index 3.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*&---------------------------------------------------------------------*'.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*& Author :'.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*& Date :' .
append wa_code to it_new_code.
clear wa_code.
wa_code = '*& Purpose :'.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*&---------------------------------------------------------------------*'.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*& Date Changed by Tag Description'.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*&'.
append wa_code to it_new_code.
clear wa_code.
wa_code = '*&---------------------------------------------------------------------*'.
append wa_code to it_new_code.
data: lv_firstline type i.
loop at it_code into wa_code from 4 to 8.
if wa_code = ''.
lv_firstline = sy-tabix.
endif.
endloop.
loop at it_code into wa_code from lv_firstline.
append wa_code to it_new_code.
endloop.
insert report program from it_new_code.
ENDIF.
ENDIF.
ENDIF.
[/code]
After this, activate the include program.
then go back to CMOD transaction and activate the PROJECT that you've just created.
and you're ready to go........
Everything is working fine except that i do not want this template to be implemented when I do an include.
What changes do i need to do?
BR
Andreas

Hello Andreas
I the same include that you are creating your template(ZXSEUU08) check to see what type of program you are working with.
* Check to make sure program is type 1 before inserting template.
select single * from trdir where name = program.
check: sy-subrc = 0.
if trdir-subc = '1'
... some code here - only executed if program is type 1 (executeable)....
endif.
Of course you can excldue incldudes by checking for subc = 'I'.
Regards
Greg Kern

For this program i could send the smart form thru mail but in the inbox ..

*& Report ZSFOO
REPORT ZSFOO.
*& Report ZSFINV
TABLES : KNA1,         " General Data In Customer Master
         KNB1,         " Customer Master(Company Code)
         BSID,         " Accounting: Secondary Index for Customers
         ZSMARTFORM,   " Custom table for Storing Bank Details
         zsf_exp_inv, " Structure that stores required fields from all tables used
         KNVK.         " Customer Master Contact Partner
data : Begin of it_struct occurs 0.
        include structure zsf_exp_inv01.
data : End of it_struct.
types : begin of ty_bsid,
        kunnr like bsid-kunnr,
        WAERS like bsid-WAERS,
        XBLNR LIKE BSID-XBLNR,
        BUDAT LIKE BSID-BUDAT,
        WRBTR LIKE BSID-WRBTR,
        BUKRS LIKE BSID-BUKRS,
        end of ty_bsid.
types : begin of ty_kna1,
        kunnr like kna1-kunnr,
        NAME1 LIKE KNA1-NAME1,
        STRAS LIKE KNA1-STRAS,
        MCOD3 LIKE KNA1-MCOD3,
        LAND1 LIKE KNA1-LAND1,
        SORTL LIKE KNA1-SORTL,
        end of ty_kna1.
types : begin of ty_knb1,
        kunnr like knb1-kunnr,
        ZTERM LIKE KNB1-ZTERM,
        end of ty_knb1.
types : begin of ty_knVK,
        kunnr like kNVK-kunnr,
        NAME1 LIKE KNVK-NAME1,
        end of ty_knVK.
types : begin of ty_ZSMARTFORM,
        SNO      LIKE ZSMARTFORM-SNO,
        CURRENCY LIKE zsmartform-currency,
        BANKNAME LIKE zsmartform-bankname,
        ADDRESS1 LIKE ZSMARTFORM-ADDRESS1,
        ADDRESS2 LIKE ZSMARTFORM-ADDRESS2,
        ADDRESS3 LIKE ZSMARTFORM-ADDRESS3,
        ADDRESS4 LIKE ZSMARTFORM-ADDRESS4,
        ADDRESS5 LIKE ZSMARTFORM-ADDRESS5,
        ADDRESS6 LIKE ZSMARTFORM-ADDRESS6,
        VALIDFROM LIKE ZSMARTFORM-VALIDFROM,
        VALIDTO   LIKE ZSMARTFORM-VALIDTO,
        end of ty_ZSMARTFORM.
data : it_bsid type table of ty_bsid,
       it_kna1 type table of ty_kna1,
       it_knb1 type table of ty_knb1,
       it_zsmartform type table of ty_zsmartform,
       it_knVK type table of ty_kNVK.
data : wa_bsid like line of it_bsid,
       wa_kna1 like line of it_kna1,
       wa_knb1 like line of it_knb1,
       wa_zsmartform like line of it_zsmartform,
       wa_knVK like line of it_knVK.
*****************Selection Screen**********************************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR,
                 S_belnr FOR BSID-belnr,
                 S_BUKRS FOR BSID-BUKRS,
                 S_CURR FOR ZSMARTFORM-CURRENCY.
SELECTION-SCREEN END OF BLOCK B1.
DATA : BEGIN OF IT_PARAM OCCURS 0.
        INCLUDE STRUCTURE ZPARAMETERS.
DATA : END OF IT_PARAM.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
SKIP 1.
Parameters : OPTION1 AS CHECKBOX,
             P_POINF(300) type c,
             OPTION2 AS CHECKBOX,
             P_DESC(300) TYPE C,
             OPTION3 AS CHECKBOX,
             P_MONTH(200) TYPE C,
             OPTION4 AS CHECKBOX,
             P_RATE(100) TYPE C.
SELECTION-SCREEN END OF BLOCK B2.
**********************PARAMETERS***********************************
data : l type i,
        Y(300) type c,
        j type i,
        k type i value 1,
        s type i,
        m(300) type c,
        p type i,
        z type i.
data : l1 type i,
        Y1(300) type c,
        j1 type i,
        k1 type i value 1,
        s1 type i,
        m1(300) type c,
        p1 type i,
        z1 type i.
data : l2 type i,
        Y2(300) type c,
        j2 type i,
        k2 type i value 1,
        s2 type i,
        m2(300) type c,
        p2 type i,
        z2 type i.
data : l3 type i,
        Y3(300) type c,
        j3 type i,
        k3 type i value 1,
        s3 type i,
        m3(300) type c,
        p3 type i,
        z3 type i.
IF OPTION1 = 'X'.
concatenate P_POINF ',' into P_POINF.
l = strlen( P_POINF ).
do l times.
    Y = P_POINF+j(k).
    case Y.
      when ','.
        m = P_POINF+s(z).
        s = j + 1.
        z = -1.
        p = p + 1.
        if p = 1.
          IT_PARAM-LINE1 = m.
        endif.
        if p = 2.
          IT_PARAM-LINE2 = m.
        endif.
        if p = 3.
          IT_PARAM-LINE3 = m.
        endif.
     when '.'.
        if p = 4.
          IT_PARAM-LINE4 = m.
        endif.
    endcase.
    j = j + 1.
    z = z + 1.
enddo.
ENDIF.
IF OPTION2 = 'X'.
concatenate P_DESC ',' into P_DESC.
l1 = strlen( P_DESC ).
do l1 times.
    Y1 = P_DESC+j1(k1).
    case Y1.
      when ','.
        m1 = P_DESC+s1(z1).
        s1 = j1 + 1.
        z1 = -1.
        p1 = p1 + 1.
        if p1 = 1.
          IT_PARAM-LINE5 = m1.
        endif.
        if p1 = 2.
          IT_PARAM-LINE6 = m1.
        endif.
        if p1 = 3.
          IT_PARAM-LINE7 = m1.
        endif.
     when '.'.
        if p1 = 4.
          IT_PARAM-LINE8 = m1.
        endif.
    endcase.
    j1 = j1 + 1.
    z1 = z1 + 1.
enddo.
ENDIF.
IF OPTION3 = 'X'.
concatenate P_MONTH ',' into P_MONTH.
l2 = strlen( P_MONTH ).
do l2 times.
    Y2 = P_MONTH+j2(k2).
    case Y2.
      when ','.
        m2 = P_MONTH+s2(z2).
        s2 = j2 + 1.
        z2 = -1.
        p2 = p2 + 1.
        if p2 = 1.
          IT_PARAM-LINE9 = m2.
        endif.
        if p2 = 2.
          IT_PARAM-LINE10 = m2.
        endif.
        if p2 = 3.
          IT_PARAM-LINE11 = m2.
        endif.
     when '.'.
        if p2 = 4.
          IT_PARAM-LINe12 = m2.
        endif.
    endcase.
    j2 = j2 + 1.
    z2 = z2 + 1.
enddo.
ENDIF.
IF OPTION4 = 'X'.
concatenate P_RATE ',' into P_RATE.
l3 = strlen( P_RATE ).
do l3 times.
    Y3 = P_RATE+j3(k3).
    case Y3.
      when ','.
        m3 = P_RATE+s3(z3).
        s3 = j3 + 1.
        z3 = -1.
        p3 = p3 + 1.
        if p3 = 1.
          IT_PARAM-LINE13 = m3.
        endif.
        if p3 = 2.
          IT_PARAM-LINE14 = m3.
        endif.
        if p3 = 3.
          IT_PARAM-LINE15 = m3.
        endif.
        if p3 = 4.
          IT_PARAM-LINe16 = m3.
        endif.
    endcase.
    j3 = j3 + 1.
    z3 = z3 + 1.
enddo.
ENDIF.
APPEND IT_PARAM.
select * from kna1 into corresponding fields of table it_kna1 where kunnr in s_kunnr.
select * from knb1 into corresponding fields of table it_knb1 for all entries in it_kna1 where kunnr = it_kna1-kunnr.
select * from bsid into corresponding fields of table it_bsid for all entries in it_kna1 where kunnr = it_kna1-kunnr and belnr in s_belnr and bukrs in s_bukrs..
SELECT * FROM KNVK INTO CORRESPONDING FIELDS OF TABLE IT_KNVK FOR ALL ENTRIES IN IT_KNA1 WHERE KUNNR = IT_KNA1-KUNNR.
select * from zsmartform into corresponding fields of table it_zsmartform .
DATA : AMT LIKE SPELL.
loop at it_bsid into wa_bsid.
read table it_kna1 into wa_kna1 with key kunnr = wa_bsid-kunnr.
read table it_knb1 into wa_knb1 with key kunnr = wa_bsid-kunnr.
read table it_zsmartform into wa_zsmartform with key CURRENCY = wa_bsid-WAERS.
READ TABLE IT_KNVK INTO WA_KNVK WITH KEY KUNNR = WA_BSID-KUNNR.
it_struct-name1 = wa_kna1-name1.
it_struct-stras = wa_kna1-stras.
it_struct-mcod3 = wa_kna1-mcod3.
it_struct-land1 = wa_kna1-land1.
it_struct-sortl = wa_kna1-sortl.
it_struct-zterm = wa_knb1-zterm.
it_struct-xblnr = wa_bsid-xblnr.
it_struct-currency = wa_zsmartform-currency.
it_struct-currency = wa_bsid-waers.
it_struct-budat = wa_bsid-budat.
it_struct-BANKNAME = wa_zsmartform-BANKNAME.
it_struct-ADDRESS1 = wa_zsmartform-ADDRESS1.
it_struct-ADDRESS2 = wa_zsmartform-ADDRESS2.
it_struct-ADDRESS3 = wa_zsmartform-ADDRESS3.
it_struct-ADDRESS4 = wa_zsmartform-ADDRESS4.
it_struct-ADDRESS5 = wa_zsmartform-ADDRESS5.
it_struct-ADDRESS6 = wa_zsmartform-ADDRESS6.
it_struct-CURR = WA_BSID-WRBTR.
IT_STRUCT-NAME = WA_KNVK-NAME1.
IT_STRUCT-AMOUNT = IT_SPELL-AMT.
append it_struct.
endloop.
data : x type i,
       x1 type i,
       a type string.
loop at it_struct.
x = strlen( it_struct-curr ).
x1 = x - 3.
a = it_struct-curr+0(x1).
CALL FUNCTION 'SPELL_AMOUNT'
      EXPORTING
        AMOUNT          = a
CURRENCY        = ' '
FILLER          = ' '
LANGUAGE        = SY-LANGU
      IMPORTING
        IN_WORDS        = AMT.
EXCEPTIONS
NOT_FOUND       = 1
TOO_LARGE       = 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.
endloop.
DATA: ws_ucomm LIKE sy-ucomm.
DATA: form_name TYPE rs38l_fnam.
DATA: wa_ctrlop TYPE ssfctrlop,
wa_outopt TYPE ssfcompop.
data : i_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE,
      i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: t_otfdata TYPE ssfcrescl,
t_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE,
i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
      i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
data : wa_objhead TYPE soli_tab,
wa_doc_chng typE sodocchgi1,
      w_data TYPE sodocchgi1,
      wa_buffer TYPE string,
      v_len_in LIKE sood-objlen,
      v_len_out LIKE sood-objlen,
      v_len_outn TYPE i,
      v_lines_txt TYPE i,
      v_lines_bin TYPE i.
DATA: t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE.
DATA: w_filesize TYPE string.
DATA: w_bin_filesize TYPE i.
wa_ctrlop-getotf = 'X'.
CALL FUNCTION '/1BCDWB/SF00000001'
EXPORTING
control_parameters = wa_ctrlop
output_options = wa_outopt
user_settings = 'X'
IN_WORDS = amt
importing
job_output_info = t_otfdata
TABLES
I_ZSF_EXP_INV = it_struct
I_ZPARAMETERS = it_param.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
t_otf[] = t_otfdata-otfdata[].
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
max_linewidth = 132
IMPORTING
bin_filesize = w_bin_filesize
TABLES
otf = t_otf
lines = t_pdf_tab
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
OTHERS = 4
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
bin_filesize = w_bin_filesize
CODEPAGE = ' '
filename = 'c:     est59.PDF'
filetype = 'BIN'
IMPORTING
filelength = w_filesize
TABLES
data_tab = t_pdf_tab
EXCEPTIONS
file_open_error = 1
file_write_error = 2
invalid_filesize = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
OTHERS = 10
IF sy-subrc <> 0.
*You should include message-id in the report heading
WRITE : sy-subrc.
ELSE.
WRITE : 'File Test.pdf downloaded succesfully'.
ENDIF.
loop at t_pdf_tab.
    translate t_pdf_tab using '~'.
    concatenate wa_buffer t_pdf_tab into wa_buffer.
endloop.
translate wa_buffer using '~'.
do.
    i_record = wa_buffer.
    append i_record.
    shift wa_buffer left by 255 places.
    if wa_buffer is initial.
      exit.
    endif.
enddo.
Attachment
refresh:
    i_reclist,
    i_objtxt,
    i_objbin,
    i_objpack.
clear wa_objhead.
i_objbin[] = i_record[].
Create Message Body
Title and Description
i_objtxt = 'test with pdf-Attachment!'.
append i_objtxt.
describe table i_objtxt lines v_lines_txt.
read table i_objtxt index v_lines_txt.
wa_doc_chng-obj_name = 'smartform'.
wa_doc_chng-expiry_dat = sy-datum + 10.
wa_doc_chng-obj_descr = 'smartform'.
wa_doc_chng-sensitivty = 'O'.
wa_doc_chng-doc_size = v_lines_txt * 255.
Main Text
wa_doc_chng-doc_size = ( v_lines_txt - 1 ) * 255 + strlen( i_objtxt )
clear i_objpack-transf_bin.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_txt.
i_objpack-doc_type = 'RAW'.
append i_objpack.
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 1.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_bin.
i_objpack-doc_type = 'PDF'.
i_objpack-obj_name = 'Smartform'.
CONCATENATE 'Hazard report-' p_load '.pdf' INTO i_objpack-obj_descr.
describe table i_objbin lines v_lines_bin.
read table i_objbin index v_lines_bin.
i_objpack-doc_size = v_lines_bin * 255 .
i_objpack-obj_descr = 'test'.
i_objpack-doc_size = v_lines_bin * 255.
APPEND i_objpack.
Attachment
(pdf-Attachment)
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
Länge des Attachment ermitteln
describe table i_objbin lines v_lines_bin.
read table i_objbin index v_lines_bin.
i_objpack-doc_size = v_lines_bin * 255 .
i_objpack-body_num = v_lines_bin.
i_objpack-doc_type = 'PDF'.
i_objpack-obj_name = 'smart'.
i_objpack-obj_descr = 'test'.
append i_objpack.
clear i_reclist.
i_reclist-receiver = '[email protected]'.
     i_reclist-express = 'X'.
i_reclist-rec_type = 'U'.
append i_reclist.
    call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
         EXPORTING
              document_data              = wa_doc_chng
              COMMIT_WORK = 'X'
              put_in_outbox              = 'X'
         TABLES
              packing_list               = i_objpack
              object_header              = wa_objhead
              CONTENTS_BIN               = i_objbin
              contents_txt               = i_objtxt
              receivers                  = i_reclist
         EXCEPTIONS
              too_many_receivers         = 1
              document_not_sent          = 2
              document_type_not_exist    = 3
              operation_no_authorization = 4
              parameter_error            = 5
              x_error                    = 6
              enqueue_error              = 7
              others                     = 8.
for this program i could send the smart form thru mail but in the inbox i could not
download it it says needed to be decoded properly.file not starting with pdf....
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ELSE.
     CALL FUNCTION 'POPUP_TO_INFORM'
       EXPORTING
         titel = 'Mail sent'(003)
         txt1 = 'The report is sent via e-mail.'(004)
         txt2 = ' '.
     LEAVE PROGRAM.
   ENDIF.

hi krishna,
u r right. there is no error in sending the mail and the file but the problem is that file created and converted to pdf is not done properly.jst verify whether the file is created properly or not .thats the only problem that can occurs else ur program is absolutely right.

For include program..

Similar Messages

Maybe you are looking for