Date:         Tue, 8 Aug 1995 04:25:56 -0700
Reply-To:     The NOMAD2 Discussion List
Sender:       The NOMAD2 Discussion List
From:         Alvin Lee
Subject:      Re: Database does not exist
In-Reply-To:  "Mail dated 95/08/08 10:57:12 UT from (NOMAD2-L) The NOMAD2
              Discussion List"

Something like this may work!

************ test nomad ********************
&rc = 0;
sys state ctmcode sit2 * otw;/* OR filestat ctmcode sit2 * ;  */
if &rc ne 0 then
    sys exec getdisk rhg039 191 ****** (quiet otw;
trans;
call test1;
untrans;
************** test1 nomad ******************
da ctmcode ;
list by rso_region;



___Original Letter _______________________________________
I think this is a problem for all NOMAD users. But, instead of this, you
use trans; untrans; to quote the da statement as da is a directive in
NOMAD. And you must also trans and untrans all programs being called as
any item reference to the database will be un-resolved. Then use FILESTAT
to test the sit2 existence and link the disk if required before activate
the DA statment. There is no support in OTW in DA.



Regards,

Antony MAN
___Original Letter _______________________________________
Date: 04 Aug 1995 21:40:52 +0800
Sender:   The NOMAD2 Discussion List           (NOMAD2-L)
From:     Alan Long                            (TICS28)
To:       Multiple recipients of list NOMAD2-L (NOMAD2-L)
Reply-To: The NOMAD2 Discussion List           (NOMAD2-L)
Subject: Database does not exist

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
___End of Original Letter_________________________________
___End of Original Letter_________________________________
back to index