01 date-time1
 02 date1
	03 yy pic 9(4)
	03 mm pic 99
	03 dd pic 99
 02 time1
    03 hh pic 99
    03 mi pic 99
    02 ss pic 99
		
01 date-time2
 02 date2
	03 yy pic 9(4)
	03 mm pic 99
	03 dd pic 99
 02 time2
    03 hh pic 99
    03 mi pic 99
    02 ss pic 99
		
01 days pic 9(7)

COMPUTE days = FUNCTION DATE-OF-INTEGER (date1) - 	   FUNCTION DATE-OF-INTEGER (date2) 

compute yrs = yy of date1 - yy of date2



compute hr =hr2-hr1
compute min = min2-min1
if min < 0 
     {
 	compute min =(60- min1) + min2
	compute hr = hr - 1
     }
compute sec =sec2-sec1
if sec < 0 
	{
        compute sec =(60- sec1) + sec2
	if min > 0  compute min = min - 1
             else compute hr = hr - 1
        	          
	}

compute msec =msec2-msec1
if msec < 0 
	{
 	compute msec =(999999- msec1) + msec2
        if sec > 0 compute sec = sec - 1
	   else  
               if min > 0 compute min = min - 1 
	       else compute hr = hr - 1	 	
	}

3:07:48:000017   4:07:46:000015