//
//  SAPTABFILL.VDM             C.Z. 02.03.1999
//                                  15.08.2000  f. 5.20 DI1
//
//
//  füllt die ZBACKUP.TAB mit den ermittelten neuen Werten
//
//  wird von SAPBACKTAB.CMD aufgerufen
//

Buf_Switch(File_Check("c:\tmp\backlog3.tmp") )
BoF
S("|D|D|D|D-|D|D-|D|D", ADVANCE)
Char(-2)
RCB(11,CP,CP+2)
RS(11,".", APPEND)
Char(-3)
RCB(11,CP,CP+2, APPEND)
RS(11,".", APPEND)

S(" C1|D_")
Char(1)
RCB(12,CP,CP+8)
BoF
Update

Buf_Switch(File_Check("c:\tmp\archlog3.tmp") )
BoF

S(" C1|D_")
Char(1)
RCB(13,CP,CP+8)

S("saparch\", ADVANCE)
RCB(14,CP+3,EOL_POS-2)
RS(14,"-",APPEND)

while(! At_EoF){
  S("saparch\", ADVANCE+NOERR+ERRBREAK)
}
RCB(14,CP+3,EOL_POS-2,APPEND)
BoF
Update


Buf_Switch(1)

RCB(15,BoL_Pos,EoL_Pos)


Key_Add("F12","[VISUAL EXIT] call(100)",OK)


do{
  #6=Dialog_Input_1(5,"'Insert the values?',
  '(press F12 to restart this dialog after editing)',
  '[&Yes]','[&Undo]','[&Clear Line]','[&Edit]','[&Save+Quit]','[&Quit]'
  ","",WORKAREA+CENTER+RIGHT+SUPPRESS,0,0)

  if(#6==1){
    BoL
    RI(11, OVERWRITE)
    Char(15)
    RI(12, OVERWRITE)
    Char(4)
    RI(13, OVERWRITE)
    Char(3)
    RI(14, OVERWRITE)
  } else {
    if(#6==2){
      BoL
      RI(15,OVERWRITE)
      BoL
    } else {
      if(#6==3){
        BoL
        Replace_Block("|!||"," ", CP, EoL_Pos, ALL)
        BoL
      }
    }
  }
  Update

} while(#6 < 4)

if(#6==6){
  Exit
}

if(#6==5){
  File_Save()
  Exit
}