//
// DB12time.vdm                   Ch. Ziemski   17.01.2003
//
// Ermittelt die Laufzeiten der SAP-Backups
//
// Eingabedatei: DB12-Listing 
//


BoF
Line(8)

while(! At_EoF){
  Goto_Col(70)
  if(Match("0000") !=0){
    Line(1, NOERR)
    Continue
  }
  Goto_Col(59)      // end time
  #90=Num_Eval(SUPPRESS)             // hour
  Char(3)
  #91=Num_Eval(SUPPRESS)             // min

  Goto_Col(37)      // start time
  #80=Num_Eval(SUPPRESS)             // hour
  Char(3)
  #81=Num_Eval(SUPPRESS)             // min

  #71 = #91 - #81                    // diff min
  if(#71 < 0){
    #71 = #71 + 60
    #90--
  }

  #70 = #90 - #80                    // diff hour
  if(#70 < 0){
    #70 = #70 + 24
  }
  
  EoL
  IT(" ")
  if(#70 <= 9){ IT("0") }
  Num_Ins(#70, LEFT+NOCR)
  IT(":")
  if(#71 <= 9){ IT("0") }
  Num_Ins(#71, LEFT+NOCR)
  
  Line(1, NOERR)
}