Skip to Content
0
Apr 25, 2007 at 02:13 PM

start routine

17 Views

HI,

Please any body help me to understand this code

LOOP AT DATA_PACKAGE ASSIGNING <f>.

Read table itab_cc with key

FISCVARNT = <f>-FISCVARNT

FISCPER = <f>-ZZFISPER

RTOCC = <f>-/BIC/ZI_RTOCC

binary search.

If sy-subrc ne 0.

CLEAR AZRTOERR100. " Initialize Error ODS

MOVE-CORRESPONDING <f> TO AZRTOERR100.

CALL FUNCTION 'CHANGEDOCU_GUID_CREATE'

IMPORTING

EV_GUID = AZRTOERR100-BBP_DOGUID.

INSERT /BIC/AZRTOERR100 from AZRTOERR100.

DELETE DATA_PACKAGE.

CONTINUE.

ENDIF.

Thanks