****************************************************************************
RLXYRD_SCHDL_CHART_IN_23
098)LOOP AT lt_lyloc INTO ls_   lyloc.
....  MOVE-CORRESPONDING ls_lyloc TO ls_lyloc_schdl.
....*Set In/Out field
....  set_in_out ls_lyloc ls_lyloc_schdl.
....  APPEND ls_lyloc_schdl TO et_lyloc.
103)ENDLOOP.
****************************************************************************
RLXYRD_SCHDL_CHART_IN_23
033)DATA ls_lyloc_schdl TYPE lyard_schdl_lyloc.
****************************************************************************
LYARD (Группа типов)
051)TYPES: BEGIN OF lyard_schdl_lyloc.
....        INCLUDE STRUCTURE lyloc.
....TYPES: inout TYPE lxyrd_inout,
....       lcpty TYPE lxyrd_lcpty,
....* grind TYPE lxyrd_grind,
....* giind TYPE lxyrd_giind,
057)END OF lyard_schdl_lyloc.
*****************************************************************************
DICTIONARY
....DATA: BEGIN OF lyloc,
....        lyard     TYPE lxyrd_yard,
....        ylccl     TYPE lxyrd_ylccl,
....        yloct     TYPE lxyrd_yloct,
....        plcty     TYPE lxyrd_plcty,
....        blind     TYPE lxyrd_block,
....        blrsn     TYPE lxyrd_rsncd,
....        yrgln     TYPE lxyrd_yrgln,
....        glcgr     TYPE lxyrd_glcgr,
....      END OF lyloc.
***************************************************************************
RLXYRD_SCHDL_CHART_IN_23
025)DATA ls_lyloc TYPE lyloc_wa.
****************************************************************************
DICTIONARY
....DATA: BEGIN OF lyloc_wa,
....        lyard     TYPE lxyrd_yard,
....        ylccl     TYPE lxyrd_ylccl,
....        yloct     TYPE lxyrd_yloct,
....        plcty     TYPE lxyrd_plcty,
....        blind     TYPE lxyrd_block,
....        blrsn     TYPE lxyrd_rsncd,
....        yrgln     TYPE lxyrd_yrgln,
....        glcgr     TYPE lxyrd_glcgr,
....        grind     TYPE lxyrd_grind,
....        giind     TYPE lxyrd_giind,
....        yloct_rel TYPE lxyrd_yloct,
....      END OF lyloc_wa.
****************************************************************************
RLXYRD_SCHDL_CHART_IN_23
021)et_lyloc TYPE lyard_schdl_lyloc_t
****************************************************************************
LYARD (Группа типов)
058)TYPES: lyard_schdl_lyloc_t TYPE TABLE OF lyard_schdl_lyloc.
****************************************************************************
RLXYRD_SCHDL_CHART_IN_MACRO
421)DEFINE set_in_out.
....* &1 - structure containing GRIND, GIIND
....* &2 - structure containing INOUT
....  if &1-grind = lhmgc_x and &1-giind = lhmgc_x.
....    &2-inout = lyrgc_sc-inout_both.
....  elseif &1-grind = lhmgc_x.
....    &2-inout = lyrgc_sc-inout_in.
....  elseif &1-giind = lhmgc_x.
....    &2-inout = lyrgc_sc-inout_out.
....  endif.
431)END-OF-DEFINITION.
****************************************************************************