{
{    The purpose of this procedure is to analyze the value of an ANSI
{ expiration date to determine whether it is prior to or equal to today's date.
{ If it is, the file is considered expired.
{
{       FSP$ANALYZE_FILE_EXPIRATION ( EXPIRATION_DATE, FILE_IS_EXPIRED, STATUS)
{
{
{
{    EXPIRATION_DATE: (input)  This parameter specifies a date whose syntax is
{          that defined by the American National Standard for Information
{          Systems (ANSI) X3.27-1987 standard File Structure and Labeling of
{          Magnetic Tapes for Information Interchange.
{
{    FILE_IS_EXPIRED: (output)  This parameter identifies whether or not the
{          specified expiration date is the same as, earlier than, or later
{          than today's date.
{
{          The value TRUE is returned, if the expiration date is prior to or
{          equal to today's date.
{
{          The value FALSE is returned, if the expiration date is after today's
{          date.
{
{    STATUS:  (output) This parameter specifies the status of the request.
{
