How to export values to a Module POOL Program

[Former Member]

Dear Gurus

there is a customized infotype for an appraisal.

i have made a program which calls that infotype module program through transaction but it shows the error that no entry in table t589a for P.

can you guide me how to solve this issue..

i just want to call the screen of that infotype which is seen in PA30.

Regards Saad. Nisar.

DATA: itab_empdata LIKE TABLE OF person.
DATA: itab_data LIKE TABLE OF person WITH HEADER LINE.
data: itab_info like table of pskey with HEADER LINE.
DATA:  ppernr TYPE pa0001-pernr.
DATA opt TYPE ctu_params.
opt-DISMODE = 'e'.
opt-defsize = 'X'.
opt-updmode = 'x'.
*----------------------Start of Selection Screen----------------------*
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) text-002 FOR FIELD pernr.
PARAMETERS pernr TYPE pa0001-pernr.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) text-008 FOR FIELD ename.
PARAMETERS ename TYPE pa0001-ename.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) text-003 FOR FIELD persg.
PARAMETERS persg TYPE pa0001-persg.
SELECTION-SCREEN COMMENT 20(15) text-009 FOR FIELD werks.
PARAMETERS werks TYPE pa0001-werks.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) text-004 FOR FIELD persk.
PARAMETERS persk TYPE pa0001-persk.
SELECTION-SCREEN COMMENT 20(15) text-005 FOR FIELD kostl.
PARAMETERS kostl TYPE pa0001-kostl.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) text-006 FOR FIELD orgeh.
PARAMETERS orgeh TYPE pa0001-orgeh.
PARAMETERS orgehtxt TYPE person-orgeh_txt .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) text-007 FOR FIELD plans.
PARAMETERS plans TYPE pa0001-plans.
PARAMETERS planstxt TYPE person-plans_txt .
SELECTION-SCREEN END OF LINE.

"SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK b2 FOR 6 LINES,
                  TAB (16) title USER-COMMAND '' DEFAULT SCREEN 100,
                  END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE text-001.
PARAMETERS intype TYPE pskey-infty.
SELECTION-SCREEN END OF BLOCK block.

INITIALIZATION.
  title = 'Employee Details'.

START-OF-SELECTION.
***********************************************************************
*AT SELECTION-SCREEN OUTPUT.
************************************************************************
AT SELECTION-SCREEN OUTPUT .
  LOOP AT SCREEN.
    IF screen-name = 'ENAME'
    OR screen-name = 'PERSG'
    OR screen-name = 'PERSK'
    OR screen-name = 'KOSTL'
    OR screen-name = 'WERKS'
    OR screen-name = 'ORGEH'
    OR screen-name = 'PLANS'
    OR screen-name = 'ORGEHTXT'
    OR screen-name = 'PLANSTXT'.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

  LOOP AT SCREEN.
    IF screen-name = 'ORGEHTXT'
     OR screen-name = 'PLANSTXT'.
      screen-output = '1'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

***********************************************************************
*AT SELECTION-SCREEN .
************************************************************************
AT SELECTION-SCREEN .
  ppernr = pernr.
  CALL FUNCTION 'HR_GET_EMPLOYEE_DATA'
    EXPORTING
      person_id             = ppernr
      selection_begin       = sy-datum
      selection_end         = sy-datum
    IMPORTING
      personal_data         = itab_data
    EXCEPTIONS
      person_not_found      = 1
      no_active_integration = 2
      OTHERS                = 3.

ename = itab_data-ename.
  persg = itab_data-persg.
  persk = itab_data-persk.
  orgeh = itab_data-orgeh.
  plans = itab_data-plans.
  kostl = itab_data-kostl.
  werks = itab_data-werks.
  orgehtxt = itab_data-orgeh_txt.
  planstxt = itab_data-plans_txt.

IF pernr IS INITIAL.
    MESSAGE  'PLease Enter Employee Number' TYPE 'I'.
    " ELSEIF intype IS INITIAL.
    " MESSAGE  'PLease Appraisal Infotype' TYPE 'I'.
    "ELSE.
    "  EXIT.
  ENDIF.

  IF intype EQ 9112.
     CALL TRANSACTION 'Z9112' USING itab_info OPTIONS FROM opt.
ENDIF.

Moderator message - Please read before posting - post locked

Edited by: Rob Burbank on May 4, 2009 9:19 AM

[Former Member]

Hi,

You can try using IMPORT and EXPORT memory id.

Get syntax details by pressing F1 on IMPORT and EXPORT in your program.

Hope it helps in resolving your problem.

[Former Member]

can you guide me with an example

[Former Member]

check this standard program,,,

demo_data_ext_cluster_export

demo_data_ext_cluster_import

This will help u

Regards

Anbu B