sele 6
SCAN FOR admtd=1
  tstcode=code
  tstmont=mont
  sele 19
  replace mont with tstmonth for shift=shcode and level=lecode ;
    and section=se and month=moname AND YEAR=DIS ;
    and code = tstcode
endscan