
134 IBM Tivoli Web Access for Information Management
/* Get rid of slashes in internal date */
date1 = Translate('01235689',date1,'0123456789')
date2 = Translate('01235689',date2,'0123456789')
If date2 < date1 | (date2 = date1 & S0C71 < S0C6A) then
Exit 200 'HTML BLQ0P104.html Date/time completed must be ' ,
'greater than date/time occurred: 'S0C3D S0C6A'.'
days = date('b',date2,'s') - date('b',date1,'s')
minutes1 = hhmm2min(S0C6A) /* Convert time occurred to mins */
minutes2 = hhmm2min(S0C71) /* Convert time completed to mins */
total_minutes = minutes2 - minutes1
/* Fix minutes to be positive if negative...borrow fro