subroutine call in sapscript

Former Member — Mon, 29 Oct 2007 16:15:26 GMT

hii guys,

1. provide me a example program for subroutine call

2. as i want add fielda in form

3.provide me driver program not only step or u provide me

1. driver program

2. field i want to add in driver program as well as in form.

3. steps by step.

regards

rahul

Re: subroutine call in sapscript

Former Member — Mon, 29 Oct 2007 16:54:47 GMT

No need of touching the original Driver program

Write a perform in Script and program in SE38 and do

see the examples

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.