PARAMETERS psProgName, psStatus, pdStartDate, psStartTime IF TYPE('psProgName') # 'C' RETURN ENDIF IF TYPE('psStatus') # 'C' RETURN ENDIF IF TYPE('pdStartDate') # 'D' RETURN ENDIF IF TYPE('psStartTime') # 'C' RETURN ENDIF LOCAL lcExclusive STORE SET('EXCLUSIVE') TO lcExclusive SET EXCLUSIVE OFF IF NOT USED('auditbat') USE \\rsvpsource\wrktest\programs\auditbat IN 0 ALIAS auditbat SHARED ENDIF SELECT auditbat IF UPPER(ALLTRIM(psStatus)) = 'START' INSERT INTO auditbat (progname, startdate, starttime) ; VALUES (psProgName, pdStartDate, psStartTime) ELSE IF UPPER(ALLTRIM(psStatus)) = 'END' UPDATE auditbat SET EndDate = DATE(), EndTime = TIME() ; WHERE Progname = psProgName AND StartDate = pdStartDate AND StartTime = psStartTime ENDIF ENDIF SELECT auditbat USE SET EXCLUSIVE &lcExclusive RETURN*********************************************************************************
INSERT INTO auditbat (progname, startdate, starttime) ; VALUES (psProgName, pdStartDate, psStartTime) ELSE*********************************************************************************