problem in using - changing parameter

[Former Member]

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.

[Former Member]

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

[david_escofettrenado]

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

[Former Member]

hi,

so now is the problem resolved.

regards,

sakshi.

[Former Member]

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

Rob