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

Sap Script

Hi

Can anyone give me example of writing perform statement in SAP Script.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

3 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Apr 03, 2008 at 08:35 AM

    Usage of Perform statement:

    Just assume that we have all the data in sapscript, but only we needs to get one field, for this reason we can't change the Print program, so in this case SAP prefers to use PERFORM statement.

    Ex: i have a vendor number in script, but i wanted to print vendor name, so i will follow below code to get the vendor name.

    
    i.e in Script we will write like this....
    /: define &LIFNR& = &ITAB-LIFNR&.
    /: DEFINE &NAME1& = ' '.
    /: PEFORM GET_NAME IN PROGRAM ZNAME
    /: USING &LIFNR&
    /: CHANGING &NAME1&.
    
    VENDOR NAME : &NAME1& 
    
    SE38:
    CREATE a program ZNAME.
    
    write the code like below.
    FORM GET_NAME TABLES IT_INPUT STRUCTURE ITCSY
    IT_OUTPUT STRUCTURE ITCSY.
    DATA:
    V_LIFNR LIKE LFA1-LIFNR,
    V_NAME LIKE LFA1-NAME1.
    
    READ TABLE IT_INPUT WITH KEY 'LIFNR'.
    IF SY-SUBRC = 0.
    MOVE IT_INPUT-VALUE TO V_LIFNR.
    ENDIF.
    
    SELECT SINGLE NAME1 
    FROM LFA1 
    INTO V_NAME1 
    WHERE LIFNR = V_LIFNR.
    
    READ TABLE IT_OUTPUT WITH KEY 'NAME1'.
    IF SY-SUBRC = 0.
    MOVE V_NAME1 TO IT_OUTPUT-VALUE.
    MODIFY IT_OUTPUT INDEX SY-TABIX.
    ENDIF.
    
    

    Add a comment
    10|10000 characters needed characters exceeded

  • Posted on Apr 03, 2008 at 08:38 AM

    PERFORM GET_DATA IN PROGRAM ZGET_KNB5_KNB1

    USING &REGUH-KUNNR&

    USING &REGUH-ZBUKR&

    CHANGING &OUR_STCEG&

    CHANGING &YOUR_STCEG&.

    ENDPERFORM.

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Apr 03, 2008 at 09:11 AM

    Hi,

    You can use the PERFORM command to call an ABAP subroutine

    (form) from

    any program, subject to the normal ABAP runtime

    authorization

    checking. You can use such calls to subroutines for

    carrying out

    calculations, for obtaining data from the database that is

    needed at

    display or print time, for formatting data, and so on.

    PERFORM commands, like all control commands, are executed

    when a

    document is formatted for display or printing.

    Communication between a

    subroutine that you call and the document is by way of

    symbols whose

    values are set in the subroutine.

    The system does not execute the PERFORM command within

    SAPscript

    replace modules, such as TEXT_SYMBOL_REPLACE or

    TEXT_INCLUDE_REPLACE.

    The replace modules can only replace symbol values or

    resolve include

    texts, but not interpret SAPscript control commands.

    Syntax in a form window:

    /: PERFORM <form> IN PROGRAM <prog>

    /: 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.

    The ABAP subroutine called via the command line stated

    above must be

    defined in the ABAP report prog as follows:

    FORM <form> TABLES IN_TAB STRUCTURE ITCSY

    OUT_TAB STRUCTURE ITCSY.

    ...

    ENDFORM.

    The values of the SAPscript symbols passed with /: USING...

    are now

    stored in the internal table IN_TAB . Note that the system

    passes the

    values as character string to the subroutine, since the

    field Feld

    VALUE in structure ITCSY has the domain TDSYMVALUE (CHAR

    80). See the

    example below on how to access the variables.

    The internal table OUT_TAB contains names and values of the

    CHANGING

    parameters in the PERFORM statement. These parameters are

    local text

    symbols, that is, character fields. See the example below

    on how to

    return the variables within the subroutine.

    From within a SAPscript form, a subroutine GET_BARCODE in

    the ABAP

    program QCJPERFO is called. Then the simple barcode

    contained there

    ('First page', 'Next page', 'Last page') is printed as

    local variable

    symbol.

    Definition in the SAPscript form:

    /: PERFORM GET_BARCODE IN PROGRAM QCJPERFO

    /: USING &PAGE&

    /: USING &NEXTPAGE&

    /: CHANGING &BARCODE&

    /: ENDPERFORM

    /

    / &BARCODE&

    Coding of the calling ABAP program:

    REPORT QCJPERFO.

    FORM GET_BARCODE TABLES IN_PAR STUCTURE ITCSY

    OUT_PAR STRUCTURE ITCSY.

    DATA: PAGNUM LIKE SY-TABIX, "page number

    NEXTPAGE LIKE SY-TABIX. "number of next page

    READ TABLE IN_PAR WITH KEY 'PAGE'.

    CHECK SY-SUBRC = 0.

    PAGNUM = IN_PAR-VALUE.

    READ TABLE IN_PAR WITH KEY 'NEXTPAGE'.

    CHECK SY-SUBRC = 0.

    NEXTPAGE = IN_PAR-VALUE.

    READ TABLE OUT_PAR WITH KEY 'BARCODE'.

    CHECK SY-SUBRC = 0.

    IF PAGNUM = 1.

    OUT_PAR-VALUE = '|'. "First page

    ELSE.

    OUT_PAR-VALUE = '||'. "Next page

    ENDIF.

    IF NEXTPAGE = 0.

    OUT_PAR-VALUE+2 = 'L'. "Flag: last page

    ENDIF.

    MODIFY OUT_PAR INDEX SY-TABIX.

    ENDFORM.

    with regards,

    sowjanyagosala

    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.