relevant code it below... <br><br>can cle<br>screen ../pub/pcr930kc<br><br>;FS930S TYPE SCALE SCALE DEC PICTURE<br>; CCG-UNION-CODE CHAR X(2) ^^<br>
;* CCG-OCC-NUM NUM 0 0 0 ^^^^^^<br>
;* UN-OCC-KEY CHAR X(10)<br>; CCG-OCC-DESC CHAR X(20) ^^^^^^^^^<br>; CCG-JOB-CLASS NUM 0 0 0 ^^<br>
; NEW-JOB-CLASS NUM 0 0 0 ^^^^^^<br><br>temp t-union char * 2 initial "00" reset AT mode<br>temp t-occ num initial 0 reset at MODE<br><br>file *../data/FS930S<br>select if T-union = ccg-union-code<br>
<br><br>skip 2<br>align (1,4,17)<br>field t-union label "Union Code" values "01" to "12"<br><div class="gmail_quote"><br>procedure designer 01 nodata<br>begin<br> accept t-union<br>end<br>
<br><br>procedure Find<br>begin<br> if t-union = "00" <br> then accept t-union<br> accept t-occ<br> get FS930S via ccg-occ-num using t-occ<br> display ccg-occ-desc<br> display ccg-job-class<br>end<br><br>
<br>----------------------------------------------------------------------------<br>Working on an indexed subfile.<br><br>First record works fine.<br><br>
After you find and update.. the screen is blank enter 1 to change the union and you get no data...<br><br>PS this is 7.33 on HPUX<br><br>I have a work around now that I can change mode and reset the union or do an us and change the union.. If I don't sort it out I'm not going to worry about it... I have a love hate relationship with QUICK<br>
<br><br>On Mon, Mar 12, 2012 at 10:48 AM, Pickering, John (NORBORD) <span dir="ltr"><<a href="mailto:John.Pickering@norbord.com" target="_blank">John.Pickering@norbord.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Is the temp in the REQUEST clause of the FILE statement?<br>
<div><div><br>
-----Original Message-----<br>
From: powerh-l-bounces+john.pickering=<a href="mailto:norbord.com@lists.sowder.com" target="_blank">norbord.com@lists.sowder.com</a><br>
[mailto:<a href="mailto:powerh-l-bounces%2Bjohn.pickering" target="_blank">powerh-l-bounces+john.pickering</a>=<a href="mailto:norbord.com@lists.sowder.com" target="_blank">norbord.com@lists.sowder.com</a>] On<br>
Behalf Of Bob Deskin<br>
Sent: Monday, March 12, 2012 11:44 AM<br>
To: Brian Stephens<br>
Cc: powerh-l-bounces+bob.deskin=<a href="mailto:ca.ibm.com@lists.sowder.com" target="_blank">ca.ibm.com@lists.sowder.com</a>;<br>
<a href="mailto:powerh-l@lists.sowder.com" target="_blank">powerh-l@lists.sowder.com</a><br>
Subject: Re: It's Monday and I know that when somebody answers I'll<br>
gothat's right..<br>
<br>
It should be ok if you're in Find or Select mode.<br>
<br>
Bob<br>
<br>
<br>
<br>
From: Brian Stephens <<a href="mailto:bws001@gmail.com" target="_blank">bws001@gmail.com</a>><br>
To: <a href="mailto:powerh-l@lists.sowder.com" target="_blank">powerh-l@lists.sowder.com</a><br>
Date: 2012-03-12 10:48 AM<br>
Subject: It's Monday and I know that when somebody answers I'll<br>
go<br>
that's right..<br>
Sent by: powerh-l-bounces+bob.deskin=<a href="mailto:ca.ibm.com@lists.sowder.com" target="_blank">ca.ibm.com@lists.sowder.com</a><br>
<br>
<br>
<br>
I'm trying to use a a temp as a selection in a quick screen<br>
<br>
IE the temp is a field on the screen and in the select on the file<br>
statement<br>
<br>
<br>
but when I try to change the field it tells me there is no data...<br>
I know I've done this before But damned if I can remember how..<br>
<br>
<br>
--<br>
Thanks<br>
<br>
Brian Stephens--<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Thanks<br><br>Brian Stephens<br>