Variable in Textdatei

Code: Alles auswählen.

FORM PRUEFEN_RLZ
  using i_matnr like i_ve-matnr
        wa_hu type c.
  break joma.
data: lv_rlz type ALPFDBNUM,
      lv_pkzrlz type EXDTF,
      l_refdate type ALDATE,
      lv_answer type char10,
      ls_vepo like vepo,
      lt_nums TYPE TABLE OF BAPI1003_ALLOC_VALUES_NUM,
      lt_char     TYPE TABLE OF BAPI1003_ALLOC_VALUES_CHAR,
      lt_curr     TYPE TABLE OF BAPI1003_ALLOC_VALUES_CURR,
      lt_return   TYPE TABLE OF bapiret2,
      ls_nums type BAPI1003_ALLOC_VALUES_NUM,
      ls_char type BAPI1003_ALLOC_VALUES_CHAR,
      lv_matnr type BAPI1003_KEY-OBJECT,
      lv_fname type c value 'zscan_wa03' LENGTH 10,
      lv_text1 type c,
      lv_HU type c.

  lv_matnr = i_matnr.
  SELECT single * FROM vepo
  Into ls_vepo
  Where venum = i_ve-venum
  And vepos = i_ve-vepos.


CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
  EXPORTING
    objectkey              = lv_matnr
    objecttable            = 'MARA'
    classnum               = 'RESTLAUFZEIT_VERBR'
    classtype              = '001'
   KEYDATE                = SY-DATUM
*   UNVALUATED_CHARS       = ' '
   LANGUAGE               = SY-LANGU
* IMPORTING
*   STATUS                 =
*   STANDARDCLASS          =
  TABLES
    allocvaluesnum         = lt_nums
    allocvalueschar        = lt_char
    allocvaluescurr        = lt_curr
    RETURN                 = lt_return
          .


loop at lt_nums into ls_nums.
lv_rlz = ls_nums-value_from.
*ls_nums-VALUE_FROM
endloop.


loop at lt_char into ls_char.
  lv_pkzrlz = ls_char-VALUE_NEUTRAL.

endloop.
  CALL FUNCTION 'ZBC_CALC_DATE'
  EXPORTING
    in_rectype          = lv_pkzrlz
    in_nbr_dwxmqy       = lv_rlz
    in_date             = sy-datum
 IMPORTING
   OUT_DATE            = l_refdate
 EXCEPTIONS
   OTHER_ERROR         = 1
   OTHERS              = 2
          .
  IF ls_vepo-vfdat < l_refdate.
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
      EXPORTING
*       DEFAULTOPTION        = 'Y'
        TEXTLINE1            = 'Restlaufzeit wurde unterschritten wollen sie denoch fortfahren?'
*       TEXTLINE2            = ' '
        TITEL                = 'Restlaufzeit unterschritten'
*       START_COLUMN         = 25
*       START_ROW            = 6
*       CANCEL_DISPLAY       = 'X'
     IMPORTING
       ANSWER               = lv_answer
              .
  endif.
  lv_HU = vekp-exidv .
  CONCATENATE sy-uname lv_HU INTO lv_text1.
   IF lv_answer = 'N'.
     return.
   elseif lv_answer = 'J'.
* > -HUKR 25.02.2014 14:33:56
*   CALL FUNCTION 'LIST_TO_TXT'
*    EXPORTING
*      LIST_INDEX               = -1
*     TABLES
*       LISTTXT                  = lv_text1
**      LISTOBJECT               =
**    EXCEPTIONS
**      EMPTY_LIST               = 1
**      LIST_INDEX_INVALID       = 2
**      OTHERS                   = 3
*             .
* < -HUKR 25.02.2014 14:34:09

   IF SY-SUBRC <> 0.
* Implement suitable error handling here
   ENDIF.

   else.

  ENDIF.
ENDFORM