Frame only displaying last record in table

Question

Hopefully this will be my last question for a while. I know there isn't much to be said about Progress's UI capability, but I'm having what seems to be a really strange problem with displaying in a frame.

Here is some pseudo code to help you understand the problem:

DEF TEMP-TABLE tMainTable.
DEF TEMP-TABLE tPage LIKE tMainTable.
DEF VAR iCursor AS INT.

/* SOME INPUT DETECTION */
/*  Moving the cursor   */

FIND FIRST tMainTable WHERE tMainTable.UniqueId EQ iCursor.
DO i = 1 TO iMaxPageSize:
    CREATE tPage.
    BUFFER-COPY tMainTable TO tPage.
END.

/* DISPLAY */
FOR EACH tPage:
    DISPLAY tPage.iNumber tPage.Name.
END.

These are the basics of the program. Now the desired output, would have the FRAME displaying these to end right under the last entry. Currently, using the default FRAME, it scales to the bottom of the terminal screen.

Though, when I instantiate a FRAME and interchange all of the logical available options, I can get it to size to where I want it, but can't get it to display the entries in seperate lines. What it looks like it's doing instead, is displaying each entry on the same line, overwriting the last one, as it always shows the last record in the TEMP-TABLE.

I tried instantiating the FRAME "WITH iMaxPageSize DOWN", with no effect. After reading a little deeper on this particular option, it looks like it's only available for displaying multiple fields in a table, and not certain fields of multiple tables.

Hope this made sense, I really need help with this.

score 1 · Accepted Answer · answered Oct 11 '12 at 16:16

Figured it out, took me a cumulative of 8 hours of reading, and trial-and-error coding.

FOR EACH tPage WITH 6 DOWN:

Was all I needed.

It still bugs me that when I instantiated a FRAME, I could only ever get it to display one record despite using it in a FOR EACH.

score 0 · Answer 2 · answered Oct 11 '12 at 00:44

0

you need to do something like this - the FIND / DO combination isn't doing what you think it is.

DEF TEMP-TABLE tMainTable.
DEF TEMP-TABLE tPage LIKE tMainTable.
DEF VAR iCursor AS INT.
DEF VAR i AS INT.      
i = 0.

FOR EACH tMainTable
   WHERE tMainTable.UniqueId EQ iCursor
   NO-LOCK:

   i = i + 1.
   IF i > maxpagesize THEN
      LEAVE.

   CREATE tPage.
   BUFFER-COPY tMainTable TO tPage.

END.

  /* DISPLAY */

FOR EACH tPage:
   DISPLAY tPage.iNumber tPage.Name 
      WITH DOWN.
END.

answered Oct 11 '12 at 00:44

Tim Kuehn

3,201
1
17
23

Yes I know, that was a very rough summarization of my 1500 line program. My iterating and page-building code is perfect, I just need help with the frame display. Thanks. – Tanner Sorensen Oct 11 '12 at 13:39
Adding the frame code im using: DEFINE FRAME f WITH DOWN 6. /* tPage has max of 6 */ FOR EACH tPage WITH FRAME f: DISPLAY /* 2 fields */. END. And the output is always the last record in the temp-table, in the first row, and nothing else. – Tanner Sorensen Oct 11 '12 at 15:19
Basically I'm asking one of two questions: 1.Is there a way to control the size of a frame without explicitly instantiating one. OR 2. Why is my explicitly instantiated frame only displaying one record(the last one in the table). – Tanner Sorensen Oct 11 '12 at 15:48
Your code, as posted will only show one record regardless of the frame definition. The "down 6" phrase won't work, the correct phrase is "6 DOWN" – Tim Kuehn Oct 12 '12 at 02:35

Frame only displaying last record in table

2 Answers2