Re: [U2] Unibasic: Sample program - to extract data from Table
I would think you are better off getting an example from your VAR, or the people that supplied/wrote your application, who will be better equipped to discuss what data you wish to extract from which files (tables), and where you are looking at putting/using the extracted data Ross Ferris Stamina Software Visage Better by Design! -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, 12 October 2009 4:14 PM To: u2-users@listserver.u2ug.org Subject: [U2] Unibasic: Sample program - to extract data from Table Dear All I am new in Unidata/Unibasic, I want a sample program to extract data from one of our big history table. Kindly give me any link/ suggestion. Thanks Regards, Dattatraya Walgude Disclaimer * This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or attachment, You should carry out your own virus checks. R Systems International Limited reserves the right to record, monitor, and inspect all email communications through its internal and external networks. R Systems International Ltd prohibits its information systems from being used to view, store or forward offensive or discriminatory material. End of Disclaimer ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] UniObject .NET Session and Common Block Bug
I have added the errlog to the UV home directory and got the following results as I expected. The cause of the issue is a COMMON size mismatch. But it does not tell me why it works in VB6 and Java and not .NET UniObjects. Mon Oct 12 19:05:00 -3949 ITVISION.COM.AU\adrian.halid COMMON size mismatch in subroutine SR.AHTEST.CALL2. Mon Oct 12 19:05:00 -3949 ITVISION.COM.AU\adrian.halid Unable to load file SR.AHTEST.CALL2. I have also run unirpcd in debug mode unirpcd.exe -d9 but nothing really different between the 3 calls. From doing Step By Step debugging and looking at the Log, this text is only create when the session object is created. No text is actually written to the unirpcd.log file when making the ahsub1.call() or ahsub2.call() calls. So I have no idea what's going on behind the scenes when executing the subroutine.Call() methods. UniOjbects.NET - 8:46:25 - Accepted a TCP/IP connection. RPCPID=3136 - 18:46:25 - In handle_tcp_request() RPCPID=3136 - 18:46:25 - In init_connection() RPCPID=3136 - 18:46:25 - In read packet RPCPID=3136 - 18:46:25 - In read message RPCPID=3136 - 18:46:25 - before the select RPCPID=3136 - 18:46:25 - after the select rcnt = 1 RPCPID=3136 - 18:46:25 - before the recv RPCPID=3136 - 18:46:25 - after the recv nread = 40 RPCPID=3136 - 18:46:25 - Read resp: read of header ok RPCPID=3136 - 18:46:25 - message_length=16 RPCPID=3136 - 18:46:25 - In unpack packet RPCPID=3136 - 18:46:25 - length of arg 0 = 5 RPCPID=3136 - 18:46:25 - type of arg 0 = 2 RPCPID=3136 - 18:46:25 - char arg(0x d02578)=defcs RPCPID=3136 - 18:46:25 - Server Path = C:\IBM\UV\bin\uvapi_server.exe RPCPID=3136 - 18:46:25 - Port Num = 0 RPCPID=3136 - 18:46:25 - Timeout = 3600 RPCPID=3136 - 18:46:25 - In create_server_process() RPCPID=3136 - 18:46:25 - Creating process: C:\IBM\UV\bin\uvapi_server.exe 272 3600 0 1 RPCPID=3136 - 18:46:25 - uvrpc_close closing TCPIP connection - UniObject VB6 - RPCPID=1704 - 18:35:33 - Accepted a TCP/IP connection. RPCPID=1704 - 18:35:33 - In handle_tcp_request() RPCPID=1704 - 18:35:33 - In init_connection() RPCPID=1704 - 18:35:33 - In read packet RPCPID=1704 - 18:35:33 - In read message RPCPID=1704 - 18:35:33 - before the select RPCPID=1704 - 18:35:33 - after the select rcnt = 1 RPCPID=1704 - 18:35:33 - before the recv RPCPID=1704 - 18:35:33 - after the recv nread = 38 RPCPID=1704 - 18:35:33 - Read resp: read of header ok RPCPID=1704 - 18:35:33 - message_length=14 RPCPID=1704 - 18:35:33 - In unpack packet RPCPID=1704 - 18:35:33 - length of arg 0 = 5 RPCPID=1704 - 18:35:33 - type of arg 0 = 2 RPCPID=1704 - 18:35:33 - char arg(0x 332578)=defcs RPCPID=1704 - 18:35:33 - Server Path = C:\IBM\UV\bin\uvapi_server.exe RPCPID=1704 - 18:35:33 - Port Num = 0 RPCPID=1704 - 18:35:33 - Timeout = 3600 RPCPID=1704 - 18:35:33 - In create_server_process() RPCPID=1704 - 18:35:33 - Creating process: C:\IBM\UV\bin\uvapi_server.exe 272 3600 0 1 RPCPID=1704 - 18:35:33 - uvrpc_close closing TCPIP connection - UniObject Java - RPCPID=2908 - 18:41:23 - Accepted a TCP/IP connection. RPCPID=2908 - 18:41:23 - In handle_tcp_request() RPCPID=2908 - 18:41:23 - In init_connection() RPCPID=2908 - 18:41:23 - In read packet RPCPID=2908 - 18:41:23 - In read message RPCPID=2908 - 18:41:23 - before the select RPCPID=2908 - 18:41:23 - after the select rcnt = 1 RPCPID=2908 - 18:41:23 - before the recv RPCPID=2908 - 18:41:23 - after the recv nread = 40 RPCPID=2908 - 18:41:23 - Read resp: read of header ok RPCPID=2908 - 18:41:23 - message_length=16 RPCPID=2908 - 18:41:23 - In unpack packet RPCPID=2908 - 18:41:23 - length of arg 0 = 5 RPCPID=2908 - 18:41:23 - type of arg 0 = 2 RPCPID=2908 - 18:41:23 - char arg(0x 382578)=defcs RPCPID=2908 - 18:41:23 - Server Path = C:\IBM\UV\bin\uvapi_server.exe RPCPID=2908 - 18:41:23 - Port Num = 0 RPCPID=2908 - 18:41:23 - Timeout = 3600 RPCPID=2908 - 18:41:23 - In create_server_process() RPCPID=2908 - 18:41:23 - Creating process: C:\IBM\UV\bin\uvapi_server.exe 272 3600 0 1 RPCPID=2908 - 18:41:23 - uvrpc_close closing TCPIP connection - Adrian Halid Senior Analyst/Programmer IT Vision Australia Pty Ltd (ABN: 34 309 336 904) PO Box 881, Canning Bridge WA 6153 Level 3, Kirin Centre, 15 Ogilvie Road, Applecross, WA, 6153 P: (08) 9315 7000 F: (08) 9315 7088 E: adrian.ha...@itvision.com.au W: http://www.itvision.com.au ___ NOTICE : This e-mail and any attachments are intended for the addressee(s) only and may contain
Re: [U2] Unibasic: Sample program - to extract data from Table
The big question is extract to what ? csv ? xml ? another data table ? Here is a very quick simple extract to a csv - this is just off the top of my head so i have not compiled it or tested it. OPEN 'FILE' TO FIL ESLE STOP 201,'FILE' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Rgds Symeon. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 06:14 To: u2-users@listserver.u2ug.org Subject: [U2] Unibasic: Sample program - to extract data from Table Dear All I am new in Unidata/Unibasic, I want a sample program to extract data from one of our big history table. Kindly give me any link/ suggestion. Thanks Regards, Dattatraya Walgude Disclaimer * This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or attachment, You should carry out your own virus checks. R Systems International Limited reserves the right to record, monitor, and inspect all email communications through its internal and external networks. R Systems International Ltd prohibits its information systems from being used to view, store or forward offensive or discriminatory material. End of Disclaimer ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unibasic: Sample program - to extract data from Table
Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL --^ Expecting: ELSE compilation failed Thanks Regards, Dattatraya Walgude DBA Team Rsystems International Ltd, Pune, ( : +91-20-22909212 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 4:28 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The big question is extract to what ? csv ? xml ? another data table ? Here is a very quick simple extract to a csv - this is just off the top of my head so i have not compiled it or tested it. OPEN 'FILE' TO FIL ESLE STOP 201,'FILE' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Rgds Symeon. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 06:14 To: u2-users@listserver.u2ug.org Subject: [U2] Unibasic: Sample program - to extract data from Table Dear All I am new in Unidata/Unibasic, I want a sample program to extract data from one of our big history table. Kindly give me any link/ suggestion. Thanks Regards, Dattatraya Walgude Disclaimer * This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or attachment, You should carry out your own virus checks. R Systems International Limited reserves the right to record, monitor, and inspect all email communications through its internal and external networks. R Systems International Ltd prohibits its information systems from being used to view, store or forward offensive or discriminatory material. End of Disclaimer ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unibasic: Sample program - to extract data from Table
ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL --^ Expecting: ELSE compilation failed Thanks Regards, Dattatraya Walgude DBA Team Rsystems International Ltd, Pune, ( : +91-20-22909212 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 4:28 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The big question is extract to what ? csv ? xml ? another data table ? Here is a very quick simple extract to a csv - this is just off the top of my head so i have not compiled it or tested it. OPEN 'FILE' TO FIL ESLE STOP 201,'FILE' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Rgds Symeon. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 06:14 To: u2-users@listserver.u2ug.org Subject: [U2] Unibasic: Sample program - to extract data from Table Dear All I am new in Unidata/Unibasic, I want a sample program to extract data from one of our big history table. Kindly give me any link/ suggestion. Thanks Regards, Dattatraya Walgude Disclaimer * This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or attachment, You should carry out your own virus checks. R Systems International Limited reserves the right to record, monitor, and inspect all email communications through its internal and external networks. R Systems International Ltd prohibits its information systems from being used to view, store or forward offensive or discriminatory material. End of Disclaimer ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users --- Please remember to recycle wherever possible. Reduce, reuse, recycle, think do you need to print this e-mail? --- This e-mail and any attachment(s), is confidential and may be legally privileged. It is intended solely for the addressee. If you are not the addressee, dissemination, copying or use of this e-mail or any of its content is prohibited and may be unlawful. If you are not the intended recipient please inform the sender immediately and destroy the e-mail, any attachment(s) and any copies. All liability for viruses is excluded to the fullest extent permitted by law. It is your responsibility to scan or otherwise check this
Re: [U2] Unibasic: Sample program - to extract data from Table
Many Many Thanks Edward and Symeon Its work... Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Monday, October 12, 2009 4:55 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL --^ Expecting: ELSE compilation failed Thanks Regards, Dattatraya Walgude DBA Team Rsystems International Ltd, Pune, ( : +91-20-22909212 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 4:28 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The big question is extract to what ? csv ? xml ? another data table ? Here is a very quick simple extract to a csv - this is just off the top of my head so i have not compiled it or tested it. OPEN 'FILE' TO FIL ESLE STOP 201,'FILE' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Rgds Symeon. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 06:14 To: u2-users@listserver.u2ug.org Subject: [U2] Unibasic: Sample program - to extract data from Table Dear All I am new in Unidata/Unibasic, I want a sample program to extract data from one of our big history table. Kindly give me any link/ suggestion. Thanks Regards, Dattatraya Walgude Disclaimer * This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or attachment, You should carry out your own virus checks. R Systems International Limited reserves the right to record, monitor, and inspect all email communications through its internal and external networks. R Systems International Ltd prohibits its information systems from being used to view, store or forward offensive or discriminatory material. End of Disclaimer ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users --- Please remember to recycle wherever possible. Reduce, reuse, recycle, think do you need to print this e-mail? --- This e-mail and any attachment(s), is confidential and may be legally privileged. It is intended solely for the addressee. If you are not the addressee, dissemination,
Re: [U2] Unibasic: Sample program - to extract data from Table
Output is not readable:- 14334ýITOý0ýAýý16811,14334ýCHAý CHA to Risk Rate: Mass_Aýýý16811 14369ýITOý0ýAýý61491,14369ýCHAý CHA to Risk Rate: Ten7_Aýýý61491 13977ýITAýýAýý60625 15030ýITOý0ýAýý70410,15030ýMEMý1ýPayment Responsibility ChangedýýFrom To N On 23-02-09ýýAýý70410,15030ýITAýýAýý70410 13973ýITAýýAýý38781,13973ýCHAý CHA to Risk Rate: MASS_Aýýý38781 15142ýITOý0ýAýý40128,15142ýMEMý1ýPayment Responsibility ChangedýýFrom To Y On 15-06-09ýýAýý40129 14369ýITOý0ýAýý64849,15263ýWKLýDC 040ýQueue 888Aýý47136 13910ýWKLýDC 040ýQueue 6AEAýý2898,13910ýSAPý13910ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý7858,13910ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý6RE1ýAýý14692,13911ýAOWýFrom BF01G013ýTo BF01G162ý6EQ.01ýQUEUE-SPLITTERýýAýý15360,13911ýWKLýDC 040ýQueue 6EQ.03ýýQUEUE-SPLITTERýýAýý15360,13942ý WKLýDC 040ýQueue 6AEAýý5421,13942ýSAPý13942ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý9757,13942ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 5:02 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Many Many Thanks Edward and Symeon Its work... Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Monday, October 12, 2009 4:55 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL --^ Expecting: ELSE compilation failed Thanks Regards, Dattatraya Walgude DBA Team Rsystems International Ltd, Pune, ( : +91-20-22909212 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 4:28 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The big question is extract to what ? csv ? xml ? another data table ? Here is a very quick simple extract to a csv - this is just off the top of my head so i have not compiled it or tested it. OPEN 'FILE' TO FIL ESLE STOP 201,'FILE' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Rgds Symeon. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 06:14 To: u2-users@listserver.u2ug.org Subject: [U2] Unibasic: Sample program - to extract data from Table Dear All I am new in Unidata/Unibasic, I want a sample program to extract data from one of our big history table. Kindly give me any link/ suggestion. Thanks Regards, Dattatraya Walgude Disclaimer * This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or
Re: [U2] EXECUTE 'CLEARSELECT'
If you goal is to simply count the number of records that match a criteria, consider the COUNT statement. David Laansma IT Manager Hubbard Supply Co. Direct: 810-342-7143 Office: 810-234-8681 Fax: 810-234-6142 www.hubbardsupply.com Delivering Products, Services and Innovative Solutions -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Hona, David Sent: Monday, October 12, 2009 12:55 AM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' This usually indicates that your EXECUTE is executing at a different execution layer. Prime INFORMATION did this by default and had to use PERFORM to use the same runtime execution layer or overide with a $option statement. From: u2-users-boun...@listserver.u2ug.org [u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath [dmc...@imb.com.au] Sent: Monday, 12 October 2009 1:56 PM To: u2-users@listserver.u2ug.org Subject: [U2] EXECUTE 'CLEARSELECT' Hi all, One of the programmers here has noticed this quirky behaviour in Unidata 7.1. First, we created a file called TEST and gave it 3 records, AA, AB and AC. Then we executed the following program: PROGRAM TEST CLEARSELECT EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL EXECUTE CLEARSELECT CRT Records after EXECUTE CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL CLEARSELECT CRT Records after CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) STOP and received the following results: 3 records selected to list 0. Records after SELECT 3 Records after EXECUTE CLEARSELECT: 2 3 records selected to list 0. Records after SELECT 2 Records after CLEARSELECT: 0 3 records selected to list 0. Records after SELECT 3 We would expect SYSTEM(11) to return 0 after the EXECUTE CLEARSELECT but it returns how many items were in the list prior to the CLEARSELECT. Also odd is that the select itself returns that it selected 3 records, but then SYSTEM(11) reports 2 and READNEXT will only extract 2 from the list. The work around is to use Unibasic CLEARSELECT which functions correctly as demonstrated above. When testing this using BASICTYPE u and WHEN @ID LIKE the issue did not present itself. I have tested both UNIX and Windows. Does this happen in 7.2? Regards, Dan ### The information transmitted in this message and attachments (if any) is intended only for the person or entity to which it is addressed. The message may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from any computer. The intended recipient of this e-mail may only use, reproduce, disclose or distribute the information contained in this e-mail and any attached files with the permission of IMB. ### ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ** IMPORTANT MESSAGE * This e-mail message is intended only for the addressee(s) and contains information which may be confidential. If you are not the intended recipient please advise the sender by return email, do not use or disclose the contents, and delete the message and any attachments from your system. Unless specifically indicated, this email does not constitute formal advice or commitment by the sender or the Commonwealth Bank of Australia (ABN 48 123 123 124) or its subsidiaries. We can be contacted through our web site: commbank.com.au. If you no longer wish to receive commercial electronic messages from us, please reply to this e-mail by typing Unsubscribe in the subject line. ** ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unibasic: Sample program - to extract data from Table
The code is just an example to get you started - i suggest you read the manual or get on a course etc to understand better the data model and language. There are numerous things you can do to extend this program, you will need to ensure there are no in the data, the example is changing sub values to be comma delimited lists, again you will need to ensure there are no commas in the data - or you may want to normalise and produce a row in the csv per multi value, or perhaps if the multivalues are not an array of associated data but individual pieces of data you could split them to multiple columns, This very much depends on the structure of the data and what you are trying to achieve with it. To fix the below funny characters replace @SVM with @VM If you do have sub values in your data you may need to do some further conversions etc Rgds Symeon -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:58 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Output is not readable:- 14334ýITOý0ýAýý16811,14334ýCHAý CHA to Risk Rate: Mass_Aýýý16811 14369ýITOý0ýAýý61491,14369ýCHAý CHA to Risk Rate: Ten7_Aýýý61491 13977ýITAýýAýý60625 15030ýITOý0ýAýý70410,15030ýMEMý1ýPayment Responsibility ChangedýýFrom To N On 23-02-09ýýAýý70410,15030ýITAýýAýý70410 13973ýITAýýAýý38781,13973ýCHAý CHA to Risk Rate: MASS_Aýýý38781 15142ýITOý0ýAýý40128,15142ýMEMý1ýPayment Responsibility ChangedýýFrom To Y On 15-06-09ýýAýý40129 14369ýITOý0ýAýý64849,15263ýWKLýDC 040ýQueue 888Aýý47136 13910ýWKLýDC 040ýQueue 6AEAýý2898,13910ýSAPý13910ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý7858,13910ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý6RE1ýAýý14692,13911ýAOWýFrom BF01G013ýTo BF01G162ý6EQ.01ýQUEUE-SPLITTERýýAýý15360,13911ýWKLýDC 040ýQueue 6EQ.03ýýQUEUE-SPLITTERýýAýý15360,13942ý WKLýDC 040ýQueue 6AEAýý5421,13942ýSAPý13942ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý9757,13942ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 5:02 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Many Many Thanks Edward and Symeon Its work... Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Monday, October 12, 2009 4:55 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL --^ Expecting: ELSE compilation failed Thanks Regards, Dattatraya Walgude DBA Team Rsystems International Ltd, Pune, ( : +91-20-22909212 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 4:28 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The big question is extract to what ? csv ? xml ? another data table ? Here is a very quick simple extract to a csv - this is just off the top of my head so i have not compiled it or tested it. OPEN 'FILE' TO FIL ESLE STOP 201,'FILE' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Rgds Symeon. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 06:14 To:
Re: [U2] Unibasic: Sample program - to extract data from Table
Thanks for your support. We get output of multivalve columns. Only things is we can not get out of DATE column is date format. So please give your suggestions. JonesBob123 E. 23rd St. Arvada CO 80276 3037768854 V4341 9611D C R 7 FrobisherKamal P.O. Box 9845 Denver CO 80209- 3037780880 K O 33 Steven Spender 1212 W. 44thDenver CO 80401 3034457878 3 Jamieson Dale 999 Independence WaySeattle WI 98733 V6670 96118 One more query @ID column is missing in output.csv, please suggest how to get that @ID column in output.csv. Regards Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 6:13 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The code is just an example to get you started - i suggest you read the manual or get on a course etc to understand better the data model and language. There are numerous things you can do to extend this program, you will need to ensure there are no in the data, the example is changing sub values to be comma delimited lists, again you will need to ensure there are no commas in the data - or you may want to normalise and produce a row in the csv per multi value, or perhaps if the multivalues are not an array of associated data but individual pieces of data you could split them to multiple columns, This very much depends on the structure of the data and what you are trying to achieve with it. To fix the below funny characters replace @SVM with @VM If you do have sub values in your data you may need to do some further conversions etc Rgds Symeon -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:58 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Output is not readable:- 14334ýITOý0ýAýý16811,14334ýCHAý CHA to Risk Rate: Mass_Aýýý16811 14369ýITOý0ýAýý61491,14369ýCHAý CHA to Risk Rate: Ten7_Aýýý61491 13977ýITAýýAýý60625 15030ýITOý0ýAýý70410,15030ýMEMý1ýPayment Responsibility ChangedýýFrom To N On 23-02-09ýýAýý70410,15030ýITAýýAýý70410 13973ýITAýýAýý38781,13973ýCHAý CHA to Risk Rate: MASS_Aýýý38781 15142ýITOý0ýAýý40128,15142ýMEMý1ýPayment Responsibility ChangedýýFrom To Y On 15-06-09ýýAýý40129 14369ýITOý0ýAýý64849,15263ýWKLýDC 040ýQueue 888Aýý47136 13910ýWKLýDC 040ýQueue 6AEAýý2898,13910ýSAPý13910ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý7858,13910ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý6RE1ýAýý14692,13911ýAOWýFrom BF01G013ýTo BF01G162ý6EQ.01ýQUEUE-SPLITTERýýAýý15360,13911ýWKLýDC 040ýQueue 6EQ.03ýýQUEUE-SPLITTERýýAýý15360,13942ý WKLýDC 040ýQueue 6AEAýý5421,13942ýSAPý13942ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý9757,13942ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 5:02 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Many Many Thanks Edward and Symeon Its work... Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Monday, October 12, 2009 4:55 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL
Re: [U2] Unibasic: Sample program - to extract data from Table
Dattatraya Not wanting to be unhelpful here, but really even if you've never used the unidata version of Basic before there's enough information in the sample to see how to concatenate the ID of each record to the start of each line in the output file. Hint - It's the : operator. The variable ID in the example program holds the same value as @ID. Formatting a value as a date - see the OCONV function in the documentation. Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 14:24 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks for your support. We get output of multivalve columns. Only things is we can not get out of DATE column is date format. So please give your suggestions. JonesBob123 E. 23rd St. Arvada CO 80276 3037768854 V4341 9611D C R 7 FrobisherKamal P.O. Box 9845 Denver CO 80209- 3037780880 K O 33 Steven Spender 1212 W. 44thDenver CO 80401 3034457878 3 Jamieson Dale 999 Independence WaySeattle WI 98733 V6670 96118 One more query @ID column is missing in output.csv, please suggest how to get that @ID column in output.csv. Regards Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 6:13 PM To: 'U2 Users List' Subject: Re: [U2] Unibasic: Sample program - to extract data from Table The code is just an example to get you started - i suggest you read the manual or get on a course etc to understand better the data model and language. There are numerous things you can do to extend this program, you will need to ensure there are no in the data, the example is changing sub values to be comma delimited lists, again you will need to ensure there are no commas in the data - or you may want to normalise and produce a row in the csv per multi value, or perhaps if the multivalues are not an array of associated data but individual pieces of data you could split them to multiple columns, This very much depends on the structure of the data and what you are trying to achieve with it. To fix the below funny characters replace @SVM with @VM If you do have sub values in your data you may need to do some further conversions etc Rgds Symeon -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:58 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Output is not readable:- 14334ýITOý0ýAýý16811,14334ýCHAý CHA to Risk Rate: Mass_Aýýý16811 14369ýITOý0ýAýý61491,14369ýCHAý CHA to Risk Rate: Ten7_Aýýý61491 13977ýITAýýAýý60625 15030ýITOý0ýAýý70410,15030ýMEMý1ýPayment Responsibility ChangedýýFrom To N On 23-02-09ýýAýý70410,15030ýITAýýAýý70410 13973ýITAýýAýý38781,13973ýCHAý CHA to Risk Rate: MASS_Aýýý38781 15142ýITOý0ýAýý40128,15142ýMEMý1ýPayment Responsibility ChangedýýFrom To Y On 15-06-09ýýAýý40129 14369ýITOý0ýAýý64849,15263ýWKLýDC 040ýQueue 888Aýý47136 13910ýWKLýDC 040ýQueue 6AEAýý2898,13910ýSAPý13910ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý7858,13910ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý6RE1ýAýý14692,13911ýAOWýFrom BF01G013ýTo BF01G162ý6EQ.01ýQUEUE-SPLITTERýýAýý15360,13911ýWKLýDC 040ýQueue 6EQ.03ýýQUEUE-SPLITTERýýAýý15360,13942ý WKLýDC 040ýQueue 6AEAýý5421,13942ýSAPý13942ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý9757,13942ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 5:02 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Many Many Thanks Edward and Symeon Its work... Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Monday, October 12, 2009 4:55 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2
Re: [U2] Unibasic: Sample program - to extract data from Table
Dates are typically stored in internal format - so use something like OCONV(DATE.VAR,D4/) to format it. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 6:24 AM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks for your support. We get output of multivalve columns. Only things is we can not get out of DATE column is date format. So please give your suggestions. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
[U2] UniData - BUILD.INDEX on large file - comment
You shouldn't have any problem with TMP files exceeding 2gb with BUILD.INDEX at UniData 7.2 - assuming your TMP filesystem supports large files. I presume this was the problem Brad encountered. Prior to 7.2, you may have an issue if you PHANTOM the BUILD.INDEX command, or if you start a udt session, shell out of it (!sh), cd to another directory, start a new udt session and BUILD.INDEX there. Regards Ps - posted from Liverpool! Wally Terhune U2 Support Architect Rocket Software 4700 S. Syracuse Street, Suite 400 **Denver, CO 80237 **USA Tel: +1.720.475.8055 Email: wterh...@rs.com Web: www.rocketsoftware.com/u2 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of BraDav Sent: Sunday, October 11, 2009 10:27 AM To: U2 Users List Subject: Re: [U2] U2 is now Rocket U2 Charlie, I agree with you overall that U2 (Unidata and Universe) is the best there is for development and maintaining applications. The data model stands head and shoulders above the rest, when it comes to RAD. However, there could be many improvements to the dbs, above and below the hood so to speak. That being said, one of the benefits of the U2 architecture is that it can be improved. For example, I maintained a file with 80 million records, at one site. It has virtually no overflow and the record distribution was nearly perfect. Access to the file was very fast, but we couldn't create indexes on it, because the indexes ran out of space. That's just one example, but the list is long. However, that's a positive. With the right amount of RD, U2 is positioned for another 20 year run. thanks, Brad ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] UniData - BUILD.INDEX on large file - comment
Wally, That's what I'm talking about!! Thanks for the update... Here's another one: temp files are very important in SQL. Another example of an improvement would be to get the SQL temp files to work outside of the old AE style SQL editor, in BASIC especially. Then, we could use one of most powerful features of UniSQL, which is dynamically created temp files. Then, we could do things like selects files, group them and summarize data and then select on the summary data. That would save hours of coding this kind of stuff!!! Example: SELECT CUSTOMER,ORDER,SUM(QTY),SUM(AMOUNT) FROM ORDERS TO CUST_SUM_TEMP; SELECT CUSTOMER,ORDER, QTY,AMOUNT FROM CUST_SUM_TEMP ORDER BY AMOUNT; Brad - Original Message - From: Wally Terhune wterh...@rocketsoftware.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Monday, October 12, 2009 10:19:29 AM GMT -05:00 US/Canada Eastern Subject: [U2] UniData - BUILD.INDEX on large file - comment You shouldn't have any problem with TMP files exceeding 2gb with BUILD.INDEX at UniData 7.2 - assuming your TMP filesystem supports large files. I presume this was the problem Brad encountered. Prior to 7.2, you may have an issue if you PHANTOM the BUILD.INDEX command, or if you start a udt session, shell out of it (!sh), cd to another directory, start a new udt session and BUILD.INDEX there. Regards Ps - posted from Liverpool! Wally Terhune U2 Support Architect Rocket Software 4700 S. Syracuse Street, Suite 400 **Denver, CO 80237 **USA Tel: +1.720.475.8055 Email: wterh...@rs.com Web: www.rocketsoftware.com/u2 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of BraDav Sent: Sunday, October 11, 2009 10:27 AM To: U2 Users List Subject: Re: [U2] U2 is now Rocket U2 Charlie, I agree with you overall that U2 (Unidata and Universe) is the best there is for development and maintaining applications. The data model stands head and shoulders above the rest, when it comes to RAD. However, there could be many improvements to the dbs, above and below the hood so to speak. That being said, one of the benefits of the U2 architecture is that it can be improved. For example, I maintained a file with 80 million records, at one site. It has virtually no overflow and the record distribution was nearly perfect. Access to the file was very fast, but we couldn't create indexes on it, because the indexes ran out of space. That's just one example, but the list is long. However, that's a positive. With the right amount of RD, U2 is positioned for another 20 year run. thanks, Brad ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] need help with writing to file header
Thank you Stuart, with a little tweaking I got it to work. On Fri, Oct 9, 2009 at 9:37 AM, Lloyd Cottrell lbc7...@gmail.com wrote: I have a need to take out the transaction logging flag inside of some files. Can someone give me some info on how to write to the file header. These files that need to be changed are all hashed files and the flag resides at hex x114. U2 tech support says this can be done in databasic, so any help would be appreciated. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] UniData - BUILD.INDEX on large file - comment
Bill Haskett said the following on 11:59 AM: Brad: This sounds like something you should submit to the BB area of the U2 User Group website. Bill broadri...@comcast.net said the following on 10/12/2009 8:16 AM: Wally, That's what I'm talking about!! Thanks for the update... Here's another one: temp files are very important in SQL. Another example of an improvement would be to get the SQL temp files to work outside of the old AE style SQL editor, in BASIC especially. Then, we could use one of most powerful features of UniSQL, which is dynamically created temp files. Then, we could do things like selects files, group them and summarize data and then select on the summary data. That would save hours of coding this kind of stuff!!! Example: SELECT CUSTOMER,ORDER,SUM(QTY),SUM(AMOUNT) FROM ORDERS TO CUST_SUM_TEMP; SELECT CUSTOMER,ORDER, QTY,AMOUNT FROM CUST_SUM_TEMP ORDER BY AMOUNT; Brad - Original Message - From: Wally Terhune wterh...@rocketsoftware.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Monday, October 12, 2009 10:19:29 AM GMT -05:00 US/Canada Eastern Subject: [U2] UniData - BUILD.INDEX on large file - comment You shouldn't have any problem with TMP files exceeding 2gb with BUILD.INDEX at UniData 7.2 - assuming your TMP filesystem supports large files. I presume this was the problem Brad encountered. Prior to 7.2, you may have an issue if you PHANTOM the BUILD.INDEX command, or if you start a udt session, shell out of it (!sh), cd to another directory, start a new udt session and BUILD.INDEX there. Regards Ps - posted from Liverpool! Wally Terhune U2 Support Architect Rocket Software 4700 S. Syracuse Street, Suite 400 **Denver, CO 80237 **USA Tel: +1.720.475.8055 Email: wterh...@rs.com Web: www.rocketsoftware.com/u2 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of BraDav Sent: Sunday, October 11, 2009 10:27 AM To: U2 Users List Subject: Re: [U2] U2 is now Rocket U2 Charlie, I agree with you overall that U2 (Unidata and Universe) is the best there is for development and maintaining applications. The data model stands head and shoulders above the rest, when it comes to RAD. However, there could be many improvements to the dbs, above and below the hood so to speak. That being said, one of the benefits of the U2 architecture is that it can be improved. For example, I maintained a file with 80 million records, at one site. It has virtually no overflow and the record distribution was nearly perfect. Access to the file was very fast, but we couldn't create indexes on it, because the indexes ran out of space. That's just one example, but the list is long. However, that's a positive. With the right amount of RD, U2 is positioned for another 20 year run. thanks, Brad ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] U2 is now Rocket U2
Yes, I also like U2. It has interesting historical associations, for those of us of a certain age. It was a U2 spy-plane that was shot down by a rocket over the USSR in 1960 that led to quite a frosty first meeting between Khruschev and Kennedy in Geneva that year. Which leads me to ask if anyone knows whether any U2 (DB's of course) installations exist in Russia or in any of the former Soviet Republics? Dominic Baron. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of u2-users-requ...@listserver.u2ug.org Sent: Monday, 12 October 2009 08:00 To: u2-users@listserver.u2ug.org Subject: U2-Users Digest, Vol 6, Issue 9 Send U2-Users mailing list submissions to u2-users@listserver.u2ug.org To subscribe or unsubscribe via the World Wide Web, visit http://listserver.u2ug.org/mailman/listinfo/u2-users or, via email, send a message with subject or body 'help' to u2-users-requ...@listserver.u2ug.org You can reach the person managing the list at u2-users-ow...@listserver.u2ug.org When replying, please edit your Subject line so it is more specific than Re: Contents of U2-Users digest... Today's Topics: 1. Re: U2 is now Rocket U2 (Tony Gravagno) 2. Re: U2 is now Rocket U2 (Charlie Noah) 3. Re: U2 is now Rocket U2 (BraDav) 4. Re: U2 is now Rocket U2 (Ed Clark) -- Message: 1 Date: Sun, 11 Oct 2009 02:07:19 -0700 From: Tony Gravagno 3xk547...@sneakemail.com To: u2-users@listserver.u2ug.org Subject: Re: [U2] U2 is now Rocket U2 Message-ID: 18623-75...@sneakemail.com Content-Type: text/plain; charset=us-ascii From: BraDav Actually, I like U2. It short, to the point, and easy to remember. And it's got a popular association. However, if there is a name change, it would have to be a great alternative. I don't see anything wrong with maintaining the U2 brand as-is. One could say there is no U2 brand, so no need for an alternative. There will certainly be some disagreement but I think technically there is no such thing as U2. This was a term that was only coined when the Universe and Unidata products, very different and former rivals, were brought under common management. While there are many add-ons that work similarly for both platforms, these products haven't really evolved into a single platform, and I don't expect they will. So rather than changing a name from U2, and perpetuating a common reference for disparate products, the new owners may decide to position these products as completely separate offerings. On the other side of this, U2 isn't just a popular association, it's a marketing mechanism that allows the two platforms to benefit from one another, creating a perceived common user base which is Much larger than either of them. U2 only carries weight as a brand within the MV market, so changing the name may be a large and unjustifiable expense. The names U2, Universe, and Unidata equally mean nothing to the mainstream relationally-oriented market, so changing the names of any of these products seems equally unwarranted for that audience as well. Given these dynamics, I don't think we'll see any name changes. Tony Gravagno Nebula Research and Development TG@ remove.pleaseNebula-RnD.com NEW: Follow TonyGravagno on Twitter remove.pleaseNebula-RnD.com/blog Visit PickWiki.com! Contribute! -- Message: 2 Date: Sun, 11 Oct 2009 10:35:48 -0500 From: Charlie Noah cwn...@comcast.net To: U2 Users List u2-users@listserver.u2ug.org Subject: Re: [U2] U2 is now Rocket U2 Message-ID: 4ad1fb54.9050...@comcast.net Content-Type: text/plain; charset=ISO-8859-1; format=flowed Now, Rob, wait a minute... also having over 30 years experience in the MV world, I have watched the progression from LP to tape to CD to digital (iPod, etc.), the real advances from kilobytes of memory to gigabytes, from megabytes of disk to terabytes, and from kilohertz of CPU speed to gigahertz. Audiophiles are discovered what I have always believed: the richness of sound of the old vinyl LP can't be matched by today's digital music, and the LP is enjoying a much deserved return to glory. I'm glad I didn't get rid of my vinyl collection, although, like me, it is showing its age. I wish Rocket all the best. I hope they understand what they really have. Although I work with Jbase now, I have spent many enjoyable years working with both Universe and Unidata, and they, like all the other MV environments I've worked with, make our jobs easy and fun. I've tried other environments over the years, and have always concluded that I already had the best the computer world had to offer, so why should I use something else not nearly as powerful? It may have been around for many years, but it's ability to adapt to and work with the most modern of technologies keeps it fresh, flexible and strong.
Re: [U2] Unibasic: Sample program - to extract data from Table
This data is obviously from an company that deals with a Colorado data or is based in Colorado. And you are from outsource product develop company in India that has been tasked to work on this U2 system. So...We have some programmers that know U2 that need more work... So...Why are we teaching the competition?... So...They are probably only charging 10 to 20 per hour... So...We are charging a lot more per hour which is why we are not doing the work... A discussion for a different time, so maybe my next blog. Regards, Doug www.u2logic.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 7:24 AM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks for your support. We get output of multivalve columns. Only things is we can not get out of DATE column is date format. So please give your suggestions. JonesBob123 E. 23rd St. Arvada CO 80276 3037768854 V4341 9611D C R 7 FrobisherKamal P.O. Box 9845 Denver CO 80209- 3037780880 K O 33 Steven Spender 1212 W. 44thDenver CO 80401 3034457878 3 Jamieson Dale 999 Independence WaySeattle WI 98733 V6670 96118 One more query @ID column is missing in output.csv, please suggest how to get that @ID column in output.csv. Regards Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:58 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Output is not readable:- 14334ýITOý0ýAýý16811,14334ýCHAý CHA to Risk Rate: Mass_Aýýý16811 14369ýITOý0ýAýý61491,14369ýCHAý CHA to Risk Rate: Ten7_Aýýý61491 13977ýITAýýAýý60625 15030ýITOý0ýAýý70410,15030ýMEMý1ýPayment Responsibility ChangedýýFrom To N On 23-02-09ýýAýý70410,15030ýITAýýAýý70410 13973ýITAýýAýý38781,13973ýCHAý CHA to Risk Rate: MASS_Aýýý38781 15142ýITOý0ýAýý40128,15142ýMEMý1ýPayment Responsibility ChangedýýFrom To Y On 15-06-09ýýAýý40129 14369ýITOý0ýAýý64849,15263ýWKLýDC 040ýQueue 888Aýý47136 13910ýWKLýDC 040ýQueue 6AEAýý2898,13910ýSAPý13910ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý7858,13910ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý6RE1ýAýý14692,13911ýAOWýFrom BF01G013ýTo BF01G162ý6EQ.01ýQUEUE-SPLITTERýýAýý15360,13911ýWKLýDC 040ýQueue 6EQ.03ýýQUEUE-SPLITTERýýAýý15360,13942ý WKLýDC 040ýQueue 6AEAýý5421,13942ýSAPý13942ý6RE1ý1ý60+DAY EA ROUTE 1ýQ6AEýAýý9757,13942ýSUSýFailed ValidationýýýWITH SIXTYD.ABOVE.AMT.OVRD GE 10.00 ý Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: Monday, October 12, 2009 5:02 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Many Many Thanks Edward and Symeon Its work... Thanks Regards, Dattatraya Walgude -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Monday, October 12, 2009 4:55 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table ELSE NULL Will work. Syntax for all these commands is in BASR.PDF, downloadable from web for free... Edward -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 12 October 2009 12:22 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Thanks Symeon I have created one program file (outfile ) with followinf contents Facing compilation error OPEN 'CUSTOMER' TO FIL ELSE STOP 201 'CUSTOMER' OPENSEQ 'OUTPUT.CSV' TO CSVFIL WEOFSEQ CSVFIL SELECT FIL LOOP WHILE READNEXT ID DO READ REC FROM FIL,ID THEN LINE = '' : CHANGE(CHANGE(REC,@AM,','),@SVM,',') : '' WRITESEQ LINE ON CSVFIL ELSE CRT 'CAN NOT EWRITE TO CSV FILE' END REPEAT Facing compilation error :BASIC BP outfile Compiling Unibasic: BP/outfile in mode 'u'. main program: syntax error at or before line 2 OPENSEQ 'OUTPUT.CSV' TO CSVFIL --^ Expecting: ELSE compilation failed Thanks Regards, Dattatraya Walgude DBA Team Rsystems International Ltd, Pune, ( : +91-20-22909212 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent: Monday, October 12, 2009 4:28 PM To: 'U2 Users
Re: [U2] U2 is now Rocket U2
Friends and those who could be... I've had more than a few years to think about the double-edged value proposition that extended relational database systems offer. Few of us actively immersed in developing and /or using extended relational databases can complain of their efficacy, reliability or supportability. Unfortunately the fact that they are economical to buy, economical to support and have low horsepower requirements did little to make the average IBM salesperson promote either uniVerse or uniData to prospective clients, especially when they were focused on acheiving sales quotas and six figure bonus awards. It's a brutal fact, that selling U2 and it's accompanying light-weight hardware requirements wasn't even a consideration in the minds of salespeople accustomed to selling big iron and full-time consulting to DB2 and Informix shops. Consider for a moment, the IBM salesman who sold a few DB2 systems in a year, along with heavyweight iron and easily made quota and a very nice bonus, thank-you. Big systems command big bucks and make a big imprint at the boardroom where everyone from the president on down knew that a sizeable investment was being made with IBM. One or two full-time IBM techs become site-specialists and were added to the company payroll. The CEO gets bragging rights at the golf course and the country club for making a 7+ million dollar investment. That's not bad. That's good, it keeps the economy moving. If the IBM salesperson were to however concentrate on selling value priced universe or unidata solutions where a few hundred users can be supported on pint sized hardware and the quotation comes in at possibly 8% of the cost of the DB2 solution, what happens? No one at the board level takes notice. No one gets bragging rights for a $560k investment as no one at the club would believe a system could be bought that cheaply. Since no IBM techs were added to the company payroll, and no big-iron was purchased, the IBM salesman would have to work very hard for a very long time and sell a record setting quantity of cheap PC's and uv licenses to every mom and pop shop and 10 cent store to make the monthly quotas. If you were a salesman who had to meet a monthly quota, what would you sell? It's an unfortunate fact of business (and life too), that cheap rarely garners respect (and that applies for most walks of life). I hope that Rocket Software finds an appropriate niche with their purchase of uniVerse and uniData. Looking forward, the logical direction that I see for Rocket Software, is marketing big-ticket applications that take advantage of extended relational (multi-dimensional) database solutions to achieve superb results for their customers, and earn far greater profit margins for themselves than most pick vendors ever envisioned - except for Ted Sabarese :-). Regards Lee Bacall Binary Star Development Corporation www.binarystar.com ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unibasic: Sample program - to extract data from Table
And you are from outsource product develop company in India that has been tasked to work on this U2 system. http://www.rsystems.com/ It is a question that needs to be asked. Was this firm contracted for support or for development? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] U2 is now Rocket U2
Love the U2-rocket story, Dominic. I don't know if there is any U2 in Russia or related countries, but I understand that some PICK or PICK-a-like system was used to track Russian spies in the US, perhaps all the way to the end of the cold war. If anyone has details on that, such as which MV flavor it was (something I might have known at one time), I'd be interested. [And, yes, I know, I know, I shouldn't be on this list--it should move over to U2C, but ...] Cheers! --dawn -- Dawn M. Wolthuis Take and give some delight today On Mon, Oct 12, 2009 at 2:36 PM, Dominic Baron dominic.ba...@publictrust.co.nz wrote: Yes, I also like U2. It has interesting historical associations, for those of us of a certain age. It was a U2 spy-plane that was shot down by a rocket over the USSR in 1960 that led to quite a frosty first meeting between Khruschev and Kennedy in Geneva that year. Which leads me to ask if anyone knows whether any U2 (DB's of course) installations exist in Russia or in any of the former Soviet Republics? Dominic Baron. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unibasic: Sample program - to extract data from Table
Doesn't matter which. We are the next group that will be asked to work for reduced pay or our work will go to India. Bruce M Neylon Health Care Management Group Phone: (301) 608-8633 Charlie Rubeor crub...@1199nefunds.org Sent by: u2-users-boun...@listserver.u2ug.org 10/12/2009 04:10 PM Please respond to U2 Users List u2-users@listserver.u2ug.org To 'U2 Users List' u2-users@listserver.u2ug.org cc Subject Re: [U2] Unibasic: Sample program - to extract data from Table And you are from outsource product develop company in India that has been tasked to work on this U2 system. http://www.rsystems.com/ It is a question that needs to be asked. Was this firm contracted for support or for development? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] U2 is now Rocket U2
Prime Information Jerry Banker -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dawn Wolthuis Sent: Monday, October 12, 2009 3:32 PM To: U2 Users List Subject: Re: [U2] U2 is now Rocket U2 Love the U2-rocket story, Dominic. I don't know if there is any U2 in Russia or related countries, but I understand that some PICK or PICK-a-like system was used to track Russian spies in the US, perhaps all the way to the end of the cold war. If anyone has details on that, such as which MV flavor it was (something I might have known at one time), I'd be interested. [And, yes, I know, I know, I shouldn't be on this list--it should move over to U2C, but ...] Cheers! --dawn -- Dawn M. Wolthuis Take and give some delight today On Mon, Oct 12, 2009 at 2:36 PM, Dominic Baron dominic.ba...@publictrust.co.nz wrote: Yes, I also like U2. It has interesting historical associations, for those of us of a certain age. It was a U2 spy-plane that was shot down by a rocket over the USSR in 1960 that led to quite a frosty first meeting between Khruschev and Kennedy in Geneva that year. Which leads me to ask if anyone knows whether any U2 (DB's of course) installations exist in Russia or in any of the former Soviet Republics? Dominic Baron. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unibasic: Sample program - to extract data from Table
Indian development firms aren't all they're cracked up to be, especially in anything other than Microsoft technologies. I've seen exactly this progression in other language lists to which I belong. Indian firm gets contract based on price and claim to know the language. Indian firm tries to get free help from mailing lists, newsgroups, etc, because they don't understand the technology. Indian firm loses contract or is not renewed. We've got personal experience in taking development contracts away from this type of firm. Larry Hiscock Western Computer Services -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of bney...@hcmg.net Sent: Monday, October 12, 2009 1:47 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Doesn't matter which. We are the next group that will be asked to work for reduced pay or our work will go to India. Bruce M Neylon Health Care Management Group Phone: (301) 608-8633 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] U2 is now Rocket U2
What you say is correct Lee. However those days are gone with GFC for many large operations. U2 sales are OEM, people buy the package not the database. Even Oracle, is doing a major push to attract OEM as their sales future and so is Microsoft. Most boards, managers and companies do not even know that they are running U2, they are running an ERP system, an MRP system, a library system, etc. IBM knows it needs to sell through OEM, but it cannot get there. IBM knows that its market opportunity lies with SME, but does not know how to deal with them. Even before GFC sales to large corporations had squeezed. I remember something at a Digital sales conference. The top 20% of their customers were responsible for 70% of the revenue, however the other 80% were responsible for all the profit. The problem with big sites, is that sales had little margin, as the company wanted to say that they had these guys as customers. With the GFC, managers are looking more and more for value and delivery of results from IT and IT managers jobs are on the line. Whilst I don't see this as U2 going to increase sales 200 or 300 %, I do believe that there is an immense opportunity open up for U2 packages. Regards David Jordan ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] U2 is now Rocket U2
Pick Systems actually had RD over in Russia 10 years ago, not sure if that is still the case ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] EXECUTE 'CLEARSELECT'
Thanks for the replies, @David Hona Thanks for that. There shouldn't be an issue with the execution layer of EXECUTE in regards to select lists as the following processes correctly: Giving a FILE, X with 3 records: AA, AB and BB EXECUTE 'SELECT X with @ID = A]' EXECUTE 'SELECT X with @ID = [B' Correctly returns 1 record, AB. I tested all the EXECUTE/PERFORM variants with the below code and the only one that makes a difference is UDTEXECUTE CLEARSELECT, which works as advertised. The difference between UDTEXECUTE and EXECUTE is that UDTEXECUTE always processes the commands in ECLTYPE U. From the Manual for UDTEXECUTE: When you compile a program in BASICTYPE P, EXECUTE or PERFORM passes the string to execute to a nonstandard UniData parser. This parser looks for a specific sentence structure common to BASICTYPE P systems. Standard UniQuery sentences might not be handled correctly in this circumstance. Therefore, when you want to execute a standard UniQuery statement from within a UniBasic program that has been compiled in BASICTYPE P, use the UDTEXECUTE command instead of EXECUTE or PERFORM. CLEARSELECT, however, should be valid for Pick and should function correctly. This leads me to believe, at least in UD 7.1, that the Pick Parser used in EXECUTE when in BASICTYPE P is broken in regards to CLEARSELECT (As evidenced by the SELECT response and SYSTEM(11) disagreement.) Our problem now is that we have many existing programs that use EXECUTE CLEARSELECT that we now need to verify are functioning correctly and fix as required. Mainly, I was interested if anyone else who has to operate their UD system in ECLTYPE P, BASICTYPE P that is - Aware of this issue, - Can verify it outside of 7.1 (Eg, 7.2) @David Laansma Yes, we are aware of that. The below code is simply a trivial example program to demonstration the issue. The issue comes into play when, for example, you do a SELECT on a FILE and need to bail out part way through processing the select list, then attempt to perform a new SELECT the same file. In this case, if your program is compiled in BASICTYPE P and used EXECUTE CLEARSELECT to clear the select list from the first SELECT, it will not actually clear the select list and result in the second SELECT being incorrect. Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dave Laansma Sent: Monday, 12 October 2009 11:03 PM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' If you goal is to simply count the number of records that match a criteria, consider the COUNT statement. David Laansma IT Manager Hubbard Supply Co. Direct: 810-342-7143 Office: 810-234-8681 Fax: 810-234-6142 www.hubbardsupply.com Delivering Products, Services and Innovative Solutions -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Hona, David Sent: Monday, October 12, 2009 12:55 AM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' This usually indicates that your EXECUTE is executing at a different execution layer. Prime INFORMATION did this by default and had to use PERFORM to use the same runtime execution layer or overide with a $option statement. From: u2-users-boun...@listserver.u2ug.org [u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath [dmc...@imb.com.au] Sent: Monday, 12 October 2009 1:56 PM To: u2-users@listserver.u2ug.org Subject: [U2] EXECUTE 'CLEARSELECT' Hi all, One of the programmers here has noticed this quirky behaviour in Unidata 7.1. First, we created a file called TEST and gave it 3 records, AA, AB and AC. Then we executed the following program: PROGRAM TEST CLEARSELECT EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL EXECUTE CLEARSELECT CRT Records after EXECUTE CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL CLEARSELECT CRT Records after CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) STOP and received the following results: 3 records selected to list 0. Records after SELECT 3 Records after EXECUTE CLEARSELECT: 2 3 records selected to list 0. Records after SELECT 2 Records after CLEARSELECT: 0 3 records selected to list 0. Records after SELECT 3 We would expect SYSTEM(11) to return 0 after the EXECUTE CLEARSELECT but it returns how many items were in the list prior to the CLEARSELECT. Also odd is that the select itself returns that it selected 3 records, but then SYSTEM(11) reports 2 and READNEXT will only extract 2 from the list. The work around is to use Unibasic CLEARSELECT which functions correctly as demonstrated above. When testing this using BASICTYPE u and WHEN @ID LIKE the
Re: [U2] EXECUTE 'CLEARSELECT'
You can just use the CLEARSELECT function in your basic code on UV, instead of using execute or perform. Tom -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath Sent: Monday, October 12, 2009 5:56 PM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' Thanks for the replies, @David Hona Thanks for that. There shouldn't be an issue with the execution layer of EXECUTE in regards to select lists as the following processes correctly: Giving a FILE, X with 3 records: AA, AB and BB EXECUTE 'SELECT X with @ID = A]' EXECUTE 'SELECT X with @ID = [B' Correctly returns 1 record, AB. I tested all the EXECUTE/PERFORM variants with the below code and the only one that makes a difference is UDTEXECUTE CLEARSELECT, which works as advertised. The difference between UDTEXECUTE and EXECUTE is that UDTEXECUTE always processes the commands in ECLTYPE U. From the Manual for UDTEXECUTE: When you compile a program in BASICTYPE P, EXECUTE or PERFORM passes the string to execute to a nonstandard UniData parser. This parser looks for a specific sentence structure common to BASICTYPE P systems. Standard UniQuery sentences might not be handled correctly in this circumstance. Therefore, when you want to execute a standard UniQuery statement from within a UniBasic program that has been compiled in BASICTYPE P, use the UDTEXECUTE command instead of EXECUTE or PERFORM. CLEARSELECT, however, should be valid for Pick and should function correctly. This leads me to believe, at least in UD 7.1, that the Pick Parser used in EXECUTE when in BASICTYPE P is broken in regards to CLEARSELECT (As evidenced by the SELECT response and SYSTEM(11) disagreement.) Our problem now is that we have many existing programs that use EXECUTE CLEARSELECT that we now need to verify are functioning correctly and fix as required. Mainly, I was interested if anyone else who has to operate their UD system in ECLTYPE P, BASICTYPE P that is - Aware of this issue, - Can verify it outside of 7.1 (Eg, 7.2) @David Laansma Yes, we are aware of that. The below code is simply a trivial example program to demonstration the issue. The issue comes into play when, for example, you do a SELECT on a FILE and need to bail out part way through processing the select list, then attempt to perform a new SELECT the same file. In this case, if your program is compiled in BASICTYPE P and used EXECUTE CLEARSELECT to clear the select list from the first SELECT, it will not actually clear the select list and result in the second SELECT being incorrect. Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dave Laansma Sent: Monday, 12 October 2009 11:03 PM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' If you goal is to simply count the number of records that match a criteria, consider the COUNT statement. David Laansma IT Manager Hubbard Supply Co. Direct: 810-342-7143 Office: 810-234-8681 Fax: 810-234-6142 www.hubbardsupply.com Delivering Products, Services and Innovative Solutions -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Hona, David Sent: Monday, October 12, 2009 12:55 AM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' This usually indicates that your EXECUTE is executing at a different execution layer. Prime INFORMATION did this by default and had to use PERFORM to use the same runtime execution layer or overide with a $option statement. From: u2-users-boun...@listserver.u2ug.org [u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath [dmc...@imb.com.au] Sent: Monday, 12 October 2009 1:56 PM To: u2-users@listserver.u2ug.org Subject: [U2] EXECUTE 'CLEARSELECT' Hi all, One of the programmers here has noticed this quirky behaviour in Unidata 7.1. First, we created a file called TEST and gave it 3 records, AA, AB and AC. Then we executed the following program: PROGRAM TEST CLEARSELECT EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL EXECUTE CLEARSELECT CRT Records after EXECUTE CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL CLEARSELECT CRT Records after CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) STOP and received the following results: 3 records selected to list 0. Records after SELECT 3 Records after EXECUTE CLEARSELECT: 2 3 records selected to list 0. Records after SELECT 2 Records after CLEARSELECT: 0 3 records selected to list 0. Records after SELECT 3 We would expect SYSTEM(11) to return 0 after the EXECUTE CLEARSELECT but it returns how many
Re: [U2] EXECUTE 'CLEARSELECT'
Indeed, the same is true in UD and that has what we have told all the programmers moving forward. When we have over 3000 UD programs as part of the live system, the maintenance work to fix all those already affected (read: Paper work and approval...), is the real pain. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Tom Whitmore Sent: Tuesday, 13 October 2009 9:26 AM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' You can just use the CLEARSELECT function in your basic code on UV, instead of using execute or perform. Tom -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath Sent: Monday, October 12, 2009 5:56 PM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' Thanks for the replies, @David Hona Thanks for that. There shouldn't be an issue with the execution layer of EXECUTE in regards to select lists as the following processes correctly: Giving a FILE, X with 3 records: AA, AB and BB EXECUTE 'SELECT X with @ID = A]' EXECUTE 'SELECT X with @ID = [B' Correctly returns 1 record, AB. I tested all the EXECUTE/PERFORM variants with the below code and the only one that makes a difference is UDTEXECUTE CLEARSELECT, which works as advertised. The difference between UDTEXECUTE and EXECUTE is that UDTEXECUTE always processes the commands in ECLTYPE U. From the Manual for UDTEXECUTE: When you compile a program in BASICTYPE P, EXECUTE or PERFORM passes the string to execute to a nonstandard UniData parser. This parser looks for a specific sentence structure common to BASICTYPE P systems. Standard UniQuery sentences might not be handled correctly in this circumstance. Therefore, when you want to execute a standard UniQuery statement from within a UniBasic program that has been compiled in BASICTYPE P, use the UDTEXECUTE command instead of EXECUTE or PERFORM. CLEARSELECT, however, should be valid for Pick and should function correctly. This leads me to believe, at least in UD 7.1, that the Pick Parser used in EXECUTE when in BASICTYPE P is broken in regards to CLEARSELECT (As evidenced by the SELECT response and SYSTEM(11) disagreement.) Our problem now is that we have many existing programs that use EXECUTE CLEARSELECT that we now need to verify are functioning correctly and fix as required. Mainly, I was interested if anyone else who has to operate their UD system in ECLTYPE P, BASICTYPE P that is - Aware of this issue, - Can verify it outside of 7.1 (Eg, 7.2) @David Laansma Yes, we are aware of that. The below code is simply a trivial example program to demonstration the issue. The issue comes into play when, for example, you do a SELECT on a FILE and need to bail out part way through processing the select list, then attempt to perform a new SELECT the same file. In this case, if your program is compiled in BASICTYPE P and used EXECUTE CLEARSELECT to clear the select list from the first SELECT, it will not actually clear the select list and result in the second SELECT being incorrect. Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dave Laansma Sent: Monday, 12 October 2009 11:03 PM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' If you goal is to simply count the number of records that match a criteria, consider the COUNT statement. David Laansma IT Manager Hubbard Supply Co. Direct: 810-342-7143 Office: 810-234-8681 Fax: 810-234-6142 www.hubbardsupply.com Delivering Products, Services and Innovative Solutions -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Hona, David Sent: Monday, October 12, 2009 12:55 AM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' This usually indicates that your EXECUTE is executing at a different execution layer. Prime INFORMATION did this by default and had to use PERFORM to use the same runtime execution layer or overide with a $option statement. From: u2-users-boun...@listserver.u2ug.org [u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath [dmc...@imb.com.au] Sent: Monday, 12 October 2009 1:56 PM To: u2-users@listserver.u2ug.org Subject: [U2] EXECUTE 'CLEARSELECT' Hi all, One of the programmers here has noticed this quirky behaviour in Unidata 7.1. First, we created a file called TEST and gave it 3 records, AA, AB and AC. Then we executed the following program: PROGRAM TEST CLEARSELECT EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL EXECUTE CLEARSELECT CRT Records after EXECUTE CLEARSELECT: :SYSTEM(11) EXECUTE 'SELECT TEST WITH @ID = A]' CRT Records after SELECT :SYSTEM(11) READNEXT KEY ELSE NULL CLEARSELECT CRT
Re: [U2] U2 is now Rocket U2
Didn't Ultimate have a development center around Moscow? Steve -- Sent from my Palm Pre jpb-u2ug wrote: Prime Information Jerry Banker -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dawn Wolthuis Sent: Monday, October 12, 2009 3:32 PM To: U2 Users List Subject: Re: [U2] U2 is now Rocket U2 Love the U2-rocket story, Dominic. I don't know if there is any U2 in Russia or related countries, but I understand that some PICK or PICK-a-like system was used to track Russian spies in the US, perhaps all the way to the end of the cold war. If anyone has details on that, such as which MV flavor it was (something I might have known at one time), I'd be interested. [And, yes, I know, I know, I shouldn't be on this list--it should move over to U2C, but ...] Cheers! --dawn -- Dawn M. Wolthuis Take and give some delight today On Mon, Oct 12, 2009 at 2:36 PM, Dominic Baron lt;dominic.ba...@publictrust.co.nz wrote: Yes, I also like U2. It has interesting historical associations, for those of us of a certain age. It was a U2 spy-plane that was shot down by a rocket over the USSR in 1960 that led to quite a frosty first meeting between Khruschev and Kennedy in Geneva that year. Which leads me to ask if anyone knows whether any U2 (DB's of course) installations exist in Russia or in any of the former Soviet Republics? Dominic Baron. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] EXECUTE 'CLEARSELECT'
Dan: I'm running v7.2 here in my development environment and v7.1 elsewhere in several production environments. This program runs the same on both environments: 2 Dev (0)- BPTEST EXECUTE \SELECT TEMP\ CAPTURING OUTPUT ; NoOfItems = SYSTEM(11) ; CRT NoOfItems : ' selected...' ; CLEARSELECT ; CRT SYSTEM(11) : ' items after CLEARSELECT...' ; END Compiling Unibasic: SAVEDLISTS\BpTest_553739081 in mode 'p'. compilation finished 6 selected... 0 items after CLEARSELECT... This isn't the same as you wrote (you inserted READNEXTs between these commands) but it did respond as I expected. We should note I use exclusively PICK mode (a combination of UDT.OPTIONS settings and a few other settings). I ran your program and got the following: 2 Dev (0)- RUN BP BILL 10 records selected to list 0. Records after SELECT 10 Records after EXECUTE CLEARSELECT: 9 10 records selected to list 0. Records after SELECT 9 Records after CLEARSELECT: 0 10 records selected to list 0. Records after SELECT 10 2 Dev (0) LIST TEMP LIST TEMP 15:38:44 Oct 12 2009 1 TEMP.. ARTCHOLD ARLEDGER.FIX ARTL.UPD ATGUIERROR APREVIEW APPEND.ACCT ATGUIGETPROPS ATGUICREATELIST A9 ADD.MULTIVALUES 10 records listed 2 Dev (0)- But I noticed you did an EXECUTE \CLEARSELECT\ in your code instead of CLEARSELECT. When I changed that particular line and reran the program I got the following: 2 Dev (0)- RUN BP BILL 10 records selected to list 0. Records after SELECT 10 Records after EXECUTE CLEARSELECT: 0 10 records selected to list 0. Records after SELECT 10 Records after CLEARSELECT: 0 10 records selected to list 0. Records after SELECT 10 2 Dev (0) So, I'd suggest using a BASIC CLEARSELECT as an execute should only clear the select within the new process created with the EXECUTE statement. I've converted a number of sites from D3 to UniData and noticed that, in rare instances, SYSTEM(11) doesn't work as advertised but in that case I was able to use @SYSTEM.RETURN.CODE after the select. Also, when using DesignBais we've noticed an unusual UniData list problem where a select list is carried beyond its scope back into another program. The code we had to use to fix this UniData bug was: *** SELECTION: *** * ** Fix a UniData bug that holds unused select lists CLEARSELECT * ** Parse some other information regarding the query xHigh = DCOUNT(DBSTORE(QUERYSLOT0), @AM) FOR X = 1 TO xHigh TclCmd = DBSTORE(QUERYSLOT0)X IF X xHigh THEN EXECUTE TclCmd CAPTURING Output IF NOT(SYSTEM(11)) THEN EXIT END END ELSE EXECUTE TclCmd RTNLIST DBRETURN.SELECT(1) CAPTURING DBSTORE(QUERYRESULT) RETURNING MSG1 * ** Need to clear select to fix the UniData bug CLEARSELECT END NEXT X RETURN HTH, Bill Dan McGrath said the following on 10/12/2009 2:56 PM: Thanks for the replies, @David Hona Thanks for that. There shouldn't be an issue with the execution layer of EXECUTE in regards to select lists as the following processes correctly: Giving a FILE, X with 3 records: AA, AB and BB EXECUTE 'SELECT X with @ID = A]' EXECUTE 'SELECT X with @ID = [B' Correctly returns 1 record, AB. I tested all the EXECUTE/PERFORM variants with the below code and the only one that makes a difference is UDTEXECUTE CLEARSELECT, which works as advertised. The difference between UDTEXECUTE and EXECUTE is that UDTEXECUTE always processes the commands in ECLTYPE U. From the Manual for UDTEXECUTE: When you compile a program in BASICTYPE P, EXECUTE or PERFORM passes the string to execute to a nonstandard UniData parser. This parser looks for a specific sentence structure common to BASICTYPE P systems. Standard UniQuery sentences might not be handled correctly in this circumstance. Therefore, when you want to execute a standard UniQuery statement from within a UniBasic program that has been compiled in BASICTYPE P, use the UDTEXECUTE command instead of EXECUTE or PERFORM. CLEARSELECT, however, should be valid for Pick and should function correctly. This leads me to believe, at least in UD 7.1, that the Pick Parser used in EXECUTE when in BASICTYPE P is broken in regards to CLEARSELECT (As evidenced by the SELECT response and SYSTEM(11) disagreement.) Our problem now is that we have many existing programs that use EXECUTE CLEARSELECT that we now need to verify are functioning correctly and fix as required. Mainly, I was interested if anyone else who has to operate their UD system in ECLTYPE P, BASICTYPE P that is - Aware of this issue, - Can verify it outside of 7.1 (Eg, 7.2) @David Laansma Yes, we are aware of that. The below code is simply a trivial example program to demonstration the issue. The issue comes into play when, for example, you do a SELECT on a FILE and need to bail out part way through processing the select list, then attempt to perform a new SELECT the same file. In this case, if your program is compiled in BASICTYPE P and used EXECUTE CLEARSELECT to clear the select
Re: [U2] EXECUTE 'CLEARSELECT'
Thanks Bill, The Dev was pulling his hair out for a while working out why some code was apparently processing 8 records, but only actually did it on 4. The joys of working with legacy code (or any code, I guess.) :) I think the code we are running was ported from Pick to UD 5.x originally, so potentially these programs code have been subtly misbehaving for over 20 years now, or just since we upgraded to 7.x -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett Sent: Tuesday, 13 October 2009 9:52 AM To: U2 Users List Subject: Re: [U2] EXECUTE 'CLEARSELECT' Dan: I'm running v7.2 here in my development environment and v7.1 elsewhere in several production environments. This program runs the same on both environments: 2 Dev (0)- BPTEST EXECUTE \SELECT TEMP\ CAPTURING OUTPUT ; NoOfItems = SYSTEM(11) ; CRT NoOfItems : ' selected...' ; CLEARSELECT ; CRT SYSTEM(11) : ' items after CLEARSELECT...' ; END Compiling Unibasic: SAVEDLISTS\BpTest_553739081 in mode 'p'. compilation finished 6 selected... 0 items after CLEARSELECT... This isn't the same as you wrote (you inserted READNEXTs between these commands) but it did respond as I expected. We should note I use exclusively PICK mode (a combination of UDT.OPTIONS settings and a few other settings). I ran your program and got the following: 2 Dev (0)- RUN BP BILL 10 records selected to list 0. Records after SELECT 10 Records after EXECUTE CLEARSELECT: 9 10 records selected to list 0. Records after SELECT 9 Records after CLEARSELECT: 0 10 records selected to list 0. Records after SELECT 10 2 Dev (0) LIST TEMP LIST TEMP 15:38:44 Oct 12 2009 1 TEMP.. ARTCHOLD ARLEDGER.FIX ARTL.UPD ATGUIERROR APREVIEW APPEND.ACCT ATGUIGETPROPS ATGUICREATELIST A9 ADD.MULTIVALUES 10 records listed 2 Dev (0)- But I noticed you did an EXECUTE \CLEARSELECT\ in your code instead of CLEARSELECT. When I changed that particular line and reran the program I got the following: 2 Dev (0)- RUN BP BILL 10 records selected to list 0. Records after SELECT 10 Records after EXECUTE CLEARSELECT: 0 10 records selected to list 0. Records after SELECT 10 Records after CLEARSELECT: 0 10 records selected to list 0. Records after SELECT 10 2 Dev (0) So, I'd suggest using a BASIC CLEARSELECT as an execute should only clear the select within the new process created with the EXECUTE statement. I've converted a number of sites from D3 to UniData and noticed that, in rare instances, SYSTEM(11) doesn't work as advertised but in that case I was able to use @SYSTEM.RETURN.CODE after the select. Also, when using DesignBais we've noticed an unusual UniData list problem where a select list is carried beyond its scope back into another program. The code we had to use to fix this UniData bug was: *** SELECTION: *** * ** Fix a UniData bug that holds unused select lists CLEARSELECT * ** Parse some other information regarding the query xHigh = DCOUNT(DBSTORE(QUERYSLOT0), @AM) FOR X = 1 TO xHigh TclCmd = DBSTORE(QUERYSLOT0)X IF X xHigh THEN EXECUTE TclCmd CAPTURING Output IF NOT(SYSTEM(11)) THEN EXIT END END ELSE EXECUTE TclCmd RTNLIST DBRETURN.SELECT(1) CAPTURING DBSTORE(QUERYRESULT) RETURNING MSG1 * ** Need to clear select to fix the UniData bug CLEARSELECT END NEXT X RETURN HTH, Bill Dan McGrath said the following on 10/12/2009 2:56 PM: Thanks for the replies, @David Hona Thanks for that. There shouldn't be an issue with the execution layer of EXECUTE in regards to select lists as the following processes correctly: Giving a FILE, X with 3 records: AA, AB and BB EXECUTE 'SELECT X with @ID = A]' EXECUTE 'SELECT X with @ID = [B' Correctly returns 1 record, AB. I tested all the EXECUTE/PERFORM variants with the below code and the only one that makes a difference is UDTEXECUTE CLEARSELECT, which works as advertised. The difference between UDTEXECUTE and EXECUTE is that UDTEXECUTE always processes the commands in ECLTYPE U. From the Manual for UDTEXECUTE: When you compile a program in BASICTYPE P, EXECUTE or PERFORM passes the string to execute to a nonstandard UniData parser. This parser looks for a specific sentence structure common to BASICTYPE P systems. Standard UniQuery sentences might not be handled correctly in this circumstance. Therefore, when you want to execute a standard UniQuery statement from within a UniBasic program that has been compiled in BASICTYPE P, use the UDTEXECUTE command instead of EXECUTE or PERFORM. CLEARSELECT, however, should be valid for Pick and should function correctly. This leads me to believe, at least in UD 7.1, that the Pick Parser used in EXECUTE when in BASICTYPE P is broken in regards to CLEARSELECT (As evidenced by the SELECT response and SYSTEM(11) disagreement.) Our problem now is that we have many existing programs that use EXECUTE
Re: [U2] EXECUTE 'CLEARSELECT'
What about overloading the CLEARSELECT voc item so that it runs a program that does a UDTEXECUTE CLEARSELECT. You wouldn't have to update your programs, plus when you upgraded to a version without this issue, you could easily remove the workaround. Note: I didn't test it to see how well/if it would work. Hth Colin Alfke Calgary, Canada -Original Message- From: Dan McGrath Indeed, the same is true in UD and that has what we have told all the programmers moving forward. When we have over 3000 UD programs as part of the live system, the maintenance work to fix all those already affected (read: Paper work and approval...), is the real pain. -Original Message- From: Tom Whitmore You can just use the CLEARSELECT function in your basic code on UV, instead of using execute or perform. Tom ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] EXECUTE 'CLEARSELECT'
Nope. I renamed CLEARSELECT to OLD.CLEARSELECT and did UDTEXECUTE OLD.CLEARSELECT so as to not have a recursion issue, but had no luck I tested it as follows: PROGRAM CLEARSELECT: 1 UDTEXECUTE OLD.CLEARSELECT Compiled and successfully tested on the command line: :SELECT TEST 3 records selected to list 0. CLEARSELECT : However, running it inside a program fails: EXECUTE SELECT TEST CAPTURING OUTPUT EOL = 0 LOOP READNEXT KEY ELSE EOL = 1 UNTIL EOL CRT Processing record: :KEY EXECUTE CLEARSELECT REPEAT Results in: Processing record: AA Processing record: AB Processing record: AC I tried every other combination I could think off (only 3 :)). 1) Overloaded CLEARSELECT as a program that just has the Unibasic CLEARSELECT call 2) Overloaded CLEARSELECT as a program that just has the Unibasic CLEARSELECT ALL call 3) Creating an empty file and having the overloaded CLEARSELECT do a select on that. But all failed. Oh well. More work keeps more people employed :) -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Colin Alfke Sent: Tuesday, 13 October 2009 3:34 PM To: 'U2 Users List' Subject: Re: [U2] EXECUTE 'CLEARSELECT' What about overloading the CLEARSELECT voc item so that it runs a program that does a UDTEXECUTE CLEARSELECT. You wouldn't have to update your programs, plus when you upgraded to a version without this issue, you could easily remove the workaround. Note: I didn't test it to see how well/if it would work. Hth Colin Alfke Calgary, Canada ### The information transmitted in this message and attachments (if any) is intended only for the person or entity to which it is addressed. The message may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from any computer. The intended recipient of this e-mail may only use, reproduce, disclose or distribute the information contained in this e-mail and any attached files with the permission of IMB. ### ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
