alv_list new version upgrade

[Former Member]

hi guys

i m getting another error s_variant if i define C_save using a data statement.

[Former Member]

Naren,

I don't think we have enough info to find out the error.

Can you post your code and also the error information in detail?

Regards,

Ravi

[Former Member]

hi Ravi

this is the code :

data lv_i_variant like disvariant.

lv_i_variant-report = sy-repid.

lv_i_variant-username = sy-uname.

data s_variant like disvariant.

s_variant-report = sy-repid.

s_variant-username = sy-uname.

data s_var_usr like disvariant.

s_var_usr-report = sy-repid.

s_var_usr-username = sy-uname.

data c_save value 'C'.

PERFORM alv_list USING release_auto

lv_i_variant

CHANGING tab_arbkp

tab_arseg

tab_released_arbkp.

i m getting a new error now ie:

include RM08RELEASE_F0C

"SO_EKGRP-" expected not "EKGRP_".

[Former Member]

Naren,

I think the program that you are executing has an include RM08RELEASE_F0C which is where there is syntax error.

Could you please look into that program and check for syntax and activate both the programs together?

else you can post the code where you are getting the error.

Regards,

Ravi

[Former Member]

this is the entire program

REPORT rm08release MESSAGE-ID m8.

*----

---

*

• REPORT RM08RELEASE *

*----

---

*

• Releases blocked invoices *

• - automatic release deletes all obsolete blocking reasons *

• and releases all invoices without blocking reason *

• --> list of all released invoices *

• - Manual release generates list all all blocked invoices *

*----

---

*

*----

---

*

• Project : Global Crossing B2K Project

• IT Request ID : ====> ZFI3PR09 <=====

• Original Developer : Madhan Raj

• Date of program Creation : 06/23/2002

• SAP Release : 4.6B

*----

---

*

• Program Title : Modification to MRBR

• Program Description : Modification to MRBR to have the

• : unblocking be performed based on PO

• : numbers.

*----

---

*

• Change history

INCLUDE zfi3pr09_rm08release_mrbr_ch.

*----

---

*

• Data: databases

*----

---

*

TABLES: rbkp_blocked,

ekpo,

bseg.

*----

---

*

• Data: Parameters and Select-options

DATA: w_lines TYPE i.

*----

---

*

• Frame "Selection" ----- --------------------------------------------

SELECTION-SCREEN BEGIN OF BLOCK selection WITH FRAME TITLE text-010.

SELECT-OPTIONS:

so_mrm_z FOR rbkp_blocked-mrm_zlspr NO-DISPLAY,

• CH001

so_ebeln FOR ekpo-ebeln,

so_zlspr FOR bseg-zlspr,

• End of CH001

so_bukrs FOR rbkp_blocked-bukrs MEMORY ID buk,

so_belnr FOR rbkp_blocked-belnr,

so_gjahr FOR rbkp_blocked-gjahr,

so_lifnr FOR rbkp_blocked-lifnr,

so_budat FOR rbkp_blocked-budat,

so_faell FOR rbkp_blocked-faell,

so_ekgrp FOR rbkp_blocked-ekgrp,

so_usnam FOR rbkp_blocked-usnam.

SELECTION-SCREEN END OF BLOCK selection.

• Frame "Processing" --------------------------------------------------

SELECTION-SCREEN BEGIN OF BLOCK processing WITH FRAME TITLE text-030.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN POSITION 1.

PARAMETERS pa_xmanu LIKE rm08mrbr-manu DEFAULT 'X'

RADIOBUTTON GROUP val.

SELECTION-SCREEN COMMENT 3(30) text-040 FOR FIELD pa_xmanu.

SELECTION-SCREEN POSITION 40.

PARAMETERS pa_xauto LIKE rm08mrbr-auto

RADIOBUTTON GROUP val.

SELECTION-SCREEN COMMENT 43(30) text-050 FOR FIELD pa_xauto.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_xskto LIKE rm08mrbr-skto AS CHECKBOX.

SELECTION-SCREEN COMMENT 3(30) text-055

FOR FIELD pa_xskto.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK processing.

• Rahmen "BLOCKING_TYPE" (rbkp_blocked-mrm_zlspr) ---------------------

SELECTION-SCREEN BEGIN OF BLOCK blocking_type

WITH FRAME TITLE text-060.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_xspgr LIKE rm08mrbr-spgr DEFAULT 'X'

RADIOBUTTON GROUP spv.

SELECTION-SCREEN COMMENT 3(30) text-061

FOR FIELD pa_xspgr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_zlspr LIKE rm08mrbr-zlspr

RADIOBUTTON GROUP spv.

SELECTION-SCREEN COMMENT 3(30) text-063

FOR FIELD pa_zlspr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_stoch LIKE rm08mrbr-stoch

RADIOBUTTON GROUP spv.

SELECTION-SCREEN COMMENT 3(30) text-062

FOR FIELD pa_stoch.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK blocking_type.

*----

---

**

• Data: Includes for internal tables, fields, constants etc.

*----

---

**

INCLUDE mrm_const_mrm.

INCLUDE mrm_const_common.

*----

---

**

• Data: Type-pools, internal tables, fields, constants etc.

*----

---

**

TYPE-POOLS:

mmcr,

mrm.

DATA: tab_rbkp_blocked TYPE mrm_tab_rbkp_blocked WITH HEADER LINE,

tab_arbkp TYPE mrm_tab_arbkp,

tab_arseg TYPE mrm_tab_arseg,

tab_released_arbkp TYPE mrm_tab_arbkp, "CH002 Hot pack appli.

release_auto TYPE c. " flag for ALV list

• Begin of CH001

DATA: BEGIN OF t_pofilter OCCURS 0,

belnr LIKE rseg-belnr,

gjahr LIKE rseg-gjahr,

ebeln LIKE rseg-ebeln,

END OF t_pofilter,

BEGIN OF t_bkpf OCCURS 0,

bukrs LIKE bkpf-bukrs,

belnr LIKE bkpf-belnr,

gjahr LIKE bkpf-gjahr,

awkey LIKE bkpf-awkey,

END OF t_bkpf,

BEGIN OF t_bseg OCCURS 0,

bukrs LIKE bseg-bukrs,

belnr LIKE bseg-belnr,

gjahr LIKE bseg-gjahr,

END OF t_bseg,

BEGIN OF t_rbkp_blocked OCCURS 0,

mrm_zlspr TYPE mrm_zlspr,

bukrs TYPE bukrs,

gjahr TYPE gjahr,

lifnr TYPE lifnr,

belnr(20),

usnam TYPE usnam,

budat TYPE budat,

ekgrp TYPE ekgrp,

faell TYPE faell,

END OF t_rbkp_blocked.

• End of Ch001

*----

---

**

• Data: Constants

*----

---

**

CONSTANTS:

c_repid TYPE sy-repid VALUE 'ZFI3PR09_RM08RELEASE_MRBR',

c_top_of_list TYPE slis_formname VALUE 'TOP_OF_LIST',

c_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',

c_tab_arseg TYPE slis_tabname VALUE 'TAB_ARSEG',

c_tab_arbkp TYPE slis_tabname VALUE 'TAB_ARBKP'.

DATA: f_mrm_zlspr LIKE rbkp_blocked-mrm_zlspr.

DATA: f_list_lines TYPE i.

*----

---

*

• AT SELECTION SCREEN *

*----

---

*

AT SELECTION-SCREEN.

CLEAR release_auto.

IF pa_xauto = 'X'.

release_auto = 'X'.

IF pa_xspgr IS INITIAL.

MESSAGE e655.

ENDIF.

ENDIF.

*--- F_MRM_ZLSPR fill -

---

*

IF NOT pa_xspgr IS INITIAL.

f_mrm_zlspr = c_mrm_zlspr_a.

ELSEIF NOT pa_zlspr IS INITIAL.

f_mrm_zlspr = c_mrm_zlspr_m.

ELSEIF NOT pa_stoch IS INITIAL.

f_mrm_zlspr = c_mrm_zlspr_s.

ELSE.

MESSAGE a607 WITH 'RM08RELEASE'.

ENDIF.

*-- Selection for purchasing group: add 'blank' for invoices

*--- concerning POs with different purchasing groups -

-

---

READ TABLE so_ekgrp INDEX 1.

IF sy-subrc EQ 0.

so_ekgrp-sign = 'I'.

so_ekgrp-option = 'EQ'.

so_ekgrp-low = ' '.

so_ekgrp-high = ' '.

APPEND so_ekgrp.

ENDIF.

*----

---

*

START-OF-SELECTION.

• Selection from RBKP_BLOCKED -----------------------------------------*

SELECT * FROM rbkp_blocked INTO TABLE tab_rbkp_blocked

WHERE mrm_zlspr = f_mrm_zlspr

AND bukrs IN so_bukrs

AND gjahr IN so_gjahr

AND lifnr IN so_lifnr

AND belnr IN so_belnr

AND usnam IN so_usnam

AND budat IN so_budat

AND faell IN so_faell

AND ekgrp IN so_ekgrp.

IF sy-subrc <> 0.

MESSAGE s654.

LEAVE TO TRANSACTION sy-tcode.

ENDIF.

SORT tab_rbkp_blocked BY gjahr belnr.

• CH0001 - Logic to only have PO's in the given number range

SELECT belnr gjahr ebeln FROM rseg

INTO CORRESPONDING FIELDS OF TABLE t_pofilter

FOR ALL ENTRIES IN tab_rbkp_blocked

WHERE belnr EQ tab_rbkp_blocked-belnr

AND gjahr EQ tab_rbkp_blocked-gjahr.

SORT t_pofilter.

DELETE t_pofilter WHERE NOT ebeln IN so_ebeln.

DESCRIBE TABLE t_pofilter LINES w_lines.

IF w_lines EQ 0.

MESSAGE s654.

LEAVE TO TRANSACTION sy-tcode.

ENDIF.

LOOP AT tab_rbkp_blocked.

READ TABLE t_pofilter WITH KEY belnr = tab_rbkp_blocked-belnr

gjahr = tab_rbkp_blocked-gjahr.

IF sy-subrc NE 0.

DELETE tab_rbkp_blocked.

CLEAR t_pofilter.

ENDIF.

ENDLOOP.

• Filter PO's by invoice block's

LOOP AT tab_rbkp_blocked.

MOVE-CORRESPONDING tab_rbkp_blocked TO t_rbkp_blocked.

CONCATENATE tab_rbkp_blocked-belnr(10) tab_rbkp_blocked-gjahr

INTO t_rbkp_blocked-belnr.

CONDENSE t_rbkp_blocked-belnr NO-GAPS.

APPEND t_rbkp_blocked.

ENDLOOP.

SELECT bukrs belnr gjahr awkey FROM bkpf

INTO CORRESPONDING FIELDS OF TABLE t_bkpf

FOR ALL ENTRIES IN t_rbkp_blocked

WHERE awtyp EQ 'RMRP'

AND awkey EQ t_rbkp_blocked-belnr

AND bukrs EQ t_rbkp_blocked-bukrs

AND gjahr EQ t_rbkp_blocked-gjahr.

SELECT bukrs belnr gjahr FROM bseg

INTO CORRESPONDING FIELDS OF TABLE t_bseg

FOR ALL ENTRIES IN t_bkpf

WHERE bukrs EQ t_bkpf-bukrs

AND gjahr EQ t_bkpf-gjahr

AND belnr EQ t_bkpf-belnr

AND zlspr IN so_zlspr.

SORT t_bseg.

DELETE ADJACENT DUPLICATES FROM t_bseg.

LOOP AT t_bkpf.

READ TABLE t_bseg WITH KEY bukrs = t_bkpf-bukrs

belnr = t_bkpf-belnr

gjahr = t_bkpf-gjahr.

IF sy-subrc NE 0.

DELETE tab_rbkp_blocked WHERE belnr = t_bkpf-awkey

AND gjahr = t_bkpf-gjahr

AND bukrs = t_bkpf-bukrs.

DELETE t_bkpf.

ENDIF.

ENDLOOP.

• End of CH001

PERFORM authority_check TABLES tab_rbkp_blocked.

PERFORM header_data_read TABLES tab_rbkp_blocked

tab_arbkp.

PERFORM item_data_read TABLES tab_arbkp

tab_arseg.

SORT tab_arseg BY gjahr belnr.

DESCRIBE TABLE tab_arseg LINES f_list_lines.

IF f_list_lines EQ 0.

MESSAGE s658.

LEAVE TO TRANSACTION sy-tcode.

ENDIF.

PERFORM text_check TABLES tab_arbkp

tab_arseg

USING release_auto.

• Begin Delete Hot pack application CH002

• PERFORM alv_list TABLES tab_arbkp

• tab_arseg

• USING release_auto.

• End Delete Hot pack application CH002

• Begin Insert Hot pack application CH002

Start of <Narendiran Rathinavelu> changes <16-Mar-2006> request no.: D20K931087

*PERFORM alv_list USING release_auto

• CHANGING tab_arbkp

• tab_arseg

• tab_released_arbkp.

data lv_i_variant like disvariant.

lv_i_variant-report = sy-repid.

lv_i_variant-username = sy-uname.

data s_variant like disvariant.

s_variant-report = sy-repid.

s_variant-username = sy-uname.

data s_var_usr like disvariant.

s_var_usr-report = sy-repid.

s_var_usr-username = sy-uname.

data c_save value 'C'.

PERFORM alv_list USING release_auto

lv_i_variant

CHANGING tab_arbkp

tab_arseg

tab_released_arbkp.

End of <Narendiran Rathinavelu> changes <16-Mar-2006> request no.: D20K931087

• End Insert Hot pack application

*----- Include für Formroutinen -

---

*

INCLUDE rm08release_f1. " Formroutinen des Reports

[Former Member]

Nar,

Please paste in INCLUDE RM08RELEASE_F0C from this system.