report zworkflw line-size 255.
*---- Selection Screen -------------------------------------------------
parameters: vbeln like vbuk-vbeln memory id aun obligatory,
            posnr like vbap-posnr memory id pid.
*---- Variables --------------------------------------------------------
data: w_comwa like vbco6,
      it_doc like vbfa  occurs 0 with header line,
      it_txt like dd07v occurs 0 with header line,
      begin of it_type  occurs 0,
        vbtyp like vbuk-vbtyp,
        text  like dd07v-ddtext,
      end   of it_type.
*-----------------------------------------------------------------------
start-of-selection.
  w_comwa-mandt = sy-mandt.
  w_comwa-vbeln = vbeln.
  w_comwa-posnr = posnr.
  call function 'RV_ORDER_FLOW_INFORMATION'
       exporting
            comwa         = w_comwa
       tables
            vbfa_tab      = it_doc
       exceptions
            no_vbfa       = 1
            no_vbuk_found = 2
            others        = 3.
  case sy-subrc.
    when 1. write: / 'No VBFA found.'.
    when 2. write: / 'No VBUK found. Check selection criteria...'.
    when 3. write: / 'Unknown Error!'.
    when 0. perform write_docs.
  endcase.
*-----------------------------------------------------------------------
form write_docs.
  call function 'GET_DOMAIN_VALUES'
       exporting
            domname         = 'VBTYP'
       tables
            values_tab      = it_txt
       exceptions
            no_values_found = 1
            others          = 2.
  case sy-subrc.
    when 1. write: / 'Warning: No texts found for Sales Docs types!'.
    when 2. write: / 'Warning: Cannot retrieve SD types descriptions!'.
    when 0. perform sort_texts.
  endcase.

  write: / 'Order Flow Information:'.
  loop at it_doc.
    write: / it_doc-stufe,
             it_doc-vbelv,
             it_doc-posnv.
    perform write_type using it_doc-vbtyp_v.
    write:   it_doc-vbeln,
             it_doc-posnn.
    perform write_type using it_doc-vbtyp_n.
    write:   it_doc-matnr,
             it_doc-rfmng unit it_doc-meins,
             it_doc-meins.
  endloop.
endform.
*-----------------------------------------------------------------------
form sort_texts.
  loop at it_txt.
    it_type-vbtyp = it_txt-domvalue_l.
    it_type-text  = it_txt-ddtext.
    append it_type.
    clear it_type.
  endloop.
  sort it_type.
endform.
*-----------------------------------------------------------------------
form write_type using value(p_vbtyp) like vbuk-vbtyp.
  data w_txt(30) type c.
  read table it_type with key vbtyp = p_vbtyp binary search.
  case sy-subrc.
    when 0.      w_txt = it_type-text.
    when others. w_txt = '?'.
  endcase.
  write w_txt intensified off.
endform.
*-----------------------------------------------------------------------