ABAP error

[Former Member]

There is an HR program and the problem is when I try to execute the program it gives me amessage saying,

STOP - Program is blocked for execution.

I have looked inot the program to find the piece of code where it is blocking but I am not sure its not there.

What could be the reason for this any configuration or anything like that.

Please suggest.

Raju

[JozsefSzikszai]

can you post the source code here?

[Former Member]

The code.

************************************************************************

• PROGRAM ZCNV0008

************************************************************************

REPORT ZCNV0008 NO STANDARD PAGE HEADING

LINE-SIZE 80.

• line-count 65.

TABLES : PA0000. "

SELECT-OPTIONS: S_PERNR FOR PA0000-PERNR. "default 'RE'.

PARAMETERS: P_FILEOT(33) TYPE C

DEFAULT '/sap/T12/dataload/tcnv08' LOWER CASE.

PARAMETERS: P_COUNT(5) TYPE P DEFAULT 2000.

*

DATA: PA0000-RECS TYPE I.

*

DATA: BEGIN OF I_PA0000 OCCURS 10.

INCLUDE STRUCTURE PA0000.

DATA: END OF I_PA0000.

*

DATA: W_TIME LIKE SY-UZEIT.

*

----

---

----

---

• Top of Page *

----

---

TOP-OF-PAGE.

• {print report headers}

WRITE: / TEXT-H01, " Report:

9 SY-REPID, " report number

27 TEXT-H05, " report title

66 TEXT-H02, " Page:

74 SY-PAGNO, " page number

/66 TEXT-H03, " Date:

72 SY-DATUM DD/MM/YY. " date

WRITE:/66 TEXT-H03, " Date:

72 SY-DATUM DD/MM/YY. " date

WRITE:/66 TEXT-H04, " Time:

72 SY-UZEIT USING EDIT MASK '__:__:__'.

• {print detail headers - line 1}

SKIP.

WRITE: / TEXT-H20.

WRITE: / TEXT-H21.

ULINE.

-End of Top of Page Processing--

---

*

*=======================================================================

START-OF-SELECTION.

W_TIME = SY-UZEIT.

SELECT * FROM PA0000

INTO I_PA0000

UP TO P_COUNT ROWS

WHERE PERNR IN S_PERNR

AND STAT2 = '3'.

PA0000-RECS = PA0000-RECS + 1.

APPEND I_PA0000.

ENDSELECT.

END-OF-SELECTION.

*

*----

---

SORT I_PA0000 BY PERNR.

OPEN DATASET P_FILEOT FOR OUTPUT IN TEXT MODE.

IF SY-SUBRC EQ 0.

CLEAR I_PA0000.

LOOP AT I_PA0000.

TRANSFER I_PA0000 TO P_FILEOT LENGTH 100.

WRITE: / I_PA0000-PERNR.

WRITE: I_PA0000-BEGDA.

WRITE: I_PA0000-ENDDA.

*

ENDLOOP.

*

CLOSE DATASET P_FILEOT.

ENDIF.

SKIP 3.

WRITE: / 'Total PA0000 records:', PA0000-RECS.

*

WRITE /.

GET TIME.

WRITE: / 'Times: ', W_TIME, SY-UZEIT.

WRITE /.

*

*=== end of program ZCNV0008.

[JozsefSzikszai]

code seems to be OK from here, you can try to run from SE38

what is the class and number of the message you get?

If you started through tcode earlier, than you can check the tcode as well, if there is any authorithy object (however, I assume in that case you should get a different message, this message seems rather 'created by customer' to me)

[Former Member]

Thanks Eric. Will see what I can do.

I run it through Se38, no transaction.

Its Custom Message.

Raju.

[JozsefSzikszai]

strange... do you get the selection screen? if yes, you can go to debug mode and see what happens after pressing F8 on selection screen.

If the message comes before selection screen, you can still debug, but it will be more hard, as you have to debug SE38

[former_member156446]

check in the code.. if you find at some place for

Authority-check.. my guess would be you might be failing the authority check code..

[Former Member]

hi

good

pls consult your BASIS consultant, they can help you to solve your problem.

thanks

mrutyun^