Code optimierung

Code: Alles auswählen.

DATA: begin of iNBEW occurs 0,
FALNR       like  N1ANF-PATNR,
BWIDT       like  NBEW-BWIDT,
 end of iNBEW.

DATA: begin of iNLEM occurs 0,
ANFID       like  NLEM-ANFID,
IBGDT       like  NLEM-IBGDT,
end of iNLEM.

DATA: begin of iN1ANF occurs 0,                "Ausgabe
FALNR       like  N1ANF-FALNR,
PATNR       like  N1ANF-PATNR,
ANFID       like  N1ANF-ANFID,
IBGDT       like  NLEM-IBGDT,
ERDAT       like  N1ANF-ERDAT,
TAGE        TYPE  i,
end of iN1ANF.

clear iN1ANF.      refresh iN1ANF.
clear iNLEM.       refresh iNLEM.

SELECT FALNR BWIDT  FROM NBEW into corresponding fields of table iNBEW
 WHERE  FALNR  BETWEEN S_FALLNR-LOW AND S_FALLNR-HIGH
 AND    BWART    = 'OP'
 AND    STORN    = ' '.

SELECT ANFID IBGDT FROM NLEM CLIENT SPECIFIED INTO CORRESPONDING FIELDS OF TABLE iNLEM for all entries in iNBEW
WHERE FALNR = iNBEW-FALNR
AND   IBGDT = iNBEW-BWIDT
AND   ERBOE = 'OP'
AND   OPNR  = ' '
AND   STOID = ' '.

 SELECT FALNR PATNR ERDAT ANFID  FROM N1ANF CLIENT SPECIFIED into corresponding fields of table iN1ANF for all entries in iNLEM
 WHERE  ANFID = iNLEM-ANFID.

LOOP AT iNLEM.
LOOP AT iN1ANF WHERE ANFID = iNLEM-ANFID.
MOVE-CORRESPONDING iNLEM TO iN1ANF.
MODIFY iN1ANF.
ENDLOOP.
ENDLOOP.

LOOP AT iN1ANF.
iN1ANF-TAGE =  iN1ANF-IBGDT - iN1ANF-ERDAT.
MODIFY iN1ANF.

DELETE ADJACENT DUPLICATES FROM iN1ANF
COMPARING ANFID.
ENDLOOP.

Code: Alles auswählen.

LOOP AT itab ASSIGNING <wa>

Code: Alles auswählen.

loop at itab. Modify...

Code: Alles auswählen.

SELECT INTO TABLE

Code: Alles auswählen.

SELECT INTO CORRESPONDING FIELDS OF TABLE