How get subcode and paypoint?

[Former Member]

Hi,

Please help me for below logic.

IF RDSTDCover = 'ST' do the following:

If PA0001-BURKS='1009' go to Table

Z_LegCode to retrieve previous Company Code Text for PA0002-PERID and send

the corresponding Sub Code according to ST Translation Table 2.

Else if no value is found Lookup

PA0001-BURKS along with Report Number '100525'

and send Sub Code value from ST Translation Table 1

Else, send blanks.

IF RDSTDCover = 'LT' do the following:

If PA0001-BURKS='1009' go to Table

Z_LegCode to retrieve previous Company Code Text for

PA0002-PERID and send

the corresponding subcode according to LT Translation Table 2

Else if If no value is found Lookup

PA0001-BURKS along with Report Number '98340'

and send Payoint value from LT Translation Table 1

Else, send blanks.

IF RDSTDCover = 'LT' do the following:

If PA0001-BURKS='1009' go to Table

Z_LegCode to retrieve previous Company Code Text for

PA0002-PERID and send

the corresponding Paypoint according to LT Translation Table 2

Else if If no value is found Lookup

PA0001-BURKS along with Report Number '98340'

and send Payoint value from LT Translation Table 1

Else, send blanks.

I was created one translation table(ST Translation Table 1,ST Translation Table 2,LT Translation Table 1,LT Translation Table 2) for above all fileds ZGTBA_TL_SUBCODE.The table is having Report number & Company code text & Bukrs & Subcode and paypoint as a fields.

And I was written the code

if w_MetLife_detail-rdstdcover = u2018STu2019.
        
       if p0001-bukrs = u20181009u2019.
         read table t_ Z_LegCode into w_ Z_LegCode with key perid = p0002-perid.
          if sy-subrc eq 0.
            w_MetLife_detail-rdstdsubcde = ZGTBA_TL_SUBCODE-zsubcode.
          elseif
            select single HIST_BUKRS from ZGTBA_TL_SUBCODE
                                into   l_bukrs
                                where ZREPORTNO  = u2018100525u2019.
 
            w_MetLife_detail-rdstdsubcde = ZGTBA_TL_SUBCODE-zsubcode.
            else.
            w_MetLife_detail-rdstdsubcde  = ' '.
          endif.
        endif.
      endif.
      if w_MetLife_detail-rdstdcover =u2019STu2019.
        if p0001-bukrs = u20181009u2019.
          read table t_ Z_LegCode into w_ Z_LegCode with key perid = p0002-perid.
          if sy-subrc eq 0.
            w_MetLife_detail-rdstdsubpoint = ZGTBA_TL_SUBCODE-zpaypoint.
          elseif
            select single HIST_BUKRS from ZGTBA_TL_SUBCODE
                                into   l_bukrs
                                where ZREPORTNO  = u2018100525u2019.
 
            w_MetLife_detail-rdstdsubpoint = ZGTBA_TL_SUBCODE-zpaypoint.
           else.
           w_MetLife_detail-rdstdsubpoint  = ' '.
          endif.
        endif.
      endif.
    endif.
if w_MetLife_detail-rdstdcover = u2018LTu2019.
        if p0001-bukrs = u20181009u2019.
    .          read table t_ Z_LegCode into w_ Z_LegCode with key perid = p0002-perid.
          if sy-subrc eq 0.
            w_MetLife_detail-rdLtdsubcde = ZGTBA_TL_SUBCODE-zsubcode.
          elseif
            select single HIST_BUKRS from ZGTBA_TL_SUBCODE
                                into   l_bukrs
                                where ZREPORTNO  = u201898340u2019.
 
            w_MetLife_detail-rdLtdsubcde = ZGTBA_TL_SUBCODE-zsubcode.
          endif.
        endif.
      endif.
      if w_MetLife_detail-rdstdcover =u2019LTu2019.
        if p0001-bukrs = u20181009u2019.
          read table t_ Z_LegCode into w_ Z_LegCode with key perid = p0002-perid.
          if sy-subrc eq 0.
            w_MetLife_detail-rdstdsubpoint = ZGTBA_TL_SUBCODE-zpaypoint.
          elseif
            select single HIST_BUKRS from ZGTBA_TL_SUBCODE
                                into   l_bukrs
                                where ZREPORTNO  = u201898340u2019.
 
            w_MetLife_detail-rdLtdsubpoint = ZGTBA_TL_SUBCODE-zpaypoint.
          endif.
        endif.
      endif.
    endif.

Please suggest me is it correct code?or any changes are required in the code for above requirement?

Regards.

Sujan

[matt]

Did you run it? Did it do what you wanted it to do, what you expected. That's the only way to tell if it's right.

Please don't post specifications and expect code in return - some effort on your part is expected. Thread locked.