<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Garamond;
panose-1:2 2 4 4 3 3 1 1 8 3;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Balloon Text Char";
margin:0in;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";
mso-fareast-language:EN-US;}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-priority:99;
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";
mso-fareast-language:EN-US;}
span.EmailStyle20
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:windowtext;}
span.EmailStyle21
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle22
{mso-style-type:personal;
font-family:"Garamond","serif";
color:blue;
font-weight:normal;
font-style:normal;}
span.EmailStyle23
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle24
{mso-style-type:personal-reply;
font-family:"Garamond","serif";
color:blue;
font-weight:normal;
font-style:normal;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-CA" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Hi, this is a work around I used years ago for a similar “new user” pushing the envelope. And I thank him and all those that push the envelope as it keeps life interesting.
</span><span style="font-size:12.0pt;font-family:Wingdings;color:blue">J</span><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">On VMS platform with PH 7.10E<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">High level<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Users calls quick screen ‘kick off’<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">User enters some info in fields….kicks off designer procedure (user does not have to exit screen as all processing is done under separate system processes)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Designer procedure passes variables to and executes a dcl command procedure<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Separate job is submitted and the DCL command procedure calls quick screen ‘work horse’<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Quick screen work horse has an initialize procedure to do/control the processing and also has a FOR construct that uses the occurrence variable to count iterations.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">If/when a certain count is reached the initialize procedure terminates and passes back info to the dcl command procedure that can (if required) call the work horse
screen again passing new variables so it can continue from where it left off.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Hopefully this made sense (and you don’t need to go there). It was very messy and I’m sure there are more elegant ways to do this.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Happy Friday
</span><span style="font-size:12.0pt;font-family:Wingdings;color:blue">J</span><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<div>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">Thanx</span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">Lorry Litman</span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">Application Management</span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA"><a href="mailto:llitman@manitoba-ehealth.ca">llitman@manitoba-ehealth.ca</a></span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">204-926-9076</span><span style="color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-CA">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-CA"> Collings,
Tony [mailto:Tony.Collings@obs-logistics.com] <br>
<b>Sent:</b> Friday, June 26, 2015 4:30 AM<br>
<b>To:</b> Lorry Litman; powerh-l@lists.sowder.com<br>
<b>Cc:</b> Scott, Julie<br>
<b>Subject:</b> RE: "Maximum number of screen calls was exceeded"<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">Thanks, Lorry.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">Yes, each new instance of quick is run from a new AIX shell.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">I’m aware of the screen levels parameter and we have this set to 15. I’m not familiar with the concurrent screens parameter – this is the ‘Screen Table’ field in the ‘Execution-Time …’ screen, right?
I’ve just checked and it’s set = the default 15. Although the description doesn’t appear to be directly related to the error, I’ll try upping it to 50.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">I’ll let you know if it works out.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<div>
<p class="MsoNormal"><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:#1F497D;mso-fareast-language:EN-GB">Tony</span><span lang="EN-GB" style="color:#1F497D;mso-fareast-language:EN-GB"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:#1F497D;mso-fareast-language:EN-GB">Email:</span><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:blue;mso-fareast-language:EN-GB">
<a href="mailto:Tony.Collings@OBS-Logistics.co.uk">Tony.Collings@OBS-Logistics.co.uk</a></span><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:#1F497D;mso-fareast-language:EN-GB"> Web:
<a href="/exchweb/bin/redir.asp?URL=http://www.obs-logistics.com/" target="_blank">
http://www.obs-logistics.com</a><br>
Tel: +44(0)151 448 0331, DDI: +44(0)151 448 2961 Fax: +44 (0)151 448 2989<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-GB">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-GB"> Lorry
Litman [<a href="mailto:LLitman@manitoba-ehealth.ca">mailto:LLitman@manitoba-ehealth.ca</a>]
<br>
<b>Sent:</b> 25 June 2015 18:50<br>
<b>To:</b> Collings, Tony; <a href="mailto:powerh-l@lists.sowder.com">powerh-l@lists.sowder.com</a><br>
<b>Cc:</b> Scott, Julie<br>
<b>Subject:</b> RE: "Maximum number of screen calls was exceeded"<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Not sure if different values for AIX PH8.4 but on VMS PH7.10, max screen levels is 15 and max concurrent screens on display is 50. Both can be set in the QKG execution
time parameters.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Perhaps you could modify the code in order to log which screens are being called and count how many levels deep.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue">Was each new instance of quick for each batch run under a new/separate process?<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<div>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">Thanx</span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">Lorry Litman</span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">Application Management</span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA"><a href="mailto:llitman@manitoba-ehealth.ca">llitman@manitoba-ehealth.ca</a></span><span lang="EN-US" style="font-size:12.0pt;color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Garamond","serif";color:blue;mso-fareast-language:EN-CA">204-926-9076</span><span style="color:blue;mso-fareast-language:EN-CA"><o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Garamond","serif";color:blue"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-CA">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-CA">
<a href="mailto:powerh-l-bounces+llitman=manitoba-ehealth.ca@lists.sowder.com">powerh-l-bounces+llitman=manitoba-ehealth.ca@lists.sowder.com</a> [<a href="mailto:powerh-l-bounces+llitman=manitoba-ehealth.ca@lists.sowder.com">mailto:powerh-l-bounces+llitman=manitoba-ehealth.ca@lists.sowder.com</a>]
<b>On Behalf Of </b>Collings, Tony<br>
<b>Sent:</b> Thursday, June 25, 2015 11:41 AM<br>
<b>To:</b> <a href="mailto:powerh-l@lists.sowder.com">powerh-l@lists.sowder.com</a><br>
<b>Cc:</b> Scott, Julie<br>
<b>Subject:</b> RE: "Maximum number of screen calls was exceeded"<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">Forgot to add:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">PH = 8.43G<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D">O/S = AIX 6.1.0.0<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<div>
<p class="MsoNormal"><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:#1F497D;mso-fareast-language:EN-GB">Tony</span><span lang="EN-GB" style="color:#1F497D;mso-fareast-language:EN-GB"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:#1F497D;mso-fareast-language:EN-GB">Email:</span><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:blue;mso-fareast-language:EN-GB">
<a href="mailto:Tony.Collings@OBS-Logistics.co.uk">Tony.Collings@OBS-Logistics.co.uk</a></span><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";color:#1F497D;mso-fareast-language:EN-GB"> Web:
<a href="/exchweb/bin/redir.asp?URL=http://www.obs-logistics.com/" target="_blank">
http://www.obs-logistics.com</a><br>
Tel: +44(0)151 448 0331, DDI: +44(0)151 448 2961 Fax: +44 (0)151 448 2989<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span lang="EN-GB" style="color:#1F497D"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-GB">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";mso-fareast-language:EN-GB">
<a href="mailto:powerh-l-bounces+tony.collings=obs-logistics.com@lists.sowder.com">
powerh-l-bounces+tony.collings=obs-logistics.com@lists.sowder.com</a> [<a href="mailto:powerh-l-bounces+tony.collings=obs-logistics.com@lists.sowder.com">mailto:powerh-l-bounces+tony.collings=obs-logistics.com@lists.sowder.com</a>]
<b>On Behalf Of </b>Collings, Tony<br>
<b>Sent:</b> 25 June 2015 17:29<br>
<b>To:</b> <a href="mailto:powerh-l@lists.sowder.com">powerh-l@lists.sowder.com</a><br>
<b>Cc:</b> Scott, Julie<br>
<b>Subject:</b> "Maximum number of screen calls was exceeded"<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB">Good afternoon all,<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB">We have an application process that is producing the Max screen calls error on an almost daily basis. A potentially large number of data records are being processed in a single batch and each record in the batch runs
at least one, perhaps more, sub-screens = a correspondingly large number of screen calls. The users of the application process stay in the top-level screen, without exiting, processing batch after batch, and the error occurs after the session has been active
for several hours. We’ve tried running a new instance of quick for each batch, assuming the process counters would be reset with each instance and stop the error being tripped, but we’re still getting it.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB">Has anybody seen and dealt with the error? What was done to overcome it?<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB">All suggestions/ideas welcome.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB">Thanks<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";mso-fareast-language:EN-GB">Tony</span><span lang="EN-GB" style="mso-fareast-language:EN-GB"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="EN-GB" style="font-size:10.0pt;font-family:"Arial","sans-serif";mso-fareast-language:EN-GB">Email:<span style="color:blue">
<a href="mailto:Tony.Collings@OBS-Logistics.co.uk">Tony.Collings@OBS-Logistics.co.uk</a></span> Web:
<a href="/exchweb/bin/redir.asp?URL=http://www.obs-logistics.com/" target="_blank">
http://www.obs-logistics.com</a><br>
Tel: +44(0)151 448 0331, DDI: +44(0)151 448 2961 Fax: +44 (0)151 448 2989<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-GB"><o:p> </o:p></span></p>
<p><span lang="EN-GB" style="font-size:8.0pt;font-family:"Arial","sans-serif";color:black">OBS Logistics Limited is a limited company. Registered in England No 02439258. Registered Office: 140 Buckingham Palace Road, London SW1W 9SA.<br>
</span><i><span lang="EN-GB" style="font-size:7.5pt;font-family:"Arial","sans-serif";color:teal">The information transmitted is only for the entity or person for whom it is intended and may contain confidential and/or privileged material. Any review, retransmission,
dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you receive this in error, please contact the sender and delete the material from any computer
or media on which it resides.<br>
Internet communications are not guaranteed to be secure or virus free. OBS Logistics Limited does not accept responsibility for any loss arising from unauthorised access to, or interference with, any Internet communications by any third party, or from the transmission
of any viruses.<br>
Replies to this email may be monitored by OBS Logistics Ltd for operational or business reasons.<o:p></o:p></span></i></p>
</div>
</body>
</html>