sapscript calling forms from program

[Former Member]

Hi experts

I need to write a form in a program to get values.

Here is my code. But i cant seem to succesfully compile it. Need help. I want to take

ernam from sapscript and send name and lastname back. Can u please fill the function.

Also i have an error says itcyy is not a structure ?

thanks.

REPORT ZME23N_SAPSCR_FM.

tables : user_Addr.

form get_Values TABLES IN_PAR STUCTURE ITCSY

OUT_PAR STRUCTURE ITCSY.

*READ TABLE IN_PAR WITH KEY 'ERNAM'.

*

*data firstname like user_addr-name_first.

*select single * from user_Addr

*where bname = ernam.

*

*firstname = user_Addr-name_first.

*lastname = user_addr-name_last.

endform.

[Former Member]

Hi,

In sapscript write this in editor.

Perform Performname in program <program name> using <ernam> changing <fieldname>.

then in program write

form <performname>TABLES IN_PAR STUCTURE ITCSY

OUT_PAR STRUCTURE ITCSY.

read table in_par with key name = 'ERNAM'.

..

ur logic.

...read table out_par with key name = ' '.

out_par- value = field value.

modify out_par.

endform.

[Former Member]

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.

[Former Member]

REPORT ZME23N_SAPSCR_FM.

tables : user_Addr.

form get_Values TABLES IN_PAR STUCTURE ITCSY

OUT_PAR STRUCTURE ITCSY.

endform.

in this structure i am taking this error on compilation.

Parameter "OUT_PAR" STRUCTURE "ITCSY" - field "ITCSY" is not a strucutre.

Pls help

[Former Member]

Hi,

You can do this using perform in the script.

Go through the below documentations.

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.

Reward some points.

Regards,

Anomitro Guha