Error Fixing..

[Former Member]

i am getting an error as

statement is not accesible in ECC 6.0

code is as follows..please guide me,,...full marks wud be given

TABLES: MARA.

DATA: BEGIN OF TMP_AFKO OCCURS 1.

INCLUDE STRUCTURE AFKO.

DATA: END OF TMP_AFKO.

DATA: RET_REQ LIKE ZMPROPO-TPUR_REQ. " Requisition number

DATA: RET_SPLANT LIKE ZMPROPO-SUP_PLANT." Supplying Plant.

DATA: RET_PPLANT LIKE ZMPROPO-SUP_PLANT.

DATA: RET_RDATE LIKE ZMPROPO-RDATE.

DATA: RET_CODE LIKE SY-UCOMM.

DATA: P_MATNU(18). " MATERIAL NUMBER

DATA: P_PLANT1(4). " Producing Plant.

DATA: CHK_MAT(1) TYPE C. " Finished/Semifinished Material

DATA: MAT_TYPE LIKE MARA-MTART. " Material Type.

*IF SY-UNAME = 'HARAPANAHALL' OR SY-UNAME = 'LAKE'. " User Control

CLEAR CHK_MAT.

CLEAR MAT_TYPE.

*----

---

• Get Material Type to check whether finished or semifinished material

• Allow popup window for finished 'FERT' and semi finished kits 'HALB'

*----

---

SELECT SINGLE * FROM MARA

WHERE MATNR = CAUFVD-MATNR.

IF SY-SUBRC = 0.

MOVE MARA-MTART TO MAT_TYPE.

ENDIF.

*----

---

• Check for finished goods with IR - plant will be in NJDC " 06/18

*----

---

IF ( MAT_TYPE = 'FERT' OR MAT_TYPE = 'HALB' ) AND

CAUFVD-MATNR+0(2) <> 'IR'. " 06/18

" OR MARA-MTART = 'HALB'.

IF RC27S-AKTYP = 'V'. " Only Change mode.

*----

---

• Get production order details qty and finish date before change prod or

• if qty or finish date are being changed in the prod ord hen reset the

• flag 'Y' in ZMPROPO table.

*----

---

REFRESH TMP_AFKO.

CLEAR TMP_AFKO.

SELECT SINGLE * FROM AFKO

WHERE AUFNR = CAUFVD-AUFNR.

IF SY-SUBRC = 0.

MOVE AFKO TO TMP_AFKO.

APPEND TMP_AFKO.

ENDIF.

ENDIF. " Only Change mode.

IF RC27S-AKTYP = 'H'. " Only Creation mode.

CALL FUNCTION 'Z_DISP_PURCH_REQUISITION'

EXPORTING

P_MAT = CAUFVD-MATNR " Material Number

P_PPLANT = CAUFVD-WERKS " Producing Plant

P_MATTYPE = MAT_TYPE " Material Type

IMPORTING

R_REQ = RET_REQ

R_SPLANT = RET_SPLANT

R_PPLANT = RET_PPLANT

R_RDATE = RET_RDATE

OK_CODE_POL = RET_CODE

EXCEPTIONS

NO_DATA_FOUND = 1.

*----

---

• Cancel the process - DO NOT CREATE PRODUCTION ORDER

*FERT: If user not selected a requisition then do not create production

• Order

*HALB: 1. If user not entered a supplying plant and cancel the process

• 2. If user entered a supplying plant and No requisition found or

• did not select a transfer requisition.

*----

---

IF MAT_TYPE = 'FERT'.

IF RET_REQ = SPACE.

• SET SCREEN 0.

LEAVE.

ENDIF.

ELSEIF MAT_TYPE = 'HALB'.

IF RET_REQ = SPACE AND ( RET_CODE = 'CANC' OR SY-SUBRC = 1 ).

LEAVE.

ENDIF.

ENDIF.

ENDIF. " Only Creation.

ELSE.

CHK_MAT = 'X'.

ENDIF. " CHeck MAT_TYPE = 'FERT' - Finished materials only

*ENDIF. " User control

Title was edited by:

Alvaro Tejada Galindo

[naimesh_patel]

It looks like that you forgot to put the START-OF-SELECTION.

DATA: RET_REQ LIKE ZMPROPO-TPUR_REQ. " Requisition number
DATA: RET_SPLANT LIKE ZMPROPO-SUP_PLANT." Supplying Plant.
DATA: RET_PPLANT LIKE ZMPROPO-SUP_PLANT.
DATA: RET_RDATE LIKE ZMPROPO-RDATE.
DATA: RET_CODE LIKE SY-UCOMM.
DATA: P_MATNU(18). " MATERIAL NUMBER
DATA: P_PLANT1(4). " Producing Plant.
DATA: CHK_MAT(1) TYPE C. " Finished/Semifinished Material
DATA: MAT_TYPE LIKE MARA-MTART. " Material Type.

START-OF-SELECTION.   "<<< Add this

*IF SY-UNAME = 'HARAPANAHALL' OR SY-UNAME = 'LAKE'. " User Control

CLEAR CHK_MAT.
CLEAR MAT_TYPE.
*-----------------------------------------------------------------------
* Get Material Type to check whether finished or semifinished material
* Allow popup window for finished 'FERT' and semi finished kits 'HALB'
*-----------------------------------------------------------------------
SELECT SINGLE * FROM MARA
WHERE MATNR = CAUFVD-MATNR.
IF SY-SUBRC = 0.
MOVE MARA-MTART TO MAT_TYPE.
ENDIF.

Regards,

Naimesh Patel