PARM FILE_NAME

# ACCDAYS.XEQ - DISPLAYS THE NUMBER OF DAYS SINCE FILE WAS ACCESSED.
# TIM ERICSON  07/14/1998

DAYS !HPYYYY![RHT("0"+"!HPMONTH",2)]![RHT("0"+"!HPDATE",2)]
SETVAR TODAY_DAYS, RETURN_DAYS

DAYS ![FINFO ( "!FILE_NAME", "INTACCESSED" )]
SETVAR ACCESSED_DAYS, RETURN_DAYS

ECHO
ECHO "!FILE_NAME" WAS ACCESSED ![TODAY_DAYS - ACCESSED_DAYS] DAYS AGO.
ECHO

DELETEVAR TODAY_DAYS, ACCESSED_DAYS, RETURN_DAYS