Date:         Fri, 4 Aug 1995 21:23:00 EDT
Reply-To:     The NOMAD2 Discussion List
Sender:       The NOMAD2 Discussion List
From:         "S. Harris"
Subject:      Re: Database does not exist

would an On FATAL solve the problem.  place an On Fatal prior to opening the
DB with your EXEC Link.  After the  DA is successfully opened.. then reset
the ON FATAL.

ON FATAL DO;
        SYS EXEC ICLINK ABC123;
       GOTO -START
END;

-START

DA FRED;

ON FATAL DO;
 ... ....

END;



>I am using NOMAD version 6.00 on VM/CMS.
>
>If I run a procedure containing the command:
>         DA FRED;
>
>and database FRED does not exist, my procedure crashes with the
>error message: DAT0079: Database FRED SIT2 not found.
>
>This is not very friendly to the user. I would like to do something
>like:
>        DA FRED OTW DO;
>                       SYS EXEC ICLINK ABC123;
>                       DA FRED;
>                    END;
>
>but this does not work since Nomad expects a semicolon after DA FRED;
>
>     I could call a REXX exec prior to the DA call, and check if the user
>is linked to the required disk, but I'd prefer not to do this.
>
>     Anyone got any ideas how to insert a trap to do what I want?
>
>Regards,
>Alan Long
>           Motorola, East Kilbride, Scotland
>           e-mail TICS28@WACCVM.CORP.MOT.COM
>
>
back to index