topic Re: sap script perform subroutine in Application Development and Automation Discussions

sap script perform subroutine

Former Member — Fri, 01 Feb 2008 12:38:31 GMT

i got this sample code from sdn, but i have a dobt in this code.

here in form subroutine giving i_intpar and i_outpar i just wanted to know should we declare this structure before writing the subroutine,and what would be that structure

just explain this below code in detail,

pls help

Code this form routine in your script.

/: PERFORM GET_PYMT_DUE_IN IN PROGRAM ZSROINVOICE

/: USING &VBDKR-VBELN&

/: USING &VBDKR-FKDAT&

/: USING &VBDKR-ZTERM&

/: CHANGING &PYMNTDUE&

code it in ur driver program to fetch the details.

FORM get_pymt_due TABLES i_intpar STRUCTURE itcsy

i_outpar STRUCTURE itcsy.

DATA : wa_fkdat LIKE sy-datum,

wa_ztag2 LIKE t052-ztag2,

wa_pymnt LIKE sy-datum.

READ TABLE i_intpar WITH KEY name = 'VBDKR-FKDAT'.

IF sy-subrc = 0.

CONCATENATE i_intpar-value6(4) i_intpar-value3(2)

i_intpar-value+0(2)

INTO wa_fkdat.

ENDIF.

READ TABLE i_intpar WITH KEY name = 'VBDKR-ZTERM'.

IF sy-subrc = 0.

Payment Terms

SELECT SINGLE ztag2

INTO wa_ztag2

FROM t052

WHERE zterm = i_intpar-value.

ENDIF.

wa_pymnt = wa_fkdat + wa_ztag2.

MOVE 'PYMNTDUE' TO i_outpar-name.

CONCATENATE wa_pymnt6(2) '.' wa_pymnt4(2) '.' wa_pymnt+0(4) INTO

i_outpar-value.

APPEND i_outpar.

CLEAR i_outpar.

ENDFORM.

pls help

Re: sap script perform subroutine

Former Member — Fri, 01 Feb 2008 12:42:56 GMT

Hi Jamshad,

Program is ok! Tables have a predefined structure being ITCSY.

Regards,

John.

Re: sap script perform subroutine

Former Member — Fri, 01 Feb 2008 12:46:04 GMT

Hope it will help you.

Pls reward if help.

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.