Multiple Values within Multi-Value Fields...

#21

Quote:

To check the file handle...

IF NOT(ASSIGNED(CM.FILE)) THEN OPEN 'CM' TO CM.FILE

Almost, but common variables are initialized to 0 when the common is
1st defined.
Try this instead:
IF NOT( FILEINFO( CM.FILE, 0)) THEN OPEN "CM" TO CM.FILE
or
IF NOT( FILEINFO( CM.FILE,FINFO$IS.FILEVAR )) THEN OPEN "CM" TO
CM.FILE
where
$INCLUDE UNIVERSE.INCLUDE FILEINFO.H
is inserted in the pgm header.

001 SUBROUTINE HELLO(outp,inp)
---> $INCLUDE UNIVERSE.INCLUDE FILEINFO.H <--------
002 COMMON /HELLO/ CM.FILE
003 IF NOT( FILEINFO( CM.FILE,FINFO$IS.FILEVAR )) THEN <-----
004 OPEN "CM" TO CM.FILE ELSE ...
005 END

#22

<douglas (AT) pickteam (DOT) com> wrote

Quote:

To check the file handle...

or even:
IF NOT(ASSIGNED (CM.FILE) ) THEN OPEN 'CM' TO CM.FILE

Won't work on UV (or Unidata) since they set Common variables to 0, rather
than unassigned as D3 does. Maybe there's an environment variable, but I
don't know of it.

Chandru Murthi

#23

cds wrote:

Quote:

Where do you assign a value to AT.TIME?

OOPS! Thanks, Mecki!

When you open the file:

001 SUBROUTINE HELLO(outp,inp)
002 COMMON /HELLO/ AT.TIME, CM.FILE
003 IF AT.TIME # @TIME THEN
004 OPEN "CM" TO CM.FILE ELSE STOP...
---> AT.TIME = @TIME <---------- insert this new line
005 END

If you don't like AT.TIME (that wil fail if subr runs precisely at
midnight, @TIME = 0, since common variables are automaticlly
initialized to 0), you can use other flags, e.g., INIT.FLAG 1 or 0.
I like usnig @PATH, which changes whenever you logto somewhere else.
You'd hate to use the other account's file.

You will still get a "Variable not assigned a value" error message.

#24

I still don't like that time check.

How about
IF NOT(ASSIGNED(OPEN.SW)) THEN OPEN.SW = 0
IF NOT(OPEN.SW) THEN
OPEN 'CM' TO CM.FILE THEN OPEN.SW = 1
END

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Multiple Values within Multi-Value Fields...

comp.databases.pick comp.databases.pick

Re: Multiple Values within Multi-Value Fields... - 07-22-2005 , 09:54 AM

Re: Multiple Values within Multi-Value Fields... - 07-22-2005 , 09:58 AM

Re: Multiple Values within Multi-Value Fields... - 07-23-2005 , 05:34 AM

Re: Multiple Values within Multi-Value Fields... - 07-25-2005 , 05:02 PM