Ausgabe ist Leer ?1

Code: Alles auswählen.

TABLES: npat.

DATA: lv_vname TYPE npat-vname,
      lv_nname TYPE npat-nname,
      lv_gschl TYPE npat-gschl,
      lv_gbdat TYPE npat-gbdat,
      lv_anr(4)   TYPE c,
      lv_alter(2) TYPE c,
      lv_ausgabe  TYPE string,
      ls_npat TYPE npat,
      lv_string TYPE string.
      lv_alter = sy-datum+0(4) - lv_gbdat+0(4).


PARAMETERS: p_patnr TYPE npat-patnr.

PARAMETERS: s1 RADIOBUTTON GROUP stil,
            s2 RADIOBUTTON GROUP stil,
            s3 RADIOBUTTON GROUP stil,
            s4 RADIOBUTTON GROUP stil,
            s5 RADIOBUTTON GROUP stil.


IF lv_gschl eq 'M'.
  lv_anr = 'Herr'.
ELSE.
  lv_anr = 'Frau'.
ENDIF.

IF     s1 EQ 'X'.
CONCATENATE lv_anr lv_vname lv_nname into lv_ausgabe.
ELSEIF s2 EQ 'X'.
CONCATENATE lv_anr lv_nname ',' lv_vname into lv_ausgabe.
ELSEIF s3 EQ 'X'.
CONCATENATE lv_nname ',' lv_vname ',' lv_gschl into lv_ausgabe.

   if lv_gschl eq 'M'.
     CONCATENATE lv_string'Männlich' INTO lv_gschl.
    else.
    CONCATENATE lv_string'Weiblich' INTO lv_gschl.
  endif.

ELSEIF s4 EQ 'X'.
CONCATENATE lv_nname ',' lv_vname '(' lv_gschl ',' lv_alter ')' into lv_ausgabe.

ELSEIF s5 EQ 'X'.
CONCATENATE lv_vname ',' lv_vname '(' lv_gschl ',' lv_alter ')' into lv_ausgabe.

ENDIF.

CALL FUNCTION 'ISH_READ_NPAT'
      EXPORTING
        ss_patnr              = p_patnr
      IMPORTING
        ss_npat                = ls_npat


      EXCEPTIONS
        not_found             = 1
        no_authority          = 2
        no_einri              = 3
        no_treatment_contract = 4
        OTHERS                = 5.


write lv_ausgabe.