Re: [U2] UniObjects.NET: .GenerateXML method fails
Thanks, David. I'll check those references and post a summary findings back to the list. I really appreciate the help! Regards, Clif On May 6, 2008, at 8:31 PM, Hona, David S wrote: Clif, I vaguely recall that the UniXML functionality isn't officially supported until UV 10.2.x (on the server). I could However, I have got it working at UniVerse 10.1.18 on Sun Solaris. But earlier versions of UV 10.1.x do not work with UniXML calls. This is the same U2 Webservices Developer Tool (and some other toolsets as well). I believe this may be mentioned in the UniVerse 'newfeatures.pdf' for UV 10.2 documentation set. Regards David --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniObjects.NET: .GenerateXML method fails
Hi Clif I think I was confusing UniXML with U2 Web Services Developer, which is mentioned in 'newfeatures.pdf' for UV 10.2. This states for U2WSD, that UV 10.1.18 (or greater) is required. But I stumbled upon the fact UniXML works on this release (10.1.18), but not lower ones. I can't find any references in 'newfeatures.pdf' to the use of UniXML functionality. Regards, David -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Clifton Oliver Sent: Wednesday, May 07, 2008 5:28 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniObjects.NET: .GenerateXML method fails Thanks, David. I'll check those references and post a summary findings back to the list. I really appreciate the help! Regards, Clif On May 6, 2008, at 8:31 PM, Hona, David S wrote: Clif, I vaguely recall that the UniXML functionality isn't officially supported until UV 10.2.x (on the server). I could However, I have got it working at UniVerse 10.1.18 on Sun Solaris. But earlier versions of UV 10.1.x do not work with UniXML calls. This is the same U2 Webservices Developer Tool (and some other toolsets as well). I believe this may be mentioned in the UniVerse 'newfeatures.pdf' for UV 10.2 documentation set. Regards David --- 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] comm idea
Anyone used these peoples web service??? Bob Confidentiality Notice: This e-mail and any attachments are intended solely for the addressee and may contain confidential or privileged information. If you are not the named addressee, or the person responsible for delivering the message to the named addressee, please notify the sender as soon as possible and delete the material from your computer. This message will be protected by copyright. If it has come to you in error, you must not take any action based on its contents nor must you copy or show the message to any person other than the intended recipient. _ This email has been scanned by the MessageLabs Email Security System. For more information please visit http://www.messagelabs.com/email __ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] comm idea
Yes - we do I'll email off line George On 07/05/2008 14:27, Bob Witney [EMAIL PROTECTED] wrote: Anyone used these peoples web service??? Bob Confidentiality Notice: This e-mail and any attachments are intended solely for the addressee and may contain confidential or privileged information. If you are not the named addressee, or the person responsible for delivering the message to the named addressee, please notify the sender as soon as possible and delete the material from your computer. This message will be protected by copyright. If it has come to you in error, you must not take any action based on its contents nor must you copy or show the message to any person other than the intended recipient. _ This email has been scanned by the MessageLabs Email Security System. For more information please visit http://www.messagelabs.com/email __ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify us immediately on +44 (01952) 214000 or at [EMAIL PROTECTED] . Please delete and destroy any copies in any format of this email you may have received in error. The recipient should note that the views contained or expressed within this correspondence do not necessarily reflect those of APT Solutions Limited , it subsidiaries, affiliates or associates. This email and any attachments are not guaranteed to be free from so-called computer viruses and it is recommended that you check for such viruses before down-loading it to your computer equipment. It is the responsibility of the recipient to ensure that the onward transmission, opening or use of this message or any attachments will not adversely affect their systems or data. Registered Office:- Stratum House, Stafford Park 10, Telford, Shropshire, TF3 3AB Registration Number:- 2228445 Place of Registration: England Wales ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Record Locking Problems
I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Record Locking Problems
I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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] Record Locking Problems
why not do a READU using the LOCKED clause? Something like READU ORDER.ITEM FROM F.ORDER LOCKED PRINT 'record is locked ..' INPUT JUNK END ELSE * I got the record AND locked it, so do my thing . END you could even loop around a couple of times to see if the lock releases and after x times inform the user that the record is locked ... dougc Brutzman, Bill wrote: I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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] Record Locking Problems
Do I need a READU if I am already using a RECORDLOCKU command? --Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 07, 2008 11:34 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Record Locking Problems I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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] Record Locking Problems
I think he's using the recordlocked and recordlocku syntax to illustrate his problem. From the documentation that I've read on those two commands (which I'd never seen before today), this should work. Karen Bessel Software Developer Tyler Technologies, Inc. 6500 International Parkway, Suite 2000 Plano, TX 75093 Phone: 972.713.3770 ext:6227 Fax: 972.713.3777 Email: [EMAIL PROTECTED] Web: http://www.tylertech.com -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 07, 2008 10:34 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Record Locking Problems I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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] Record Locking Problems
From the universe documentation Description Use RECORDLOCK statements to acquire a record lock on a record without reading the record. Description Use the RECORDLOCKED function to return the status of a record lock. I too may be missing something but why get a lock on a record without reading the record and why check if a record is locked before trying to read/lock it when READU does all that for you? it seems to me that the code could be simplified by using a READU which tests if the record is locked and locks it for you if its not. I am certainly NOT trying to change anyone's coding style, I am just curious .. dougc Bessel, Karen wrote: I think he's using the recordlocked and recordlocku syntax to illustrate his problem. From the documentation that I've read on those two commands (which I'd never seen before today), this should work. Karen Bessel Software Developer Tyler Technologies, Inc. 6500 International Parkway, Suite 2000 Plano, TX 75093 Phone: 972.713.3770 ext:6227 Fax: 972.713.3777 Email: [EMAIL PROTECTED] Web: http://www.tylertech.com -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 07, 2008 10:34 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Record Locking Problems I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End:
RE: [U2] Record Locking Problems
I don't know the RECORDLOCKU construct, though I looked it up. I know the READU with the LOCKED clause and I know it works. And I know when and under what circumstances the lock is released. It's just a matter of style, I guess it does the exact same thing (maybe. :-) ) Seems like a waste to lock a record without retrieving it. :-D Bruce Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 12:18 PM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject RE: [U2] Record Locking Problems Do I need a READU if I am already using a RECORDLOCKU command? --Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 07, 2008 11:34 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Record Locking Problems I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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/ --- u2-users mailing list
RE: [U2] Record Locking Problems
Recordlocku does not read the record... Karen Bessel Software Developer Tyler Technologies, Inc. 6500 International Parkway, Suite 2000 Plano, TX 75093 Phone: 972.713.3770 ext:6227 Fax: 972.713.3777 Email: [EMAIL PROTECTED] Web: http://www.tylertech.com -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill Sent: Wednesday, May 07, 2008 11:18 AM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] Record Locking Problems Do I need a READU if I am already using a RECORDLOCKU command? --Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 07, 2008 11:34 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Record Locking Problems I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Record Locking Problems
And yet his results pretty much show they don't. I'd fall back and punt and just use the READU -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Bessel, Karen Sent: Wednesday, May 07, 2008 09:24 To: u2-users@listserver.u2ug.org Subject: RE: [U2] Record Locking Problems I think he's using the recordlocked and recordlocku syntax to illustrate his problem. From the documentation that I've read on those two commands (which I'd never seen before today), this should work. Karen Bessel Software Developer Tyler Technologies, Inc. 6500 International Parkway, Suite 2000 Plano, TX 75093 Phone: 972.713.3770 ext:6227 Fax: 972.713.3777 Email: [EMAIL PROTECTED] Web: http://www.tylertech.com -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Wednesday, May 07, 2008 10:34 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Record Locking Problems I feel I am missing something. Why is a READU LOCKED not used? Bruce M Neylon Health Care Management Group Brutzman, Bill [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 05/07/2008 11:00 AM Please respond to u2-users@listserver.u2ug.org To 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org cc Subject [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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/ --- u2-users
RE: [U2] Record Locking Problems
By using READU, you can also do fun things when your code takes the locked clause, such as offering an inquiry-only mode (i.e. updates are disabled), which is terribly user-friendly. And/or you can display who's locking the record so the lockee can contact the locker, also terribly user-friendly. Have fun, Tom Derwin [EMAIL PROTECTED] 05/07/08 1:25 PM And yet his results pretty much show they don't. I'd fall back and punt and just use the READU -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Bessel, Karen Sent: Wednesday, May 07, 2008 09:24 To: u2-users@listserver.u2ug.org Subject: RE: [U2] Record Locking Problems I think he's using the recordlocked and recordlocku syntax to illustrate his problem. From the documentation that I've read on those two commands (which I'd never seen before today), this should work. Karen Bessel Software Developer snip - This e-mail and any attachments may contain CONFIDENTIAL information, including PROTECTED HEALTH INFORMATION. If you are not the intended recipient, any use or disclosure of this information is STRICTLY PROHIBITED; you are requested to delete this e-mail and any attachments, notify the sender immediately, and notify the LabCorp Privacy Officer at [EMAIL PROTECTED] or call (877) 23-HIPAA / (877) 234-4722. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Record Locking Problems
Bill, The RECORDLOCKED returns a number of values, the value of 1 states that this user has a record lock, not another user. Try using an else on the case structure. Cheers, David Murray * Learn and do * Excel and share http://u2blog.org -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill Sent: Wednesday, May 07, 2008 11:00 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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]ICONV(VAR,DB)
Hey all, We are using ICONV(VAR,'DB') and it works perfectly except one case when the date is the last day of February any year. For instance for VAR=31-MAR-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR=14335 For VAR=28-FEB-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' In case VAR=29-FEB-2008 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' We tested it with STATUS() and in both cases it returns 0 which is considered as successful conversion. If we are using ICONV(VAR,'D') there is no problem in conversion to internal representation. Is anybody familiar with 'DB' conversion and what the difference between 'DB' and 'D' except the one we've already known it doesn't convert the last day of February? Irina Lissok. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2]ICONV(VAR,DB)
I have seen odd things happen if you specify the exact date conversion for ICONV. I have never had a problem getting the correct results for an ICONV on a date by just using D. It is the most understanding and graceful. John Israel Sr. Programmer/Analyst Dayton Superior Corporation 721 Richard St. Dayton, OH 45342 937-866-0711 x44380 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 2:21 PM To: u2-users@listserver.u2ug.org Subject: re:[U2]ICONV(VAR,DB) Hey all, We are using ICONV(VAR,'DB') and it works perfectly except one case when the date is the last day of February any year. For instance for VAR=31-MAR-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR=14335 For VAR=28-FEB-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' In case VAR=29-FEB-2008 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' We tested it with STATUS() and in both cases it returns 0 which is considered as successful conversion. If we are using ICONV(VAR,'D') there is no problem in conversion to internal representation. Is anybody familiar with 'DB' conversion and what the difference between 'DB' and 'D' except the one we've already known it doesn't convert the last day of February? Irina Lissok. --- 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] Record Locking Problems
Your code doesn't test for the type of lock. It could be just a shared record lock which would allow another user to get in. Jerry Banker Senior Programmer Analyst IBM Certified Solutions Expert -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill Sent: Wednesday, May 07, 2008 10:00 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] Record Locking Problems I am trying to make sure that if one Customer.Service rep is updating a Sales Order, then the other Cust.Svc rep is blocked from accessing the same record. The following code will indicates that the record is locked but when the 2nd user goes in (in an independent session), the second user gets in no problem. Since it does not seem to do what I think that it should, [1] I am wondering if I am missing something. [2] I am inclined to create a file to handle this (brute force) with multivalues for user, port, time, date, program, file, record. Comments would be appreciated. --Bill SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code ) prompt '' open 'SOH' to F.This.File else gosub Error.Opening.File gosub Lock.And.Hold goThe.End *--- -- *--- -- Lock.And.Hold: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**11 Lock.Test ' : Lock.Test : ' [] ' input Ans begin case case Lock.Test = 0 ; recordlocku F.This.File, Record.ID case 1 ; gosub Error.Record.Locked end case Lock.Test = recordlocked (F.This.File, Record.ID) crt '**12 Lock.Test ' : Lock.Test : ' [] ' input Ans return *--- --- Error.Record.Locked: Lock.Test = recordlocked (F.This.File, Record.ID) crt '**13 Lock.Test ' : Lock.Test : ' [] ' input Ans Error.Code = 'E' crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt '' : @(-6) crt crt ' ___ ' crt ' \ \ ' crt ' \ Error, Record Locked \' crt ' \__\Try Later ' crt ' ' crt ' ' crt ' [X] ' crt ' ' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Record.Locked end case return *--- --- Error.Opening.File: crt @(-1) crt @(-5) crt crt crt crt crt crt crt crt crt crt crt crt ' Big Problem...' : @(-6) crt crt ' _ ' crt ' \\ SOH' crt ' \ Error Opening File \' crt ' \\Contact HK.IT ' crt ' [X] ' crt '' : input Ans, 1 Ans = upcase(Ans) begin case case Ans = 'X' ; null case 1 ; go Error.Opening.File end case return to The.End *--- --- The.End: RETURN END --- 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]ICONV(VAR,DB)
Irina, I do not think that a ICONV conversion code of 'DB' is actually valid. 'DMB', DWB' etc for short codes for month and day respectively are OK. Cheers, David Murray * Learn and do * Excel and share http://u2blog.org -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 2:21 PM To: u2-users@listserver.u2ug.org Subject: re:[U2]ICONV(VAR,DB) Hey all, We are using ICONV(VAR,'DB') and it works perfectly except one case when the date is the last day of February any year. For instance for VAR=31-MAR-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR=14335 For VAR=28-FEB-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' In case VAR=29-FEB-2008 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' We tested it with STATUS() and in both cases it returns 0 which is considered as successful conversion. If we are using ICONV(VAR,'D') there is no problem in conversion to internal representation. Is anybody familiar with 'DB' conversion and what the difference between 'DB' and 'D' except the one we've already known it doesn't convert the last day of February? Irina Lissok. --- 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: [?? Probable Spam] RE: [U2]ICONV(VAR,DB)
David, It is possibly valid because it passed the compilation. If it will not pass the compilation we would know it is not valid and just do not consider this conversion. The point is that is probably legitimate conversion because it still works for other date conversion except the last day of February. Irina Lissok -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of David Murray Sent: Wednesday, May 07, 2008 3:24 PM To: u2-users@listserver.u2ug.org Subject: [?? Probable Spam] RE: [U2]ICONV(VAR,DB) Irina, I do not think that a ICONV conversion code of 'DB' is actually valid. 'DMB', DWB' etc for short codes for month and day respectively are OK. Cheers, David Murray * Learn and do * Excel and share http://u2blog.org -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 2:21 PM To: u2-users@listserver.u2ug.org Subject: re:[U2]ICONV(VAR,DB) Hey all, We are using ICONV(VAR,'DB') and it works perfectly except one case when the date is the last day of February any year. For instance for VAR=31-MAR-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR=14335 For VAR=28-FEB-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' In case VAR=29-FEB-2008 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' We tested it with STATUS() and in both cases it returns 0 which is considered as successful conversion. If we are using ICONV(VAR,'D') there is no problem in conversion to internal representation. Is anybody familiar with 'DB' conversion and what the difference between 'DB' and 'D' except the one we've already known it doesn't convert the last day of February? Irina Lissok. --- 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]ICONV(VAR,DB)
The compiler does not check the string. See below: ED BP TTT New record. : I 0001= LLL = ICONV('01/01/01','BLATHER') 0002= PRINT LLL 0003= END 0004= Bottom at line 3. : FI TTT filed in file BP. BASIC BP TTT Compiling: Source = 'BP/TTT', Object = 'BP.O/TTT' Compilation Complete. Irina Lissok wrote: David, It is possibly valid because it passed the compilation. If it will not pass the compilation we would know it is not valid and just do not consider this conversion. The point is that is probably legitimate conversion because it still works for other date conversion except the last day of February. Irina Lissok -- Jeff Schasny - Denver, Co, USA jschasny at gmail dot com --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [?? Probable Spam] RE: [U2]ICONV(VAR,DB)
Irina, Err, no. It is possible to include text within a ICONV or OCONV for formatting. So, the compiler is assuming that it valid format text. It is not in the manual, so I would state that it is not valid. Cheers, David Murray * Learn and do * Excel and share http://u2blog.org -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 4:16 PM To: u2-users@listserver.u2ug.org Subject: RE: [?? Probable Spam] RE: [U2]ICONV(VAR,DB) David, It is possibly valid because it passed the compilation. If it will not pass the compilation we would know it is not valid and just do not consider this conversion. The point is that is probably legitimate conversion because it still works for other date conversion except the last day of February. Irina Lissok -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of David Murray Sent: Wednesday, May 07, 2008 3:24 PM To: u2-users@listserver.u2ug.org Subject: [?? Probable Spam] RE: [U2]ICONV(VAR,DB) Irina, I do not think that a ICONV conversion code of 'DB' is actually valid. 'DMB', DWB' etc for short codes for month and day respectively are OK. Cheers, David Murray * Learn and do * Excel and share http://u2blog.org -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 2:21 PM To: u2-users@listserver.u2ug.org Subject: re:[U2]ICONV(VAR,DB) Hey all, We are using ICONV(VAR,'DB') and it works perfectly except one case when the date is the last day of February any year. For instance for VAR=31-MAR-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR=14335 For VAR=28-FEB-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' In case VAR=29-FEB-2008 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' We tested it with STATUS() and in both cases it returns 0 which is considered as successful conversion. If we are using ICONV(VAR,'D') there is no problem in conversion to internal representation. Is anybody familiar with 'DB' conversion and what the difference between 'DB' and 'D' except the one we've already known it doesn't convert the last day of February? Irina Lissok. --- 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/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] ICONV(VAR,DB)
Irina: I don't think the B in 'DB' has any effect on internal conversion in Universe. I don't know about UniData - which are you using? We have Universe 10.2. I ran this little program to compare the result after an ICONV using the 'D' and 'DB' conversions: 0001: FOR I = 1000 TO 14731 0002:ODAT = OCONV(I,'D2/') 0003:INTERNAL.D = ICONV(ODAT,'D') 0004:INTERNAL.DB = ICONV(ODAT,'DB') 0005:IF INTERNAL.D # INTERNAL.DB THEN PRINT ODAT,INTERNAL.D,INTERNAL.DB 0006: NEXT I 0007: END If there had been differences after conversion, like your mentioned last day of February, then line 5 in the program would cause a line to display. However when I ran the program, no lines were displayed. That is, every conversion was identical on each date from 09/26/1970 thru 04/30/2008. It appears the first character D tells the compiler to perform a date conversion and the second character is disregarded. Indeed, I changed the 'DB' conversion code to 'DZ', then 'DK', then 'D+' and they all ran the same, no conversion differences were displayed. For OCONV, the output is quite different. For internal date 1, a 'D' conversion yields 18 MAY 1995, a 'DB' conversion yields 05B18B1995 (so the B character is simply used as the separator), and a 'DBW' conversion yields 4 - the day of the week (Thursday). If the first character is illegitimate, the compiler does not catch it, but the conversion fails. I set the conversion to 'ZZ', the compiler did not care, but on every date there was no conversion of the input date. Harold Oaks Clark County -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 1:16 PM To: u2-users@listserver.u2ug.org Subject: RE: [?? Probable Spam] RE: [U2]ICONV(VAR,DB) David, It is possibly valid because it passed the compilation. If it will not pass the compilation we would know it is not valid and just do not consider this conversion. The point is that is probably legitimate conversion because it still works for other date conversion except the last day of February. Irina Lissok -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of David Murray Sent: Wednesday, May 07, 2008 3:24 PM To: u2-users@listserver.u2ug.org Subject: [?? Probable Spam] RE: [U2]ICONV(VAR,DB) Irina, I do not think that a ICONV conversion code of 'DB' is actually valid. 'DMB', DWB' etc for short codes for month and day respectively are OK. Cheers, David Murray * Learn and do * Excel and share http://u2blog.org -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Irina Lissok Sent: Wednesday, May 07, 2008 2:21 PM To: u2-users@listserver.u2ug.org Subject: re:[U2]ICONV(VAR,DB) Hey all, We are using ICONV(VAR,'DB') and it works perfectly except one case when the date is the last day of February any year. For instance for VAR=31-MAR-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR=14335 For VAR=28-FEB-2007 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' In case VAR=29-FEB-2008 INTERNAL.VAR=ICONV(VAR,'DB') INTERNAL.VAR='' We tested it with STATUS() and in both cases it returns 0 which is considered as successful conversion. If we are using ICONV(VAR,'D') there is no problem in conversion to internal representation. Is anybody familiar with 'DB' conversion and what the difference between 'DB' and 'D' except the one we've already known it doesn't convert the last day of February? Irina Lissok. --- 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/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] UniObjects.NET: .GenerateXML method fails
It's confirmed. As soon I globally cataloged that routine, DataGridView is working. We haven't gotten a list box to work, but that will be another subject line for archive purposes. Thank you! Regards, Clif On May 6, 2008, at 3:12 PM, Clifton Oliver wrote: Sure enough, that subroutine was not cataloged on the AIX system. I've cataloged it, but got my PC access expired before I could test it. (What are the odds?) I'll report back to the list (for the archives) with a verification when I get my access renewed. Thank you! Regards, Clif On May 6, 2008, at 1:50 PM, Brian Leach wrote: Hi Clif I would check to see whether the GETXMLSUB subroutine has been globally cataloged in the uv account. The code is in BP, it needs to be cataloged as *GETXMLSUB. Brian Greetings, List Citizens (Litizens?) A client of mine and I are having problems with using UniObjects.NET and the GenerateXML menthod to populate a data grid in VB.NET. The following code, almost a cut-and-paste from Brian Leach's excellent Introducing UniObject for .NET in the U2UG Knowledge Base runs perfectly on UV PE 10.2.8 on Windows XP SP2 using the 10.2 UV clients. Private Sub cmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRead.Click Cmd = uvSession.CreateUniXML Cmd.GenerateXML(SORT CUSTOMER COMPANY ID.SUP) DS = Cmd.GetDataSet DataGridView1.DataSource = DS DataGridView1.DataMember = CUSTOMER DataGridView1.Refresh() End Sub But when we try the exact code against an AIX system, UV 10.1.7 using the 10.1A clients, we get the following error: [IBM U2][UODOTNET - UNICLIENT][ErrorCode=30105] Unable to load the subroutine on the server[IBM U2][UODOTNET - UNICLIENT][ErrorCode=91] Please verify UniVerse or UniData Version. This feature may not be supported in older UniVerse or UniData version. In both cases, I am going against the CUSTOMER file in the demo HS.SALES account. I have logged into the AIX system with the same ID as is being used to connect a session and verified that I have permissions to access the file. The command SORT CUSTOMER COMPANY ID.SUP TOXML ELEMENTS issued from the TCL prompt gives the expected results. None of the dictionary descriptors are trying to call a subroutine, so I don't understand what that part of the error message is referring to. Thanks in advance for any help, ideas, or insights. Regards, Clif -- W. Clifton Oliver, CCP CLIFTON OLIVER ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com --- 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/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Universe XML is not to standard
The software I am supporting has a user screen which builds and saves enquiry statements (English/Access/Recall). I recently created another screen to allow users to use the defined statement/report to output XML to the HOLD file and to transfer the results to their PC. All well and good, but then I found that Excel wouldn't pick up the results properly. The reason for this is that the XML output is not quite to the standard. For example, the command LIST VOC 'VOC' F1 F2 TOXML gives the result -- ?xml version=1.0 encoding=UTF-8? ROOT VOC _ID = VOC F1 = F F2 = VOC/ /ROOT -- While the command LIST VOC 'VOC' F1 F2 TOXML HEADING WAHOO 'D' gives the result -- WAHOO 08 May 2008 ?xml version=1.0 encoding=UTF-8? ROOT VOC _ID = VOC F1 = F F2 = VOC/ /ROOT -- It's not absolutely clear from the W3C standard itself, but it is very clear from the examples given with it; that the output must start with the string ?xml . That is to say, although line feeds and spaces are effectively ignored within XML, they are not catered for before the ?xml string. And while the traditional Pick 'thing' is to make-it-work-if-possible, Excel follows the (arguably more standard) convention of holy-heck-that's-not-right-do-nothing What I had to put in place was an extra bit of code to read in the output, delete any lines before the ?xml string, and re-write the output (which, by the way, I'm unsure will work for very, very, very large reports). That's not at all satisfactory in my opinion. I think that the header lines should have been dropped completely, or put in after the ?xml string as a comment something like this: -- ?xml version=1.0 encoding=UTF-8? -- report heading follows WAHOO 08 May 2008 -- ROOT VOC _ID = VOC F1 = F F2 = VOC/ /ROOT -- Does anyone else agree with me? Ought IBM change this? What do you think? Regards, Keith --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Record Locking Problems
Bill I think your problem is related to re-opening the file in the subroutine. Everytime you open a file you clear all the previous locks. Ie the user opens file, locks record and then opens file again there is no record locks. Use a fileinfo statement to check file is open and if it is skip opening it. Regards --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse Triggers
On UV triggers, I've used them often on UD and now have a great application for them on UV. I searched the VOC and found no commands with the word 'trigger' in them. I was expecting the CREATE.TRIGGER of Unidata.What's the syntax for setting them up in UV? Mike Randall, MCP -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Friday, April 25, 2008 11:02 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] UniVerse Triggers Hello, We have received reports that UV triggers have shown some instability. Does anyone have anything to share on this? We have been using them for a couple of years with no issues but were hoping for more details from other users, if available. Thanks much, -Baker --- 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] commidea and payment processing [ad]
From: BobW Anyone used these peoples web service??? For anyone who didn't understand the inquiry, Commidea (one word) info can be found here: http://www.commidea.com/ As most people in this market know, TotalLink is the major player in the MV payment processing arena. See http://total-computing.com/ for info. As to the ad, NebulaPay has been around for a few years but we stopped advertising because it was built entirely on VB6/COM and we really wanted to re-write it in .NET. We still get asked about it about once a month and it's a shame it's not being offered at the moment. We have new development resources here and would like to put them to work on the effort to complete this porting and re-engineering task which has most of the components finished. If any company with large volume would like to discuss this, the effort must be driven by current demand. The new NebulaPay will support all primary service types, a large variety of payment partners, consumers and merchants in around 20 countries, and of course all security requirements. All transactions are put through NebulaPay using CALLs to a single subroutine with well-defined parameters. The interface was designed to allow transactions from many merchant sources to all make use of the same transaction pipe, so for example, your SQL Server app can also run transactions through NebulaPay. The old NebulaPay web page is here: pleaseremovethisNebula-RnD.com/products/financial.htm Please email for more up-to-date info including full U2 support. Thanks for your time. Tony Gravagno Nebula Research and Development TG@ remove.pleaseNebula-RnD.com --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse Triggers
Try looking in the SQL.HELP file. 02 SEARCH SQL.HELP STRING:TRIGGER STRING: 4 record(s) selected to SELECT list #0. LIST ONLY SQL.HELP LIST ONLY SQL.HELP 05:52:53pm 07 May 2008 PAGE1 SYS.HELP CREATE SCHEMA CREATE TRIGGER ALTER TABLE DROP TRIGGER 4 records listed. Tom Dodds [EMAIL PROTECTED] 630.235.2975 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mike Randall Sent: Wednesday, May 07, 2008 4:28 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] UniVerse Triggers On UV triggers, I've used them often on UD and now have a great application for them on UV. I searched the VOC and found no commands with the word 'trigger' in them. I was expecting the CREATE.TRIGGER of Unidata.What's the syntax for setting them up in UV? Mike Randall, MCP -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Friday, April 25, 2008 11:02 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] UniVerse Triggers Hello, We have received reports that UV triggers have shown some instability. Does anyone have anything to share on this? We have been using them for a couple of years with no issues but were hoping for more details from other users, if available. Thanks much, -Baker --- 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/
Fwd: [U2] UniVerse Triggers
Excuse me. I mistyped. That is three 90 minute sessions, not one hour. Regards, Clif Begin forwarded message: From: Clifton Oliver [EMAIL PROTECTED] Date: May 7, 2008 5:58:05 PM PDT To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniVerse Triggers It's a UniVerse SQL command (yes, even if the file is not an SQL table). CREATE TRIGGER triggername { BEFORE | AFTER } event [ OR event ] ON tablename FOR EACH ROW CALLING ' program ' ; Details are in chapter 5 of the UniVerse SQL Reference. [AD] Also, I will be conducting a webinar through Spectrum University on the topic of UniVerse Triggers starting next Thursday. The course is three one-hour sessions on three consecutive Thursdays. For more information, please see http://www.intl-spectrum.com/tabid/159/univ/15/default.aspx [/AD] Regards, Clif -- W. Clifton Oliver, CCP CLIFTON OLIVER ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com On May 7, 2008, at 4:28 PM, Mike Randall wrote: On UV triggers, I've used them often on UD and now have a great application for them on UV. I searched the VOC and found no commands with the word 'trigger' in them. I was expecting the CREATE.TRIGGER of Unidata.What's the syntax for setting them up in UV? Mike Randall, MCP -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Friday, April 25, 2008 11:02 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] UniVerse Triggers Hello, We have received reports that UV triggers have shown some instability. Does anyone have anything to share on this? We have been using them for a couple of years with no issues but were hoping for more details from other users, if available. Thanks much, -Baker --- 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 Triggers
It's a UniVerse SQL command (yes, even if the file is not an SQL table). CREATE TRIGGER triggername { BEFORE | AFTER } event [ OR event ] ON tablename FOR EACH ROW CALLING ' program ' ; Details are in chapter 5 of the UniVerse SQL Reference. [AD] Also, I will be conducting a webinar through Spectrum University on the topic of UniVerse Triggers starting next Thursday. The course is three one-hour sessions on three consecutive Thursdays. For more information, please see http://www.intl-spectrum.com/tabid/159/univ/15/default.aspx [/AD] Regards, Clif -- W. Clifton Oliver, CCP CLIFTON OLIVER ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com On May 7, 2008, at 4:28 PM, Mike Randall wrote: On UV triggers, I've used them often on UD and now have a great application for them on UV. I searched the VOC and found no commands with the word 'trigger' in them. I was expecting the CREATE.TRIGGER of Unidata.What's the syntax for setting them up in UV? Mike Randall, MCP -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Friday, April 25, 2008 11:02 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] UniVerse Triggers Hello, We have received reports that UV triggers have shown some instability. Does anyone have anything to share on this? We have been using them for a couple of years with no issues but were hoping for more details from other users, if available. Thanks much, -Baker --- 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 Triggers
Interesting, I actually saw the trigger reference under SQL and made the incorrect assumption that it was referring to actual SQL commands rather than calling BASIC subroutines. Thanks for correction. Mike Randall, MCP -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Clifton Oliver Sent: Wednesday, May 07, 2008 8:58 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniVerse Triggers It's a UniVerse SQL command (yes, even if the file is not an SQL table). CREATE TRIGGER triggername { BEFORE | AFTER } event [ OR event ] ON tablename FOR EACH ROW CALLING ' program ' ; Details are in chapter 5 of the UniVerse SQL Reference. [AD] Also, I will be conducting a webinar through Spectrum University on the topic of UniVerse Triggers starting next Thursday. The course is three one-hour sessions on three consecutive Thursdays. For more information, please see http://www.intl-spectrum.com/tabid/159/univ/15/default.aspx [/AD] Regards, Clif -- W. Clifton Oliver, CCP CLIFTON OLIVER ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com On May 7, 2008, at 4:28 PM, Mike Randall wrote: On UV triggers, I've used them often on UD and now have a great application for them on UV. I searched the VOC and found no commands with the word 'trigger' in them. I was expecting the CREATE.TRIGGER of Unidata.What's the syntax for setting them up in UV? Mike Randall, MCP -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Friday, April 25, 2008 11:02 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] UniVerse Triggers Hello, We have received reports that UV triggers have shown some instability. Does anyone have anything to share on this? We have been using them for a couple of years with no issues but were hoping for more details from other users, if available. Thanks much, -Baker --- 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/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/