<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: arial,helvetica,sans-serif; font-size: 10pt; color: #000000'><br><br><br><br> Hi<br> Just a small note of thanks,the ghost screen worked fine. Thanks for your prompt assistance. <br><br><br><br>Best Regards<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><hr id="zwchr"><div style="color: rgb(0, 0, 0); font-weight: normal; font-style: normal; text-decoration: none; font-family: Helvetica,Arial,sans-serif; font-size: 12pt;"><b>step 3.: </b>"Herald Kaffka" <Herald.Kaffka@westfraser.com><br><b>To: </b>"John Pickering (NORBORD)" <John.Pickering@norbord.com>, tadjodha@stlucianic.org, powerh-l@lists.sowder.com<br><b>Sent: </b>Thursday, 13 October, 2016 4:50:59 PM<br><b>Subject: </b>RE: Ghost screen<br><br>
<style><!--
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
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.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{mso-style-priority:99;
mso-style-link:"Plain Text Char";
margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
p.emailquote, li.emailquote, div.emailquote
{mso-style-name:emailquote;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:1.0pt;
border:none;
padding:0in;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:#1F497D;}
span.PlainTextChar
{mso-style-name:"Plain Text Char";
mso-style-priority:99;
mso-style-link:"Plain Text";
font-family:"Calibri",sans-serif;}
.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>
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size: 11pt; font-family: "Calibri",sans-serif; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; font-family: "Calibri",sans-serif; color: rgb(31, 73, 125);">You stole my next example.</span></p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">Code fragment in a calling screen, user has just enter a rail car ID, in our business it is unlikely, but</p>
<p class="MsoPlainText">Possible for a rail car to be recycled within 30 days. Check the rail car # the user has just input against the</p>
<p class="MsoPlainText">Order file, warn (but do not error off) if the rail car has been recently used.</p>
<p class="MsoPlainText">This one is referencing a table that is now in Oracle, (In Database MDS), but change that one file</p>
<p class="MsoPlainText">Statement and it would (and has) worked find against RMS/ISAM files.</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">Note that the file is still a designer, and the only proc in this one is the initialize procedure.</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">In Calling Screen</p>
<p class="MsoPlainText">===============================================================================================================</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText"> IF RAIL_CAR_ID > ' ' </p>
<p class="MsoPlainText"> THEN RUN SCREEN MDS_LOCATION:MDS04072A.QKC &</p>
<p class="MsoPlainText"> PASSING T-BU, T-MILL-ID, T-RAIL-CAR, &</p>
<p class="MsoPlainText"> T-RAIL-DUP, T-DAY-30, T-ORD-ID MODE F</p>
<p class="MsoPlainText"> IF T-RAIL-DUP = 'Y'</p>
<p class="MsoPlainText"> THEN WARN = &</p>
<p class="MsoPlainText"> "*W* Duplicate RAIL CAR ID used within the past 30 days..."</p>
<p class="MsoPlainText">==============================================================================================================</p>
<p class="MsoPlainText"> </p>
<div style="border-width: 2.25pt medium; border-style: double none; border-color: windowtext -moz-use-text-color; padding: 1pt 0in;">
<p class="MsoPlainText" style="border: medium none; padding: 0in;">Ghost screen running a relatively complex edit</p>
</div>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">SET VERIFY ERROR</p>
<p class="MsoPlainText">;============================================================================|</p>
<p class="MsoPlainText">;/T/ - Ghost screen to check for duplicate RAIL CAR numbers</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">;============================================================================|</p>
<p class="MsoPlainText">SCREEN name &</p>
<p class="MsoPlainText"> ACTIVITIES FIND, CHANGE &</p>
<p class="MsoPlainText"> RECEIVING &</p>
<p class="MsoPlainText"> T-BU, &</p>
<p class="MsoPlainText"> T-MILL-ID, &</p>
<p class="MsoPlainText"> T-RAIL-CAR, &</p>
<p class="MsoPlainText"> T-DUP-RAIL, &</p>
<p class="MsoPlainText"> T-DAY-30, &</p>
<p class="MsoPlainText"> T-ORD-ID</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">; ----------------------------------- TEMPS --------------------------------|</p>
<p class="MsoPlainText">TEMP T-BU CHAR*2</p>
<p class="MsoPlainText">TEMP T-MILL-ID CHAR*2</p>
<p class="MsoPlainText">TEMP T-RAIL-CAR CHAR*10</p>
<p class="MsoPlainText">TEMP T-DUP-RAIL CHAR*1 </p>
<p class="MsoPlainText">TEMP T-DAY-30 DATE</p>
<p class="MsoPlainText">TEMP T-ORD-ID CHAR*7</p>
<p class="MsoPlainText">TEMP T-COUNT NUM*4 </p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText"><b>FILE ORDER_HEADER IN MDS ALIAS OH DESIGNER OPEN CLOSE</b></p>
<p class="MsoPlainText"> ACCESS VIA BUSINESS_UNIT, MILL_ID, RAIL_CAR_ID & ;HGK</p>
<p class="MsoPlainText"> USING T-BU, T-MILL-ID, T-RAIL-CAR ;HGK</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText"> SELECT IF ORDER_ID OF OH <> T-ORD-ID AND &</p>
<p class="MsoPlainText"> (MODE_OF_SHIPMENT OF OH = 'CL' OR & ;HGK</p>
<p class="MsoPlainText"> MODE_OF_SHIPMENT OF OH = 'CB') ;HGK</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">;-------------------------------- PROCEDURES ------------------------------|</p>
<p class="MsoPlainText"><b>PROCEDURE INITIALIZE</b></p>
<p class="MsoPlainText">BEGIN</p>
<p class="MsoPlainText"> LET T-COUNT = 0</p>
<p class="MsoPlainText"> LET T-DUP-RAIL = ""</p>
<p class="MsoPlainText"> WHILE RETRIEVING OH</p>
<p class="MsoPlainText"> BEGIN</p>
<p class="MsoPlainText"> IF DATE_STAMP GE T-DAY-30</p>
<p class="MsoPlainText"> THEN LET T-COUNT = T-COUNT + 1</p>
<p class="MsoPlainText"> END </p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText"> IF T-COUNT GE 1 </p>
<p class="MsoPlainText"> THEN LET T-DUP-RAIL = 'Y'</p>
<p class="MsoPlainText"> RETURN</p>
<p class="MsoPlainText">END</p>
<p class="MsoPlainText"> </p>
<p class="MsoPlainText">;================================ < BUILD > ================================</p>
<p class="MsoPlainText">BUILD</p>
<p class="MsoPlainText"> </p>
<p class="MsoNormal"><span style="font-size: 11pt; font-family: "Calibri",sans-serif; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; font-family: "Calibri",sans-serif; color: rgb(31, 73, 125);"> </span></p>
<div>
<div style="border-right: medium none; border-width: 1pt medium medium; border-style: solid none none; border-color: rgb(225, 225, 225) -moz-use-text-color -moz-use-text-color; padding: 3pt 0in 0in;">
<p class="MsoNormal"><b><span style="font-size: 11pt; font-family: "Calibri",sans-serif;">From:</span></b><span style="font-size: 11pt; font-family: "Calibri",sans-serif;"> powerh-l-bounces+herald.kaffka=westfraser.com@lists.sowder.com [mailto:powerh-l-bounces+herald.kaffka=westfraser.com@lists.sowder.com]
<b>On Behalf Of </b>Pickering, John (NORBORD)<br>
<b>Sent:</b> Thursday, October 13, 2016 3:42 PM<br>
<b>To:</b> tadjodha@stlucianic.org; powerh-l@lists.sowder.com<br>
<b>Subject:</b> Re: Ghost screen</span></p>
</div>
</div>
<p class="MsoNormal"> </p>
<div>
<div>
<p class="MsoNormal">You could do this by passing in the stuff you need to edit and a flag to indicate the result of the edit. The main screen would set the stuff to be edited, call the ghost screen. The ghost screen would do the edits and set the status flag
and then exit. The calling screen would then take whatever action is appropriate based on the value of the status flag.</p>
</div>
<div>
<p class="MsoNormal"> </p>
</div>
<div>
<p class="MsoNormal"> </p>
</div>
<div>
<p class="MsoNormal"> </p>
</div>
<div id="x_composer_signature">
<div>
<p class="MsoNormal"><span style="font-size: 10pt; color: rgb(87, 87, 87);">Sent from my Bell Samsung device over Canada's largest network.</span></p>
</div>
</div>
<div>
<p class="MsoNormal"> </p>
</div>
<div>
<p class="MsoNormal"> </p>
</div>
<div>
<p class="MsoNormal">-------- Original message --------</p>
</div>
<div>
<p class="MsoNormal">From: <a href="mailto:tadjodha@stlucianic.org" target="_blank">tadjodha@stlucianic.org</a>
</p>
</div>
<div>
<p class="MsoNormal">Date: 2016-10-13 3:30 PM (GMT-06:00) </p>
</div>
<div>
<p class="MsoNormal">To: <a href="mailto:powerh-l@lists.sowder.com" target="_blank">powerh-l@lists.sowder.com</a>
</p>
</div>
<div>
<p class="MsoNormal">Subject: Re: Ghost screen </p>
</div>
<div>
<p class="MsoNormal"> </p>
</div>
</div>
<div>
<p class="MsoNormal"><span style="font-size: 10pt;"><br>
Hi Thanks for the info. However if I want to do lookups on files so as to alert the user by Hiliting/Flashing/Blinking a message on the Main screen , would this help.<br>
<br>
<br>
<br>
Thanks <br>
<br>
<br>
<br>
<br>
<hr id="zwchr"><br>
From: "Herald Kaffka" <<a href="mailto:Herald.Kaffka@westfraser.com" target="_blank">Herald.Kaffka@westfraser.com</a>><br>
To: <a href="mailto:tadjodha@stlucianic.org" target="_blank">tadjodha@stlucianic.org</a>, <a href="mailto:powerh-l@lists.sowder.com" target="_blank">
powerh-l@lists.sowder.com</a><br>
Sent: Thursday, 13 October, 2016 4:04:31 PM<br>
Subject: RE: Ghost screen<br>
<br>
<br>
<br>
<br>
Here’s an example, (This one is keeping accounting happy by preventing various control #’s from duplicating rather than due to a file limit, but the concepts are the same).
<br>
<br>
<br>
<br>
Declare the screen as normal. List/define/type any passed in variables. <br>
<br>
po/order#’s fall out by mill-id (t-pass-mill-id), do I want a Po or order # (t-x2), return the next # to the caller in t-number (Variable Names aren’t mine, working example someone did a long time ago).
<br>
<br>
<br>
<br>
Declare local files. Note that the only file in this one is a designer, (no find/change/browse processing in this screen, just do something the background and exit).
<br>
<br>
<br>
<br>
Some internal procedures that do the actual “work”. <br>
<br>
<br>
<br>
An initialize procedure which in this case is examining the input variables and calling the correct internal procedure.
<br>
<br>
If your processing is small, just chunk all the processing in the initialize procedure. (The initialize procedure is a good place to drive small ghosts).
<br>
<br>
<br>
<br>
Better to have several small, tightly focused ghosts than a big “general purpose” one that’s trying to do a bunch of unrelated
<br>
<br>
Tasks while trying to hide/autocomplete in the background. <br>
<br>
<br>
<br>
All the explicit lock/get/put processing is in here as this one is not doing find/preupdate/update/postupdate type flow,
<br>
<br>
Just initialize, do it, and get out. <br>
<br>
<br>
<br>
If you have no need to pass information back to the caller, a simple 1 line qtp call can also work in place of a ghost screen.
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
SCREEN name RECEIVING T-PASS-MILL-ID, T-X2, T-NUMBER <br>
<br>
<br>
<br>
TEMP T-PASS-MILL-ID CHAR*2 <br>
<br>
TEMP T-X2 CHAR*2 <br>
<br>
TEMP T-NUMBER ZONED*5 <br>
<br>
<br>
<br>
FILE LAST_NUMBER_CONTROL DESIGNER <br>
<br>
ACCESS VIA MILL_ID USING T-PASS-MILL-ID <br>
<br>
<br>
<br>
PROCEDURE INTERNAL GET-NEXT-ORDER <br>
<br>
BEGIN <br>
<br>
LET T-NUMBER = 0 <br>
<br>
WHILE T-NUMBER = 0 <br>
<br>
BEGIN <br>
<br>
LOCK LAST_NUMBER_CONTROL RECORD <br>
<br>
GET LAST_NUMBER_CONTROL OPT <br>
<br>
IF ACCESSOK <br>
<br>
THEN BEGIN <br>
<br>
LET T-NUMBER = LAST_ORDER_NUMBER OF LAST_NUMBER_CONTROL + 1 <br>
<br>
IF T-NUMBER = 99999 <br>
<br>
THEN LET LAST_ORDER_NUMBER OF LAST_NUMBER_CONTROL = 0 <br>
<br>
ELSE LET LAST_ORDER_NUMBER OF LAST_NUMBER_CONTROL = T-NUMBER <br>
<br>
PUT LAST_NUMBER_CONTROL <br>
<br>
END <br>
<br>
UNLOCK LAST_NUMBER_CONTROL <br>
<br>
END <br>
<br>
END <br>
<br>
<br>
<br>
PROCEDURE INTERNAL GET-NEXT-PO <br>
<br>
BEGIN <br>
<br>
LET T-NUMBER = 0 <br>
<br>
WHILE T-NUMBER = 0 <br>
<br>
BEGIN <br>
<br>
LOCK LAST_NUMBER_CONTROL RECORD <br>
<br>
GET LAST_NUMBER_CONTROL OPT <br>
<br>
IF ACCESSOK <br>
<br>
THEN BEGIN <br>
<br>
LET T-NUMBER = LAST_PO_NUMBER OF LAST_NUMBER_CONTROL + 1 <br>
<br>
IF T-NUMBER = 99999 <br>
<br>
THEN LET LAST_PO_NUMBER OF LAST_NUMBER_CONTROL = 0 <br>
<br>
ELSE LET LAST_PO_NUMBER OF LAST_NUMBER_CONTROL = T-NUMBER <br>
<br>
PUT LAST_NUMBER_CONTROL <br>
<br>
END <br>
<br>
UNLOCK LAST_NUMBER_CONTROL <br>
<br>
END <br>
<br>
END <br>
<br>
<br>
<br>
PROCEDURE INITIALIZE <br>
<br>
BEGIN <br>
<br>
IF T-X2 = "OR" <br>
<br>
THEN DO INTERNAL GET-NEXT-ORDER <br>
<br>
IF T-X2 = "PO" <br>
<br>
THEN DO INTERNAL GET-NEXT-PO <br>
<br>
<br>
<br>
RETURN <br>
<br>
END <br>
<br>
<br>
<br>
BUILD <br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
From: <a href="mailto:powerh-l-bounces+herald.kaffka=westfraser.com@lists.sowder.com" target="_blank">
powerh-l-bounces+herald.kaffka=westfraser.com@lists.sowder.com</a> [<a href="mailto:powerh-l-bounces+herald.kaffka=westfraser.com@lists.sowder.com" target="_blank">mailto:powerh-l-bounces+herald.kaffka=westfraser.com@lists.sowder.com</a>] On Behalf Of
<a href="mailto:tadjodha@stlucianic.org" target="_blank">tadjodha@stlucianic.org</a> <br>
Sent: Thursday, October 13, 2016 2:26 PM <br>
To: <a href="mailto:powerh-l@lists.sowder.com" target="_blank">powerh-l@lists.sowder.com</a> <br>
Subject: Ghost screen <br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
Does any one have examples of a Ghost screen as the 31 file limit has been reached. OpenVMS 8.3 PH 8.40G Index file system?
<br>
<br>
<br>
<br>
<br>
<br>
Thanks <br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<br>
DISCLAIMER: This transmission (including any attachments) may contain confidential information, privileged material (including material protected by the solicitor-client or other applicable privileges), or constitute non-public information.Any use of this information
by anyone other than the intended recipient is prohibited. If you have received this transmission in error, please immediately reply to the sender and delete this information from your system.Use, dissemination, distribution, or reproduction of this transmission
by unintended recipients is not authorized and may be unlawful. (Please note that it is your responsibility to scan this message for v iruses).
<br>
<br>
<br>
<br>
<br>
<br>
-------------EOP--------------- <br>
<br>
This e-mail message and any attachments are confidential. Any dissemination or use of this information by a person other than the intended recipient is unauthorized. If you are not the intended recipient, please notify me by return e-mail, do not open any attachment
and delete this communication and any copy. <br>
<br>
Thank you<br>
--<br>
= = = = = = = = = = = = = = = = = = = = = = = = = = = =<br>
Mailing list: <a href="mailto:powerh-l@lists.sowder.com" target="_blank">powerh-l@lists.sowder.com</a><br>
Subscribe: 'subscribe' in message body to <a href="mailto:powerh-l-request@lists.sowder.com" target="_blank">
powerh-l-request@lists.sowder.com</a><br>
Unsubscribe: 'unsubscribe &lt;password&gt;' in message body to <a href="mailto:powerh-l-request@lists.sowder.com" target="_blank">
powerh-l-request@lists.sowder.com</a><br>
<a href="http://lists.sowder.com/mailman/listinfo/powerh-l" target="_blank">http://lists.sowder.com/mailman/listinfo/powerh-l</a><br>
This list is closed, thus to post to the list you must be a subscriber.<br>
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.</span></p>
</div>
</div>
<p><br>
<br>
-------------EOP--------------- <br>
<br>
This e-mail message and any attachments are confidential. Any dissemination or use of this information by a person other than the intended recipient is unauthorized. If you are not the intended recipient, please notify me by return e-mail, do not open any attachment
and delete this communication and any copy. <br>
<br>
Thank you </p>
</div><br></div>
<br><html><body>-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------<br /><span style="color: #FF0000;"><strong>DISCLAIMER:</strong></span> This transmission (including any attachments) may contain confidential information, privileged material (including material protected by the solicitor-client or other applicable privileges), or constitute non-public information.Any use of this information by anyone other than the intended recipient is prohibited. If you have received this transmission in error, please immediately reply to the sender and delete this information from your system.Use, dissemination, distribution, or reproduction of this transmission by unintended recipients is not authorized and may be unlawful. (Please note that it is your responsibility to scan this message for v
iruses).</body></html>
<br></body></html>