Introduction of Calling Quick Screens as Functions

Tue, 25 May 2004 10:49:54 -0700

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_001_01C44280.9AB33C42
Content-Type: text/plain;
	charset="iso-8859-1"

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

Here are some reasons that I've used QUICK in batch mode:

1.	As a "never-ending" program that reads input from a data queue 

2.	Cloning an interactive process that I now want to run in batch mode,
too 

3.	Having total locking and commitment control over records in multiple
files 

4.	Calling external programs 

5.	Much faster to code and test complicated looping structures 

Thanks.

David Morrison
McBride Electric

-----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

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.

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.

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.

quick auto=qk-batch-1 term=vt220  (if you're on an Open/VMS your site might
need this)

Screen qk-batch-1
file customer  designer
file invoices    designer
file payments designer 

Procedure Internal Special-payments
 begin
  some great stuff here
    gets 
    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 
    begin
       if cust-type = "regular joe"
        do internal regular-payments
       if cust-type = "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 ----- 
From: "Darren Reely" 
To: 
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
>
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> 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.

= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.

------_=_NextPart_001_01C44280.9AB33C42
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns=3D"http://www.w3.org/TR/REC-html40" xmlns:o =3D=20
"urn:schemas-microsoft-com:office:office" xmlns:w =3D=20
"urn:schemas-microsoft-com:office:word"><HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">

<META content=3DWord.Document name=3DProgId>
<META content=3D"MSHTML 6.00.2800.1400" 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><SPAN class=3D608194917-25052004><FONT face=3DArial =
color=3D#0000ff size=3D2>Not to=20
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;=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 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]>&nbsp;<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]>&nbsp;<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 =

    style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial; mso-bidi-font-size: =
12.0pt">As a=20
    "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 =

    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 =

    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 =

    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 =

    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]>&nbsp;<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]>&nbsp;<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">&nbsp;</span>AUTOTEXTLIST \s &quot;E-mail=20
Signature&quot; <span =
style=3D'mso-element:field-separator'></span></span></font></span><![end=
if]--><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]>&nbsp;<o:p></o:p></SPAN></FO=
NT></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]>&nbsp;<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.&nbsp; On many, =
many&nbsp;occasions I=20
  have utilized "ghost screens" to accomplish the task at hand (mostly =
31 file=20
  limit).&nbsp; However the one thing I have never done is to use Quick =
for=20
  batch processing.&nbsp; Maybe I'm missing something but I've never =
run into a=20
  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">&nbsp;</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.&nbsp;&nbsp; The only "gotcha" that you need to worry =
about is an=20
  apparent 32,000 "run screen" limit.&nbsp; That is, if your quick =
screen calls=20
  other screens, there is a limit as to how many times that other =
screen can be=20
  called.&nbsp; It seems to depend on how many calls are being done and =
the=20
  relative complexity of the process that you've =
written.</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=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
  style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;</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> =

powerh-l-admin@lists.sowder.com=20
 [mailto:powerh-l-admin@lists.sowder.com]On=20
 Behalf Of Jon Hawks <SPAN=20
 style=3D"FONT-WEIGHT: bold">Sent: 2004 May 24 10:36 =
PM <SPAN=20
 style=3D"FONT-WEIGHT: bold">To: chuck.reinke; Darren =
Reely;=20
 powerh-l@lists.sowder.com <SPAN=20
 style=3D"FONT-WEIGHT: bold">Subject: Re: Introduction of =
Calling=20
 Quick Screens as Functions<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <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 run=20
 in batch using quick.<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <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&nbsp;=20
 (if you're on an Open/VMS your site might need =
this)<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">Screen =
qk-batch-1<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">file customer&nbsp;=20
 designer<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">file =
invoices&nbsp;&nbsp;&nbsp;=20
 designer<SPAN=20
 style=3D"COLOR: black; mso-color-alt: windowtext"><o:p></o:p></=
FONT>
 <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=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <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=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;begin<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; some great stuff=20
 here<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp; gets=20
 <SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp;=20
 lets<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp;=20
 puts<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp; =
end<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <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=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;begin<FONT=
=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; some other great stuff =

here<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; get an =
invoice<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; get the=20
 payment<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; lets =
reconcile<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; =
puts<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp; =
end<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">procedure =
cust-run<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;begin<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp; while retrieving =
customer=20
 sequential&nbsp;<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp;=20
 begin<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if=20
 cust-type =3D "regular joe"<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
 do internal regular-payments<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if=20
 cust-type =3D "special"<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
 do internal special-payments<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: =
black">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
 end<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">procedure =
initial<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp; =
begin<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp;&nbsp; do =
internal=20
 cust-run<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp;&nbsp;=20
 return<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">&nbsp;&nbsp;&nbsp;=20
 end<SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o:p>
 <FONT=20
 face=3D"Times New Roman" color=3Dblack size=3D3><SPAN=20
 style=3D"FONT-SIZE: 12pt; COLOR: black">build <SPAN=20
 style=3D"FONT-WEIGHT: bold; FONT-STYLE: italic">"chuck.reinke"=20
 &lt;chuck.reinke@sbcglobal.net&gt; =
wrote:<FONT=20
 color=3Dblack><SPAN=20
 style=3D"COLOR: black; mso-color-alt: =
windowtext"><o:p></o: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 years=20
 ago on ancient HP systems where programmers often ran out of stack =
space. A=20
 GHOST screen, as a sub-process, was a technique for gaining =
additional=20
 system resources. Eventually some programming logic supported the =
technique=20
 as well as the idea of =
shared subroutines. Chuck -----=20
 Original Message ----- From: "Darren Reely"=20
 <DARREN.REELY@LATTICESEMI.COM> To: =
<POWERH-L@LISTS.SOWDER.COM> Sent:=20
 Monday, May 24, 2004 6:10 PM Subject: Introduction of Calling =
Quick Screens=20
 as Functions &gt; We were wondering today when the concept =
was=20
 introduced allowing coders &gt; to call quick screens as hidden =
functions.=20
 The code I'm maintaining &gt; seems to have been created as early =
as April=20
 1992. &gt; &gt; While we're on the subject. What is the best =
way to set=20
 up the screen &gt; statement? A! pparently the GHOST option is not =

  _required_ when calling<BR>&gt; the screen.<BR>&gt;<BR>&gt; Thanks =
for the=20
  interest.<BR>&gt;<BR>&gt; Darren<BR>&gt;<BR>&gt;<BR>&gt; =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D=20
  =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D<BR>&gt; Mailing list:=20
  powerh-l@lists.sowder.com<BR>&gt; Subscribe: "subscribe" in message =
body=20
  to<BR>powerh-l-request@lists.sowder.com<BR>&gt; Unsubscribe: =
"unsubscribe=20
  <PASSWORD>" in message body =
to<BR>powerh-l-request@lists.sowder.com<BR>&gt;=20
  http://lists.sowder.com/mailman/listinfo/powerh-l<BR>&gt; This list =
is closed,=20
  thus to post to the list you must be a subscriber.<BR><BR><BR>=3D =3D =
=3D =3D =3D =3D =3D =3D=20
  =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>" in=20
  message body to=20
  =
powerh-l-request@lists.sowder.com<BR>http://lists.sowder.com/mailman/lis=
tinfo/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]>&nbsp;</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></BODY></HTM=
L>

------_=_NextPart_001_01C44280.9AB33C42--