topic Re: problem in using - changing parameter in Application Development and Automation Discussions

problem in using - changing parameter

Former Member — Tue, 09 Feb 2010 15:32:45 GMT

hi all , I have problem in cahange valule.

 FORM logo TABLES  in_tab STRUCTURE itcsy
                  out_tab STRUCTURE itcsy.

  DATA : pernr TYPE p_pernr,
         bukrs TYPE bukrs,
         begda TYPE begda.
  TABLES : ztable

  DATA: BEGIN OF p0001 OCCURS 10.
          INCLUDE STRUCTURE p0001.
  DATA: END OF p0001.

  READ TABLE in_tab WITH KEY name = 'PTXT1-BEGDA'.
  begda = in_tab-value.

  READ TABLE out_tab WITH KEY name = 'PTXT1-PERNR'.
  pernr = in_tab-value.

  rp-read-infotype pernr 0001 p0001 begda begda.


  SELECT SINGLE * FROM ztable WHERE bukrs = p0001-bukrs.
 IF sy-subrc EQ 0.

    MOVE 'LOGO' TO out_tab-name.
    MOVE zpkom-logo TO out_tab-value.
    APPEND out_tab.
  ENDIF.

ENDFORM.                    "logo

 
/:	 	PERFORM LOGO IN Z_SUBR
/:	 	USING &PTXT1-PERNR&
/:	 	USING &PTXT1-BEGDA&
/:	 	CHANNGING &LOGO&
/:	 	ENDFORM

logo is some value that I will use in sap script later.

Re: problem in using - changing parameter

Former Member — Tue, 09 Feb 2010 15:40:01 GMT

hi,

logo is a value or a variable.

if it is a value no need to pass it in changing.

if it is a variable then why have you passed logo in quotes in the move statement,

regards,

sakshi

Re: problem in using - changing parameter

david_escofettrenado — Tue, 09 Feb 2010 15:50:32 GMT

Hello,

I think that correct code is:



 FORM logo TABLES  in_tab STRUCTURE itcsy
                  out_tab STRUCTURE itcsy.
 
  DATA : pernr TYPE p_pernr,
         bukrs TYPE bukrs,
         begda TYPE begda.
  TABLES : ztable
 
  DATA: BEGIN OF p0001 OCCURS 10.
          INCLUDE STRUCTURE p0001.
  DATA: END OF p0001.
 
  READ TABLE in_tab WITH KEY name = 'PTXT1-BEGDA'.
  begda = in_tab-value.
 
  READ TABLE out_tab WITH KEY name = 'PTXT1-PERNR'.
  pernr = in_tab-value.
 
  rp-read-infotype pernr 0001 p0001 begda begda.
 
 
  SELECT SINGLE * FROM ztable WHERE bukrs = p0001-bukrs.
 IF sy-subrc EQ 0.

READ TABLE out_tab with key 'LOGO'.


    MOVE zpkom-logo TO out_tab-value.

    MODIFY out_tab INDEX sy-tabix.

  ENDIF.
 
ENDFORM.                    "logo



/:	 	PERFORM LOGO IN PROGRAM Z_SUBR
/:	 	USING &PTXT1-PERNR&
/:	 	USING &PTXT1-BEGDA&
/:	 	CHANGING &LOGO&
/:	 	ENDPERFORM

Re: problem in using - changing parameter

Former Member — Tue, 09 Feb 2010 16:00:37 GMT

It would help if you would tell us exactly what the problem is.

Rob

Re: problem in using - changing parameter

Former Member — Tue, 09 Feb 2010 16:14:44 GMT

hi,

so now is the problem resolved.

regards,

sakshi.