topic subroutines in scripts in Application Development and Automation Discussions

topic subroutines in scripts in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640402#M607797 <HTML><HEAD></HEAD><BODY><P>Hi experts, </P><P>I have a requirement.</P><P>i want to print the 'kunnr' 'name1' 'ort01' 'land1' in the address window of a script.</P><P>i am taking 'kunnr' as the input from the selection screen as select-options.</P><P>Now, i want to call a subroutine in the address window of the Form, for extracting the data.</P><P>Please tell me what to right in the address window editor.</P><P>and also please show the subroutine code to extract the data to be written in the print program.</P><P></P><P>thankyou.</P></BODY></HTML> Mon, 27 Aug 2007 15:25:56 GMT Former Member 2007-08-27T15:25:56Z subroutines in scripts https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640402#M607797 <HTML><HEAD></HEAD><BODY><P>Hi experts, </P><P>I have a requirement.</P><P>i want to print the 'kunnr' 'name1' 'ort01' 'land1' in the address window of a script.</P><P>i am taking 'kunnr' as the input from the selection screen as select-options.</P><P>Now, i want to call a subroutine in the address window of the Form, for extracting the data.</P><P>Please tell me what to right in the address window editor.</P><P>and also please show the subroutine code to extract the data to be written in the print program.</P><P></P><P>thankyou.</P></BODY></HTML> Mon, 27 Aug 2007 15:25:56 GMT https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640402#M607797 Former Member 2007-08-27T15:25:56Z Re: subroutines in scripts https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640403#M607798 <HTML><HEAD></HEAD><BODY><P>Syntax goes like this</P><P>/: PERFORM <form> IN PROGRAM <prog></P><P>/: USING &INVAR1&</P><P>/: USING &INVAR2&</P><P>......</P><P>/: CHANGING &OUTVAR1&</P><P>/: CHANGING &OUTVAR2&</P><P>......</P><P>/: ENDPERFORM</P><P></P><P>INVAR1 and INVAR2 are variable symbols and may be of any of the four SAPscript symbol types. </P><P></P><P>OUTVAR1 and OUTVAR2 are local text symbols and must therefore be character strings. </P><P></P><P></P><P>Example:</P><P>In script form</P><P></P><P>/: PERFORM READ_TEXTS IN PROGRAM 'Z08M1_FORM_EKFORM1'</P><P>/: USING &EKKO-EKORG&</P><P>/: USING &EKPO-WERKS&</P><P>/: USING &EKKO-EKGRP&</P><P>/: USING &EKKO-BSTYP&</P><P>/: CHANGING &COMPNAME&</P><P>/: CHANGING &SENDADR&</P><P>/: CHANGING &INVCADR&</P><P>/: CHANGING &COMPADR&</P><P>/: CHANGING &COVERLTR&</P><P>/: CHANGING &SHIPADR&</P><P>/: CHANGING &REMINDER&</P><P>/: CHANGING &REJECTION&</P><P>/: CHANGING &POSTADR&</P><P>/: CHANGING &LOGO&</P><P>/: ENDPERFORM</P><P></P><P></P><P>In program</P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>FORM Read_texts - To extract the standard texts from the table *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>FORM READ_TEXTS TABLES IN_PAR STRUCTURE ITCSY</P><P>OUT_PAR STRUCTURE ITCSY.</P><P></P><P>DATA : L_EKORG TYPE EKORG,</P><P>L_WERKS TYPE WERKS_D,</P><P>L_BSTYP TYPE BSTYP,</P><P>L_EKGRP TYPE BKGRP.</P><P></P><P>READ TABLE IN_PAR WITH KEY 'EKKO-EKORG' .</P><P>CHECK SY-SUBRC = 0.</P><P>L_EKORG = IN_PAR-VALUE.</P><P></P><P></P><P>READ TABLE IN_PAR WITH KEY 'EKPO-WERKS' .</P><P>CHECK SY-SUBRC = 0.</P><P>L_WERKS = IN_PAR-VALUE.</P><P></P><P>READ TABLE IN_PAR WITH KEY 'EKKO-EKGRP' .</P><P>CHECK SY-SUBRC = 0.</P><P>L_EKGRP = IN_PAR-VALUE.</P><P></P><P></P><P>READ TABLE IN_PAR WITH KEY 'EKKO-BSTYP' .</P><P>CHECK SY-SUBRC = 0.</P><P>L_BSTYP = IN_PAR-VALUE.</P><P></P><P>CLEAR Z08M1_ORG_TEXTS.</P><P></P><P>SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG</P><P>AND WERKS = L_WERKS</P><P>AND EKGRP = L_EKGRP</P><P>AND BSTYP = L_BSTYP.</P><P>IF SY-SUBRC NE 0.</P><P>SELECT SINGLE * FROM Z08M1_ORG_TEXTS WHERE EKORG = L_EKORG</P><P>AND WERKS = L_WERKS</P><P>AND EKGRP = L_EKGRP</P><P>AND BSTYP = SPACE.</P><P>ENDIF.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'COMPNAME'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COMP.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'SENDADR'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_ADRS.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'INVCADR'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_INVC.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'COMPADR'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_CPAD.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'COVERLTR'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_COVR.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'SHIPADR'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_SHIP.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'REMINDER'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RMDR.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'REJECTION'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_RJCT.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'POSTADR'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_POST.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>READ TABLE OUT_PAR WITH KEY 'LOGO'.</P><P>OUT_PAR-VALUE = Z08M1_ORG_TEXTS-TXT_LOGO.</P><P>MODIFY OUT_PAR INDEX SY-TABIX.</P><P></P><P>ENDFORM.</P></BODY></HTML> Mon, 27 Aug 2007 15:36:01 GMT https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640403#M607798 Former Member 2007-08-27T15:36:01Z Re: subroutines in scripts https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640404#M607799 <HTML><HEAD></HEAD><BODY><P>/:PERFORM GET_DATa IN PROGRAM ztest</P><P>/:USING &kna1-kunnr&</P><P>/:CHANGING &OUTVAR1&</P><P>/: CHANGING &OUTVAR2&</P><P>/:CHANGING &OUTVAR3&</P><P>/: ENDPERFORM.</P><P></P><P>in ztest program write the fallowing code in se38 editor.</P><P></P><P>form get_data tables in_par structure itcsy</P><P> out_par structure itcsy.</P><P></P><P>data:w_kunnr type kna1-kunnr,</P><P> v_var1 type kna1-name1,</P><P> v_var2 type kna1-ort01,</P><P> v_var3 type kna1-land1,</P><P> lv_index type sy-tabix.</P><P></P><P>read table in_par with key 'KNA1-KUNNR'.</P><P>if sy-subrc eq 0.</P><P>w_kunnr = in_par-value.</P><P>endif.</P><P></P><P>select single name1</P><P> ort01</P><P> land1</P><P> from kna1</P><P> into (v_var1,v_var2,v_var3)</P><P> where kunnr = w_kunnr.</P><P></P><P>read table out_par with key 'OUTVAR1'.</P><P>if sy-subrc eq 0.</P><P>move v_var1 to out_par-value.</P><P>move sy-tabix to lv_tabix.</P><P>endif.</P><P>clear out_par.</P><P></P><P>read table out_par with key 'OUTVAR2'.</P><P>if sy-subrc eq 0.</P><P>move v_var2 to out_par-value.</P><P>move sy-tabix to lv_tabix.</P><P>endif.</P><P>clear out_par.</P><P></P><P>read table out_par with key 'OUTVAR3'.</P><P>if sy-subrc eq 0.</P><P>move v_var3 to out_par-value.</P><P>move sy-tabix to lv_tabix.</P><P>endif.</P><P>clear out_par.</P><P></P><P>modify out_par index lv_tabix.</P><P>endform.</P></BODY></HTML> Mon, 27 Aug 2007 15:43:25 GMT https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640404#M607799 Former Member 2007-08-27T15:43:25Z Re: subroutines in scripts https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640405#M607800 <HTML><HEAD></HEAD><BODY><P>Hi viki,</P><P></P><P>Is there any specific reason why you want to use Subroutines in this case?</P><P></P><P>We use subroutines in sap scripts, when we have to implement some big logic that we can not implement in sap script editor.</P><P></P><P>For your case, the best way will be to fill the work areas in your driver program and simply write them in you sap script using &var1& &var2& etc..</P><P></P><P>Make a text element in your address window:</P><P></P><P>/E ADDRESS</P><UL><LI level="1" type="ul"><P>&w_kunnr&,,&kna1-name1&,,&kna1-ort01&,,&kna1-land1&</P></LI></UL><P></P><P>In your driver program do this:</P><P></P><P>SELECT SINGLE name1 ort01 land1</P><P>FROM KNA1</P><P>WHERE kunnr EQ w_kunnr.</P><P></P><P>IF sy-subrc EQ 0.</P><P></P><P>CALL FUNCTION WRITE_FORM</P><P>EXPORTING</P><P>WINDOW = 'address'</P><P>ELEMENT = 'ADDRESS'</P><P></P><P>ENDIF.</P><P></P><P>Thanks and Best Regards,</P><P>Vikas Bittera.</P><P></P><P>**<STRONG>Points for Usefull answers <SPAN __jive_emoticon_name="happy"></SPAN></STRONG>**</P></BODY></HTML> Mon, 27 Aug 2007 16:38:40 GMT https://community.sap.com/t5/application-development-and-automation-discussions/subroutines-in-scripts/m-p/2640405#M607800 Former Member 2007-08-27T16:38:40Z