RE: [U2] Press any key to continue...
While INPUT ANS,1 will work most of the time, if the user decides to press the backspace key or even the ESC key, nothing will happen. An alternative is: ANS = KEYIN() CLEARINPUT Which will grab a single character (including a backspace, etc). Note: if the keystroke sends two characters (eg. an escape sequence of an editing key - like Ins, Del, Page Up, etc) then KEYIN() will only get the first character. The CLEARINPUT statement clears all additional characters from the input buffer. --Adrian DISCLAIMER: Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV users in Holland
Hi Martin There are a number, but client confidentiality means I canbt respond unfortunately. If you follow up with [EMAIL PROTECTED] they should b3 able to assist if the sites are referenceable Otherwise - if you can let me know offline by PM who the Company is I may be able to put you in touch with an appropriate contact, though I canbt promise. Regards JayJay --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse SQL Tables
My test program uses OPENCHECK so the setting if this parameter should not be having any effect. However, just to stoke the fire, I have verified via uvconfig & >CONFIG DATA that we do have OPENCHK set to '1' !! So we should be seeing data constraint errors being reported by OPEN/WRITE , OPENCHECK/WRITE & ICHECK !! I have written up a summary and sent it off to the client's sys admin to pass on to their universe support. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Clifton Oliver Sent: April 29, 2008 5:56 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniVerse SQL Tables The parameter is OPENCHK. "OPENCHK - the modifies the behavior of operations upon files open via the BASIC OPEN statement. When set to zero, I/O to files open with the BASIC OPEN statement ignore integrity constraints. If non- zero those files will observe the constraints. This tunable does not affect files opened via the OPENCHECK statement." Regards, Clif -- W. Clifton Oliver, CCP CLIFTON OLIVER & ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com On Apr 29, 2008, at 1:56 PM, David Jordan wrote: > Hi Gerry > > I think there is an option in UvConfig that allows bad data to be > written to > a table despite constraints. I have not been able to write bad > data to an > SQL Table as you have done in the test program. > > Regards > > David Jordan > > Managing Consultant > --- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] UniVerse SQL Tables
The parameter is OPENCHK. "OPENCHK - the modifies the behavior of operations upon files open via the BASIC OPEN statement. When set to zero, I/O to files open with the BASIC OPEN statement ignore integrity constraints. If non- zero those files will observe the constraints. This tunable does not affect files opened via the OPENCHECK statement." Regards, Clif -- W. Clifton Oliver, CCP CLIFTON OLIVER & ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com On Apr 29, 2008, at 1:56 PM, David Jordan wrote: Hi Gerry I think there is an option in UvConfig that allows bad data to be written to a table despite constraints. I have not been able to write bad data to an SQL Table as you have done in the test program. Regards David Jordan Managing Consultant --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV users in Holland
Hi Martin, I know that Andy Lakeland, who I think is still on this list, is in Holland, he is not in the insurance business but he may know someone. Probably a big ask - insurance business, Holland and universe you know ... Symeon -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: 29 April 2008 17:42 To: u2-users@listserver.u2ug.org Subject: [U2] UV users in Holland Hi all, I am looking for a UniVerse user in the insurance business in Holland who would be willing to take a call from a prospective UV user to verify that multivalue is a serious option and not some obscure technology. I will be talking with them late May / early June but they want to find some real users in their own business too. Please do not post lists of users in other countries. The client specifically wants one in Holland. Thanks Martin Phillips, Ladybridge Systems --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Press any key to continue...
INPUT ANS,1 Jerry Banker Senior Programmer Analyst IBM Certified Solutions Expert -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Ferries Sent: Tuesday, April 29, 2008 2:46 PM To: u2-users@listserver.u2ug.org Subject: [U2] Press any key to continue... Hi All, We were coding a standard INPUT ANS after asking a user to "Press any key to continue...". We noticed that the program would not accept a Space Bar as a valid key; it only moves the cursor to the right. However, the Press any key to continue... message from UniVerse accepts the Space Bar as a valid key. Can someone shed any light on how this prompt works? We know the magic command to suppress the message: UDUMY = @(0), but we are more interested in why the INPUT command does not treat the space as the UniVerse message does. Thanks Steve Steve Ferries Vice President Information Technologies Total Credit Recovery Limited --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Press any key to continue...
Consider using... input Ans, 1 The effect of the ", 1" input will look for a single keystroke. --Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Steve Ferries Sent: Tuesday, April 29, 2008 3:46 PM To: u2-users@listserver.u2ug.org Subject: [U2] Press any key to continue... Hi All, We were coding a standard INPUT ANS after asking a user to "Press any key to continue...". We noticed that the program would not accept a Space Bar as a valid key; it only moves the cursor to the right. However, the Press any key to continue... message from UniVerse accepts the Space Bar as a valid key. Can someone shed any light on how this prompt works? We know the magic command to suppress the message: UDUMY = @(0), but we are more interested in why the INPUT command does not treat the space as the UniVerse message does. Thanks Steve Steve Ferries Vice President Information Technologies Total Credit Recovery Limited --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse SQL Tables
Hi Gerry I think there is an option in UvConfig that allows bad data to be written to a table despite constraints. I have not been able to write bad data to an SQL Table as you have done in the test program. Regards David Jordan Managing Consultant --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Press any key to continue...
Try: INPUT ANS,1 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Ferries Sent: Tuesday, April 29, 2008 3:46 PM To: u2-users@listserver.u2ug.org Subject: [U2] Press any key to continue... Hi All, We were coding a standard INPUT ANS after asking a user to "Press any key to continue...". We noticed that the program would not accept a Space Bar as a valid key; it only moves the cursor to the right. However, the Press any key to continue... message from UniVerse accepts the Space Bar as a valid key. Can someone shed any light on how this prompt works? We know the magic command to suppress the message: UDUMY = @(0), but we are more interested in why the INPUT command does not treat the space as the UniVerse message does. Thanks Steve Steve Ferries Vice President Information Technologies Total Credit Recovery Limited --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Press any key to continue...
Hi All, We were coding a standard INPUT ANS after asking a user to "Press any key to continue...". We noticed that the program would not accept a Space Bar as a valid key; it only moves the cursor to the right. However, the Press any key to continue... message from UniVerse accepts the Space Bar as a valid key. Can someone shed any light on how this prompt works? We know the magic command to suppress the message: UDUMY = @(0), but we are more interested in why the INPUT command does not treat the space as the UniVerse message does. Thanks Steve Steve Ferries Vice President Information Technologies Total Credit Recovery Limited --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] UV users in Holland
Hi all, I am looking for a UniVerse user in the insurance business in Holland who would be willing to take a call from a prospective UV user to verify that multivalue is a serious option and not some obscure technology. I will be talking with them late May / early June but they want to find some real users in their own business too. Please do not post lists of users in other countries. The client specifically wants one in Holland. Thanks Martin Phillips, Ladybridge Systems --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse SQL Tables
Just so there is no question , below is the output of a simple test
program ,
Note that the INSERTs fail on bad data as they should but
OPENCHECK/WRITE & ICHECK do not.
Bad data is definitely being written into the table.
OS Info :
>.L RELLEVEL
RELLEVEL
001 X
002 10.1.8
003 NEWACC
004
005 10.1.8
>SH
$ uname -rmsv
HP-UX B.11.11 U 9000/800
COMO SQL established 09:00:26 29 APR 2008
SQLTEST
0001crt @(0):
0002execute 'TERM 400'
0003execute 'COMO ON SQL'
0004
0005execute 'CT B.BP SQLTEST -NO.PAGE'
0006
0007crt ; crt ; crt
0008
0009note='Drop existing table'
0010xqt= 'DROP TABLE TAB1 ;'
0011gosub exec
0012
0013note='Create new table'
0014xqt ='CREATE TABLE "TAB1"'
0015xqt:='('
0016xqt:=' "KEY1" CHAR(4) FORMAT "4L" ,'
0017xqt:=' "VAL1" DATE FORMAT "10R" CONV "D4-YMD" ,'
0018xqt:=' "VAL2" TIME FORMAT "8R" CONV "MTS" ,'
0019xqt:=' "VAL3" DECIMAL(10,2) FORMAT "10R" CONV "MD2" ,'
0020xqt:=' "VAL4" INT FORMAT "10R" ,'
0021xqt:=' PRIMARY KEY ( KEY1 )'
0022xqt:=') ;'
0023gosub exec
0024
0025note='List table structure'
0026xqt='LIST.SICA TAB1 NO.PAGE'
0027gosub exec
0028
0029crt '==='
0030crt '=== OPENCHECK : ':
0031opencheck 'TAB1' to fp
0032then crt 'ok'
0033else abortm '** else'
0034crt '==='
0035crt
0036
0037crt '==='
0038crt '=== good data : no validation errors'
0039crt '==='
0040id="REC1"
0041rec =date()
0042rec<2>=time()
0043rec<3>=111
0044rec<4>=222
0045crt
0046crt '@ID=':id
0047crt '@REC=':rec
0048crt
0049x=icheck(rec,fp,id)
0050crt "ICHECK REC1 : ":x
0051crt "WRITE REC1 : ":
0052write rec on fp,id
0053on error crt '** error'
0054then crt 'ok'
0055else crt '**else'
0056crt
0057
0058crt '==='
0059crt '=== bad data : !! NO VALIDATION ERRORS !!'
0060crt '==='
0061id=2
0062rec ="F1"
0063rec<2>="F2"
0064rec<3>="F3"
0065rec<4>="F4"
0066crt
0067crt '@ID=':id
0068crt '@REC=':rec
0069crt
0070x=icheck(rec,fp,id)
0071crt "ICHECK REC2 : ":x
0072crt "WRITE REC2 : ":
0073write rec on fp,id
0074on error crt '** error'
0075then crt 'ok'
0076else crt '**else'
0077crt
0078
0079note='=== INSERT good data : no validation errors'
0080xqt=INTO TAB1 (KEY1,VAL1,VAL2,VAL3,VAL4) VALUES
('INS1','2008-01-01','14:22:04',1.2,2) ; ; gosub exec
0081
0082note='=== INSERT bad data : generates expected validation
errors'
0083xqt=INTO TAB1 (KEY1,VAL1,VAL2,VAL3,VAL4) VALUES
('INS2','oogity','14:22:04',1.2,2) ; ; gosub exec
0084xqt=INTO TAB1 (KEY1,VAL1,VAL2,VAL3,VAL4) VALUES
('INS3,'2008-01-01','boogity',1.2,2) ; ; gosub exec
0085xqt=INTO TAB1 (KEY1,VAL1,VAL2,VAL3,VAL4) VALUES
('INS4','2008-01-01','14:22:04','ickity',2) ; ; gosub exec
0086xqt=INTO TAB1 (KEY1,VAL1,VAL2,VAL3,VAL4) VALUES
('INS5','2008-01-01','14:22:04',1.2,'snickety') ; ; gosub exec
0087xqt=INTO TAB1 (KEY1,VAL1,VAL2,VAL3,VAL4) VALUES
(1.2,'2008-01-01','14:22:04',1.2,2) ; ; gosub exec
0088
0089note='LIST table to confirm bad data written to file'
0090xqt='SORT TAB1'
0091gosub exec
0092
0093note='SQL SELECT table to confirm bad data written to file'
0094xqt='SELECT * FROM TAB1 ORDER BY KEY1;'
0095gosub exec
0096
0097execute 'COMO OFF'
0098execute 'TERM 80'
0099stop
0100
0101 exec:
0102crt '==='
0103crt '=== ':note
0104crt '==='
0105crt
0106crt '> ':xqt
0107crt
0108execute xqt
0109crt
0110return
0111
0112 end
===
=== Drop existing table
===
> DROP TABLE TAB1 ;
Dropping Table TAB1
===
=== Create new table
===
> CREATE TABLE "TAB1"( "KEY1" CHAR(4) FORMAT "4L" , "VAL1" DATE FORMAT
"10R" CONV "D4-YMD" , "VAL2" TIME FORMAT "8R" CONV "MTS" , "VAL3"
DECIMAL(10,2) FORMAT "10R" CONV "MD2" , "VAL4" INT FORMAT "10R" ,
PRIMARY KEY ( KEY1 )) ;
Creating Table "TAB1"
Adding Column "KEY1"
Adding Column "VAL1"
Adding Column "VAL2"
Adding Column "VAL3"
Adding Column "VAL4"
===
=== List table structure
===
> LIST.SICA TAB1 NO.PAGE
LIST.SICA TAB1 09:00:26am 29 Apr 2008 Page1
==
Sica Region for Table "TAB1"
Schema: SCHEMA-TEST
Revision:4
Checksum is: 4040
Should Be: 4040
Size:428
Creator: 431
Total Col Count: 5
Key Columns: 1
Data Columns: 4
Check Count: 0
Permission Count:0
History Count: 0
Data for Column "KEY1"
Position: 0
Key Position: 1
Multivalued: No
Not Null: constraint UVCON_0 Yes
Not Empty: No
LIST.SICA TAB1 09:00:26am 29 Apr 2008 Page2
Unique:No
Row Unique:No
Primary Key: Yes
Default Type: None
Data Type: CHARACTER
Da
RE: [U2] UniVerse SQL Tables
Gerry If you define a column as integer and that attribute is not an integer, then the write will lead to a fatal error if you do not have opencheck or on error options built into your code. If you do not define a column as multivalue, then it will have a problem with multivalues. If you do not define the column, then there is no type checking. The big issue to consider with SQL Tables is moving accounts around. With the SICA attached to the tables, it is not as easy to copy an account to a different area or to duplicate account for testing as you would do with standard files. You cannot change the schema name, so when you copy the account you still have the same schema name in the duplicated account. Regards David Jordan Managing Consultant --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
