Добрый день.
Буду благодарен за любой совет.
мне нужно проверять 80 столбцов
Можно ли это сделать динамично?
Огромное спасибо
Code:
LOOP AT SOURCE_PACKAGE ASSIGNING <source_fields>.
IF <source_fields>-zzabrsn001 <> ''.
RESULT_FIELDS-/bic/zrvk_mita = <source_fields>-objid.
RESULT_FIELDS-/bic/zrvk_abre = <source_fields>-zzabrsn001.
APPEND RESULT_FIELDS TO RESULT_PACKAGE.
CLEAR RESULT_FIELDS.
ENDIF.
IF <source_fields>-zzabrsn002 <> ''.
RESULT_FIELDS-/bic/zrvk_mita = <source_fields>-objid.
RESULT_FIELDS-/bic/zrvk_abre = <source_fields>-zzabrsn002.
APPEND RESULT_FIELDS TO RESULT_PACKAGE.
CLEAR RESULT_FIELDS.
ENDIF.
IF <source_fields>-zzabrsn003 <> ''.
RESULT_FIELDS-/bic/zrvk_mita = <source_fields>-objid.
RESULT_FIELDS-/bic/zrvk_abre = <source_fields>-zzabrsn003.
APPEND RESULT_FIELDS TO RESULT_PACKAGE.
CLEAR RESULT_FIELDS.
ENDIF.
IF <source_fields>-zzabrsn004 <> ''.
RESULT_FIELDS-/bic/zrvk_mita = <source_fields>-objid.
RESULT_FIELDS-/bic/zrvk_abre = <source_fields>-zzabrsn004.
APPEND RESULT_FIELDS TO RESULT_PACKAGE.
CLEAR RESULT_FIELDS.
ENDIF.
...
...
IF <source_fields>-zzabrsn080 <> ''.
RESULT_FIELDS-/bic/zrvk_mita = <source_fields>-objid.
RESULT_FIELDS-/bic/zrvk_abre = <source_fields>-zzabrsn080.
APPEND RESULT_FIELDS TO RESULT_PACKAGE.
CLEAR RESULT_FIELDS.
ENDIF.
ENDLOOP.