1.moved to marknsap.blogspot.com - marksap.blogspot.com

WebDynPro how to read value from a table with button.

2012-01-11T17:34:00.000-08:00

Recent task was given by Chin Yc. which to add a button to on of the column in all the rows.

Which supposed to show notes.

How does the button proceed to read from the table? below are the sample coding

"get exercise informations
DATA lo_nd_ess_profile TYPE REF TO if_wd_context_node. "READING NODES
DATA lo_el_ess_profile TYPE REF TO if_wd_context_element"READING NODES
DATA ls_ess_profile TYPE wd_this->Element_ess_profile."READING NODES
"The nodes referred named ess_profile
" Set Lead Selection on user selected row
" (the row where user clicked the Exercise button on)
"Getting the current node valuelo_nd_ess_profile = wd_context->get_child_node( name = wd_this->wdctx_ess_profile ).
lo_el_ess_profile = wdevent->get_context_element( name = 'CONTEXT_ELEMENT' ).
lo_nd_ess_profile->set_lead_selection( element = lo_el_ess_profile ).
lo_el_ess_profile->get_static_attributes(
IMPORTING
static_attributes = ls_ess_profile ).

DATA: whatevervalue type char255, whatevervalue1 type char255.
whatevervalue = ls_ess_profile-endda.
whatevervalue2 = ls_ess_profile-begda

Note: Changing payslip in portal

2011-12-20T20:50:00.000-08:00

source : http://forums.sdn.sap.com/thread.jspa?threadID=1909760&tstart=15#10075902
You need to make a new form using smartforms and put it in EDPDF .

1. HRFOR - This feature decides whether to use HRFORMS or CEDT forms
(configured in PE51) for the payslip. If HRFORMS, the name of HRFORM has
to be mentioned here. If PE51 needs to be used then $CEDT$ should be
specified.

2. EDTIN - This should hold the value of the variant to be executed in
the CEDT program (payslip program). The variant should be proper with
the with the correct CEDT (payslip) form name and other parameters.

3. EDPDF - The name of the smartform (standard smartform
HR_ESS_PAYSLIP_TO_PDF or customer specific form) used to show the output
in the ESS.

Abap Creating a workable button on the selection screen

2011-12-20T02:29:00.000-08:00

*&---------------------------------------------------------------------*
*& Report Y_MARK_TEST_BUTTON
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Y_MARK_TEST_BUTTON.
TABLES sscrfields.
DATA: ld_filename TYPE string,
ld_path TYPE string,
ld_fullpath TYPE string,
ld_result TYPE i,
gd_file TYPE c.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS : P_FILE LIKE RLGRAP-FILENAME default 'C:\EMAIL_RESULT.XLS'.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) dl_excel USER-COMMAND dl_excel. "button!
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B1.

* At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
* Display save dialog window
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
* window_title = ' '
default_extension = 'XLS'
default_file_name = 'EMAIL_RESULT'
initial_directory = 'C:\'
CHANGING
filename = ld_filename
path = ld_path
fullpath = ld_fullpath
user_action = ld_result.
p_file = ld_fullpath.

AT SELECTION-SCREEN OUTPUT.
MOVE 'Download' TO dl_excel. "giving the button label

AT SELECTION-SCREEN.
case sy-ucomm.
when 'DL_EXCEL'.
"DO WHAT EVER YOU LIKE
endcase.

abap : How to save a file using a dialog box

2011-12-20T01:31:00.000-08:00

*Selecting a file to save too, plus inserting default file extension .xls
tables rlgrap.

DATA: ld_filename TYPE string,
     ld_path TYPE string,
     ld_fullpath TYPE string,
     ld_result TYPE i,
     gd_file TYPE c.

selection-screen begin of block m with frame.
   PARAMETERS: p_file TYPE  rlgrap-filename.
selection-screen end of block m.

* At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

* Display save dialog window
     CALL METHOD cl_gui_frontend_services=>file_save_dialog
       EXPORTING
*      window_title      = ' '
         default_extension = 'XLS'
         default_file_name = 'accountsdata'
         initial_directory = 'c:\temp\'
       CHANGING
         filename          = ld_filename
         path              = ld_path
         fullpath          = ld_fullpath
         user_action       = ld_result.
     p_file  = ld_fullpath.


source : http://www.sapdev.co.uk/file/file_objsave.htm

Abap how to read a comma delimited data into internal table

2011-12-20T01:23:00.000-08:00

COMMA DELIMITED file to INTERNAL TABLE

Reply from ioana31 | posted Oct 9, 2002 | Replies (7)

don't know about gui_upload, the way we do it is:

declare an internal table like:
data: begin of i_rec occurs 0,
filler(200),
end of i_rec.
data: begin of itab occurs 0,
field1,
field2,
...
end of itab.
Itab is the table you want to fill, i_rec is just a temporary intermediary table.

data: sep_field(1) value ','.
that's your separator (comma or something else).

First call the function GUI_UPLOAD and fill table i_rec with the data in your file.
then:

loop at i_rec.
split i_rec-filler at sep_field into itab-field1 itab-field2 ...
append itab.
clear itab.
endloop.

this should do the trick for as far as I know.

good luck,

ioana

source
http://sap.ittoolbox.com/groups/technical-functional/sap-dev/comma-delimited-file-to-internal-table-151418

Abap how to create an excel file sample

2011-12-19T23:05:00.000-08:00

REPORT ZEX_DATATOEXCEL .

Parameters: P_file like RLGRAP-FILENAME.

data : begin of int_head occurs 0,
Filed1(20) type c, " Header Data
end of int_head.

data : begin of int_data occurs 0,
Field1(20) type c, " Data
Field2(20) type c,
Field3(20) type c,
Field4(20) type c,
end of int_data.

int_head-Filed1 = 'Sales Ord'.
APPEND int_head.
CLEAR int_head.

int_head-Filed1 = 'Sold-to-Party'.
APPEND int_head.
CLEAR int_head.

int_head-Filed1 = 'Purchase Ord'.
APPEND int_head.
CLEAR int_head.

int_head-Filed1 = 'Ship-to-Party'.
APPEND int_head.
CLEAR int_head.

int_data-field1 = '1JOHN'.
int_data-field2 = '2TOM'.
int_data-field3 = '3BRAD'.
int_data-field4 = '4PETER'.
Append int_data.
Clear int_data.

CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
EXPORTING
file_name = p_file " path offile where u need to download
* CREATE_PIVOT = 0
* DATA_SHEET_NAME = ' '
* PIVOT_SHEET_NAME = ' '
* PASSWORD = ' '
* PASSWORD_OPTION = 0
TABLES
* PIVOT_FIELD_TAB =
data_tab = int_data "internal table with data
fieldnames = int_head "internal table with header
EXCEPTIONS
file_not_exist = 1
filename_expected = 2
communication_error = 3
ole_object_method_error = 4
ole_object_property_error = 5
invalid_filename = 6
invalid_pivot_fields = 7
download_problem = 8
OTHERS = 9
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

source
http://abaplovers.blogspot.com/2008/05/abap-internal-table-to-excel-sheet.html

How to debug universal worklist, approval pending list, approval program.

2011-12-19T19:44:00.000-08:00

Knowledge sharing by Mohd Khairil Bin Markom my colleague :)

Recent workflow debugging for supervisor
How do we debug a program which has been configured in swfvisu?

Applicant we can easily debugged from the
Transaction code = SE80

But as the work flow comes into the picture the data/application is routed to the supervisor

STEP 1
Still using the transaction code SE80.

Put a debugmode under
- Component Controller -> Method -> wdoinit (place any break point there tips: best at the first line)
- Test run first! Let it stay in the debug mode and then proceed to STEP 2

STEP 2
Log into the portal
1.CLICK on the work ( universal worklist - the place where you can see the approval's pending list)
2.CLICK on the document that is pending

STEP 3
Once step 1 and step 2 is achieved.
You can start you exploration to debug which ever error you can find in the approval webdynpro

Sample ALV Grid program using the function module REUSE_ALV_GRID_DISPLAY

2011-12-12T19:40:00.000-08:00

Sample ALV Grid program using the function module REUSE_ALV_GRID_DISPLAY

By Vikram Chellappa, Mouri Tech Solutions

*&---------------------------------------------------------------------* *& Report  ZALV_REPORT_SFLIGHT *& *&---------------------------------------------------------------------* * Published at SAPTechnical.COM *&---------------------------------------------------------------------*

REPORT  ZALV_REPORT_SFLIGHT. TABLES : SFLIGHT. TYPE-POOLS : SLIS.

**INTERNAL TABLE DECLARTION DATA : WA_SFLIGHT TYPE SFLIGHT,        IT_SFLIGHT TYPE TABLE OF SFLIGHT.

**DATA DECLARTION DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,       GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,       GD_REPID     LIKE SY-REPID,       G_SAVE TYPE C VALUE 'X',       G_VARIANT TYPE DISVARIANT,       GX_VARIANT TYPE DISVARIANT,       G_EXIT TYPE C,       ISPFLI TYPE TABLE OF SPFLI.

* To understand the importance of the following parameter, click here. **SELECTION SCREEN DETAILS SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002 . PARAMETERS: VARIANT LIKE DISVARIANT-VARIANT. SELECTION-SCREEN END OF BLOCK B1. **GETTING DEFAULT VARIANT INITIALIZATION.   GX_VARIANT-REPORT = SY-REPID.   CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'     EXPORTING       I_SAVE     = G_SAVE     CHANGING       CS_VARIANT = GX_VARIANT     EXCEPTIONS       NOT_FOUND  = 2.   IF SY-SUBRC = 0.     VARIANT = GX_VARIANT-VARIANT.   ENDIF.

**PERFORM DECLARATIONS START-OF-SELECTION.   PERFORM DATA_RETRIVEL.   PERFORM BUILD_FIELDCATALOG.   PERFORM DISPLAY_ALV_REPORT.

*&---------------------------------------------------------------------* *&      Form  BUILD_FIELDCATALOG *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *  -->  p1        text *  <--  p2        text *----------------------------------------------------------------------* FORM BUILD_FIELDCATALOG .

  FIELDCATALOG-FIELDNAME   = 'CARRID'.   FIELDCATALOG-SELTEXT_M   = 'Airline Code'.   FIELDCATALOG-COL_POS     = 0.   APPEND FIELDCATALOG TO FIELDCATALOG.   CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'CONNID'.   FIELDCATALOG-SELTEXT_M   = 'Flight Connection Number'.   FIELDCATALOG-COL_POS     = 1.   APPEND FIELDCATALOG TO FIELDCATALOG.   CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'FLDATE'.   FIELDCATALOG-SELTEXT_M   = 'Flight date'.   FIELDCATALOG-COL_POS     = 2.   APPEND FIELDCATALOG TO FIELDCATALOG.   CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'PRICE'.   FIELDCATALOG-SELTEXT_M   = 'Airfare'.   FIELDCATALOG-COL_POS     = 3.   FIELDCATALOG-OUTPUTLEN   = 20.   APPEND FIELDCATALOG TO FIELDCATALOG.   CLEAR  FIELDCATALOG. ENDFORM.                    " BUILD_FIELDCATALOG   *&---------------------------------------------------------------------* *&      Form  DISPLAY_ALV_REPORT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *  -->  p1        text *  <--  p2        text *----------------------------------------------------------------------* FORM DISPLAY_ALV_REPORT .   GD_REPID = SY-REPID.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'     EXPORTING       I_CALLBACK_PROGRAM      = GD_REPID       I_CALLBACK_TOP_OF_PAGE  = 'TOP-OF-PAGE'  "see FORM       I_CALLBACK_USER_COMMAND = 'USER_COMMAND'       IT_FIELDCAT             = FIELDCATALOG[]       I_SAVE                  = 'X'       IS_VARIANT              = G_VARIANT     TABLES       T_OUTTAB                = IT_SFLIGHT     EXCEPTIONS       PROGRAM_ERROR           = 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. ENDFORM.                    "DISPLAY_ALV_REPORT

" DISPLAY_ALV_REPORT *&---------------------------------------------------------------------* *&      Form  DATA_RETRIVEL *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *  -->  p1        text *  <--  p2        text *----------------------------------------------------------------------* FORM DATA_RETRIVEL .   SELECT * FROM SFLIGHT INTO TABLE IT_SFLIGHT. ENDFORM.                    " DATA_RETRIVEL

*-------------------------------------------------------------------* * Form  TOP-OF-PAGE                                                 * *-------------------------------------------------------------------* * ALV Report Header                                                 * *-------------------------------------------------------------------* FORM TOP-OF-PAGE. *ALV Header declarations   DATA: T_HEADER TYPE SLIS_T_LISTHEADER,         WA_HEADER TYPE SLIS_LISTHEADER,         T_LINE LIKE WA_HEADER-INFO,         LD_LINES TYPE I,         LD_LINESC(10) TYPE C.

* Title   WA_HEADER-TYP  = 'H'.   WA_HEADER-INFO = 'SFLIGHT Table Report'.   APPEND WA_HEADER TO T_HEADER.   CLEAR WA_HEADER.

* Date   WA_HEADER-TYP  = 'S'.   WA_HEADER-KEY = 'Date: '.   CONCATENATE  SY-DATUM+6(2) '.'                SY-DATUM+4(2) '.'                SY-DATUM(4) INTO WA_HEADER-INFO.   "todays date   APPEND WA_HEADER TO T_HEADER.   CLEAR: WA_HEADER.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'     EXPORTING       IT_LIST_COMMENTARY = T_HEADER. ENDFORM.                    "top-of-page

SOURCE

http://www.saptechnical.com/Tutorials/ALV/SampleALVGridProgram.htm

Abap: Country Grouping

2011-12-12T19:38:00.000-08:00

DATA P_MOLGA TYPE MOLGA.

CALL FUNCTION 'HR_COUNTRYGROUPING_GET'

EXPORTING

PERNR = WD_COMP_CONTROLLER->PERNR

* TCLAS = 'A'

* BEGDA = '18000101'

* ENDDA = '99991231'

* WERKS =

IMPORTING

MOLGA = P_MOLGA

EXCEPTIONS

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.

source

SAP script

2011-11-15T03:32:00.000-08:00

OPEN_FORM - Open SAPscript form printing
- to only preview the form: options-tdpreview='X' (options-tdnoprint forbids print even from preview)
- to get OTF data instead of printing: options-tdgetotf='X'
- to output OTF data to memory buffer instead of printing: device='OTF_MEM'

Code:

REPORT z_sapscript_form.
data: w_options type itcpo,
w_result type itcpp,
w_otf like itcoo occurs 0 with header line,
w_ascii like tline occurs 0 with header line,
w_device(40) type c,
w_num like sy-tabix.

parameters: printer like tsp03-padest lower case default 'locl',
layoutst like rsscf-tdform default 'MEDRUCK'.
selection-screen: begin of line.
parameters p_prn radiobutton group rad0.
selection-screen: comment 4(60) cmt_prn for field p_prn,
end of line.
selection-screen: begin of line.
parameters p_pre radiobutton group rad0.
selection-screen: comment 4(60) cmt_pre for field p_pre,
end of line.
selection-screen: begin of line.
parameters p_mem radiobutton group rad0.
selection-screen: comment 4(60) cmt_mem for field p_mem,
end of line.
selection-screen: begin of line.
parameters p_otf radiobutton group rad0.
selection-screen: comment 4(60) cmt_otf for field p_otf,
end of line.

initialization.
cmt_prn = 'Print to spool'.
cmt_pre = 'Only create form and preview, no print'.
cmt_mem = 'Output OTF to memory buffer and convert to ASCII'.
cmt_otf = 'Only get OTF data'.

start-of-selection.
perform: form_open,
print_item,
form_close.
case 'X'.
when p_prn. write: / 'See Spool#', w_result-tdspoolid,
'(', w_result-tdpages, ' pages )'.
when p_pre.
when p_otf. loop at w_otf.
write / w_otf.
endloop.
when p_mem. perform get_ascii.
endcase.
*---------------------------------------------------------------------*
* FORM FORM_OPEN *
*---------------------------------------------------------------------*
* Start of printing the form *
*---------------------------------------------------------------------*
form form_open.
w_options-tddest = printer.
w_device = 'PRINTER'. "default
case 'X'.
when p_pre. w_options-tdpreview = 'X'.
w_options-tdnoprint = 'X'.
when p_prn.
when p_mem. w_device = 'OTF_MEM'.
when others. w_options-tdgetotf = 'X'.
endcase.
call function 'OPEN_FORM'
exporting
device = w_device
dialog = ' '
form = layoutst
options = w_options
exceptions
canceled = 1
device = 2
form = 3
options = 4
unclosed = 5
mail_options = 6
archive_error = 7
invalid_fax_number = 8
more_params_needed_in_batch = 9
spool_error = 10
others = 11.
write: / 'Form open. Return code =', sy-subrc.
if sy-subrc <> 0.
message id sy-msgid type 'I' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform.
*&---------------------------------------------------------------------*
*& Form PRINT_ITEM
*&---------------------------------------------------------------------*
* Print form item *
*----------------------------------------------------------------------*
form print_item.
call function 'WRITE_FORM'
exceptions
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
others = 9.
write: / 'Form print. Return code =', sy-subrc.
if sy-subrc <> 0.
message id sy-msgid type 'I' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " PRINT_ITEM
*---------------------------------------------------------------------*
* FORM FORM_CLOSE *
*---------------------------------------------------------------------*
* End of printing the form *
*---------------------------------------------------------------------*
form form_close.
call function 'CLOSE_FORM'
importing
result = w_result
tables
otfdata = w_otf
exceptions
unopened = 1
bad_pageformat_for_print = 2
send_error = 3
spool_error = 4
others = 5.
write: / 'Form close. Return code =', sy-subrc,
'Spool#', w_result-tdspoolid.
if sy-subrc <> 0.
message id sy-msgid type 'I' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
describe table w_otf lines w_num.
write: / 'OTF has', w_num, 'lines.'.
endif.
endform.
*&---------------------------------------------------------------------*
*& Form get_ascii
*&---------------------------------------------------------------------*
* convert OTF from memory to ASCII text
*----------------------------------------------------------------------*
form get_ascii.
call function 'CONVERT_OTF_MEMORY'
tables
lines = w_ascii
exceptions
memory_empty = 1
err_max_linewidth = 2
err_format = 3
err_conv_not_possible = 4
others = 5.
write: / 'Convert OTF memory. Return code =', sy-subrc.
if sy-subrc <> 0.
message id sy-msgid type 'I' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
describe table w_ascii lines w_num.
write: / 'OTF has', w_num, 'lines.'.
loop at w_ascii.
write: / w_ascii.
endloop.
endif.
endform. " get_ascii

CLOSE_FORM - End SAPscript layout set printing
- spool #: result-tdspoolid
- OTF data: otfdata (when options-tdgetotf='X' in OPEN_FORM)

WRITE_FORM - Output SAPscript text element in form window

CONTROL_FORM - Control SAPscript form output
- issue command to the form, e.g. exporting command = 'NEW-PAGE'

CONVERT_OTF_MEMORY - Convert SAPscript OTF from memory into text format
output: table of structure TLINE (OTF saved to memory buffer by OPEN_FORM)

SAVE_OTF_TO_MEMORY - Write OTF format to memory
export|import OTF internal table to|from memory id ...

READ_OTF_FROM_MEMORY - Read OTF from memory

PRINT_OTF - print OTF from internal table

DISPLAY_OTF - Display an OTF table on the screen

DISPLAY_POSTSCRIPT - Display a postscript table on the screen tables postscript structure itcps

CONVERT_OTF - Convert OTF format to various formats (TLINE table) ASCII or PDF

Code:

CALL FUNCTION "CONVERT_OTF"
       EXPORTING    FORMAT                = "PDF"
       IMPORTING    BIN_FILESIZE          = FILE_LEN
       TABLES       OTF                   = OTFDATA
                    LINES                 = PDFDATA
       EXCEPTIONS   ERR_MAX_LINEWIDTH     = 1                   
                    ERR_FORMAT            = 2
                    ERR_CONV_NOT_POSSIBLE = 3
                    OTHERS                = 4.

CONVERT_OTF_2_PDF - Convert OTF to PDF (TLINE table).
OTF can be filled used archivelink. Calls CONVERT_OTF.

CONVERT_OTF_2_PDF_ARCHIVELINK - Convert OTF to PDF (TLINE table).
Calls CONVERT_OTF. Looks like the function names for these two functions are mixed up J

CONVERT_OTF_AND_FAX

CONVERT_OTF_AND_MAIL

CONVERT_OTFSPOOLJOB_2_PDF
Input: spool # (SAPscript: tsp01-rqdoctype='OTF'); Output: PDF as internal table (TLINE)

CONVERT_ABAPSPOOLJOB_2_PDF
Input: spool # (ABAP listing: tsp01-rqdoctype='LIST'); Output: PDF as internal table (TLINE)

OTF_CONVERT - wraps several other function modules. Will convert OTF to ASCII or PDF

SX_OBJECT_CONVERT_OTF_PDF - Conversion From OTF to PDF (SAPScript conversion)

SX_OBJECT_CONVERT_OTF_PRT - Conversion From OTF to Printer Format (SAPScript conversion)

SX_OBJECT_CONVERT_OTF_RAW - Conversion From OTF to ASCII (SAPScript conversion)

To assign enter button as execute in selection screen

2011-11-14T17:20:00.000-08:00

SELECTION-SCREEN: BEGIN OF LINE,
COMMENT 1(31) TEXT-002 FOR FIELD IN_YEAR MODIF ID A.
PARAMETERS: IN_YEAR(4) MODIF ID A. " a field
SELECTION-SCREEN PUSHBUTTON (20) execut USER-COMMAND execut MODIF ID A. "button!
SELECTION-SCREEN END OF LINE.
===========================================
AT SELECTION-SCREEN OUTPUT.
MOVE 'Execute' TO execut. "giving the button label
..
...
....
===========================================
AT SELECTION-SCREEN.

if sscrfields-ucomm eq 'EXECUT'.
sscrfields-ucomm = 'ONLI'. " this is the execute value passed!
endif.

..
...
....

HR_GET_EMPLOYEES_FROM_USER

2011-11-14T01:59:00.000-08:00

"mark---------------------
DATA : ee_tab TYPE PERNR_US_TAB,
wa_ee_tab type line of PERNR_US_TAB.
* get pernr, molga, ename
CALL FUNCTION 'HR_GET_EMPLOYEES_FROM_USER'
EXPORTING
user = sy-uname
TABLES
ee_tab = ee_tab.
LOOP AT ee_tab into wa_ee_tab.
ENDLOOP.

PNPPERNR-SIGN = 'I'.
PNPPERNR-OPTION = 'EQ'.
PNPPERNR-LOW = wa_ee_tab-pernr.
APPEND PNPPERNR.

How to use a table with no header

2011-11-14T01:43:00.000-08:00

DATA : ee_tab TYPE PERNR_US_TAB,
wa_ee_tab type line of PERNR_US_TAB.
* get pernr, molga, ename
CALL FUNCTION 'HR_GET_EMPLOYEES_FROM_USER'
EXPORTING
user = sy-uname
TABLES
ee_tab = ee_tab.

LOOP AT ee_tab into wa_ee_tab.

ENDLOOP.

How to hide certain fields or button in your selection screen

2011-11-13T23:28:00.000-08:00

*&---------------------------------------------------------------------*
*& Report Y_MARK
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Y_MARK.

DATA: D_UCOMM LIKE SY-UCOMM.

PARAMETERS: P_GRPA1(10) MODIF ID A,
P_GRPA2(5) MODIF ID A,
P_GRPB1(2) MODIF ID B.

PARAMETERS: P_ACTA RADIOBUTTON GROUP RAD1 USER-COMMAND ACT DEFAULT 'X',
P_ACTB RADIOBUTTON GROUP RAD1.

AT SELECTION-SCREEN.
D_UCOMM = SY-UCOMM.

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF P_ACTA = 'X'.
IF SCREEN-GROUP1 = 'B'.
SCREEN-ACTIVE = 0.
ENDIF.
ELSEIF P_ACTB = 'X'.
IF SCREEN-GROUP1 = 'A'.
SCREEN-ACTIVE = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

START-OF-SELECTION.

The maintenance dialog for zXXXXX is incomplete or not defined

2011-11-08T21:43:00.000-08:00

This is how you create maintenance dialog for ztable.

Use tcode SE11, enter the table name click change. In the next screen, click Utitlies-->table maintenance generator.

Enter &NC& as the auth group.
Enter the function group to use (ex. Z_TABMAINT)

click One Step, enter '1' as the screen number. Click the create button.

Once generated, you can use it by going to SM30, enter table name and click maintain.

Source
http://forums.sdn.sap.com/thread.jspa?threadID=1087759

IAC - how to create

2011-11-08T18:20:00.000-08:00

IAC iview is used when you want to create an iview of an ITS service. In the thrid step of creating IAC iview we should pass the ITS service name for IAC property.
Steps to create IAC iview.
1. Create a system object for R/3 with ITS property category also.
2. create a Service in transaction using SICF. The below thread will help you.

https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/2204
3. create an an iview and give the service name in IAC textbox not R/3 System name.

Also check:
https://www.sdn.sap.com/irj/sdn/thread?threadID=243082

http://help.sap.com/saphelp_nw04/helpdata/en/44/216fe21784648ee10000000a1553f7/frameset.htm

M again mentioning all the steps for IAC iview creation, plz check.

Steps to display the SAP Transaction as Internet Application Component (IAC) in Portal
The following three tasks have to be performed step by step:
1.Creating the IAC
2.Activating the IAC
3.Creating an IAC iview in the portal

Creating an IAC
1)Go to transaction sicf. Click on the "watch"button. Under Virtual Host / Services expand Default_host > SAP > bc > gui > sap > ITS. Now right click over ITS and select New Sub-Element.
2)In the new dialog box give the name of the service.
3)Now write a description in the description box. In the drop box corresponding to GUI Link select the option Yes. Now click the GUI Transaction button and enter the parameters as shown below.
Parameter Name Value
~TRANSACTION sm36
~THEME 99
~generateDynpro 1
~noHeaderOkCode 1
4)Now go to the tab Handler List and maintain the parameter CL_HTTP_EXT_ITS.
Now click on the save button from the top and save it.
You can now see the service under ITS.

Activating the service

After saving the IAC, we need to activate the service. Select the service under ITS, right click over it and select Activate Service. The service will get activated.

Creating an IAC iview in the portal

We need to create an iview which in tern will use a system to connect to the ITS.
In the WAS property of the system maintain the following property
Web As Host Name :
Web As Path /sap/bc/gui/sap/its/
Web As Protocol HTTP/HTTPS
Under Content Administration > Portal Content create an iview of type SAP IAC iview and specify the system alias name and the IAC.

source
http://forums.sdn.sap.com/thread.jspa?threadID=841234

HR reporting - defaulting value through programming

2011-11-07T22:32:00.000-08:00

Ever wanted to put a default value into the HR reporting....

Now you can.

1. Run the program and press F1 to the defaulted field you want to initialise.

2. Under the abap coding "INITIALIZATION" copy the code below please modify base on your field name.

INITIALIZATION. "TO ADD IF THERE IS ANY TO INITIALIZE
PNPSTAT2-SIGN = 'I'.
PNPSTAT2-OPTION = 'EQ'.
PNPSTAT2-LOW = '0'. PNPSTAT2-HIGH = '0'. APPEND PNPSTAT2.

3. Activate and run the program! Walla Done...

SAP Remove Comma / Remove full stop

2011-11-01T18:40:00.000-07:00

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

* FORM    :   remove_comma

* Created :  13.09.2011 18:33:22

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

FORM REMOVE_COMMA CHANGING $FIELD.

  DATA : WA_INDEX(02) TYPE I.

  DATA : F3(10) TYPE C.

  F3 = $FIELD.

  DO 10 TIMES.

    IF F3+WA_INDEX(01) EQ ','.

      F3+WA_INDEX(01) = ''.

    ENDIF.

    ADD 1 TO WA_INDEX.

  ENDDO.

  CONDENSE F3 NO-GAPS.

  $FIELD = F3.

ENDFORM. " remove_comma

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

* FORM    :   remove_fullstop

* Created :  13.09.2011 18:33:22

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

FORM REMOVE_FULLSTOP CHANGING $FIELD.

  DATA : WA_INDEX(02) TYPE I.

  DATA : F3(10) TYPE C.

  F3 = $FIELD.

  DO 10 TIMES.

    IF F3+WA_INDEX(01) EQ '.'.

      F3+WA_INDEX(01) = ''.

    ENDIF.

    ADD 1 TO WA_INDEX.

  ENDDO.

  CONDENSE F3 NO-GAPS.

  $FIELD = F3.

ENDFORM. " remove_fullstop

Screen programming

2011-10-13T20:51:00.000-07:00

DIAGRAM 1.0

DIAGRAM 2.0

Best practice to make the sy-ucomm to be fcode.

leave to screen 0. <--- to exit the current screen
leave program. <---- to exit the whole rogram

*** normally the program created in module pool (not executable) execute via TRANSACTION CODE

PROGRAM  ZBC400_22_SCREEN.

DATA : FCODE TYPE SY-UCOMM.
tables : sflight.

*&---------------------------------------------------------------------*
*&      Module  SET_GUI_AND_TITLE  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE SET_GUI_AND_TITLE OUTPUT.
  set PF-STATUS 'GUI100'.
  set TITLEBAR  'TITLE' with sy-uname.
ENDMODULE.                 " SET_GUI_AND_TITLE  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  PROCESS_F_CODE  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE PROCESS_F_CODE INPUT.
CASE FCODE.
  when 'ENTER'.

    select single *
      from sflight
      WHERE carrid = sflight-carrid
      and   connid = sflight-connid
      and   fldate = sflight-fldate.

    call screen 200.

  WHEN 'GO_BACK'.

    IF sy-dynnr = 200.
        LEAVE to SCREEN 0.
      else.
        leave PROGRAM.
    ENDIF.

  WHEN 'SPECIAL'.
    MESSAGE i010(ad) with 'special report'.
  WHEN OTHERS.
ENDCASE.

ENDMODULE.                 " PROCESS_F_CODE  INPUT

DIAGRAM 3.0

Based on the above data.

1. create a program (module pool)

2. create screen100 *try not to use 1000 above cause it is standard

PROCESS BEFORE OUTPUT.
MODULE set_gui_and_title.
* MODULE STATUS_0100.
*
PROCESS AFTER INPUT.

-- remember to use the Fcode in element list

3. create gui_status <--- this is for the screen

DIAGRAM 4.0

with this you can create icon and remember th fcode you can use the variable you created too

As for the application tool bar you can add your own ICON!! and apply the same FCODE too

Last but not least dont forget to create the title

DIAGRAM 5.0

**** CLICK on SCREEN then LAYOUT

here you can create your layout

remember for function aka push button remember to put the function code so that your system can manipulate it

remember what ever RED in colour when editing during layout its meaning is more towards error.

REMEMBER TO CALL YOUR PBO AND PAI MODULE INSIDE THE SCREEN!!! EXAMPLE DIAGRAM 3.0

* notice that we are all working in se80 that is why you can see the layout besides

* remember the coding above is sufficient for normal usage.

SAP sample coding of a almost complete understanding of the screen

2011-10-13T00:59:00.000-07:00

*&---------------------------------------------------------------------*
*& Report ZDC_SALES_REP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZDC_SALES_REP no standard page heading
line-size 132
line-count 65(3).

data:
line_no(5) type n.

data:
v_matnr type vbap-matnr.

data:
it_salesdet type table of zdc_sales_doc,
wa_salesdet like line of it_salesdet.

* selection screen
parameters:
p_vkorg type vbak-vkorg obligatory.

select-options:
s_matnr for v_matnr.

parameters:
p_flag as checkbox.

initialization.
p_vkorg = 1000.

s_matnr-sign = 'I'.
s_matnr-option = 'BT'.
s_matnr-low = 'M-01'.
s_matnr-high = 'M-03'.
append s_matnr.

clear s_matnr.
s_matnr-sign = 'E'.
s_matnr-option = 'EQ'.
s_matnr-low = 'M-02'.
append s_matnr.

at selection-screen.
if p_flag = 'X' and s_matnr[] is not initial.
message e010(ad) with 'Error'.
endif.

start-of-selection.

" get data
select * into table it_salesdet
from zdc_sales_doc
where vkorg = p_vkorg
and matnr in s_matnr.

" display report
loop at it_salesdet into wa_salesdet.
add 1 to line_no.
write: / line_no,
wa_salesdet-vbeln color col_key,
wa_salesdet-posnr color col_key,
wa_salesdet-kunnr color col_positive,
wa_salesdet-netwr,
wa_salesdet-matnr,
wa_salesdet-ZMEng color col_total.
endloop.

end-of-selection.

top-of-page.
write: /80 'Page:', sy-pagno.
uline.
clear line_no.

end-of-page.
format color col_total.
write: /(132) '--Continued--' centered.

DATA DECLARATION SAP

2011-10-12T00:58:00.000-07:00

*&---------------------------------------------------------------------*
*& Report ZBC400_22_ITAB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZBC400_22_ITAB.
"BEST PRACTICE TO DECLARE TYPE FIRST
"THEN ONLY ASSIGN THE TYPE TO EITHER STRUCTURE OR TABLE

"TYPE TABLE OF <<<< KEY WORD TO CREATE AN INTERNAL TABLE
"THEN FOLLOWED BY
"LIKE LINE OF <<<< KEY WORD TO CREATE A WORK AREA / STRUCTURE FOR THE TABLE

*defination of internal table
*TYPES : TY_FLIGHT TYPE SFLIGHT.
TYPES :
BEGIN OF TY_FLIGHT. "this is to include a table structure
INCLUDE STRUCTURE SFLIGHT. "this is to include a table structure
TYPES : "this extra type is due to the table being inserted
F1 TYPE C LENGTH 4,
F2 TYPE C LENGTH 4,
F3 TYPE SFLIGHT-FLDATE,
END OF TY_FLIGHT.

DATA: IT_FLIGHT TYPE TABLE OF TY_FLIGHT, "[[[ THIS IS THE INTERNAL TABLE BEING CREATED ]]]
WA_FLIGHT LIKE LINE OF IT_FLIGHT. " WA_FLIGHT TYPE TY_FLIGHT
"< DONT FOLLOW THE COMMENT THOUGH SAME
START-OF-SELECTION.
SELECT * INTO TABLE IT_FLIGHT FROM SFLIGHT. "MODIFY
LOOP AT IT_FLIGHT INTO WA_FLIGHT. "MODIFY
WA_FLIGHT-PRICE = '88.88'. "CHANGING TO STRUCTURE ONLY "MODIFY
MODIFY IT_FLIGHT INDEX SY-TABIX FROM WA_FLIGHT. "MODIFY
"MODIFY
ENDLOOP.
DELETE IT_FLIGHT WHERE CARRID = 'LH'. "DELETE
"APPEND WORKS ONLY FOR STANDARD DATA
CLEAR WA_FLIGHT. "APPEND
WA_FLIGHT-CARRID = 'LH'. "APPEND
WA_FLIGHT-CONNID = '8888'. "APPEND
WA_FLIGHT-FLDATE = '20111231'. "APPEND
APPEND WA_FLIGHT TO IT_FLIGHT. "APPEND

CLEAR WA_FLIGHT. "CLEAR TO ENSURE THE WA IS CLEAN
READ TABLE IT_FLIGHT INTO WA_FLIGHT WITH KEY CARRID = 'JL'. "READ AND ASSIGN TO WA_FLIGHT

IF SY-SUBRC = 0 . "DISPLAYED ASSIGNED WA_FLIGHT
WRITE: / 'ROW NUMBER=', SY-TABIX, "DISPLAYED ASSIGNED WA_FLIGHT
WA_FLIGHT-CARRID, "DISPLAYED ASSIGNED WA_FLIGHT
WA_FLIGHT-CONNID, "DISPLAYED ASSIGNED WA_FLIGHT
WA_FLIGHT-FLDATE. "DISPLAYED ASSIGNED WA_FLIGHT
ENDIF. "DISPLAYED ASSIGNED WA_FLIGHT

CLEAR WA_FLIGHT. "CLEAR TO ENSURE THE WA IS CLEAN
SORT IT_FLIGHT BY CARRID. "SORT IT_FLIGHT BY CARRID
LOOP AT IT_FLIGHT INTO WA_FLIGHT FROM SY-TABIX. "LOOP AND ASSIGN TO WA_FLIGHT BY INDEX
IF WA_FLIGHT-CARRID = 'LH'. "CONDITIONAL WHERE EQUAL TO LH
WRITE: / 'ROW NUMBER=', SY-TABIX, "DISPLAYED ASSIGNED WA_FLIGHT
WA_FLIGHT-CARRID, "DISPLAYED ASSIGNED WA_FLIGHT
WA_FLIGHT-CONNID, "DISPLAYED ASSIGNED WA_FLIGHT
WA_FLIGHT-FLDATE. "DISPLAYED ASSIGNED WA_FLIGHT
ENDIF.
ENDLOOP.
CHECK 1 = 1.

Add Title(heading) to ALV Grid

2011-10-04T19:28:00.000-07:00

call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE' "see FORM
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.

*-----------------------------------------------------------*
* Form TOP-OF-PAGE                                         *
*-----------------------------------------------------------*
* ALV Report Header                                         *
*-----------------------------------------------------------*
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
      wa_header type slis_listheader,
      t_line like wa_header-info,
      ld_lines type i,
      ld_linesc(10) type c.

* Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.

* Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
               sy-datum+4(2) '.'
               sy-datum(4) INTO wa_header-info.   "todays date
append wa_header to t_header.
clear: wa_header.

* Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
                    into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.

call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            it_list_commentary = t_header.
*            i_logo             = 'Z_LOGO'.
endform.

http://www.sapdev.co.uk/reporting/alv/alvgrid_rephead.htm

Function module HR_INFOTYPE_OPERATION

2011-09-27T01:23:00.000-07:00

Function module HR_INFOTYPE_OPERATION to maintain SAP HR infotypes

The HR_INFOTYPE_OPERATION function module is used for the Maintenance of HR infotypes, such as inserting, changing, deleting data etc

Parameters Explained
Here is a list of the fm's parameters and how they are used, obviously not all parameters will be used depending on what function you are performing i.e. insert, change, delet etc

infty - Infotype being updated

objectid - object id from infotype

number - Personnel number

validityend - validity end date

validitybegin - validity begin date

record - infotype record values to be updated, inserted etc (will be structure of infortyoe you are updating)

recordnumber - sequence nunber from infotype record you are updating

Operation - describes what operation is to be performed
COP = Copy
DEL = Delete
DIS = Display
EDQ = Lock/unlock
INS = Create
LIS9 = Delimit
MOD = Change
INSS = Create for Actions is not converted to Change

nocommit - commit yes('X') / no(' ')

dialog_mode - dialog mode or not, default is '0'

Example coding for MOD operation

      CONSTANTS: change TYPE pspar-actio VALUE 'MOD'.

      "This code is requred and locks the record ready for modification
      CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
        EXPORTING
         number = p_pernr.


      "loop at p0071 into p_p0071.  "added to put code in context
      validitybegin = p_record-begda.
      validityend   = p_record-endda.
      p_record-endda = pn-begda - 1.

      CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty         = '0071'
          subtype       = p_record-subty
          objectid      = P_record-objps
          number        = p_record-pernr     "employeenumber
          validityend   = validityend
          validitybegin = validitybegin
          record        = p_record
          recordnumber  = p_record-SEQNR
          operation     = change
          nocommit      = nocommit
          dialog_mode   = '0'
        IMPORTING
          return        = return_struct
          key           = personaldatakey
        EXCEPTIONS
          OTHERS        = 0.

       "endloop.

     "unlock record after modification
     CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
       EXPORTING
        number = p_pernr.

Example coding for INS operation

      CONSTANTS: insert TYPE pspar-actio VALUE 'INS'.

      "This code is requred and locks the record ready for modification
      CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
        EXPORTING
         number = p_pernr.


      validitybegin = p_record-begda.
      validityend   = p_record-endda.
      p_record-pernr = p_pernr
      p_record-begda =  pn-begda.
      p_record-endda =  validityend.
      p_record-subty = p_SUBTY.  "subtype of new entry
      p_record-SCREF = p_SUBTY.  "subtype of new entry
      "plus populate any other fields you need to update

      CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty         = '0071'
          subtype       = p_record-subty
          number        = p_record-pernr     "employeenumber
          validityend   = validityend
          validitybegin = validitybegin
          record        = p_record
          operation     = insert
          nocommit      = nocommit
          dialog_mode   = '0'
        IMPORTING
          return        = return_struct
          key           = personaldatakey
        EXCEPTIONS
          OTHERS        = 0.

     "unlock record after modification
     CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
       EXPORTING
        number = p_pernr.

INS operation example coding for infotype 0105

Also see BAPI_EMPLCOMM_CREATE for <a style="color: rgb(0, 0, 255); ">updating infotype 0105</a>

      CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
        EXPORTING
          number = p_pernr.

      p_record-subty    = p_subtype. "subtype of new entry
      p_record-pernr    =  p_pernr.
      p_record-SEQNR    = '000'.
      validityend       = '99991231'.
      validitybegin     = sy-datum.
      p_record-begda    = sy-datum.
      p_record-endda    = '99991231'.
      p_record-usrid    = 'TESTUSR'.

      CALL FUNCTION 'HR_INFOTYPE_OPERATION'
        EXPORTING
          infty         = '0105'
          subtype       = p_record-subty
          objectid      = P_record-objps
          number        = p_record-pernr     "employeenumber
          validityend   = validityend
          validitybegin = validitybegin
          record        = p_record
          operation     = 'INS'
          nocommit      = nocommit
          dialog_mode   = '0'
        IMPORTING
          return        = return_struct
          key           = personaldatakey
        EXCEPTIONS
          OTHERS        = 0.
      if sy-subrc eq 0.
*       success       
      endif.

      CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
        EXPORTING
          number = p_pernr.

see BAPI_EMPLCOMM_CREATE if updating infotype 0105!!

Check out sap documentation and pattern details for function module hr_infotype_operation on website se80.co.uk

Source = http://www.sapdev.co.uk/fmodules/fms_HR_INFOTYPE_OPERATION.htm

SAP HR Infotypes

2011-09-15T02:30:00.000-07:00

SAP HR Infotypes

March 8, 2008 — harrypoe

Infotypes are also called information types and are pre-defined
templates to enter sensible related information for an employee or
applicant. for eg an address infotype would have fields like street
& house no, city, pin code.This infotype is unique and is
represented by an infotype number eg address has infotype no 0006. There
other infotypes like

0000 – Actions (to capture employee movement info in the orgnization)
0001 – Organizational Assignment (to capture employee positioning in the organization)
0002 – Personal Data
0006 – Address
0007 – Planned Working Time (Store planned working hours for the employee.)
0008 – Basic Salary
0009 – Bank Details
0014 – Recurring Payment
0015 – Additional payment
0016 – Contract Elements
2006 – Absence Quotas

The above infotypes together in the same sequence form a part of the
Hiring Action.To make you understand this better just try and recollect
the contents of your offer letter which your organization might have
given you. It would possibly read “We are delighted to offer you the
position (IT 0001) of ______. You will belong to ______ department (IT
0001). Your joining date will be ______(IT0000 or IT0041)and you will be
paid a salary of ______ (IT 0008). You will be paid monthly allowances
______ (IT 0008 or IT 0014) and we are also offering you a joining bonus
of ______ (IT 0015). You will be eligible for annual leave of ______
days (IT 2006) and sick leave of ______ (IT 2006).You will be on a
probation for six months from the date of joining (probation date &
confirmation date in IT0016). Your working hours will be from ____ hrs
to ____ hrs beginning Monday to Friday (IT 0007) and we look forward to
your presence on date ______(IT 0016)……

I hope this gives you some idea of what an infotype is.

This must have raised a question in many
minds that “Hey ! I got the offer during my recruitment so how come this
is being referred to after hiring?” Well thats simple – this is because
all your relevant data that was captured during recruitment was
transferred to the the master (called HR master data)during the hiring
process.

So how was it captured in recruitment?

Well, this was captured using recruitment actions like shortlist
candidate, for interview, make offer, offer accepted till you join the
organization and sign the joining letter when your data actually gets
transferred from the Recruitment module to the Personnel Administration
module. Again this data was captured in recruitment infotypes.

So we can now get an idea that in SAP HR ,all data is captured in infotypes.

Question and Answer

1.What are info types ?

Infotypes, known as information types are units of human resources
information formed by grouping related data fields together. These are
represented in the sap hr system by a unique 4 digit number eg. Personal
Data (0002), Address (0006) etc. All customer infotypes fall in the
number range from 9000 to 9999. The fields in the infotype would vary
based on the country grouping for eg if any employee belongs to country
grouping 10 than he would have the SSN no field in the Personal Data
infotype which would not be seen in same infotype for country grouping
99.

*Infotype numbering in SAP HR sub module

0000-0999 Personal Administration (HR Master Data)
1000-1999 PD Infotypes ( OM etc)
2000-2999 Time Infotypes
4000-4999 Recruitment Infotypes

So whenever you are searching for a customer defined infotype make
sure your search is restricted between 9000 -9999. The infotypes
relevant to retroactive accounting for payroll and time infotypes are
defined in the

IMG . Personnel Administration–>Customizing
Procedures–>Infotypes–>Define fields relevant for retroactive
accounting–> Retroactive accounting relevance for payroll and time
per IT

Under this node you define for each infotype the following:- 1.Check
if no organizational assignment exists for the employee in
IT0001-Organizational Assignment and throw an error, warning or no
message.

So whenever you are searching for a customer defined infotype make sure
your search is restricted between 9000 -9999.The infotypes relevant to
retroactive accounting for payroll and time infotypes are defined in the

IMG . Personnel Administration–>Customizing
Procedures–>Infotypes–>Define fields relevant for retroactive
accounting–> Retroactive accounting relevance for payroll and time
per IT

Under this node you define for each infotype the following:-

1.Check if no organizational assignment exists for the employee in
IT0001-Organizational Assignment and throw an error, warning or no
message.

2.Maintenance of this infotype is permissible, permissible with
warning, or not permissible after the employee has left the organization
(employee in inactive status).

3.Entries in payroll past are permissible, not permissible or check for entries in the payroll past are infotype specific.

4.Infotype is not relevant for retroactive accounting, change in the
infotype triggers retroactive accounting or retroactive accounting is
field-dependent according to table T588G where the fields whose change
in values should trigger retroactive accounting are defined. Hence you
can see the significance of field triggers in retroactive accounting
where retroactive accounting for a given infotype can be restricted to
changes in the past to certain fields of the infotype.

If there is case that we need to specify certain info types for certain countries only, below are the IMG path you can maintain:

SPRO–>Personnel Administration–>Customizing Procedures–> Assign infotypes to countries

source

Notes : CALL FUNCTION 'HR_READ_INFOTYPE'

2011-09-15T02:16:00.000-07:00

*INFOTYPE 0000(ACTION) FROM DATE JOINED ONWARDS:-

    CALL FUNCTION 'HR_READ_INFOTYPE'

      EXPORTING

        PERNR     = PERNR-PERNR

        INFTY     = '0000'

        BEGDA     = '99991231'

        ENDDA     = '99991231'

      TABLES

        INFTY_TAB = I0000.

Notes : Sample Program. To read Unix file and perform BDC functions

2011-09-13T18:54:00.000-07:00

REPORT  ZPYLBMA128 MESSAGE-ID 25 LINE-SIZE 500 LINE-COUNT 65 NO STANDARD PAGE HEADING..
INCLUDE ZPYLBMA128_VARIABLES.

"SELECTION SCREEN STARTS=========================
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: SKIP 1.
PARAMETERS    : DSN LIKE FILENAME-FILEEXTERN DEFAULT '/home/HRD/UL/test zakat.prn'.
PARAMETERS    : MAPNAME DEFAULT SY-UNAME LIKE RPTAXXXX-MAP_NAME.
PARAMETERS    : TEST_RUN    TYPE C AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK B1.
"SELECTION SCREEN ENDS=========================

"INITIALIZATION STARTS=========================
INITIALIZATION.
  DSN+6(3) = SY-SYSID.
  REPNAME = SY-REPID.
"INITIALIZATION ENDS=========================

"AT SELECTION-SCREEN CHECKING STARTS=========================
AT SELECTION-SCREEN ON DSN.
  CLEAR: IDSN.
  TRY.
      OPEN DATASET DSN FOR INPUT IN TEXT MODE ENCODING NON-UNICODE.   "UNI-CONV
      IF SY-SUBRC NE 0.
        MESSAGE E899(5A) WITH 'Error in opening file:'(E01) DSN.
      ENDIF.
    CATCH CX_SY_FILE_OPEN.
      CLOSE DATASET DSN.
      OPEN DATASET DSN FOR INPUT IN TEXT MODE ENCODING NON-UNICODE.  "UNI-CONV
      IF SY-SUBRC NE 0.
        MESSAGE E899(5A) WITH 'DATA DOES NOT EXITS:'(E01) DSN.
      ENDIF.
  ENDTRY.

AT SELECTION-SCREEN.
  IF TEST_RUN NE 'X'.
    CALL FUNCTION 'HR_MAPNAME_VERIFY'
      EXPORTING
        MAPNAME    = MAPNAME
        REPORTNAME = REPNAME
      IMPORTING
        MAPNAME    = MAPNAME.
  ENDIF.
  "AT SELECTION-SCREEN CHECKING ENDS=========================
  "START-OF-SELECTION=========================

START-OF-SELECTION.
  "BDC OPEN GROUP
  IF TEST_RUN NE 'X'.
    CALL FUNCTION 'BDC_OPEN_GROUP'
      EXPORTING
        CLIENT = SY-MANDT
        GROUP  = MAPNAME
        KEEP   = 'X'
        USER   = SY-UNAME.
  ENDIF.

**TO READ DATA FROM UNIX FILE
  DO.
    READ DATASET DSN INTO IDSN.
    IF SY-SUBRC EQ 0.
      "WRITE IDSN-SUBTY LEFT-JUSTIFIED TO IDSN-SUBTY.
      CONDENSE IDSN-SUBTY.
      APPEND IDSN.
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.
  CLOSE DATASET DSN.

**TO PROCESS RECORD BY RECORD
  DESCRIBE TABLE IDSN LINES ILINE.
  CHECK ILINE > 0.

  CLEAR: ITAB[], ERRTAB[]."errtab AND  ERROR_FLAG ARE not used as there is no checking as yet!

  LOOP AT IDSN.

    CLEAR: ERRTAB.
    MOVE: IDSN-PERNR TO PERNR1.
    ADD 1 TO NUMREC.  "Current Record (Row) Number

****To validate PF No & IC/Passport No
    PERFORM VALIDATE_PERNR.

****To assign data to ITAB
    IF ERROR_FLAG <> 'X'.
      PERFORM ASSIGN_DATA.
    ENDIF.

    IF ERROR_FLAG <> 'X'.
      IF TEST_RUN NE 'X'.
        PERFORM FILL-DYNPROS.
      ENDIF.
******HASHING FOR ACCEPTED RECORDS
      ADD: 1        TO HEAD_COUNT,
           PERNR1   TO HASH_PERNR.
      APPEND ITAB.
    ELSE.
******HASHING FOR REJECTED RECORDS
      ADD: 1        TO HEAD_COUNT_RJ,
           PERNR1   TO HASH_PERNR_RJ.
    ENDIF.
****HASHING FOR ALL RECORDS
    ADD: 1        TO HEAD_COUNT_TT,
         PERNR1   TO HASH_PERNR_TT.

  ENDLOOP.

  "**Close BDC session
  IF TEST_RUN NE 'X'.
    CALL FUNCTION 'BDC_CLOSE_GROUP'.
    FORMAT COLOR COL_GROUP ON INTENSIFIED OFF.
    WRITE:/ 'Batch input session', MAPNAME, 'created'.
    FORMAT COLOR COL_GROUP OFF INTENSIFIED OFF.
    SKIP 2.
  ENDIF.

**PRINT HASHING SUMMARY
  PERFORM PRINT_HASHING_SUMMARY.

  WRITE:/ 'Record(s) with errors'.
  WRITE:/ '---------------------'.
  WRITE:/2(10) 'Record no.' , 14(60)'Error' , 76(10) 'PF No', 88(11) 'Member Type', 101(4) 'Wage Type',
            107(10) 'Start Date' , 119(8) 'End Date' , 129(14) 'Membership Fee' ,
            145(10) '    Number' , 157(20) 'Unit' , 179(9) 'Payee Key'.
WRITE:/2(10) '----------' , 14(60)'-----' , 76(10) '-----', 88(11) '-----------', 101(4) '---------',
            107(10) '----------' , 119(8) '--------' , 129(14) '--------------' ,
            145(10) '    ------' , 157(20) '----' , 179(9) '---------'.
  LOOP AT ERRTAB.
    WRITE:/2(10) ERRTAB-NUMREC , 14(60) ERRTAB-MESSG,  76(10) ERRTAB-PERNR, 88(11)  ITAB-SUBTY, 101(4)  ITAB-LGART,
            107(10) ITAB-BEGDA, 119(8) ITAB-ENDDA, 129(14) ITAB-BETRG,
            145(10) ITAB-ANZHL, 157(20) ITAB-ZEINH, 179(9) ITAB-EMFSL.
            "itab-icnum, "itab-mtgln.
  ENDLOOP.
END-OF-SELECTION.
"END-OF-SELECTION=========================

"======================REPORTS STARTS
**PRINT FOOTER
  PERFORM WRITE_FOOTER.
********************* REPORT HEADER *******************************
TOP-OF-PAGE.
PAGENO = ' '.
PERFORM WRITE_HEADER USING '0001' 'M' SY-DATUM
  SPACE '100213' ' HRIS, HRD' PAGENO.
SKIP 2.
INCLUDE ZPULRIA001.
"======================REPORTS ENDS
INCLUDE ZPYLBMA128_FORMS.
"--------------------------------------------------------------------------------------------------------------
"--------------------------------------------------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&  Include           ZPYLBMA128_VARAIBLE
*&---------------------------------------------------------------------*

"DATA DECLARATION STARTS=========================
TABLES: PA0000,  "HR Master Record: Infotype 0000 (Actions)
        PA0001,  "HR Master Record: Infotype 0001 (Org. Assignment)
        PA0002,  "HR Master Record: Infotype 0002 (Personal Data)
        PA0185,  "HR Master Record: Infotype 0185 [Identification] (SG)
        T591S,   "Subtype Texts (for Member Type Text)
        T512T,   "Wage Type Texts
        T521B,   "Payee Keys
        T001,    "Company Codes
        SSCRFIELDS. "Fields on selection screens
** Table to hold all data row from flat file
DATA: BEGIN OF IDSN OCCURS 0,
        PERNR(08)   TYPE C,    "PF No.
        SUBTY(04)   TYPE C,    "Member Type (Sub-Type)
        LGART(04)   TYPE C,    "Wage Type
        BEGDA(08)   TYPE C,    "Start Date
        ENDDA(08)   TYPE C,    "End Date
        BETRG(13)   TYPE C,    "Membership Fee / Amount
        ANZHL(10)   TYPE C,    "Number
        ZEINH(20)   TYPE C,    "Unit
        EMFSL(08)   TYPE C,    "Payee Key
"        MTGLN(20)   TYPE C,    "Membership Number
"        ICNUM(30)   TYPE C,    "New IC
      END OF IDSN.
** Table to hold success data
DATA: BEGIN OF ITAB OCCURS 0,
        PERNR     LIKE P0000-PERNR,    "PF No.
        SUBTY     LIKE RP50G-SUBTY,    "Member Type (Sub-Type)
        LGART     LIKE P0057-LGART,    "Wage Type
        LGTXT     LIKE T512T-LGTXT,    "Wage Type Text*
        BEGDA(10) TYPE C,              "Start Date
        ENDDA(10) TYPE C,              "End Date
        BETRG     LIKE Q0057-BETRG,    "Membership Fee
        ANZHL     LIKE P0057-ANZHL,    "Number
        ZEINH     LIKE Q0057-EITXT,    "Unit

        EMFSL     LIKE P0057-EMFSL,    "Payee Key
        EMFNA     LIKE T521B-EMFNA,    "Payee Key Text*

"        STEXT     LIKE T591S-STEXT,    "Member Type Text
"        MTGLN     LIKE P0057-MTGLN,    "Membership Number
"        ICNUM     LIKE P0185-ICNUM,    "New IC
"        CNAME     LIKE P0002-CNAME,    "Staff Name
      END OF ITAB.
** Table to hold error data and error message
DATA: BEGIN OF ERRTAB OCCURS 0,
        NUMREC    TYPE I,
        MESSG(60) TYPE C.
        INCLUDE STRUCTURE ITAB.
DATA: END OF ERRTAB.
* Table for Batch Input
DATA: BEGIN OF BDCDATA OCCURS 20.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDCDATA.
DATA: HEAD_COUNT    TYPE I,
      HEAD_COUNT_RJ TYPE I,
      HEAD_COUNT_TT TYPE I,
      HASH_PERNR    TYPE P,
      HASH_PERNR_RJ TYPE P,
      HASH_PERNR_TT TYPE P.
DATA: ILINE        TYPE I,
      NUMREC       TYPE I,            "Record (Row) Number
      ERROR_FLAG   TYPE C,            "Error Flag
"      BK_ICNUM(30) TYPE C,            "Unformatted IC Number
      PAGENO(1)    TYPE C,            "Page Number (Report)
"      TDATE(10)    TYPE C,            "To hold formatted date
      PERNR1       LIKE P0000-PERNR.  "Personnel Number
"      ICTYPE       LIKE P0185-ICTYP,  "Document Type
"      STARTDT      LIKE SY-DATUM.     "Hiring Start Date
DATA: REPNAME LIKE SY-REPID.
"DATA DECLARATION ENDS=========================
"--------------------------------------------------------------------------------------------------------------
"--------------------------------------------------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&  Include           ZPYLBMA128_FORMS
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  assign_data
*&---------------------------------------------------------------------*
FORM ASSIGN_DATA.

  CLEAR ERROR_FLAG.

  MOVE-CORRESPONDING IDSN TO ITAB.

"**Retrieve Staff Name (Infotype 0002)
"  SELECT SINGLE * FROM PA0002 WHERE PERNR EQ ITAB-PERNR.
"  IF SY-SUBRC EQ 0.
"    ITAB-CNAME = PA0002-CNAME.                  "Store Staff Name
"    WRITE:/ PA0002-CNAME.
"  ELSE.
"    ERROR_FLAG = 'X'.
"    MOVE-CORRESPONDING IDSN TO ERRTAB.
"    ERRTAB-NUMREC = NUMREC.
"    ERRTAB-MESSG = 'Staff Name not found'.
"    APPEND ERRTAB. CLEAR ERRTAB.
"  ENDIF.

"**Retrieve Member Type Text
"  IF ERROR_FLAG NE 'X'.
"    SELECT SINGLE * FROM T591S WHERE SPRSL EQ 'EN'
"                                 AND INFTY = '0057'
"                                 AND SUBTY = ITAB-SUBTY.
"    IF SY-SUBRC EQ 0.
"      ITAB-STEXT = T591S-STEXT.
"    ELSE.
"      ERROR_FLAG = 'X'.
"      MOVE-CORRESPONDING IDSN TO ERRTAB.
"      ERRTAB-NUMREC = NUMREC.
"      ERRTAB-MESSG = 'Member Type not found'.
"      APPEND ERRTAB. CLEAR ERRTAB.
"    ENDIF.
"  ENDIF.

"**Wage Type Text
"  IF ERROR_FLAG NE 'X'.
"    SELECT SINGLE * FROM T512T WHERE SPRSL EQ 'EN'
"                                 AND MOLGA EQ '14'
"                                 AND LGART = ITAB-LGART.
"    IF SY-SUBRC EQ 0.
"      ITAB-LGTXT = T512T-LGTXT.
"    ELSE.
"      ERROR_FLAG = 'X'.
"      MOVE-CORRESPONDING IDSN TO ERRTAB.
"      ERRTAB-NUMREC = NUMREC.
"      ERRTAB-MESSG = 'Wage Type not found'.
"      APPEND ERRTAB. CLEAR ERRTAB.
"    ENDIF.
"  ENDIF.

"**Payee Key Text
"  IF ERROR_FLAG NE 'X'.

"    SELECT * FROM T521B INTO TABLE WA_T521B WHERE EMFSL EQ ITAB-EMFSL.

"    IF SY-SUBRC EQ 0.
"      SORT WA_T521B BY ENDDA DESCENDING.
"      LOOP AT WA_T521B.
"        ITAB-EMFNA = WA_T521B-EMFNA. EXIT.
"      ENDLOOP.
"    ELSE.
"      ERROR_FLAG = 'X'.
"      MOVE-CORRESPONDING IDSN TO ERRTAB.
"      ERRTAB-NUMREC = NUMREC.
"      ERRTAB-MESSG = 'Wage Type not found'.
"      APPEND ERRTAB. CLEAR ERRTAB.
"    ENDIF.
"  ENDIF.

ENDFORM.                    " assign_data
*&---------------------------------------------------------------------*
*&      Form  FILL-DYNPROS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FILL-DYNPROS .
  PERFORM D1000.
  PERFORM D2000.
  CALL FUNCTION 'BDC_INSERT'
       EXPORTING
            TCODE     = 'PA30'
       TABLES
            DYNPROTAB = BDCDATA.

ENDFORM.                    " FILL-DYNPROS

FORM D1000.

  REFRESH BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = 'SAPMP50A'.
  BDCDATA-DYNPRO   = '1000'.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.

**PF NO.
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'RP50G-PERNR'.
  BDCDATA-FVAL = IDSN-PERNR.
  APPEND BDCDATA.

**INFOTYPE 0008
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'RP50G-CHOIC'.
  BDCDATA-FVAL = '0057'.
  APPEND BDCDATA.

**SUBTYPE (Member Type)
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'RP50G-SUBTY'.
  BDCDATA-FVAL = IDSN-SUBTY.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'BDC_OKCODE'.
  BDCDATA-FVAL = '=INS'.
  APPEND BDCDATA.

ENDFORM.                    " d1000

*---------------------------------------------------------------------*
*       FORM  D2000
*---------------------------------------------------------------------*
FORM D2000.

  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = 'MP005700'.
  BDCDATA-DYNPRO   = '2000'.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.

**START DATE
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'P0057-BEGDA'.
  "WRITE IDSN-BEGDA TO BDCDATA-FVAL DD/MM/YYYY.
  CONCATENATE IDSN-BEGDA+6(2)  '.' IDSN-BEGDA+4(2) '.'  IDSN-BEGDA+0(4) INTO BDCDATA-FVAL.
  APPEND BDCDATA.

**END DATE
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'P0057-ENDDA'.
  "WRITE IDSN-ENDDA TO BDCDATA-FVAL DD/MM/YYYY.
  CONCATENATE IDSN-ENDDA+6(2)  '.' IDSN-ENDDA+4(2) '.'  IDSN-ENDDA+0(4) INTO BDCDATA-FVAL.
  APPEND BDCDATA.

**Wage Type
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'P0057-LGART'.
  BDCDATA-FVAL = IDSN-LGART.
  APPEND BDCDATA.

**Membership Fee
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'Q0057-BETRG'.
  BDCDATA-FVAL = IDSN-BETRG.
  APPEND BDCDATA.

**Number
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'P0057-ANZHL'.
  BDCDATA-FVAL = IDSN-ANZHL.
  APPEND BDCDATA.

**Unit
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'Q0057-EITXT'.
  BDCDATA-FVAL = IDSN-ZEINH.
  APPEND BDCDATA.

**Payee Key
  CLEAR BDCDATA.
  BDCDATA-FNAM = 'P0057-EMFSL'.
  BDCDATA-FVAL = IDSN-EMFSL.
  APPEND BDCDATA.

"**Membership Number
"  CLEAR BDCDATA.
"  BDCDATA-FNAM = 'P0057-MTGLN'.
"  BDCDATA-FVAL = IDSN-MTGLN.
"  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'BDC_OKCODE'.
  BDCDATA-FVAL = '=UPD'.
  APPEND BDCDATA.

ENDFORM.                    " d2000
*&---------------------------------------------------------------------*
*&      Form  print_hashing_summary
*&---------------------------------------------------------------------*
FORM PRINT_HASHING_SUMMARY.

  SKIP 3.
  WRITE: /20 'Accepted Records' COLOR COL_TOTAL,
          40 'Rejected Records' COLOR COL_TOTAL,
          60 '   Total Records' COLOR COL_TOTAL.
  WRITE: /20 '----------------', 40 '----------------',
          60 '----------------'.
  WRITE: /02 'Head Count :',
          20(13) HEAD_COUNT,     40(13) HEAD_COUNT_RJ,
          60(13) HEAD_COUNT_TT.
  WRITE: /02 'Hash Pernr :',
          20(13) HASH_PERNR,     40(13) HASH_PERNR_RJ,
          60(13) HASH_PERNR_TT.
  SKIP 2.

ENDFORM.                    " print_hashing_summary
*&---------------------------------------------------------------------*
*&      Form  validate_pernr
*&---------------------------------------------------------------------*
FORM VALIDATE_PERNR.

  DATA: RETCD, RETCD1.

  ERROR_FLAG = SPACE.

**CHECK PERNR - PERSONNEL NUMBER
  PERFORM CHECK_PERNR USING PERNR1 RETCD.
  IF RETCD NE 0.
    ERROR_FLAG = 'X'.
    MOVE-CORRESPONDING IDSN TO ERRTAB.
    ERRTAB-NUMREC = NUMREC.
    ERRTAB-MESSG = 'PF number not found'.
    APPEND ERRTAB. CLEAR ERRTAB.
  ENDIF.

  CHECK RETCD EQ 0.

"  IF IDSN-ICNUM+6(1) EQ '-' AND IDSN-ICNUM+9(1) EQ '-'.
"****Subtype 'IC'
"    ICTYPE = '01'.
"    CONCATENATE IDSN-ICNUM+0(6) IDSN-ICNUM+7(2) IDSN-ICNUM+10(4)
"           INTO BK_ICNUM.
"  ELSE.
"****Subtype 'Passport'
"    ICTYPE = '02'.
"    MOVE IDSN-ICNUM TO BK_ICNUM.
"  ENDIF.

"  PERFORM VERIFY_DOCID USING PERNR1 ICTYPE BK_ICNUM RETCD1.
"  IF RETCD1 NE 0.
"    ERROR_FLAG = 'X'.
"    MOVE-CORRESPONDING IDSN TO ERRTAB.
"    ERRTAB-NUMREC = NUMREC.
"    ERRTAB-MESSG  = 'IC/Passport No. not found'.
"    APPEND ERRTAB. CLEAR ERRTAB.
"  ENDIF.

ENDFORM.                    " validate_pernr

FORM CHECK_PERNR USING PPERNR PRETCD.

**Check from Infortype 0000 (Action)
  SELECT * FROM PA0000 WHERE PERNR EQ PPERNR. EXIT. ENDSELECT.
  PRETCD = SY-SUBRC.
  IF SY-SUBRC NE 0. EXIT. ENDIF.

**Check from Infotype 0001 (Organizational Assignment)
  SELECT * FROM PA0001 WHERE PERNR EQ PPERNR. EXIT. ENDSELECT.
  PRETCD = SY-SUBRC.

ENDFORM.

"--------------------------------------------------------------------------------------------------------------
"--------------------------------------------------------------------------------------------------------------
***INCLUDE ZPULRIA001 .
*----------------------------------------------------------------------
* Report header
*----------------------------------------------------------------------
FORM WRITE_HEADER USING VALUE(RBUKRS) VALUE(RTYPE)  VALUE(RDATE)
                        VALUE(RTITL2) VALUE(RBRHCD) VALUE(RBRH)
                        RINDC.
DATA: CBUTXT(25), TITLEN TYPE I, OUTDATE(10), REPDATE(10).
DATA: BUKLEN TYPE I.
STATICS: CPAGNO(4).
  IF RINDC = 'X'. CPAGNO = 0. RINDC = SPACE. ENDIF.
  ADD 1 TO CPAGNO.
  IF RBUKRS = 'G'.
    CBUTXT = 'MAYBANK GROUP'.
  ELSE.
    PERFORM RE001 USING RBUKRS CBUTXT.
  ENDIF.
  CALL FUNCTION 'Z_CONV_DATE_TO_SLASH_FMT'
       EXPORTING
            IDATE     = SY-DATUM
            INDICATOR = '1'
       IMPORTING
            ODATE   = OUTDATE.
  CALL FUNCTION 'Z_CONV_DATE_TO_SLASH_FMT'
       EXPORTING
            IDATE   = RDATE
            INDICATOR = '1'
       IMPORTING
            ODATE   = REPDATE.

* Line 1
  TRANSLATE CBUTXT TO UPPER CASE.
  TRANSLATE SY-TITLE TO UPPER CASE.
  BUKLEN = STRLEN( CBUTXT ). BUKLEN = 32 - BUKLEN. BUKLEN = BUKLEN / 2.
  TITLEN = STRLEN( SY-TITLE ). TITLEN = 69 - TITLEN.TITLEN = TITLEN / 2.
  TITLEN = TITLEN + 34 - BUKLEN.
  WRITE:/1 '1',2 CBUTXT.
  WRITE AT TITLEN SY-TITLE.
* cpagno = sy-pagno. shift cpagno right deleting trailing space.
  SHIFT CPAGNO RIGHT DELETING TRAILING SPACE.
  WRITE:100 'RUN DATE  :', 112 OUTDATE, 122 'PAGE:', 127 CPAGNO.

* Line 2
  IF RTYPE = 'B'.
    WRITE:/2 'BRANCH', 9 RBRHCD, 15 RBRH.
  ELSEIF RTYPE = 'P'.
    WRITE:/2 'P.AREA'  , 9 RBRHCD, 17 RBRH.
  ELSEIF RTYPE = 'R'.
    WRITE:/2 'REGION'  , 9 RBRHCD, 17 RBRH.
  ELSEIF RTYPE = 'N'. WRITE /2 ' '.       "Blank - don't have to display
  ELSE.
    WRITE:/2 'DEPT'  , 9 RBRHCD, 17 RBRH.
  ENDIF.

  IF NOT RTITL2 IS INITIAL.
    BUKLEN = STRLEN( RBRH ). BUKLEN = 36 - BUKLEN. BUKLEN = BUKLEN / 2.
    TITLEN = STRLEN( RTITL2 ). TITLEN = 52 - TITLEN.TITLEN = TITLEN / 2.
    TITLEN = TITLEN + 50 - BUKLEN.
    WRITE AT TITLEN RTITL2.
    WRITE: 100 'REPORT NO :', 115 SY-REPID.
    WRITE:/51 'REPORT DATE :', 65 REPDATE.
  ELSE.
    WRITE: 51 'REPORT DATE :', 65 REPDATE.
    WRITE: 100 'REPORT NO :', 115 SY-REPID.
  ENDIF.
ENDFORM.

*----------------------------------------------------------------------
* Read T001 to get company description
*----------------------------------------------------------------------
FORM RE001 USING VALUE(TBUKRS) TBUTXT.
CLEAR: TBUTXT, T001.
SELECT SINGLE * FROM T001 WHERE BUKRS EQ TBUKRS.
IF SY-SUBRC EQ 0. TBUTXT = T001-BUTXT. ENDIF.
ENDFORM.

*----------------------------------------------------------------------
* Report footer
*----------------------------------------------------------------------
FORM WRITE_FOOTER.
  SKIP 2.
  WRITE:/2 '*** END OF REPORT ***'.
ENDFORM.

BSP how to dynamically identified SAP environment for BSP URL

2011-07-28T02:11:00.000-07:00

Recently we had a problem with to identify the environment of the BSP or WEBdynpro.

My colleague Sarah provided me with a superb solution that is using the

call method clwdutilities=>constructwdurl.(which i put in the * event handler for data retrieval for BSP)

But then comes another problem the method will attached the url with "webdynpro" into the URL.

Initially we were thinking of making a new method identical to it. But a recent googling we encountered the syntax "replace all occurrences of" so it works for us with out creating a method by just changing the last string : D!

Well if Sarah you are reading this a BIG thank you! : D

* Get URL of Target Application
  call method clwdutilities=>constructwdurl
  exporting
    applicationname = 'ZBSPHPTSCR'
    importing
      outabsolute_url = str.

replace all occurrences of '/webdynpro/sap/zbsphptscr' in str with '/webdynpro/sap/zbsphptscr/index.htm' .

BSP how to pass a parameter using URL

2011-07-28T01:01:00.000-07:00

What is URL?
Lame man term
-the place on the address bar where we type the internet address.
Real meaning
Abbreviation: Uniform (or universal) resource locator, the address of a World Wide Web page

For BSP

If you use "Page with Flow logic", you can check field "Auto" in the "Page Attributes" tab.
Example:
Page attributes
http://myserver.com/schedule_maintain.htm?reload=X

Source

Creating / changing table

2011-03-14T18:00:00.000-07:00

SE16 - VIEW TABLE
SE11 - CREATE/CHANGE TABLE STRUCTURE - please do remember to activate the technical setting
SE14 - USE THIS WHEN YOU HAVE CHANGE THE STRUCTURE - Activate and adjust db

this entry is a self note

GUIDED Procedure : how to change the sequence

2011-03-07T22:39:00.000-08:00

Solution. Go to
Guided Procedure -> Design Time.
Tick on block and process
Then

Life and Work Events - MY -- Processes -- Birth/Deceased
Then click on - Main Block - Edit it and change the sequencing

Then after click ACTIVATE (the candle icon) click Gallery to go back

Then choose
Processes(gear icon). There will be a warning sign icon.
Highlight it and then click update (paper like icon)

Walla done.

Guided Procedure version detail

2011-03-07T18:47:00.000-08:00

Error Page different from what it is supposed to be
Solution. Go to
Guided Procedure -> Design Time.
Click on the "Callable Object"
"Object Defination" Tab
and choose the correct HTML.

Below the error that might be found
Error found. This object is being locked by XXXuser.
Solution. Go to
Guided Procedure -> Administrator.
Unlock Object. Try to find the Object development to unlock

*choosing the correct html

Go to portal Content
-> Content Provided by SAP\End User
Content\Employee Self-Service\Custom Content\Life and Work Events
Open
the "Iview" (Marriage)
Find the field "Application Parameters"
And
change the process.template.id; eg.
(process.template.id=88394210FCBB11DCC1F000145EC7373A&process.autostart=true)

Defining Work Area and sub Area for Portal

2011-03-07T02:12:00.000-08:00

Login to R/3 server and using T-Code SPRO, navigate to IMG-> Cross Application Components ->
Homepage Framework->Resources ->Define Resources ->Define Resources (Add Entries). Click on New
Entries.

Add resource for Area page as follows. Enter the PCD of the New Area Page you have created in the text
box ‘URL of PCD Page’. Remember to prefix ‘ROLES://’ to the pcd location.

how to make workflow running immediately when you dont know which module!

2010-10-06T04:20:00.000-07:00

Goto SM37

In the field
Job Name = *
User Name = *
ticked on the "released" only
Then CLICK EXECUTE

In the next screen.

Tick one of workflow starting with sw*

Goto Menu Job - > repeat schdeduling
untick periodic
click on "immediate"
Then
SAve...

Then continue with the next with the same process above

Wait a moment then walla!

SELECT-OPTIONS : tips on how to use them

2010-08-23T19:55:00.000-07:00

SELECT-OPTIONS EXCEPT For PA0002-PERNR."PERNR-PERNR.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
The statement above is to get the drop down list in your seletion screen make sure you put a pa table
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
LOOP AT EXCEPT.
IF PERNR-PERNR in EXCEPT. "<=============COMPARE THE EXCEPTION CASES
EXCEPTIONCASE = 'Y'.
EXIT.
ENDIF. " EXCEPTION CASES
ENDLOOP.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
in order to get all the selection do the statement above and you will be able to access what ever range or single value
make sure you put the "in"

Thank you Siti Sarah my colleague for teaching me!

How to assign a supervisor to a staff

2010-08-06T00:32:00.000-07:00

To assign Supervisor to a user
Goto
tcode - pa20

get both user and supervisor "organization assgment"
user aka staff
62311887 <-example the user's org assg

supervisor id
62423005 <-example the user's supervisor

tcode - pp01

insert
Plan version - Current plan
Object type - Position
Object ID - 62311887 <<enter the user id we just obtain like the example above>>

Select and maintain (pencil with spec -edit mode)
Select "Relationship" and edit (pencil - edit infotype)

look for the first record or line with

[[Relationship type/relationship A 002 Reports (line) ]]

then enter the field "ID of related obJECT" with the supervisor org assigment"

62423005

Click save.

How to create a request from a local object?

2010-08-02T20:38:00.000-07:00

Goto SE80
- Repository Browser
- Local object (key in your user id)
- Browse through your changes and right click on your changes
- choose other functions
- choose Change package assigment
- Follow through all the option and walla!

What is the differences between workbench and customizing request?

2010-08-02T20:34:00.000-07:00

Workbench requests hold the changes made in repository changes while Customizing requests hold the changes made in customizing table entries

source

Workbench request carries whatever development we are doing like creation of infoobjects and DSOs etc.
On the contraty Customizing request carries all the customizations we are doing in the system for example adding a new currency to the currency table, defining factory calendar etc.

The Transport Organiser maintains Change Requests.These requests record the changes made to the repository and customizing objects.Based on that objects changed they are
1)WorkBench Request & 2) Customizing Request.

Workbench Requests are those that involve changes to cross-client Customising and Repository Objects. The objects are independent of the client.Hence the requests are used for transferring and transporting changed Repository objects and changed system settings from cross-client tables.

Customizing Requests involve changes recorded to client-specific Customizing objects .These client specific requests are used for copying and transporting changed system settings from client-specific tables.

Refer this links http://www.allinterview.com/showanswers/57910.html
https://www.sdn.sap.com/irj/scn/thread?messageID=1816341
https://www.sdn.sap.com/irj/scn/thread?messageID=226306
and many more threads available on this.

On a more general note, Workbench requests are client independent, i.e., the changes made will be reflected across all clients.
Customizing requests are client specific.

source

PMS Template disabling header access and controlling pms dates

2010-07-29T20:13:00.000-07:00

How to disable the header for the template so that user cant change:-
1. supervisor
2. validity date

goto se19
-> HRHAP00_ACC_HEADER (make a new badi base on this ie zhrap00_acc_header)
double click on GET_HEADER_ACCESS

S_HEADER_CUST_DISPLAY-APPRAISER = ' '. " to prevent user from changing the supervisor
S_HEADER_CUST_DISPLAY-VALIDITY_PERIOD = ' '. "to disable user from changing the dates

-> HRHAP00_DOC_DEF_DV (make a new badi base on this ie zHRHAP00_DOC_DEF_DV)
double click on DEFAULT_PERIOD

* changing default date to appraisal period
DATA: BEGDA TYPE DATUM,
ENDDA TYPE DATUM.
BEGDA = SY-DATUM.
BEGDA+4(4) = '0201'."february 01
ENDDA+4(4) = '0630'."june 30
ENDDA+0(4) = SY-DATUM+0(4) + 1. "adding current year

* set exporting data
S_PERIOD_VALIDITY-AP_START_DATE = BEGDA.
S_PERIOD_VALIDITY-AP_END_DATE = ENDDA.
NO_STANDARD_DEFAULTING = C_TRUE.

* note do remember you need to add the badi into sm34 so that the badi is shown under further template behaviour.

Customizing BSP application MVC model

2010-07-14T03:19:00.000-07:00

Model View Controller for BSP

Summary = Difficulties in making a customizing BSP those with controllers and views

Program (se80) - BSP_CUSTOMIZE
Steps
1. using the above programs copy the preferred BSP app and select the views inside.
2. Goto the customized BSP from the above copied BSP app and manually copy the controllers one by one.
3. Activate the BSP. The program will update the table below

Reffered Table - bsp_applc
This table takes the standard BSP and tricking the system to use the customized BSP

source sites discovered by Ilman Reza

PS:/ This is a layman way of explaining there could be mistakes. For more technical understanding or further understanding please refer to the link provided by my colleague.

How to delete an object in transport SE10 - transport organizer

2010-07-08T21:23:00.000-07:00

SE10 - transport organizer
SE03 - transport organizer tools

Ever included a wrong object into a wrong transport number.
Have no fear there is a solution.

When ever you tried to delete the transport object inside it will shows that the object is locked.
Solution : -
Goto SE03
select unlock objects ( expert tools )
keyin the "Request/Task"
select Unlock object list (though not recommended)
or
select transport of copies (recommended)

Well the guides or help as below

RSWBO099
Short text

Unlock Objects (Expert Tool)

Description

Use this program to unlock a request or task.

Normally, all objects in the request are unlocked, and its status is set to
Modifiable. If the request has already been released, it keeps the
status Released.

Use the function Create versions of the objects to create versions of
all the objects when you unlock a change request, so that you can document their
current version.

Use the function Set to 'Released' to set the request to
Released automatically when you unlock it. You can then no longer use
this request.

Use the function Create transport of copies to create a new transport
of copies when you unlock change requests, and copy the object list of the
request to the transport.

Requirements

To unlock a request, you need the administration authorization in the
Transport Organizer. To display the log, you only need display
authorization.

Notes

Unlock requests/tasks in exceptional cases only. This activity is logged. To
display the log, choose Log.

PHAP_ADMiND_PA : How to populate the "further template behaviour"

2010-07-08T02:13:00.000-07:00

sap further template behaviour not showing any descriptions.
Recently we were given a task to make a BaDi and use inside the template however we encountered the question how to "CONFIG" to link it.
So this is the steps
1. Create BaDi(tcode se19) (make sure you copy the enhancement name"
2. OOHAP_CATEGORY - populate the enhancement name
3. OOHAP_BASIC - populate the enhancement name

As simple as that.

PS: do forgive me for my short entry due to work and time restriction

su01 - all access

2010-07-05T23:52:00.000-07:00

Additional notes :
You can have a portal user to access r/3
by giving it access SAPALL

sm04 - user list

2010-07-05T23:46:00.000-07:00

With this transaction you can kill user.
As i ending their session. http or r/3.

SAP Portal - how to restore iview ('remove from page' problem)

2010-06-22T23:58:00.000-07:00

how to clean up 'remove from page' problem

Problem : User remove iview "remove from page".

Solution :
1. Log into portal as admin.
2. Goto - System Administration - Support Desk - Portal Content Directory.
3. Click on Personalization cleanup.
4. Click on the radio button Principal.
5. Select the user login id.
6. Click Show.
7. Click into the "Logon ID"
8. Select the PCD URL on the users personalization
9. Click Remove.
Done

Graphical solution is below

* Remember if you want to disable the user from doing the removing part.
remember to set in property of the page and select no option
"remove iview" option.

SAP : Resetting ID and password

2010-06-14T20:33:00.000-07:00

Log into your client with the power id ( normally with access to change password )
Transaction Code Su01.

Click on the change password icon as in the diagram.

Then select the client where the id is located and reset as per request.
If you are getting the error on not authorized to use the su01 please do contact your admin or use a more powerful id.

System Trace st01, st05

2010-05-24T19:41:00.000-07:00

The girl who i met 6 years ago. Huhu sweet one. Taught me this system trace to check the front end communicating with the backend R/3we can use this to detect which program it is talking to..

= ST01
= system trace
= http://saplab.org/2009/03/how-to-do-a-system-trace/

= use ST05 better
= http://anu-sapdiary.blogspot.com/2008/02/st05-performance-trace-overview.html
= remember to put ur userid as filter
= else, oth user tat access the web will be tracked
= i think u can choose RFC trace
= then click activate trace with filter
= filter with ur user id and put the program name if u know

Transaction Code POWL_QUERY

2010-05-24T19:25:00.000-07:00

source
How i can define and configure POWL layouts for the users .

1.) requirement is like...Client wants me to configure 2 POWL layouts so that they can decide which one is ok and also let me know what is the use of report POWL_WLOAD also.

2.) Where i can see and maintain POWL queries and if i want to change any field then how i can do this.?

Explore SPRO path SRM => SRM Server => Cross application basic settings => POWL and advanced search

The use of the report POWL_WLOAD is to refresh the POWL active Queries in the system and to see the available POWL queries in the system execute the tcode POWL_QUERY.

we need to goto layout part and do config in UI Browser.

PS How to create POWL Application ?

2010-05-20T00:24:00.000-07:00

http://hrmspdev.maybank.com.my:50000/irj/portal

How to delete variant

2010-05-17T01:51:00.000-07:00

Deleting Variants

Procedure

Open the appropriate variant as described in Creating a Variant.
On the initial screen, choose Variants ® Delete.
The ABAP: Delete Variants dialog box appears.
Choose whether you want to delete the variant in all clients, or only in the current client.
Confirm your choice.

Result

The system displays an appropriate message in the status bar.

You can delete several variants at once from the variant catalog. Choose Delete variants, select the relevant variants in the selection dialog box, and choose Delete.
source = http://help.sap.com/saphelp_46c/helpdata/en/c0/980392e58611d194cc00a0c94260a5/content.htm

Changing appraisal header

2010-05-04T00:10:00.000-07:00

Assignment was to control the validity of the calender header of the appraisal template
Badi notes :

Calender BADI : - HRHAP00_DOC_DEF_DV

tcode :-
se19 (BADI)

Cluster Table :- VC_T77HAP_CATEGORY (enter the Badi into this table first then OOAM)

tcode : sm34 to access the table

tcode :- OOAM (Enter into the template under "Layout")

SAP fine tune and understanding basics of SAP

2010-03-26T00:28:00.000-07:00

http://sapabap.iespana.es/sap/info/hr_overview.htm?0&weborama=17 <- prodvided by sarah
Version:1.0 StartHTML:0000000105 EndHTML:0000000619 StartFragment:0000000127 EndFragment:0000000599

http://help.sap.com/saphelp_40b/helpdata/EN/60/d8bc17576311d189270000e8322f96/content.htm

for those select statement like select single..probably u can tune d pgm to read like ie. SELECT SINGLE stext FROM hrp1000 INTO ws_stext
WHERE otype EQ 'S'
AND plvar EQ '01'
AND objid EQ p0001-plans
AND begda LE cdate
AND endda GE cdate.

Sap portal : Navigation link not appearing

2010-02-03T23:56:00.000-08:00

Recently problem occurred where the navigation links seems to be missing

workaround:
my-career area appeared after removing setting in roles and workset;

1.login as admin; goto

Portal content
content provided y sap
end user content
employee self service
custom content
my career

workset mycareer -> select properties -> goto leaf folder and click no;

2. .login as admin; goto

Portal content
content provided y sap
end user content
employee self service
custom content
roles-> ESS -> click on the workset my career inside roles and select properties ->

goto leaf folder and click no

Conclusion make sure both are sync-ed
Last and not least if you want fast results
goto system administrator
-> navigation -> navigation cached and clear everything

Portal Graphic Rendering problem

2010-02-03T23:46:00.000-08:00

Recently we got an error on the mss giving suer slow respond
and in MSS - Overview - workoverview [attandance overview]
it shows this error

This problem is normally got to do with the
IGS - internet graphic service

please do refer to the link it will teach you step by step to fix or pin point the error.
http://help.sap.com/saphelp_nwce10/helpdata/en/45/f15ed044c741b2e10000000a11466f/content.htm

in r3 use the transaction code "sigs" to check on it.
you can even see the process in rz20..

Well if all this while there wasnt any error and suddenly it gave out this error. The quickest way is to reboot th whole SAP system.

2009-12-29T00:31:00.001-08:00

http://community.altiusconsulting.com/blogs/jamesrothwell/archive/2008/12/02/branding-your-sap-bw7-0-portal-and-web-templates-with-portal-themes.aspx

How to transport SAP portal Theme

2009-12-29T00:31:00.000-08:00

Create a transport package by going to SystemAdmin->Transport->Transport Package->export.After creating a transport package add Your Theme,defualt framework to the package created and transport it.

Source taken from sdn website
https://forums.sdn.sap.com/thread.jspa?threadID=271644&tstart=0

The Little SE80 of Horrors

2009-12-23T00:48:00.000-08:00

REad this! Good for us SE80-ER
The past Three entries today was given by my colleague CYC

This is really true....

2009-12-23T00:47:00.000-08:00

Source
Ps: this is not what i write but from the author above which i put into the blog.
Below is 100% quoted from the source

Random ramblings of an obsolete programmer

No - I don't think that people are getting dumber as time progresses. But I do think that we are some how not helping the next generation of developers to improve up on what the people who went before them left behind. And this includes ABAP developers. When I say "we" - I specifically exclude the smart ones who didn't jump into the holes and avoided the temptations. So all the good and smart people - the stuff below is not about you, and don't get offended.

Some of you might know that I started my SAP career as an ABAP developer. I have no claims to have been in the league of Thomas Jung or Rich Heilman :) . But I believe I was an above-average programmer. As my career progressed, I moved on to other things - BW, SEM, SD, CRM and so on, but never did leave the "dark side". And I have been actively mentoring several consultants over the past years, many of whom have ABAP as their core skill. It is my discussions with my mentees that primarily prompted me to write this blog.

In my first SAP project - the server had 500 GB hard disk, and 1 GB RAM. This supported 25 users in a small manufacturng company. The desktops all had 32MB t0 64MB RAM, and something older than the pentium processor. This meant we had to think really hard about the code we created - anything inefficient would never get past the QA box. And we did not have a QA team - the developers could see for themselves when their code was terrible - and would go right back to re-designing the code. There was no code-inspector in the workbench either :) . Of course traces etc were available, and well utilized. Our team leads used to have competitions on who in their team would write the most efficient programs.

Most of us knew some other language before we learnt ABAP. And amongst my peer group at the time - the most common "first language" was C, and Dennis Ritchie was (and still is) God. One of the biggest gripes we had about ABAP was that it did not give us the flexibility that C gave (countless arguments about sort algorithms in C and then a simple SORT command in ABAP). This background in C ( the other popular one was LISP, which unfortunately I never got to learn), and the hardware limitations must have played a significant role in how our coding styles evolved.

ABAP programs mostly followed a procedural paradigm when I started. And then at some point, the OO paradigm started to kick in. By this time, I had started to lead ABAP teams. It was an awfully difficult time for developers to adapt - and people developed a hybrid style. If you had to maintain programs that were developed in this era - my sympathies are with you. Coincidentally, processors had become more powerful, and memory had become cheaper (though not as much as it is today). As a consequence - we had much more powerful servers and PCs, and as a result, we did not have to worry too much about algorithm efficiencies to get the same performance as before.

I did not realize the harm that had set on us, at the time - we just got habituated to write mediocre code. As moore's law kept proving itself as time progressed, we started going more and more backward in programming. The pathetic part is that we never realized this in time. Since we did not have to worry about quality to the extreme extent like before, we used the time to develop more and more programs and functionality. Dreadful as it might sound - quantity won over quality. We even slacked on peer reviews of code, that used to be second nature for us not that long ago. I believe that this also partly contributed to a decrease in the standard of training that new developers recieved. You no longer needed an internship to start your SAP career - a 6 week training course became a very acceptable entry criteria for developers.

Evidently, I was not the only team lead who realized this. And voila - SAP projects all over started having QA teams who started inspecting code formally. A lot of clients with big SAP footprint started having inhouse QA teams for it, and consulting companies started selling this as a service. I do believe that this helped some - things did get a bit better, but not for long. If you do anything en-masse, you have to standardize. And QA process became standardized too - and along with the good, came the bad. A lot of QA people I have come to know, barring a few exceptions, just go through a checklist mechanically, and do not take the time to understand the actual algorithm and offer meaningful suggestions. This is something a developer can do for his own code - and I am not sure if this type of QA really adds a lot of incrememental value.

I have been debating the solution for these issues for a while now - and here are some of the things we seem to get some consensus on.

1. Don't just train new crop of developers in just ABAP - also educate them in good software engineering practices. It might also be a good idea to train them in a second language if they don't know it by the time they learn ABAP. It is hard to improve when you have nothing to compare against :)

2. Have better benchmarks - somehow show the developer how much better his programs could be. ( A friend of mine, if he has his way, would like to have a QA box which is much less powerful than production for developers to get their code better).

3. Have a compulsory internship with a good senior developer, before some one is allowed to work independently as a developer.

4. Encourage senior developers to take turns and lead the QA teams, and don't let any one be in QA role for very long.

5. Encourage debates on programming practices - do not blindly follow something without getting a solid understanding of the arguments for and against. For example - Offlate, I have not seen many developers who argue against OO as a development paradigm. Infact, the prevailing sentiment is very much against the old procedural paradigms. However, I have heard and read several interesting conversations where people tore the OO paradigm to pieces. It is less important on which side of the debate you are positioned - the important part is to participate, and expand your thinking.

I have one other area that is close to my heart, that I wanted to bring up here - the maintainability of the code we develop. However, I guess I have over stayed the welcome for one web log, so I will defer that to another day.

So, what do you folks think?

SAP Naming convention....

2009-12-23T00:38:00.000-08:00

Hmm all this while I was wondering the REAL naming convention.... but alas.
my colleague CYC huhu as usual provided.....
as below
http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/15304

You are not a developer...

2009-12-23T00:28:00.000-08:00

http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/10415
Read this article my friends...
Provided by my colleague Chin yoon Chan...

What she said is true... VERY trueeeeee

Removing extra view or information from universal work list

2009-12-11T00:31:00.000-08:00

Recently my user asked me about the throwing the extra i-view inside a page.
After further investigation it seems like it is not a i-view.
But more like a debug view (in my own understanding)
In the universal Work list it shows extra view like

In the UWL inbox there are
- Logged-On User Information
- Current View Information
- Current Navigation Information
- Current Item Information

In order to hide the debug mode.
Goto
system administration
----> system configuration
----->Universal Worklist & Workflow
---------->Universal Worklist - Administration
------------->Optional Universal Worklist Service Configuration (expand the tray)
Make sure the setting
Display Support Information = false

Passing a value to another controller

2009-12-10T01:19:00.000-08:00

http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/5368%3Fpage%3Dlast%26x-maxdepth%3D0
http://help.sap.com/saphelp_nw70/helpdata/en/cb/40193c45f9fa13e10000000a114084/content.htm

http://forums.sdn.sap.com/message.jspa?messageID=5639015
https://forums.sdn.sap.com/message.jspa?messageID=5963473

Portal Front End : WebDynpro or BSP application in iview not working

2009-12-02T01:12:00.000-08:00

1. Please do an activation using back end - using transaction CODE "SICF"
2. After activation please do refresh portal.
* this is the common error where we normally have after deploying NEW program

Guided procedure

2009-11-25T00:20:00.000-08:00

Recently we was given a task to detect the error after thepathces.
But it seems that the error was some how adesign brought by the PAST.

Anyway to debug the error you will need this few access.
Roles : -
Content Admind
Guided Procedure -> Design Time and Administrator.

Error found. This object is being locked by XXXuser.
Solution. Go to
Guided Procedure -> Administrator.
Unlock Object. Try to find the Object development to unlock

Error Page different from what it is supposed to be
Solution. Go to
Guided Procedure -> Design Time.
Click on the "Callable Object"
"Object Defination" Tab
and choose the correct HTML.

Notes: in order to make the changes reflected please do the activation from branches up to the highest.

Problem. (Error No Active Process Found)
The problem was the Activated processes was not found.
Solution:
Goto Guided Procedure -> Life and Work Events - MY -> Marriage -> Marriage Process (looks lika gears) -> click open
Goto Tab -> Instantiation ( click on the arrow button to go to the tab )
Copy the Process ID.

Then Go to portal Content
-> Content Provided by SAP\End User Content\Employee Self-Service\Custom Content\Life and Work Events
Open the "Iview" (Marriage)
Find the field "Application Parameters"
And change the process.template.id; eg. (process.template.id=88394210FCBB11DCC1F000145EC7373A&process.autostart=true)

--------------------------------------------------------

Error. The navigation on the left is not correct add or remove
Solution
Goto Guided Procedure -> Life and Work Events - MY -> Birth Deceased -> Birth Deceased Process (looks lika gears) -> click open
Goto Tab -> Roles, Click on the pencil to go to EDIT MODE
To delete . Click on the select the callable object ( looks like one jigsaw ).
To Add . Click on add branch and then select the callable object
Save and active everything from branches to parent.

Error. The pages kept going to page "initiate instances"
Solution.
Goto Guided Procedure -> Life and Work Events - MY -> Birth Deceased -> Birth Deceased Process (looks lika gears) -> click open
Goto Tab -> Roles, Click on the pencil to go to EDIT MODE
Select role type -> "initiator".
Save and activate

PC0 to enter GL

2009-11-18T17:39:00.000-08:00

Infotype 41, infotype 0

2009-11-17T23:03:00.000-08:00

Basically i am still new to abap / SAP.
All i know to access this two info to get the PA20 Transaction code
action type (0)
and
assigment Date (41)

while debugging for a program this is to get the hire date and rehiring date.

* warning this notes may not be correct :D

Problem encounter

2009-11-03T02:17:00.000-08:00

Recently i was assigned a task to create a custom made help page.
The steps takaen :
1. SE80.
2. Create a BSP.
3. Create iview
4. enable the masthead.
5. Put all mime inside.including all the pages.

Trasport from dev to test was A-OK
But when transported to production there seems to be a probblem which i am unablet to solve at the moment

after googling and doing some research. The pages i have found ask us to

Assigning MIME Objects to a Transport Request under Structure linkOther Functions.
Link : http://help.sap.com/saphelp_webas630/helpdata/en/46/bb182fab4811d4968100a0c94260a5/content.htm

which leads to ask us to

Select the required directory, subdirectory, or individual MIME objets in the browser of the MIME Repository and choose Write Transport Request in the context menu.
Link : http://saphelp.border-states.com/EN/46/bb1841ab4811d4968100a0c94260a5/frameset.htm

Which i am going to try tomorrow with my user.

that's all for now

WorkFlow Transaction

2009-09-28T00:23:00.000-07:00

SWi1 - To check workflow item

How to disable or enable the help link in masthead iView

2009-09-01T19:24:00.000-07:00

Refer to this link on how to go to masthead Iview
Show Link in Masthead: Help < NO >

* To disable or enable the help link on the top frame of the portl
The actual location of the iview

Portal Content
+ Content Provided by SAP
+ Admin Interfaces
+ Admin iView Templates
+ Portal Editors
Masthead

Portal HelpLink How to Change

2009-08-23T23:54:00.000-07:00

Go to
portal content ->
Portal users ->
Default framework page,
right click and choose edit.

In the editor on the right,
- select masthead iView and choose properties .
- You will find "URL of Help Link"
- You can Key in the new URL for the Help

Useful URL

2009-08-12T19:36:00.000-07:00

Wanna compile a section url for me (dummy)
-----------------------------------------------
2009 Aug 13 - http://www.sapabapnotes.blogspot.com/ - link provided by mawarni

2009 Aug 13 - http://www.sapbasisnotes.blogspot.com/ - link provided by mawarni

Sequence to deploy EPA Files

2009-07-31T04:11:00.000-07:00

Doing portal front end sometimes can be confusing.
But what we have learned that most of the time we need to properly package the EPA in order not to haywire it.
Ok straight to the point.

Normally we create (in sequences) the element / object
iview -> page -> workset -> Roles

So during the packaging
iviews and pages
It is best to put the iviews and pages together as we are directly changing it. We can deploy as much as we want.

Work Set n Roles
Each of them are to be package separately cause major changes are to be reflected in it.

Ps:/ this is my exp or should i say the level of understanding. Please do comment if i am wrong. And would glady change.. ^^

Creating PDF Form

2009-07-31T04:06:00.000-07:00

TCODE : SFP
1. Create In sequence
- Interface
- FORM (adobe Life Cycle is needed to design the forms)

=========================================================
note sorry guys for the no posting from now onward when ever i have anything about sap i will surely put it here. Take care! ^^

Selfnote (please ignore this is for my daily notes)
---------------------------------------------------
Flexi Benefits
TCodes
SM31
SE16N

ZZ_WDA_FSA_B001_MOD Interface
ZZ_F_FSA_B002 Form

How to create a pop up message

2008-09-02T01:26:00.000-07:00

Message With Yes and No Options
* DATA : RES type c.
* CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
* EXPORTING
* DEFAULTOPTION = 'Y'
* TEXTLINE1 = 'text-1'
* TEXTLINE2 = 'text-2'
* TITEL = 'text-3'
* IMPORTING
* ANSWER = res.
* case res.
* when 'A'. " cancel
* when 'J'. " yes
* when 'N'. " No
* endcase.

ERROR MEssaGE
message E899(bd) with 'BSC Score is not correct!!!!'.
MESSAGE I699(5A) WITH 'bla'.

Call function Message
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
exporting
textline1 = 'BSC Score is not correct!!!!'.

Enhancement on MLC

2008-08-18T00:15:00.000-07:00

pcp0 - > to Display posting run

TCODE SM50

2008-08-18T00:10:00.000-07:00

SM50 to kill user or processes

2008 August 04 Enterprise Export and Import lesson last week

2008-08-04T00:48:00.000-07:00

== To be Updated =

* After the EPA (EnterprisePortalArchive) has been imported. It is vital for application to be activated using the SICF (TCode).

2008 July 23 Portal Content July 24 Portal By Chin

2008-07-22T20:01:00.000-07:00

Creating I View
Step01
Step02
Step03
Step04
Step05
Step06
Step07
Create Page
Step01
Step02
Step03
Step04
Add Iview to pages
Step01
Adding Pages to Roles
Step01

Roles(Worksets)
Workset(Pages)
Pages(Iview)

How to go to roles?
PortalContent->ContentProvidedBySAP
-End-UserContent
-Roles
-employee_self_service

By opening the page that you created and the roles opened.
You click on the roles in the category and then go to the tree view and add page to roles.

How to add to back end?
SPRO - > IMG -> PersonalManagement -> EmployeeSelfService -> Homepage FrameWork -> Resources -> Define Resources

*Make sure you have the PCD example //pcd......
**Add into the selected module Roles://pcs....

2008 June 30 Lesson Learned

2008-06-30T02:11:00.000-07:00

In the quest of enhancing programming i made lots of mistakes.
Somethings to pin point:-

1. Sometimes the problem is not in the program but the is the logic.
2. For Loop command it is best to clear or reinitialized the attribute or variable
3. For the debug mode there is a table option key into it and see the result. The data inside could be helpful. "syst"
4. Always press F1 for more information. From that you can go SE37 to get more technical help F1 AGAIN!
5. The system example is the best (This is what i notice from doing BAdi)
6. Sometimes only the new debugger will work for newer type of programs.
7. There are many ways to test a program.
a. Front-End = Portal - Applicant And Approval
b. Back-End = Admind running a program or using APPcreate
8. ALWAYS DOUBLE CLICK. Into those area that you do not know.
9. Look for keywords. If you are changing a area try see modiy. Or if you are changing an area it could be some place which have specific name.

PS : i could be wrong so please advised Thanks in advance ^_^

2008 Jun 27 How to check Transport

2008-06-26T18:38:00.000-07:00

Tcode - stms
click on the Lorry Symbol.
click on the destination server.
Find the Transport number
check on the symbol
- > triangle (transported [text label ready to be transported again])
- > Green Tick (transported)
- > Green Square (means ready to be transported)
- > Red Square (error)

2008 Jun 25 How to check position ID

2008-06-25T05:30:00.000-07:00

Exercise
1. Tcode (SE16) -> HRP1001 [ObjectType(P),ObjectID(00064744).RSIGN(B),RELAT(008)] Execute
2. Copy the SOBID(51650769)
3. Tcode (OPP01) -> [OBJECTID(51650769)] -> Select POSITION -> Click OverView(button) -> OverView Shift08
4. Check the relationship (z02 - Bussiness Structure (new)) OR (rel ) ( 003 - Legal Structure (old)) There is a OR will have to confirm with user
5. Choose the ORG ID Z02 -> 516 507 68 (answer!)

2008 June 25 How to Create BAdi

2008-06-25T05:20:00.000-07:00

BAdi For current development
Adviced by Pak Nanang,Wai Meng and Radi.
TCode(TransactionCode)
SE18 - DisplayBAdi
SE19 - CreateBAdi

Deduction is within a standard SAP program there are places we can customized to our own requirements. The places are called user exit.
For my current limited knowledge:-
1. BAdi TCode - se19,se18
2. Dynamic Action

Been guided to do BAdi in two different ways.
1. SE19 -> Create Implementation -> Choose classic BAdi(Select from the list z* find) -> Press Create Impl. -> Choose the new name + The App Name. Then Change and Save the method you modify added.
2. OOAM -> Goto -> Enhancement (this is the place where you can find the list of BAdi related to PMS only so you do not need to search for z*) -> Choose classic BAdi

Why some programmers use se19 instead of ooam this is because they might want to us another BAdi which can do the desire value or behavior.

For the enhancement
The tcode use is
SE19 ( to create ),
OOAM ( to view the layout and put the BAdi inside the PMS form - Functional Changes),
phap_admin_pa ( to execute the app ).
Appcreate ( to run the app but in more web based )

Guide was given by Wai Meng to find the coordinates in the forms ( using the debug mode - create a break point - look into the table (t_body) and find the unique Row and column Id)
Guide given by Pak Nanang was basically on how to create the BAdi and placement.
Guide given by Radi was basically the logic and the place to pin point the score value to be use by the Badi.

----------------------------------------------------

TCODE Picked Up
PFTC_DIS - workflow
SE91 - Message (havent test)

TABLE
T9B03 - The Value and coordinate use by the BAdi

Notes : I could be wrong any SAPIAN out there if i am wrong in any of my post please do voice out Thanks in advance

More How to and Tips :
https://www.sdn.sap.com/irj/sdn/thread?tstart=0&threadID=767077

http://searchsap.techtarget.com/tip/0,289483,sid21_gci1276392,00.html

2008 June 23 ESS/MSS 2.30pm - 5.45

2008-06-23T01:54:00.000-07:00

Nanang Session BAdi

Berry - Zul Session EssMss

PCH Logical Database calling a PNP logical database

2008-06-18T20:50:00.000-07:00

Using call Function
Example
proceed = 'Y'.
*CHECK EMPLOYMENT STATUS (ACTION INFOTYPE).
clear i0000. refresh i0000.
call function 'HR_READ_INFOTYPE'
exporting
pernr = temp_02-pfno
infty = '0000'
begda = pchbegda
endda = pchendda
tables
infty_tab = i0000.
loop at i0000.
if empstat <> space and not i0000-stat2 in empstat.
proceed = 'N'.
endif. "empstat <> space and not i0000-stat2 in empstat.
exit.
endloop. "at i0000.
if sy-subrc ne 0.
proceed = 'N'.
endif. "sy-subrc ne 0.

Example
ZDLLBMW001

Information provided by Siti Sarah

SELECTION SCREEN (Variable)

2008-06-17T19:19:00.000-07:00

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME

PARAMETERS: zClmty Like zitab-clmty DEFAULT
'3015'.
SELECT-OPTIONS: ZCLMTY FOR ZITAB-CLMTY DEFAULT '3015'. "adh2008 958

The differences between the both selection is that the top is a single value while the one below is a range type of selection.
This has a affect on the SQL or syntax that you are going to use. Example for the one above

START-OF-SELECTION.
SELECT * FROM ZCLAIM_I
WHERE CLMTY EQ zClmty.

SELECT * FROM ZCLAIM_I
WHERE CLMTY IN zClmty.

This information was provided by Miss Koh

2008 June 17 PMS 2.15pm 05.30pm

2008-06-17T05:15:00.000-07:00

Transfer Knowledge on PMS

BAdi
For the non executive therae will be no changes.
MXXXX Financial period is from 1 July – 31 June (next year)

BAdi (based from explaination)
The SAP flow where there are UserEXIT (this is the place where we can change).
BAdi is one of the UserEXIT
So when ever there is a UPGRADE programmers should be there if there will be any overwriting to the customized changes.

Transaction Codes – SE19
(Changing BAdi) (implementation – it will implement the changes to a new BAdi almost like copy)

Transaction Codes – SE18
To View BAdi

Implementation is a change not copy
Best to create one template to call 1 BAdi
Funtional to provide field or matrix
Changes are mostly made in interface

Transaction Codes – Appcreate

To run an application
Table – T9B03
Table where the matrix of the PMS is stored (Exceed,SE…)

Exercised : To Debug PMS BADI

User ID:CSN005
Password: virus123

Data:

BADI implementation : ZRHAP00_DOC_DEF_DV01
Method : DEFAULT_PERIOD

Goto transaction SE19, set a break point within the method ‘DEFAULT_PERIOD’
Execute transaction APPCREATE to execute the Appraisal, pick any template.
The Debugger should be triggered

Exercised : To Create BADI implementation PMS BADI
Data :

a) BADI Name : HRHAP00_TMPL_RESTR
BADI implementation : Z HRHAP00_TMPL_RESTR
Method : APPRAISER_GET_LIST

b) BADI Name : HRHAP00_VAL_DET
BADI implementation : Z HRHAP00_VAL_DET
Method : VALUE_DETERMINATION

Go to transaction SE19 key in the BADI Name. then create Implementaion on these BADI. Then Create implementation on for these BADI
Pick a method to enhance, put some coding that interacts with the importing parameter. Within your method output an information message.
Activate your implemented BADI
Debug your BADI implementation for via APPCREATE, the BADI is triggered once you key in a a value in the Appraisal template.

How to change your ABAP EDITOR

2008-06-12T22:43:00.000-07:00

IN SE38
Choose utilities -> Setting
Choose

Front-End Editor (New)
Upper-/Lowercase Cobnversion in Disp Mode

This new screen is the best where they will give you new screen and there are help every where. Almost like Visual Basic or VBnet. This tips is from SiMou Miss Chin

LOOP Syntax

2008-06-12T22:31:00.000-07:00

LOOP AT ZCLAIM_I WHERE PERNR EQ PERNR-PERNR
.......

.......
ENDLOOP.

Variable Size and Coordinate

2008-06-05T05:56:00.000-07:00

This is a part of declaring variable
gbdat(8) TYPE c VALUE 'Birth Dt',
gbdat(10) TYPE c VALUE 'Birth Dt'
Coordination
MOVE otab-gbdat+6(2) TO o_dsn-gbdat+0(2).
o_dsn-gbdat+2(1) = '/'.
MOVE otab-gbdat+4(2) TO o_dsn-gbdat+3(2).
o_dsn-gbdat+5(1) = '/'.
MOVE otab-gbdat+0(4) TO o_dsn-gbdat+6(4).
This to make sure the data given out is like 31/12/9999

Append and Sort by SiMou Chin

2008-06-05T05:52:00.000-07:00

This is how to append
it_techdate-date = dj_rec-dat01.
it_techdate = dj_rec-dat01.
append it_techdate.
clear it_techdate.
This is how to sort
sort it_techdate by date descending.
loop at it_techdate.
itab-djoined = it_techdate-date.
exit.
endloop.
---------------------------------
changes made
DATA: BEGIN OF dj_temp_rec OCCURS 0,
datejoined LIKE p0000-begda,
END OF dj_temp_rec.
append
dj_temp_rec-datejoined = dj_rec-dat01.
dj_temp_rec = dj_rec-dat01.
append dj_temp_rec.
clear dj_temp_rec.
* itab-djoined = dj_rec-dat01.
* EXIT.
Sorting
sort dj_temp_rec by datejoined descending.
loop at dj_temp_rec.
itab-djoined = dj_temp_rec-datejoined.
exit.
endloop.

Transaction Codes

2008-06-05T05:44:00.000-07:00

Transaction Codes - Explaination
sm21 - logs error
pa03 - payroll lock to release 'period'
smartform - creating smart form
se37 - view program
se38 - change and view program
pa20 - view infotype
pa30 - change and view infotype
spro - change overview
su01 - List ID user
se10 - To see transport number
stms - check transport
se11 - Check table with structure
se16 - Check table

SAP and Me

2008-06-05T05:43:00.000-07:00

Introduction - This is a sanctuary for me to put my notes here so in the future I can refer here.
I know the url seems to be obscene but what the heck it is like that.
Anyway there shoud be many updates here so and SAP-ian if you want to drop any comment i am ever willing to listen.
Thanks in advance ^_^