function tlsnow,segcode

   ; Read the system time as an array [YYYY,MO,DD,HH,MM,SS]
   timarr = bin_date(systime())

   ; Fill in an appropriate TIME/LABEL structure
   tl_struct = get_tl_struct()
   tl_struct.nrc = 0          ; Will be filled in by Archive
   tl_struct.nro = 0          ; Will be filled in by Archive
   tl_struct.scancode = 0     ; Will be filled in by Archive
   tl_struct.segmentcode = segcode ; Segment code
   tl_struct.nrs = 1
   tl_struct.year = timarr(0)
   tl_struct.day = dayofyr(timarr(0),timarr(1),timarr(2))
   tl_struct.msec = (timarr(3)*3600.+timarr(4)*60.+timarr(5))*1000.D

return,tl_struct
en