Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

to read data from cluster table urgent

Former Member
0 Likes
356

i need to get personnel number(PERNR) from BSEG table which is a CLUSTER TABLE

what else i have to add in here to get personnel number(PERNR)

this code is giving no data only lots of ZEROS

FORM getexpcode1 TABLES in_tab21 STRUCTURE itcsy

out_tab21 STRUCTURE itcsy.

DATA : w_belnr LIKE bseg-belnr,

w_bukrs LIKE bseg-bukrs,

w_gjahr LIKE bseg-gjahr,

w_pernr like bseg-pernr,

w_invnos(255).

  • Read company code

READ TABLE in_tab21 INDEX 1.

IF sy-subrc = 0.

w_bukrs = in_tab21-value.

ENDIF.

  • Read document number

READ TABLE in_tab21 INDEX 2.

IF sy-subrc = 0.

w_belnr = in_tab21-value.

ENDIF.

  • Read Fiscal Year

READ TABLE in_tab21 INDEX 3.

IF sy-subrc = 0.

w_gjahr = in_tab21-value.

ENDIF.

SELECT pernr FROM bseg

INTO w_pernr

WHERE bukrs = w_bukrs

AND belnr = w_belnr

AND gjahr = w_gjahr.

ENDSELECT.

READ TABLE in_tab21 INDEX 1.

out_tab21-value = w_pernr.

MODIFY out_tab21 INDEX 1 TRANSPORTING value.

ENDFORM. "GETEXPCODE1

1 ACCEPTED SOLUTION
Read only

andreas_mann3
Active Contributor
0 Likes
320

hi,

try:

...

SELECT pernr FROM bseg
INTO w_pernr
WHERE bukrs = w_bukrs
AND belnr = w_belnr
AND gjahr = w_gjahr

AND PERNR <> SPACE.

ENDSELECT.

A.

Message was edited by:

Andreas Mann

i need to get personnel number(PERNR) from BSEG table which is a CLUSTER TABLE

what else i have to add in here to get personnel number(PERNR)

this code is giving no data only lots of ZEROS

FORM getexpcode1 TABLES in_tab21 STRUCTURE itcsy

out_tab21 STRUCTURE itcsy.

DATA : w_belnr LIKE bseg-belnr,

w_bukrs LIKE bseg-bukrs,

w_gjahr LIKE bseg-gjahr,

w_pernr like bseg-pernr,

w_invnos(255).

  • Read company code

READ TABLE in_tab21 INDEX 1.

IF sy-subrc = 0.

w_bukrs = in_tab21-value.

ENDIF.

  • Read document number

READ TABLE in_tab21 INDEX 2.

IF sy-subrc = 0.

w_belnr = in_tab21-value.

ENDIF.

  • Read Fiscal Year

READ TABLE in_tab21 INDEX 3.

IF sy-subrc = 0.

w_gjahr = in_tab21-value.

ENDIF.

SELECT pernr FROM bseg

INTO w_pernr

WHERE bukrs = w_bukrs

AND belnr = w_belnr

AND gjahr = w_gjahr.

ENDSELECT.

READ TABLE in_tab21 INDEX 1.

out_tab21-value = w_pernr.

MODIFY out_tab21 INDEX 1 TRANSPORTING value.

ENDFORM. "GETEXPCODE1

1 REPLY 1
Read only

andreas_mann3
Active Contributor
0 Likes
321

hi,

try:

...

SELECT pernr FROM bseg
INTO w_pernr
WHERE bukrs = w_bukrs
AND belnr = w_belnr
AND gjahr = w_gjahr

AND PERNR <> SPACE.

ENDSELECT.

A.

Message was edited by:

Andreas Mann