I've worked with D3 for since it came out as a replacement for AP-Pro. Only recently did I find out of the PEQS file. But it doesn't cooperate like a real file so I consider it useless.
My version of SP-JOBS (nee microdata) EXECUTES "LISTPEQS (N" CAPTURING REC and then interpets the status codes, users, form queues frames, copies in the spirit of the microdata (no pun intended). SP-JOBS on a Microdata is bulletproof and I wish Raining Data could take a lesson from them. Their inherited complete family of SP- verbs, while working, needs a lot of help to wrestle with. (P.S. I wish Raining data could incorporate a bunch of things from the U2 collection. My most favorite would be FIBR in the editor and FORMAT in the editor. Much better than their way.) So I Install my SP-JOBS on my non-U2, non-MCD clients and we all get the benefit. If anyone cares, here's the syntax of SP-EDIT to have a better edit: SP-EDIT 1 C display y/n/x/ N string? <cr> align? <cr> spool /t/tn/y/n/f F filename? HOLD.FILE itemname? 1 delete /y/n/ N Thus the contents of hold file 1 gets put into HOLD.FILE 1. The 'C' option causes the record to be the complete hold file no matter how many pages it is. Prior versions that didn't have the C option put the first page in HOLD.FILE 1, then, with RUNOFF, it <dot>CHAINed to 10001 then 10002 then 10003, providing for a 10,000 page output. RUNOFF is nothing more that a text formatter that uses <dot> commands for indenting, paragraphs etc. I've created Page X of Y things before and most of the time I found it more manageable to not use PRINT statements but load the report into a long dynamic array (of course being considerate of excessive size) to get the total pages. Another choice is to have a 2 pass concept whereby the first output is SP-ASSIGN HS and the second one is created with the known ending page number. Another trouble is that using HEADING and PAGE it may not be able to know which linecounter or pagenumber you are on. Being that I don't trust UV or UD to properly manage the internal (TERM) with the external (SETPTR) statements, I just assume 55 lines per page and do my own line counters, page numbers and heading routines. That would make it easy to know the page number for the 2nd pass. My 1 cent Mark Johnson ----- Original Message ----- From: "Allen E. Elwood (CA)" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, September 18, 2004 11:55 AM Subject: RE: [U2] mvBase spooler > Hi Mark, > > I can twiddle bits with the best of them, but I have to have a target. LIST > PEQS just returns [10] FILE NAME MISSING > > Sigh...... > > After using Unidata in different flavors/incarnations since 1992 working > with a native pick system is certainly a challenge. > > I'll look up the doc's on the -F option and see if that will help me see > things better. The main problem I'm having is that my print job which is > one of those PAGE x OF xx PAGES where you stick all the header and detail > lines into a print buffer as you count the total number of pages, is doing a > page break every 24 lines and the frustration of dealing with SP-EDIT is > certainly not helping. > > Got an end of the month deadline and my program goes nutso. Whoopee! > > Now, really, this is so simple. I think the O/S is "helping" me by adding > in extra page breaks. I've checked TERM and printer output is set to > 132,60. I think I'll just run around the house pulling my hair out for a > while, and then maybe set in the corner and go quietly insane ;-) > > PrintTheInvoice: > EXECUTE "TERM" ; *test stmt > INPUT DUH.ME ; *test stmt > PRINTER ON > PRINT.COUNT = DCOUNT(PB,@AM) > FOR AEE = 1 TO PRINT.COUNT > LNO = PB<1> > DEL PB<1> > IF LNO[1,3] = '*#*' THEN > LNO.LN = LEN(LNO) - 3 > LNO = LNO[4,LNO.LN] > PRINT LNO:PAGE.COUNT > END ELSE > PRINT LNO > END > NEXT AEE > PRINTER OFF > RETURN > > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson > Sent: Saturday, September 18, 2004 06:27 > To: [EMAIL PROTECTED] > Subject: Re: [U2] mvBase spooler > > > I work with U2 and non U2 MV's (MVBase, D3, MCD, most natives) and SP-EDIT > is a pain. It's so old school it's a shame D3/MVBase still use it in its > Jurrasic Pick incarnation. Don't get me started on all the combinations of > options to handle any problems. One of the manuals even refers to it as > Spooler Warfare. > > I have a utility that converts any SP-EDIT hold file to a file-level item > for easy editing. It uses the SP-EDIT spool=F option. Some systems create > multiple records and others assemble them into one. > > These file-level items are RUNOFF records. Thus to re-print the hold file > with any changes your system must have RUNOFF. If not, you can remove the > embedded simple RUNOFF commands (lines that start with a <period>) and just > convert them to form-feeds. I think _HOLD_ matches lines to the SETPTR > settings and may not have char(12)'s. > > The filename that you *are* looking for is called PEQS and while you can > type LIST<space>PEQS the data isn't really usable data. That's why they have > LISTPEQS. > > I also have a utility that emulates the SP-JOBS of Microdata which I believe > is the best spooler manager. It only replicates the SP-JOBS of hold-file > management and not SP-STATUS of device management. That is a real different > thing on native versus network versions of D3/MvBase. > > Hopefully this helps. > Mark Johnson > > > ----- Original Message ----- > From: "Allen E. Elwood (CA)" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Friday, September 17, 2004 7:43 PM > Subject: [U2] mvBase spooler > > > > Does anybody know in a Raining data mvBase system, *is* there a file for > the > > spooled jobs, and if so, what the name might be? I really truly hate > > SP-EDIT and have a spooler that I wrote for Unidata that I would like to > > port over. > > > > > > Allen E. Elwood > > Senior Programmer Analyst > > Direct (818) 361-5251 > > Fax (818) 361-5251 > > Cell (818) 359-8162 > > Home (818) 361-7217 > > ------- > > u2-users mailing list > > [EMAIL PROTECTED] > > To unsubscribe please visit http://listserver.u2ug.org/ > ------- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ > ------- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
