//
// SAPTRANS2.VDM                               C.Z.  nn.11.2000
//                                                   06.12.2000
//
//  Weiterverarbeitung der Datei von SAPTRANS.VDM
//

//E40K902889;EXP;MEYER;20001120;0;"BC - YSMAKTIVITAETSGRUPPEN ";E40K902889;IMP;#3;K40;030;20001120;0;K40;830;20001120;0;K40;930;20001120;0;;;;;;;;;;;;;;;;;IMP;#1;P40;030;20001120;0;;;;;;;;;;;;;;;;;;;;;;;;;


BoF

repeat(ALL){
  
  #81=#82=#83=#84=0
  
  Search_Block("IMP;", CP, EoL_Pos, NOERR+ADVANCE)
  if(EM){
    EoL
    IT("     ;     ;     ;     ;")
    Line(1, NOERR+ERRBREAK)
    continue
  }
  
  Set_Marker(9,CP)
  #80=1

  while(!EM){
    char(1)
    #99=Num_Eval(SUPPRESS)
    S(";", ADVANCE)
    for(#98=1 ; #98<=#99 ; #98++){
      if(Match("K40;030;", ADVANCE)==0){ S(";", ADVANCE+COUNT,2) #81=1 #80=0}
      if(Match("K40;as ;", ADVANCE)==0){ S(";", ADVANCE+COUNT,2) #81=1 #80=0}
      if(Match("K40;830;", ADVANCE)==0){ S(";", ADVANCE+COUNT,2) #82=1 #80=0}
      if(Match("K40;930;", ADVANCE)==0){ S(";", ADVANCE+COUNT,2) #83=1 #80=0}
      if(Match("P40;030;", ADVANCE)==0){ S(";", ADVANCE+COUNT,2) #84=1 #80=0}
      if(#80){    // kein Treffer
        S(";", ADVANCE+COUNT,4)
      }
    }
    Search_Block("IMP;", CP, EoL_Pos, NOERR+ADVANCE+ERRBREAK)
  }

  GP(Marker(9))
  Del_Block(CP,EoL_Pos)
  
  if(#81){IT("K-030;")}else{IT("     ;")}
  if(#82){IT("K-830;")}else{IT("     ;")}
  if(#83){IT("K-930;")}else{IT("     ;")}
  if(#84){IT("P-030;")}else{IT("     ;")}
  Num_Ins(#84*8 + #81*4 + #82 + #83*2, LEFT+NOCR)
  
  Line(1, NOERR+ERRBREAK)
}