[U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
SETPTR 0,80,60,3,3,1,AT \\Bad\PrinterName seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\Bad\PrinterName is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
[U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
SPOOL -LIST will show you all the print queue names Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users . -- Jeff Schasny - Denver, Co, USA jschasny at gmail dot com ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ 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] [UV] Is anyone up on UV 11.2 ?
Hi friends, Its time to rev a few UV instances here and I wanted to ask if anyone is running on UniVerse 11.2.x ?? If so, what can you share? If you considered it but decided to stay with 11.1.14 or something around there, why? Any issues that are yet to get worked out? What ARE you waiting for -- is there some enhancement that you've heard is about to be released, or something patched that you feel is essential? Thanks, from [unusually] cold Texas (yet not as cold as Chicago). -Baker ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] [UV] Is anyone up on UV 11.2 ?
Baker you didn't mention what I was thinking. What does 11.2 give me, that I need, and would be worth the upgrade pain? -Original Message- From: Baker_Hughes baker_hug...@neimanmarcus.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Tue, Jan 28, 2014 8:29 am Subject: [U2] [UV] Is anyone up on UV 11.2 ? Hi friends, Its time to rev a few UV instances here and I wanted to ask if anyone is running on UniVerse 11.2.x ?? If so, what can you share? If you considered it but decided to stay with 11.1.14 or something around there, why? Any issues that are yet to get worked out? What ARE you waiting for -- is there some enhancement that you've heard is about to be released, or something patched that you feel is essential? Thanks, from [unusually] cold Texas (yet not as cold as Chicago). -Baker ___ 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] [UV] Programmatic Verification of Globally Cataloged Subroutine
The routine returns your below RC which it calls success as a zero if either it cannot open the GLOBAL.CATDIR file, or if it cannot read the catalog name passed in that file. The STATUS() (which I didn't even know could be assigned) is assigned to the ASCII value (using SEQ) of the 52nd character of the first line of the record it does successfully read. What is the significant of the 52nd character ? What would one find there? -Original Message- From: Hona, David david.h...@cba.com.au To: U2 Users List u2-users@listserver.u2ug.org Sent: Mon, Jan 27, 2014 7:50 pm Subject: Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine There is the !EXIST subroutine. It's a legacy Prime INFO subroutine - created for legacy code that need it. The source code is in UV APP.PROGS and just reads GLOBAL.CATDIR and also sets STATUS() with a return code too. CATALOGED.NAME = '*MYGLOBALSUB' call !EXIST(CATALOGED.NAME, RC) crt CATALOGED.NAME: = :(if RC then exists else NOT found) crt CATALOGED.NAME: STATUS() = :STATUS(): = :(if STATUS() then exists else NOT found) -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Perry Taylor Sent: Tuesday, 28 January 2014 4:06 AM To: U2-Users List Subject: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine Does anyone know of a good method in UniVerse BASIC to be able to verify if a subroutine is globally cataloged? Thanks. Perry Taylor Senior MV Architect Office (877) 494-7633 ext. 4392 Direct (502) 779-4392 ZirMed 888 West Market Street, Suite 400 Louisville, KY 40202 www.zirmed.comhttp://www.zirmed.com/ ** 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] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
I was assuming, based on the fact that he is using SETPTR to address which printer he is directing the data to, that he was looking at queues available to the machine since that is what SETPTR does. Wols Lists wrote: On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ 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 -- Jeff Schasny - Denver, Co, USA jschasny at gmail dot com ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
The Spool -List only lists universe print queues It doesn't like printers on the network. When we create a new printer on our network, we have to go into Universe and add the queue and link the two to each other. -Original Message- From: Wols Lists antli...@youngman.org.uk To: u2-users u2-users@listserver.u2ug.org Sent: Tue, Jan 28, 2014 8:19 am Subject: Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer. On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ 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] [UV] Programmatic Verification of Globally Cataloged Subroutine
To make APP.PROGS/EXIST work for UV, I believe you would change the number 52 to 12 and recompile/recatalog. That is decimal location where UV seems to store the number of subroutine arguments within the object header. The subroutine would place the number of arguments correctly in STATUS() to be referenced by the calling routine. Cheers, LeRoy On Tue, Jan 28, 2014 at 12:10 PM, Wjhonson wjhon...@aol.com wrote: The routine returns your below RC which it calls success as a zero if either it cannot open the GLOBAL.CATDIR file, or if it cannot read the catalog name passed in that file. The STATUS() (which I didn't even know could be assigned) is assigned to the ASCII value (using SEQ) of the 52nd character of the first line of the record it does successfully read. What is the significant of the 52nd character ? What would one find there? -Original Message- From: Hona, David david.h...@cba.com.au To: U2 Users List u2-users@listserver.u2ug.org Sent: Mon, Jan 27, 2014 7:50 pm Subject: Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine There is the !EXIST subroutine. It's a legacy Prime INFO subroutine - created for legacy code that need it. The source code is in UV APP.PROGS and just reads GLOBAL.CATDIR and also sets STATUS() with a return code too. CATALOGED.NAME = '*MYGLOBALSUB' call !EXIST(CATALOGED.NAME, RC) crt CATALOGED.NAME: = :(if RC then exists else NOT found) crt CATALOGED.NAME: STATUS() = :STATUS(): = :(if STATUS() then exists else NOT found) -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto: u2-users-boun...@listserver.u2ug.org] On Behalf Of Perry Taylor Sent: Tuesday, 28 January 2014 4:06 AM To: U2-Users List Subject: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine Does anyone know of a good method in UniVerse BASIC to be able to verify if a subroutine is globally cataloged? Thanks. Perry Taylor Senior MV Architect Office (877) 494-7633 ext. 4392 Direct (502) 779-4392 ZirMed 888 West Market Street, Suite 400 Louisville, KY 40202 www.zirmed.comhttp://www.zirmed.com/ ** 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 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] [UV] Is anyone up on UV 11.2 ?
We just discovered that connecting to secure web services (https://) that are using SSL certificates with the SHA-2 hash algorithms will require the new crypto libraries that are provided with UniVerse 11.2. There are also new licensing options in 11.2 that will help us in certain situations. Because of this, we are working out our upgrade path to 11.2 for development and testing, then finally releasing it to customers. -Mike Pflugfelder -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Tuesday, January 28, 2014 11:57 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] [UV] Is anyone up on UV 11.2 ? Baker you didn't mention what I was thinking. What does 11.2 give me, that I need, and would be worth the upgrade pain? -Original Message- From: Baker_Hughes baker_hug...@neimanmarcus.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Tue, Jan 28, 2014 8:29 am Subject: [U2] [UV] Is anyone up on UV 11.2 ? Hi friends, Its time to rev a few UV instances here and I wanted to ask if anyone is running on UniVerse 11.2.x ?? If so, what can you share? If you considered it but decided to stay with 11.1.14 or something around there, why? Any issues that are yet to get worked out? What ARE you waiting for -- is there some enhancement that you've heard is about to be released, or something patched that you feel is essential? Thanks, from [unusually] cold Texas (yet not as cold as Chicago). -Baker ___ 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] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
On 28/01/14 17:10, Jeff Schasny wrote: I was assuming, based on the fact that he is using SETPTR to address which printer he is directing the data to, that he was looking at queues available to the machine since that is what SETPTR does. Correct. Except he was *also* using the URI syntax, ie \\COMPUTER\QUEUE. So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol Wols Lists wrote: On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ 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
[U2] 11.2
It's been awhile since we last bought UV. What does UV run these days per license? Note...we are not looking to upgrade at this point - but might consider it sometime later this year. George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.comhttp://www.wyanokegroup.com/ ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
I've been using Universe since it was in beta and I had no idea you could use a URI in SETPTR. Its a good day, I've learned something new. Thanks! Wols Lists wrote: So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol Correct. Except he was *also* using the URI syntax, ie \\COMPUTER\QUEUE. Wols Lists wrote: On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ 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 -- Jeff Schasny - Denver, Co, USA jschasny at gmail dot com ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
On 28/01/14 20:31, Jeff Schasny wrote: I've been using Universe since it was in beta and I had no idea you could use a URI in SETPTR. Its a good day, I've learned something new. Thanks! Just watch out. In today's modern world of GDI printers, sending a raw text dump from UV is often not a good idea. In the old days of dot-matrix, or even PCL that just expected a text stream, it worked fine. It's nowhere near that simple any more :-( Cheers, Wol Wols Lists wrote: So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
Anthony pretty much nailed how we're doing it. But my original question is still unanswered. I want to make sure it's a valid printer before I start printing to it. I think I problably need to do something like EXECUTE DOS /C [some-command] \\MY_PRINT_SERVER\PrinterName CAPTURING DOSMSG IF DOSMSG = [something bad] THEN . . . I was hoping someone in this august body had crossed that bridge before. cds On 1/28/2014 11:31 PM, Jeff Schasny wrote: I've been using Universe since it was in beta and I had no idea you could use a URI in SETPTR. Its a good day, I've learned something new. Thanks! Wols Lists wrote: So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol Correct. Except he was *also* using the URI syntax, ie \\COMPUTER\QUEUE. Wols Lists wrote: On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
Do a SETPTR, followed by a PRINT and capture that output It's the only way to *guarantee* that the process won't work in exactly the same way as it's not working now. -Original Message- From: Charles Stevenson stevenson.c...@gmail.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Tue, Jan 28, 2014 1:00 pm Subject: Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer. Anthony pretty much nailed how we're doing it. But my original question is still unanswered. I want to make sure it's a valid printer before I start printing to it. I think I problably need to do something like EXECUTE DOS /C [some-command] \\MY_PRINT_SERVER\PrinterName CAPTURING DOSMSG IF DOSMSG = [something bad] THEN . . . I was hoping someone in this august body had crossed that bridge before. cds On 1/28/2014 11:31 PM, Jeff Schasny wrote: I've been using Universe since it was in beta and I had no idea you could use a URI in SETPTR. Its a good day, I've learned something new. Thanks! Wols Lists wrote: So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol Correct. Except he was *also* using the URI syntax, ie \\COMPUTER\QUEUE. Wols Lists wrote: On 28/01/14 15:07, Jeff Schasny wrote: SPOOL -LIST will show you all the print queue names Is that all the printer names known to U2, or all the printer names known to the network? In Chuck's example, this particular printer will never have been declared to U2 - I did this all the time. The only printer UV was told about was DEFAULT, which didn't exist ... In fact, I suspect this syntax will list all the printers known to the server on which U2 is running, which could easily NOT include a valid printer the user is trying to print to ... Cheers, Wol Charles Stevenson wrote: SETPTR 0,80,60,3,3,1,AT \\BAD\NAME seems to execute w/o throwing an error. but an actual PRINT statement yields a fatal error: Program PRT: Line 2, Printer name \\BAD\PRINTERNAME is not recognized by the system. I'd like to verify we're printing to a good printer *before* attempting to do so. Execute some DOS command, maybe? ___ 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] [UD] Who's locking a record
Here's how we do it:
READU MASTER.REC FROM F.CNTRL, 'COM.MASTER' LOCKED
UID = STATUS()
CMD = '!grep :':UID:': /etc/passwd | cut -d -f5'
EXECUTE CMD CAPTURING USER.NAME
MSG = 'DIST record - ':DIST.NBR:' is locked by: ':USER.NAME1
CALL SB.DISP(9,MSG)
SLEEP 5
CALL SB.DISP(9.'')
RETURN
END ELSE
RELEASE F.CNTRL, 'COM.MASTER'
STOP
END
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
Sent: Tuesday, January 28, 2014 12:18 PM
To: U2 Mail List
Subject: [U2] [UD] Who's locking a record
In UniData, if you do a READU you can find out the User ID who has the
record locked by using the STATUS() function; this returns the 'UID'
value. Here's a list of users:
3 Dev (0)- lu
Licensed(UDT+CP)/Effective Udt Sql iPhtm Pooled Total
( 24 + 1 ) / 25 1 0 0 0 1
UDTNO USRNBR UID USRNAME USRTYPE TTYIP-ADDRESS TIME DATE
1 2488 197612 AsiAdmin phantom pts/1 Console 10:42:32 Jan 15 2014
2 3920 197610 JohnSmith udt pts/2 192.168.1.52 08:15:33 Jan
28 2014
3180 197608 udcsuser udcspts/3 udcs 09:22:57 Jan
28 2014
4 3840 197608 udcsuser udcspts/4 udcs 09:23:08 Jan 28 2014
Now, if John Smith goes to read and lock a record that is locked by
port#3, how can I figure out which port# actually has the record locked,
since the UniData GETUSER() function only returns the UID, and that
user, because it is a UniObjects user, is connected on more than one port#?
I have a file managed at login that keeps track of the PORT#s and the
associated users assigned by our application. I want our logging to
report that a record lock by user so-and-so on port {n} is already in place.
Thanks.
Bill
___
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] [UD] Who's locking a record
Can you get what you need using GETREADU?
David A. Green
(480) 201-7953
DAG Consulting
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
Sent: Tuesday, January 28, 2014 1:18 PM
To: U2 Mail List
Subject: [U2] [UD] Who's locking a record
In UniData, if you do a READU you can find out the User ID who has the
record locked by using the STATUS() function; this returns the 'UID'
value. Here's a list of users:
3 Dev (0)- lu
Licensed(UDT+CP)/Effective Udt Sql iPhtm Pooled Total
( 24 + 1 ) / 25 1 0 0 0 1
UDTNO USRNBR UID USRNAME USRTYPE TTYIP-ADDRESS TIME DATE
1 2488 197612 AsiAdmin phantom pts/1 Console 10:42:32 Jan 15 2014
2 3920 197610 JohnSmith udt pts/2 192.168.1.52 08:15:33 Jan
28 2014
3180 197608 udcsuser udcspts/3 udcs 09:22:57 Jan
28 2014
4 3840 197608 udcsuser udcspts/4 udcs 09:23:08 Jan 28 2014
Now, if John Smith goes to read and lock a record that is locked by port#3,
how can I figure out which port# actually has the record locked, since the
UniData GETUSER() function only returns the UID, and that user, because it
is a UniObjects user, is connected on more than one port#?
I have a file managed at login that keeps track of the PORT#s and the
associated users assigned by our application. I want our logging to report
that a record lock by user so-and-so on port {n} is already in place.
Thanks.
Bill
___
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] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
You know, I was able to integrate all printers into U2 by writing a few simple programs and using Print Wizard to convert our PCL5 output into a .pdf file. This way, I never work with printers at the UD level any more. And PW is an awesome product with awesome support. Bill Untitled Page - Original Message - *From:* antli...@youngman.org.uk *To:* U2 Users List u2-users@listserver.u2ug.org *Date:* 1/28/2014 12:54 PM *Subject:* Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer. On 28/01/14 20:31, Jeff Schasny wrote: I've been using Universe since it was in beta and I had no idea you could use a URI in SETPTR. Its a good day, I've learned something new. Thanks! Just watch out. In today's modern world of GDI printers, sending a raw text dump from UV is often not a good idea. In the old days of dot-matrix, or even PCL that just expected a text stream, it worked fine. It's nowhere near that simple any more :-( Cheers, Wol Wols Lists wrote: So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol ___ 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] [UD] Who's locking a record
Oops, I forgot to mention I'm using Windows.
Bill
Untitled Page
- Original Message -
*From:* bl...@shaklee.com
*To:* U2 Users List u2-users@listserver.u2ug.org
*Date:* 1/28/2014 1:12 PM
*Subject:* Re: [U2] [UD] Who's locking a record
Here's how we do it:
READU MASTER.REC FROM F.CNTRL, 'COM.MASTER' LOCKED
UID = STATUS()
CMD = '!grep :':UID:': /etc/passwd | cut -d -f5'
EXECUTE CMD CAPTURING USER.NAME
MSG = 'DIST record - ':DIST.NBR:' is locked by: ':USER.NAME1
CALL SB.DISP(9,MSG)
SLEEP 5
CALL SB.DISP(9.'')
RETURN
END ELSE
RELEASE F.CNTRL, 'COM.MASTER'
STOP
END
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
Sent: Tuesday, January 28, 2014 12:18 PM
To: U2 Mail List
Subject: [U2] [UD] Who's locking a record
In UniData, if you do a READU you can find out the User ID who has the
record locked by using the STATUS() function; this returns the 'UID'
value. Here's a list of users:
3 Dev (0)- lu
Licensed(UDT+CP)/Effective Udt Sql iPhtm Pooled Total
( 24 + 1 ) / 25 1 0 0 0 1
UDTNO USRNBR UID USRNAME USRTYPE TTYIP-ADDRESS TIME DATE
1 2488 197612 AsiAdmin phantom pts/1 Console 10:42:32 Jan 15 2014
2 3920 197610 JohnSmith udt pts/2 192.168.1.52 08:15:33 Jan
28 2014
3180 197608 udcsuser udcspts/3 udcs 09:22:57 Jan
28 2014
4 3840 197608 udcsuser udcspts/4 udcs 09:23:08 Jan 28 2014
Now, if John Smith goes to read and lock a record that is locked by
port#3, how can I figure out which port# actually has the record locked,
since the UniData GETUSER() function only returns the UID, and that
user, because it is a UniObjects user, is connected on more than one port#?
I have a file managed at login that keeps track of the PORT#s and the
associated users assigned by our application. I want our logging to
report that a record lock by user so-and-so on port {n} is already in place.
Thanks.
Bill
___
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] [UV] Programmatic Verification of Globally Cataloged Subroutine
Hi, LeRoy Dreyfuss said that you would have to change 52 to 12 for EXIST to work. The globally cataloged programs have an extra 40 characters put on the front, so that would cause a problem. @RECORD[1,4] is a count of the number of times the program has been used. @RECORD[5,8] is who cataloged it @RECORD[13,4] are the date and time (I think) Regards, Keith ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine
I was just trying to think of a reason why I'd want specifically to know how many arguments the subroutine has. That is, why was this particular fact chosen as the returned status code ? -Original Message- From: Keith Johnson [DATACOM] keith.john...@datacom.co.nz To: 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org Sent: Tue, Jan 28, 2014 3:10 pm Subject: Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine Hi, LeRoy Dreyfuss said that you would have to change 52 to 12 for EXIST to work. The globally cataloged programs have an extra 40 characters put on the front, so that would cause a problem. @RECORD[1,4] is a count of the number of times the program has been used. @RECORD[5,8] is who cataloged it @RECORD[13,4] are the date and time (I think) Regards, Keith ___ 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] [UD] Who's locking a record
That's what we used to use. It's a little more of a pain as you have to
parse through the output to find the correct record - but it should give you
need. It's simply list.readu output in an array.
Hth
Colin
-Original Message-
From: David A. Green
Sent: Tuesday, January 28, 2014 2:19 PM
To: 'U2 Users List'
Subject: Re: [U2] [UD] Who's locking a record
Can you get what you need using GETREADU?
David A. Green
(480) 201-7953
DAG Consulting
-Original Message-
From: Bill Haskett
Sent: Tuesday, January 28, 2014 1:18 PM
To: U2 Mail List
Subject: [U2] [UD] Who's locking a record
In UniData, if you do a READU you can find out the User ID who has the
record locked by using the STATUS() function; this returns the 'UID'
value. Here's a list of users:
3 Dev (0)- lu
Licensed(UDT+CP)/Effective Udt Sql iPhtm Pooled Total
( 24 + 1 ) / 25 1 0 0 0 1
UDTNO USRNBR UID USRNAME USRTYPE TTYIP-ADDRESS TIME DATE
1 2488 197612 AsiAdmin phantom pts/1 Console 10:42:32 Jan 15 2014
2 3920 197610 JohnSmith udt pts/2 192.168.1.52 08:15:33 Jan
28 2014
3180 197608 udcsuser udcspts/3 udcs 09:22:57 Jan
28 2014
4 3840 197608 udcsuser udcspts/4 udcs 09:23:08 Jan 28 2014
Now, if John Smith goes to read and lock a record that is locked by port#3,
how can I figure out which port# actually has the record locked, since the
UniData GETUSER() function only returns the UID, and that user, because it
is a UniObjects user, is connected on more than one port#?
I have a file managed at login that keeps track of the PORT#s and the
associated users assigned by our application. I want our logging to report
that a record lock by user so-and-so on port {n} is already in place.
Thanks.
Bill
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine
Legacy applications I imagine. You also wondered about why the 52nd character. Again, legacy from Pr1me I suppose. That predates my involvement or usage of UV but most of those subroutines were to make migrating easier. Regards, LeRoy Sent from my iPhone 5s On Jan 28, 2014, at 6:15 PM, Wjhonson wjhon...@aol.com wrote: I was just trying to think of a reason why I'd want specifically to know how many arguments the subroutine has. That is, why was this particular fact chosen as the returned status code ? -Original Message- From: Keith Johnson [DATACOM] keith.john...@datacom.co.nz To: 'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org Sent: Tue, Jan 28, 2014 3:10 pm Subject: Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine Hi, LeRoy Dreyfuss said that you would have to change 52 to 12 for EXIST to work. The globally cataloged programs have an extra 40 characters put on the front, so that would cause a problem. @RECORD[1,4] is a count of the number of times the program has been used. @RECORD[5,8] is who cataloged it @RECORD[13,4] are the date and time (I think) Regards, Keith ___ 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] [UD] Who's locking a record
Thanks Colin David. That's what I did; what a dance though!
I wonder why anyone would want STATUS() to return a value that doesn't
give us the means to resolve the problem (as in what terminal, or what
UO program was locking the record)? PORT.STATUS is of no value in a web
environment because it's too slow and doesn't return a call stack on a
UO process.
It's be really nice if we could get any information about a port/process
simply by querying some object, instead of having to remember some
esoteric function whose data we need to parse through. Kind of like UD
not telling us which darned dbms account a user is logged into!
Thanks again.
Bill
Untitled Page
- Original Message -
*From:* alfke...@hotmail.com
*To:* 'U2 Users List' u2-users@listserver.u2ug.org
*Date:* 1/28/2014 3:49 PM
*Subject:* Re: [U2] [UD] Who's locking a record
That's what we used to use. It's a little more of a pain as you have to
parse through the output to find the correct record - but it should give you
need. It's simply list.readu output in an array.
Hth
Colin
-Original Message-
From: David A. Green
Sent: Tuesday, January 28, 2014 2:19 PM
To: 'U2 Users List'
Subject: Re: [U2] [UD] Who's locking a record
Can you get what you need using GETREADU?
David A. Green
(480) 201-7953
DAG Consulting
-Original Message-
From: Bill Haskett
Sent: Tuesday, January 28, 2014 1:18 PM
To: U2 Mail List
Subject: [U2] [UD] Who's locking a record
In UniData, if you do a READU you can find out the User ID who has the
record locked by using the STATUS() function; this returns the 'UID'
value. Here's a list of users:
3 Dev (0)- lu
Licensed(UDT+CP)/Effective Udt Sql iPhtm Pooled Total
( 24 + 1 ) / 25 1 0 0 0 1
UDTNO USRNBR UID USRNAME USRTYPE TTYIP-ADDRESSTIME DATE
1 2488 197612 AsiAdmin phantom pts/1 Console 10:42:32 Jan 15 2014
2 3920 197610 JohnSmith udt pts/2 192.168.1.52 08:15:33 Jan 28 2014
3180 197608 udcsuser udcspts/3 udcs 09:22:57 Jan 28 2014
4 3840 197608 udcsuser udcspts/4 udcs 09:23:08 Jan 28 2014
Now, if John Smith goes to read and lock a record that is locked by port#3,
how can I figure out which port# actually has the record locked, since the
UniData GETUSER() function only returns the UID, and that user, because it
is a UniObjects user, is connected on more than one port#?
I have a file managed at login that keeps track of the PORT#s and the
associated users assigned by our application. I want our logging to report
that a record lock by user so-and-so on port {n} is already in place.
Thanks.
Bill
___
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] 11.2
Hi George: Most US Rocket Software sellers are consider VAR's or value added resellers. That means we must add value to sale of Universe licenses. That is why you will rarely see prices quoted over the internet. However, you can contact me off-line and will go through your options. U2logic is a Rocket Software VAR selling XLr8 Tools, U2Weblink middle-ware, and a host of application software. Regards, Doug www.u2logic.com On Tue, Jan 28, 2014 at 11:56 AM, George Gallen ggal...@wyanokegroup.comwrote: It's been awhile since we last bought UV. What does UV run these days per license? Note...we are not looking to upgrade at this point - but might consider it sometime later this year. George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.comhttp://www.wyanokegroup.com/ ___ 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] [UV] Programmatic Verification of Globally Cataloged Subroutine
I was also surprised to find it possible to ASSIGN a value to STATUS(). A quick test program shows it only allows integer values. Decimals have the ABS() of the value assigned, and text produces a Nonnumeric runtime error and STATUS() is (as expected) set to 0. Gregor Scott System Group Manager 549 Blackburn Rd Mount Waverley VIC 3149 Australia P: +61 3 9535 F: +61 3 9535 2274 E: gregor.sc...@pentanasolutions.com W: pentanasolutions.com Pentana Solutions accepts no liability for the content of this email, or for the consequences of any actions taken on the basis of the information provided, unless that information is subsequently confirmed in writing. If you are not the intended recipient, you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer.
I second the motion. I recently installed Print Wizard on a client's machine and was impressed at how easy it was to use. Robert Norman ROBERT NORMAN AND ASSOCIATES 23441 Golden Springs Dr., #289, Diamond Bar, CA 91765 (951) 541-1668 i...@keyway.net mailto:i...@keyway.net http://users.keyway.net/~ice/ http://users.keyway.net/%7Eice/ Affordable computer consulting services and computer programming for UNIVERSE, UNIDATA, U2, PICK/BASIC, DATA/BASIC, UniVerseBasic, UniBasic, R/BASIC, jBC. Ask about our $50 discounted rate for telecommuting projects. On 1/28/2014 2:37 PM, Bill Haskett wrote: You know, I was able to integrate all printers into U2 by writing a few simple programs and using Print Wizard to convert our PCL5 output into a .pdf file. This way, I never work with printers at the UD level any more. And PW is an awesome product with awesome support. Bill Untitled Page - Original Message - *From:* antli...@youngman.org.uk *To:* U2 Users List u2-users@listserver.u2ug.org *Date:* 1/28/2014 12:54 PM *Subject:* Re: [U2] How do you verify windows printer is good before fatal error by PRINTing to a bogus printer. On 28/01/14 20:31, Jeff Schasny wrote: I've been using Universe since it was in beta and I had no idea you could use a URI in SETPTR. Its a good day, I've learned something new. Thanks! Just watch out. In today's modern world of GDI printers, sending a raw text dump from UV is often not a good idea. In the old days of dot-matrix, or even PCL that just expected a text stream, it worked fine. It's nowhere near that simple any more :-( Cheers, Wol Wols Lists wrote: So if I am working on \\ASHDOWN (the name of my computer) I can use SETPTR to point at \\TIGGER\HP - a printer logically connected to a different computer that I've never told UV anything about. Setptr is quite happy to be given a windows remote computer reference and it works fine. That was how all our printers worked - they usually had network cards in them, so when a new printer turned up, I would assign it a name in DNS, and for anybody who was supposed to use it I would just edit their login script to add eg SETPTR ...,AT \\ACCOUNTS-HP\RAW And it just worked. No UV printer setting up whatsoever. Okay, my setup was a little bit cleverer than that, but everything, and I mean EVERYTHING, was done in my programs. Nothing at the UV level whatsoever. Cheers, Wol ___ 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] [UV] Programmatic Verification of Globally Cataloged Subroutine
You are correct. 52 works for globally cataloged programs. 12 for locally cataloged programs. For clarity, @RECORD[5,8] is the account where it was last cataloged (@WHO). 11 years ago I tried to have the user ID added but the data typing of the header's structure didn't seem to allow it. That was then. It doesn't look to have changed much if at all. I wasn't able to find the date in the header, but one could use the date of the object on disk in a pinch. The MAP command displays this info as a report. On Tue, Jan 28, 2014 at 6:10 PM, Keith Johnson [DATACOM] keith.john...@datacom.co.nz wrote: Hi, LeRoy Dreyfuss said that you would have to change 52 to 12 for EXIST to work. The globally cataloged programs have an extra 40 characters put on the front, so that would cause a problem. @RECORD[1,4] is a count of the number of times the program has been used. @RECORD[5,8] is who cataloged it @RECORD[13,4] are the date and time (I think) Regards, Keith ___ 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] [UV] Programmatic Verification of Globally Cataloged Subroutine
Makes sense. It only outputs integers (user IDs, msg.text numbers, SYS.MESSAGE IDs, etc.) On Tue, Jan 28, 2014 at 11:26 PM, Gregor Scott gregor.sc...@pentanasolutions.com wrote: I was also surprised to find it possible to ASSIGN a value to STATUS(). A quick test program shows it only allows integer values. Decimals have the ABS() of the value assigned, and text produces a Nonnumeric runtime error and STATUS() is (as expected) set to 0. Gregor Scott System Group Manager 549 Blackburn Rd Mount Waverley VIC 3149 Australia P: +61 3 9535 F: +61 3 9535 2274 E: gregor.sc...@pentanasolutions.com W: pentanasolutions.com Pentana Solutions accepts no liability for the content of this email, or for the consequences of any actions taken on the basis of the information provided, unless that information is subsequently confirmed in writing. If you are not the intended recipient, you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. ___ 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
