It's Monday and I know that when somebody answers I'll gothat's right..

[Brian Stephens]

relevant code it below...

can cle
screen ../pub/pcr930kc

;FS930S                                  TYPE SCALE SCALE  DEC PICTURE
;  CCG-UNION-CODE                        CHAR                  X(2) ^^
;* CCG-OCC-NUM                           NUM     0     0    0  ^^^^^^
;* UN-OCC-KEY                            CHAR                  X(10)
;  CCG-OCC-DESC                          CHAR                  X(20)
^^^^^^^^^
;  CCG-JOB-CLASS                         NUM     0     0    0  ^^
;  NEW-JOB-CLASS                         NUM     0     0    0  ^^^^^^

temp t-union char * 2  initial "00" reset AT mode
temp t-occ    num     initial 0 reset at MODE

file *../data/FS930S
select if T-union = ccg-union-code


skip 2
align (1,4,17)
field  t-union   label "Union Code"    values "01" to "12"

procedure designer 01 nodata
begin
 accept t-union
end


procedure Find
begin
  if t-union = "00"
    then accept t-union
  accept t-occ
  get FS930S via ccg-occ-num using t-occ
  display ccg-occ-desc
  display ccg-job-class
end


----------------------------------------------------------------------------
Working on an indexed subfile.

First record works fine.

After you find and update..  the screen is blank enter 1 to change the
union and you get no data...

PS this is 7.33 on HPUX

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


On Mon, Mar 12, 2012 at 10:48 AM, Pickering, John (NORBORD) <
John.Pickering at norbord.com> wrote:

> Is the temp in the REQUEST clause of the FILE statement?
>
> -----Original Message-----
> From: powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com
> [mailto:powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com] On
> Behalf Of Bob Deskin
> Sent: Monday, March 12, 2012 11:44 AM
> To: Brian Stephens
> Cc: powerh-l-bounces+bob.deskin=ca.ibm.com at lists.sowder.com;
> powerh-l at lists.sowder.com
> Subject: Re: It's Monday and I know that when somebody answers I'll
> gothat's right..
>
> It should be ok if you're in Find or Select mode.
>
> Bob
>
>
>
> From:   Brian Stephens <bws001 at gmail.com>
> To:     powerh-l at lists.sowder.com
> Date:   2012-03-12 10:48 AM
> Subject:        It's Monday and I know that when somebody answers I'll
> go
> that's  right..
> Sent by:        powerh-l-bounces+bob.deskin=ca.ibm.com at lists.sowder.com
>
>
>
> I'm trying to use a a temp as a selection in a quick screen
>
> IE the temp is a field on the screen  and in the select on the file
> statement
>
>
> but when I try to change the field it tells me there is no data...
> I know I've done this before But damned if I can remember how..
>
>
> --
> Thanks
>
> Brian Stephens--
>



-- 
Thanks

Brian Stephens
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20120312/91f0f3ed/attachment.htm>