Populating deep structure
*--Project Checklist
LOOP AT <lfs_projects>-checklists INTO ls_checklist.
LOOP AT ls_checklist-checklistitems INTO ls_checklist_itm.
LOOP AT ls_checklist_itm-tasks ASSIGNING <lfs_tasks>.
PERFORM convert_unit CHANGING <lfs_tasks>-taskdata-duration_unit.
LOOP AT <lfs_tasks>-relationships ASSIGNING <lfs_rel>.
PERFORM convert_unit CHANGING <lfs_rel>-lag_unit.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
DATA ls_checklist TYPE dpr_ts_xml_checklist_type.
DATA ls_checklist_itm TYPE dpr_ts_xml_checklistitem_type.
DATA ls_checklist TYPE dpr_ts_xml_checklist_type.
DATA ls_checklist_itm TYPE dpr_ts_xml_checklistitem_type.
FIELD-SYMBOLS <lfs_tasks> TYPE dpr_ts_xml_task_type.
LOOP AT <lfs_projects>-checklists INTO ls_checklist.
LOOP AT ls_checklist-checklistitems INTO ls_checklist_itm.
LOOP AT ls_checklist_itm-tasks ASSIGNING <lfs_tasks>.
PERFORM convert_unit CHANGING <lfs_tasks>-taskdata-duration_unit.
LOOP AT <lfs_tasks>-relationships ASSIGNING <lfs_rel>.
PERFORM convert_unit CHANGING <lfs_rel>-lag_unit.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
DATA ls_checklist TYPE dpr_ts_xml_checklist_type.
DATA ls_checklist_itm TYPE dpr_ts_xml_checklistitem_type.
DATA ls_checklist TYPE dpr_ts_xml_checklist_type.
DATA ls_checklist_itm TYPE dpr_ts_xml_checklistitem_type.
FIELD-SYMBOLS <lfs_tasks> TYPE dpr_ts_xml_task_type.
Comments
Post a Comment