// // SAPUSRPROFILE.VDM C.Z. 16.08.2000 // // sortiert die Profile- und Aktivitätengruppenliste von SAP // BoF Del_Line(5) EoF Line(-1) C(1) Del_Block(0,CP,COLUMN) R("|<----|y|n","",BEGIN+ALL+NOERR) BoF while(! At_EoF){ BB(CLEAR) BB(CP) S("|") BE(CP) RCB(11,BB,BE) Line(1) while(CC==32){ IT(@11,OverWrite) Line(1) } } BB(CLEAR) BoF S("|",ADVANCE) #10=Cur_Col #11=CP EoF Line(-1) EoL #12=Cur_Col #13=CP BoF Goto_Col(#11) Sort(#11,#13,KEYCOLS,#10,#12) // Der sort funktioniert nicht !!??! //Also so: //Goto_Line(6) //S("|",ADVANCE) //#11=CP // //EoF //Line(-1) //EoL //#12=CP // //RCB(11,#11,#12,COLUMN+DELETE) //GL(6) //Reg_Ins(11, COLUMN)