topic At end / At New command in Application Development and Automation Discussions

At end / At New command

Former Member — Mon, 24 Aug 2009 07:51:45 GMT

Dear guys, I have following piece of code .Here in field itab_data-inco2 ,why data while printing comes "*****".

I can see values in itab_data-inco2 fetched .but while printing it prints "***************".

code:

SORT ITAB_DATA BY LIFNR EBELN.

LOOP AT ITAB_DATA.

AT NEW LIFNR.

NEW-PAGE.

ENDAT.

AT NEW EBELN.

CLEAR ITEM_CNT.

ENDAT.

ITEM_CNT = ITEM_CNT + 1.

AT END OF EBELN.

ADD 1 TO NUM_CNT.

SUM.

SELECT SINGLE * FROM EKKO

WHERE EBELN = ITAB_DATA-EBELN.

WRITE: /1 ' ',

2 NUM_CNT,

6 ITAB_DATA-EBELN,

18 ITAB_DATA-BSART,

23 ITAB_DATA-BEDAT,

33 ITEM_CNT,

46(13) ITAB_DATA-MENGE,

61(13) ITAB_DATA-NETWR CURRENCY EKKO-WAERS,

76(10) ITAB_DATA-VERKF,

89 ITAB_DATA-ANGNR.

IF ITAB_DATA-ANGNR = 'Y'.

WRITE: 93 ITAB_DATA-IHRAN.

ENDIF.

WRITE: 105 ITAB_DATA-INCO2.

VITEM_CNT = VITEM_CNT + ITEM_CNT.

ENDAT.

Re: At end / At New command

Former Member — Mon, 24 Aug 2009 07:57:01 GMT

Hi,

On control break events the data in the internal tables inside control break would be displayed as '****' other than the fields in the control break try like below:


SORT ITAB_DATA BY LIFNR EBELN.
LOOP AT ITAB_DATA.
move-corresponding itab_data into wa_data.<<<<create wa_data like itab_data and then use wa_data fields in the code
AT NEW LIFNR.
NEW-PAGE.
ENDAT.

AT NEW EBELN.
CLEAR ITEM_CNT.
ENDAT.

ITEM_CNT = ITEM_CNT + 1.

AT END OF EBELN.
ADD 1 TO NUM_CNT.
SUM.

SELECT SINGLE * FROM EKKO
WHERE EBELN = ITAB_DATA-EBELN.    <<<here u can use itab_data as the control break is on this field

WRITE: /1 ' ',
2 NUM_CNT,
6 ITAB_DATA-EBELN,  
18 ITAB_DATA-BSART,  << use wa_data-bsart
23 ITAB_DATA-BEDAT, <<wa_data-bedat
33 ITEM_CNT,
46(13) ITAB_DATA-MENGE, <<wa_data-menge
61(13) ITAB_DATA-NETWR CURRENCY EKKO-WAERS,
76(10) ITAB_DATA-VERKF,
89 ITAB_DATA-ANGNR.
IF ITAB_DATA-ANGNR = 'Y'.
WRITE: 93 ITAB_DATA-IHRAN.
ENDIF.

WRITE: 105 ITAB_DATA-INCO2.

VITEM_CNT = VITEM_CNT + ITEM_CNT.
ENDAT.

I hope you got the point.

Regards,

Himanshu

Re: At end / At New command

suredarreddy_pulimamidi — Mon, 24 Aug 2009 07:59:06 GMT

Hi,

Declare another work area and use this work area for display.

Regards,

Surendar Reddy.

Re: At end / At New command

Former Member — Mon, 24 Aug 2009 08:27:31 GMT

Either use field symbols for workarea or define new workare and move the content of previous workarea into new one and use this new workarea for printing.

Re: At end / At New command

Former Member — Mon, 24 Aug 2009 08:32:05 GMT

Hi,

At new field ....... endat will display only the field values specified in the field correctly.

It will initialise the numeric values and character values will be replaced by '*'(length will be similar to field lemgth).

ex:

Suppose n1,n2 to be integer type.

at new carrrid.

write : carrid, connid.

endat.

write:/ n1, n2.

output will be

AA **** 0 0

AZ **** 0 0

LH **** 0 0

Re: At end / At New command

MarcinPciak — Mon, 24 Aug 2009 08:35:53 GMT

These asterixes "***************" come because declaration part of ITAB is wrong, namely fields order. In declaration all key fields must be in front (must go first) in such way that the widest field value goes first, then its "subgroup", then next "subgroups" .Look at this example


Field1    Field2   Field3
A             1            x
A             1            y
A             2            z
B            3            v
B             4           n
B             4          m

Field1 have widest range, within each A, there are subgroups for Field2 , within Field2 there are some subgroups of Field3 . So fields order must be like hierarchy. The most general on left, then more detailed further to the right, and most detailed on the right. There cannot be situations like


A             1           
A             1          
A             1          
B            1           "<- here FIELD 1 will be shown as ********, becuase FIELD2  is more general and should be more detailed
B             4          
B             4

Regards

Marcin

Re: At end / At New command

Former Member — Mon, 24 Aug 2009 08:38:00 GMT

Hi Sudha,

try this out.

*SORT ITAB_DATA BY LIFNR EBELN.

LOOP AT ITAB_DATA into wa.

AT END OF EBELN.

ADD 1 TO NUM_CNT.

SUM.

SELECT SINGLE * FROM EKKO

WHERE EBELN = wa-EBELN.

WRITE: /1 ' ',

2 NUM_CNT,

6 wa-EBELN,

18 wa-BSART,

23 wa-BEDAT,

33 ITEM_CNT,

46(13) wa-MENGE,

61(13) wa-NETWR CURRENCY EKKO-WAERS,

76(10) wa-VERKF,

89 wa-ANGNR.

IF wa-ANGNR = 'Y'.

WRITE: 93 wa-IHRAN.

ENDIF.

WRITE: 105 wa-INCO2.

VITEM_CNT = VITEM_CNT + ITEM_CNT.

ENDAT.

AT NEW LIFNR.

NEW-PAGE.

ENDAT.

AT NEW EBELN.

CLEAR ITEM_CNT.

ENDAT.

ITEM_CNT = ITEM_CNT + 1.

ENDLOOP.*

Regards,

Vijay

Re: At end / At New command

Former Member — Wed, 12 Jan 2011 10:16:26 GMT

Hi guys ,

I am uable to close the Questions on SDN.Please guide

Re: At end / At New command

abdulgaffarmohd — Wed, 12 Jan 2011 10:26:28 GMT

Hi.,

Can you tell EBELN is first fields of internal table.

Regards.