Re: [U2] UniData PROC tip: DB command
Just as a point of history, EXECUTE was invented by the Devcom team who wrote what became Prime INFORMATION. Our in-house motto was "PROCs are Crocks." Regards, Clif On Jul 31, 2008, at 8:22 PM, MAJ Programming wrote: > Microdata advanced PQ proc to PQN while regular Pick was advancing > with > EXECUTE. IMHO, EXECUTE won and Microdata faded into the sunset. > (They had a > few other programming shortcomings that are clearly deficient by > comparison > today). --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] UniData PROC tip: DB command
R83 ain't gonna help too much if the Proc ventured into the PQN (versus PQ) category. Microdata and regular Pick (R80, 83, 90, AP, D3) were in sync with their PQ commands during the Jurrasic Pick era. In 1979 MCD introduced PQN with its extended features as shown in the earlier email. I was there at that roll-out. In fact, Microdata PQN procs could not call PQ procs and vice-versa. They were 2 separate interpreters. There were some tricks around this. Over the years the non-Microdata flavours stepped up their PQ-level procs (T command comes to mind instead of U01A6) but focused more on the EXECUTE command. This opened the door to making the English Commands available to regular Data/Basic instead of trying to bump up Proc to behave more like Data/Basic. Since Proc was still interpreted, non-indentable and cryptic, it was relegated to being a Menu handler or jobstream handler like Batch Files (Not to be confused with Batch Updating). Some jobstreams were so obvious that the paragraph interpreter was created to save all of the "H" and "P" command usage. (Sidebar. MCD also created the "A" correlative and had the edge for a few years on the other earlier native systems. They caught up eventually). But the damage was done as virtually every system that was written pre-1990 had procs scattered throughout. Every one of my clients still has procs. Unless there was a complete re-write, it will still retain this legacy code and language. I don't know about UV but UD has a setting that allows true-PQN proc commands to exist. There was an earlier Microdata language called RPL that I've not heard of in almost 30 years. Then there was those programmers who could create assembler programs and MLOAD them. These are probably long gone as well. All of that PIB and control block stuff was fascinating but unless you came from a useful BAL background, you didn't have a chance. Am I showing my age? My 2 cents. Mark Johnson - Original Message - From: "Francis Bennett" <[EMAIL PROTECTED]> To: Sent: Thursday, July 31, 2008 10:56 PM Subject: Re: [U2] UniData PROC tip: DB command > I have an original R83 manual (dark grey and red with white stripes) - if > anyone has a major problem with PROC (or BASIC or anything else for that > matter) I could look it up. > > Francis > - Original Message - > From: John Jenkins > To: u2-users@listserver.u2ug.org > Sent: Friday, August 01, 2008 9:27 AM > Subject: RE: [U2] UniData PROC tip: DB command > > > And a few more PROC commands for the die-hards: > (I love them ! (sorry Wally !!) > (from memory - I think I got it OK) > --- > 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] UniData PROC tip: DB command
What is the point of this PROC dissertation. If it was for us die-hards, then we already know this. If it's for the newbies, then it would/should/could scare the hell out of them. Since you brought it up, you forgot the ( command, the [ command, the GSUB command, the RTN command, the '[] nnn' command, the concatenate with the MV command, the multiple MV command, and the whole boatload of user-exits with their cryptic syntax. Also is pattern matching in IF commands, different IF commands, multiple statement separators, multiple answer separators, ICONV and OCONV, IH, L and the A"5 command. I use PQN proc (nee Microdata) every week with a true Microdata client and often with a UD client with some Microdata switch turned on. Microdata advanced PQ proc to PQN while regular Pick was advancing with EXECUTE. IMHO, EXECUTE won and Microdata faded into the sunset. (They had a few other programming shortcomings that are clearly deficient by comparison today). My %2 cents Mark Johnson - Original Message - From: "John Jenkins" <[EMAIL PROTECTED]> To: Sent: Thursday, July 31, 2008 7:27 PM Subject: RE: [U2] UniData PROC tip: DB command > And a few more PROC commands for the die-hards: > (I love them ! (sorry Wally !!) > (from memory - I think I got it OK) > BTW: > H = "Hollerith" > O=Output literal display text that follows > Sn -set input buffer position to n (no blanks allowed in most flavours - a > bit like var<-1>="xx") > IP: - Input (key data) at current input buffer position with a colon prompt > IP %1 input (key data) into input buffer position 1 > > %n - input buffer position n > #n - output buffer position n > &m.n - file buffer m, attribute n - attribute 0 is the ID > !n - Select buffer n > M - a "mark" cann be used to go FORWARD (G F) or BACKWARD (G B) to previous > or next mark (bad practice - but you can do it) > C - a comment > RI / RO - reset input or output buffer > F-CLEAR n - clear file buffer n > F-OPEN n - open file buffer n to the specified file - if the open fails the > next statement is executed otherwise it skips one statement > F-READ n - reads specified record into file buffer n - if the read fails the > next statement is executed otherwise it skips one statement > STON - stack on > X - exit with message > MV x y- move into buffer x as specified in y (buffer or literal) > F;%1;C1;+;?%1 - example of RPN math - adding one to input buffer 1 in this > example: > e.g. PUSH %1; PUSH character 1; ADD top two stack entries - POPPING them and > PUSHING the result on the stack; Store the top stack entry in %1 > > IF- (test) - accepts one imperative and no ELSE. Multivalued lists of > conditions and simple actions allowed > T - (type a literal or buffer) - he optional "Sn" displays n spaces, a B > displays a BELL, a + inhibits CRLF at the end of a display, a comma is > concatenate. > > PQN > C Proc to test file pointers to see if they work and do count F and DIR > pointers. > C > C %1 holds count of files selected, %2 holds count of good file pointers > C %3 holds count of bad file pointers, %4 folds count of "F" pointers > C %5 holds count of DIR pointers, %6 is a work variable for the current file > name being processed > C > C Not run to check - so please be gentle on typos etc - just an example of > power > C if you want you can count multi-level files as well and say how many > sub-files in each one as an exercise (if you want to !) > C > T "Starting file pointer verify at ",+ > HDATE > P > RI > RO > F-CLEAR 1 > F-OPEN 1 VOC > XBad Account - can't open VOC file > MV %1 "0" > MV %2 "0" > MV %3 "0" > MV %4 "0" > MV %5 "0" > HSSELECT VOC WITH F1 = "F" "f" "DIR" "dir" > STON > HPQ-SELECT 1 > PH > 10 MV %6 !1 > IF # %6 G 30 > F-READ 1 %6 > G 20 > IF &2.1 = F^253f^253DIR^253dir G 15^25315^25317^25317 > G F > 15 F;%4;C1;+;?%4 > G F > 17 F;%5;C1;+;?%5 > M > F;%1;C1;+;?%1 > F-CLEAR 2 > F-OPEN 2 %6 > G 20 > F;%2;C1;+,?%2 > G 10 > 20 F;%3,C1,+,?%3 > T "File ,"%6," failed to open !",B > G 10 > 30 T S1 > T "Run complete at ",+ > HDATE > P > T "Checked ",%1," files: ",%2," good pointers and ", %3," bad pointers" > T %4," hashed files, ",%5," Directory files." > > Regards > > JayJay > --- > 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] UniData PROC tip: DB command
I have an original R83 manual (dark grey and red with white stripes) - if anyone has a major problem with PROC (or BASIC or anything else for that matter) I could look it up. Francis - Original Message - From: John Jenkins To: u2-users@listserver.u2ug.org Sent: Friday, August 01, 2008 9:27 AM Subject: RE: [U2] UniData PROC tip: DB command And a few more PROC commands for the die-hards: (I love them ! (sorry Wally !!) (from memory - I think I got it OK) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniData PROC tip: DB command
And a few more PROC commands for the die-hards: (I love them ! (sorry Wally !!) (from memory - I think I got it OK) BTW: H = "Hollerith" O=Output literal display text that follows Sn -set input buffer position to n (no blanks allowed in most flavours - a bit like var<-1>="xx") IP: - Input (key data) at current input buffer position with a colon prompt IP %1 input (key data) into input buffer position 1 %n - input buffer position n #n - output buffer position n &m.n - file buffer m, attribute n - attribute 0 is the ID !n - Select buffer n M - a "mark" cann be used to go FORWARD (G F) or BACKWARD (G B) to previous or next mark (bad practice - but you can do it) C - a comment RI / RO - reset input or output buffer F-CLEAR n - clear file buffer n F-OPEN n - open file buffer n to the specified file - if the open fails the next statement is executed otherwise it skips one statement F-READ n - reads specified record into file buffer n - if the read fails the next statement is executed otherwise it skips one statement STON - stack on X - exit with message MV x y- move into buffer x as specified in y (buffer or literal) F;%1;C1;+;?%1 - example of RPN math - adding one to input buffer 1 in this example: e.g. PUSH %1; PUSH character 1; ADD top two stack entries - POPPING them and PUSHING the result on the stack; Store the top stack entry in %1 IF- (test) - accepts one imperative and no ELSE. Multivalued lists of conditions and simple actions allowed T - (type a literal or buffer) - he optional "Sn" displays n spaces, a B displays a BELL, a + inhibits CRLF at the end of a display, a comma is concatenate. PQN C Proc to test file pointers to see if they work and do count F and DIR pointers. C C %1 holds count of files selected, %2 holds count of good file pointers C %3 holds count of bad file pointers, %4 folds count of "F" pointers C %5 holds count of DIR pointers, %6 is a work variable for the current file name being processed C C Not run to check - so please be gentle on typos etc - just an example of power C if you want you can count multi-level files as well and say how many sub-files in each one as an exercise (if you want to !) C T "Starting file pointer verify at ",+ HDATE P RI RO F-CLEAR 1 F-OPEN 1 VOC XBad Account - can't open VOC file MV %1 "0" MV %2 "0" MV %3 "0" MV %4 "0" MV %5 "0" HSSELECT VOC WITH F1 = "F" "f" "DIR" "dir" STON HPQ-SELECT 1 PH 10 MV %6 !1 IF # %6 G 30 F-READ 1 %6 G 20 IF &2.1 = F^253f^253DIR^253dir G 15^25315^25317^25317 G F 15 F;%4;C1;+;?%4 G F 17 F;%5;C1;+;?%5 M F;%1;C1;+;?%1 F-CLEAR 2 F-OPEN 2 %6 G 20 F;%2;C1;+,?%2 G 10 20 F;%3,C1,+,?%3 T "File ,"%6," failed to open !",B G 10 30 T S1 T "Run complete at ",+ HDATE P T "Checked ",%1," files: ",%2," good pointers and ", %3," bad pointers" T %4," hashed files, ",%5," Directory files." Regards JayJay --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] OPEN fname ... ELSE STOP 3000, fname
Could it be a user (site) created ERRMSG file item? I knew one VAR that did that kind of thing for most of their packages error messages. Regards, Clif On Jul 31, 2008, at 12:20 PM, Stevenson, Charles wrote: I've got old, old code riddled with "STOP 3000, filename". ERRMSG 3000 does not exist on UV 10.2.6. Did it ever exist on UV? What version of Pick did this come from. Just curious, more than anything else. cds --- 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] Data Displayer
Hey, nice enhancement! On Wed, Jul 30, 2008 at 8:55 AM, Brutzman, Bill <[EMAIL PROTECTED]>wrote: > Kevin: > > Thanks for writing. I was unClear on the syntax for the mask and I was > hoping that someone would look at the code and flag the fluff. > > --B > > begin case > case Width > 20 ; Width = 6 > case Width < 1 ; Width = 1 > case not(num(Width)) ; Width = 6 > end case > Mask = 'L#' : Width > print R.File Mask : Red : '_' : Grn : > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Kevin King > Sent: Tuesday, July 29, 2008 8:41 PM > To: u2-users@listserver.u2ug.org > Subject: Re: [U2] Data Displayer > > > No offense, but do you realize that big CASE statement could be reduced to > three lines? > > If (Width LT 1 or Width GT 20) Then Width = 6 > Mask = "L#" : Width > print R.File Mask : Red : '_' : Grn : > --- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ > -- -Kevin http://www.PrecisOnline.com --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] OPEN fname ... ELSE STOP 3000, fname
I've got old, old code riddled with "STOP 3000, filename". ERRMSG 3000 does not exist on UV 10.2.6. Did it ever exist on UV? What version of Pick did this come from. Just curious, more than anything else. cds --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Green Software -> Green Business
On Thu, Jul 31, 2008 at 7:50 AM, George Land <[EMAIL PROTECTED] > wrote: > Here in the UK there is a Government scheme under which you can buy a > bicycle tax free so long as your employer has signed up. I don't know the > details or anyone who has done it though. > But why would I buy a bicycle tax? And even if it's free it's not much of a bargain. ;-) Yes, I'm joking. But it just goes to show how the American Congress looks at things; exactly opposite of how it was intended, and as nonsensical as possible. I wonder how solid the internet connections are in Ireland? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Green Software -> Green Business
In our area of the Ozarks none of this would work because most of our roads are two lane and, except for the main roads, they are unpaved. We have several people that have changed to driving motor cycles and higher powered motor scooters. Most of the people in this area have to drive 4 wheel drives because of the dirt roads and they know how to drive 55 mph on the winding roads so anything that is underpowered, like a bicycle, would be risking their lives. Jerry -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Thursday, July 31, 2008 5:28 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Green Software -> Green Business Ross, That's funny - and sad. My sister lives in Norway - and maybe that explains why I haven't heard of any other companies doing it. Maybe US companies are concerned with just such a lawsuit! Now who can I sue because the US has developed such a litigious reputation? S Date: Wed, 30 Jul 2008 19:00:48 +1000 From: "Ross Ferris" <[EMAIL PROTECTED]> Subject: As an observer from across the water, and given the litigious nature I perceive pervading the US, I just wonder what will happen to this initiative the first time an employee is hit & injured whilst travelling to work? If the community had bike lanes and/or trails that were JUST for bikes, it would be safer --> unless of course one of the bike riders runs over an innocent pedestrian I'm probably just FAR too cynical :-( Ross Ferris Stamina Software Visage > Better by Design! --- 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] Green Software -> Green Business
Drive 55? Ha! More like 60-70 or 25-40! I don't know what is worse getting tailgated by the high speeders, or by the line of traffic behind you. Driving in the middle of the road, passing on curves regardless of whether they are going uphill or downhill. Then you have the people that ignore the fact someone else is already in their lane and pull out and go no where. I just love meeting dump trucks flying around a curve where by the time they complete the curve they are halfway on my side of the road. No shoulders, narrow roads. If you get car sick easily don't come here! If I lived just a little closer and didn't have to cross a bridge over the lake, I'd seriously consider riding my horse to work. Brenda Price -Original Message- From: jpb-u2ug [mailto:[EMAIL PROTECTED] Sent: Thursday, July 31, 2008 10:20 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Green Software -> Green Business In our area of the Ozarks none of this would work because most of our roads are two lane and, except for the main roads, they are unpaved. We have several people that have changed to driving motor cycles and higher powered motor scooters. Most of the people in this area have to drive 4 wheel drives because of the dirt roads and they know how to drive 55 mph on the winding roads so anything that is underpowered, like a bicycle, would be risking their lives. Jerry -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Thursday, July 31, 2008 5:28 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Green Software -> Green Business Ross, That's funny - and sad. My sister lives in Norway - and maybe that explains why I haven't heard of any other companies doing it. Maybe US companies are concerned with just such a lawsuit! Now who can I sue because the US has developed such a litigious reputation? S Date: Wed, 30 Jul 2008 19:00:48 +1000 From: "Ross Ferris" <[EMAIL PROTECTED]> Subject: As an observer from across the water, and given the litigious nature I perceive pervading the US, I just wonder what will happen to this initiative the first time an employee is hit & injured whilst travelling to work? If the community had bike lanes and/or trails that were JUST for bikes, it would be safer --> unless of course one of the bike riders runs over an innocent pedestrian I'm probably just FAR too cynical :-( Ross Ferris Stamina Software Visage > Better by Design! --- 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] Green Software -> Green Business
Here in the UK there is a Government scheme under which you can buy a bicycle tax free so long as your employer has signed up. I don't know the details or anyone who has done it though. George On 31/07/2008 11:27, "Susan Joslyn" <[EMAIL PROTECTED]> wrote: > Ross, > That's funny - and sad. My sister lives in Norway - and maybe that explains > why I haven't heard of any other companies doing it. Maybe US companies are > concerned with just such a lawsuit! > > Now who can I sue because the US has developed such a litigious reputation? > > S > > > Date: Wed, 30 Jul 2008 19:00:48 +1000 > From: "Ross Ferris" <[EMAIL PROTECTED]> > Subject: > > As an observer from across the water, and given the litigious nature I > perceive pervading the US, I just wonder what will happen to this > initiative the first time an employee is hit & injured whilst travelling > to work? If the community had bike lanes and/or trails that were JUST > for bikes, it would be safer --> unless of course one of the bike riders > runs over an innocent pedestrian I'm probably just FAR too cynical > :-( > > Ross Ferris > Stamina Software > Visage > Better by Design! > --- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ ** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify us immediately on +44 (01952) 214000 or at [EMAIL PROTECTED] . Please delete and destroy any copies in any format of this email you may have received in error. The recipient should note that the views contained or expressed within this correspondence do not necessarily reflect those of APT Solutions Limited , it subsidiaries, affiliates or associates. This email and any attachments are not guaranteed to be free from so-called computer viruses and it is recommended that you check for such viruses before down-loading it to your computer equipment. It is the responsibility of the recipient to ensure that the onward transmission, opening or use of this message or any attachments will not adversely affect their systems or data. Registered Office:- Stratum House, Stafford Park 10, Telford, Shropshire, TF3 3AB Registration Number:- 2228445 Place of Registration: England & Wales ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SAP Migration
One trick is to use ^ delimeted mv-data within a SQL field. I believe that Microsoft has some functionality for something like this technique in newer versions of their SQL product. --Bill --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] UniData PROC tip: DB command
Wally, Thank you for that - as far as I recall, this is unique to UniData, and something I have not seen documented anywhere! Always nice to learn something new! Susan Lynch F W Davison & Company, Inc. - Original Message - From: "Wally Terhune" <[EMAIL PROTECTED]> To: Sent: 07/30/2008 7:46 PM Subject: [U2] UniData PROC tip: DB command Kathleene's posting jogged my memory on this... DB (Display Buffers) command works in UniData PROCs. Very helpful for debugging PROC. I think this is unique to UniData? (MV seasoned vetrans care to comment?) DB on a line all by itself will display all buffers (varies for PQN vs PQ proc). Once you see all of the buffer names, you can just display one. For instance, to display the primary input buffer: DB PIB Haven't fielded a support case with PROC questions in years, though. (IIRC) regards, Wally Terhune Mark your U2 Support Architectcalendar! IBM Information Management Software Tel: (303) 773-7969 T/L 656-7969 Mobile: (303) 807-6222 Email: [EMAIL PROTECTED] http://www.ibm.com/software/data/u2/support [demime 1.01d removed an attachment of type image/jpeg which had a name of 22457278.jpg] --- 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] gfe check from unix?
Run the fixtool command from the $uvhome/bin without the fix option and it will do diagnostics fixtool -filepath Path_to_file -file name_of_file Dan Goble Systems Administrator RATEX Business Solutions, Inc. (800) 417-2839 ext. 4116 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] gfe check from unix?
I think both uvfixfile and fixtool can be run from unix (you may need to run as root). /Scott Ballinger Pareto Corporation Edmonds WA USA 206 713 6006 On Thu, Jul 31, 2008 at 3:25 AM, doug chanco <[EMAIL PROTECTED]> wrote: > in universe 10.1/10.2 (on aix) is it possible to check for GFE's or "BLINK" > errros without going into universe? > > any ideas/thoughts/suggestions welcomed! > > thanks > > dougc > --- > 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] Green Software -> Green Business
Ross, That's funny - and sad. My sister lives in Norway - and maybe that explains why I haven't heard of any other companies doing it. Maybe US companies are concerned with just such a lawsuit! Now who can I sue because the US has developed such a litigious reputation? S Date: Wed, 30 Jul 2008 19:00:48 +1000 From: "Ross Ferris" <[EMAIL PROTECTED]> Subject: As an observer from across the water, and given the litigious nature I perceive pervading the US, I just wonder what will happen to this initiative the first time an employee is hit & injured whilst travelling to work? If the community had bike lanes and/or trails that were JUST for bikes, it would be safer --> unless of course one of the bike riders runs over an innocent pedestrian I'm probably just FAR too cynical :-( Ross Ferris Stamina Software Visage > Better by Design! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] gfe check from unix?
in universe 10.1/10.2 (on aix) is it possible to check for GFE's or "BLINK" errros without going into universe? any ideas/thoughts/suggestions welcomed! thanks dougc --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniData PROC tip: DB command
Kathleen The way PROC works is that it stores data and commands in buffers, one of which is also known as the stack. Execution is the process of moving these between input and output buffers. If you've ever worked with assembler this will make perfect sense to you. The D command displays data in a buffer. Quoted from below: * Proc is to move data between input and output buffers, using arguments passed from the command line, user-prompted input, and stored data and commands to build a TCL statement. To run things you would push commands onto the stack (using H) and then process them (using P). To store further things on the stack before running a command, like answers to questions the command might ask, you would put in a STON command (Stack On) and preload it in the next lines, until it hits a P(rocess command). This stack concept is the same used in BASIC when we want to run a command and feed it pre-arranged answers (using DATA) to questions it might ask. Every data storage and excution place in a PROC is a buffer. Quoted from below: * H command places the literal string in the output buffer * A command copies user input to the output buffer. * P command sends the contents of the output buffer to the TCL processor. http://jdjua.com/sqlpickjbaseuniverse.htm Proc: Consist of TCL Commands : JCL and Shell Programming * PROC processor: * PROCLIB is a file that contains Procs supplied with the system. * LISTPROCS is a system Proc that lists all the Procs in file PROCLIB in dictionary format. * SYSPROG account has additional Procs and programs stored in the SYSPROG-PL (SPL is a synonym for it) file. * Proc (initial capitalization) refers to a procedure * Proc is to move data between input and output buffers, using arguments passed from the command line, user-prompted input, and stored data and commands to build a TCL statement. * TCL or INFO/ACCESS statements called Procs. * Primary input buffer * Secondary input buffer * Primary output buffer o At any given time, one input buffer and one output buffer are active o PROC Buffer. A buffer contains parameters which are delimited by spaces. A buffer pointer points to the current parameter. * Secondary output buffer (also known as the STACK) * TCL Processor * PQ to identify it to the system as a Proc * H command places the literal string in the output buffer * A command copies user input to the output buffer. * P command sends the contents of the output buffer to the TCL processor. * O command displays a string of text on the user's terminal screen. * IP command reads the information entered by the user into the input buffer. It prompts for the input with a colon (:). * GO 10 transfers control to the command line that is labelled 10 * X command terminates the Proc and returns control to the TCL processor * IF command provides for conditional branching. * C must be the first character on a comment line * ()([DICT] filename proc-name): create Proc * IT Command: Tape Input * IH Command: replaces the current parameter in the input buffer with text * +/- Commands: + (add) command adds an integer to the current parameter in the input buffer and the - (subtract) command subtracts an integer from this parameter. * RI Command: Reset Input * F Command Moves the active input buffer pointer forward to the next parameter. * B Command Moves the active input buffer pointer backward one parameter. * S Command The S (set) command moves the active input buffer pointer to a specific parameter. * LIST CUSTOMERS WITH LAST-NAME = "JOHNSON" LAST-NAME FIRST-NAME STREET CITY STATE : Access Statement: List Customers with Last name as JOHNSON with other fields. * SORT-ITEM MD WITH D/CODE = "PQ": INFO/ACCESS command: sorts and displays all items in the Master Dictionary whose first line is PQ. A nice reference manual is ftp://ftp.rainingdata.com/pub/mvBase/2.1/Documentation/ReferenceManual/procp qx.pdf Another place to look is http://www.sierra-bravo.com/multivalue/d3reference/command/proc -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Kathleene M Hunter Sent: 31 July 2008 03:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] UniData PROC tip: DB command It not a buffer -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Scott Ballinger Sent: Wednesday, July 30, 2008 5:29 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniData PROC tip: DB command R83 style for this is: D0 - display all D1 - display buffer 1 D2 - display buffer 2 etc /Scott Ballinger Pareto Corporation Edmonds WA USA 206 713 6006 On Wed, Jul 30, 2008 at 4:46 PM, Wally Terhune <[EMAIL PROTECTED]> wrote: > Kathleene's posting jogged my memory on this... > > DB (Display Buffers) command works in UniDat