Skip to Content
author's profile photo Former Member
Former Member

standard text

hi to all abap Gurus

what is standard text in script ?how to use it > where do we use it ? we know that the use is reusability . how it is reusable . and it is used to support for multiple languages . pls tell in detail . pls dont give any link . points will bre rewarded defintilely for good answers . pls urgent. pls give som esample coding on this .

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

6 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jun 13, 2007 at 10:09 AM

    Standrad text is a text which u can display in sapscript

    u can create it thru SO10

    In Sapscript include the standard text in the textelement.

    Its reusable.coz u are creating once and an use in many sapscripts.

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jun 13, 2007 at 10:12 AM

    In Textelemet of the window, Insert->Standard text-> give the text name and give enter

    Add a comment
    10|10000 characters needed characters exceeded

  • Posted on Jun 13, 2007 at 10:13 AM

    Standard Text is nothing but Global Text.

    Suppose you have to display footer/header info. whenever you create a s cript for ur org.your caompany details,logo etx. instead of writing them everytime, if you careta a global text u can include them wherevr u want.

    Mainly we are using standard texts to avoid hardcoding in scripts or smartforms.

    If you need to include the name of your company and address in the form you

    just include a standard text in your form by include statement(script) and by

    include text dropdown in forms. If in later part of time your company address

    change you need to change the standard text not to touch the form. This is the

    way standard text helps us.

    in Tcode SO10, u create a text and give a name activate it.

    Here is the sample code to send script through E mail..

    &----


    *& Report ZRICHA_OTF_PDF

    *&

    &----


    *&

    *&

    &----


    report zricha_otf_pdf

    message-id zz.

    ----


    • CONSTANTS *

    ----


    constants : c_x(1) type c value 'X', " For constant value

    c_otf(3) type c value 'OTF', " For format

    c_u(1) type c value 'U'. " Mail Option

    ----


    • VARIABLES *

    ----


    data : v_rqident type tsp01-rqident, " For Spool Number

    v_rqclient type tsp01-rqclient, " For Client

    v_rqo1name type tsp01-rqo1name, " For Object name

    v_spool type tsp01-rqident, " For Spool Number

    v_spool1 type tsp01-rqident. " For Spool Number

    ----


    • FLAGS *

    ----


    data : f_spool type c.

    ----


    • INTERNAL TABLES *

    ----


    • Internal table for sending mails

    data: it_pdf like tline occurs 10 with header line,

    it_xi_pdf like tline occurs 0 with header line,

    it_html like solisti1 occurs 0 with header line,

    it_xi_temp like bapiqcmime occurs 0 with header line,

    it_xi_mime(255) type c occurs 0 with header line.

    • For sending mail

    data: it_objpack like sopcklsti1 occurs 2 with header line.

    • Internal table for Single List with Column Length 255

    data : it_objbin like solisti1 occurs 10 with header line.

    • Internal table for Single List with Column Length 255

    data : it_objtxt like solisti1 occurs 10 with header line.

    • Internal table for Structure of the API Recipient List

    data : it_reclist like somlreci1 occurs 5 with header line.

    • Structure of the API Recipient List

    data: x_doc_chng like sodocchgi1.

    • Internal table for storing the variants

    data : begin of it_variant1 occurs 0,

    variant like varid-variant,

    end of it_variant1.

    • Internal table to store variants for the programs

    data: it_variant2 like it_variant1 occurs 0 with header line.

    • Internal table for storing the selected values

    data it_return type ddshretval occurs 0 with header line.

    • Internal table for storing the mail-ids

    data : begin of it_mailid occurs 0,

    kokrs like csks-kokrs,

    kostl like csks-kostl,

    datbi like csks-datbi,

    telx1 like csks-telx1,

    end of it_mailid.

    • Internal table for storing the mail-ids

    data : it_mailid1 like it_mailid occurs 0 with header line.

    ----


    • SELECTION SCREEN *

    ----


    data : v_char type char50.

    selection-screen begin of block b1 with frame title text-001.

    select-options: s_email for v_char no intervals

    lower case

    no-display.

    select-options: s_email1 for v_char no intervals

    lower case

    no-display.

    selection-screen end of block b1.

    selection-screen begin of block a1 with frame title text-028.

    selection-screen begin of line.

    parameters : p_c1 as checkbox.

    selection-screen comment 3(66) text-026 for field p_c1.

    selection-screen end of line.

    parameters : p_set like tsp1d-papart matchcode object zh_tsp1d.

    selection-screen skip 1.

    parameters : p_vara1 type rs38m-selset.

    selection-screen end of block a1.

    selection-screen begin of block a2 with frame title text-029.

    selection-screen begin of line.

    parameters : p_c2 as checkbox.

    selection-screen comment 3(56) text-027 for field p_c1.

    selection-screen end of line.

    parameters : p_set1 like tsp1d-papart matchcode object zh_tsp1d.

    selection-screen skip 1.

    parameters : p_vara2 type rs38m-selset.

    selection-screen end of block a2.

    ----


    • AT SELECTION SCREEN ON VALUE REQUEST

    ----


    at selection-screen on value-request for p_vara1.

    • For fetching the variants available for the program

    perform fetch_variants.

    at selection-screen on value-request for p_vara2.

    • For fetching the variants available for the program

    perform fetch_variants1.

    ----


    • AT SELECTION SCREEN

    ----


    at selection-screen.

    • For Validation

    perform validation.

    ----


    • START OF SELECTION *

    ----


    start-of-selection.

    • To get the output data and mail

    perform fetch_data.

    ----


    • END OF SELECTION *

    ----


    end-of-selection.

    if f_spool = c_x.

    message e000 with 'Spool Not Generated'(060).

    endif.

    &----


    *& Form fetch_data

    &----


    • To get the output data and mail

    ----


    form fetch_data .

    • To send the output to spool

    perform generate_spool.

    endform. " fetch_data

    &----


    *& Form generate_spool

    &----


    • To send the output to spool

    ----


    form generate_spool .

    data: l_params like pri_params,

    l_days(1) type n value 2,

    l_count(3) type n value 1,

    l_valid type c,

    l_valid1 type c,

    l_params1 like pri_params.

    data: l_device type usr01-spld.

    *Get the printer name for the user

    select single spld into l_device from usr01 where bname = sy-uname.

    if l_device is initial.

    l_device = 'LOCL'.

    endif.

    • For report-1

    if p_c1 = 'X'.

    • Setting the print parameters

    call function 'GET_PRINT_PARAMETERS'

    exporting

    destination = l_device

    copies = l_count

    list_name = sy-uname

    list_text = 'SUBMIT ... TO SAP-SPOOL'(008)

    release = c_x

    new_list_id = c_x

    expiration = l_days

    • LINE_SIZE = 255

    • LINE_COUNT = 65

    layout = p_set

    sap_cover_page = space

    cover_page = space

    receiver = 'SAP*'(010)

    department = 'System'(011)

    no_dialog = c_x

    importing

    out_parameters = l_params

    valid = l_valid.

    if l_valid <> space.

    clear v_spool.

    • Fetch the spool number b4 submit

    perform fetch_recent_spool using v_spool.

    • Submitting the program to spool

    submit rkaep000 to sap-spool

    using selection-set p_vara1

    spool parameters l_params

    without spool dynpro

    and return.

    clear v_spool1.

    • Fetch the spool number after submit

    perform fetch_recent_spool using v_spool1.

    if v_spool = v_spool1.

    f_spool = c_x.

    if p_c2 is initial.

    stop.

    endif.

    else.

    • Checking the format ( ABAP/OTF)

    perform format_check tables s_email.

    endif.

    else.

    message e000 with 'Problem in print settings'(003).

    stop.

    endif.

    endif.

    • For Report-2

    if p_c2 = 'X'.

    • Setting the print parameters

    call function 'GET_PRINT_PARAMETERS'

    exporting

    destination = l_device

    copies = l_count

    list_name = sy-uname

    list_text = 'SUBMIT ... TO SAP-SPOOL'(008)

    release = c_x

    new_list_id = c_x

    expiration = l_days

    • LINE_SIZE = 200

    • LINE_COUNT = 65

    layout = p_set1

    sap_cover_page = space

    cover_page = space

    receiver = 'SAP*'(010)

    department = 'System'(011)

    no_dialog = c_x

    importing

    out_parameters = l_params1

    valid = l_valid1.

    if l_valid1 <> space.

    clear v_spool.

    • Fetch the spool number b4 submit

    perform fetch_recent_spool using v_spool.

    • Submitting the program to spool

    submit gp3diehxy88snfj0391v7kf9ek7050 to sap-spool

    using selection-set p_vara2

    spool parameters l_params1

    without spool dynpro

    and return.

    clear v_spool1.

    • Fetch the spool number after submit

    perform fetch_recent_spool using v_spool1.

    if v_spool = v_spool1.

    message e000 with 'Spool Not Generated'(060).

    stop.

    endif.

    • Checking the format ( ABAP/OTF)

    perform format_check tables s_email1.

    else.

    message e000 with 'Problem in print settings'(003).

    stop.

    endif.

    endif.

    endform. " generate_spool

    &----


    *& Form fetch_recent_spool

    &----


    • Fetch the recent spool number generated

    ----


    form fetch_recent_spool using p_v_spool type tsp01-rqident .

    data: l_user like tsp01-rq2name.

    clear : v_rqident,

    v_rqclient,

    v_rqo1name.

    l_user = sy-uname.

    • Get latest Spool No

    select single rqident

    rqclient

    rqo1name

    into (v_rqident , v_rqclient , v_rqo1name)

    from tsp01

    where rqcretime = ( select max( rqcretime )

    from tsp01

    where rq2name eq l_user

    and rqfinal eq '.' ).

    if sy-subrc = 0 .

    p_v_spool = v_rqident.

    endif.

    endform. " fetch_recent_spool

    &----


    *& Form format_check

    &----


    • Checking the format ( ABAP/OTF)

    ----


    form format_check tables p_s_email structure s_email.

    data : l_objtype like rststype-type.

    call function 'RSTS_GET_ATTRIBUTES'

    exporting

    authority = 'SP01'(019)

    client = v_rqclient

    name = v_rqo1name

    part = 1

    importing

    objtype = l_objtype

    exceptions

    fb_error = 1

    fb_rsts_other = 2

    no_object = 3

    no_permission = 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.

    if l_objtype(3) = c_otf.

    • Convert OTF Spool to PDF

    perform convert_otf2pdf tables p_s_email.

    else.

    • Convert ABAP Spool to PDF

    perform convert_abap2pdf tables p_s_email.

    endif.

    endform. " format_check

    &----


    *& Form convert_otf2pdf

    &----


    • Convert OTF Spool to PDF

    ----


    form convert_otf2pdf tables p_p_s_email structure s_email .

    clear it_pdf.

    refresh it_pdf.

    data : l_bytecount type i.

    • Fn. to get the PDF format

    call function 'CONVERT_OTFSPOOLJOB_2_PDF'

    exporting

    src_spoolid = v_rqident

    no_dialog = 'X'

    importing

    pdf_bytecount = l_bytecount

    tables

    pdf = it_pdf

    exceptions

    err_no_otf_spooljob = 1

    err_no_spooljob = 2

    err_no_permission = 3

    err_conv_not_possible = 4

    err_bad_dstdevice = 5

    user_cancelled = 6

    err_spoolerror = 7

    err_temseerror = 8

    err_btcjob_open_failed = 9

    err_btcjob_submit_failed = 10

    err_btcjob_close_failed = 11.

    if sy-subrc = 0.

    • For page format

    perform page_format tables p_p_s_email.

    else.

    message id sy-msgid type sy-msgty number sy-msgno

    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    endif.

    endform. " convert_otf2pdf

    &----


    *& Form convert_abap2pdf

    &----


    • Convert ABAP Spool to PDF

    ----


    form convert_abap2pdf tables p_p_s_email structure s_email.

    clear it_pdf.

    refresh it_pdf.

    data : l_bytecount type i.

    • Fn. to convert to PDF format

    call function 'CONVERT_ABAPSPOOLJOB_2_PDF'

    exporting

    src_spoolid = v_rqident

    no_dialog = 'X'

    importing

    pdf_bytecount = l_bytecount

    tables

    pdf = it_pdf

    exceptions

    err_no_abap_spooljob = 1

    err_no_spooljob = 2

    err_no_permission = 3

    err_conv_not_possible = 4

    err_bad_destdevice = 5

    user_cancelled = 6

    err_spoolerror = 7

    err_temseerror = 8

    err_btcjob_open_failed = 9

    err_btcjob_submit_failed = 10

    err_btcjob_close_failed = 11.

    if sy-subrc = 0.

    • For page formatting

    perform page_format tables p_p_s_email.

    else.

    message id sy-msgid type sy-msgty number sy-msgno

    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    endif.

    endform. " convert_abap2pdf

    &----


    *& Form send_mail

    &----


    • For sending mail

    ----


    form send_mail tables mail structure s_email .

    • Structures and internal tables for the send data

    data: objpack like sopcklsti1 occurs 2 with header line,

    objhead like solisti1 occurs 1 with header line,

    objbin like solisti1 occurs 0 with header line,

    objtxt like solisti1 occurs 10 with header line,

    reclist like somlreci1 occurs 5 with header line.

    data: doc_chng like sodocchgi1,

    tab_lines like sy-tabix.

    • Data for the status output after sending

    data: sent_to_all like sonv-flag.

    clear: it_reclist, it_reclist[],

    it_objtxt , it_objtxt[],

    it_objpack, it_objpack[],

    it_objbin , it_objbin[],x_doc_chng.

    loop at it_html.

    objbin-line = it_html-line.

    append objbin.

    clear objbin.

    endloop.

    • Create the document which is to be sent

    doc_chng-obj_name = 'List'(012).

    doc_chng-obj_descr = 'Mail'(013).

    • Heading

    objtxt-line = 'Mail with pdf attachment'(014).

    append objtxt.

    clear objtxt.

    • Size

    describe table objtxt lines tab_lines.

    read table objtxt index tab_lines.

    doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).

    • Fill the fields of the packing_list for the main document:

    clear objpack-transf_bin.

    • The document needs no header (head_num = 0)

    objpack-head_start = 1.

    objpack-head_num = 0.

    • Body

    objpack-body_start = 1.

    objpack-body_num = tab_lines.

    objpack-doc_type = 'RAW'(015).

    append objpack.

    • Create the attachment (the list itself)

    describe table objbin lines tab_lines.

    • Fill the fields of the packing_list for the attachment:

    objpack-transf_bin = 'X'.

    • Header

    objpack-head_start = 1.

    objpack-head_num = 0.

    • Body

    objpack-body_start = 1.

    objpack-body_num = tab_lines.

    objpack-doc_type = 'PDF'(016).

    objpack-obj_name = 'Attachment'(017).

    objpack-obj_descr = 'Mail with pdf Attachment'(018).

    objpack-doc_size = tab_lines * 255.

    append objpack.

    *-Fill the mail recipient list

    loop at mail.

    reclist-receiver = mail-low.

    reclist-rec_type = c_u.

    append reclist.

    clear: reclist,

    mail.

    endloop.

    *-Send the document by calling the SAPoffice API1 module for sending

    *-documents with attachments

    call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

    exporting

    document_data = doc_chng

    put_in_outbox = c_x

    commit_work = c_x

    importing

    sent_to_all = sent_to_all

    tables

    packing_list = objpack

    object_header = objhead

    contents_bin = objbin

    contents_txt = objtxt

    receivers = reclist

    exceptions

    too_many_receivers = 1

    document_not_sent = 2

    operation_no_authorization = 4

    others = 99.

    case sy-subrc .

    when 0.

    message i000 with 'Mail has been sent successfully'(006).

    when others.

    message e000 with 'Problem in sending the mail'(023).

    endcase.

    endform. " send_mail

    &----


    *& Form page_format

    &----


    • For page foramtting

    ----


    form page_format tables email structure s_email .

    data : l_lines type i,

    l_temp(500) type c,

    l_offset type p,

    l_lineslen(2) type p,

    l_mimelen(2) type p,

    l_tabix like sy-tabix.

    clear : it_xi_pdf,

    it_xi_temp.

    refresh : it_xi_pdf,

    it_xi_temp.

    it_xi_pdf[] = it_pdf[].

    • Reformat the line to 255 characters wide ( code from SAP )

    clear: l_temp, l_offset, it_xi_temp.

    describe table it_xi_pdf lines l_lines.

    describe field it_xi_pdf length l_lineslen in character mode.

    describe field it_xi_temp length l_mimelen in character mode.

    loop at it_xi_pdf.

    l_tabix = sy-tabix.

    move it_xi_pdf to l_temp+l_offset.

    if l_tabix = l_lines.

    l_lineslen = strlen( it_xi_pdf ).

    endif.

    l_offset = l_offset + l_lineslen.

    if l_offset ge l_mimelen.

    clear it_xi_temp.

    it_xi_temp = l_temp(l_mimelen).

    append it_xi_temp.

    shift l_temp by l_mimelen places.

    l_offset = l_offset - l_mimelen.

    endif.

    if l_tabix = l_lines.

    if l_offset gt 0.

    clear it_xi_temp.

    it_xi_temp = l_temp(l_offset).

    append it_xi_temp.

    endif.

    endif.

    endloop.

    clear : it_xi_mime,

    it_xi_mime[].

    loop at it_xi_temp.

    it_xi_mime(255) = it_xi_temp-line.

    append it_xi_mime.

    clear it_xi_mime.

    endloop.

    • Final Data

    clear : it_html,

    it_html[].

    it_html[] = it_xi_mime[].

    • For sending mail

    perform send_mail tables email.

    endform. " page_format

    &----


    *& Form fetch_variants

    &----


    • For fetching the variants available for the program

    ----


    form fetch_variants .

    data : l_program like rs38m-programm value 'RKAEP000',

    l_vara1 type dfies-fieldname value 'P_VARA1'.

    clear : it_variant1,

    it_variant1[].

    • Get variants

    perform get_variants tables it_variant1

    using l_program.

    • F4 Help

    if not it_variant1[] is initial.

    perform get_f4_help tables it_variant1

    using l_vara1

    changing p_vara1.

    else.

    message e000 with 'No variants available for report1'(054).

    endif.

    endform. " fetch_variants

    &----


    *& Form validation

    &----


    • For Validation

    ----


    form validation .

    data : l_pro1 like rs38m-programm value 'RKAEP000',

    l_pro2 like rs38m-programm value 'GP3DIEHXY88SNFJ0391V7KF9EK7050',

    l_c1,

    l_c2.

    • If both check-box are unchecked

    if p_c1 is initial

    and p_c2 is initial.

    message e000 with 'Check any one check-box'(049).

    endif.

    • If checked without varaint

    if not p_c1 is initial and p_vara1 is initial.

    message e000 with 'Please give any one of the variant for report1'(055).

    endif.

    • If checked without varaint

    if not p_c2 is initial and p_vara2 is initial.

    message e000 with 'Please give any one of the variant for report2'(061).

    endif.

    • Reading the variant and fetching the mail-ids

    if p_c1 = c_x.

    l_c1 = '1'.

    clear : s_email,

    s_email[].

    perform read_variants tables it_mailid

    s_email

    using p_vara1

    l_pro1

    l_c1.

    if s_email[] is initial.

    message e000 with 'No Id available for given Cost report1'(066).

    else.

    sort s_email by low.

    delete adjacent duplicates from s_email comparing low.

    endif.

    endif.

    • Reading the variant and fetching the mail-ids

    if p_c2 = c_x.

    clear : s_email1,

    s_email1[].

    l_c2 = '2'.

    perform read_variants tables it_mailid1

    s_email1

    using p_vara2

    l_pro2

    l_c2.

    if s_email1[] is initial.

    message e000 with 'No Id available for given Cost report2'(067).

    else.

    sort s_email1 by low.

    delete adjacent duplicates from s_email1 comparing low.

    endif.

    endif.

    endform. " validation

    &----


    *& Form GET_VARIANTS

    &----


    • Fetching Variants

    ----


    form get_variants tables p_it_variant structure it_variant1

    using p_v_program type rs38m-programm.

    select variant

    from varid

    into table p_it_variant

    where report = p_v_program.

    endform. " GET_VARIANTS

    &----


    *& Form GET_F4_HELP

    &----


    • text

    ----


    form get_f4_help tables p_it_variant1 structure it_variant1

    using p_l_vara1 like dfies-fieldname

    changing p_p_vara like p_vara1.

    • Fn. for Pop-Up

    call function 'F4IF_INT_TABLE_VALUE_REQUEST'

    exporting

    retfield = p_l_vara1

    value_org = 'S'

    display = ' '

    tables

    value_tab = p_it_variant1

    return_tab = it_return

    exceptions

    parameter_error = 1

    no_values_found = 2

    others = 3.

    if sy-subrc = 0.

    p_p_vara = it_return-fieldval.

    else.

    message id sy-msgid type sy-msgty number sy-msgno

    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    endif.

    endform. " GET_F4_HELP

    &----


    *& Form FETCH_VARIANTS1

    &----


    • text

    ----


    form fetch_variants1 .

    data : v_program1 like rs38m-programm value 'GP3DIEHXY88SNFJ0391V7KF9EK7050',

    l_vara2 type dfies-fieldname value 'P_VARA2'.

    clear : it_variant2,

    it_variant2[].

    • Get Variants

    perform get_variants tables it_variant2

    using v_program1.

    • F4 Help

    if not it_variant2[] is initial.

    perform get_f4_help tables it_variant2

    using l_vara2

    changing p_vara2.

    else.

    message e000 with 'No variants available for report2'(050).

    endif.

    endform. " FETCH_VARIANTS1

    &----


    *& Form read_variants

    &----


    • Reading the variant and fetching the mail-ids

    ----


    form read_variants tables p_it_mailid structure it_mailid

    p_s_email structure s_email

    using p_p_vara1 like p_vara1

    p_l_pro1 like rs38m-programm

    p_l_c1 type c.

    data : l_temp(44),

    it_valutab like rsparams occurs 0 with header line.

    ranges : r_cocen for csks-kostl.

    • Function Module to get the variant contents

    call function 'RS_VARIANT_CONTENTS'

    exporting

    report = p_l_pro1

    variant = p_p_vara1

    tables

    valutab = it_valutab

    exceptions

    variant_non_existent = 1

    variant_obsolete = 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.

    clear : r_cocen,

    r_cocen[].

    loop at it_valutab where selname = 'KOSTL'

    or selname = '_C-CCTR'.

    • Getting the range of cost centers

    if it_valutab-option = 'BT'.

    r_cocen-low = it_valutab-low.

    • For Conversion Routine

    perform conversion using r_cocen-low.

    r_cocen-high = it_valutab-high.

    • For Conversion Routine

    perform conversion using r_cocen-high.

    r_cocen-option = 'BT'.

    r_cocen-sign = 'I'.

    append r_cocen.

    clear r_cocen.

    endif.

    • Getting the single cost centers

    if it_valutab-option = 'EQ'.

    r_cocen-low = it_valutab-low.

    • For Conversion Routine

    perform conversion using r_cocen-low.

    r_cocen-option = 'EQ'.

    r_cocen-sign = 'I'.

    append r_cocen.

    clear r_cocen.

    endif.

    endloop.

    • If no cost centers

    if not r_cocen[] is initial.

    select kokrs

    kostl

    datbi

    telx1

    from csks

    into table p_it_mailid

    where kostl in r_cocen.

    if p_it_mailid[] is initial.

    if p_l_c1 = '1'.

    message e000 with 'No IDs available for report1'(059).

    elseif p_l_c1 = '2'.

    message e000 with 'No IDs available for report2'(062).

    endif.

    endif.

    • Deleting the blank entries

    delete p_it_mailid where telx1 = space.

    clear l_temp.

    read table p_it_mailid index 1.

    l_temp = p_it_mailid-telx1.

    data : l_check.

    loop at p_it_mailid where telx1 <> l_temp.

    l_check = c_x.

    endloop.

    • For checking the unique ids

    if l_check = c_x.

    if p_l_c1 = '1'.

    message e000 with 'No unique mail-ids for report1'(058).

    elseif p_l_c1 = '2'.

    message e000 with 'No unique mail-ids for report2'(065).

    endif.

    endif.

    • Populating the IDs for the cost centers

    loop at p_it_mailid.

    set locale language sy-langu.

    translate p_it_mailid-telx1 to lower case.

    set locale language space .

    concatenate p_it_mailid-telx1 '@allergan.com' into l_temp.

    p_s_email-low = l_temp.

    p_s_email-sign = 'I'.

    p_s_email-option = 'EQ'.

    append p_s_email.

    clear p_s_email.

    endloop.

    else.

    if p_l_c1 = '1'.

    message e000 with 'No Cost Center Available for report1'(057).

    elseif p_l_c1 = '2'.

    message e000 with 'No Cost Center Available for report2'(063).

    endif.

    endif.

    endform. " read_variants

    &----


    *& Form CONVERSION

    &----


    • For Conversion Routine

    ----


    form conversion using p_it_valutab_low type c.

    call function 'CONVERSION_EXIT_ALPHA_INPUT'

    exporting

    input = p_it_valutab_low

    importing

    output = p_it_valutab_low.

    endform. " CONVERSION

    chk this one to send script to pdf

    http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm

    plzz refer to this link..it will solve ur problem

    sending-a-pdf-document-as-an-attachment

    sending-the-mail-with-pdf-attachment

    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/62ae7fcd-0b01-0010-3e9d-a54f26944450

    Regards

    Sree

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jun 13, 2007 at 10:13 AM

    Hi

    We create Std texts in the Transaction SO10

    Give some Text ID and Language and create the text.

    Yes you can create in different languages

    And these texts are client specific and you have to transport to each client explicitely

    Using the Program RSTXTRAN you can transport this texts to other clients

    These texts are printed in SCript using the INCLUDE command

    /: INCLUDE TEXT<id> OBJECT< name> LANGuage <EN> Paragraph <name>

    Reward points for useful Answers

    Regards

    Anji

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jun 13, 2007 at 10:16 AM

    Hi,

    Standard texts are nothing but 'fix texts' e.g. PO terms & conditions which are fixed irrespective of the PO contents. They are maintained viz SO10. Advantage of standard texts is they can be directly 'included' in SAP scripts without doing any coding. e..g if you want to print the terms & conditions on PO just define an element say FOOTER in the main window of your SAP script which will contain only 2 statements viz: /: NEW-PAGE ( For strat printing on new page ) &

    /: INCLUDE ZPO_TERMS_AND_CONDITIONS OBJECT TEXT ID ST LANGUAGE EN

    & use write_form to write the element in the footer. If there is any change/addition in PO terms & conditions just maintain them via SO10, no need to tuch the code.

    I hope this helps,

    Regards,

    Raju Chitale

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jun 13, 2007 at 10:19 AM

    Hi,

    Standard Text is created in SO10. Create the required text over here n include them in script. U can use them any where needed. Transport the text from one client to other if u want to use in other client

    Regards,

    Priyanka.

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.