Reports related query

Question

Hi experts,
i have doveloped one report based on SO No we want to extract prodection order details, plan order details,
but program can exicute sucessfully and i can get output only vbak table details but i cont get prod order details , i think i want to maintaine convertion_exit_alpha_input, for leed the zeeros but i dont have proper knowledge on that plea suggest me. how i want to maintaine the logic and where.
plea see the program bellow.
start-of-selection.
select
vbak~vbeln
vbak~kunnr
vbak~erdat
vbak~audat
vbak~aedat
vbak~vdatu
vbap~posnr
vbap~matnr
vbap~arktx
vbap~kwmeng
  into table i_vbak from vbak inner join vbap on vbakvbeln = vbapvbeln
  where vbakvbeln in s_vbeln and vbakaudat in s_audat and vbak~kunnr in s_kunnr.
if i_vbak is not initial.
select aufnr
       plnum
       kdauf
       psmng
       wemng
       matnr
       from afpo into table i_afpo
       for all entries in i_vbak
       where kdauf = i_vbak-vbeln and kdpos = i_vbak-posnr.
if sy-subrc = 0.
select plnum
       psttr
       gsmng
       from plaf into table i_plaf
       for all entries in i_afpo
       where plnum = i_afpo-plnum.
if i_afpo is not initial.
select aufnr
        astnr
        erdat
        from aufk into table i_aufk
        for all entries in i_afpo
        where aufnr = i_afpo-aufnr.
endif.
endif.
endif.
select vbeln augru
       from vbak into table i_augru
       where vbeln in s_vbeln and kunnr in s_kunnr and audat in s_audat
       and augru = 'z01' or augru = 'z02'.
select arbpl from plpod into table i_plpod where istru = afpo-matnr and arbpl+0(3) = 'ptg'.
*loop at i_vbak.&&&&
loop at i_vbak.
move-corresponding i_vbak to wa_final.
select single kunnr from vbak into wa_kunnr where vbeln = i_vbak-vbeln.
      if sy-subrc eq 0.
        select single name1 from kna1 into wa_final-kunnr where kunnr = i_vbak-kunnr.
      endif.
read table i_afpo into wa_afpo with key kdauf = i_vbak-vbeln.
read table i_afpo into wa_afpo with key kdpos = i_vbak-posnr.
if sy-subrc = 0.
move-corresponding wa_afpo to wa_final.
move wa_afpo-matnr to wa_final-matnr1.
endif.
read table i_plaf into wa_plaf with key plnum = wa_afpo-plnum.
if sy-subrc = 0.
move-corresponding wa_plaf to wa_final.
endif.
read table i_aufk into wa_aufk with key aufnr = wa_afpo-aufnr.
if sy-subrc = 0.
move wa_aufk-astnr to wa_final-astnr.
move wa_aufk-erdat to wa_final-erdat1.
endif.
read table i_augru with key vbeln = i_vbak-vbeln.
if sy-subrc = 0.
move i_augru-augru to wa_final-augru.
endif.
refresh : i_clobjdat.
clear   : i_clobjdat,
          wa_objek.
      wa_objek = wa_afpo-matnr.
      call function 'CLAF_CLASSIFICATION_OF_OBJECTS'
        exporting
         class                      = ' '
         classtext                  = 'X'
         classtype                  = '001'
         clint                      = 0
         features                   = 'X'
         language                   = sy-langu
         object                     = wa_objek
         objecttable                = ' '
         key_date                   = sy-datum
         initial_charact            = 'X'
       NO_VALUE_DESCRIPT          =
         change_service_clf         = 'X'
         inherited_char             = ' '
         change_number              = ' '
        tables
          t_class                   = i_sclass
          t_objectdata              = i_clobjdat
        I_SEL_CHARACTERISTIC       =
        T_NO_AUTH_CHARACT          =
       exceptions
         no_classification          = 1
         no_classtypes              = 2
         invalid_class_type         = 3
         others                     = 4.
read table i_clobjdat with key atnam = 'PAPER_BOARD_DIM1'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-ausp1 = i_clobjdat-ausp1.
        endif.
      endif.
read table i_clobjdat with key atnam = 'PAPER_BOARD_DIM2'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-ausp2 = i_clobjdat-ausp1.
        endif.
      endif.
read table i_clobjdat with key atnam = 'UPS1'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-ups1 = i_clobjdat-ausp1.
        endif.
      endif.
read table i_clobjdat with key atnam = 'MKTG_ACCT_MGR1'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-mgr1 = i_clobjdat-ausp1.
        endif.
      endif.
  if wa_final is not initial.
  append wa_final to i_final.
  endif.
endloop.
*form display_alv .
data: wrk_fld type slis_fieldcat_alv.
refresh wrk_fieldcat.
clear wrk_fieldcat.
perform display_alv.
*&      Form  display_alv
      text
-->  p1        text
<--  p2        text
form display_alv .
  data: wrk_fld type slis_fieldcat_alv.
refresh wrk_fieldcat.
clear wrk_fieldcat.
  perform pc_fld using:
        'AUDAT'       text-003     'I_FINAL'     ,
        'VBELN'       text-004     'I_FINAL'     ,
        'AEDAT'       text-005     'I_FINAL'     ,
        'ERDAT'       text-006     'I_FINAL'     ,
        'KUNNR'       text-007     'I_FINAL'     ,
        'POSNR'       text-008     'I_FINAL'     ,
        'VDATU'       text-009     'I_FINAL'     ,
        'PLANUM'       text-010     'I_FINAL'     ,
        'PSTTR'       text-011     'I_FINAL'     ,
        'GSMNG'       text-012     'I_FINAL'     ,
        'AUFNR'      text-013     'I_FINAL'     ,
        'ERDAT1'     text-014     'I_FINAL'     ,
        'MATNR'       text-015     'I_FINAL'     ,
        'ARKTX'       text-016     'I_FINAL'     ,
        'KWMNG'       text-017     'I_FINAL'     ,
        'PSMNG'       text-018     'I_FINAL'     ,
        'WEMNG'       text-019     'I_FINAL'     ,
        'ASTNR'       text-020     'I_FINAL'     ,
        'AUSP1'      text-021     'I_FINAL'     ,
        'AUSP2'      text-022     'I_FINAL'     ,
        'UPS1'      text-023     'I_FINAL'     ,
        'AUGRU'       text-024     'I_FINAL'     ,
        'ARBPL'       text-025     'I_FINAL'     ,
        'MRG1'       text-026     'I_FINAL'     .
Layout Information.
wrk_layout-zebra = 'X'.
  wrk_layout-colwidth_optimize = 'X'.
  wrk_layout-expand_fieldname = 'X'.
  wrk_repid = 'ZPPR_DESPACHE'.
Call ALV.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program = wrk_repid
      is_layout          = wrk_layout
      it_fieldcat        = wrk_fieldcat
     i_save             = 'A'
    tables
      t_outtab           = i_final[]
    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
*&      Form  pc_fld
      text
     -->P_1      text
     -->P_1      text
     -->P_0891   text
     -->P_TEXT_C01  text
     -->P_03     text
     -->P_0894   text
     -->P_IT_LEVEL  text
form pc_fld  using    f d t .
  data: wrk_fld type slis_fieldcat_alv.
IF f EQ 'NETWR'.
   wrk_fld-do_sum = 'X'.
ENDIF.
  wrk_fld-no_zero = 'X'.
  if f eq 'SRNO'.
    wrk_fld-key = 'X'.
  endif.
  wrk_fld-quantity = 'SHT'.
  move f to wrk_fld-fieldname.
  move d to : wrk_fld-seltext_l.
  move t to wrk_fld-tabname.
  append wrk_fld to wrk_fieldcat.
thanks & regards,
sri.

Answer 1

Hello,
You can use the command DESCRIBE FIELD to get the conversion routine and the WRITE command to change the field value.
Follow an example:
DATA: time    TYPE s_fltime,
      seconds TYPE i,
      msk     TYPE string.
DESCRIBE FIELD time EDIT MASK msk.
seconds = 333.
WRITE seconds USING EDIT MASK msk.
Regards,