NAME: fictype
PURPOSE: gives fictype ('DA' 'MO' 'AN' 'SE' 'EX') corresponding
to the given date in vairmer format ( yymmdd )
CATEGORY:
CALLING SEQUENCE: fictype = fictype(930124)
INPUTS:
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
common.pro
SIDE EFFECTS:
RESTRICTIONS:
EXAMPLE: