//
//  SAPTRANS.VDM                       CZ 30.10.2000
//                                        06.01.2003
//

// verarbeitet vorbereitete History-Liste der SAP-Transporte weiter

BS(2)
FSA("C:\TMP\SAPTRANS.out", OK)

#80=1

BS(1)
BoF

repeat(ALL){
  // AuftragsNummer
  RCB(20,CP,CP+10)
  RS(20, ";", APPEND)
  GC(14)
  if(Match("MAIN EXPORT")==0){
    //Exp:  System, Name, Datum, RC, Titel
    RS(20,"EXP;", APPEND)
    S('" :',ADVANCE)
    S("|!|W")     // auf Name
    #99=CP
    S("|W")       // eof Name
    RCB(20,#99,CP,APPEND)
    RS(20, ";", APPEND)
    S('"',ADVANCE)  // auf Datum
    RCB(20,CP,CP+8, APPEND)
    RS(20, ';', APPEND)
    Char(17)
    S('"',ADVANCE) // auf RC
    #99=CP
    S('"')
    RCB(20,#99,CP, APPEND)
    RS(20, ';"', APPEND)
    S("/* ", ADVANCE)
    #99=CP
    S("*/")
    
    RCB(11,#99,CP)        // Semicolons ersetzen durch Komma (Excel-Problem ...)
    BS(34)
    Buf_Empty(OK)
    RI(11)
    R(";",",",BEGIN+ALL+NOERR)
    BoF
    RCB(20,0,EoL_Pos, APPEND)
    RS(20, '";', APPEND)
  
    BS(1)
    Line(1)
  
  } else {
  
    //loop(Imp/REP/VERS)
    // RE(20)
    repeat(all){
      GC(14)
      if(Match("MAIN IMPORT")==0){
        //Imp:  loop(system) loop(mdt) loop(datum) loop(RC)
        RS(20,"IMP;", APPEND)
        S(':')
        #90=0    // Anz. Imports
        #99=CP
        repeat(ALL){
          if(Match(': "|A|D|D" ',ADVANCE)==0){
            #90++
          } else {
            break
          }
        }  
        RS(20,"#", APPEND)
        Num_Str(#90, 20, LEFT+NOCR+APPEND)
        RS(20,";", APPEND)

        GP(#99)  // zum Anfang zurueck
        RCB(11,CP,EoL_Pos)
        
        BS(33)
        Buf_Empty(OK)
        RI(11)

        BoF
        S(":",COUNT,#90+1)  IN(1)
        S(":",COUNT,#90+1)  IN(1)
        S(":",COUNT,#90+1)  IN(1)
        
        for(#91=1;#91<=#90;#91++){ 
          BoF
          S(":",COUNT,#91)
          S('"', ADVANCE)  // auf System
          RCB(20,CP,CP+3, APPEND)
          RS(20,";", APPEND)
          
          Line(1)
          S(":",COUNT,#91)
          S('|{ |D|D|D , as exported }')  // auf Mandant
          RCB(20,CP+1,CP+4, APPEND)
          RS(20,";", APPEND)
          
          Line(1)
          S(":",COUNT,#91)
          S('"',ADVANCE)  // auf Datum
          RCB(20,CP,CP+8, APPEND)
          RS(20,";", APPEND)

          Line(1)
          S(":",COUNT,#91)
          S('"', ADVANCE) // auf RC
          #99=CP
          S('"')
          RCB(20,#99,CP, APPEND)
          RS(20,";", APPEND)
        }
        
        for(#91=#91;#91<=7;#91++){ 
          RS(20,";;;;", APPEND)
        }
        
        BS(1)
        Line(1)
        
      } else {
        
        //VERS: loop(system) loop(datum) loop(RC)
        GC(14)
        if(Match("SET V FLAGS")==0){
        if(0){
          RS(20,"SET V FLAGS;", APPEND)
          S(':')
          #90=0    // Anz. Imports
          #99=CP
          repeat(ALL){
            if(Match(': "|A|D|D" ',ADVANCE)==0){
              #90++
            } else {
              break
            }
          }  
          RS(20,"#", APPEND)
          Num_Str(#90, 20, LEFT+NOCR+APPEND)
          RS(20,";", APPEND)

          GP(#99)  // zum Anfang zurueck
          RCB(11,CP,EoL_Pos)
        
          BS(33)
          Buf_Empty(OK)
          RI(11)

          BoF
          S(":",COUNT,#90+1)  IN(1)
          S(":",COUNT,#90+1)  IN(1)
        
          for(#91=1;#91<=#90;#91++){ 
            BoF
            S(":",COUNT,#91)
            S('"', ADVANCE)  // auf System
            RCB(20,CP,CP+3, APPEND)
            RS(20,";", APPEND)
          
            Line(1)
            S(":",COUNT,#91)
            S('"')  // auf Datum
            RCB(20,CP,CP+16, APPEND)
            RS(20,";", APPEND)

            Line(1)
            S(":",COUNT,#91)
            S('"', ADVANCE) // auf RC
            #99=CP
            S('"')
            RCB(20,#99,CP, APPEND)
            RS(20,";", APPEND)
          }
          }
          BS(1)
          Line(1)
        
        } else {
        
          //REP: loop(system) loop(datum) loop(RC)
          GC(14)
          if(Match("EXC REPORTS")==0){
          if(0){ 
            RS(20,"EXC REPORTS;", APPEND)
            S(':')
            #90=0    // Anz. Imports
            #99=CP
            repeat(ALL){
              if(Match(': "|A|D|D" ',ADVANCE)==0){
                #90++
              } else {
                break
              }
            }  
            RS(20,"#", APPEND)
            Num_Str(#90, 20, LEFT+NOCR+APPEND)
            RS(20,";", APPEND)

            GP(#99)  // zum Anfang zurueck
            RCB(11,CP,EoL_Pos)
        
            BS(33)
            Buf_Empty(OK)
            RI(11)

            BoF
            S(":",COUNT,#90+1)  IN(1)
            S(":",COUNT,#90+1)  IN(1)
        
            for(#91=1;#91<=#90;#91++){ 
              BoF
              S(":",COUNT,#91)
              S('"', ADVANCE)  // auf System
              RCB(20,CP,CP+3, APPEND)
              RS(20,";", APPEND)
          
              Line(1)
              S(":",COUNT,#91)
              S('"')  // auf Datum
              RCB(20,CP,CP+16, APPEND)
              RS(20,";", APPEND)

              Line(1)
              S(":",COUNT,#91)
              S('"', ADVANCE) // auf RC
              #99=CP
              S('"')
              RCB(20,#99,CP, APPEND)
              RS(20,";", APPEND)
            }
          }
            BS(1)
            Line(1)
          } else {
            BoL
            break
          }
        }
      }
    }
  }
  
  BS(2)
  RI(20)
  BS(1)
  
  //Line(1,NOERR+ERRBREAK)
  if(Match("#")==0){
    // next item
    RE(20)
    BS(2)
    // IT(".")
    IN(1)
    BS(1)
    Line(1,NOERR+ERRBREAK)
    if(At_EoF){
      break
    }
    #80++
  }else{ 
    if(At_EoF){
      break
    }
  }
}
BS(2)
BoF
FS()