Hi,

I am getting the following error when I am trying to access SDp94. I am actually working on a different PA/POS/Planning book combination than the standard one but the system keeps going to 9ADP001 and asking if I want to initialize it.

The 9ADP001 was inactive and so I activated that and then been to SDp94, this time I was asked whether to initialize the 9ADP001 again and I initialized it. I am getting the following dump:

Runtime Errors RAISE_EXCEPTION

Date and Time 09/17/2007 17:52:14

Short text

Exception condition "CNTL_ERROR" raised.

What happened?

The current ABAP/4 program encountered an unexpected

situation.

Error analysis

A RAISE statement in the program "CL_GUI_RESOURCES==============CP" raised the

exception

condition "CNTL_ERROR".

Since the exception was not intercepted by a superior

program, processing was terminated.

Short description of exception condition:

For detailed documentation of the exception condition, use

Transaction SE37 (Function Library). You can take the called

function module from the display of active calls.

-

Trigger Location of Runtime Error

Program CL_GUI_RESOURCES==============CP

Include CL_GUI_RESOURCES==============CM00B

Row 40

Module type (METHOD)

Module Name GET_FONT_INFOS

Source Code Extract

Line SourceCde

10 CALL METHOD OF hguiservices-obj 'GetServiceByName' = hservice

11 NO FLUSH

12 EXPORTING #1 = 'SAPGUIResources.1'.

13 IF sy-subrc <> 0. RAISE error_get_obj. ENDIF.

14 GET PROPERTY OF hservice-obj 'Fonts' = hfonts-obj no flush.

15 IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

16

17 *** fontsize

18 GET PROPERTY OF hfonts-obj 'FontSize' = fontsize no flush

exporting #1 = '0'.

IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

• fontname

GET PROPERTY OF hfonts-obj 'FontName' = fontname no flush

exporting #1 = '0'.

IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

• free objects

FREE OBJECT hfonts-obj no flush.

IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

FREE OBJECT hservice-obj no flush.

IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

FREE OBJECT hguiservices-obj no flush.

IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

• flush now ?

IF NOT with_flush IS INITIAL.

CALL FUNCTION 'CONTROL_FLUSH'

EXCEPTIONS

cntl_system_error = 1

cntl_error = 2

OTHERS = 3.

IF sy-subrc <> 0. RAISE cntl_error. ENDIF.

ENDIF.

endmethod.

Message was edited by:

Raj G