F*---------------------------------------------------------------*
F* PROGRAM NAME
:
*
F* PROGRAM DESCRIPTION:
*
F*
*
F*
*
F* CREATED BY
:
*
F* CREATE DATE
:
*
F*---------------------------------------------------------------*
F* MODIFICATIONS:
*
F*---------------------------------------------------------------*
F* MODIFIED BY
:
*
F* MODIFY DATE
:
*
F* MODIFICATION
:
*
F*---------------------------------------------------------------*
F*
D*---------------------------------------------------------------*
D* Work Fields
D Stime
S
8
D Etime
S
8
D EtimeT
S
T
D Timeall
S
T
D
D SSeconds
S
2
D SMinutes
S
2
D SHours
S
2
D
D SSecondsN S
2 0
D SMinutesN S
2 0
D SHoursN
S
2 0
D TotSec
S
5 0
D*
C*---------------------------------------------------------------*
C* MAINLINE
*
C*---------------------------------------------------------------*
C*
C
EXSR $SR001
C
MOVE *ON
*INLR
C
RETURN
C
C*---------------------------------------------------------------*
C* Calculate duration between start and end time
*
C*---------------------------------------------------------------*
C $SR001
BEGSR
C
EVAL SSeconds = %SUBST(ETIMEP:5:2)
C
EVAL SMinutes = %SUBST(ETIMEP:3:2)
C
EVAL SHours = %SUBST(ETIMEP:1:2)
C
C
EVAL ETIME = SHours + '.' + SMinutes + '.' +
C
SSeconds
C
C
EVAL SSeconds = %SUBST(STIMEP:5:2)
C
EVAL SMinutes = %SUBST(STIMEP:3:2)
C
EVAL SHours = %SUBST(STIMEP:1:2)
C
MOVE SSeconds
SSecondsN
C
MOVE SMinutes
SMinutesN
C
MOVE SHours
SHoursN
C
C
Eval TotSec = SSecondsN +
C
(SMinutesN * 60) + (SHoursN * 60 * 60)
C
C
C
MOVE ETIME
ETIMET
C ETIMET
SUBDUR TotSec:*S TimeAll
C
ENDSR
C
C*****************************************************************
C* INITIAL SETUP
*
C*****************************************************************
C *INZSR
BEGSR
C *ENTRY
PLIST
C
PARM
STIMEP 6
C
PARM
ETIMEP 6
C
PARM
TimeAll
C
ENDSR
C