I'm having a problem with creating an extraction file in Unidata 6.0.9 on HPUX
11.11i. It's not writting to the correct attribute as defined by the dictionary
item named in field.
Simple XML Doc(test.xml):
root
node1Node1/node1
node2Node2/node2
node3Node3/node3
/root
-
Extraction
I noticed that too on Unidata 6.0.3 on Solaris 2.7. Also encountered a
problem using the XML extraction in a subroutine called from uniobjects,
thing would just peg the CPU it was on and never come back; run the same
subroutine called from a program at ECL it would work fine. As I was on a
To All:
I am writing an interesting program. One that finds where a file is empty of
records or not. I used the EXECUTE command with the COUNT command to get the
number of records in a file. If its 0 then the file is empty.
But is there a better way as the execution command causes problem
Frank,
I wouldn't do it that way!
If the file actually has a gazillion records in it, COUNT could take a
l-o-n-g time! ;-)
Another way could be to do
EXECUTE 'SELECT file name SAMPLE 1'.
IF @SELECTED EQ 0 THEN
the file is indeed empty
END ELSE
I am writing an interesting program. One that finds where
a
file is empty of records or not. I used the EXECUTE
command
with the COUNT command to get the number of records in a
file. If its 0 then the file is empty.
But is there a better way as the execution command causes
problem in
I don't know if Unidata has it but in a Universe basic program if you
open the file then do a BASIC select, (not a TCL SELECT) you can then
use SELECTINFO(0,1) to report true/false if a select list is active in
Select List 0. SELECTINFO(0,3) reports the count of the records
selected. You can
I'd recommend the same, but I'd use READNEXT instead of @SELECTED so
there isn't a list floating around waiting to be used.
EXECUTE 'SELECT filename SAMPLE 1'
READNEXT DUMMY THEN EMPTY = 0 ELSE EMPTY = 1
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
I would do this:
SEL.8 = 8
OPEN '', 'TEST.FILE' TO OPEN.FILE THEN
SELECT OPEN.FILE TO SEL.8
READNEXT ID FROM SEL.8 THEN
HAVE.RECORDS = 1
END ELSE
HAVE.RECORDS = 0
END
CLEARSELECT SEL.8
END
This should work on UV and UD.
Dick Kryka
Director of Applications
CCCS of
Quickest way I can think of would be:
PRINT 'Enter Filename : ':;INPUT FILENAME
PERFORM 'SELECT ':FILENAME:' SAMPLE 1'
SELECTED = @SYSTEM.RETURN.CODE
IF SELECTED THEN
PRINT FILENAME:' contains records'
END ELSE
PRINT FILENAME:' is empty
END
PERFORM CLEARSELECT
STOP
-Original
Hi Everyone,
I'm still battling with the 'Available memory exceeded' problem on Sco
Unixware. I haven't been able to receive feedback from anyone on the list
running UV on Unixware on how they have configured their system and how much
memory they can be mallocated in one big chuck. I can only
10 matches
Mail list logo