[U2] [UD] XML Parse/Open/ReadXMLData
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 Record (text.ext) ?xml version=1.0? U2XML_extraction file_extraction start=/root dictionary=TEST.FILE null=EMPTY/ !-- UD.NODE3 is attribute 1 -- field_extraction field = UDNODE1 path = node1/text() / !-- UDNODE3 is attribute 3 -- field_extraction field = UDNODE3path = node3/text() / /U2XML_extraction - Test Program *$BASICTYPE U SUBROUTINE B.TEST.XML OPEN '','TEST.FILE' TO F.TF ELSE RETURN * XML.FNAME = _XML_/test.xml EXT.FNAME = _XML_/TEST.EXT * STATUS = PREPAREXML(XML.FNAME,F_XML) IF NOT(STATUS) THEN STATUS = OPENXMLDATA(F_XML,EXT.FNAME,D_XML) IF NOT(STATUS) THEN MOREDATA = 1 LOOP WHILE (MOREDATA=1) DO STATUS = READXMLDATA(D_XML,THIS.REC) IF NOT(STATUS) THEN WRITE THIS.REC ON F.TF,'DON.XML' MOREDATA = 0 END ELSE MOREDATA = 0 STOP 'XML ERROR' END END REPEAT * STATUS = CLOSEXMLDATA(D_XML) STATUS = RELEASEXML(F_XML) END ELSE PRINT 'OPENXML ERROR' END END ELSE PRINT 'PREPARE ERROR' END - Results of Test record (DON.XML) written to TEST.FILE: 1 node1 2 node3 - Unidata appears to just be writing the data out sequentially rather than using the attribute number in the dictionary item. Any ideas? Thanks, -- Donald Verhagen Application Development Manager [EMAIL PROTECTED] Tandem Staffing Solutions, Inc. 1690 S Congress Avenue, Suite 210 Delray Beach, FL 33445 USA Voice Phone: 561.454.3592 Fax Phone: 561.454.3640 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] XML Parse/Open/ReadXMLData
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 time-critical project at the time, I had to program around it and move on. Curious to know if either of these are fixed in the UD 6.1+ versions and if anyone has encountered such a lockup. Murray Henderson Web Application Developer Ivy Hill Corporation [EMAIL PROTECTED] (502)473-2806 -Original Message- From: Don Verhagen [mailto:[EMAIL PROTECTED] Sent: Monday, November 29, 2004 12:37 PM To: [EMAIL PROTECTED] Subject: [U2] [UD] XML Parse/Open/ReadXMLData 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 Record (text.ext) ?xml version=1.0? U2XML_extraction file_extraction start=/root dictionary=TEST.FILE null=EMPTY/ !-- UD.NODE3 is attribute 1 -- field_extraction field = UDNODE1 path = node1/text() / !-- UDNODE3 is attribute 3 -- field_extraction field = UDNODE3path = node3/text() / /U2XML_extraction - Test Program *$BASICTYPE U SUBROUTINE B.TEST.XML OPEN '','TEST.FILE' TO F.TF ELSE RETURN * XML.FNAME = _XML_/test.xml EXT.FNAME = _XML_/TEST.EXT * STATUS = PREPAREXML(XML.FNAME,F_XML) IF NOT(STATUS) THEN STATUS = OPENXMLDATA(F_XML,EXT.FNAME,D_XML) IF NOT(STATUS) THEN MOREDATA = 1 LOOP WHILE (MOREDATA=1) DO STATUS = READXMLDATA(D_XML,THIS.REC) IF NOT(STATUS) THEN WRITE THIS.REC ON F.TF,'DON.XML' MOREDATA = 0 END ELSE MOREDATA = 0 STOP 'XML ERROR' END END REPEAT * STATUS = CLOSEXMLDATA(D_XML) STATUS = RELEASEXML(F_XML) END ELSE PRINT 'OPENXML ERROR' END END ELSE PRINT 'PREPARE ERROR' END - Results of Test record (DON.XML) written to TEST.FILE: 1 node1 2 node3 - Unidata appears to just be writing the data out sequentially rather than using the attribute number in the dictionary item. Any ideas? Thanks, -- Donald Verhagen Application Development Manager [EMAIL PROTECTED] Tandem Staffing Solutions, Inc. 1690 S Congress Avenue, Suite 210 Delray Beach, FL 33445 USA Voice Phone: 561.454.3592 Fax Phone: 561.454.3640 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] Testing if a Unidata file has records or not!
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 in other parts of this program. So, if anyone has any ideas along the lines of telling if a file is empty (Unidata file), could you please give me a note! Thank You Very Much! Frank Bright Univ. of the Arts [EMAIL PROTECTED] ___ Frank M. Bright [EMAIL PROTECTED] Administrative Computing University of the Arts (A15) http://www.uarts.edu 320 S. Broad St. 215-717-6081(w) Philadelphia, PA 19102 215-717-6087(f) Colleague 17.0.14 AIX 5.2.0.2 Unidata 6.03 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Unclassified RE: [U2] Testing if a Unidata file has records or not!
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 the file is not empty END [This is the UniVerse syntax, but UDT should be similar] HTH Mike -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bright, Frank Sent: Tuesday, 30 November 2004 10:38 To: U2-Users Group (E-mail) Subject: [U2] Testing if a Unidata file has records or not! 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 in other parts of this program. So, if anyone has any ideas along the lines of telling if a file is empty (Unidata file), could you please give me a note! Thank You Very Much! Frank Bright Univ. of the Arts [EMAIL PROTECTED] ___ Frank M. Bright [EMAIL PROTECTED] Administrative Computing University of the Arts (A15) http://www.uarts.edu 320 S. Broad St. 215-717-6081(w) Philadelphia, PA 19102 215-717-6087(f) Colleague 17.0.14 AIX 5.2.0.2 Unidata 6.03 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ The information contained in this Internet Email message is intended for the addressee only and may contain privileged information, but not necessarily the official views or opinions of the New Zealand Defence Force. If you are not the intended recipient you must not use, disclose, copy or distribute this message or the information in it. If you have received this message in error, please Email or telephone the sender immediately. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Testing if a Unidata file has records or not!
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 other parts of this program. OPEN '',FILE_NAME TO FILE_VAR THEN SELECT FILE_VAR TO SEL_VAR REC_COUNT = 0 EOL = 0 LOOP READNEXT ITEM_KEY FROM SEL_VAR ELSE EOL = 1 UNTIL EOL REC_COUNT += 1 REPEAT END HTH, Ken --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Testing if a Unidata file has records or not!
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 then do a CLEARSELECT if there were any data records. There is also the idea of doing the same BASIC select but instead of SELECTINFO, just do a single READNEXT. If you hit ELSE, it's empty. Again, CLEARSELECT to release the select list. Bob Woodward Programmer/Analyst Harbor Wholesale Grocery [EMAIL PROTECTED] -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Bright, Frank Sent: Monday, November 29, 2004 1:38 PM To: U2-Users Group (E-mail) Subject: [U2] Testing if a Unidata file has records or not! 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 in other parts of this program. So, if anyone has any ideas along the lines of telling if a file is empty (Unidata file), could you please give me a note! Thank You Very Much! Frank Bright Univ. of the Arts [EMAIL PROTECTED] ___ Frank M. Bright [EMAIL PROTECTED] Administrative Computing University of the Arts (A15) http://www.uarts.edu 320 S. Broad St. 215-717-6081(w) Philadelphia, PA 19102 215-717-6087(f) Colleague 17.0.14 AIX 5.2.0.2 Unidata 6.03 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: Unclassified RE: [U2] Testing if a Unidata file has records or not!
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 HENDERSON MICHAEL MR Sent: Monday, November 29, 2004 3:17 PM To: [EMAIL PROTECTED] Subject: Unclassified RE: [U2] Testing if a Unidata file has records or not! 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 the file is not empty END [This is the UniVerse syntax, but UDT should be similar] HTH Mike -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bright, Frank Sent: Tuesday, 30 November 2004 10:38 To: U2-Users Group (E-mail) Subject: [U2] Testing if a Unidata file has records or not! 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 in other parts of this program. So, if anyone has any ideas along the lines of telling if a file is empty (Unidata file), could you please give me a note! Thank You Very Much! Frank Bright Univ. of the Arts [EMAIL PROTECTED] ___ Frank M. Bright [EMAIL PROTECTED] Administrative Computing University of the Arts (A15) http://www.uarts.edu 320 S. Broad St. 215-717-6081(w) Philadelphia, PA 19102 215-717-6087(f) Colleague 17.0.14 AIX 5.2.0.2 Unidata 6.03 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ The information contained in this Internet Email message is intended for the addressee only and may contain privileged information, but not necessarily the official views or opinions of the New Zealand Defence Force. If you are not the intended recipient you must not use, disclose, copy or distribute this message or the information in it. If you have received this message in error, please Email or telephone the sender immediately. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Testing if a Unidata file has records or not!
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 Greater Denver, Inc. Paragon Financial Services 303-632-2226 [EMAIL PROTECTED] -Original Message- 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 other parts of this program. So, if anyone has any ideas along the lines of telling if a file is empty (Unidata file), could you please give me a note! --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Testing if a Unidata file has records or not!
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 Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Bright, Frank Sent: Monday, November 29, 2004 13:38 To: U2-Users Group (E-mail) Subject: [U2] Testing if a Unidata file has records or not! 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 in other parts of this program. So, if anyone has any ideas along the lines of telling if a file is empty (Unidata file), could you please give me a note! Thank You Very Much! Frank Bright Univ. of the Arts [EMAIL PROTECTED] ___ Frank M. Bright [EMAIL PROTECTED] Administrative Computing University of the Arts (A15) http://www.uarts.edu 320 S. Broad St. 215-717-6081(w) Philadelphia, PA 19102 215-717-6087(f) Colleague 17.0.14 AIX 5.2.0.2 Unidata 6.03 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] How to setup MALLOCTRACING?
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 get 30Mb max before the memory exceeded error is thrown even though I have 8 Gig RAM and am the only user on the system. The system runs nothing else but UV and all possible Unixware parameters must be optimised for UV. I want to turn on MALLOCTRACING to 1 in the hope that I will be able to find out the exact nature of the failure. I have tried but then UV fails to start with a missing parameter message. Does anyone know how to setup the malloctracing? Where does the tracing information get written to and how to interpret it? Thanks for any help. Regards, Marco. - Win a castle for NYE with your mates and Yahoo! Messenger --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/