|
Te mando un ejemplo espero que te sea de ayuda
REFRESH: t_edids , t_edidc .
SELECT * INTO TABLE t_edids
FROM edids
WHERE docnum = ori_docnum.
SELECT * INTO TABLE t_edidc
FROM edidc
FOR ALL ENTRIES IN t_edids
WHERE docnum = t_edids-docnum.
SORT t_edids DESCENDING .
LOOP AT t_edidc.
t_edidc-status = stat.
t_edidc-upddat = sy-datum.
t_edidc-updtim = sy-uzeit.
MODIFY t_edidc INDEX sy-tabix.
*statusfile write
CHECK sy-subrc = 0 .
READ TABLE t_edids WITH KEY docnum = t_edidc-docnum .
IF sy-subrc = 0 .
t_edids-logdat = sy-datum.
t_edids-logtim = sy-uzeit.
ADD 1 TO t_edids-countr.
t_edids-credat = sy-datum.
t_edids-cretim = sy-uzeit.
t_edids-status = stat.
t_edids-uname = sy-uname.
CASE stat .
WHEN '62' .
t_edids-statxt = 'HELLO STATUS!'.
WHEN '53' .
t_edids-statxt = 'BOOKED MANUALLY!'.
ENDCASE.
t_edids-statyp = 'I'.
t_edids-stamqu = 'SAP'.
t_edids-stamid = 'ZU'.
t_edids-stamno = '998'.
CLEAR: t_edids-stapa1,
t_edids-stapa2,
t_edids-stapa3,
t_edids-stapa4.
APPEND t_edids .
ENDIF.
*
ENDLOOP.
MODIFY edids FROM TABLE t_edids.
MODIFY edidc FROM TABLE t_edidc.
COMMIT WORK AND WAIT.
|