Rp_provide_from_last for hrp1001

Hi Friends,
Im tryin to use rp_provide_from_last for infotype p1001 ie for table hrp1001, but im gettin error.
ldb im using is PNP
Pl help me solvin dis.
Pts ll be rewarded.
Regards,
Dilip.

Hi Dilip,
I believe u can use PCH LDB and then use this code to read last record from   P1001
GET OBJEC.
PROVIDE * FROM P1001
            BETWEEN pc-begda
                AND pc-endda
WHERE p1001-begda LE sy-datum
        and p1001-endda GE sy-datum.
ENDPROVIDE.

Similar Messages

FM for HRP1001

Hi ,
Is there any FM which modififes the existing record in HRP1001 table.
Thanks,
Rohit

Use FM - BAPI_HRMASTER_SAVE_REPL_MULT.
Regards

Bapi to upload data for hrp1001

Hi is there any standard Bapi to upload data in 1001.
I know it can be done by lsmw or BDC ..but i wanted to aout any bapi

Hi pratyush,
Try using FM RH_INSERT_INFTY.
Before RH_INSERT_INFTY, call function RH_PM_ENQUEUE, after RH_INSERT_INFTY, call function RH_PM_DEQUEUE.
Regards,
Dilek

Error while selecting values for f4 help.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-100.
SELECT-OPTIONS: CCG for setnode-SETNAME.
SELECTION-SCREEN END OF BLOCK B1.
At Selection-screen on value-request for ccg-low.
Select setname from setnode into corresponding fields of table i_setnode where setclass = '0101'.
 Sort i_setnode by setname.
 Delete adjacent duplicates from i_setnode.
Perform F4_Help_ccg_low.
FORM F4_Help_ccg_low .
data: prog like sy-repid , scrno like sy-dynnr.
prog = sy-repid.
scrno = sy-dynnr.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'i_setnode-setname'
 DYNPPROG = prog
 DYNPNR = scrno
 DYNPROFIELD = 'CCG-low'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = i_setnode
ENDFORM.
The field which i select from the f4 help is not being diaplsyed on select-option. I have attached the code written above. Please check and if i have done anything pls correct me.
Regards,
Phyrose.

Hi
check with this code
TYPES : BEGIN OF ST_OBJID_SH,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
 SELECT OTYPE OBJID FROM HRP1000
 INTO TABLE IT_OBJID_SH
 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'OBJID'
 PVALKEY = ' '
 DYNPPROG = SY-REPID
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'S_OBJID'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_OBJID_SH
 FIELD_TAB =
 RETURN_TAB = RETURN_TAB
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
Reward if usefull

Please check the code for me

DATA :Begin of itab_reqid occurs 0,
      objid like hrp1001-objid,
       end of itab_reqid,
      Begin of itab_postid occurs 0,
       postid like hrp1001-objid,
       end of itab_postid.
Select distinct objid from hrp5125 into table itab_reqid
                                 where aedtm BETWEEN '20060107' and '20073108'.
Select OBJID from hrp1001 into table itab_postid where objid IN itab_reqid
                                                       AND SCLAS = 'NC'.
The above code gives an error called "line type for itab_reqid is incorrect".
Please advise,
Thanks

Hi Reena,
I am not sure if your approach works for ranges. I think the problem in your code is that itab_reqid is not a range and yet you have used it like a range in your SQL SELECT where clause.
You could try this approach instead:
DATA :Begin of itab_reqid occurs 0,
             objid like hrp1001-objid,
           end of itab_reqid,
           Begin of itab_postid occurs 0,
             postid like hrp1001-objid,
           end of itab_postid.
RANGES: r_reqid for hrp1001-objid.
Select distinct objid from hrp5125 into table itab_reqid
where aedtm BETWEEN '20060107' and '20073108'.
if not itab_reqid[] is initial.
r_reqid-option = 'EQ'.
r_reqid-sign = 'I'.
LOOP AT itab_reqid.
     r_reqid-low = itab_reqid-objid.
     append r_reqid.
ENDLOOP.
Select OBJID from hrp1001 into table itab_postid where objid IN itab_reqid
     AND SCLAS = 'NC'.
endif.
Kind Regards,
Darwin

Plz help me out with for all entries

hi to all experts,
 This is my sample code plz tell me how to output the data.plz help me out.im very much beginner in ABAP and i dont want to use loop and endloop is there any way
 REPORT Z_FORALLENTERIES .
types : begin of ty_lfa1,
 lifnr type lfa1-lifnr,
 name1 type lfa1-name1,
 land1 type lfa1-land1,
 end of ty_lfa1.
types : begin of ty_lfb1 ,
 lifnr type lfb1-lifnr,
 bukrs type lfb1-bukrs,
 pernr type lfb1-pernr,
 end of ty_lfb1.
types : begin of ty_lfc1 ,
 lifnr type lfc1-lifnr,
 gjahr type lfc1-gjahr,
 usnam type lfc1-usnam,
 end of ty_lfc1.
types : begin of ty_lfbk ,
 lifnr type lfbk-lifnr,
 banks type lfbk-banks,
 bankl type lfbk-bankl,
 bankn type lfbk-bankn,
 end of ty_lfbk.
types : begin of ty_final,
 lifnr type lfa1-lifnr,
 name1 type lfa1-name1,
 land1 type lfa1-land1,
 bukrs type lfb1-bukrs,
 pernr type lfb1-pernr,
 gjahr type lfc1-gjahr,
 usnam type lfc1-usnam,
 banks type lfbk-banks,
 bankl type lfbk-bankl,
 bankn type lfbk-bankn,
 end of ty_final.
data : it_lfa1 type standard table of ty_lfa1 initial size 0 with header line.
data : it_lfb1 type standard table of ty_lfb1 initial size 0 with header line.
data : it_lfc1 type standard table of ty_lfc1 initial size 0 with header line.
*--internal for outputting data--
data : it_lfbk type standard table of ty_lfbk initial size 0 with header line.
data : it_final type standard table of ty_final initial size 0,
 wa_final like line of it_final.
select lifnr name1 land1
 into table it_lfa1[]
 from lfa1 up to 10 rows.
if it_lfa1[] is not initial.
select lifnr bukrs pernr
 into table it_lfb1[]
 from lfb1
 for all entries in it_lfa1[]
 where lifnr eq it_lfa1-lifnr.
endif.
if it_lfb1[] is not initial.
select lifnr gjahr usnam
 into table it_lfc1[]
 from lfc1
 for all entries in it_lfb1[]
 where lifnr eq it_lfb1-lifnr.
endif.
if it_lfc1[] is not initial.
select lifnr banks bankl bankn
 into table it_lfbk[]
 from lfbk
 for all entries in it_lfc1[]
 where lifnr eq it_lfc1-lifnr.
endif.

Hi
see this program almost same req
**************DATA TYPES DECLARATION **********************
TABLES: HRP1001, HRP1026, HRP1000,PCHDY.
TYPE-POOLS SLIS.
TYPES :BEGIN OF ST_OUTPUT,
 COUNT TYPE STRING,
 OBJID TYPE HRP1001-OBJID,
 STEXT TYPE HRP1000-STEXT,
 BEGDA TYPE HRP1000-BEGDA,
 ENDDA TYPE HRP1000-ENDDA,
 CANCRT TYPE T77CRT-CANCRT,
 AEDTM TYPE HRP1026-AEDTM,
 UNAME TYPE HRP1026-UNAME,
 LSTEXT TYPE HRP1000-STEXT,
 RINVT TYPE T777V-RINVT,
 END OF ST_OUTPUT.
TYPES: BEGIN OF ST_HRP1000,
 OBJID TYPE HRP1001-OBJID,
 STEXT TYPE HRP1000-STEXT,
 END OF ST_HRP1000.
TYPES : BEGIN OF ST_HRP1001,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RELAT type hrp1001-RELAT,
 BEGDA TYPE HRP1001-BEGDA,
 ENDDA TYPE HRP1001-ENDDA,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-SOBID,
 END OF ST_HRP1001.
TYPES : BEGIN OF ST_HRP1026,
 OTYPE TYPE HRP1026-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 AEDTM TYPE HRP1026-AEDTM,
 UNAME TYPE HRP1026-UNAME,
 DELET TYPE HRP1026-DELET,
 CANCR TYPE HRP1026-CANCR,
 END OF ST_HRP1026.
TYPES : BEGIN OF ST_REASON,
 CANCR TYPE HRP1026-CANCR,
 CANCRT TYPE T77CRT-CANCRT,
 END OF ST_REASON.
TYPES : BEGIN OF ST_SOBID,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RELAT type hrp1001-OBJID,
 BEGDA TYPE HRP1001-BEGDA,
 ENDDA TYPE HRP1001-ENDDA,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-OBJID,
 END OF ST_SOBID.
TYPES : BEGIN OF ST_OBJID,
 OBJID TYPE HRP1001-OBJID,
 END OF ST_OBJID.
TYPES : BEGIN OF ST_LOCATION,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RSIGN TYPE HRP1001-RSIGN,
 RELAT TYPE HRP1001-RELAT,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-SOBID,
 END OF ST_LOCATION.
TYPES : BEGIN OF ST_LOCATION1,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RSIGN TYPE HRP1001-RSIGN,
 RELAT TYPE HRP1001-RELAT,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-OBJID,
 END OF ST_LOCATION1.
TYPES : BEGIN OF ST_LSTEXT,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 LSTEXT TYPE HRP1000-STEXT,
 END OF ST_LSTEXT.
TYPES : BEGIN OF ST_OBJID_SH,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
DATA : IT_LSTEXT TYPE STANDARD TABLE OF ST_LSTEXT. "TOS STORE THE TEXT OF COURCE LOCATION
DATA : WA_LSTEXT TYPE ST_LSTEXT.
DATA : IT_LOCATION TYPE STANDARD TABLE OF ST_LOCATION. " TO STORE THE LOCATION OF COURCE
DATA : WA_LOCATION TYPE ST_LOCATION.
DATA : IT_LOCATION1 TYPE STANDARD TABLE OF ST_LOCATION1. " TO CONVERT SOBID INTO OBJID FOR COURCE LOCATION
DATA : WA_LOCATION1 TYPE ST_LOCATION1.
DATA : IT_SOBID TYPE STANDARD TABLE OF ST_SOBID. " TO CHANGE THE SOBID OF HRP1001 TO OBJID OF HRP1026
DATA : WA_SOBID TYPE ST_SOBID. " BY USING FOR ALL ENTRIES
DATA : IT_REASON TYPE STANDARD TABLE OF ST_REASON. "TO STORE T HE REASON FOR CANCELL TEXT
DATA : WA_REASON TYPE ST_REASON.
DATA : IT_OUTPUT TYPE STANDARD TABLE OF ST_OUTPUT. "OUTPUT FEILDS OF REPORT.
DATA : WA_OUTPUT TYPE ST_OUTPUT.
DATA : IT_OUTPUT_1 TYPE STANDARD TABLE OF ST_OUTPUT. " TEMP OUTPUT FEILDS OF REPORT.
DATA : WA_OUTPUT_1 TYPE ST_OUTPUT.
DATA : IT_HRP1000 TYPE STANDARD TABLE OF ST_HRP1000. "DATA FROM HRP1000 TABLE
DATA : WA_HRP1000 TYPE ST_HRP1000.
DATA : IT_HRP1001 TYPE STANDARD TABLE OF ST_HRP1001. "DATA FROM HRP1001 TABLE
DATA : WA_HRP1001 TYPE ST_HRP1001.
DATA : IT_HRP1026 TYPE STANDARD TABLE OF ST_HRP1026. "DATA FROM HRP1026 TABLE
DATA : WA_HRP1026 TYPE ST_HRP1026.
DATA : IT_OBJID TYPE STANDARD TABLE OF ST_OBJID. " TO STORE THE OBJID OF HRP1001
DATA : WA_OBJID TYPE ST_OBJID.
DATA: WS_FCAT TYPE SLIS_FIELDCAT_ALV . " FEILDCATALOG FOR ALV REPORT
DATA: IN_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: W_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : LV_COUNT TYPE I. "FEILD FOR SERIAL NUMBER
***************************END OF DATA DECLARATION******************************************
***********SELECTION SCREEN DESIGN***********************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
**********END OF SELECTION SCREEN DESIGN*****************
*****INITIALIZATION VENT TO ASIGN DEFAULT VALUES TO OTYPE
*INITIALIZATION.
S_OTYPE-LOW = 'D'.
S_OTYPE-SIGN = 'I'.
S_OTYPE-OPTION = 'EQ'.
APPEND S_OTYPE.
CLEAR S_OTYPE.
*************END OF EVENT INITIALIZATION*****************
*********VALIDATION FOR SCREEN FIELDS********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
 SELECT OTYPE OBJID FROM HRP1000
 INTO TABLE IT_OBJID_SH
 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'OBJID'
 PVALKEY = ' '
 DYNPPROG = SY-REPID
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'S_OBJID'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_OBJID_SH
 FIELD_TAB =
 RETURN_TAB = RETURN_TAB
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
 IF SY-SUBRC NE 0.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA.' TYPE 'E'.
 ENDIF.
ENDIF.
REFRESH IT_OBJID.
***************VALIDATION OF SCREEN FIELDS ENDS***********
*****************START OF SELECTION ************************
START-OF-SELECTION.
SELECT OTYPE
 OBJID
 RELAT
 BEGDA
 ENDDA
 SCLAS
 SOBID FROM HRP1001 INTO TABLE IT_HRP1001
 WHERE OTYPE = 'D'
 AND OBJID IN S_OBJID
 AND BEGDA GE DATE-LOW
 AND ENDDA LE DATE-HIGH
 AND ( SCLAS = 'E' OR SCLAS = 'ET' ).
IF SY-SUBRC NE 0.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
LOOP AT IT_HRP1001 INTO WA_HRP1001.
 WA_SOBID-OTYPE = WA_HRP1001-OTYPE.
 WA_SOBID-OBJID = WA_HRP1001-OBJID.
 WA_SOBID-RELAT = WA_HRP1001-RELAT.
 WA_SOBID-BEGDA = WA_HRP1001-BEGDA.
 WA_SOBID-ENDDA = WA_HRP1001-ENDDA.
 WA_SOBID-SCLAS = WA_HRP1001-SCLAS.
 WA_SOBID-SOBID = WA_HRP1001-SOBID.
 APPEND WA_SOBID TO IT_SOBID.
ENDLOOP.
SELECT OTYPE
 OBJID
 AEDTM
 UNAME
 DELET
 CANCR
 NCONT
 FROM HRP1026
 INTO TABLE IT_HRP1026
 FOR ALL ENTRIES IN IT_SOBID
 WHERE OBJID = IT_SOBID-SOBID
 AND ( OTYPE = 'E' OR OTYPE = 'ET' )
 AND DELET = 'X' AND
 BEGDA GE DATE-LOW AND
 ENDDA LE DATE-HIGH.
IF SY-SUBRC EQ 0.
 SELECT OBJID
 STEXT
 FROM HRP1000
 INTO TABLE IT_HRP1000
 FOR ALL ENTRIES IN IT_SOBID
 WHERE OBJID = IT_SOBID-SOBID AND
 BEGDA GE DATE-LOW AND
 ENDDA LE DATE-HIGH.
 SELECT CANCR
 CANCRT
 FROM T77CRT
 INTO TABLE IT_REASON
 FOR ALL ENTRIES IN IT_HRP1026
 WHERE CANCR = IT_HRP1026-CANCR
 AND LANGU = 'E' .
********PERFORM FOR GETTING T HE LOCATION OF THE COURCE**
PERFORM GET_LOCATION.
**************END OF LOCATION OF COURCE ******************
ELSE.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
*****PERFORM FOR GETTING DATA INTO THE FINAL INTERNAL TABLE IT_OUTPUT**
PERFORM GET_DATA.
*********************************END OF PERFORM ET DATA ***************
***********LOGIC FOR PRONTING NUMBER OF RECORDS ***********************
LV_COUNT = 0.
LOOP AT IT_OUTPUT INTO WA_OUTPUT.
 LV_COUNT = LV_COUNT + 1.
 WA_OUTPUT-COUNT = LV_COUNT.
 APPEND WA_OUTPUT TO IT_OUTPUT_1.
ENDLOOP.
REFRESH IT_OUTPUT.
IT_OUTPUT = IT_OUTPUT_1.
********************END OF LOGIC FOR NUMBER OF RECORDS ***************
****************DISPLAYING OUTPUT BY USEING GRID DISPLAY**********
PERFORM ALV_DISPLAY.
****************************END OF PERFORM FOR DISPLAYING **********
*& Form PERFORM_ALV
DISPLAY THE RECORDS IN ALV GRID FORMAT.
FORM ALV_DISPLAY.
PERFORM FIELD_CATALOG USING 'COUNT' 'Sr. No.'.
PERFORM FIELD_CATALOG USING 'OBJID' 'COURCE ID.'.
PERFORM FIELD_CATALOG USING 'STEXT' 'COURCE NAME'.
 PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.
PERFORM FIELD_CATALOG USING 'BEGDA' 'BEGIN DATE '.
PERFORM FIELD_CATALOG USING 'ENDDA' 'END DATE '.
PERFORM FIELD_CATALOG USING 'CANCRT' 'REASON'.
PERFORM FIELD_CATALOG USING 'AEDTM' 'DATE Of CANCEL'.
PERFORM FIELD_CATALOG USING 'NCONT' 'NUMBER OF BOOKINGS'.
PERFORM FIELD_CATALOG USING 'LOCTX' 'COURCE LOCATION'.
PERFORM FIELD_CATALOG USING 'UNAME' 'WHO CANCELLED'.
PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_STRUCTURE_NAME = 'IT_OUTPUT'
 I_GRID_TITLE = ' Cancelled courses with reason '
 IT_FIELDCAT = IN_FCAT
 TABLES
 T_OUTTAB = IT_OUTPUT.
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. "PERFORM_ALV
*& Form FIELD_CATALOG
 text
 -->FIELD_NAME text
 -->DIS_TEXT text
FORM FIELD_CATALOG USING FIELD_NAME DIS_TEXT.
CLEAR WS_FCAT.
WS_FCAT-TABNAME = 'IT_OUTPUT'.
WS_FCAT-FIELDNAME = FIELD_NAME.
WS_FCAT-SELTEXT_M = DIS_TEXT.
APPEND WS_FCAT TO IN_FCAT .
ENDFORM. "FIELD_CATALOG
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
FORM GET_DATA .
*sort it_sobid by objid.
LOOP AT IT_SOBID INTO WA_SOBID." where otype eq s_otype and objid eq s_objid.
 READ TABLE IT_HRP1026 WITH KEY OBJID = WA_SOBID-SOBID OTYPE = WA_SOBID-SCLAS INTO WA_HRP1026.
 IF SY-SUBRC EQ 0.
 READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.
 READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.
 WA_OUTPUT-OBJID = WA_HRP1026-OBJID.
 WA_OUTPUT-BEGDA = WA_SOBID-BEGDA.
 WA_OUTPUT-ENDDA = WA_SOBID-ENDDA.
 WA_OUTPUT-AEDTM = WA_HRP1026-AEDTM.
 WA_OUTPUT-UNAME = WA_HRP1026-UNAME.
 WA_OUTPUT-NCONT = WA_HRP1026-NCONT.
 READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.
 WA_OUTPUT-STEXT = WA_HRP1000-STEXT.
 READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.
 WA_OUTPUT-CANCRT = WA_REASON-CANCRT.
 CLEAR WA_REASON-CANCRT.
 READ TABLE IT_LOCATION1 WITH KEY OBJID = WA_HRP1026-OBJID INTO WA_LOCATION1..
 READ TABLE IT_LSTEXT WITH KEY OBJID = WA_LOCATION1-SOBID OTYPE = 'F' INTO WA_LSTEXT.
 WA_OUTPUT-LSTEXT = WA_LSTEXT-LSTEXT.
 CLEAR WA_LSTEXT-LSTEXT.
 APPEND WA_OUTPUT TO IT_OUTPUT.
 CLEAR WA_OUTPUT.
 CLEAR WA_OUTPUT-CANCRT.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form GET_LOCATION
 text
--> p1 text
<-- p2 text
FORM GET_LOCATION .
SELECT OTYPE
 OBJID
 RSIGN
 RELAT
 SCLAS
 SOBID
 FROM HRP1001
 INTO TABLE IT_LOCATION
 FOR ALL ENTRIES IN IT_HRP1026
 WHERE OTYPE = 'E' AND OBJID = IT_HRP1026-OBJID
 AND RSIGN = 'A' AND RELAT = '024' AND SCLAS = 'F'
 AND BEGDA GE DATE-LOW AND ENDDA LE DATE-HIGH.
IF SY-SUBRC NE 0.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
LOOP AT IT_LOCATION INTO WA_LOCATION.
 WA_LOCATION1-OTYPE = WA_LOCATION-OTYPE.
 WA_LOCATION1-OBJID = WA_LOCATION-OBJID.
 WA_LOCATION1-RSIGN = WA_LOCATION-RSIGN.
 WA_LOCATION1-RELAT = WA_LOCATION-RELAT.
 WA_LOCATION1-SCLAS = WA_LOCATION-SCLAS.
 WA_LOCATION1-SOBID = WA_LOCATION-SOBID.
 APPEND WA_LOCATION1 TO IT_LOCATION1.
 CLEAR WA_LOCATION1.
ENDLOOP.
SELECT OTYPE
 OBJID
 STEXT
 FROM HRP1000
 INTO TABLE IT_LSTEXT
 FOR ALL ENTRIES IN IT_LOCATION1
 WHERE OBJID = IT_LOCATION1-SOBID
 AND OTYPE = 'F'.
 AND BEGDA GE DATE-LOW
 AND ENDDA LE DATE-HIGH.
ENDFORM. " GET_LOCATION
Reward if usefull

Rp_provide_from_last returns incorrect result

Hi
When issuing rp_provide_from_last for IT2001, we get incorrect result.
rp-provide-from-last p2001 space '19000101' '99991231'
This macro does not return the latest record. Instead it returns the record with the highest subtype #. (It actually returns the last record shown in a SE16N listing of PA2001).
Has anyone seen this problem?
We are on SAP 4.7., SP 85.
Best regards
Kirsten

Pleas Try this
Usage:
Only in PNP database reports under GET PERNR, because the personnel number for which data is being read comes from field PERNR-PERNR, while the field being used is PNP-SW-AUTH-SKIPPED-RECORD.
(RP_READ_ALL_TIME_ITY beg end)
   DATA: BEGDA LIKE P2001-BEGDA, ENDDA LIKE P2001-ENDDA.
   INFOTYPES: 0000, 0001, 0002, ...
                     2001 MODE N, 2002 MODE N, ...
     GET PERNR.
   BEGDA = '19900101'. ENDDA = '19900131'.
   RP_READ_ALL_TIME_ITY BEGDA ENDDA.
   IF PNP-SW-AUTH-SKIPPED-RECORD NE '0'.
      WRITE: / 'Authorization for time data missing'.
      WRITE: / 'for personnel number', PERNR-PERNR. REJECT.
   ENDIF.
Remarks
This RMAC module can be used when, for example, the time infotypes were originally defined in MODE N. This was done because the time data (from LOW-DATE to HIGH-DATE) might not all have fitted into the buffer. Now, however, they are read with shorter intervals (for example, in RPCALCx0 with payroll periods).
-Due to the large amount of data in HR, the infotypes 2000 u2013 2999 should not be read when GET PERNR occurs. Therefore, these infotypes are declared with the enhancement MODE N.
-As a result, the infotype tables under GET PERNR are not filled. The time infotype tables are filled subsequently using the macro RP_READ_ALL_TIME_ITY, but only for the time interval specified by PN-BEGDA and PN-ENDDA.
http://help.sap.com/saphelp_45b/helpdata/en/60/d8bb88576311d189270000e8322f96/content.htm
Best Regards

LSMW for PP01

Hi gurus.
We are trying to input some data for HRP1001, linking P with S.The HCM consultant prepared a LSMW mapping PP01 but we start it, it appears this ,msg on screen:
Field PPHDX-RECORD_NR (not allowed entries).
And the positions (S) are not updated.
Regards.

Remove this field from recording. This field is not shown while linking Person to a Position.
This field displays the record number ...
Record 1 of 1.

Ole programming for creating certificate in msword

hi everybody, i developed a program through ole,that creates a certificate in msword for attendees in training class, but the output is comming in potrait, but i need in landscape, could any one tell is any property or method for converting portait to landscape, very urgent.

thank you very much, for your quick respond, and could you tell the coding, i tried but i didnt get and i am sending my program ,could you tell what code and where i need to include,
INCLUDE ole2incl .
TABLES: pa0000, pa0001, pa0002, pa0041,
 hrp1000, hrp1001, hrp1028, sscrfields.
DATA: BEGIN OF t_docs OCCURS 0,
 objid LIKE hrp1001-objid, " object id
 edate LIKE hrp1001-endda, " end date
 stext LIKE hrp1000-stext, " business Event
 pernr LIKE hrp1001-sobid, " personnel #
 cname LIKE p0002-cname, " full name
 nachn LIKE p0002-nachn, " last name
 vorna LIKE p0002-vorna, " first name
 END OF t_docs.
DATA: v_file LIKE RLGRAP-FILENAME,
 v_count TYPE i,
 v_name(80) TYPE c,
 v_date LIKE hrp1001-endda,
 v_pernr LIKE hrp1001-sobid,
 v_objid LIKE hrp1001-objid,
 v_filename(125) TYPE C,
 uline like sy-uline.
DATA: BEGIN OF t_objid OCCURS 0,
 objid LIKE hrp1001-objid,
 END OF t_objid.
CONSTANTS:
 ws_i(01) TYPE c VALUE 'I', "Include
 ws_eq(02) TYPE c VALUE 'EQ', "Equal
 ws_ins(20) TYPE c VALUE 'INS'. "Insert
*Global variables *Variables to hold OLE object and entity handles
DATA gs_word TYPE ole2_object . "OLE object handle
DATA gs_documents TYPE ole2_object . "Documents
DATA gs_actdoc TYPE ole2_object . "Active document
DATA gs_newdoc TYPE ole2_object .
DATA gs_application TYPE ole2_object . "Application
DATA gs_options TYPE ole2_object . "Application options
DATA gs_actwin TYPE ole2_object . "Active window
DATA gs_actpan TYPE ole2_object . "Active pane
DATA gs_view TYPE ole2_object . "View
DATA gs_selection TYPE ole2_object . "Selection
DATA gs_font TYPE ole2_object . "Font
DATA gs_parformat TYPE ole2_object . "Paragraph format
DATA gs_tables TYPE ole2_object . "Tables
DATA gs_range TYPE ole2_object . "Range handle for various
 "ranges
DATA gs_table TYPE ole2_object . "One table
DATA gs_table_border TYPE ole2_object . "Table border
DATA gs_cell TYPE ole2_object . "One cell of a table
DATA gs_paragraph TYPE ole2_object . "Paragraph
DATA gv_pos(5) TYPE n . "Position information for table
DATA gs_save TYPE ole2_object.
DATA gs_picture(128) TYPE c.
DATA gs_inlineshapes TYPE ole2_object.
DATA gs_logo TYPE ole2_object.
data WORKBOOK TYPE ole2_object.
 SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: Class FOR hrp1001-objid .
SELECT-OPTIONS: Employee FOR pa0001-pernr.
SELECT-OPTIONS: EPerson FOR hrp1001-sobid.
PARAMETERS: Path LIKE RLGRAP-FILENAME DEFAULT 'C:\Documents and
Settings\skavuri\SapWorkDir\'.
SELECTION-SCREEN END OF BLOCK a1.
AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'F4CLICK'.
call function 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = SYST-CPROG
 DYNPRO_NUMBER = SYST-DYNNR
 FIELD_NAME = ' '
 IMPORTING
 FILE_NAME = v_file.
IF not v_file is initial.
 Path = v_file.
ENDIF.
ENDIF.
 INITIALIZATION
INITIALIZATION.
select * from hrp1001 where otype = 'E'.
endselect.
SELECT objid FROM hrp1001 INTO TABLE t_objid
 WHERE otype = 'E'.
 START-OF-SELECTION
START-OF-SELECTION.
READ TABLE t_objid WITH KEY objid = Class-Low.
IF SY-SUBRC <> 0.
message E000.
EXIT.
ENDIF.
SELECT oobjid oendda pstext osobid rcname rnachn
 r~vorna
 INTO
 (t_docs-objid, t_docs-edate, t_docs-stext,
 t_docs-pernr, t_docs-cname, t_docs-nachn,
 t_docs-vorna)
 FROM ( ( hrp1001 AS o INNER JOIN
 hrp1000 AS p ON oobjid = pobjid AND
 ootype = potype )
 INNER JOIN pa0002 AS r ON osobid = rpernr )
 WHERE o~plvar = 'Z1' AND
 o~otype = 'E' AND
 o~rsign = 'A' AND
 o~relat = '025' AND
 o~istat = '1' AND
 o~sclas in ('P','H') AND
 o~objid IN class AND
 r~endda = '99991231' AND
 r~sprsl = 'E' AND
 p~langu = 'E'.
 APPEND t_docs. CLEAR t_docs.
ENDSELECT.
DELETE ADJACENT DUPLICATES FROM t_docs COMPARING pernr.
DESCRIBE TABLE t_docs LINES v_count.
IF v_count = 0.
message E001.
EXIT.
ELSE.
LOOP AT t_docs.
 CLEAR v_date.
 MOVE t_docs-edate to v_date.
 IF SY-DATUM < v_date.
 message E002.
 EXIT.
 ENDIF.
 CLEAR v_name.
 CONCATENATE t_docs-nachn t_docs-vorna INTO
 v_name SEPARATED BY SPACE.
 CLEAR: v_pernr, v_objid, v_filename.
 MOVE: t_docs-pernr TO v_pernr,
 t_docs-objid TO v_objid.
 CONCATENATE 'C:\Documents and Settings\skavuri\SapWorkDir\' v_pernr
v_objid '.doc' INTO v_filename.
 PERFORM GenOLEDoc USING v_name
 t_docs-stext
 t_docs-edate.
ENDLOOP.
ENDIF.
*& Form GenOLEDoc
 text
--> p1 text
<-- p2 text
FORM GenOLEDoc USING P_NAME
 P_STEXT
 P_EDATE.
--Creating OLE object handle variable
CREATE OBJECT gs_word 'WORD.APPLICATION' .
IF sy-subrc NE 0 .
 MESSAGE s000(su) WITH 'Error while creating OLE object!'.
 LEAVE PROGRAM .
ENDIF .
--Setting object's visibility property
SET PROPERTY OF gs_word 'Visible' = '0'.
--Opening a new document
GET PROPERTY OF gs_word 'Documents' = gs_documents .
CALL METHOD OF gs_documents 'Add' = gs_actdoc.
--Getting active document handle
GET PROPERTY OF gs_word 'ActiveDocument' = gs_actdoc .
--Getting applications handle
GET PROPERTY OF gs_actdoc 'Application' = gs_application .
--Setting the measurement unit
GET PROPERTY OF gs_application 'Options' = gs_options .
SET PROPERTY OF gs_options 'MeasurementUnit' = '1' . "CM
*--Getting handle for the selection which is here the character at the
--cursor position
GET PROPERTY OF gs_application 'Selection' = gs_selection .
GET PROPERTY OF gs_selection 'Font' = gs_font .
GET PROPERTY OF gs_selection 'ParagraphFormat' = gs_parformat .
--Setting font attributes
SET PROPERTY OF gs_font 'Name' = 'Times New Roman'.
SET PROPERTY OF gs_font 'Size' = '20'.
SET PROPERTY OF gs_font 'Bold' = '1'. "Not bold
GET PROPERTY OF gs_actdoc 'Tables' = gs_tables.
GET PROPERTY OF gs_selection 'Range' = gs_range.
CALL METHOD OF gs_tables 'Add' = gs_table
EXPORTING
#1 = gs_range
#2 = '1'
#3 = '1'.
GET PROPERTY OF gs_table 'Borders' = gs_table_border.
SET PROPERTY OF gs_table_border 'Enable' = '10'.
SET PROPERTY OF gs_font 'Name' = 'Garamond'.
SET PROPERTY OF gs_font 'Size' = '18'.
SET PROPERTY OF gs_font 'Bold' = '1'.
CALL METHOD OF gs_table 'Cell' = gs_cell
EXPORTING
#1 = '1'
#2 = '1'.
GET PROPERTY OF gs_actdoc 'InlineShapes' = gs_inlineshapes.
CALL METHOD OF gs_inlineshapes 'AddPicture' = gs_logo
EXPORTING
#1 = 'C:\logo.bmp'
#2 = 10
#3 = 10.
CALL METHOD OF gs_selection 'TypeParagraph'.
CALL METHOD OF gs_selection 'TypeParagraph'.
CALL METHOD OF gs_selection 'TypeParagraph'.
CALL METHOD OF gs_selection 'TypeParagraph'.
CALL METHOD OF gs_selection 'TypeParagraph'.
CALL METHOD OF gs_selection 'TypeParagraph'.
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = 'This is to Certify that '.
--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = '______________________________ '.
CALL METHOD OF gs_selection 'TypeParagraph'.
--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1' . "Bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = P_NAME.
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1' . "Bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = ''.
--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1'. "Not bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = 'Has successfully completed the '.
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1' . "Bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = ''.
--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1'. "Not bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = P_STEXT.
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1' . "Bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = ''.
--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
SET PROPERTY OF gs_font 'Bold' = '1'. "Not bold
--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Center-justified
CALL METHOD OF gs_selection 'TypeText' EXPORTING
 #1 = P_EDATE.
CALL METHOD OF gs_actdoc 'SaveAs'
exporting
 #1 = v_filename.
call method of gs_word 'Quit' .
FREE: gs_word, gs_actdoc, gs_documents, gs_newdoc.
endform.

Hi all F4 on field in alv list

hi all
i would like to know how is it possible to give f4 help to a field in alv list. this is field is input enable.
if not in alv list, is it possible in alv grid.
thanx
rocky

HI
like this
TYPES : BEGIN OF ST_OBJID_SH,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
***********SELECTION SCREEN DESIGN***********************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
**********END OF SELECTION SCREEN DESIGN*****************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
 SELECT OTYPE OBJID FROM HRP1000
 INTO TABLE IT_OBJID_SH
 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'OBJID'
 PVALKEY = ' '
 DYNPPROG = SY-REPID
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'S_OBJID'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_OBJID_SH
 FIELD_TAB =
 RETURN_TAB = RETURN_TAB
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.

Urgent ..... check the program code,

The below is my code, my superior say that ,this is not correct
he suggest me not use OCCUR or With header line,
And even is there anything worng in ''Start od selection''
so anyone check my code and tell me what is worng in it and what correct is required
Tables: LIKP, LIPS, VBRK, VBRP, KNA1, MARA, MAKT, vbpa, VBAK.
DATA : itab type STANDARD TABLE OF ZTARA_STRUC WITH HEADER LINE.
Select-options: so_kunnr for kna1-kunnr,
So_Fkdat for vbrk-fkdat.
data : container type ref to cl_gui_custom_container,
 grid type ref to cl_gui_alv_grid,
 fieldcat type lvc_t_fcat.
DATA : lt_vbrk type STANDARD TABLE OF vbrk WITH HEADER LINE,
 lt_vbrp TYPE STANDARD TABLE OF vbap WITH HEADER LINE,
 lt_VBAK TYPE STANDARD TABLE OF VBAK WITH HEADER LINE,
 lt_veda TYPE STANDARD TABLE OF veda WITH HEADER LINE,
 lt_kna1 TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE,
 it_vbak type standard table of vbak with header line.
Start-of-selection.
so_kunnr = so_kunnr-low.
So_Fkdat = So_Fkdat-low.
SELECT kunnr Name1 ort01 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE lt_kna1
WHERE kunnr in so_kunnr.
loop at lt_kna1.
 itab-CUSTOMER_NUMBER = lt_kna1-kunnr.
 itab-CUSTOMER_NAME = lt_kna1-Name1.
 itab-city = lt_kna1-ort01.
SELECT vbeln fkdat kunag FROM VBRK INTO CORRESPONDING FIELDS OF TABLE lt_vbrk
WHERE kunag = itab-CUSTOMER_NUMBER
 AND Fkdat in So_Fkdat.
if sy-SUBRC = 0.
LOOP AT lt_vbrk.
itab-SOLD2PARTY = lt_kna1-kunnr.
itab-INVOICE_DATE = lt_vbrk-Fkdat.
itab-Vbeln = lt_vbrk-Vbeln.
SELECT POSNR Matnr ARKTX FROM vbrp INTO CORRESPONDING FIELDS OF TABLE lt_vbrp
WHERE vbeln = itab-Vbeln.
LOOP AT lt_vbrp.
itab-MATERIAL_DESCRIP = lt_vbrp-ARKTX.
SELECT AUDAT FROM VBAK INTO CORRESPONDING FIELDS OF TABLE lt_VBAK
WHERE VBELN = itab-VBELN.
LOOP AT lt_VBAK.
itab-AUDAT = lt_VBAK-AUDAT.
SELECT VBEGDAT VENDDAT FROM veda INTO CORRESPONDING FIELDS OF TABLE lt_veda
WHERE VBELN = itab-CUSTOMER_NUMBER.
LOOP AT lt_veda.
itab-VBEGDAT = lt_veda-VBEGDAT.
itab-VENDDAT = lt_veda-VENDDAT.
 ENDLOOP.
 ENDLOOP.
 ENDLOOP.
 ENDLOOP.
 ENDLOOP.
*select * FROM vbak INTO CORRESPONDING FIELDS OF TABLE it_vbak
WHERE VBELN = itab-VBELN
and ERDAT = itab-invoice_date.
*LOOP AT it_vbak.
*itab-VBELN = it_vbak-VBELN.
itab-INVOICE_DATE = it_vbak-ERDAT.
APPEND itab.
*ENDLOOP.
else.
exit.
endif.
APPEND itab.
 ENDLOOP.
call screen 9000.
*& Module STATUS_9000 OUTPUT
 text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'MAIN MENU'.
SET TITLEBAR 'TITLE'.
CREATE OBJECT CONTAINER
 EXPORTING
 PARENT =
 CONTAINER_NAME = 'CUS_CONTAINER'
 STYLE =
 LIFETIME = lifetime_default
 REPID =
 DYNNR =
 NO_AUTODEF_PROGID_DYNNR =
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 LIFETIME_DYNPRO_DYNPRO_LINK = 5
 others = 6
IF SY-SUBRC <> 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT GRID
EXPORTING
 I_SHELLSTYLE = 0
 I_LIFETIME =
 I_PARENT = CONTAINER
 I_APPL_EVENTS = space
 I_PARENTDBG =
 I_APPLOGPARENT =
 I_GRAPHICSPARENT =
 I_NAME =
 I_FCAT_COMPLETE = SPACE
EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 others = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
 I_BUFFER_ACTIVE =
 I_BYPASSING_BUFFER =
 I_CONSISTENCY_CHECK =
 I_STRUCTURE_NAME = 'ZTARA_STRUC'
 IS_VARIANT =
 I_SAVE =
 I_DEFAULT = 'X'
 IS_LAYOUT =
 IS_PRINT =
 IT_SPECIAL_GROUPS =
 IT_TOOLBAR_EXCLUDING =
 IT_HYPERLINK =
 IT_ALV_GRAPHICS =
 IT_EXCEPT_QINFO =
 IR_SALV_ADAPTER =
CHANGING
 IT_OUTTAB = itab[]
 IT_FIELDCATALOG = lt_fcat
 IT_SORT =
 IT_FILTER =
EXCEPTIONS
 INVALID_PARAMETER_COMBINATION = 1
 PROGRAM_ERROR = 2
 TOO_MANY_LINES = 3
 others = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE. " STATUS_9000 OUTPUT
*& Module USER_COMMAND_9000 INPUT
 text
MODULE USER_COMMAND_9000 INPUT.
case sy-ucomm.
when 'BACK'.
Leave Program.
when others.
Leave Program.
endcase.
ENDMODULE. " USER_COMMAND_9000 INPUT

hI
USE types DECLARATION LIKE THIS SEE THIS PROGRAM AND YOU CAN UNDERSTAND VERY EASILY
**************DATA TYPES DECLARATION **********************
TABLES: HRP1001, HRP1026, HRP1000,PCHDY.
TYPE-POOLS SLIS.
TYPES :BEGIN OF ST_OUTPUT,
 COUNT TYPE STRING,
 OBJID TYPE HRP1001-OBJID,
 STEXT TYPE HRP1000-STEXT,
 BEGDA TYPE HRP1000-BEGDA,
 ENDDA TYPE HRP1000-ENDDA,
 CANCRT TYPE T77CRT-CANCRT,
 AEDTM TYPE HRP1026-AEDTM,
 UNAME TYPE HRP1026-UNAME,
 LSTEXT TYPE HRP1000-STEXT,
 RINVT TYPE T777V-RINVT,
 END OF ST_OUTPUT.
TYPES: BEGIN OF ST_HRP1000,
 OBJID TYPE HRP1001-OBJID,
 STEXT TYPE HRP1000-STEXT,
 END OF ST_HRP1000.
TYPES : BEGIN OF ST_HRP1001,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RELAT type hrp1001-RELAT,
 BEGDA TYPE HRP1001-BEGDA,
 ENDDA TYPE HRP1001-ENDDA,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-SOBID,
 END OF ST_HRP1001.
TYPES : BEGIN OF ST_HRP1026,
 OTYPE TYPE HRP1026-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 AEDTM TYPE HRP1026-AEDTM,
 UNAME TYPE HRP1026-UNAME,
 DELET TYPE HRP1026-DELET,
 CANCR TYPE HRP1026-CANCR,
 END OF ST_HRP1026.
TYPES : BEGIN OF ST_REASON,
 CANCR TYPE HRP1026-CANCR,
 CANCRT TYPE T77CRT-CANCRT,
 END OF ST_REASON.
TYPES : BEGIN OF ST_SOBID,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RELAT type hrp1001-OBJID,
 BEGDA TYPE HRP1001-BEGDA,
 ENDDA TYPE HRP1001-ENDDA,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-OBJID,
 END OF ST_SOBID.
TYPES : BEGIN OF ST_OBJID,
 OBJID TYPE HRP1001-OBJID,
 END OF ST_OBJID.
TYPES : BEGIN OF ST_LOCATION,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RSIGN TYPE HRP1001-RSIGN,
 RELAT TYPE HRP1001-RELAT,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-SOBID,
 END OF ST_LOCATION.
TYPES : BEGIN OF ST_LOCATION1,
 OTYPE TYPE HRP1001-OTYPE,
 OBJID TYPE HRP1001-OBJID,
 RSIGN TYPE HRP1001-RSIGN,
 RELAT TYPE HRP1001-RELAT,
 SCLAS TYPE HRP1001-SCLAS,
 SOBID TYPE HRP1001-OBJID,
 END OF ST_LOCATION1.
TYPES : BEGIN OF ST_LSTEXT,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 LSTEXT TYPE HRP1000-STEXT,
 END OF ST_LSTEXT.
TYPES : BEGIN OF ST_OBJID_SH,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
DATA : IT_LSTEXT TYPE STANDARD TABLE OF ST_LSTEXT. "TOS STORE THE TEXT OF COURCE LOCATION
DATA : WA_LSTEXT TYPE ST_LSTEXT.
DATA : IT_LOCATION TYPE STANDARD TABLE OF ST_LOCATION. " TO STORE THE LOCATION OF COURCE
DATA : WA_LOCATION TYPE ST_LOCATION.
DATA : IT_LOCATION1 TYPE STANDARD TABLE OF ST_LOCATION1. " TO CONVERT SOBID INTO OBJID FOR COURCE LOCATION
DATA : WA_LOCATION1 TYPE ST_LOCATION1.
DATA : IT_SOBID TYPE STANDARD TABLE OF ST_SOBID. " TO CHANGE THE SOBID OF HRP1001 TO OBJID OF HRP1026
DATA : WA_SOBID TYPE ST_SOBID. " BY USING FOR ALL ENTRIES
DATA : IT_REASON TYPE STANDARD TABLE OF ST_REASON. "TO STORE T HE REASON FOR CANCELL TEXT
DATA : WA_REASON TYPE ST_REASON.
DATA : IT_OUTPUT TYPE STANDARD TABLE OF ST_OUTPUT. "OUTPUT FEILDS OF REPORT.
DATA : WA_OUTPUT TYPE ST_OUTPUT.
DATA : IT_OUTPUT_1 TYPE STANDARD TABLE OF ST_OUTPUT. " TEMP OUTPUT FEILDS OF REPORT.
DATA : WA_OUTPUT_1 TYPE ST_OUTPUT.
DATA : IT_HRP1000 TYPE STANDARD TABLE OF ST_HRP1000. "DATA FROM HRP1000 TABLE
DATA : WA_HRP1000 TYPE ST_HRP1000.
DATA : IT_HRP1001 TYPE STANDARD TABLE OF ST_HRP1001. "DATA FROM HRP1001 TABLE
DATA : WA_HRP1001 TYPE ST_HRP1001.
DATA : IT_HRP1026 TYPE STANDARD TABLE OF ST_HRP1026. "DATA FROM HRP1026 TABLE
DATA : WA_HRP1026 TYPE ST_HRP1026.
DATA : IT_OBJID TYPE STANDARD TABLE OF ST_OBJID. " TO STORE THE OBJID OF HRP1001
DATA : WA_OBJID TYPE ST_OBJID.
DATA: WS_FCAT TYPE SLIS_FIELDCAT_ALV . " FEILDCATALOG FOR ALV REPORT
DATA: IN_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: W_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : LV_COUNT TYPE I. "FEILD FOR SERIAL NUMBER
***************************END OF DATA DECLARATION******************************************
***********SELECTION SCREEN DESIGN***********************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
**********END OF SELECTION SCREEN DESIGN*****************
*****INITIALIZATION VENT TO ASIGN DEFAULT VALUES TO OTYPE
*INITIALIZATION.
S_OTYPE-LOW = 'D'.
S_OTYPE-SIGN = 'I'.
S_OTYPE-OPTION = 'EQ'.
APPEND S_OTYPE.
CLEAR S_OTYPE.
*************END OF EVENT INITIALIZATION*****************
*********VALIDATION FOR SCREEN FIELDS********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
 SELECT OTYPE OBJID FROM HRP1000
 INTO TABLE IT_OBJID_SH
 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'OBJID'
 PVALKEY = ' '
 DYNPPROG = SY-REPID
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'S_OBJID'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_OBJID_SH
 FIELD_TAB =
 RETURN_TAB = RETURN_TAB
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
 IF SY-SUBRC NE 0.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA.' TYPE 'E'.
 ENDIF.
ENDIF.
REFRESH IT_OBJID.
***************VALIDATION OF SCREEN FIELDS ENDS***********
*****************START OF SELECTION ************************
START-OF-SELECTION.
SELECT OTYPE
 OBJID
 RELAT
 BEGDA
 ENDDA
 SCLAS
 SOBID FROM HRP1001 INTO TABLE IT_HRP1001
 WHERE OTYPE = 'D'
 AND OBJID IN S_OBJID
 AND BEGDA GE DATE-LOW
 AND ENDDA LE DATE-HIGH
 AND ( SCLAS = 'E' OR SCLAS = 'ET' ).
IF SY-SUBRC NE 0.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
LOOP AT IT_HRP1001 INTO WA_HRP1001.
 WA_SOBID-OTYPE = WA_HRP1001-OTYPE.
 WA_SOBID-OBJID = WA_HRP1001-OBJID.
 WA_SOBID-RELAT = WA_HRP1001-RELAT.
 WA_SOBID-BEGDA = WA_HRP1001-BEGDA.
 WA_SOBID-ENDDA = WA_HRP1001-ENDDA.
 WA_SOBID-SCLAS = WA_HRP1001-SCLAS.
 WA_SOBID-SOBID = WA_HRP1001-SOBID.
 APPEND WA_SOBID TO IT_SOBID.
ENDLOOP.
SELECT OTYPE
 OBJID
 AEDTM
 UNAME
 DELET
 CANCR
 NCONT
 FROM HRP1026
 INTO TABLE IT_HRP1026
 FOR ALL ENTRIES IN IT_SOBID
 WHERE OBJID = IT_SOBID-SOBID
 AND ( OTYPE = 'E' OR OTYPE = 'ET' )
 AND DELET = 'X' AND
 BEGDA GE DATE-LOW AND
 ENDDA LE DATE-HIGH.
IF SY-SUBRC EQ 0.
 SELECT OBJID
 STEXT
 FROM HRP1000
 INTO TABLE IT_HRP1000
 FOR ALL ENTRIES IN IT_SOBID
 WHERE OBJID = IT_SOBID-SOBID AND
 BEGDA GE DATE-LOW AND
 ENDDA LE DATE-HIGH.
 SELECT CANCR
 CANCRT
 FROM T77CRT
 INTO TABLE IT_REASON
 FOR ALL ENTRIES IN IT_HRP1026
 WHERE CANCR = IT_HRP1026-CANCR
 AND LANGU = 'E' .
********PERFORM FOR GETTING T HE LOCATION OF THE COURCE**
PERFORM GET_LOCATION.
**************END OF LOCATION OF COURCE ******************
ELSE.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
*****PERFORM FOR GETTING DATA INTO THE FINAL INTERNAL TABLE IT_OUTPUT**
PERFORM GET_DATA.
*********************************END OF PERFORM ET DATA ***************
***********LOGIC FOR PRONTING NUMBER OF RECORDS ***********************
LV_COUNT = 0.
LOOP AT IT_OUTPUT INTO WA_OUTPUT.
 LV_COUNT = LV_COUNT + 1.
 WA_OUTPUT-COUNT = LV_COUNT.
 APPEND WA_OUTPUT TO IT_OUTPUT_1.
ENDLOOP.
REFRESH IT_OUTPUT.
IT_OUTPUT = IT_OUTPUT_1.
********************END OF LOGIC FOR NUMBER OF RECORDS ***************
****************DISPLAYING OUTPUT BY USEING GRID DISPLAY**********
PERFORM ALV_DISPLAY.
****************************END OF PERFORM FOR DISPLAYING **********
*& Form PERFORM_ALV
DISPLAY THE RECORDS IN ALV GRID FORMAT.
FORM ALV_DISPLAY.
PERFORM FIELD_CATALOG USING 'COUNT' 'Sr. No.'.
PERFORM FIELD_CATALOG USING 'OBJID' 'COURCE ID.'.
PERFORM FIELD_CATALOG USING 'STEXT' 'COURCE NAME'.
 PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.
PERFORM FIELD_CATALOG USING 'BEGDA' 'BEGIN DATE '.
PERFORM FIELD_CATALOG USING 'ENDDA' 'END DATE '.
PERFORM FIELD_CATALOG USING 'CANCRT' 'REASON'.
PERFORM FIELD_CATALOG USING 'AEDTM' 'DATE Of CANCEL'.
PERFORM FIELD_CATALOG USING 'NCONT' 'NUMBER OF BOOKINGS'.
PERFORM FIELD_CATALOG USING 'LOCTX' 'COURCE LOCATION'.
PERFORM FIELD_CATALOG USING 'UNAME' 'WHO CANCELLED'.
PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_STRUCTURE_NAME = 'IT_OUTPUT'
 I_GRID_TITLE = ' Cancelled courses with reason '
 IT_FIELDCAT = IN_FCAT
 TABLES
 T_OUTTAB = IT_OUTPUT.
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. "PERFORM_ALV
*& Form FIELD_CATALOG
 text
 -->FIELD_NAME text
 -->DIS_TEXT text
FORM FIELD_CATALOG USING FIELD_NAME DIS_TEXT.
CLEAR WS_FCAT.
WS_FCAT-TABNAME = 'IT_OUTPUT'.
WS_FCAT-FIELDNAME = FIELD_NAME.
WS_FCAT-SELTEXT_M = DIS_TEXT.
APPEND WS_FCAT TO IN_FCAT .
ENDFORM. "FIELD_CATALOG
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
FORM GET_DATA .
*sort it_sobid by objid.
LOOP AT IT_SOBID INTO WA_SOBID." where otype eq s_otype and objid eq s_objid.
 READ TABLE IT_HRP1026 WITH KEY OBJID = WA_SOBID-SOBID OTYPE = WA_SOBID-SCLAS INTO WA_HRP1026.
 IF SY-SUBRC EQ 0.
 READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.
 READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.
 WA_OUTPUT-OBJID = WA_HRP1026-OBJID.
 WA_OUTPUT-BEGDA = WA_SOBID-BEGDA.
 WA_OUTPUT-ENDDA = WA_SOBID-ENDDA.
 WA_OUTPUT-AEDTM = WA_HRP1026-AEDTM.
 WA_OUTPUT-UNAME = WA_HRP1026-UNAME.
 WA_OUTPUT-NCONT = WA_HRP1026-NCONT.
 READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.
 WA_OUTPUT-STEXT = WA_HRP1000-STEXT.
 READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.
 WA_OUTPUT-CANCRT = WA_REASON-CANCRT.
 CLEAR WA_REASON-CANCRT.
 READ TABLE IT_LOCATION1 WITH KEY OBJID = WA_HRP1026-OBJID INTO WA_LOCATION1..
 READ TABLE IT_LSTEXT WITH KEY OBJID = WA_LOCATION1-SOBID OTYPE = 'F' INTO WA_LSTEXT.
 WA_OUTPUT-LSTEXT = WA_LSTEXT-LSTEXT.
 CLEAR WA_LSTEXT-LSTEXT.
 APPEND WA_OUTPUT TO IT_OUTPUT.
 CLEAR WA_OUTPUT.
 CLEAR WA_OUTPUT-CANCRT.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form GET_LOCATION
 text
--> p1 text
<-- p2 text
FORM GET_LOCATION .
SELECT OTYPE
 OBJID
 RSIGN
 RELAT
 SCLAS
 SOBID
 FROM HRP1001
 INTO TABLE IT_LOCATION
 FOR ALL ENTRIES IN IT_HRP1026
 WHERE OTYPE = 'E' AND OBJID = IT_HRP1026-OBJID
 AND RSIGN = 'A' AND RELAT = '024' AND SCLAS = 'F'
 AND BEGDA GE DATE-LOW AND ENDDA LE DATE-HIGH.
IF SY-SUBRC NE 0.
 MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
LOOP AT IT_LOCATION INTO WA_LOCATION.
 WA_LOCATION1-OTYPE = WA_LOCATION-OTYPE.
 WA_LOCATION1-OBJID = WA_LOCATION-OBJID.
 WA_LOCATION1-RSIGN = WA_LOCATION-RSIGN.
 WA_LOCATION1-RELAT = WA_LOCATION-RELAT.
 WA_LOCATION1-SCLAS = WA_LOCATION-SCLAS.
 WA_LOCATION1-SOBID = WA_LOCATION-SOBID.
 APPEND WA_LOCATION1 TO IT_LOCATION1.
 CLEAR WA_LOCATION1.
ENDLOOP.
SELECT OTYPE
 OBJID
 STEXT
 FROM HRP1000
 INTO TABLE IT_LSTEXT
 FOR ALL ENTRIES IN IT_LOCATION1
 WHERE OBJID = IT_LOCATION1-SOBID
 AND OTYPE = 'F'.
 AND BEGDA GE DATE-LOW
 AND ENDDA LE DATE-HIGH.
ENDFORM. " GET_LOCATION

How to increase the length of selection text

hi All,
I have a requirement where the select option text is longer then the usual size.
I tried to use the selection screen comment but it is not coming in the same line.
Kindly suggest on this.
Select-options:s_st_obj FOR hrp1001-objid NO INTERVALS
here s_st_obj text is Object ( PERNR / Position id / Org.id)

Hi,
I think not able to display all text, try to delete the spaces between words
Object(PERNR/Pos id/Org.id)
Regards,
Sunil

Input Help from Internal table.

Hi All,
I have created a screen with fields from an internal table and I can't access the Input help calendar for dates. I would also like to access the domain values that are linked to the original transparent table for two other fields on the screen (both from the internal table in the program) when I click on the input help in the field or press F4.
Relevant assistance will be rewarded.
Thanx in advance.

HI
try like this
TYPES : BEGIN OF ST_OBJID_SH,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
***********SELECTION SCREEN DESIGN***********************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
**********END OF SELECTION SCREEN DESIGN*****************
*****INITIALIZATION VENT TO ASIGN DEFAULT VALUES TO OTYPE
*INITIALIZATION.
S_OTYPE-LOW = 'D'.
S_OTYPE-SIGN = 'I'.
S_OTYPE-OPTION = 'EQ'.
APPEND S_OTYPE.
CLEAR S_OTYPE.
*************END OF EVENT INITIALIZATION*****************
*********VALIDATION FOR SCREEN FIELDS********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
 SELECT OTYPE OBJID FROM HRP1000
 INTO TABLE IT_OBJID_SH
 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'OBJID'
 PVALKEY = ' '
 DYNPPROG = SY-REPID
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'S_OBJID'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_OBJID_SH
 FIELD_TAB =
 RETURN_TAB = RETURN_TAB
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.

Delete Position with an Inactive Personnel Number

I have a position active in OM. The pernr tied to the A 008 relationship does not exist. How this happened is unsure, but I need to remove the position or the A 008 relationship as it is affecting reporting.
I've tried a PO13 to simply delete the relationship and have also tried program RHRHDL00 to remove the relationship, and the position object itself.
I'm given the error that "Personnel Number does not exist" when I try all methods of deletion.
Thoughts?
Cheers,
Stephen

I thought of that too, but there is no maintenance dialog for HRP1001 or did I miss something?
If your referring to get an ABAPer or a DBA to do it I could of course got that route.
I was trying to solve this functionally.
Thanks.
Stephen

Collective search on the Select-options field on the selection screen

Hello experts,
 I have a Y program and a selection screen for it. I have to get the BKPF-BELNR in the search help list. Since the table is too bulky to get all the documents form it. I thought I might need a condition of company code for fetching the documents. I have company code on the selection screen, but if I press F4, on the BELNR, my select-options internal table for company code is remains initial. I think for F4 events the values doesn't get populated in the internal tables, not sure.
 Can you tell me, how to get the company code entered on the selection screen, on the F4 event. Or If this doesn't work, will collective search help solve my problem? If yes, Please let me know, which function module I can use to add a collective search to my select-options on the selection screen.
Thanks,
Ganesh Khumse.
Points will be rewarded!

Hi
do like this
TYPES : BEGIN OF ST_OBJID_SH,
 OTYPE TYPE HRP1000-OTYPE,
 OBJID TYPE HRP1000-OBJID,
 END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
***********SELECTION SCREEN DESIGN***********************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
**********END OF SELECTION SCREEN DESIGN*****************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
 SELECT OTYPE OBJID FROM HRP1000
 INTO TABLE IT_OBJID_SH
 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'OBJID'
 PVALKEY = ' '
 DYNPPROG = SY-REPID
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'S_OBJID'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_OBJID_SH
 FIELD_TAB =
 RETURN_TAB = RETURN_TAB
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.

Rp_provide_from_last for hrp1001

Similar Messages

Maybe you are looking for