//
//  Konvertierung Benutzer und Medienstatistik fuer monatliche Zaehlung
//
proc SHIFTKEY
   
STRING statkey = ""
STRING newkey = ""

 statkey = substr(:100,1,2)

 if statkey = "BN" or statkey = "BD" or statkey = "MN" or statkey = "MD" then
   newkey = concat(substr(:100,1,12),"12")
   newkey = concat(newkey,substr(:100,13,99))
   :100 = newkey
 end if

end proc
