Consider the following Universal UniVerse printer handler...
*---------------------------------------------------------------------------
--------------
*R0 Bill Brutzman Aug.2006
SUBROUTINE PRINTER.SETUP.R2 ( Mode )
*--------------------------------------
Printer.Setup :
begin case
case Mode = 'Portrait'
begin case
case @logname = 'jimr' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PACK_3X'
case @logname = 'lou' ; execute
'SETPTR ,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT DOCK'
case @logname = 'rich' ; execute
'SETPTR ,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT CUST'
case @logname = 'karen' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT CUST'
case @logname = 'maria' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT CUST'
case @logname = 'ed' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT CUST'
case @logname = 'mike' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PCNTRL'
case @logname = 'jimc' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PCNTRL'
case @logname = 'jimt' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PCNTRL'
case @logname = 'alex' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PCNTRL'
case @logname = 'wayne' ; execute 'SETPTR
,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PCNTRL'
case @logname = 'bobs' ; execute
'SETPTR ,80,60,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT ENG'
case Mode = 'LandScape'
begin case
case @logname = 'jimr' ; execute 'SETPTR
,132,55,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PACK.LAND'
case @logname = 'bruce' ; execute 'SETPTR
,132,55,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT PACK.LAND'
case @logname = 'lou' ; execute
'SETPTR ,132,55,2,0,1,BRIEF,NHEAD,NFMT,NOEJECT,AT DOCK.LAND'
end case
case Mode = 'GreenBar' ;
execute 'SETPTR ,132,60,2,0,1,BRIEF,NFMT,AT PR0'
case 1 ;
execute 'SETPTR ,132,60,2,0,1,BRIEF,NFMT,AT PR0'
end case
execute 'RESET.PRINTER'
PRINTER ON
*--------------------------------------
The.End :
RETURN
END
*---------------------------------------------------------------------------
------------------
I suppose that this would be a little more slick to have a UV file with a
table of users and printers.
HTH.
--Bill
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Kevin King
Sent: Thursday, March 15, 2007 10:06 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Reports In Universe BASIC
From: MAJ Programming
Like helping the newbies with MV, I can now add this
little tidbit to my mental library of techniques
should the need arise.
Just because one can doesn't mean one should. In the case of PRINT ON
working properly without a corresponding PRINTER ON, imagine six
months later trying to find all of the programs that are outputting to
the printer. Not only do we have to search for procs and paragraphs
that start the program with a (P (or LPTR) option, but now in
searching through the BP code we have to search for both PRINTER ON
and PRINT ON. It's likely that someone will forget one of those
options (and possibly a few others I may have missed in this quick
post) and overlook a program that should have otherwise been found.
As this jihad on upper/lower case has illustrated, there are many ways
to skin this U2 cat. And the more ways we as a community use, the
harder we make it on ourselves to find something months after the
fact. I dream of a day when programmers will have a response other
than "who was the idiot who wrote this crap?" when faced with
modifying someone else's program. But alas, if this latest battle is
any indication, we're no closer to that day today than we were 20
years ago or possibly even 20 years before that. And then we wonder
why our jobs are being shipped overseas? It's pretty obvious, when
companies are faced with years and years of obfuscated and
unmaintainable code, why not get the same results from someone
overseas at a fraction of the price?
My intent is not to discourage my friends and esteeemed collegues in
this list, but rather to vent some frustration in the knowledge that
our communal past may be contributing to a negative impact on our
individual futures. As a reasonably focused community (in contrast to
the millions of programmers in other environments) we have a real
fighting chance at turning this thing around, but if we can't find
some common ground on an issue as existentially meaningless as
upper/lower case then we shouldn't be surprised when the bottom
eventually falls out.
-Kevin
[EMAIL PROTECTED]
http://www.PrecisOnline.com
** Check out scheduled Connect! training courses at
http://www.PrecisOnline.com/train.html.
-------
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/
