PowerHouse 'copy replacing' command (was: can I do this - USE xfi
le - in the middle of a FOOTING stmt')
Robert Mills
robert.mills@windsong-services.co.uk
Mon, 19 May 2003 14:45:48 +0100
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01C31E0C.F4538160
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C31E0C.F4538160"
------_=_NextPart_001_01C31E0C.F4538160
Content-Type: text/plain;
charset="iso-8859-1"
Greetings,
I have received several emails from people about my reply to Nancy Tietz's
question where I suggested she use the following (updated) solution:
:echo PAGE FOOTING TAB 10 & > tempfile
:print STD1.USE;page=0 >> tempfile
USE tempfile
:purge tempfile,temp
As a result of the interest I have decided to release a script (see
attached) that some of you might find helpful. Here is print of the help
screen that the script displays when invoked with no parameters:
+-----------------------------------------------------------------
| STDCOPY - PowerHouse USE command with text/token replacement.
+-----------------------------------------------------------------
|
| Syntax:
| :STDCOPY lib [ [token1] [rtext1] ] ... []
| use STDCIN
|
| Parameters:
| lib Name of library file to be inserted.
| token1 Token to be replaced by rtext1.
| token2 Token to be replaced by rtext2.
| token3 Token to be replaced by rtext3.
| token4 Token to be replaced by rtext4.
| token5 Token to be replaced by rtext5.
| token6 Token to be replaced by rtext6.
|
| Restrictions:
| Requires QUAD editor which is assumed to reside in PUB.SYS.
|
+-----------------------------------------------------------------
Please Note:
0) This script is supplied as-is. No warranty is either given or implied
(you paid nothing, so can claim nothing). Use at your own risk!!
1) This script is aimed at the HP3000 platform but it should not be too
difficult to move it to another platform.
2) The method used to find the specified tokens is 'Literal, no wild card
and no case check searching.'
It will perform a character by character match after all of the alphabetic
characters have been shifted to upper case.
None of the characters of the search string will be treated as any kind of
wild card.
The current search method can easily be changed. Only a little understanding
of QUAD is required (enter 'HELP MAT' at the QUAD prompt for more details).
3) You will have to edit lines 44 and 186 to tell the script where your
'library' files can be found. It currently expected them to be in the
LIBRARY.SYSTEMS group.
4) You will have to edit line 192 of the script if your copy of QUAD is not
in the PUB.SYS group.
regards,
Robert W.Mills
Systems Development Manager
Windsong Services
(01689) 870622 x3005
------_=_NextPart_001_01C31E0C.F4538160
Content-Type: text/html;
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<STYLE>
BODY
{
FONT-SIZE: 10pt; MARGIN-LEFT: 50px; COLOR: #000000; BACKGROUND-REPEAT: repeat-y; FONT-FAMILY: Comic Sans MS; BACKGROUND-COLOR: #ffffff
}
</STYLE>
<META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD>
<BODY
style="FONT-SIZE: 10pt; COLOR: #000000; FONT-FAMILY: Comic Sans MS; BACKGROUND-COLOR: #ffffff"
bgColor=#ffffff background=cid:204373912@19052003-20ac>
<DIV><SPAN class=204373912-19052003>Greetings,</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003>I have received several emails from
people about my reply to Nancy Tietz<SPAN class=171262015-16052003><FONT
face=Arial color=#0000ff><FONT face="Comic Sans MS"
color=#000000>'s question </FONT></FONT></SPAN>where I suggested she
use the following (updated) solution:</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003><SPAN class=947242616-16052003>
<DIV><FONT face=Arial><FONT color=#0000ff><SPAN class=171262015-16052003><SPAN
class=947242616-16052003>:echo </SPAN>PAGE FOOTING </SPAN><SPAN
class=171262015-16052003> TAB 10 &<SPAN class=947242616-16052003> >
tempfile</SPAN></SPAN></FONT></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff><SPAN class=171262015-16052003><SPAN
class=947242616-16052003>:print STD1.USE<SPAN
class=204373912-19052003>;page=0</SPAN> >>
tempfile</SPAN></SPAN></FONT></DIV>
<DIV><FONT face=Arial><FONT color=#0000ff><SPAN class=171262015-16052003><SPAN
class=947242616-16052003>USE tempfile</SPAN></SPAN></FONT></FONT></DIV>
<DIV><SPAN class=171262015-16052003></SPAN><SPAN class=171262015-16052003><FONT
face=Arial color=#0000ff><SPAN class=947242616-16052003>:purge
tempfile,temp</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=171262015-16052003><FONT face=Arial color=#0000ff><SPAN
class=947242616-16052003></SPAN></FONT></SPAN> </DIV></SPAN></SPAN></DIV>
<DIV><SPAN class=204373912-19052003>As a result of the interest I have decided
to release a script (see attached) that some of you might find
helpful. </SPAN><SPAN class=204373912-19052003>Here is print of the help
screen that the script displays when invoked with no parameters:</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV><SPAN
class=204373912-19052003>
<DIV><FONT
face=Courier>+-----------------------------------------------------------------</FONT></DIV>
<DIV><FONT face=Courier>| STDCOPY - PowerHouse USE command with text/token
replacement.</FONT></DIV>
<DIV><FONT
face=Courier>+-----------------------------------------------------------------</FONT></DIV>
<DIV><FONT face=Courier>|</FONT></DIV>
<DIV><FONT face=Courier>| Syntax:</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>:STDCOPY lib [ [token1] [rtext1] ] ... []</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003> </SPAN>use
STDCIN</FONT></DIV>
<DIV><FONT face=Courier>|</FONT></DIV>
<DIV><FONT face=Courier>| Parameters:</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>lib <SPAN class=204373912-19052003> </SPAN>Name of
library file to be inserted.</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>token1 Token to be replaced by rtext1.</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>token2 Token to be replaced by rtext2.</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>token3 Token to be replaced by rtext3.</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>token4 Token to be replaced by rtext4.</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>token5 Token to be replaced by rtext5.</FONT></DIV>
<DIV><FONT face=Courier>| <SPAN class=204373912-19052003>
</SPAN>token6 Token to be replaced by rtext6.</FONT></DIV>
<DIV><FONT face=Courier>|</FONT></DIV>
<DIV><FONT face=Courier>| Restrictions:</FONT></DIV>
<DIV><FONT face=Courier>|<SPAN class=204373912-19052003>
</SPAN> Requires QUAD editor which is assumed to reside in
PUB.SYS.</FONT></DIV>
<DIV><FONT face=Courier>|</FONT></DIV>
<DIV><FONT
face=Courier>+-----------------------------------------------------------------</FONT></DIV></SPAN>
<DIV> </DIV>
<DIV>Please <SPAN class=204373912-19052003>N</SPAN>ote<SPAN
class=204373912-19052003>:</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003>0) This script is supplied as-is. No
warranty is either given or implied (you paid nothing, so can claim nothing).
Use at your own risk!!</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003>1) </SPAN><SPAN
class=204373912-19052003>T</SPAN>his script is aimed at the HP3000 platform
but it should not be too difficult to move it to another platform.</DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003>2) The method used to find the
specified tokens is '<FONT face=r_ansi size=2><FONT
face="Comic Sans MS">Literal, no wild card and no case check
searching.'</FONT></FONT></SPAN></DIV>
<DIV><SPAN class=204373912-19052003><FONT face=r_ansi size=2><FONT
face="Comic Sans MS">It will </FONT><FONT face="Comic Sans MS">perform a
character by character match after all of the alphabetic </FONT><FONT
face="Comic Sans MS">characters have been shifted to upper
case.</FONT></FONT></SPAN></DIV>
<DIV><SPAN class=204373912-19052003><FONT face=r_ansi size=2><FONT
face="Comic Sans MS">None of the characters </FONT><FONT face="Comic Sans MS">of
the search string will be treated as any kind of wild
card.</FONT></FONT></SPAN></DIV>
<DIV><SPAN class=204373912-19052003><FONT face=r_ansi size=2><FONT
face="Comic Sans MS">The current search method can easily be changed.
Only </FONT></FONT></SPAN><SPAN class=204373912-19052003>a little
understanding of QUAD is required (enter 'HELP MAT' at the QUAD prompt for
more details).</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003>3) </SPAN><SPAN class=204373912-19052003>You
will have to edit lines 44 and 186 to tell the script where your 'library' files
can be found. It currently expected them to be in the LIBRARY.SYSTEMS
group.</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV><SPAN class=204373912-19052003>4) You will have to edit line 192 of the
script if your copy of QUAD is not in the PUB.SYS group.</SPAN></DIV>
<DIV><SPAN class=204373912-19052003></SPAN> </DIV>
<DIV>regards,</DIV>
<DIV> </DIV>
<DIV>Robert W.Mills</DIV>
<DIV>Systems Development Manager</DIV>
<DIV>Windsong Services</DIV>
<DIV>(01689) 870622 x3005</DIV><FONT size=2>
<DIV></DIV></FONT></BODY></HTML>
------_=_NextPart_001_01C31E0C.F4538160--
------_=_NextPart_000_01C31E0C.F4538160
Content-Type: image/jpeg;
name="Spiral Bound.jpg"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Spiral Bound.jpg"
Content-ID: <204373912@19052003-20ac>
/9j/4AAQSkZJRgABAgEASABIAAD/7QSyUGhvdG9zaG9wIDMuMAA4QklNA+kAAAAAAHgAAwAAAEgA
SAAAAAADBgJS//f/9wMPAlsDRwUoA/wAAgAAAEgASAAAAAAC2AIoAAEAAABkAAAAAQADAwMAAAAB
Jw8AAQABAAAAAAAAAAAAAAAAYAgAGQGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4
QklNA+0AAAAAABAASAAAAAEAAQBIAAAAAQABOEJJTQPzAAAAAAAIAAAAAAAAAAA4QklNBAoAAAAA
AAEAADhCSU0nEAAAAAAACgABAAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEA
L2ZmAAEAoZmaAAYAAAAAAAEAMgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklN
A/gAAAAAAHAAAP////////////////////////////8D6AAAAAD/////////////////////////
////A+gAAAAA/////////////////////////////wPoAAAAAP//////////////////////////
//8D6AAAOEJJTQQAAAAAAAACAAA4QklNBAIAAAAAAAIAADhCSU0ECAAAAAAAEAAAAAEAAAJAAAAC
QAAAAAA4QklNBAkAAAAAAqIAAAABAAAAgAAAAAIAAAGAAAADAAAAAoYAGAAB/9j/4AAQSkZJRgAB
AgEASABIAAD//gAnRmlsZSB3cml0dGVuIGJ5IEFkb2JlIFBob3Rvc2hvcKggNC4wAP/uAA5BZG9i
ZQBkgAAAAAH/2wCEAAwICAgJCAwJCQwRCwoLERUPDAwPFRgTExUTExgRDAwMDAwMEQwMDAwMDAwM
DAwMDAwMDAwMDAwMDAwMDAwMDAwBDQsLDQ4NEA4OEBQODg4UFA4ODg4UEQwMDAwMEREMDAwMDAwR
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDP/AABEIAAIAgAMBIgACEQEDEQH/3QAEAAj/xAE/
AAABBQEBAQEBAQAAAAAAAAADAAECBAUGBwgJCgsBAAEFAQEBAQEBAAAAAAAAAAEAAgMEBQYHCAkK
CxAAAQQBAwIEAgUHBggFAwwzAQACEQMEIRIxBUFRYRMicYEyBhSRobFCIyQVUsFiMzRygtFDByWS
U/Dh8WNzNRaisoMmRJNUZEXCo3Q2F9JV4mXys4TD03Xj80YnlKSFtJXE1OT0pbXF1eX1VmZ2hpam
tsbW5vY3R1dnd4eXp7fH1+f3EQACAgECBAQDBAUGBwcGBTUBAAIRAyExEgRBUWFxIhMFMoGRFKGx
QiPBUtHwMyRi4XKCkkNTFWNzNPElBhaisoMHJjXC0kSTVKMXZEVVNnRl4vKzhMPTdePzRpSkhbSV
xNTk9KW1xdXl9VZmdoaWprbG1ub2JzdHV2d3h5ent8f/2gAMAwEAAhEDEQA/APROif0Kv6X81T9L
j+ar/m/5K0F8rJJIfqlJfKySKn6pSXyskkp+qUl8rJJKfqlJfKySSn6pSXyskkp+qUl8rJJKfqlJ
fKySSn//2ThCSU0EBgAAAAAABwABAAAAAQEA//4AJ0ZpbGUgd3JpdHRlbiBieSBBZG9iZSBQaG90
b3Nob3CoIDQuMAD/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgNCQ0VDAwVGhQQFBogGxoaGyAiFxcX
FxciEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0NDREOERsRERsUDg4OFBQO
Dg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAYBaAD
ASIAAhEBAxEB/90ABABa/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEB
AQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYU
kaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5Sk
hbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQAC
EQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RF
VTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMB
AAIRAxEAPwCv0T+n4/8AxrP+qavW15J0U/r+P/xrP+qavWg8eKElsWSHZfXWYe4A+ZUMjIFTJBE/
Fc1kXbg63mJP+amk0uesGqdc19Sup2ZrLmWGQxwLR4B35v8A0V0qKlJJJIqUkkkkpSSSSSlJJJJK
UkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSS
SSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJ
KUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpS
SSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJ
JKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkp
SSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJJJKUkkkkpSSSSSlJJ
JJKUkkkkpSSSSSn/0J9G6oKn04zKKXOdYA6x7d1kOP8Ag/3Hs/MXY/sOl/0hYfCT/wCQavnZJArQ
/S1HTXVN21+weYa7/vqzcroeQ+Q3XcYOn/mbF89pIaJfpboXRK+k1uDQPUsILyONPotZ/JatRfKq
SSX6qSXyqkip+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJ
KfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp
+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6
qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqp
JfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl
8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXy
qkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKq
SSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJ
KfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp
+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn6
qSXyqkkp+qkl8qpJKfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpJfKqSSn/2Q==
------_=_NextPart_000_01C31E0C.F4538160--