DEFINE VARIABLE itime AS INT NO-UNDO EXTENT 5 INITIAL {&sequence}.
DEFINE VAR i AS INTEGER NO-UNDO.
DEFINE VAR txt AS CHAR INIT "03-001-11-01 PLT3" NO-UNDO.
DEFINE VARIABLE idx AS INTEGER NO-UNDO.
DEFINE VARIABLE idx1 AS INTEGER NO-UNDO.
itime[{&sequence}] = ETIME.
DO i = 1 TO 1000000:
END.
itime[{&sequence}] = ETIME.
DO i = 1 TO 1000000:
ASSIGN
txt = LEFT-TRIM(txt, '0 ')
idx = INDEX(txt, '-')
txt = SUBSTITUTE('&1&2', SUBSTRING(txt, 1, idx), REPLACE(SUBSTRING(txt, idx, -1), '-', '')) NO-ERROR.
END.
itime[{&sequence}] = ETIME.
DO i = 1 TO 1000000:
ASSIGN
txt = LEFT-TRIM(txt, '0 ')
idx = INDEX(txt, '-')
txt = SUBSTRING(txt, 1, idx) + REPLACE(SUBSTRING(txt, idx, -1), '-', '') NO-ERROR.
END.
itime[{&sequence}] = ETIME.
MESSAGE
itime[2] - itime[1] SKIP
itime[3] - itime[2] SKIP
itime[4] - itime[3] SKIP
VIEW-AS ALERT-BOX.
Output for me is:
221
2880
2404