How to pick up the CDHDR-CHANGE ID value, based on EBELN at where condition

[Former Member]

TYPES: BEGIN OF TY_CDHDR,

OBJECTID TYPE CDHDR-OBJECTID,

USERNAME TYPE CDHDR-USERNAME,

UDATE TYPE CDHDR-UDATE,

END OF TY_CDHDR.

SELECT ebeln bukrs bsart aedat ernam lifnr ekorg

FROM ekko

INTO TABLE gt_ekko

WHERE ebeln IN s_ebeln

AND bsart IN s_bsart

AND bedat IN s_bedat

AND ernam IN s_ernam.

IF sy-subrc EQ 0.

SELECT ebeln ebelp matnr

FROM ekpo

INTO TABLE gt_ekpo

FOR ALL ENTRIES IN gt_ekko

WHERE ebeln EQ gt_ekko-ebeln

AND matnr IN s_matnr.

IF gt_ekpo[] IS NOT INITIAL.

SELECT ebeln ebelp etenr eindt menge

FROM eket

INTO TABLE gt_eket

FOR ALL ENTRIES IN gt_ekpo

WHERE ebeln EQ gt_ekpo-ebeln

AND ebelp EQ gt_ekpo-ebelp.

IF sy-subrc EQ 0.

SELECT objectid username udate

FROM cdhdr

INTO TABLE gt_cdhdr

WHERE changeid EQ gt_ekpo-ebeln.

This is the exsisting code where i am getting a dump. Can you guys help me in this.

[GauthamV]

use this fm to convert ebeln before passing to cdhdr table.

CONVERSION_EXIT_ALPHA_INPUT

[former_member188827]

what exactly is the error message?

[Former Member]

Actually there is no error message, the cdhdr-changeid is of 90 chars and ekpo-ebeln is of 10 that's why this error message is coming.

[Former Member]

Hi super3013,

Modifiy as below :

TYPES: BEGIN OF TY_CDHDR,
OBJECTID TYPE CDHDR-OBJECTID,
USERNAME TYPE CDHDR-USERNAME,
UDATE TYPE CDHDR-UDATE,
END OF TY_CDHDR. 

SELECT ebeln bukrs bsart aedat ernam lifnr ekorg
FROM ekko INTO TABLE gt_ekko
  WHERE ebeln IN s_ebeln
    AND bsart IN s_bsart
    AND bedat IN s_bedat
    AND ernam IN s_ernam.

IF NOT gt_ekko[] IS INITIAL.
SELECT ebeln ebelp matnr
FROM ekpo INTO TABLE gt_ekpo
FOR ALL ENTRIES IN gt_ekko
  WHERE ebeln EQ gt_ekko-ebeln
    AND matnr IN s_matnr.
ENDIF.  

IF gt_ekpo[] IS NOT INITIAL.
SELECT ebeln ebelp etenr eindt menge
FROM eket INTO TABLE gt_eket
FOR ALL ENTRIES IN gt_ekpo
  WHERE ebeln EQ gt_ekpo-ebeln
    AND ebelp EQ gt_ekpo-ebelp.
 
  
SELECT objectid username udate
FROM cdhdr
INTO TABLE gt_cdhdr
FOR ALL ENTRIES IN gt_ekpo  
*  WHERE changeid EQ gt_ekpo-ebeln.  
  WHERE CHANGENR EQ gt_ekpo-ebeln.    
ENDIF.

There is no changeid Field of 90 chars in table CDHDR (but we have OBJECTID - 90 Char)

There is a field CHANGENR which is of 10 chars make use of it (Document change number).

[Former Member]

SELECT objectid username udate

FROM cdhdr

INTO TABLE gt_cdhdr

WHERE changeid EQ gt_ekpo-ebeln.

Instead of change id in query it shd be :-

SELECT objectid username udate

FROM cdhdr

INTO TABLE gt_cdhdr

WHERE OBJECTID EQ gt_ekpo-ebeln.

[Former Member]

This function module (conversion_exit_alpha_input) is not helping me, as the select statement itself is failing.

[Former Member]

how are u getting CHANGEID field in this table???? i get OBJECTID.

[Former Member]

sorry for the mistypo, The field name is objectid

Now i have tried with ,

select objectid username udate

from cdhdr

into table gt_cdhdr

where objectid eq gt_ekpo-ebeln.

The program is getting a dump.

[Former Member]

If you use this like

SELECT objectid username udate

FROM cdhdr

INTO TABLE gt_cdhdr

for all entries in gt_ekpo

WHERE objectid eq gt_ekpo-ebeln.

it is getting an activation error the field objectid and gt_ekpo-ebeln

must be of same type & length.

[Former Member]

SELECT objectid username udate

FROM cdhdr

INTO TABLE gt_cdhdr

for all entries in gt_ekpo

WHERE changenr eq gt_ekpo-ebeln.

this wont work, as the changenr is indicationg, the change document

number.

[Former Member]

My dear this is going to work as OBJECTID is the value of PURCHASE ORDER NO. that u are changing.

As u are coding for PO ammendment i guess, The OBJECTID field refers to the Purch. Order no. (EKKO-EBELN) that is changed or created. U can check in the table entries too.

I ran ur program its giving no dump after changing CHANGEID to OBJECTID .

[Former Member]

Hi super3013,

Now with the help of Functional ask for a PO number which is in EKKO, EKPO, EKET and in CDHDR.

And check in Table content values and see how the data is stored in CDHDR.

Then think of your select statement how you need to fetch data from CDHDR

Regards,

Suneel G

[Former Member]

Hi,

Use the below function modules to get the header or item changes for Purchase Orders.

CHANGEDOCUMENT_READ_HEADERS

CHANGEDOCUMENT_READ_HDRS_ONLY

CHANGEDOCUMENT_READ_POSITIONS

Thanks,

Purna

[former_member205763]

To read the changes of PO better use fm ME_CHANGES_READ

[Former Member]

Hi,

call the fm: CONVERSION_EXIT_INPUT.

get the gt_ekpo-ebeln value : 0000007777(example)

select objectid

username

changeid

udate from cdhdr into table gt_cdhdr

where changeid eq gt_ekpo-ebeln.

Then u will get the data.

Regards,

Naveen M.