Re: [U2] I need a favor
Did ever using CLIENT-MASTER.FILE ever compile. I just tried D3 and it didn't work. I don't recall it ever working. That was the golden rule, no dashes, asterisks, slashes or plus signs in variable names as they are operators. My 1 cent - Original Message - From: "Charlie Rubeor" <[EMAIL PROTECTED]> To: Sent: Thursday, July 26, 2007 2:29 PM Subject: RE: [U2] I need a favor > [EMAIL PROTECTED] wrote on 07/26/2007 01:16:44 PM: > > > I got stuck with file names like CLIENT-MASTER, CLIENT-CRED-FILE, etc. > > You should convert dashes in file names to periods or underscores in the > > variable names. Otherwise, you get: > > OPEN 'CLIENT-MASTER' TO CLIENT-MASTER.FILE ... > > READ CLIENT-MASTER.REC FROM CLIENT-MASTER.FILE, CLIENT-MASTER.ID ... > > > > UV compiler doesn't like variables with dashes. > > > > It's not just Universe. Not many compilers will like variables with > dashes. With CLIENT-MASTER.FILE, the compiler would think that you wanted > to subtract MASTER.FILE from CLIENT. > > For example, try this (if it even compiles, that is): > > CLIENT = 3 > MASTER.FILE = 1 > TEMP = CLIENT-MASTER.FILE > PRINT TEMP > > It should print out 2 > > -- > Charlie Rubeor > Senior Database Administrator > Wiremold/Legrand > 60 Woodlawn Street > West Hartford, CT 06110 > Tel: 860-233-6251 x3498 > Fax: 860-523-3690 > Email: [EMAIL PROTECTED] > -- > --- > 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] I need a favor
Would prefer to see author name in change history, and an As Function button. A set of option buttons would be useful to select account flavor. ABORT 201 will not work in UniVerse non-Pick flavors nor, I suspect, in UniData BASICTYPE "U". I used the utility with no file name, yet it still added an OPEN statement (file name "FNAME") to the skeleton. It shouldn't have. Would be good if some degree of customizability were available - for example my change history has a Version field, IBM's has an ECASE reference. Just some ideas. Nice utility, nonetheless. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need a favor
Very Nice. When I write "one-time" utilities to fix an issue there's always bits of code I reuse from past programs. Things like "an escape while processing in the main loop". Something like the following... 0058 * Provide an Escape 0059 IF SYSTEM(14) THEN 0060 INPUT ANS,1 0061 IF ANS=CHAR(27) THEN 0062 CALL SB.DISP(4,'UTLD9000.2') ;!Exit? es, o 0063 IF RTN.FLAG = 'X' THEN CLEARSELECT; GO 999 0064 END 0065 END I could see you're code generator being very useful if it had selectable options to include bits of code for different purposes. Regards, Eric Y. Neu Sr. Programmer Analyst Zetron, Inc. eneu at zetron dot com 425.820.6363 x271 www.zetron.com -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 8:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] I need a favor
Are you at the point of taking suggestions (not for the purpose of tooting the collective 'my horn'?) about making the dropped code a little more robust. If so, here's a couple of mine: add 'ON ERRORs' on the WRITEs if you havent done so... provide for opens of DICTs or maybe just OPEN "","" TO .FILE On 7/27/07, john reid <[EMAIL PROTECTED]> wrote: > Slick... > j > > On 7/26/07, Charles Barouch <[EMAIL PROTECTED]> wrote: > > All, > > I just put up a new (free) tool on my site. It > > takes very little time to use and I'd appreciate it if some of you would > > beat on it and let me know what you think. > > > > > > http://www.keyally.com/fasterskel/Main.php5 > > > > -- > > Charles > > Barouch > > [EMAIL PROTECTED] - Consulting > > (718) 762-3884x1 > > --- > > u2-users mailing list > > u2-users@listserver.u2ug.org > > To unsubscribe please visit http://listserver.u2ug.org/ > > > > > -- > john > -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need a favor
I agree, it works well and I like the format of the code it generates. Good job Tom Dodds -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Cordes, Tom (contractor) Sent: Friday, July 27, 2007 9:42 AM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] I need a favor I like it. Works well. Tom -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 11:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor All, I just put up a new (free) tool on my site. It takes very little time to use and I'd appreciate it if some of you would beat on it and let me know what you think. http://www.keyally.com/fasterskel/Main.php5 -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- 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] I need a favor
I like it. Works well. Tom -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 11:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor All, I just put up a new (free) tool on my site. It takes very little time to use and I'd appreciate it if some of you would beat on it and let me know what you think. http://www.keyally.com/fasterskel/Main.php5 -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- 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] I need a favor
Slick... j On 7/26/07, Charles Barouch <[EMAIL PROTECTED]> wrote: > All, > I just put up a new (free) tool on my site. It > takes very little time to use and I'd appreciate it if some of you would > beat on it and let me know what you think. > > > http://www.keyally.com/fasterskel/Main.php5 > > -- > Charles > Barouch > [EMAIL PROTECTED] - Consulting > (718) 762-3884x1 > --- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ > -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need a favor
I guess mine is a generator based on a template. Internally it isn't real elegant, just a bunch of IF...THEN code and literal strings, but it does what I need. I did actually start with a functioning program that had some of everything in it which I stripped down to a skeleton, then broke into bits and pieces, adding the logic to reassemble only the needed bits into the output. === Norman Morgan <> [EMAIL PROTECTED] <> http://www.brake.com === Enroute to a decision I usually take the cynic route. === > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of > Charles Barouch > Sent: Thursday, July 26, 2007 11:24 AM > To: u2-users@listserver.u2ug.org > Subject: RE: [U2] I need a favor > > Norman, > Sounds like you are making an excellent case for Brian's > template idea. > > Brian, > I *think* the lowercase issue is all resolved now. > -- > Charles Barouch > [EMAIL PROTECTED] - > Consulting > (718) 762-3884x1 > --- > 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] I need a favor
[EMAIL PROTECTED] wrote on 07/26/2007 01:16:44 PM: > I got stuck with file names like CLIENT-MASTER, CLIENT-CRED-FILE, etc. > You should convert dashes in file names to periods or underscores in the > variable names. Otherwise, you get: > OPEN 'CLIENT-MASTER' TO CLIENT-MASTER.FILE ... > READ CLIENT-MASTER.REC FROM CLIENT-MASTER.FILE, CLIENT-MASTER.ID ... > > UV compiler doesn't like variables with dashes. > It's not just Universe. Not many compilers will like variables with dashes. With CLIENT-MASTER.FILE, the compiler would think that you wanted to subtract MASTER.FILE from CLIENT. For example, try this (if it even compiles, that is): CLIENT = 3 MASTER.FILE = 1 TEMP = CLIENT-MASTER.FILE PRINT TEMP It should print out 2 -- Charlie Rubeor Senior Database Administrator Wiremold/Legrand 60 Woodlawn Street West Hartford, CT 06110 Tel: 860-233-6251 x3498 Fax: 860-523-3690 Email: [EMAIL PROTECTED] -- --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need a favor
I got stuck with file names like CLIENT-MASTER, CLIENT-CRED-FILE, etc. You should convert dashes in file names to periods or underscores in the variable names. Otherwise, you get: OPEN 'CLIENT-MASTER' TO CLIENT-MASTER.FILE ... READ CLIENT-MASTER.REC FROM CLIENT-MASTER.FILE, CLIENT-MASTER.ID ... UV compiler doesn't like variables with dashes. Dick Kryka Director of Applications Paragon Financial Services a Division of Money Management International 303-632-2226 [EMAIL PROTECTED] -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 9:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor All, I just put up a new (free) tool on my site. It takes very little time to use and I'd appreciate it if some of you would beat on it and let me know what you think. http://www.keyally.com/fasterskel/Main.php5 -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- 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] I need a favor
Pretty cool. -- Original message -- From: "Charles Barouch" <[EMAIL PROTECTED]> > All, > I just put up a new (free) tool on my site. It > takes very little time to use and I'd appreciate it if some of you would > beat on it and let me know what you think. > > > http://www.keyally.com/fasterskel/Main.php5 > > -- > Charles > Barouch > [EMAIL PROTECTED] - Consulting > (718) 762-3884x1 > --- > 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] I need a favor
Charles, Our network administrator said there is code on your site that our firewall sees as a threat so it blocks it. It isn't the php5 as we cannot access the keyally.com site. Brenda Price -Original Message- From: Charles Barouch [mailto:[EMAIL PROTECTED] Sent: Thursday, July 26, 2007 11:03 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] I need a favor Brenda, I just re-checked the link. Please try again. It is possibly a timing issue, or perhaps your firewall doesn't trust 'php5' or my site. -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 Brenda Price wrote: | Charles, | | I tried to get there but keep getting an internet page not found error. | | Brenda | | -Original Message- | From: Charles Barouch [mailto:[EMAIL PROTECTED] | Sent: Thursday, July 26, 2007 10:02 AM | To: u2-users@listserver.u2ug.org | Subject: [U2] I need a favor | | All, |I just put up a new (free) tool on my site. It | takes very little time to use and I'd appreciate it if some of you would | beat on it and let me know what you think. | | | http://www.keyally.com/fasterskel/Main.php5 | | -- | Charles | Barouch | [EMAIL PROTECTED] - Consulting | (718) 762-3884x1 | --- | 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] I need a favor
Norman, Sounds like you are making an excellent case for Brian's template idea. Brian, I *think* the lowercase issue is all resolved now. -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need a favor
Baker, Dummy up some code to show me what you want it to look like, and I'll see how hard it'll be to do. -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 Baker Hughes wrote: | Hey, that's pretty cool. | | I had the code emailed to me. You write alot like I do, or like my best | mentor (Dave W. at PPI). | | Why not add a case statement in your driver/main loop, and an ACTion | variable that you play with in each Gosub. Control your whole program | with conditional branching and error handling with one variable. | | -Baker | | -Original Message- | From: [EMAIL PROTECTED] | [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch | Sent: Thursday, July 26, 2007 10:02 AM | To: u2-users@listserver.u2ug.org | Subject: [U2] I need a favor | | All, |I just put up a new (free) tool on my site. It takes very little time | to use and I'd appreciate it if some of you would beat on it and let me | know what you think. | | | http://www.keyally.com/fasterskel/Main.php5 | | -- | Charles | Barouch | [EMAIL PROTECTED] - Consulting | (718) 762-3884x1 | --- | 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] I need a favor
Brenda, I just re-checked the link. Please try again. It is possibly a timing issue, or perhaps your firewall doesn't trust 'php5' or my site. -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 Brenda Price wrote: | Charles, | | I tried to get there but keep getting an internet page not found error. | | Brenda | | -Original Message- | From: Charles Barouch [mailto:[EMAIL PROTECTED] | Sent: Thursday, July 26, 2007 10:02 AM | To: u2-users@listserver.u2ug.org | Subject: [U2] I need a favor | | All, |I just put up a new (free) tool on my site. It | takes very little time to use and I'd appreciate it if some of you would | beat on it and let me know what you think. | | | http://www.keyally.com/fasterskel/Main.php5 | | -- | Charles | Barouch | [EMAIL PROTECTED] - Consulting | (718) 762-3884x1 | --- | 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] I need a favor
Brian, I am open to templates and I've noted the lowercase bug. What exactly don't you like? NOTE: THIS IS NOT AN INVITATION FOR EVERYONE TO CREATE A RELIGIOUS WAR OVER CODING STYLES. This is an attempt at a civil discussion for the purpose of making the tool more useful. -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 Brian Leach wrote: | Charles | | I get the idea, but I don't like the code it produces... | | (sorry did that sounds too blunt) | Also the 'lowercase' option turns the file names into lower case as well. | | How about offering a choice of templates (and option to upload)? | | Brian | | |> -Original Message- |> From: [EMAIL PROTECTED] |> [mailto:[EMAIL PROTECTED] On Behalf Of |> Charles Barouch |> Sent: 26 July 2007 16:02 |> To: u2-users@listserver.u2ug.org |> Subject: [U2] I need a favor |> |> All, |>I just put up a new (free) tool on my site. It takes very |> little time to use and I'd appreciate it if some of you would |> beat on it and let me know what you think. |> |> |> http://www.keyally.com/fasterskel/Main.php5 |> |> -- |> Charles |> Barouch |> [EMAIL PROTECTED] - Consulting |> (718) 762-3884x1 |> --- |> 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] I need a favor
Hey, that's pretty cool. I had the code emailed to me. You write alot like I do, or like my best mentor (Dave W. at PPI). Why not add a case statement in your driver/main loop, and an ACTion variable that you play with in each Gosub. Control your whole program with conditional branching and error handling with one variable. -Baker -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 10:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor All, I just put up a new (free) tool on my site. It takes very little time to use and I'd appreciate it if some of you would beat on it and let me know what you think. http://www.keyally.com/fasterskel/Main.php5 -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- 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] I need a favor
I like it! I use something very similar in concept that I wrote. Since
we are an Activant/Prelude customer, we are SB+ users and the generator
takes that into account. I still wind up writing a lot of Basic, so I
did this to insure consistency in my programs. The program framework
has evolved from 10 years of trying different things. It winds of being
a pragmatic collection of methods that have worked well for me in a
variety of situations. I tried your generator using just two file names
and no parameters. Then I ran the same stuff through mine. Here is
what yours produced:
SUBROUTINE TEST.IT
* TEST.IT
* by Norman Morgan ([EMAIL PROTECTED])
* on Thursday, 2007/07/26
*
* Change History *
* Name.. Date.. Summary of Change.
* Skel 2007/07/26 Created
*
*
* Initialization
*
GOSUB HOUSEKEEPING
*
* Main Logic
*
DONE = 0
LOOP
* *
UNTIL DONE DO
GOSUB PROCESS.ONE
REPEAT
*
STOP; * Logical End of Program
*
* Start of Subroutines
*
HOUSEKEEPING:
*
* Variable initialization
*
* File Opens
FERR = ""
*
OPEN 'CUSTOMER' TO CUSTOMER.FILE ELSE FERR := ""
OPEN 'PRODUCT' TO PRODUCT.FILE ELSE FERR := ""
OPEN '' TO .FILE ELSE FERR := ""
IF FERR # "" THEN ABORT 201, FERR
RETURN
*
PROCESS.ONE:
*
RETURN
*
*
*
*
* Sample lines to cut and paste as needed:
*
*
* For CUSTOMER:
*
* READ CUSTOMER.REC FROM CUSTOMER.FILE, CUSTOMER.ID THEN
*
* END ELSE
*
* END
* -
* READU CUSTOMER.REC FROM CUSTOMER.FILE, CUSTOMER.ID LOCKED
*
* END THEN
*
* END ELSE
*
* END
* -
* WRITE CUSTOMER.REC ON CUSTOMER.FILE, CUSTOMER.ID
* -
*
*
* For PRODUCT:
*
* READ PRODUCT.REC FROM PRODUCT.FILE, PRODUCT.ID THEN
*
* END ELSE
*
* END
* -
* READU PRODUCT.REC FROM PRODUCT.FILE, PRODUCT.ID LOCKED
*
* END THEN
*
* END ELSE
*
* END
* -
* WRITE PRODUCT.REC ON PRODUCT.FILE, PRODUCT.ID
* -
*
*
* For :
*
* READ .REC FROM .FILE, .ID THEN
*
* END ELSE
*
* END
* -
* READU .REC FROM .FILE, .ID LOCKED
*
* END THEN
*
* END ELSE
*
* END
* -
* WRITE .REC ON .FILE, .ID
* -
* Skeleton generated by FASTER by Key Ally, Inc. ([EMAIL PROTECTED])
* FASTER is copyright 2007, Charles David Barouch. All Rights Reserved.
END; * Physical End of Program
And here is what mine did:
SUBROUTINE TEST.IT; * Test The Program Generator
*
*Written by Norman Morgan on July 26, 2007
*
INCLUDE DMSKELCODE COMMON
*
*** Program Constants
PROG.NAME = "TEST.IT"
CO.NUM = PARMS(1)<1>
CO.NAME = PARMS(2)<1>
AM = CHAR(254); VM = CHAR(253)
LNNO = 0; PGNO = 0; FIRST = 1; FORM.FEED = CHAR(12)
LAST.CUST = ""
LAST.PROD = ""
*** Define and initialize total accumulators
*** 1st dimension: 1 - Customer, 2 - PRODUCT, 3 - Grand
*** 2nd dimension: 1 - X, 2 - X, 3 - X
DIM TOTALS(3,3)
MAT TOTALS = 0
*** Get non-select runtime parameters
* REQ.??? = WORK
*** Open files
ERMSG = ""
OPEN "CUSTOMER" TO F.CUST ELSE ERMSG := " CUSTOMER"
OPEN "PRODUCT" TO F.PROD ELSE ERMSG := " PRODUCT"
IF ERMSG # "" THEN
MESG = "Unable to open:":ERMSG
IF WORK<12,1> # "JS" THEN CALL SB.DISP(3,MESG)
RETURN
END
*** direct output to printer
CALL ASSIGN.PRINTER
MAXLN = PRINT.DEFN<5,2> - 1
*** Select records to process with GRI input
CALL SB.DISP(8,"Selecting CUSTOMER records for ":PROG.NAME)
VERB = 'SSELECT CUSTOMER WITH'
WORDS = PARMS(39)
CALL PARSE.SELECT(WORDS,VERB)
VERB := ' BY (insert sort criteria here)'
EXECUTE VERB RETURNING MSG CAPTURING DSP
IF SYSTEM(11) = 0 THEN
IF WORK<12,1> # "JS" THEN CALL SB.DISP(3,'No Items Found')
CALL RESET.PRINTER
RETURN
END
*** Process selected records
CALL SB.DISP(8,"Processing CUSTOMER records for ":PROG.NAME)
SELCNT = SYSTEM(11)
RECCNT = 0
END.OF.FILE = 0
LOOP
READNEXT CUST.ID ELSE END.OF.FILE = 1
UNTIL END.OF.FILE = 1 DO
READ CUST FROM F.CUST,CUST.ID THEN
GOSUB ProcessRecord
END
REPEAT
*** do final totals
GOSUB CustomerTotal
GOSUB ProductTotal
GOSUB GrandTotal
*** close printer, tidy up and exit
CALL RESET.PRINTER
SLEEP 5
CALL SB.PROCESS("R")
RETURN
*
ProcessRecord:
*** advise user of progress
RECCNT += 1
IF (MOD(RECCNT,25) = 0) OR (RECCNT = SELCNT) THEN
MESSAGE = "Processing record ":RECCNT:" of ":SELCNT
IF WORK<12,1> # "JS" THEN CALL SB.DISP(9,MESSAGE)
END
*** initialize break registers and do first page headings
IF FIRST = 1 THEN
FIRST = 0
*(initialize break registers here)
GOSUB PageHeads
SPOOL.NUM = SYSTEM(20)
LOG.MSG = "Test The Program Generator"
CALL LOG.RPT(SPOOL.NUM, LOG.MSG)
END
*** check for control breaks
IF # LAST. THEN
GOSUB CustomerTotal
LAST.CUST = ??CUST??
GOSUB ProductTotal
LAST.PROD = ??PROD??
END
*(do detail r
RE: [U2] I need a favor
Chuck: While the tool is cool, I tend to cut-and-paste old programs into new ones. --Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 11:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor All, I just put up a new (free) tool on my site. It takes very little time to use and I'd appreciate it if some of you would beat on it and let me know what you think. http://www.keyally.com/fasterskel/Main.php5 -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- 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] I need a favor
Charles, I tried to get there but keep getting an internet page not found error. Brenda -Original Message- From: Charles Barouch [mailto:[EMAIL PROTECTED] Sent: Thursday, July 26, 2007 10:02 AM To: u2-users@listserver.u2ug.org Subject: [U2] I need a favor All, I just put up a new (free) tool on my site. It takes very little time to use and I'd appreciate it if some of you would beat on it and let me know what you think. http://www.keyally.com/fasterskel/Main.php5 -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- 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] I need a favor
Charles I get the idea, but I don't like the code it produces... (sorry did that sounds too blunt) Also the 'lowercase' option turns the file names into lower case as well. How about offering a choice of templates (and option to upload)? Brian > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of > Charles Barouch > Sent: 26 July 2007 16:02 > To: u2-users@listserver.u2ug.org > Subject: [U2] I need a favor > > All, >I just put up a new (free) tool on my site. It takes very > little time to use and I'd appreciate it if some of you would > beat on it and let me know what you think. > > > http://www.keyally.com/fasterskel/Main.php5 > > -- > Charles > Barouch > [EMAIL PROTECTED] - Consulting > (718) 762-3884x1 > --- > 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/
