Search This Blog

Sunday, November 15, 2009

Print problem with Chinese letters

Try changing Printer device type from
ZXXXXXX to CNSAPWIN

Display problem was due to Chinese words in ABAP report hardcoded did not get converted to Unicode, had to be fixed manually.

Structure: DUMP Analysis

Check Transactions showing DUMPS on Structure Not found / Not Active
Eg: MB03
Structure: BBKPF similarly BBSEG

SAP OSS Note: 287947 suggests to re-activate such structures via TCode: SE12
Transaction: SE12
-> Enter 'Database table' BBKPF
-> Press F7
-> Select 'Structures' from the menu bar
-> Select 'Activate' from the drop down list

RSMON000 Program does not exist in ECC6.0

Following reports executed by this job are failing:
RSMON000
RSTUNE50
SAPMSM66

program RSMON000 is replaced by program RSMON000_ALV

Latest PO# Not displayed ME21N>>ME23N

Validation of Answer to Issue No. 36 by SAP
I. Enter another T-code or use /n to exit directly
I.1 ME21N – create PO

-> PO no. 45305702 is created



I.2 Enter /NME23N – display PO directly
-> not the latest PO is displayed
II. Use 'F3' or the 'green tick' to exit ME21n (or ME22n)
II. 1 ME21N – create PO



-> PO no. 45305703 is created
II.2 Use F3 to return to initial screen, then enter ME23N


-> latest PO is displayed

characters 'ő', 'ű', 'Ő' and 'Ű'

Umlauts and other non standard characters should not be used in variable declarations whilst programming in ECC6.0

eg: characters 'ő', 'ű', 'Ő' and 'Ű'

Issue 60 XCarried DOTS into Qty Field in BDC

Generated the qty of material is wrong

What was the error?
There is a statement in the program which truncates last 4 digits in the Qty uploaded

** In the Non Unicode System, the file carried “.” into the input
** While shifting 4 to right it would consider “.000”
** In Unicode the “.” is not carried in the system
** So while shifting to right it considers “0000”
** Thus the Qty mismatched by *10

Corrected
Instead of shifting 4 digits to the right, we would only shift 3

Eg: Test Case
BZD27C6V8P-GS086409466B3211/09/0994442N2 200946CN64 15000.000 0946 22600010 000000SHB480116518
BZD27C6V8P-GS086409466B3211/09/0994442N2 200946CN64 15000.000 0946 22600010

Qty uploaded 15000.000
Previous system Qty corrected = 15000 (.000) 4 places truncated from right
New system Qty Corrected = 1500 (0000) 4 places truncated from right
After Changes in the new system
Qty corrected = 15000(000) 3 places truncated

Type Pool MCR1 Missing

*type-pools mcr1.
TYPES: mcr1_s_hier_prodh LIKE rsparams,
mcr1_t_hier_prodh TYPE mcr1_s_hier_prodh OCCURS 0.
CONSTANTS:
* Selektionsversion vor 4.0A
con_selvs_typ_vor40 LIKE mcrsv-selvs_typ VALUE ' ',
* Selektionsversion wurde über Metadaten angelegt
con_selvs_typ_manuell LIKE mcrsv-selvs_typ VALUE '1',
* Selektionsversion wurde über Daten aus Standardanalyse angelegt
con_selvs_typ_gesichert LIKE mcrsv-selvs_typ VALUE '2'.

Thursday, August 20, 2009

RSAQEXCE

--- FROM
* NON Unicode
PERFORM AUTHORITY_BEGIN(RSAQEXCE).
PERFORM AUTHORITY(RSAQEXCE) USING 'EBAN'.
PERFORM AUTHORITY_END(RSAQEXCE).
TO -----

PERFORM authority_begin(rsaqexce) USING 'CL_QUERY_TAB_ACCESS_AUTHORITY' .
PERFORM authority(rsaqexce) USING 'EBAN' 'CL_QUERY_TAB_ACCESS_AUTHORITY'.
PERFORM authority_end(rsaqexce) USING 'CL_QUERY_TAB_ACCESS_AUTHORITY'.

Wednesday, July 29, 2009

RH_START_EXCEL_WITH_DATA

FROM --------------
CALL FUNCTION 'RH_START_EXCEL_WITH_DATA'
EXPORTING
* CHECK_VERSION = ' '
data_name = 'example_vmsuser.xls'
* DATA_PATH_FLAG = 'W'
* DATA_TYPE = 'DAT'
* DATA_BIN_FILE_SIZE =
* MACRO_NAME = ' '
* MACRO_PATH_FLAG = ' '
* FORCE_START = ' '
wait = ' '
* IMPORTING
* WINID =
TABLES
data_tab = example_tab
EXCEPTIONS
no_batch = 1
excel_not_installed = 2
wrong_version = 3
internal_error = 4
invalid_type = 5
cancelled = 6
download_error = 7
OTHERS = 8 .
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

TO--------------------
CALL FUNCTION 'RH_START_EXCEL_WITH_DATA'
EXPORTING
DATA_FILENAME = 'example_vmsuser.xls'
* DATA_PATH_FLAG = 'W'
* DATA_ENVIRONMENT =
DATA_TABLE = example_tab
* MACRO_FILENAME =
* MACRO_PATH_FLAG = 'E'
* MACRO_ENVIRONMENT =
* WAIT = 'X'
* DELETE_FILE = 'X'
* CODEPAGE =
EXCEPTIONS
NO_BATCH = 1
EXCEL_NOT_INSTALLED = 2
INTERNAL_ERROR = 3
CANCELLED = 4
DOWNLOAD_ERROR = 5
NO_AUTHORITY = 6
FILE_NOT_DELETED = 7
OTHERS = 8 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Tuesday, July 28, 2009

WS_EXECUTE

FROM:--------------
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
* DOCUMENT = ' '
* CD = ' '
commandline = ex_file
* INFORM = ' '
program = 'EXCEL'
* STAT = ' '
* WINID = ' '
* OSMAC_SCRIPT = ' '
* OSMAC_CREATOR = ' '
* WIN16_EXT = ' '
* EXEC_RC = ' '
* IMPORTING
* RBUFF =
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.

TO-------------

DATA: T_FILE type string.
T_FILE = ex_file.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE
EXPORTING
DOCUMENT = T_FILE
APPLICATION = 'EXCEL'
OPERATION = 'OPEN'
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
BAD_PARAMETER = 3
FILE_NOT_FOUND = 4
PATH_NOT_FOUND = 5
FILE_EXTENSION_UNKNOWN = 6
ERROR_EXECUTE_FAILED = 7
SYNCHRONOUS_FAILED = 8
NOT_SUPPORTED_BY_GUI = 9
others = 10
.

Monday, July 27, 2009

POPUP_TO_CONFIRM

From --------------
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'N'
diagnosetext1 = d1
diagnosetext2 = d2
diagnosetext3 = d3
textline1 = 'If you want to continue Press "Yes"'
textline2 = 'If you want to re-enter selection Press "No"'
titel = 'Confirm the Selection criteria'
start_column = 35
start_row = 11
* CANCEL_DISPLAY = 'X'
IMPORTING
answer = ans.

To -------------
data : dque type string.
concatenate d1 d2 d3 into dque separated by ','.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'If you want to continue Press "Yes"'
TEXT_QUESTION = dque
TEXT_BUTTON_1 = 'Ja'(001)
TEXT_BUTTON_2 = 'Nein'(002)
START_COLUMN = 25
START_ROW = 6
IMPORTING
ANSWER = ans
EXCEPTIONS
TEXT_NOT_FOUND = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Describe

FROM------------------------
DESCRIBE DISTANCE BETWEEN struct-field1 AND struct-field4 INTO length.
FROM ------------------------
DESCRIBE FIELDS struct-field1 INTO length.
TO------------
DESCRIBE DISTANCE BETWEEN struct-field1 AND struct-field4 INTO length IN CHARACTER MODE.
Or
DESCRIBE DISTANCE BETWEEN struct-field1 AND struct-field4 INTO length IN BYTE MODE.
TO -------------------------
DESCRIBE FIELDS struct-field1 INTO length IN CHARACTER MODE
OR--------------------------
DESCRIBE FIELDS struct-field1 INTO length IN BYTE MODE..

call function 'NAMETAB_GET'


FROM-----------------

call function 'NAMETAB_GET'

EXPORTING

langu = sy-langu

tabname = table

TABLES

nametab = nametab

EXCEPTIONS

no_texts_found = 1.**

ToDO ---------------

CALL FUNCTION 'DDIF_FIELDINFO_GET'

EXPORTING

TABNAME = table

LANGU = SY-LANGU

TABLES

DFIES_TAB = nametab

EXCEPTIONS

NOT_FOUND = 1

INTERNAL_ERROR = 2

OTHERS = 3 .

Open File Dialog

OPEN DIALOGDATA:
----------------------------------------------------------------------------------------
it_tabmann TYPE filetable,
rc_mann TYPE i.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING
WINDOW_TITLE = 'Open a File'
DEFAULT_EXTENSION = ',*.txt,*.txt,*.xls,*.xls,*.doc,*.doc, **,*.*,*.*.'
DEFAULT_FILENAME = 'test.txt'
INITIAL_DIRECTORY = 'c:\temp'
multiselection = ' ' "No multiple selection
CHANGING
FILE_TABLE = it_tabmann
RC = rc_mann
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
others = 5 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_tabmann INTO p_input.ENDLOOP.
--------------------------------------------------------------------------------------

Save File - Dialog

SAVE FILE DIALOG
-------------------------------------------------------------------------------------------
PARAMETERS: p_file(128) DEFAULT 'c:\nosupt\zwipvalc.xls'.
data : l_filename type string.
data : l_path type string VALUE 'c:\NoSupt\'. " Default File Location
data : l_fullpath type string.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE = 'Select a file.'
DEFAULT_EXTENSION = ',*.xls,*.xls,*.txt,*.txt,*.doc,*.doc,*.*,*.*.'
DEFAULT_FILE_NAME = 'ZCON1.XLS'
* WITH_ENCODING =
* FILE_FILTER =
* INITIAL_DIRECTORY =
PROMPT_ON_OVERWRITE = 'X'
CHANGING
FILENAME = L_filename
PATH = l_path
FULLPATH = l_fullpath
* USER_ACTION =
* FILE_ENCODING =
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
others = 4 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
p_file = l_fullpath. " Shows Filename with path