RE: [U2] SYSTEM(20)?
Norman; As others pointed out you can use GETPU(). We went a different way and execute a SETPTR command using the BANNER option to actually name the _HOLD_ item. This will eliminate the renaming step and perhaps with the right options could eliminate the editing the printer control characters and since the _HOLD_ file is actually a directory under UNIX/windows you might not need your little program anymore. Hth Colin Alfke Calgary, AB -Original Message- From: Norman Morgan I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. We are (still) in the midst of converting from D3/AIX to UniData on AIX. I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. I have a semi-automated system for archiving selected reports to CD at the end of the month that depends on this information. How can I capture this info in my Basic program to be able to write it to a log file. We print reports with either H to HS status (SB+ print controls), depending on whether we even want a paper copy of the report. A little standard routine in each program grabs the SYSTEM(20) value and makes an entry in a log record. Later we enter that info into a program that automates the copying of the PEQS file entries to Unix and editing the printer control characters off both ends of the report file, as well as changing the numeric item name to something meaningful. It all works pretty well, but it is absolutely dependent on grabbing that SYSTEM(20) value. The only alternative is spending hours poking around in held reports in the SB+ print queue to find each report to be archived. === Norman Morgan === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
Norman Morgan [EMAIL PROTECTED] wrote on Wed, 13 Jul 2005 13:51:59 -0500 I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. DICT _HOLD_ NEXT.HOLD contains the next job number to use. Reading this value would give you the next entry to be created, provided no one else gets in ahead of you :- The SETPTR command also includes the option BANNER which will allow you to name the print job. We have used this option to have weekly reports stored in _HOLD_ so we could find the items automatically. For example, using SETPTR 0,133,65,0,0,3,NOEJECT,NFMT,COPIES 1,DEST queue,BANNER name,NOMESSAGE,BRIEF creates an item in _HOLD_ with the ID of name. We find this extremely useful for reports run weekly or monthly, since we sometimes need time to extract them from _HOLD_ before they get over-written. You could also use BANNER UNIQUE name, which would create the item name_seq, where seq is the sequence number obtained from DICT _HOLD_ NEXT.HOLD. --Tom Pellitieri Toledo, Ohio --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
We had the same issue converting from RealityX to universe. The spooler menu on RX was much more user-friendly and listed such helpful options as pages printed so far for the displayed job. Tell me about it! We came to D3/SB+/AIX 10 years ago from a Wang VS environment. I don't miss writing COBOL, but there never was a more user and operator friendly OS than the Wang VS. You could stop a print job in mid-stream and resume where you left off, even on another printer. That was great if a printer broke down in the middle of a long report. You could also skip back or skip ahead to a specific page or line. The D3/SB+ combo was a big step down in regard to convenient printer control. Now the switch to Unidata/SB+ is an even bigger step backwards. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === If people listened to themselves more often, they would talk less. === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] SYSTEM(20)?
The Wang spooler was probably running directly attached printers (via serial or parralell interfaces). This would allow the spooler to know much more about the status of a job than the more modern printers that are network attached (and deal with complete print jobs in one fell swoop). For a network attached printer to offer up the same funtionality, full two way communication of status as it happens would need to occur. While the Wang may have had much better control over the print job, how long did you have to wait for that 500+ page report??? Today we just print the whole thing, take one look at the first page, decide it's all wrong and print it again (and again, and again)... --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
The Wang spooler was probably running directly attached printers (via serial or parralell interfaces). This would allow the spooler to know much more about the status of a job than the more modern printers that are network attached (and deal with complete print jobs in one fell swoop). For a network attached printer to offer up the same funtionality, full two way communication of status as it happens would need to occur. While the Wang may have had much better control over the print job, how long did you have to wait for that 500+ page report??? I understand the reasons, but that doesn't mean I don't miss the functionality. We were dealing primarily with a big 1200 lpm band printer. (Dataproducts disguised as Wang). The Wang used a proprietary dual coax wiring scheme. It looked like small welding hose! Archaic to the extreme, but it sure did work well. All the pieces talked to each other constantly, so the host knew the status of everything. Don't misunderstand...I'd never go back, but I sure miss having that level of control over the peripheral hardware. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Miracle Software, Inc. If it works, it's a Miracle! === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Don Kibbey Sent: Thursday, July 14, 2005 10:36 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] SYSTEM(20)? Today we just print the whole thing, take one look at the first page, decide it's all wrong and print it again (and again, and again)... --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 7/14/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 7/14/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] SYSTEM(20)?
Here, here. My MCD roots are showing as I truly love SP-JOBS. I have even wrote an equivilent using LISTPEQS for D3 systems. I never bothered on U2 systems as I was more of a contract programmer than an administater. SP-JOBS should have been picked up by the remaining keepers of the MV flame. It was too good to die with MCD. MJ - Original Message - From: Norman Morgan [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Thursday, July 14, 2005 9:28 AM Subject: RE: [U2] SYSTEM(20)? We had the same issue converting from RealityX to universe. The spooler menu on RX was much more user-friendly and listed such helpful options as pages printed so far for the displayed job. Tell me about it! We came to D3/SB+/AIX 10 years ago from a Wang VS environment. I don't miss writing COBOL, but there never was a more user and operator friendly OS than the Wang VS. You could stop a print job in mid-stream and resume where you left off, even on another printer. That was great if a printer broke down in the middle of a long report. You could also skip back or skip ahead to a specific page or line. The D3/SB+ combo was a big step down in regard to convenient printer control. Now the switch to Unidata/SB+ is an even bigger step backwards. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === If people listened to themselves more often, they would talk less. === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- 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] SYSTEM(20)?
I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. We are (still) in the midst of converting from D3/AIX to UniData on AIX. I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. I have a semi-automated system for archiving selected reports to CD at the end of the month that depends on this information. How can I capture this info in my Basic program to be able to write it to a log file. We print reports with either H to HS status (SB+ print controls), depending on whether we even want a paper copy of the report. A little standard routine in each program grabs the SYSTEM(20) value and makes an entry in a log record. Later we enter that info into a program that automates the copying of the PEQS file entries to Unix and editing the printer control characters off both ends of the report file, as well as changing the numeric item name to something meaningful. It all works pretty well, but it is absolutely dependent on grabbing that SYSTEM(20) value. The only alternative is spending hours poking around in held reports in the SB+ print queue to find each report to be archived. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A pun is the lowest form of humor -- when you don't think of it first. === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
This is what I use on Universe, it may work in Unidata. 0010: * 0011: * 0012:EXECUTE SETPTR :PON CAPTURING JUNK 0013:[EMAIL PROTECTED]:Output to HOLD file 0014:XX=INDEX(JUNK,SEARCH,1) 0015:IF XX=0 THEN 0016: JOBNAME= 0017: RETURN 0018:END 0019:JUNK=JUNK[XX+1,LEN(JUNK)] 0020:YY=INDEX(JUNK,:,1) 0021:YZ=INDEX(JUNK,CHAR(254),1) 0022:JOBNAME=JUNK[YY+2,YZ-YY-2] 0023:RETURN 0024: * 0025: END Basically, if you just execute SETPTR [channel] it will return the hold file name, then I strip off the number from the name and return that. George -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Norman Morgan Sent: Wednesday, July 13, 2005 2:52 PM To: u2-users@listserver.u2ug.org Subject: [U2] SYSTEM(20)? I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. We are (still) in the midst of converting from D3/AIX to UniData on AIX. I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. I have a semi-automated system for archiving selected reports to CD at the end of the month that depends on this information. How can I capture this info in my Basic program to be able to write it to a log file. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] SYSTEM(20)?
Check out GETPU() in the UniBasic Commands manual. That should give you what you need. Tim Snyder Consulting I/T Specialist , U2 Professional Services North American Lab Services DB2 Information Management, IBM Software Group 717-545-6403 [EMAIL PROTECTED] --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] SYSTEM(20)?
Look up GETPU(unit.number) Bruce M Neylon Health Care Management Group Norman Morgan [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 07/13/2005 02:51 PM Please respond to u2-users To: u2-users@listserver.u2ug.org cc: Subject:[U2] SYSTEM(20)? I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
We had the same issue converting from RealityX to universe. The spooler menu on RX was much more user-friendly and listed such helpful options as pages printed so far for the displayed job. So we haven't found a solution, probably because we do not use the HOLD file method of managing print jobs. Reading the manual, the GETPU seems to return everything BUT the current print job number. Perhaps this is a wish list for the next release of UV. David Knight University Co-operative Bookshop Ltd. Ultimo NSW 2007 [EMAIL PROTECTED] -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Norman Morgan Sent: Thursday, 14 July 2005 4:52 AM To: u2-users@listserver.u2ug.org Subject: [U2] SYSTEM(20)? I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. We are (still) in the midst of converting from D3/AIX to UniData on AIX. I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. I have a semi-automated system for archiving selected reports to CD at the end of the month that depends on this information. How can I capture this info in my Basic program to be able to write it to a log file. We print reports with either H to HS status (SB+ print controls), depending on whether we even want a paper copy of the report. A little standard routine in each program grabs the SYSTEM(20) value and makes an entry in a log record. Later we enter that info into a program that automates the copying of the PEQS file entries to Unix and editing the printer control characters off both ends of the report file, as well as changing the numeric item name to something meaningful. It all works pretty well, but it is absolutely dependent on grabbing that SYSTEM(20) value. The only alternative is spending hours poking around in held reports in the SB+ print queue to find each report to be archived. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A pun is the lowest form of humor -- when you don't think of it first. === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- 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] SYSTEM(20)?
David Knight wrote on 07/13/2005 08:03:10 PM: Reading the manual, the GETPU seems to return everything BUT the current print job number. Perhaps this is a wish list for the next release of UV. The OP is on UniData. I've been using GETPU() to report the currently open hold entry on each print unit since UDT release 3.3. It probably goes back farther than that. (No, we don't need anybody to crack open any dusty manuals to find out.) ;-) Tim Snyder Consulting I/T Specialist , U2 Professional Services North American Lab Services DB2 Information Management, IBM Software Group 717-545-6403 [EMAIL PROTECTED] --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
