FUNCTION trans_month, month

   CASE month OF  
      01: mn = 'JAN'
      02: mn = 'FEB'
      03: mn = 'MAR'
      04: mn = 'APR'
      05: mn = 'MAY'
      06: mn = 'JUN'
      07: mn = 'JUL'
      08: mn = 'AUG'
      09: mn = 'SEP'
      10: mn = 'OCT'
      11: mn = 'NOV'
      12: mn = 'DEC'
      ELSE:
   ENDCASE 

   return, mn
END