Differences

This shows you the differences between two versions of the page.

--- what_return_field_from_group_.htm [2021/04/15 15:57] – external edit 127.0.0.1
+++ what_return_field_from_group_.htm [2021/07/27 03:38] – Format CODE carlbarnes
@@ Line 19: / Line 19: @@
 **Example:**
-**MyGroup  GROUP**
+<code>
+MyGroup  GROUP
-**F1        LONG(3)             !Field number 1**
+F1        LONG(3)             !Field number 1
+F2        SHORT               !Field number 2
-**F2        SHORT               !Field number 2**
+F3        STRING(30)          !Field number 3
+InGroup    GROUP              !Field number 4
-**F3        STRING(30)          !Field number 3**
+F1          LONG              !Field number 5
+F2          SHORT(2)          !Field number 6
-**InGroup    GROUP              !Field number 4**
+F3          STRING(30),DIM(2) !Field number 7
+F4          LONG,DIM(3,3)     !Field number 8
-**F1          LONG              !Field number 5**
+F5          ANY
+          END
-**F2          SHORT(2)          !Field number 6**
+         END
-**F3          STRING(30),DIM(2) !Field number 7**
+CurrentField ANY
-**F4          LONG,DIM(3,3)     !Field number 8**
+CODE
+CurrentField &= WHAT(MyGroup,1)   !Returns contents of MyGroup.F1 (3)
-**F5          ANY**
+CurrentField &= WHAT(MyGroup,6)   !Returns contents of MyGroup.Ingroup.F2 (2)
+CurrentField &= WHAT(MyGroup,7)   !Returns contents of MyGroup.Ingroup.F3[1]
-**           END**
+ IF CurrentField &= RefVar        !LEGAL
+  CurrentField = 2                !INVALID – posts a runtime error
-**          END**
+ END
+CurrentField &= WHAT(MyGroup,8,3) !Returns contents of MyGroup.Ingroup.F4[1,3]
-**CurrentField ANY**
+CurrentField &= WHAT(MyGroup,8,5) !Returns contents of MyGroup.Ingroup.F4[2,2]
-** CODE**
+!For String Comparison, the returned field must be moved into a work field:
+CurrentField &= WHAT(MyGroup,8,7) !Returns contents of MyGroup.Ingroup.F4[3,1]
-** CurrentField &amp;= ****WHAT****(MyGroup,1)   !Returns contents of MyGroup.F1 (3)**
+IF CurrentField = 'xyz'
+ !do something
-** CurrentField &amp;= ****WHAT****(MyGroup,6)   !Returns contents of MyGroup.Ingroup.F2 (2)**
+END
+</code>
-** CurrentField &amp;= ****WHAT****(MyGroup,7)   !Returns contents of MyGroup.Ingroup.F3[1]**
-**  IF CurrentField &amp;= RefVar        !LEGAL**
-**   CurrentField = 2                !INVALID ' posts a runtime error**
-**  END**
-** CurrentField &amp;= ****WHAT****(MyGroup,8,3) !Returns contents of MyGroup.Ingroup.F4[1,3]**
-** CurrentField &amp;= ****WHAT****(MyGroup,8,5) !Returns contents of MyGroup.Ingroup.F4[2,2]**
-**!For String Comparison, the returned field must be moved into a work field: **
-** CurrentField &amp;= ****WHAT****(MyGroup,8,7) !Returns contents of MyGroup.Ingroup.F4[3,1]**
-** IF CurrentField = 'xyz'**
-**  !do something**
-** END**
 **See Also:**