Publiée le February 26, 2010 16:13

| nombre de lecture : 5455
Si vous avez besoin de faire une pause dans votre programme ABAP j'ai deux solutions
Des pauses en secondes :
FORM MYDELAYINSECOND
USING nbofseconds type I.
DATA: TIM LIKE SY-UZEIT.
TIM = SY-UZEIT.
TIM = TIM + nbofseconds.
DO.
GET TIME.
IF TIM < SY-UZEIT.
EXIT.
ENDIF.
ENDDO.
ENFORM.
Des pauses en micro secondes :
FORM DELAYINMICROSECOND using mydelay type INT4.
DATA: myTime TYPE INT4, mycurrenttime TYPE INT4.
GET RUN TIME FIELD mytime.
mytime = mytime + mydelay.
DO. GET RUN TIME FIELD mycurrenttime.
IF myTime < mycurrenttime.
EXIT.
ENDIF.
ENDDO.
ENDFORM.