Group By

[bulklodd]

Indeed I've been surprised to know about GROUP option in FOR EACH statement. IOW you can use the following code without any problem:

FOR EACH customer GROUP BY customer.country 
   DISP customer.name customer.country. 
END.

I wonder whether GROUP is a synonym of BREAK or it means something else? There's no mention about GROUP in the documentation of course.

 

[bulklodd]

I've just found out these words are synonyms. According to

http://www.peg.com/lists/peg/history/200107/msg00066.html

TEXTC "BREAK", KW_NORMAL, 5, 6297,
TEXTC "GROUP", KW_NORMAL, 5, 6297,

they both have the same id.

 

[KnutHandsome]

Good work, you had me searching for a moment.

Your next assignment is to write a procedure to display all synonyms.

 

[KnutHandsome]

I'm not convinced my codes right, but...

"TEXTC ""FULL-WIDTH-CHARS""" "KW_NORMAL" "10" "3773"
"TEXTC ""FULL-WIDTH""" "KW_NORMAL" "10" "3773"
"TEXTC ""GE""" "KW_NORMAL" "2" "1031"
"TEXTC "">=""" "KW_SYMBOL" "2" "1031"
"TEXTC ""<=""" "KW_SYMBOL" "2" "1033"
"TEXTC ""LE""" "KW_NORMAL" "2" "1033"
"TEXTC ""<>""" "KW_SYMBOL" "2" "1035"
"TEXTC ""NE""" "KW_NORMAL" "2" "1035"
"TEXTC ""AVG""" "KW_NORMAL" "3" "1164"
"TEXTC ""AVERAGE""" "KW_NORMAL" "3" "1164"
"TEXTC ""DISPLAY""" "KW_NORMAL" "4" "6023"
"TEXTC ""DISP""" "KW_NORMAL" "4" "6023"
"TEXTC ""CTOS""" "KW_NORMAL" "4" "6525"
"TEXTC ""BTOS""" "KW_NORMAL" "4" "6525"
"TEXTC ""GROUP""" "KW_NORMAL" "5" "6297"
"TEXTC ""BREAK""" "KW_NORMAL" "5" "6297"
"TEXTC ""WORK-TABLE""" "KW_NORMAL" "8" "6703"
"TEXTC ""WORKFILE""" "KW_NORMAL" "8" "6703"

 

[KnutHandsome]

More:

"TEXTC ""END-KEY""" "KW_NORMAL" "7" "1011"
"TEXTC ""ENDKEY""" "KW_NORMAL" "6" "1011"
"TEXTC ""SIDE-LABEL""" "KW_NORMAL" "8" "1020"
"TEXTC ""SIDE-LABELS""" "KW_NORMAL" "11" "1020"
"TEXTC ""CHARACTER_LENGTH""" "KW_NORMAL" "16" "1025"
"TEXTC ""LENGTH""" "KW_NORMAL" "6" "1025"
"TEXTC "">=""" "KW_SYMBOL" "2" "1031"
"TEXTC ""GE""" "KW_NORMAL" "2" "1031"
"TEXTC ""<=""" "KW_SYMBOL" "2" "1033"
"TEXTC ""LE""" "KW_NORMAL" "2" "1033"
"TEXTC ""<>""" "KW_SYMBOL" "2" "1035"
"TEXTC ""NE""" "KW_NORMAL" "2" "1035"
"TEXTC ""INIT""" "KW_NORMAL" "4" "1085"
"TEXTC ""INITIAL""" "KW_NORMAL" "7" "1085"
"TEXTC ""MODULO""" "KW_NORMAL" "6" "1105"
"TEXTC ""MOD""" "KW_NORMAL" "3" "1105"
"TEXTC ""UPPER""" "KW_NORMAL" "5" "1106"
"TEXTC ""CAPS""" "KW_NORMAL" "4" "1106"
"TEXTC ""LOWER""" "KW_NORMAL" "5" "1107"
"TEXTC ""LC""" "KW_NORMAL" "2" "1107"
"TEXTC ""TOTAL""" "KW_NORMAL" "5" "1160"
"TEXTC ""SUM""" "KW_NORMAL" "3" "1160"
"TEXTC ""MAXIMUM""" "KW_NORMAL" "7" "1162"
"TEXTC ""MAX""" "KW_NORMAL" "3" "1162"
"TEXTC ""MIN""" "KW_NORMAL" "3" "1163"
"TEXTC ""MINIMUM""" "KW_NORMAL" "4" "1163"
"TEXTC ""AVERAGE""" "KW_NORMAL" "3" "1164"
"TEXTC ""AVG""" "KW_NORMAL" "3" "1164"
"TEXTC ""THROUGH""" "KW_NORMAL" "7" "1178"
"TEXTC ""THRU""" "KW_NORMAL" "4" "1178"
"TEXTC ""FILE-NAME""" "KW_NORMAL" "9" "3530"
"TEXTC ""FILENAME""" "KW_NORMAL" "8" "3530"
"TEXTC ""BUTTON""" "KW_NORMAL" "6" "3535"
"TEXTC ""BUTTONS""" "KW_NORMAL" "7" "3535"
"TEXTC ""MENUBAR""" "KW_NORMAL" "7" "3540"
"TEXTC ""MENU-BAR""" "KW_NORMAL" "8" "3540"
"TEXTC ""HEIGHT-CHARS""" "KW_NORMAL" "8" "3598"
"TEXTC ""HEIGHT""" "KW_NORMAL" "6" "3598"
"TEXTC ""WIDTH""" "KW_NORMAL" "5" "3599"
"TEXTC ""WIDTH-CHARS""" "KW_NORMAL" "7" "3599"
"TEXTC ""MAX-HEIGHT""" "KW_NORMAL" "10" "3600"
"TEXTC ""MAX-HEIGHT-CHARS""" "KW_NORMAL" "12" "3600"
"TEXTC ""MAX-WIDTH-CHARS""" "KW_NORMAL" "11" "3601"
"TEXTC ""MAX-WIDTH""" "KW_NORMAL" "9" "3601"
"TEXTC ""MIN-HEIGHT""" "KW_NORMAL" "10" "3602"
"TEXTC ""MIN-HEIGHT-CHARS""" "KW_NORMAL" "12" "3602"
"TEXTC ""MIN-WIDTH-CHARS""" "KW_NORMAL" "11" "3603"
"TEXTC ""MIN-WIDTH""" "KW_NORMAL" "9" "3603"
"TEXTC ""AUTO-END-KEY""" "KW_NORMAL" "12" "3606"
"TEXTC ""AUTO-ENDKEY""" "KW_NORMAL" "11" "3606"
"TEXTC ""GRID-UNIT-HEIGHT""" "KW_NORMAL" "16" "3672"
"TEXTC ""GRID-UNIT-HEIGHT-CHARS""" "KW_NORMAL" "18" "3672"
"TEXTC ""GRID-UNIT-WIDTH""" "KW_NORMAL" "15" "3674"
"TEXTC ""GRID-UNIT-WIDTH-CHARS""" "KW_NORMAL" "17" "3674"
"TEXTC ""ITEM""" "KW_NORMAL" "4" "3723"
"TEXTC ""DDE-ITEM""" "KW_NORMAL" "8" "3723"
"TEXTC ""CODEPAGE""" "KW_NORMAL" "8" "3750"
"TEXTC ""SOURCE""" "KW_NORMAL" "6" "3750"
"TEXTC ""FULL-WIDTH""" "KW_NORMAL" "10" "3773"
"TEXTC ""FULL-WIDTH-CHARS""" "KW_NORMAL" "10" "3773"
"TEXTC ""FULL-HEIGHT""" "KW_NORMAL" "11" "3774"
"TEXTC ""FULL-HEIGHT-CHARS""" "KW_NORMAL" "13" "3774"
"TEXTC ""VIRTUAL-WIDTH""" "KW_NORMAL" "13" "3803"
"TEXTC ""VIRTUAL-WIDTH-CHARS""" "KW_NORMAL" "15" "3803"
"TEXTC ""VIRTUAL-HEIGHT-CHARS""" "KW_NORMAL" "16" "3804"
"TEXTC ""VIRTUAL-HEIGHT""" "KW_NORMAL" "14" "3804"
"TEXTC ""BORDER-TOP-CHARS""" "KW_NORMAL" "12" "3806"
"TEXTC ""BORDER-TOP""" "KW_NORMAL" "8" "3806"
"TEXTC ""BORDER-BOTTOM""" "KW_NORMAL" "8" "3807"
"TEXTC ""BORDER-BOTTOM-CHARS""" "KW_NORMAL" "15" "3807"
"TEXTC ""BORDER-LEFT-CHARS""" "KW_NORMAL" "13" "3808"
"TEXTC ""BORDER-LEFT""" "KW_NORMAL" "8" "3808"
"TEXTC ""BORDER-RIGHT""" "KW_NORMAL" "8" "3809"
"TEXTC ""BORDER-RIGHT-CHARS""" "KW_NORMAL" "14" "3809"
"TEXTC ""EDGE""" "KW_NORMAL" "4" "3810"
"TEXTC ""EDGE-CHARS""" "KW_NORMAL" "6" "3810"
"TEXTC ""GET-TEXT-WIDTH""" "KW_NORMAL" "14" "3823"
"TEXTC ""GET-TEXT-WIDTH-CHARS""" "KW_NORMAL" "16" "3823"
"TEXTC ""GET-TEXT-HEIGHT-CHARS""" "KW_NORMAL" "17" "3825"
"TEXTC ""GET-TEXT-HEIGHT""" "KW_NORMAL" "15" "3825"
"TEXTC ""NUM-SELECTED-WIDGETS""" "KW_NORMAL" "20" "3832"
"TEXTC ""NUM-SELECTED""" "KW_NORMAL" "12" "3832"
"TEXTC ""MARGIN-WIDTH""" "KW_NORMAL" "12" "3834"
"TEXTC ""MARGIN-WIDTH-CHARS""" "KW_NORMAL" "14" "3834"
"TEXTC ""COL-OF""" "KW_NORMAL" "6" "3842"
"TEXTC ""COLUMN-OF""" "KW_NORMAL" "9" "3842"
"TEXTC ""MARGIN-HEIGHT-CHARS""" "KW_NORMAL" "15" "3848"
"TEXTC ""MARGIN-HEIGHT""" "KW_NORMAL" "13" "3848"
"TEXTC ""CHARSET""" "KW_NORMAL" "7" "3889"
"TEXTC ""CPINTERNAL""" "KW_NORMAL" "5" "3889"
"TEXTC ""COMPONENT-HANDLE""" "KW_NORMAL" "16" "4063"
"TEXTC ""COM-HANDLE""" "KW_NORMAL" "10" "4063"
"TEXTC ""ROW-HEIGHT""" "KW_NORMAL" "10" "5041"
"TEXTC ""ROW-HEIGHT-CHARS""" "KW_NORMAL" "12" "5041"
"TEXTC ""MIN-ROW-HEIGHT-CHARS""" "KW_NORMAL" "16" "5053"
"TEXTC ""MIN-ROW-HEIGHT""" "KW_NORMAL" "14" "5053"
"TEXTC ""MIN-ROW-HEIGHT-PIXELS""" "KW_NORMAL" "16" "5054"
"TEXTC ""MANDATORY""" "KW_NORMAL" "9" "5054"
"TEXTC ""PRINTER""" "KW_NORMAL" "7" "5998"
"TEXTC ""LONG""" "KW_NORMAL" "4" "5998"
"TEXTC ""LONG""" "KW_NORMAL" "4" "5998"
"TEXTC ""MEMPTR""" "KW_NORMAL" "6" "5998"
"TEXTC ""UNSIGNED-SHORT""" "KW_NORMAL" "14" "5998"
"TEXTC ""LONG""" "KW_NORMAL" "4" "5998"
"TEXTC ""SHORT""" "KW_NORMAL" "5" "5998"
"TEXTC ""LONG""" "KW_NORMAL" "4" "5998"
"TEXTC ""PROMPT-FOR""" "KW_NORMAL" "8" "6022"
"TEXTC ""PROMPT""" "KW_NORMAL" "6" "6022"
"TEXTC ""DISP""" "KW_NORMAL" "4" "6023"
"TEXTC ""DISPLAY""" "KW_NORMAL" "4" "6023"
"TEXTC ""DEF""" "KW_NORMAL" "3" "6069"
"TEXTC ""DEFINE""" "KW_NORMAL" "4" "6069"
"TEXTC ""FORM""" "KW_NORMAL" "4" "6075"
"TEXTC ""FORMAT""" "KW_NORMAL" "5" "6075"
"TEXTC ""USER""" "KW_NORMAL" "4" "6093"
"TEXTC ""USERID""" "KW_NORMAL" "6" "6093"
"TEXTC ""NO-ATTR""" "KW_NORMAL" "7" "6121"
"TEXTC ""NO-ATTR-SPACE""" "KW_NORMAL" "9" "6121"
"TEXTC ""TERM""" "KW_NORMAL" "4" "6194"
"TEXTC ""TERMINAL""" "KW_NORMAL" "8" "6194"
"TEXTC ""LAST-KEY""" "KW_NORMAL" "8" "6197"
"TEXTC ""LASTKEY""" "KW_NORMAL" "7" "6197"
"TEXTC ""EXCLUSIVE-LOCK""" "KW_NORMAL" "11" "6207"
"TEXTC ""EXCLUSIVE""" "KW_NORMAL" "9" "6207"
"TEXTC ""COM-SELF""" "KW_NORMAL" "8" "6231"
"TEXTC ""COMPONENT-SELF""" "KW_NORMAL" "14" "6231"
"TEXTC ""COL""" "KW_NORMAL" "3" "6293"
"TEXTC ""COLUMN""" "KW_NORMAL" "6" "6293"
"TEXTC ""COLUMNS""" "KW_NORMAL" "7" "6293"
"TEXTC ""COL""" "KW_NORMAL" "3" "6293"
"TEXTC ""GROUP""" "KW_NORMAL" "5" "6297"
"TEXTC ""BREAK""" "KW_NORMAL" "5" "6297"
"TEXTC ""KEYCODE""" "KW_NORMAL" "7" "6302"
"TEXTC ""KEY-CODE""" "KW_NORMAL" "8" "6302"
"TEXTC ""KEY-FUNCTION""" "KW_NORMAL" "8" "6303"
"TEXTC ""KEYFUNCTION""" "KW_NORMAL" "7" "6303"
"TEXTC ""KEY-LABEL""" "KW_NORMAL" "9" "6304"
"TEXTC ""KEYLABEL""" "KW_NORMAL" "8" "6304"
"TEXTC ""ANY""" "KW_NORMAL" "3" "6372"
"TEXTC ""SOME""" "KW_NORMAL" "4" "6372"
"TEXTC ""CPSTREAM""" "KW_NORMAL" "8" "6395"
"TEXTC ""STREAM""" "KW_NORMAL" "6" "6395"
"TEXTC ""DATASERVERS""" "KW_NORMAL" "11" "6397"
"TEXTC ""GATEWAYS""" "KW_NORMAL" "7" "6397"
"TEXTC ""DEFAULT-NOXLATE""" "KW_NORMAL" "12" "6424"
"TEXTC ""CURRENT""" "KW_NORMAL" "7" "6424"
"TEXTC ""GET-BYTE""" "KW_NORMAL" "8" "6440"
"TEXTC ""GETBYTE""" "KW_NORMAL" "7" "6440"
"TEXTC ""PUTBYTE""" "KW_NORMAL" "7" "6441"
"TEXTC ""PUT-BYTE""" "KW_NORMAL" "8" "6441"
"TEXTC ""BTOS""" "KW_NORMAL" "4" "6525"
"TEXTC ""CTOS""" "KW_NORMAL" "4" "6525"
"TEXTC ""WORK-TABLE""" "KW_NORMAL" "8" "6703"
"TEXTC ""WORKFILE""" "KW_NORMAL" "8" "6703"
"TEXTC ""FIELDS""" "KW_NORMAL" "6" "6704"
"TEXTC ""FIELD""" "KW_NORMAL" "5" "6704"
"TEXTC ""TRANSACTION""" "KW_NORMAL" "8" "6790"
"TEXTC ""TRANS""" "KW_NORMAL" "5" "6790"
"TEXTC ""CURRENT_DATE""" "KW_NORMAL" "12" "6817"
"TEXTC ""TODAY""" "KW_NORMAL" "5" "6817"
"TEXTC ""TRUE""" "KW_NORMAL" "4" "981"
"TEXTC ""YES""" "KW_NORMAL" "3" "981"
"TEXTC ""NO""" "KW_NORMAL" "2" "982"
"TEXTC ""FALSE""" "KW_NORMAL" "5" "982"

 

[KnutHandsome]

Some of them are obviously wrong, eg.

TEXTC ""MIN-ROW-HEIGHT-PIXELS""" "KW_NORMAL" "16" "5054"
"TEXTC ""MANDATORY""" "KW_NORMAL" "9" "5054"


but I've got to get some work done.

Laters.

 

[bulklodd]

TEXTC ""MIN-ROW-HEIGHT-PIXELS""" "KW_NORMAL" "16" "5054"
"TEXTC ""MANDATORY""" "KW_NORMAL" "9" "5054"

They aren't synonyms because they have difference in the next to last item.

 

[KnutHandsome]

They aren't synonyms because they have difference in the next to last item.

So are lots of others in second post (where I ignored that item), eg:

"TEXTC ""UPPER""" "KW_NORMAL" "5" "1106"
"TEXTC ""CAPS""" "KW_NORMAL" "4" "1106"

 

[bulklodd]

So are lots of others in second post (where I ignored that item), eg:

"TEXTC ""UPPER""" "KW_NORMAL" "5" "1106"
"TEXTC ""CAPS""" "KW_NORMAL" "4" "1106"

I think it means something I mean the difference in the item. I have no idea now but i'll try to find out.

 

[KnutHandsome]

I think it means something I mean the difference in the item. I have no idea now but i'll try to find out.

After thinking about it for a while, I wondered if it had to do with position in syntax tree or something.

However, it is something else...

I'll let you work it out.

 

[bulklodd]

TEXTC ""MIN-ROW-HEIGHT-PIXELS""" "KW_NORMAL" "16" "5054"
"TEXTC ""MANDATORY""" "KW_NORMAL" "9" "5054"

I think it's just a bug!

 

[bulklodd]

After thinking about it for a while, I wondered if it had to do with position in syntax tree or something.

However, it is something else...

I'll let you work it out.

We had brainstorm on RPUG forum http://forum.infobit.ru/viewtopic.php?t=931 and came to conclusion the next to last item means the length of keyword abbreviation whereas the last item is a pure id, which you can see sometimes

DISPLAY 
  EXCLUSIVE  6207 SKIP 
  EXCLUSIVE-LOCK 6207 SKIP 
  NO-LOCK  6209 SKIP 
  SHARE-LOCK  6208.

As for MIN-ROW-HEIGHT-PIXELS & MANDATORY probably it's just a bug as i've already told.

 

[KnutHandsome]

We had brainstorm on RPUG forum http://forum.infobit.ru/viewtopic.php?t=931 and came to conclusion the next to last item means the length of keyword abbreviation

Yes, that is what I figured out too. It amused me, so I thought you particularly (editor guru) would smile when you realised it.

 

[bulklodd]

Yes, that is what I figured out too. It amused me, so I thought you particularly (editor guru) would smile when you realised it.

Yes, I smiled