Introduction of Calling Quick Screens as Functions
Deskin, Bob
Bob.Deskin@Cognos.COM
Tue, 25 May 2004 16:40:49 -0400
This is a multi-part message in MIME format.
------_=_NextPart_001_01C44298.9040FD5D
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Don't forget that QTP does have a debugging tool - the Tracer. Maybe =
it's not interactive, but you can still find out exactly what's going =
on.
=20
Much as I love QTP, it does not have the fine control that I'd like. For =
example, complex bulk edits where the validation criteria depend on =
mutiple fields or files are difficult if not impossible in QTP. In =
QUICK, they're a snap.
=20
With QUICK in batch, there's even less reason to use COBOL (he said not =
a little bit unbiased :-) )
Bob Deskin =20
Product Manager, Application Development Tools=20
Cognos Inc. 3755 Riverside Drive, Ottawa ON K1G 4K9 CANADA=20
bob.deskin@cognos.com (613) 738-1338 ext 7268=20
-----Original Message-----
From: powerh-l-admin@lists.sowder.com =
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of Johnson, Harold A =
EDUC:EX
Sent: May 25, 2004 1:50 PM
To: 'David Morrison - Corporate'; Tim Cummings; Jon Hawks; chuck.reinke; =
Darren Reely; powerh-l@lists.sowder.com
Subject: RE: Introduction of Calling Quick Screens as Functions
Not to mention the debugging tool for quick!
-----Original Message-----
From: David Morrison - Corporate [mailto:dmorrison@mcbrideelectric.com]
Sent: 2004 May 25 10:46 AM
To: Tim Cummings; Johnson, Harold A EDUC:EX; Jon Hawks; chuck.reinke; =
Darren Reely; powerh-l@lists.sowder.com
Subject: RE: Introduction of Calling Quick Screens as Functions
Tim, et al
=20
Here are some reasons that I've used QUICK in batch mode:
=20
1. As a "never-ending" program that reads input from a data queue=20
2. Cloning an interactive process that I now want to run in batch mode, =
too=20
3. Having total locking and commitment control over records in multiple =
files=20
4. Calling external programs=20
5. Much faster to code and test complicated looping structures=20
=20
Thanks.
=20
David Morrison
McBride Electric
=20
-----Original Message-----
From: Tim Cummings [mailto:tim.cummings@frequencymarketing.com]
Sent: Tuesday, May 25, 2004 10:17 AM
To: 'Johnson, Harold A EDUC:EX'; 'Jon Hawks'; chuck.reinke; Darren =
Reely; powerh-l@lists.sowder.com
Subject: RE: Introduction of Calling Quick Screens as Functions
=20
I have been writing Powerhouse for 22 years. On many, many occasions I =
have utilized "ghost screens" to accomplish the task at hand (mostly 31 =
file limit). However the one thing I have never done is to use Quick =
for batch processing. Maybe I'm missing something but I've never run =
into a situation that QTP didn't cover.
=20
Tim
-----Original Message-----
From: Johnson, Harold A EDUC:EX =
[mailto:Harold.A.Johnson@gems1.gov.bc.ca]
Sent: Tuesday, May 25, 2004 11:52 AM
To: 'Jon Hawks'; chuck.reinke; Darren Reely; powerh-l@lists.sowder.com
Subject: RE: Introduction of Calling Quick Screens as Functions
We use this method extensively in our system for complicated processes =
that would be a bear to write in QTP. The only "gotcha" that you need =
to worry about is an apparent 32,000 "run screen" limit. That is, if =
your quick screen calls other screens, there is a limit as to how many =
times that other screen can be called. It seems to depend on how many =
calls are being done and the relative complexity of the process that =
you've written.
=20
cheers
-----Original Message-----
From: powerh-l-admin@lists.sowder.com =
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of Jon Hawks
Sent: 2004 May 24 10:36 PM
To: chuck.reinke; Darren Reely; powerh-l@lists.sowder.com
Subject: Re: Introduction of Calling Quick Screens as Functions
Try this, and for the hard-core's, please excuse the simplicity. I =
copied it from one of our regular jobs we run in batch using quick.
=20
quick auto=3Dqk-batch-1 term=3Dvt220 (if you're on an Open/VMS your =
site might need this)
=20
Screen qk-batch-1
file customer designer
file invoices designer
file payments designer=20
=20
Procedure Internal Special-payments
begin
some great stuff here
gets=20
lets
puts
end
Procedure internal regular-payments
begin
some other great stuff here
get an invoice
get the payment
lets reconcile
puts
end
procedure cust-run
begin
while retrieving customer sequential=20
begin
if cust-type =3D "regular joe"
do internal regular-payments
if cust-type =3D "special"
do internal special-payments
end
procedure initial
begin
do internal cust-run
return
end
build
"chuck.reinke" <chuck.reinke@sbcglobal.net> wrote:
I believe the practice arose many years ago on ancient HP systems where
programmers often ran out of stack space. A GHOST screen, as a =
sub-process,
was a technique for gaining additional system resources. Eventually some
programming logic supported the technique as well as the idea of shared
subroutines.
Chuck
----- Original Message -----=20
From: "Darren Reely"=20
To:=20
Sent: Monday, May 24, 2004 6:10 PM
Subject: Introduction of Calling Quick Screens as Functions
> We were wondering today when the concept was introduced allowing =
coders
> to call quick screens as hidden functions. The code I'm maintaining
> seems to have been created as early as April 1992.
>
> While we're on the subject. What is the best way to set up the screen
> statement? A! pparently the GHOST option is not _required_ when =
calling
> the screen.
>
> Thanks for the interest.
>
> Darren
>
>
> =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
> Mailing list: powerh-l@lists.sowder.com
> Subscribe: "subscribe" in message body to
powerh-l-request@lists.sowder.com
> Unsubscribe: "unsubscribe " in message body to
powerh-l-request@lists.sowder.com
> http://lists.sowder.com/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a =
subscriber.
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
Mailing list: powerh-l@lists.sowder.com
Subscribe: "subscribe" in message body to =
powerh-l-request@lists.sowder.com
Unsubscribe: "unsubscribe " in message body to =
powerh-l-request@lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.=20
=20
This message may contain privileged and/or confidential =
information. If you have received this e-mail in error or are not the =
intended recipient, you may not use, copy, disseminate or distribute it; =
do not open any attachments, delete it immediately from your system and =
notify the sender promptly by e-mail that you have done so. Thank you.=20
=20
------_=_NextPart_001_01C44298.9040FD5D
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<HTML xmlns:eXclaimer=3D"http://www.exclaimer.co.uk">
<HEAD>
<META http-equiv=3D"Content-Type" content=3D"text/html; =
charset=3DUTF-16">
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3DUTF-16">
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META content=3DWord.Document name=3DProgId>
<META content=3D"MSHTML 5.50.4937.800" name=3DGENERATOR>
<META content=3D"Microsoft Word 9" name=3DOriginator><LINK=20
href=3D"cid:filelist.xml@01C44245.86A76330" rel=3DFile-List><!--[if gte =
mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
</w:WordDocument>
</xml><![endif]-->
<STYLE>@font-face {
font-family: Tahoma;
}
@page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.25in 1.0in 1.25in; =
mso-header-margin: .5in; mso-footer-margin: .5in; mso-paper-source: 0; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"; =
mso-style-parent: ""; mso-pagination: widow-orphan; =
mso-fareast-font-family: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"; =
mso-style-parent: ""; mso-pagination: widow-orphan; =
mso-fareast-font-family: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"; =
mso-style-parent: ""; mso-pagination: widow-orphan; =
mso-fareast-font-family: "Times New Roman"
}
P.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"; =
mso-pagination: widow-orphan; mso-fareast-font-family: "Times New Roman"
}
LI.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"; =
mso-pagination: widow-orphan; mso-fareast-font-family: "Times New Roman"
}
DIV.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"; =
mso-pagination: widow-orphan; mso-fareast-font-family: "Times New Roman"
}
SPAN.EmailStyle15 {
COLOR: navy; mso-style-type: personal-reply; mso-ansi-font-size: =
10.0pt; mso-ascii-font-family: Arial; mso-hansi-font-family: Arial; =
mso-bidi-font-family: Arial
}
DIV.Section1 {
page: Section1
}
OL {
MARGIN-BOTTOM: 0in
}
UL {
MARGIN-BOTTOM: 0in
}
</STYLE>
</HEAD><BODY lang=3DEN-US style=3D"tab-interval: .5in"><DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN =
class=3D472103820-25052004>Don't=20
forget that QTP does have a debugging tool - the Tracer. Maybe it's not=20
interactive, but you can still find out exactly what's going=20
on.</SPAN></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN=20
class=3D472103820-25052004></SPAN></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN =
class=3D472103820-25052004>Much=20
as I love QTP, it does not have the fine control that I'd like. For =
example,=20
complex bulk edits where the validation criteria depend on mutiple =
fields or=20
files are difficult if not impossible in QTP. In QUICK, they're a=20
snap.</SPAN></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN=20
class=3D472103820-25052004></SPAN></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN =
class=3D472103820-25052004>With=20
QUICK in batch, there's even less reason to use COBOL (he said not a =
little bit=20
unbiased :-) )</SPAN></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><SPAN =
class=3D472103820-25052004>
<P><FONT face=3DArial size=3D2>Bob=20
Deskin &=
nbsp; =20
</FONT><BR><FONT face=3DArial size=3D2>Product Manager</FONT><FONT =
face=3DArial=20
size=3D2>,</FONT> <FONT face=3DArial size=3D2>Application Development =
Tools</FONT>=20
<BR><FONT face=3DArial size=3D2>Cognos Inc.</FONT><FONT face=3DArial =
size=3D2></FONT>=20
<FONT face=3DArial size=3D2>3755 Riverside Drive</FONT><FONT =
face=3DArial=20
size=3D2>,</FONT> <FONT face=3DArial size=3D2>Ottawa ON K1G 4K9 =
CANADA</FONT>=20
<BR><FONT face=3DArial size=3D2>bob.deskin@cognos.com</FONT><FONT =
face=3DArial=20
size=3D2></FONT> <FONT face=3DArial size=3D2>(613) 738-1338 ext</FONT> =
<FONT=20
face=3DArial size=3D2>7268</FONT> </P></SPAN></FONT></DIV>
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
<DIV class=3DOutlookMessageHeader dir=3Dltr align=3Dleft><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B>=20
powerh-l-admin@lists.sowder.com =
[mailto:powerh-l-admin@lists.sowder.com]<B>On=20
Behalf Of </B>Johnson, Harold A EDUC:EX<BR><B>Sent:</B> May 25, 2004 =
1:50=20
PM<BR><B>To:</B> 'David Morrison - Corporate'; Tim Cummings; Jon =
Hawks;=20
chuck.reinke; Darren Reely; =
powerh-l@lists.sowder.com<BR><B>Subject:</B> RE:=20
Introduction of Calling Quick Screens as =
Functions<BR><BR></FONT></DIV>
<DIV><SPAN class=3D608194917-25052004><FONT face=3DArial =
color=3D#0000ff size=3D2>Not=20
to mention the debugging tool for quick!</FONT></SPAN></DIV>
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
<DIV class=3DOutlookMessageHeader dir=3Dltr align=3Dleft><FONT =
face=3DTahoma=20
size=3D2>-----Original Message-----<BR><B>From:</B> David Morrison - =
Corporate=20
[mailto:dmorrison@mcbrideelectric.com]<BR><B>Sent:</B> 2004 May 25 =
10:46=20
AM<BR><B>To:</B> Tim Cummings; Johnson, Harold A EDUC:EX; Jon Hawks; =
chuck.reinke; Darren Reely; =
powerh-l@lists.sowder.com<BR><B>Subject:</B> RE:=20
Introduction of Calling Quick Screens as =
Functions<BR><BR></FONT></DIV>
<DIV class=3DSection1>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Tim,=20
et al<o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt"><![if =
!supportEmptyParas]><![endif]> <o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Here=20
are some reasons that I've used QUICK in batch=20
mode:<o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt"><![if =
!supportEmptyParas]><![endif]> <o:p></o:p></SPAN></FONT></SPAN></P>
<OL style=3D"mso-margin-top-alt: 0in" type=3D1>
<LI class=3DMsoNormal=20
style=3D"COLOR: navy; mso-list: l0 level1 lfo1; tab-stops: list =
.5in"><SPAN=20
class=3DEmailStyle15><FONT face=3DArial color=3Dnavy =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">As=20
a "never-ending" program that reads input from a data=20
queue<o:p></o:p></SPAN></FONT></SPAN>=20
<LI class=3DMsoNormal=20
style=3D"COLOR: navy; mso-list: l0 level1 lfo1; tab-stops: list =
.5in"><SPAN=20
class=3DEmailStyle15><FONT face=3DArial color=3Dnavy =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Cloning=20
an interactive process that I now want to run in batch mode,=20
too<o:p></o:p></SPAN></FONT></SPAN>=20
<LI class=3DMsoNormal=20
style=3D"COLOR: navy; mso-list: l0 level1 lfo1; tab-stops: list =
.5in"><SPAN=20
class=3DEmailStyle15><FONT face=3DArial color=3Dnavy =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Having=20
total locking and commitment control over records in multiple=20
files<o:p></o:p></SPAN></FONT></SPAN>=20
<LI class=3DMsoNormal=20
style=3D"COLOR: navy; mso-list: l0 level1 lfo1; tab-stops: list =
.5in"><SPAN=20
class=3DEmailStyle15><FONT face=3DArial color=3Dnavy =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Calling=20
external programs<o:p></o:p></SPAN></FONT></SPAN>=20
<LI class=3DMsoNormal=20
style=3D"COLOR: navy; mso-list: l0 level1 lfo1; tab-stops: list =
.5in"><SPAN=20
class=3DEmailStyle15><FONT face=3DArial color=3Dnavy =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Much=20
faster to code and test complicated looping=20
structures<o:p></o:p></SPAN></FONT></SPAN> </LI></OL>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt"><![if =
!supportEmptyParas]><![endif]> <o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">Thanks.<o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoNormal><SPAN class=3DEmailStyle15><FONT face=3DArial =
color=3Dnavy=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt"><![if =
!supportEmptyParas]><![endif]> <o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoAutoSig><!--[if supportFields]><span =
class=3DEmailStyle15><font=20
size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:10.0pt;mso-bidi-font-size:
12.0pt;font-family:Arial'><span =
style=3D'mso-element:field-begin'></span><span=20
style=3D"mso-spacerun: yes"> </span>AUTOTEXTLIST \s "E-mail=20
Signature" <span =
style=3D'mso-element:field-separator'></span></span></font></span><![endi=
f]--><FONT=20
color=3Dnavy><SPAN style=3D"COLOR: navy">David =
Morrison</SPAN></FONT><FONT=20
color=3Dnavy><SPAN=20
style=3D"COLOR: navy; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoAutoSig><FONT face=3D"Times New Roman" color=3Dnavy =
size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: navy">McBride =
Electric</SPAN></FONT><FONT=20
color=3Dnavy><SPAN=20
style=3D"COLOR: navy; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal><!--[if supportFields]><span =
class=3DEmailStyle15><font=20
size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:10.0pt;mso-bidi-font-size:
12.0pt;font-family:Arial'><span =
style=3D'mso-element:field-end'></span></span></font></span><![endif]--><=
SPAN=20
class=3DEmailStyle15><FONT face=3DArial color=3Dnavy size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt"><![if =
!supportEmptyParas]><![endif]> <o:p></o:p></SPAN></FONT></SPAN></P>
<P class=3DMsoNormal style=3D"MARGIN-LEFT: 0.5in"><FONT =
face=3DTahoma color=3Dblack=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: =
Tahoma">-----Original=20
Message-----<BR><B><SPAN style=3D"FONT-WEIGHT: =
bold">From:</SPAN></B> Tim=20
Cummings [mailto:tim.cummings@frequencymarketing.com]<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Sent:</SPAN></B> Tuesday, May 25, 2004 =
10:17=20
AM<BR><B><SPAN style=3D"FONT-WEIGHT: bold">To:</SPAN></B> 'Johnson, =
Harold A=20
EDUC:EX'; 'Jon Hawks'; chuck.reinke; Darren Reely;=20
powerh-l@lists.sowder.com<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Subject:</SPAN></B> RE: Introduction of =
Calling=20
Quick Screens as Functions</SPAN></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN-LEFT: 0.5in"><FONT =
face=3D"Times New Roman"=20
size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"><![if =
!supportEmptyParas]><![endif]> <o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN-LEFT: 0.5in"><FONT face=3DArial =
color=3Dblue=20
size=3D2><SPAN style=3D"FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: =
Arial">I have=20
been writing Powerhouse for 22 years. On many, =
many occasions I=20
have utilized "ghost screens" to accomplish the task at hand (mostly =
31 file=20
limit). However the one thing I have never done is to use =
Quick for=20
batch processing. Maybe I'm missing something but I've never =
run into=20
a situation that QTP didn't cover.</SPAN></FONT><FONT =
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN-LEFT: 0.5in"><FONT =
face=3D"Times New Roman"=20
color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> </SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN-LEFT: 0.5in"><FONT face=3DArial =
color=3Dblue=20
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: =
Arial">Tim</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-BOTTOM: 12pt; MARGIN-LEFT: 1in; mso-margin-top-alt: =
auto"><FONT=20
face=3DTahoma color=3Dblack size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: =
Tahoma">-----Original=20
Message-----<BR><B><SPAN style=3D"FONT-WEIGHT: =
bold">From:</SPAN></B> Johnson,=20
Harold A EDUC:EX =
[mailto:Harold.A.Johnson@gems1.gov.bc.ca]<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Sent:</SPAN></B> Tuesday, May 25, 2004 =
11:52=20
AM<BR><B><SPAN style=3D"FONT-WEIGHT: bold">To:</SPAN></B> 'Jon =
Hawks';=20
chuck.reinke; Darren Reely; powerh-l@lists.sowder.com<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Subject:</SPAN></B> RE: Introduction of =
Calling=20
Quick Screens as Functions</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1in; mso-margin-top-alt: auto; =
mso-margin-bottom-alt: auto"><FONT=20
face=3DArial color=3Dblue size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">We use =
this method=20
extensively in our system for complicated processes that would be a =
bear to=20
write in QTP. The only "gotcha" that you need to worry =
about is=20
an apparent 32,000 "run screen" limit. That is, if your quick =
screen=20
calls other screens, there is a limit as to how many times that =
other screen=20
can be called. It seems to depend on how many calls are being =
done and=20
the relative complexity of the process that you've=20
written.</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1in; mso-margin-top-alt: auto; =
mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> </SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1in; mso-margin-top-alt: auto; =
mso-margin-bottom-alt: auto"><FONT=20
face=3DArial color=3Dblue size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: =
Arial">cheers</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-BOTTOM: 12pt; MARGIN-LEFT: 1.5in; MARGIN-RIGHT: =
0.5in; mso-margin-top-alt: auto"><FONT=20
face=3DTahoma color=3Dblack size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: =
Tahoma">-----Original=20
Message-----<BR><B><SPAN style=3D"FONT-WEIGHT: =
bold">From:</SPAN></B>=20
powerh-l-admin@lists.sowder.com=20
[mailto:powerh-l-admin@lists.sowder.com]<B><SPAN=20
style=3D"FONT-WEIGHT: bold">On Behalf Of </SPAN></B>Jon =
Hawks<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Sent:</SPAN></B> 2004 May 24 10:36 =
PM<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">To:</SPAN></B> chuck.reinke; Darren =
Reely;=20
powerh-l@lists.sowder.com<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Subject:</SPAN></B> Re: Introduction of =
Calling=20
Quick Screens as Functions</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">Try this, and for the =
hard-core's,=20
please excuse the simplicity. I copied it from one of our regular =
jobs we=20
run in batch using quick.</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> </SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">quick auto=3Dqk-batch-1 =
term=3Dvt220 =20
(if you're on an Open/VMS your site might need =
this)</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> </SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">Screen =
qk-batch-1</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">file customer =20
designer</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">file =
invoices =20
designer</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">file payments designer=20
</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> </SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">Procedure Internal=20
Special-payments</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> begin</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> some great stuff=20
here</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> gets=20
</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =20
lets</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =20
puts</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =
end</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">Procedure internal=20
regular-payments</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> begin</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> some other great =
stuff=20
here</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> get an=20
invoice</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> get the=20
payment</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> lets=20
reconcile</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =
puts</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =
end</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">procedure =
cust-run</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> begin</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> while =
retrieving customer=20
sequential </SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =20
begin</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> =20
if cust-type =3D "regular joe"</SPAN></FONT><FONT =
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> =20
do internal regular-payments</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> =20
if cust-type =3D "special"</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> =20
do internal special-payments</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
black"> =20
end</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">procedure =
initial</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =
begin</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> do =
internal=20
cust-run</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =20
return</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"> =20
end</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal=20
style=3D"MARGIN-LEFT: 1.5in; MARGIN-RIGHT: 0.5in; =
mso-margin-top-alt: auto; mso-margin-bottom-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">build<BR><BR><B><I><SPAN=20
style=3D"FONT-WEIGHT: bold; FONT-STYLE: italic">"chuck.reinke"=20
<chuck.reinke@sbcglobal.net></SPAN></I></B> =
wrote:</SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P>
<DIV=20
style=3D"BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: =
medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: =
#1010ff 1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none">
<P class=3DMsoNormal=20
style=3D"BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: =
medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN-LEFT: =
111.75pt; BORDER-LEFT: medium none; MARGIN-RIGHT: 1in; PADDING-TOP: 0in; =
BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; =
mso-margin-bottom-alt: auto; mso-border-left-alt: solid #1010FF 1.5pt; =
mso-padding-alt: 0in 0in 0in 4.0pt"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black">I believe the practice arose =
many=20
years ago on ancient HP systems where<BR>programmers often ran out =
of stack=20
space. A GHOST screen, as a sub-process,<BR>was a technique for =
gaining=20
additional system resources. Eventually some<BR>programming logic =
supported=20
the technique as well as the idea of=20
shared<BR>subroutines.<BR><BR>Chuck<BR><BR>----- Original Message =
-----=20
<BR>From: "Darren Reely" <DARREN.REELY@LATTICESEMI.COM><BR>To:=20
<POWERH-L@LISTS.SOWDER.COM><BR>Sent: Monday, May 24, 2004 6:10=20
PM<BR>Subject: Introduction of Calling Quick Screens as=20
Functions<BR><BR><BR>> We were wondering today when the concept =
was=20
introduced allowing coders<BR>> to call quick screens as hidden=20
functions. The code I'm maintaining<BR>> seems to have been =
created as=20
early as April 1992.<BR>><BR>> While we're on the subject. =
What is the=20
best way to set up the screen<BR>> statement? A! pparently the =
GHOST=20
option is not _required_ when calling<BR>> the =
screen.<BR>><BR>>=20
Thanks for the interest.<BR>><BR>> =
Darren<BR>><BR>><BR>> =3D =3D=20
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D<BR>> Mailing list:=20
powerh-l@lists.sowder.com<BR>> Subscribe: "subscribe" in message =
body=20
to<BR>powerh-l-request@lists.sowder.com<BR>> Unsubscribe: =
"unsubscribe=20
<PASSWORD>" in message body =
to<BR>powerh-l-request@lists.sowder.com<BR>>=20
http://lists.sowder.com/mailman/listinfo/powerh-l<BR>> This list =
is=20
closed, thus to post to the list you must be a =
subscriber.<BR><BR><BR>=3D =3D =3D=20
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D<BR>Mailing list:=20
powerh-l@lists.sowder.com<BR>Subscribe: "subscribe" in message body =
to=20
powerh-l-request@lists.sowder.com<BR>Unsubscribe: "unsubscribe =
<PASSWORD>"=20
in message body to=20
=
powerh-l-request@lists.sowder.com<BR>http://lists.sowder.com/mailman/list=
info/powerh-l<BR>This=20
list is closed, thus to post to the list you must be a=20
subscriber.</SPAN></FONT><FONT color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P></DIV>
<P class=3DMsoNormal=20
style=3D"MARGIN-BOTTOM: 12pt; MARGIN-LEFT: 1.5in; MARGIN-RIGHT: =
0.5in; mso-margin-top-alt: auto"><FONT=20
face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: black"><![if =
!supportEmptyParas]><![endif]> </SPAN></FONT><FONT=20
color=3Dblack><SPAN=20
style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p></SPAN></FONT></P></DIV></BLOCKQUOTE></BLOCKQUOTE>=
</DIV>
<DIV> </DIV>
<DIV>
<P> <FONT FACE=3D"Arial" =
SIZE=3D"2">This message may contain privileged and/or confidential =
information. If you have received this e-mail in error or are not =
the intended recipient, you may not use, copy, disseminate or distribute =
it; do not open any attachments, delete it immediately from your system =
and notify the sender promptly by e-mail that you have done so. =
Thank you.</FONT>
</P>
</DIV></BODY></HTML>
------_=_NextPart_001_01C44298.9040FD5D--