Re: [U2] Advantage of indirect call in BASIC

Does anyone have any current benchmarks on this type of call? Several years ago when I tested it in UniData it was very slow call compared to using the name. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun

Re: [U2] Wally Terhune

Wally you will be missed. I've enjoyed working with you over the years. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan Goble Sent: Thursday, December 13, 2012

Re: [U2] Sleeping in Basic

Doug this works for me in UniData: SLEEP.TIME = 500 ;* .5 Second ERR = openSocket("loopback", 25, 1, SLEEP.TIME, hBUFF) David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserve

Re: [U2] Sleeping in Basic

Try changing the port number to something that doesn't exist. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Doug Farmer Sent: Friday, December 28, 2012 8:22 AM To

Re: [U2] Sleeping in Basic

;, 2, ) REC.KEY = FIELD(PARAMS, " ", 1) UTP.ID = FIELD(PARAMS, " ", 2) PRINT "Start UPDATE.REC.PH for ":REC.KEY GOSUB UPDATE.REC PRINT "Wake up process ":UTP.ID WAKE UTP.ID David A. Green (480) 813-1725 DAG Con

Re: [U2] [UD] SETPTR

Bill, sounds like a domain name network issue. How does a ping to UDGENERIC respond? Maybe you can add the IP address to your host file? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun

Re: [U2] Record locks (Unidata 7.2)

. *Note you can use GETUSERNAME(STATUS()) to see who has it locked. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jon Wells Sent: Wednesday, February 06, 2013 2:53 PM To

Re: [U2] Turn pagination back on

BPIOCP David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, February 07, 2013 1:21 PM To: u2-users@listserver.u2ug.org Subject: [U2] Turn pagination

Re: [U2] FW: Clearing Input Buffer

CLEARINPUT David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Al DeWitt Sent: Friday, February 22, 2013 12:52 PM To: 'U2 Users List' Subject: Re: [U2] FW: Clea

Re: [U2] UV full screen editor

Is there a way to have BDT use a TCL command besides BASIC/CATALOG to do my compile and cataloging? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen Sent

Re: [U2] I Descriptor no longer working in UniSQL after UD upgrade

Have your compiled your i-descriptor? Is it marked as MV? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mecki Foerthmann Sent: Tuesday, March 05, 2013 5:42 AM To: U2

Re: [U2] Unidata WHEN/ASSOCIATED

Jeff, This could be a good enhancement. How do you want it to work? 1. SELECT just the IDs or whatever the SAVING clause points to. Or 2. SELECT the IDs,MV pointers that match But until it goes through I'm sure someone has already written the code to do it in a UniBasic program. Da

Re: [U2] ISO Date Format

In UniData you can just use D-YMD. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jeff Schasny Sent: Monday, March 11, 2013 6:57 AM To: U2-Users@listserver.u2ug.org

[U2] REDBACK Fatal UniBasic errors

onder terminating now. Is there a way to capture a better error message? David A. Green (480) 813-1725 DAG Consulting ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: [U2] REDBACK Fatal UniBasic errors

Bill, thanks for the post, I will check this location for debugging purposes. But it doesn't help my issue of having Redback send back an error message that makes more sense when the UniBasic program aborts. David A. Green (480) 813-1725 DAG Consulting -Original Message- Fro

Re: [U2] [uv] Phantom question

Knowledge of sockets * Knowledge of SMTP protocol * A subroutine to encode BASE64 David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Robert Frailey Sent: Wednesday, March

Re: [U2] Selecting a special character in a SELECT (UV)

Try: ALT-160 Example: SELECT MY.FILE WITH @ID LIKE "...á..." (By holding down the alt key and pressing 160 on the numeric keypad. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2

Re: [U2] UniData PreStore to change the KEY of a record?

I would take my saved list and copy it to a text editor then using copy commands and a quick macro convert the list into a bunch of COPY FROM FILE.A BAD.KEY, GOOD.KEY commands. Then save it as a PA and then execute it. David A. Green (480) 813-1725 DAG Consulting -Original Message- From

[U2] DEBUG in a Phantom issue

Has anyone seen a phantom process get stuck in a loop because of an embedded DEBUG statement? I would think the input at the ! prompt would have aborted the phantom, but it just kept going saying invalid input over and over and over. just about filled the disk. UniData 6.1 David A. Green (480

Re: [U2] Running total

Here is what I use: SUBROUTINE RUNNING_TOTAL(CUR.TOT, AM.PTR, AMT, RESET.DATA) * RUNNING_TOTAL Keeps a Running Total for Reports * by David A. Green -- 9/12/01 * COMMON /RUNTOT/ RUNTOT.REC(10) * EQUATE RUNTOT.FLAG TO RUNTOT.REC(1) EQUATE RUNTOT.TOTS TO

Re: [U2] [UD] BASIC Code Failing

Intermittent data issues can be one of the hardest to debug. One way that has helped me out is to create a log file to log the transaction information, then verify the data and when it is incorrect, send off an email with the log file key to investigate. David A. Green (480) 813-1725 DAG

Re: [U2] KeyPressed

Try a HUSH ON/OFF around your input. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Friday, August 09, 2013 1:04 PM To: 'U2 Users List' Su

Re: [U2] What is the equivalent to UNNEST in Universe

Does UniVerse have ASD( ... ) keyword? That's what you would use in UniData. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Adrian Halid Sent: Tuesday, August 20,

Re: [U2] [OT] Interview Questions

Why not let HR handle the personality questions and background checks, that's what they do. That leaves you to concentrate on their technical abilities. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users

Re: [U2] Working with accented characters

UT.DATA = "" ; THIS.WORD = OCONV(THIS.WORD, "MCT") CASE THIS.WORD MATCHES WORD.EXCEPTIONS ; THIS.WORD = OCONV(THIS.WORD, "MCL") ;* Lower Case CASE 1 ; THIS.WORD = OCONV(THIS.WORD, &q

Re: [U2] Unidata index/query ?

a lot of records then you are processing them by index pointer and the disk reads will be all over the file. Whereas without the index you are reading the file going through it by groups and it will minimize the disk reads. David A. Green (480) 201-7953 DAG Consulting -Original Message-

Re: [U2] Unidata index/query ?

Yes, Doug if an index is properly done it will make a huge difference. But there are times when using an index can be slower. And this is the point I'm making. David A. Green (480) 201-7953 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-

Re: [U2] BASIC code - upper, lower, CamelCase, what say you?

HTML line that contained CSS code in. 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 Bobby Worley Sent: Friday, December 20, 2013 12:02 PM To: U2 Users List Subject: [U2]

Re: [U2] Regarding: LISTING SUB-VALUES

Shan is CUSTOMER.PHONE.NUMBER an associated MV? If you have an association with a field like CUSTOMER.PHONE.TYPE and you want just the FAX numbers then you can use the WITH keyword in your query like: :LIST CUSTOMER CUSTOMER.NAME WHEN CUSTOMER.PHONE.TYPE EQ "FAX" CUSTOMER.PHONE.NUMBER

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

Re: [U2] Left Outer Join Question

Remove the TO 3 on the MERGE command. 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 randyleesmith Sent: Monday, March 03, 2014 3:37 PM To: u2-users@listserver.u2ug.org

Re: [U2] Multi-threaded phantom processing

ocket that would just spawn a transfer server socket and send the socket address to the calling client. Then the client disconnects from the main server and just uses the transfer server to complete the task. Having 10 open phantoms with sockets will use up 10 licenses. David A. Green (480) 201

Re: [U2] Multi-threaded phantom processing

I don't know how you would query the OS on the fly, but you can do a manual search for a bank of 10 or 20 unused ports and "claim" them. David A. Green (480) 201-7953 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailt

Re: [U2] Multi-threaded phantom processing

made the auditors very happy. 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 Rick Nuckolls Sent: Wednesday, March 05, 2014 5:57 PM To: U2 Users List Cc: U2 Users List

Re: [U2] Multi-threaded phantom processing

Will you kinda lost me on this approach. Since the Server socket is on a different machine than the client they don't see each other's locks. Different clients might be on different servers too. David A. Green (480) 201-7953 DAG Consulting -Original Message- From: u2-

[U2] UniData Hash File Viewer

e the overflow pointers, etc. I checked the Wiki but didn't see anything like this. I have written a cool program like this that just allows one to traverse an OS file, but isn't hash file smart. Before I go and modify it I thought I'd ask the list first. David A. Green (480) 201

Re: [U2] Embedded program for Windows

/CSS/Scripting then it can be done. David A. Green (480) 813-1725 DAG Consulting ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: [U2] [UV] Essbase or other BI

I can't begin to tell you of all the companies that have wasted money on third party reporting tools. When all they really needed was a few canned reports presented in the way they needed. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users

Re: [U2] Index slowing performance?

improve performance by minimizing overflow. But be aware an oversized file is slower than a just-fit sized file. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jeff

Re: [U2] Pick Pocket Guide

I say we name it "Genius" so we can all feel smarter when we go to work! GeniusDB GeniusQuery GeniusCode (Not GeniusBasic that's an oxymoron) Etc. Hey! We've all just been elevated to Genius Programmers! David A. Green (480) 813-1725 DAG Consulting -Original Message

Re: [U2] Writeseq - getting to the EOF

How about WRITESEQ DATA APPEND ON S.FILE... David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of George Gallen Sent: Wednesday, March 24, 2010 2:26 PM To: U2 Users List

Re: [U2] SELECT Statement question

Wrap the text in single quotes or teach the end user how to use matching and let them supply the single quotes. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of

Re: [U2] ERROR IS NOT A UNIDATA DATA FILE

Isn't there a way to use $UDTHOME or $UDTBIN in the VOC path? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett Sent: Thursday, May 06, 2010 1:17 PM T

Re: [U2] Creating an index

Create an I-Descriptor: SUBR("-CATS", REUSE(DATE:"*"), PART);SUBR("-SPLICE", @, "*", QTY) And then Index the I-Descriptor. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-user

Re: [U2] TRANSLATING LAST VALUE FROM A SINGLE VALUE

Try: TRANS(FILE2, FILE1.FIELD1, "FILE2.FIELD12", "X"); MAXIMUM(@) David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of James Patrick Volkman Sent: Frida

Re: [U2] Saying Goodbye...

It's been an honor, don't go away too far. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Karl Pearson Sent: Thursday, May 27, 2010 9:29 PM To: U2 Users Li

Re: [U2] Universe Triggers

Jeff, I've written a socket driven email subroutine. I haven't tried it from a trigger but you don't have to shell out so it might work. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailt

Re: [U2] EREPLACE Function

Linda I would use CONVERT. It can be done in one pass: REM.STRING = "!...@#$%^&*()_+-={}|[]\;':",./<>?`~ ":CHAR(9) ;* Make your string of characters to Remove NEW.STRING = CONVERT(REM.STRING, SPACE(LEN(REM.STRING)), OLD.STRING) David A. Green (480) 813-1725

Re: [U2] Sequential Files Question

MSG = "Can't open ":DIR.FILE:", ":OUTPUT.NAME:" for output." END END END ELSE ABORT.FLAG = TRUE MSG = "Can't open ":DIR.FILE:"!" END RETURN David A. Green (480) 813-1725 DAG Consulting -Original Message

Re: [U2] [UD] Initialize COMMON Variables to Null (Empty String)

Looks like your first element was already assigned a value so it is skipping the null assignment. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett Sent

Re: [U2] [UD] Initialize COMMON Variables to Null (Empty String)

PRINT "COMMON SIMPLE: ":DQUOTE(DAGTEST2) PRINT "DIMENSIONED : ":DQUOTE(Z(1)) PRINT "DYNAMIC : ":DQUOTE(X<1>) PRINT "SIMPLE : ":DQUOTE(Y) * END All were set to 0 not "". Wally are we doing something wrong here? David A

Re: [U2] Sparse array population in Pick

If you can restrict the tag names to valid dictionary names you could do something like: TAGS DICT: 1052_MAKE 1052_MODEL 1052_AGE TAGS DATA: 001 Chrysler 002 LeBaron 003 7 years and 3 days David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun

[U2] Data in Dict

we leave the Dictionary alone, let the database use it the way it wants to and let us create our own storage device for dictionary related data. Thoughts? David A. Green (480) 813-1725 DAG Consulting ___ U2-Users mailing list U2-Users

Re: [U2] UniSubroutineException: Unknown Error [30102] Occurred

Can you run the same subroutine from a Basic Program? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Stephen Jackson Sent: Wednesday, February 16, 2011 7:28 AM To: u2

Re: [U2] Purging and Indexing

I would SELECT, SAVELIST, GETLIST, COPY to PO.HIST, GETLIST, PURGE PO. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Glorfield, Gordon Sent: Wednesday, February 16

Re: [U2] REMOVE() was Is This Worth Rewriting

MORE.CENTS = (CENTS # "") LOOP WHILE MORE.CENTS DO CENT = REMOVE(CENTS, MORE.CENTS) QTY = REMOVE(QTYS, BUFF) DISC = REMOVE(DISCS, BUFF) Etc. REPEAT David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-

Re: [U2] Is this worth rewriting?

> count += (value == 3); Careful some programming languages represent TRUE as -1. (all bits turned on) David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wols Lists S

Re: [U2] Trigger questions

Doug, In UniData you can test for STATUS() after the ON ERROR of a WRITE command. If the STATUS() is 2 then the WRITE failed in the Trigger. You can also set @USER.RETURN.CODE or use a COMMON variable to pass the error code/message. David A. Green (480) 813-1725 DAG Consulting -Original

Re: [U2] Very Weird Trigger Behavior

I would change the SELECT to an XLATE command. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of jonathanm Sent: Thursday, April 21, 2011 8:03 AM To: u2-users

Re: [U2] Very Weird Trigger Behavior

You're right of course that would only work if you have access to the key. If you don't then creating an Index is the best way to go. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: Dave Davis [mailto:dda...@harriscomputer.com] Sent: Thursday, April 21,

[U2] Does anyone us Magento as a front end

Does anyone us Magento as a front end web development tools with UniData? What kind of path do you use? Client > Web Server > SQL Server > UniData Or Client > Web Server > UniData David A. Green (480) 813-1725 DAG Consulting ___

Re: [U2] Multi char delimiter in DICT item

Bob is right. Lets enhance the FIELD function to accept a string delimiter and not just a single character. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bob Woodward

Re: [U2] [UV] Emulate SQL MAX() function at TCL

that point. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Boydell, Stuart Sent: Thursday, May 26, 2011 11:04 PM To: U2 Users List Subject: [U2] [UV] Emulate SQL MAX

Re: [U2] Uniquery

Try: X.LIST.STMT:= \HEADER "AR Invoices with customer last name \:V.JS.VAR1:\and customer first name John."\ David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of G

Re: [U2] Conversion Documentation

FORMAT() David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of jjuser ud2 Sent: Wednesday, June 15, 2011 12:49 PM To: U2 Users List Subject: [U2] Conversion Documentation

Re: [U2] Simple FMT question

0001 : David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bob Woodward Sent: Friday, July 08, 2011 12:17 PM To: u2-users@listserver.u2ug.org Subject: [U2] Simple FMT question

Re: [U2] Simple FMT question

Bob, Format will Truncate or add a Text Mark at any overflow. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bob Woodward Sent: Friday, July 08, 2011 12:17 PM To: u2

Re: [U2] CONV MCU on indexed field?

Chris, I would create a new i-descriptor dictionary called UNAME. The formula would do the uppercase logic like: OCONV(NAME, "MCU") or UPCASE(NAME). Then build your index on UNAME. And use UNAME in your SELECT statements for a filter and display NAME for output. David A. Green (480) 81

Re: [U2] uniobjects question

Doug if you need to satisfy an input, you have to write a wrapper that takes the subroutine inputs and converts them into DATA statements, then you call your program with the INPUTS. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun

Re: [U2] Universe error message 5000

Looks like Chinese year of the ... -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of fft2...@aol.com Sent: Wednesday, August 17, 2011 5:36 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Universe error message 50

Re: [U2] Avoiding deadly embraces

show the data in a "view only" mode with no need to lock the record that the shipping department will need to update to do its job. David A. Green (480) 813-1725 DAG Consulting ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: [U2] End of Month date routine

YEAR = OCONV(PASS.DATE, "DY") TEST = ICONV("Feb 29 ":YEAR, "D") LEAP.YEAR = (STATUS() = 0) David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf O

Re: [U2] End of Month date routine

Try this routine: SUBROUTINE RPT_DATES(OUT.DATES, IN.DATES, IN.DATE.TYPE, FLAG) * DAG_DATES - By David A. Green -- 1Jun05 * www.dagconsulting.com * * Calculate dates and date ranges * ** Inputs: *IN.DATES - Single or Multivalued List of Dates as

Re: [U2] End of Month date routine

Who wants to take each of the Leap Year calculations and put them into different subroutines and loop 100K times and see which one is faster using profiling? David A. Green (480) 813-1725 DAG Consulting ___ U2-Users mailing list U2-Users

Re: [U2] End of Month date routine

will vary. But this is a good example of working together to enhance the U2 products, now we all have the same Leap Year calculation and those that were using the MOD(YEAR, 4) method should now use this method everywhere as to avoid data corruption. David A. Green (480) 813-1725 DAG Consulting -

Re: [U2] TAB.TO.UNIVERSE

format. Back in the day this was necessary for UniObjects to work and so I have just always had it as the last parameter. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of

Re: [U2] Show.Timestamp

Will, I would change the CRT to PRINT. This way if you are running it to a log file the output will follow. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson

Re: [U2] Corrupted compiled code

Maybe you could save off the compiled program before recompiling. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett Sent: Wednesday, December 21, 2011 3:12 PM

Re: [U2] Corrupted compiled code

ASSIGN will also modify SYSTEM(2). Although I can't seem to find the documentation for it. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Allen Egerton Sent: Wedn

Re: [U2] Brilliant? or not?

Are you trying to emulate C? SMAX = (S1 > S2) ? S1 : S2; David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Friday, January 13, 2012 10:42 AM To: u2-us

Re: [U2] Date comparison

Just adding the advice to make sure all your date dictionaries have Right Justified formats. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Barry Rogen Sent: Tuesday

Re: [U2] Passing by Value

I always try to use meaningful variable names. CUSTOMER.CNT = DCOUNT(CUSTOMERS, @VM) FOR CUSTOMER.PTR = 1 TO CUSTOMER.CNT CUSTOMER = CUSTOMER<1, CUSTOMER.PTR> . . . NEXT CUSTOMER.PTR David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-user

Re: [U2] Building an Excel File

I have to say amen to Tony's comments. Why try and reinvent the wheel when there is a utility already written? Or throw out some kludgy solution when a native one can be found? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2u

Re: [U2] Including Code - A Best Practice?

omatically. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Baker Hughes Sent: Tuesday, February 07, 2012 4:05 PM To: U2 Users List (u2-users@listserver.u2ug.org) Subject: [U2]

Re: [U2] Including Code - A Best Practice?

some emails that talked about this very thing. I know you need something like -Z2 -D. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: Baker Hughes [mailto:baker.hug...@mouser.com] Sent: Wednesday, February 08, 2012 8:15 AM To: 'dgr...@dagconsulting.com';

Re: [U2] keeping track of opened files

Look at SYSTEM(50) David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Ed Clark Sent: Monday, March 05, 2012 11:42 AM To: U2 Users List Subject: [U2] keeping track of opened

Re: [U2] keeping track of opened files

Unless, of course, you use a phantom process to do all of your I/O. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett Sent: Monday, March 05, 2012 12:09 PM To

Re: [U2] Detecting idle time in INPUT statement.

Don, You should at least optimize the code by just checking a counter and not messing with TIME(). Your NAP command automatically takes care of the amount of time spent in each loop. You just need to count how many NAPs it takes to equal the amount of wait time you wish to have. David A. Green

Re: [U2] COMMON Size MisMatch

While this topic is on the table, can we request some kind of COMMON flag or command that would tell the DBM to clear commons on a LOGTO? David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun

Re: [U2] COMMON Size MisMatch

LOGTO to a different account. Programmers would make all their Account specific data into a single named common that has the flag to initialize on LOGTO. And keep other cross-account data in common that isn't flagged. Easy. David A. Green (480) 813-1725 DAG Consulting -Original Message

Re: [U2] Monitoring a U2 server?

opened it will refresh automatically with the new data. Be sure to have a last update date/time to make sure the system is up and running. You can get fancy and have thresholds that could send out an email or sms. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2

Re: [U2] COMMON Size MisMatch

Yes, but why make all the programmers in the world repeat this same code over and over? It could easily be accomplished by the database engine. It could be a new keyword across MV database systems. And another step in bring the MV worlds closer together. David A. Green (480) 813-1725 DAG

Re: [U2] EXIT ; EXIT inside a loop

Without testing I would say no. The EXIT is a branching statement, a GOTO in disguise. Using a LOOP WHILE REPEAT construct might be better. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun

Re: [U2] EXIT ; EXIT inside a loop

I think people are missing the original post. A WHILE or UNTIL on the FOR...NEXT doesn't work for this scenario. That is why I suggested the LOOP...UNTIL...DO...REPEAT construct. David A. Green (480) 813-1725 DAG Consulting ___ U2-Users mailing

Re: [U2] EXIT ; EXIT inside a loop

@TRUE UNTIL DONE.FLAG DO REPEAT NEXT A2 NEXT A1 David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Boydell, Stuart Sent: Thursday, April 19, 2012 3:05 PM To: U2

Re: [U2] EXIT ; EXIT inside a loop

Will, The DONE.FLAG allows the program to gracefully exit out without having to go thru frivolous loops. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent

Re: [U2] EXIT ; EXIT inside a loop

T out, and stop processing. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, April 19, 2012 3:24 PM To: u2-users@listserver.u2ug.org Subject: Re

Re: [U2] EXIT ; EXIT inside a loop

I was referring to the outer loops. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, April 19, 2012 3:40 PM To: u2-users@listserver.u2ug.org

Re: [U2] EXIT ; EXIT inside a loop

Will, Two things. First, good programming practice tells you to define the abort logic once. Sure G # H is simple, but this is just an example it could get quite complex. Second, There are statements before and after the abort situation, and your code doesn't handle it. David A. Green

Re: [U2] YYMMDD easy way?

I use: YYMMDD = CONVERT(" ", "", OCONV(TODAY, "DYMD2")) David A. Green (480) 813-1725 DAG Consulting -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Tuesday, April

  1   2   3   >