field catalog

[Former Member]

HI..

This and a similar sample plz...

CASE X

WHEN P_B1. <----&#44221;&#50689;&#51221;&#48372;&#51064;&#44221;&#50864; &#54596;&#46300;&#52852;&#53448;&#47196;&#44536; &#46321;&#47197;

PERFORM CATALOG USING:

'X' 'MATNR' '' 'MARA' 'MATNR'

'' '' '' '' '' 'X' '' '' '' '' '' '&#51088;&#51116;&#48264;&#54840;',

' ' 'MAKTX' '' 'MAKT' 'MAKTX'

'' '' '' '' '' '' '' '' '' '' '' '&#51088;&#51116;&#45236;&#50669;',

' ' 'EBELN' '' 'EKKO' 'EBELN'

'' '' '' '' '' '' '' '' '' '' '' 'P/O',

' ' 'EBELP' '' 'EKPO' 'EBELP'

'' '' '' '' '' '' '' '' '' '' '' 'P/O ITEM',

' ' 'STATU' '' 'EKKO' 'STATU'

'' '' '' '' '' '' '' '' '' '' '' 'STATUS',

' ' 'MENGE' '' 'EKPO' 'MENGE'

'' '' '' '' '' '' '' '' '' '' '' '&#49688;&#47049;',

' ' 'MEINS' '' 'EKPO' 'MEINS'

'' '' '' '' '' '' '' '' '' '' '' '&#45800;&#50948;'.

WHEN P_B2. <----&#48372;&#50976;&#53664;&#51648;&#51068;&#44221;&#50864; PERFORM CATALOG USING:<

'X' 'MATNR' '' 'MARA' 'MATNR'

'' '' '' '' '' 'X' '' '' '' '' '' '&#51088;&#51116;&#48264;&#54840;',

' ' 'MAKTX' '' 'MAKT' 'MAKTX'

'' '' '' '' '' '' '' '' '' '' '' '&#51088;&#51116;&#45236;&#50669;',

' ' 'EBELN' '' 'EKKO' 'EBELN'

'' '' '' '' '' '' '' '' '' '' '' 'P/O',

' ' 'EBELP' '' 'EKPO' 'EBELP'

'' '' '' '' '' '' '' '' '' '' '' 'P/O ITEM',

' ' 'STATU' '' 'EKKO' 'STATU'

'' '' '' '' '' '' '' '' '' '' '' 'STATUS',

' ' 'MENGE' '' 'EKPO' 'MENGE'

'' '' '' '' '' '' '' '' '' '' '' '&#49688;&#47049;',

' ' 'MEINS' '' 'EKPO' 'MEINS'

'' '' '' '' '' '' '' '' '' '' '' '&#45800;&#50948;'.

ENDCASE.

FORM CATALOG USING PP_KEY TYPE C

PP_FIELDNAME LIKE DD03P-FIELDNAME

PP_TABNAME LIKE DD03P-TABNAME

PP_REF_TABNAME LIKE DD03P-TABNAME

PP_REF_FIELDNAME LIKE DD03P-FIELDNAME

PP_REPTEXT_DDIC LIKE DD03P-REPTEXT

PP_DO_SUM TYPE C

VALUE(PP_OUTPUTLEN)

PP_JUST TYPE C

PP_TECH TYPE C

PP_FIX_COLUMN TYPE C

VALUE(PP_EMPHASIZE)

PP_QFIELDNAME LIKE DD03P-FIELDNAME

PP_QTABNAME LIKE DD03P-TABNAME

PP_CFIELDNAME LIKE DD03P-FIELDNAME

PP_CTABNAME LIKE DD03P-TABNAME

SCRTEXT LIKE DD03P-SCRTEXT_L.

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

G_COLPOS = G_COLPOS + 1.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = G_COLPOS.

LS_FIELDCAT-KEY = PP_KEY.

LS_FIELDCAT-FIELDNAME = PP_FIELDNAME.

• Field Title &#49688;&#51221;

IF SCRTEXT IS NOT INITIAL.

LS_FIELDCAT-SELTEXT_L = SCRTEXT.

LS_FIELDCAT-SELTEXT_M = SCRTEXT.

LS_FIELDCAT-SELTEXT_S = SCRTEXT.

LS_FIELDCAT-REPTEXT_DDIC = SCRTEXT.

ENDIF.

LS_FIELDCAT-TABNAME = PP_TABNAME.

LS_FIELDCAT-REF_TABNAME = PP_REF_TABNAME.

LS_FIELDCAT-REF_FIELDNAME = PP_REF_FIELDNAME.

LS_FIELDCAT-REPTEXT_DDIC = PP_REPTEXT_DDIC.

LS_FIELDCAT-OUTPUTLEN = PP_OUTPUTLEN.

LS_FIELDCAT-DO_SUM = PP_DO_SUM.

• ls_fieldcat-no_zero = pp_no_zero.

• --> &#51221;&#47148;

LS_FIELDCAT-JUST = PP_JUST.

LS_FIELDCAT-TECH = PP_TECH.

• --> FIELD&#47484; &#48372;&#51060;&#51648; &#50506;&#44172;

• ls_fieldcat-no_out = pp_no_out.

LS_FIELDCAT-FIX_COLUMN = PP_FIX_COLUMN.

• --> &#44053;&#51312;

LS_FIELDCAT-EMPHASIZE = PP_EMPHASIZE.

• --> &#49688;&#47049; &#54596;&#46300;

LS_FIELDCAT-QFIELDNAME = PP_QFIELDNAME.

LS_FIELDCAT-QTABNAME = PP_QTABNAME.

• --> &#53685;&#54868; &#54596;&#46300;

LS_FIELDCAT-CFIELDNAME = PP_CFIELDNAME.

LS_FIELDCAT-CTABNAME = PP_CTABNAME.

LS_FIELDCAT-DDICTXT = 'M'.

• IF PP_FIELDNAME = 'KZUMW'.

• LS_FIELDCAT-CHECKBOX = 'X'.

• ENDIF.

APPEND LS_FIELDCAT TO GT_FIELDCAT.

ENDFORM. " catalog

[Former Member]

What is the issue here?

Regards,

Atish