Datenauslesen aus einer Struktur

Code: Alles auswählen.

      DATA:   drgs_read      type ish_true_false value '0',
                   act_ndrgtab    type table of rndrg  with header line.


      DATA: BEGIN OF DRG OCCURS 0,
                 CLIENT             LIKE  rndrg-CLIENT,
                 INSTITUTION        LIKE  rndrg-INSTITUTION,
                 PATCASEID          LIKE  rndrg-PATCASEID,
                 DRG_SEQNO          LIKE  rndrg-DRG_SEQNO,
                etc.
                END OF DRG.


LOOP AT OUTTAB01.

* get actual DRG datas ------------------------------------------------
  call function 'ISH_DRG_SC_READ'
    exporting
      ss_institution = institution
      ss_casenumber  = OUTTAB01-N0_FALLNR
*      ss_casenumber  = case_number
    importing
      ss_read        = drgs_read
    tables
      ss_drg_tab     = act_ndrgtab
    exceptions
      not_found      = 1
      no_institution = 2
      others         = 3.



  DRG-CLIENT           = act_ndrgtab-CLIENT.
  DRG-INSTITUTION      = act_ndrgtab-INSTITUTION.
  DRG-PATCASEID        = act_ndrgtab-PATCASEID.
  DRG-DRG_SEQNO        = act_ndrgtab-DRG_SEQNO.
  etc.
  
  APPEND DRG.

ENDLOOP.

Code: Alles auswählen.

  DRG-CLIENT                = act_ndrgtab-CLIENT.
  DRG-INSTITUTION      = act_ndrgtab-INSTITUTION.