+MACRO FORM
FORM ^TEXT01                                                                   1
                                                                               1
END FORM                                                                       2
+MACEND
+MACRO SS-DETS
  SCREENSET DETAILS                                                            1
      FIRST ^PANNAM                                                            2
      SCREENSET ^TEXT01                                                        3
      SEARCH ^TEXT02                                                           3
      KEYTRANS ^TEXT03                                                         3
      COLORIZE ^TEXT04                                                         3
          SYS-^INTN01 BACKGROUND ^COLOR1 FOREGROUND ^COLOR2 ^INTENS ^BLINKS    A
      END COLORIZE                                                             4
  END DETAILS                                                                  4
                                                                               4
+MACEND
+MACRO FORM-DATA
  FORM DATA                                                                    1
        ^FLDNAM CHARACTER(^INTN01) ^TEXT02                                     A
        ^FLDNAM ALPHABETIC(^INTN01)                                            B
        ^FLDNAM INTEGER(^INTN01) ^TEXT01                                       C
        ^FLDNAM DECIMAL(^INTN01.^DECN01) ^TEXT01                               D
                                                                               2
      GROUP ^GRPNAM VERTICAL OCCURS ^INTN01                                    2
      END GROUP                                                                3
                                                                               3
  END DATA                                                                     9
                                                                               9
<!-- The following data item has been amended for year 2000 conformance        Z
+MACEND
+MACRO ERR-MSGS
  ERROR MESSAGES ^TEXT01                                                       1
      ^INTN01 "^TEXT01"                                                        2
  END MESSAGES                                                                 3
                                                                               3
+MACEND
+MACRO VALIDS
  DATA VALIDATION ^FLDNAM                                                      1
      RANGE-TABLE ^TEXT01 ^TEXT02 ^INTN01                                      2
          "^TEXT01" ^TEXT02 ^TEXT03^TEXT04^TEXT05                              A
          ^TEXT01 ^TEXT02 ^TEXT04                                              B
      END RANGE-TABLE                                                          3
      CHECKDIGIT ^TEXT01 ^TEXT02 ^INTN01                                       4
          DIVISOR ^INTN02                                                      4
          WEIGHT (^INTN01.^DECN01)                                             C
      END CHECKDIGIT                                                           5
      DATE ^TEXT01 ^TEXT02 ^INTN01                                             6
      NULL ^TEXT01 ^TEXT02 ^INTN01                                             7
  END VALIDATION                                                               8
                                                                               8
<!-- This validation item has been amended for year 2000 conformance           Z
+MACEND
+MACRO DIALOG
  GLOBAL DIALOG                                                                1
  PANEL DIALOG                                                                 2
      CASE-SENSITIVITY ^TEXT01                                                 3
        ^KEYVAL                                                                A
        ^KEYVAL [^FTNVAL ^TEXT01 ^TEXT02 ^TEXT03]                              B
        ^KEYVAL [^FTNVAL "^TEXT01" ^TEXT02 ^TEXT03]                            C
        ^KEYVAL [^FTNVAL ^TEXT01 "^TEXT02" ^TEXT03]                            D
        ^KEYVAL [^FTNVAL "^TEXT01" "^TEXT02" ^TEXT03]                          E
  END DIALOG                                                                   4
                                                                               4
+MACEND
+MACRO PANEL-TEXT
  PANEL ^PANNAM                                                                1
                                                                               1
      ANCHOR ^ANCHOR                                                           2
                                                                               2
      SIZE  LINE ^LINE01 END-LINE ^LINE02 COLUMN ^COLN01 END-COLUMN ^COLN02    2
                                                                               2
      BACKGROUND ^COLOR1 FOREGROUND ^COLOR2 ^INTENS ^BLINKS                    3
      BORDER ^INTN01                                                           4
                                                                               4
      ATTRIBUTE PALETTE                                                        5
          ^TEXT01 BACKGROUND ^COLOR1 FOREGROUND ^COLOR2 ^INTENS ^BLINKS        A
          INP-ATTR ^TEXT01                                                     6
      END PALETTE                                                              6
                                                                               6
      LITERAL TEXT                                                             F
          LINE ^LINE01 COLUMN ^COLN01                                          F
          VALUE "^TEXT01"                                                      F
      LITERAL TEXT                                                             P
           LINE ^LINE01 COLUMN ^COLN01                                         P
             VALUE "^TEXT01"                                                   P
      LITERAL RECTANGLE                                                        H
          LINE ^LINE01 COLUMN ^COLN01 LINE ^LINE02 COLUMN ^COLN02              H
"                                                                              X
      END LITERAL                                                              G
                                                                               G
  END PANEL                                                                    L
                                                                               L
+MACEND
+MACRO PANEL-DATA
      PANEL PROTECT                                                            L
          ^FLDNAM ^TEXT01                                                      M
      END PROTECT                                                              N
                                                                               N
          PANEL FIELD ^FLDNAM                                                  1
              LINE ^LINE01 COLUMN ^COLN01 LENGTH ^INTN01 ORDER ^INTN02         1
              USAGE ^TEXT01                                                    A
              PROPERTIES ^TEXT01 ^TEXT02 ^TEXT03 ^TEXT04 ^TEXT05               B
              FORMAT ^TEXT01                                                   2
              DELIMITER "^TEXT02"                                              3
              USERFMT ^TEXT03                                                  4
          END FIELD                                                            2
      PANEL GROUP ^GRPNAM VERTICAL                                             5
          LINE ^LINE01 COLUMN ^COLN01 HEIGHT ^INTN01 WIDTH ^INTN02             5
          TYPE ^TEXT01                                                         C
          TYPE ^TEXT01 ACC-EXIT ^TEXT02                                        D
          SELECT BAR                                                           F
              LENGTH ^INTN01                                                   G
              BACKGROUND ^COLOR1 FOREGROUND ^COLOR2 ^INTENS ^BLINKS            G
          END BAR                                                              H
          OCCURRENCE ^INTN01                                                   I
          VALUE "^TEXT01"                                                      J
          END OCCURRENCE                                                       K
      END GROUP                                                                6
                                                                               6
<!-- The following field item will no longer display as it is off the panel    X
<!-- The following field item will no longer display due to field overlap      Y
<!-- The following field item has been amended for year 2000 conformance       Z
+MACEND

+MACRO ACTION-BAR
<!-- ************************** -->                                            A
<!-- * High Level Definitions * -->                                            A
<!-- ************************** -->                                            A
<ab>                                                                           A
<!-- ^ABNAME -->                                                               B
<abc>^TEXT01^TEXT02^TEXT03                                                     C
<pdc>^TEXT01^TEXT02^TEXT03                                                     D
<action run=ACTION>                                                            E
<pdsep>                                                                        F
</abc>                                                                         G
</ab>                                                                          H
+MACEND
