Part of Screen Erased in Quick PH819C3

[Holland, Michelle]

Georgia,

Try using REFRESH ALL or REFRESH SCREEN as a separate statement after your
IF statement. e.g.


    DISPLAY LABOR-COST OF PRINTREQ ;stmt before

    IF T-DEF-COST > 0 AND SCHOOL-FLAG OF SCHLTBL = "Y" AND SCHOOL OF
PRINTREQ NE "PUD"
       THEN RUN SCREEN REQDISTR.OBJECT PASSING PRINTREQ, DOLLAR-TOTAL &
       TOTAL-DI-AMOUNT, T-DEF-CODE, T-DEF-COST MODE SAME 

    REFRESH ALL

    DISPLAY TOTAL-DI-AMOUNT ;stmt after
    END; end of Entry procedure

Also, are you using RESTORE=LINES when calling Quick?  If so, try calling
Quick without this program parameter.


Michelle Holland
Cognos Customer Support
Michelle.Holland@Cognos.com


-----Original Message-----
From: georgia miller [mailto:georgia_miller@gfps.k12.mt.us]
Sent: Tuesday, March 28, 2000 11:32 AM
To: Pickering, John (NORBORD); PowerHouse Listserv (new)
Subject: RE: Part of Screen Erased in Quick PH819C3


John, here is the info you requested.
____________________________________________________________________

>To: georgia miller; 'PowerHouse Listserv (new) '
>From: Pickering, John (NORBORD) on Mon, Mar 27, 2000 5:36 PM
>Subject: RE: Part of Screen Erased in Quick PH819C3

>
>Georgia
>
>I think we need more info. I do anyway.
>
>Does control-G not repaint the main screen?  

No control-G does will not repaint the screen.  Control-G does work at other
times 
which is strange but will not repaint the erased labels and Id's.

>
>What part of the original screen is erased? The entire area occupied by the
>subscreen or some other portion?  

The subscreen takes up the upper right 1/4 of the screen.
When it gets erased all the labels and id#'s of the fields on the main
screen to the left of 
where the screen was painted is what gets erased.  I have it now where there
is nothing 
on the main screen where the subscreen is painted. But what was painted over
also was erased.
I have moved the subscreen to different parts of the screen but when it gets
erased, it was
always the same - where the subscreen was painted was erased and everything
on the lines 
to the right or left. (only the id's and labels, not the data)
>
>Is this a regular subscreen or a slave screen? What are its dimensions
(rows
>and columns)?

It is a regular subscreen.  From 3,45 to 11,80.  Main screen is From 1,1 to
24,24

Here is the Screen stmt of the subscreen:
SCREEN REQDISTR.OBJECT &
  RECEIVING PRINTREQ, DOLLAR-TOTAL, TOTAL-DI-AMOUNT, T-DEF-CODE, T-DEF-COST
&
  FROM 3,45 TO 11,80 &
  MESSAGE ON LINE 24 &
  HELP POPUP FROM 5,5 TO 20,75

>
>Is this a character mode or a block mode screen? I suspect you're not using
>panel mode but I have to ask that too.

Character mode screen.  Not using panel mode.
>
>When the user experiences the erasure, is she returning after an update or
>is she backing out without updating changed data.

The labels and id#'s are erased on the original screen when the subscreen is
painted.  
The data is not erased, just the labels and Id's.  Then quick acts normally.

She could continue on if she could remember what goes where.   
Sometimes she can do 300 updates before it gets erased, other times 
it's 10 or another time it's 50.  
We haven't been able to come up with any pattern or anything but 
it happens AT LEAST once a day.

The subscreen is called from the Entry procedure.  The Entry procedure is
not
the default Entry Procedure.

The Subscreen stmt on the main screen looks like this:
SUBSCREEN REQDISTR.OBJECT LABEL "Budget Distribution" &
  IF T-DEF-COST > 0 AND SCHOOL-FLAG OF SCHLTBL = "Y" AND &
       SCHOOL OF PRINTREQ NE "PUD" & 
  PASSING PRINTREQ, DOLLAR-TOTAL, TOTAL-DI-AMOUNT, T-DEF-CODE, T-DEF-COST &
  MODE SAME AUTO

The Run Screen command in the Entry procedure looks like this:
DISPLAY LABOR-COST OF PRINTREQ ;stmt before

IF T-DEF-COST > 0 AND SCHOOL-FLAG OF SCHLTBL = "Y" AND SCHOOL OF PRINTREQ NE
"PUD"
   THEN RUN SCREEN REQDISTR.OBJECT PASSING PRINTREQ, DOLLAR-TOTAL &
  TOTAL-DI-AMOUNT, T-DEF-CODE, T-DEF-COST MODE SAME REFRESH ALL

DISPLAY TOTAL-DI-AMOUNT ;stmt after
END; end of Entry procedure

(Note the REFRESH ALL was added to try to fix the problem - maybe I should
add it to the Subscreen stmt too?)

>
>Is there an exit procedure or a backout procedure in the subscreen?

Yes, there is an Exit procedure on the subscreen:
PROCEDURE EXIT
BEGIN
LET TOTAL-DI-AMOUNT = 0
WHILE RETRIEVING PRNTDIST-ALIAS VIA I-PRINT# USING I-PRINT# OF PRINTREQ
  BEGIN
     LET TOTAL-DI-AMOUNT = TOTAL-DI-AMOUNT + MATERIALS-COST OF
PRNTDIST-ALIAS
     END
IF TOTAL-DI-AMOUNT NE DOLLAR-TOTAL
THEN WARN = "*W3 Total Distribution Amounts don't equal Materials+Labor
Costs" + &
  ascii(TOTAL-DI-AMOUNT) + " " ASCII(DOLLAR-TOTAL)
END

There is no Initial Procedure on the subscreen, only 2 Input Procedures, 1
Process procedure and
the Exit procedure. 
>
>If, after the screen is partially erased, you enter an id number that is in
>the erased portion of the screen, what does Quick do?

It will accept the data but the labels and Id#s are missing.  Quick acts
normal 
but it's difficult for the user to continue with the labels missing.  She
can enter the data 
on the subscreen, do a UR (update Return), Update the main screen, and go
onto the next
record. 
>
>Inquiring minds want to know,
>John Pickering
>Toronto
>

One thing that is different on this screen than others, is that the files
being used are KSAM files
 instead of Image database files.

Thanks for the help John!!!
Georgia

>-----Original Message-----
>From: georgia miller
>To: PowerHouse Listserv (new)
>Sent: 03/27/2000 5:59 PM
>Subject: Part of Screen Erased in Quick PH819C3
>
>I have a problem where part of my original screen is erased when coming
>back from a subscreen that overwrites part of the original screen.  It
>doesn't do it all the time, just some times - at least once a day.  I am
>on MPEix 5.5 and Quick PH819C3.  This only started doing this when I
>upgraded to PH819C3.  When this happens the user must get out of the
>main screen, back to the menu and then go back to the screen in order to
>get back the part of the screen that is erased.  
>
>I worked with someone at Cognos Customer Support and they could not
>duplicate the problem.  I tried putting Refresh All on the Run Screen
>command but that didn't help.  I also tried moving the subscreen to
>different parts of the screen but that didn't help.  We also tried using
>a different terminal (switched from a dumb terminal to a Mac with
>Reflections) and that didn't help.
>
>My user has experienced losing part of her screen on a daily basis for
>over a year now.  It is quite annoying.  
>
>Has anyone else experienced this problem with Quick PH819C3?  
>
>Thanks!
>Georgia Miller
>

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.