topic Re: how to write select query ? in Application Development and Automation Discussions

how to write select query ?

Former Member — Thu, 13 Jun 2013 12:31:39 GMT

i HAVE 2 table PROJ AND VBRP.

I have to display field POST1 from table PROJ.

from table VBRP i have to select field VBELN and PS_PSP_PNR then i have to pass PS_PSP_PNR.

then i have to pass PS_PSP_PNR to table PROJ and select field post1 from proj and display POST1.
HERE i have to use conversion exit for field ps_psp_pnr.

Re: how to write select query ?

Former Member — Thu, 13 Jun 2013 13:34:35 GMT

Hi Sharmistha,

Create an internal table which holds vbeln and ps_psp_pnr

and write this select statement

SELECT vbeln ps_psp_pnr

into table itab

from vbrp.

select post1

into lv_post1

from proj.

Re: how to write select query ?

Former Member — Thu, 13 Jun 2013 13:37:03 GMT

Hi Sharmistha,

My Assumption - You will be linking VBRP and PROJ via

VBRP-PS_PSP_PNR and PROJ-PSPNR.

Try Code.

TYPES : BEGIN OF ty_vbrp,

vbeln TYPE vbeln_vf,

ps_psp_pnr TYPE ps_psp_pnr ,

END OF ty_vbrp,

BEGIN OF ty_proj,

pspnr TYPE ps_intnr,

post1 TYPE ps_post1,

END OF ty_proj.

DATA : lt_vbrp TYPE STANDARD TABLE OF ty_vbrp,

lt_proj TYPE STANDARD TABLE OF ty_proj.

end-of-selection.

SELECT vbeln ps_psp_pnr FROM vbrp INTO TABLE lt_vbrp WHERE vbeln = '0090000046'. " Change According to your need

IF lt_vbrp IS NOT INITIAL.

SELECT pspnr post1 FROM proj INTO TABLE lt_proj

FOR ALL ENTRIES IN lt_vbrp

WHERE pspnr = lt_vbrp-ps_psp_pnr.

ENDIF.

BR,

Ankit.

Re: how to write select query ?

Former Member — Thu, 13 Jun 2013 13:41:15 GMT

Conversion Exits for PS_PSP_NR

Conversion Internal > External WBS Element Number

         CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
           EXPORTING
             input = wa_export-pspnr
           IMPORTING
             output = wa_export-pspnr.

Conversion External > Internal WBS Element Number

CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'

Types : Begin of table_typ

post1

vbeln

ps_psp_nr

end of table_typ

data : itab type table of table_typ,

wa_itab like like of itab.

Loop at vbrp into wa_vbrp.

wa_itab-vbeln = wa_vbrp-vbeln

wa_itab-ps_psp_nr = wa_vbrp-ps_psp_nr

read table proj into wa_proj with key ps_psp_nr = wa_vbrp-ps_psp_nr.

wa_itab-post1 = wa_proj-post1.

append wa_itab to itab.

clear : wa_itab, wa_vbrp, wa_proj.

endloop.

Re: how to write select query ?

Former Member — Fri, 14 Jun 2013 06:26:34 GMT

Hi ankit,

thanks for ur reply.....its help me a lot...thanks again

sharmistha

Re: how to write select query ?

Former Member — Fri, 14 Jun 2013 10:46:21 GMT

This message was moderated.

Re: how to write select query ?

Former Member — Fri, 14 Jun 2013 10:59:57 GMT

hI,

PROBLEM solv.thanks to all

sharmistha

Re: how to write select query ?

Former Member — Fri, 14 Jun 2013 13:15:21 GMT

This message was moderated.

Re: how to write select query ?

former_member1995 — Sat, 15 Jun 2013 10:03:59 GMT

Hi sharmistha,

   TYPES : BEGIN OF lty_vbrp,
          vbeln       TYPE vbeln_vf,
          ps_psp_pnr TYPE ps_psp_pnr,
          pspid       TYPE ps_pspid,
        END OF lty_vbrp,

        BEGIN OF lty_proj,
          pspnr TYPE ps_intnr,
          post1 TYPE ps_post1,
        END OF lty_proj.

DATA : lt_vbrp      TYPE TABLE OF lty_vbrp,
       lt_vbrp_tmp TYPE TABLE OF lty_vbrp,
       lt_proj      TYPE TABLE OF lty_proj.

FIELD-SYMBOLS : <lfs_vbrp_tmp> TYPE lty_vbrp.

START-OF-SELECTION.

SELECT vbeln ps_psp_pnr FROM vbrp
                    INTO TABLE lt_vbrp.
IF sy-subrc = 0.

    lt_vbrp_tmp[] = lt_vbrp[].

    SORT lt_vbrp_tmp BY ps_psp_pnr.

    DELETE ADJACENT DUPLICATES FROM lt_vbrp_tmp COMPARING ps_psp_pnr.

    LOOP AT lt_vbrp_tmp ASSIGNING <lfs_vbrp_tmp>.

      CALL FUNCTION 'CONVERSION_EXIT_KONPD_OUTPUT'
        EXPORTING
          input = <lfs_vbrp_tmp>-ps_psp_pnr
        IMPORTING
          output = <lfs_vbrp_tmp>-pspid.

    ENDLOOP.

    SELECT pspnr post1 FROM proj INTO TABLE lt_proj
                                           FOR ALL ENTRIES IN lt_vbrp_tmp
                                                          WHERE pspid = lt_vbrp_tmp-pspid.

    IF sy-subrc IS NOT INITIAL.
      REFRESH lt_proj.
    ENDIF.

ENDIF.

BR,

Asit