//
//  SAP-12USER.VDM                 C.Z. 13.11.2001
//                                      28.02.2003
//
//  zerteilt eine solche User-Liste:
//
//  -------------------------------------------------
//  |  Benutzername|Gruppe      |Vollständiger Name
//  -------------------------------------------------
//  |  ACHILLES    |            |
//  |  ALBRECHT    |            |Frank ALBRECHT
//
//
//  in 12er-Gruppen (nur Name) und übergibt sie an das ClipBoard.
//  Dieses kann dann in R/3 SU10 eingefügt werden.
//

while(! AT_EoF){
  #14 = Cur_Col
  Block_Begin(CLEAR)
  Block_Mode(COLUMN)
  Block_Begin(Cur_Pos)
  Line(11, NOERR)        // 12 Zeilen sammeln
  if(At_EoF && At_BoL){
    Line(-1)
  }
  Goto_Col(#14)
  S("||", NOERR)         // Ende-Zeichen der Spalte (evtl. modifizieren)
  Char(-1)
  Block_End(Cur_Pos)
  Clip_Copy_Block(Block_Begin, Block_End, COLUMN)

  Line(1, NOERR)
  Goto_Col(#14)

  Update
  
  #12=Dialog_Input_1(11,"`Action required`, 
  `12 users copied to clipboard`,
  `Please switch to SAP and insert clipboard. Then come back ...`,
  `[&Next]`,`[&Cancel]`",SET+APP+CENTER,0,0)

  if(#12 != 1) { break }
 
}