Error Fixing..

Former Member — Fri, 09 Nov 2007 15:03:57 GMT

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. " Only Creation.

ELSE.

CHK_MAT = 'X'.

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

*ENDIF. " User control

Title was edited by:

Alvaro Tejada Galindo

Re: Error Fixing..

naimesh_patel — Fri, 09 Nov 2007 15:07:32 GMT

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

topic Error Fixing.. in Application Development and Automation Discussions

Error Fixing..

Re: Error Fixing..