on [KW_ON] (22 in 7 files)

Filename Line # Column # Match Text
./abl/checkout.p 00250 00010
on [KW_ON] @250:10
    [EVENT_LIST] @0:0
      choose [EVENT] @250:13
   of [KW_OF] @250:22
    [WIDGET_LIST] @0:0
      btn-cancel [WID_BUTTON] @250:25
         in [KW_IN] @250:36
            frame [KW_FRAME] @250:39
               f-checkout-search [WID_FRAME] @250:45
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @250:63
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @251:13
               expression [EXPRESSION] @0:0
                  "f4" [STRING] @251:19
               to [KW_TO] @251:24
                  frame [KW_FRAME] @251:27
                     f-checkout-search [WID_FRAME] @251:33
./abl/checkout.p 00253 00010
on [KW_ON] @253:10
    [EVENT_LIST] @0:0
      choose [EVENT] @253:13
   of [KW_OF] @253:22
    [WIDGET_LIST] @0:0
      btn-ok [WID_BUTTON] @253:25
         in [KW_IN] @253:32
            frame [KW_FRAME] @253:35
               f-checkout-search [WID_FRAME] @253:41
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @253:59
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @254:13
               expression [EXPRESSION] @0:0
                  "go" [STRING] @254:19
               to [KW_TO] @254:24
                  frame [KW_FRAME] @254:27
                     f-checkout-search [WID_FRAME] @254:33
./abl/guests.p 00150 00010
on [KW_ON] @150:10
    [EVENT_LIST] @0:0
      choose [EVENT] @150:13
   of [KW_OF] @150:22
    [WIDGET_LIST] @0:0
      btn-cancel [WID_BUTTON] @150:25
         in [KW_IN] @150:36
            frame [KW_FRAME] @150:39
               f-guest-search [WID_FRAME] @150:45
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @150:60
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @151:13
               expression [EXPRESSION] @0:0
                  "f4" [STRING] @151:19
               to [KW_TO] @151:24
                  frame [KW_FRAME] @151:27
                     f-guest-search [WID_FRAME] @151:33
./abl/guests.p 00153 00010
on [KW_ON] @153:10
    [EVENT_LIST] @0:0
      choose [EVENT] @153:13
   of [KW_OF] @153:22
    [WIDGET_LIST] @0:0
      btn-ok [WID_BUTTON] @153:25
         in [KW_IN] @153:32
            frame [KW_FRAME] @153:35
               f-guest-search [WID_FRAME] @153:41
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @153:56
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @154:13
               expression [EXPRESSION] @0:0
                  "go" [STRING] @154:19
               to [KW_TO] @154:24
                  frame [KW_FRAME] @154:27
                     f-guest-search [WID_FRAME] @154:33
./abl/menu.p 00071 00001
on [KW_ON] @71:1
    [EVENT_LIST] @0:0
      R [EVENT] @71:4
      r [EVENT] @71:9
   anywhere [KW_ANYWHERE] @71:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @71:22
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @72:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @72:12
               ( [LPARENS] @72:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "rooms.p" [STRING] @72:28
         statement [STATEMENT] @0:0
            stop [KW_STOP] @73:4
./abl/menu.p 00076 00001
on [KW_ON] @76:1
    [EVENT_LIST] @0:0
      T [EVENT] @76:4
      t [EVENT] @76:9
   of [KW_OF] @76:13
    [WIDGET_LIST] @0:0
      frame [KW_FRAME] @76:16
         f-menu [WID_FRAME] @76:22
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @76:29
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @77:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @77:12
               ( [LPARENS] @77:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "rates.p" [STRING] @77:28
         statement [STATEMENT] @0:0
            stop [KW_STOP] @78:4
./abl/menu.p 00081 00001
on [KW_ON] @81:1
    [EVENT_LIST] @0:0
      G [EVENT] @81:4
      g [EVENT] @81:9
   of [KW_OF] @81:13
    [WIDGET_LIST] @0:0
      frame [KW_FRAME] @81:16
         f-menu [WID_FRAME] @81:22
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @81:29
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @82:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @82:12
               ( [LPARENS] @82:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "guests.p" [STRING] @82:28
         statement [STATEMENT] @0:0
            stop [KW_STOP] @83:4
./abl/menu.p 00086 00001
on [KW_ON] @86:1
    [EVENT_LIST] @0:0
      S [EVENT] @86:4
      s [EVENT] @86:9
   of [KW_OF] @86:13
    [WIDGET_LIST] @0:0
      frame [KW_FRAME] @86:16
         f-menu [WID_FRAME] @86:22
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @86:29
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @87:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @87:12
               ( [LPARENS] @87:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "reservations.p" [STRING] @87:28
         statement [STATEMENT] @0:0
            stop [KW_STOP] @88:4
./abl/menu.p 00091 00001
on [KW_ON] @91:1
    [EVENT_LIST] @0:0
      K [EVENT] @91:4
      k [EVENT] @91:9
   of [KW_OF] @91:13
    [WIDGET_LIST] @0:0
      frame [KW_FRAME] @91:16
         f-menu [WID_FRAME] @91:22
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @91:29
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @92:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @92:12
               ( [LPARENS] @92:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "checkout.p" [STRING] @92:28
         statement [STATEMENT] @0:0
            stop [KW_STOP] @93:4
./abl/menu.p 00096 00001
on [KW_ON] @96:1
    [EVENT_LIST] @0:0
      X [EVENT] @96:4
      x [EVENT] @96:9
   anywhere [KW_ANYWHERE] @96:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @96:22
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @97:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @97:12
               ( [LPARENS] @97:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "exit.p" [STRING] @97:28
         statement [STATEMENT] @0:0
            stop [KW_STOP] @98:4
./abl/rates-report.p 00079 00004
on [KW_ON] @79:4
    [EVENT_LIST] @0:0
      value-changed [EVENT] @79:7
   of [KW_OF] @79:23
    [WIDGET_LIST] @0:0
      by-room [WID_FILL_IN] @79:26
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @79:34
      block [BLOCK] @0:0
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @80:39
               : [COLON] @80:16
                  room-type [WID_FILL_IN] @80:7
                  sensitive [ATTR_LOGICAL] @80:17
                  in [KW_IN] @80:27
                     frame [KW_FRAME] @80:30
                        f1 [WID_FRAME] @80:36
               expression [EXPRESSION] @0:0
                  : [COLON] @80:48
                     by-room [WID_FILL_IN] @80:41
                     input-value [ATTR_POLY] @80:49
./abl/rates.p 00121 00001
on [KW_ON] @121:1
    [EVENT_LIST] @0:0
      y [EVENT] @121:4
      Y [EVENT] @121:9
   anywhere [KW_ANYWHERE] @121:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @121:22
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @122:4
               f-from [SYMBOL] @122:12
               as [KW_AS] @122:19
                  int [KW_INT] @122:22
               label [KW_LABEL] @122:26
                  "From Floor" [STRING] @122:32
               format [KW_FORMAT] @122:45
                  expression [EXPRESSION] @0:0
                     "9" [STRING] @122:52
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @123:4
               f-to [SYMBOL] @123:12
               as [KW_AS] @123:17
                  int [KW_INT] @123:20
               label [KW_LABEL] @123:24
                  "To Floor" [STRING] @123:30
               format [KW_FORMAT] @123:41
                  expression [EXPRESSION] @0:0
                     "9" [STRING] @123:48
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @125:11
               f-from [VAR_INT] @125:4
               expression [EXPRESSION] @0:0
                  current-floor-no [VAR_INT] @125:13
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @126:9
               f-to [VAR_INT] @126:4
               expression [EXPRESSION] @0:0
                  1 [NUM_LITERAL] @126:11
         statement [STATEMENT] @0:0
            form [KW_FORM] @128:4
               form item [FORM_ITEM] @0:0
                  expression [EXPRESSION] @0:0
                     f-from [VAR_INT] @128:9
               form item [FORM_ITEM] @0:0
                  skip [KW_SKIP] @128:16
               form item [FORM_ITEM] @0:0
                  expression [EXPRESSION] @0:0
                     f-to [VAR_INT] @129:9
               with [FRAME_PHRASE] @130:9
                  frame [KW_FRAME] @130:14
                     f-copy [WID_FRAME] @130:20
                  side-labels [KW_SIDE_L] @130:27
                  title [KW_TITLE] @130:39
                     expression [EXPRESSION] @0:0
                        "Copy Rates" [STRING] @130:45
                  centered [KW_CENTER] @130:58
                  overlay [KW_OVERLAY] @130:67
                  row [KW_ROW] @130:75
                     expression [EXPRESSION] @0:0
                        5 [NUM_LITERAL] @130:79
         inner block [INNER_BLOCK] @0:0
            repeat [KW_REPEAT] @132:4
               on [KW_ON] @132:11
                  endkey [KW_ENDKEY] @132:14
                  undo [KW_UNDO] @132:21
                  leave [KW_LEAVE] @132:27
               on [KW_ON] @132:33
                  error [KW_ERROR] @132:36
                  undo [KW_UNDO] @132:42
                  leave [KW_LEAVE] @132:48
               transaction [KW_TRANS] @132:54
            block [BLOCK] @0:0
               statement [STATEMENT] @0:0
                  update [KW_UPDATE] @133:7
                     f-from [VAR_INT] @133:14
                     f-to [VAR_INT] @133:21
                     format phrase [FORMAT_PHRASE] @0:0
                        validate [KW_VALIDATE] @133:26
                           expression [EXPRESSION] @0:0
                              <> [NOT_EQ] @133:40
                                 f-to [VAR_INT] @133:35
                                 f-from [VAR_INT] @133:43
                           expression [EXPRESSION] @0:0
                              "Floors must be different!" [STRING] @133:51
                     with [FRAME_PHRASE] @133:80
                        frame [KW_FRAME] @133:85
                           f-copy [WID_FRAME] @133:91
               statement [STATEMENT] @0:0
                  if [KW_IF] @135:7
                     expression [EXPRESSION] @0:0
                        or [KW_OR] @137:56
                           or [KW_OR] @136:19
                              or [KW_OR] @135:21
                                 = [EQUALS] @135:17
                                    f-from [VAR_INT] @135:10
                                    ? [UNKNOWN_VAL] @135:19
                                 = [EQUALS] @136:15
                                    f-to [VAR_INT] @136:10
                                    ? [UNKNOWN_VAL] @136:17
                              not [KW_NOT] @137:10
                                 ( [LPARENS] @137:13
                                    and [KW_AND] @137:26
                                       >= [GTE] @137:21
                                          f-from [VAR_INT] @137:14
                                          1 [NUM_LITERAL] @137:24
                                       <= [LTE] @137:37
                                          f-from [VAR_INT] @137:30
                                          total-floor-no [VAR_INT] @137:40
                           not [KW_NOT] @138:10
                              ( [LPARENS] @138:13
                                 and [KW_AND] @138:24
                                    >= [GTE] @138:19
                                       f-to [VAR_INT] @138:14
                                       1 [NUM_LITERAL] @138:22
                                    <= [LTE] @138:33
                                       f-to [VAR_INT] @138:28
                                       total-floor-no [VAR_INT] @138:36
                     then [KW_THEN] @139:10
                        block [BLOCK] @0:0
                           statement [STATEMENT] @0:0
                              undo [KW_UNDO] @139:15
                                 next [KW_NEXT] @139:21
               inner block [INNER_BLOCK] @0:0
                  for [KW_FOR] @141:7
                     each [KW_EACH] @141:11
                     record phrase [RECORD_PHRASE] @0:0
                        b-rate [BUFFER] @141:16
                        where [KW_WHERE] @141:23
                           expression [EXPRESSION] @0:0
                              = [EQUALS] @141:42
                                 b-rate.floor [FIELD_INT] @141:29
                                 f-to [VAR_INT] @141:44
                  block [BLOCK] @0:0
                     statement [STATEMENT] @0:0
                        delete [KW_DELETE] @142:10
                           b-rate [BUFFER] @142:17
               inner block [INNER_BLOCK] @0:0
                  for [KW_FOR] @145:7
                     each [KW_EACH] @145:11
                     record phrase [RECORD_PHRASE] @0:0
                        b-rate [BUFFER] @145:16
                        where [KW_WHERE] @145:23
                           expression [EXPRESSION] @0:0
                              = [EQUALS] @145:42
                                 b-rate.floor [FIELD_INT] @145:29
                                 f-from [VAR_INT] @145:44
                  block [BLOCK] @0:0
                     statement [STATEMENT] @0:0
                        create [KW_CREATE] @146:10
                           b-rate2 [BUFFER] @146:17
                     statement [STATEMENT] @0:0
                        buffer-copy [KW_BUF_COPY] @147:10
                           b-rate [BUFFER] @147:22
                           to [KW_TO] @147:29
                              b-rate2 [BUFFER] @147:32
                     assignment [ASSIGNMENT] @0:0
                        = [ASSIGN] @148:24
                           b-rate2.floor [FIELD_INT] @148:10
                           expression [EXPRESSION] @0:0
                              f-to [VAR_INT] @148:26
               statement [STATEMENT] @0:0
                  message [KW_MSG] @151:7
                      [CONTENT_ARRAY] @0:0
                        expression [EXPRESSION] @0:0
                           "Copied all rates from floor" [STRING] @151:15
                        expression [EXPRESSION] @0:0
                           f-from [VAR_INT] @151:45
                        expression [EXPRESSION] @0:0
                           "to floor" [STRING] @151:52
                        expression [EXPRESSION] @0:0
                           f-to [VAR_INT] @151:63
                     view-as [KW_VIEW_AS] @151:68
                        alert-box [KW_ALERT_BX] @151:76
               statement [STATEMENT] @0:0
                  leave [KW_LEAVE] @153:7
         statement [STATEMENT] @0:0
            hide [KW_HIDE] @156:4
               frame [KW_FRAME] @156:9
                  f-copy [WID_FRAME] @156:15
               no-pause [KW_NO_PAUSE] @156:22
         statement [STATEMENT] @0:0
            run [KW_RUN] @158:4
               refresh [INT_PROC] @158:8
./abl/rates.p 00161 00001
on [KW_ON] @161:1
    [EVENT_LIST] @0:0
      a [EVENT] @161:4
      A [EVENT] @161:9
   anywhere [KW_ANYWHERE] @161:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @161:22
      block [BLOCK] @0:0
         inner block [INNER_BLOCK] @0:0
            do [KW_DO] @162:4
               transaction [KW_TRANS] @162:7
               on [KW_ON] @162:19
                  endkey [KW_ENDKEY] @162:22
                  undo [KW_UNDO] @162:29
                  leave [KW_LEAVE] @162:35
            block [BLOCK] @0:0
               statement [STATEMENT] @0:0
                  find [KW_FIND] @164:7
                     last [KW_LAST] @164:12
                     record phrase [RECORD_PHRASE] @0:0
                        b-rate [BUFFER] @164:17
                        where [KW_WHERE] @165:10
                           expression [EXPRESSION] @0:0
                              and [KW_AND] @165:42
                                 = [EQUALS] @165:29
                                    b-rate.floor [FIELD_INT] @165:16
                                    rate.floor [FIELD_INT] @165:31
                                 = [EQUALS] @166:36
                                    b-rate.type-of-room [FIELD_INT] @166:16
                                    rate.type-of-room [FIELD_INT] @166:38
                        use-index [KW_USE_IDX] @167:10
                           idx-rate-s-date [INDEX] @167:20
                        no-lock [KW_NO_LOCK] @167:36
                        no-error [KW_NO_ERROR] @167:44
               statement [STATEMENT] @0:0
                  if [KW_IF] @169:7
                     expression [EXPRESSION] @0:0
                        avail [FUNC_LOGICAL] @169:10
                           b-rate [BUFFER] @169:16
                     then [KW_THEN] @169:23
                        inner block [INNER_BLOCK] @0:0
                           do [KW_DO] @169:28
                           block [BLOCK] @0:0
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @170:17
                                    r-rate [VAR_DEC] @170:10
                                    expression [EXPRESSION] @0:0
                                       b-rate.rate [FIELD_DEC] @170:19
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @171:19
                                    r-s-date [VAR_DATE] @171:10
                                    expression [EXPRESSION] @0:0
                                       + [PLUS] @171:37
                                          b-rate.end-date [FIELD_DATE] @171:21
                                          1 [NUM_LITERAL] @171:39
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @172:19
                                    r-e-date [VAR_DATE] @172:10
                                    expression [EXPRESSION] @0:0
                                       ? [UNKNOWN_VAL] @172:21
                              statement [STATEMENT] @0:0
                                 display [KW_DISP] @174:10
                                    expression [EXPRESSION] @0:0
                                       t-floor.floor [FIELD_INT] @174:18
                                    expression [EXPRESSION] @0:0
                                       t-room-type.name [FIELD_CHAR] @174:32
                                    expression [EXPRESSION] @0:0
                                       r-s-date [VAR_DATE] @174:49
                                    expression [EXPRESSION] @0:0
                                       r-e-date [VAR_DATE] @174:58
                                    expression [EXPRESSION] @0:0
                                       r-rate [VAR_DEC] @174:67
                                    with [FRAME_PHRASE] @174:74
                                       frame [KW_FRAME] @174:79
                                          f-u-rate [WID_FRAME] @174:85
                              statement [STATEMENT] @0:0
                                 update [KW_UPDATE] @176:10
                                    r-e-date [VAR_DATE] @176:17
                                    r-rate [VAR_DEC] @176:26
                                    with [FRAME_PHRASE] @176:33
                                       frame [KW_FRAME] @176:38
                                          f-u-rate [WID_FRAME] @176:44
                     else [KW_ELSE] @178:7
                        inner block [INNER_BLOCK] @0:0
                           do [KW_DO] @178:12
                           block [BLOCK] @0:0
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @179:19
                                    r-s-date [VAR_DATE] @179:10
                                    expression [EXPRESSION] @0:0
                                       today [FUNC_DATE] @179:21
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @180:17
                                    r-rate [VAR_DEC] @180:10
                                    expression [EXPRESSION] @0:0
                                       0 [NUM_LITERAL] @180:19
                              statement [STATEMENT] @0:0
                                 display [KW_DISP] @182:10
                                    expression [EXPRESSION] @0:0
                                       t-floor.floor [FIELD_INT] @182:18
                                    expression [EXPRESSION] @0:0
                                       t-room-type.name [FIELD_CHAR] @182:32
                                    expression [EXPRESSION] @0:0
                                       r-s-date [VAR_DATE] @182:49
                                    expression [EXPRESSION] @0:0
                                       r-e-date [VAR_DATE] @182:58
                                    expression [EXPRESSION] @0:0
                                       r-rate [VAR_DEC] @182:67
                                    with [FRAME_PHRASE] @182:74
                                       frame [KW_FRAME] @182:79
                                          f-u-rate [WID_FRAME] @182:85
                              statement [STATEMENT] @0:0
                                 update [KW_UPDATE] @184:10
                                    r-s-date [VAR_DATE] @184:17
                                    r-e-date [VAR_DATE] @184:26
                                    r-rate [VAR_DEC] @184:35
                                    with [FRAME_PHRASE] @184:42
                                       frame [KW_FRAME] @184:47
                                          f-u-rate [WID_FRAME] @184:53
               statement [STATEMENT] @0:0
                  create [KW_CREATE] @187:7
                     b-rate [BUFFER] @187:14
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @188:20
                     b-rate.floor [FIELD_INT] @188:7
                     expression [EXPRESSION] @0:0
                        t-floor.floor [FIELD_INT] @188:22
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @189:27
                     b-rate.type-of-room [FIELD_INT] @189:7
                     expression [EXPRESSION] @0:0
                        t-room-type.type [FIELD_INT] @189:29
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @190:19
                     b-rate.rate [FIELD_DEC] @190:7
                     expression [EXPRESSION] @0:0
                        r-rate [VAR_DEC] @190:21
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @191:25
                     b-rate.start-date [FIELD_DATE] @191:7
                     expression [EXPRESSION] @0:0
                        r-s-date [VAR_DATE] @191:27
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @192:23
                     b-rate.end-date [FIELD_DATE] @192:7
                     expression [EXPRESSION] @0:0
                        r-e-date [VAR_DATE] @192:25
               statement [STATEMENT] @0:0
                  release [KW_RELEASE] @193:7
                     b-rate [BUFFER] @193:15
         statement [STATEMENT] @0:0
            run [KW_RUN] @196:4
               refresh [INT_PROC] @196:8
./abl/rates.p 00199 00001
on [KW_ON] @199:1
    [EVENT_LIST] @0:0
      c [EVENT] @199:4
      C [EVENT] @199:9
   anywhere [KW_ANYWHERE] @199:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @199:22
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            if [KW_IF] @200:4
               expression [EXPRESSION] @0:0
                  not [KW_NOT] @200:7
                     avail [FUNC_LOGICAL] @200:11
                        rate [TABLE] @200:17
               then [KW_THEN] @200:23
                  inner block [INNER_BLOCK] @0:0
                     do [KW_DO] @200:28
                     block [BLOCK] @0:0
                        statement [STATEMENT] @0:0
                           message [KW_MSG] @201:7
                               [CONTENT_ARRAY] @0:0
                                 expression [EXPRESSION] @0:0
                                    "Add a rate for this floor and room-type before changing!" [STRING] @201:15
                              view-as [KW_VIEW_AS] @201:74
                                 alert-box [KW_ALERT_BX] @201:82
                        statement [STATEMENT] @0:0
                           run [KW_RUN] @202:7
                              refresh [INT_PROC] @202:11
                        statement [STATEMENT] @0:0
                           return [KW_RETURN] @203:7
         statement [STATEMENT] @0:0
            if [KW_IF] @206:4
               expression [EXPRESSION] @0:0
                  < [LT] @206:21
                     rate.end-date [FIELD_DATE] @206:7
                     today [FUNC_DATE] @206:23
               then [KW_THEN] @207:4
                  inner block [INNER_BLOCK] @0:0
                     do [KW_DO] @207:9
                     block [BLOCK] @0:0
                        statement [STATEMENT] @0:0
                           message [KW_MSG] @208:7
                               [CONTENT_ARRAY] @0:0
                                 expression [EXPRESSION] @0:0
                                    "Can not modify a rate in the past!" [STRING] @208:15
                        statement [STATEMENT] @0:0
                           run [KW_RUN] @209:7
                              refresh [INT_PROC] @209:11
                        statement [STATEMENT] @0:0
                           return [KW_RETURN] @210:7
         inner block [INNER_BLOCK] @0:0
            do [KW_DO] @213:4
               transaction [KW_TRANS] @213:7
               on [KW_ON] @213:19
                  endkey [KW_ENDKEY] @213:22
                  undo [KW_UNDO] @213:29
                  leave [KW_LEAVE] @213:35
            block [BLOCK] @0:0
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @214:16
                     r-s-date [VAR_DATE] @214:7
                     expression [EXPRESSION] @0:0
                        ( [LPARENS] @214:18
                           if [FUNC_POLY] @214:19
                              >= [GTE] @214:38
                                 rate.start-date [FIELD_DATE] @214:22
                                 today [FUNC_DATE] @214:41
                              rate.start-date [FIELD_DATE] @214:52
                              today [FUNC_DATE] @214:73
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @215:16
                     r-e-date [VAR_DATE] @215:7
                     expression [EXPRESSION] @0:0
                        rate.end-date [FIELD_DATE] @215:18
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @216:14
                     r-rate [VAR_DEC] @216:7
                     expression [EXPRESSION] @0:0
                        rate.rate [FIELD_DEC] @216:16
               statement [STATEMENT] @0:0
                  display [KW_DISP] @218:7
                     expression [EXPRESSION] @0:0
                        t-floor.floor [FIELD_INT] @218:15
                     expression [EXPRESSION] @0:0
                        t-room-type.name [FIELD_CHAR] @218:29
                     expression [EXPRESSION] @0:0
                        r-s-date [VAR_DATE] @218:46
                     expression [EXPRESSION] @0:0
                        r-e-date [VAR_DATE] @218:55
                     expression [EXPRESSION] @0:0
                        r-rate [VAR_DEC] @218:64
                     with [FRAME_PHRASE] @218:71
                        frame [KW_FRAME] @218:76
                           f-u-rate [WID_FRAME] @218:82
               statement [STATEMENT] @0:0
                  update [KW_UPDATE] @220:7
                     r-rate [VAR_DEC] @220:14
                     with [FRAME_PHRASE] @220:21
                        frame [KW_FRAME] @220:26
                           f-u-rate [WID_FRAME] @220:32
               statement [STATEMENT] @0:0
                  if [KW_IF] @223:7
                     expression [EXPRESSION] @0:0
                        = [EQUALS] @223:17
                           r-rate [VAR_DEC] @223:10
                           rate.rate [FIELD_DEC] @223:19
                     then [KW_THEN] @223:29
                        inner block [INNER_BLOCK] @0:0
                           do [KW_DO] @223:34
                           block [BLOCK] @0:0
                              statement [STATEMENT] @0:0
                                 run [KW_RUN] @223:38
                                    refresh [INT_PROC] @223:42
                              statement [STATEMENT] @0:0
                                 return [KW_RETURN] @223:51
               statement [STATEMENT] @0:0
                  find [KW_FIND] @225:7
                     record phrase [RECORD_PHRASE] @0:0
                        b-rate [BUFFER] @225:12
                        where [KW_WHERE] @225:19
                           expression [EXPRESSION] @0:0
                              = [EQUALS] @225:39
                                 recid [FUNC_RECID] @225:25
                                    b-rate [BUFFER] @225:31
                                 recid [FUNC_RECID] @225:41
                                    rate [TABLE] @225:47
                        exclusive-lock [KW_EXC_LOCK] @225:53
               statement [STATEMENT] @0:0
                  if [KW_IF] @227:7
                     expression [EXPRESSION] @0:0
                        >= [GTE] @227:26
                           rate.start-date [FIELD_DATE] @227:10
                           today [FUNC_DATE] @227:29
                     then [KW_THEN] @227:35
                        inner block [INNER_BLOCK] @0:0
                           do [KW_DO] @227:40
                           block [BLOCK] @0:0
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @228:22
                                    b-rate.rate [FIELD_DEC] @228:10
                                    expression [EXPRESSION] @0:0
                                       r-rate [VAR_DEC] @228:24
                     else [KW_ELSE] @230:7
                        inner block [INNER_BLOCK] @0:0
                           do [KW_DO] @230:12
                           block [BLOCK] @0:0
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @231:26
                                    b-rate.end-date [FIELD_DATE] @231:10
                                    expression [EXPRESSION] @0:0
                                       - [MINUS] @231:37
                                          r-s-date [VAR_DATE] @231:28
                                          1 [NUM_LITERAL] @231:39
                              statement [STATEMENT] @0:0
                                 create [KW_CREATE] @233:10
                                    b-rate [BUFFER] @233:17
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @234:23
                                    b-rate.floor [FIELD_INT] @234:10
                                    expression [EXPRESSION] @0:0
                                       rate.floor [FIELD_INT] @234:25
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @235:30
                                    b-rate.type-of-room [FIELD_INT] @235:10
                                    expression [EXPRESSION] @0:0
                                       rate.type-of-room [FIELD_INT] @235:32
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @236:22
                                    b-rate.rate [FIELD_DEC] @236:10
                                    expression [EXPRESSION] @0:0
                                       r-rate [VAR_DEC] @236:24
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @237:28
                                    b-rate.start-date [FIELD_DATE] @237:10
                                    expression [EXPRESSION] @0:0
                                       r-s-date [VAR_DATE] @237:30
                              assignment [ASSIGNMENT] @0:0
                                 = [ASSIGN] @238:26
                                    b-rate.end-date [FIELD_DATE] @238:10
                                    expression [EXPRESSION] @0:0
                                       r-e-date [VAR_DATE] @238:28
               statement [STATEMENT] @0:0
                  release [KW_RELEASE] @241:7
                     b-rate [BUFFER] @241:15
         statement [STATEMENT] @0:0
            run [KW_RUN] @244:4
               refresh [INT_PROC] @244:8
./abl/rates.p 00247 00001
on [KW_ON] @247:1
    [EVENT_LIST] @0:0
      s [EVENT] @247:4
      S [EVENT] @247:9
   anywhere [KW_ANYWHERE] @247:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @247:22
      block [BLOCK] @0:0
         inner block [INNER_BLOCK] @0:0
            do [KW_DO] @248:4
               on [KW_ON] @248:7
                  endkey [KW_ENDKEY] @248:10
                  undo [KW_UNDO] @248:17
                  leave [KW_LEAVE] @248:23
            block [BLOCK] @0:0
               statement [STATEMENT] @0:0
                  def [DEFINE_VARIABLE] @249:4
                     floor-no [SYMBOL] @249:12
                     as [KW_AS] @249:21
                        int [KW_INT] @249:24
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @250:13
                     floor-no [VAR_INT] @250:4
                     expression [EXPRESSION] @0:0
                        current-floor-no [VAR_INT] @250:15
               statement [STATEMENT] @0:0
                  update [KW_UPDATE] @251:4
                     floor-no [VAR_INT] @251:11
                     format phrase [FORMAT_PHRASE] @0:0
                        label [KW_LABEL] @251:20
                           "Floor number" [STRING] @251:26
                        validate [KW_VALIDATE] @251:41
                           expression [EXPRESSION] @0:0
                              and [KW_AND] @251:64
                                 >= [GTE] @251:59
                                    floor-no [VAR_INT] @251:50
                                    1 [NUM_LITERAL] @251:62
                                 <= [LTE] @251:77
                                    floor-no [VAR_INT] @251:68
                                    total-floor-no [VAR_INT] @251:80
                           expression [EXPRESSION] @0:0
                              + [PLUS] @251:134
                                 "Floor number must be between 1 and " [STRING] @251:96
                                 string [FUNC_CHAR] @251:136
                                    total-floor-no [VAR_INT] @251:143
                     with [FRAME_PHRASE] @252:11
                        frame [KW_FRAME] @252:16
                           f-floor-no [WID_FRAME] @252:22
                        overlay [KW_OVERLAY] @252:33
                        centered [KW_CENTER] @252:41
                        side-labels [KW_SIDE_L] @252:50
                        title [KW_TITLE] @252:62
                           expression [EXPRESSION] @0:0
                              "Set Floor Number" [STRING] @252:68
               statement [STATEMENT] @0:0
                  hide [KW_HIDE] @253:4
                     frame [KW_FRAME] @253:9
                        f-floor-no [WID_FRAME] @253:15
                     no-pause [KW_NO_PAUSE] @253:26
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @254:21
                     current-floor-no [VAR_INT] @254:4
                     expression [EXPRESSION] @0:0
                        floor-no [VAR_INT] @254:23
         statement [STATEMENT] @0:0
            run [KW_RUN] @256:4
               refresh [INT_PROC] @256:8
./abl/rates.p 00259 00001
on [KW_ON] @259:1
    [EVENT_LIST] @0:0
      t [EVENT] @259:4
      T [EVENT] @259:9
   anywhere [KW_ANYWHERE] @259:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @259:22
      block [BLOCK] @0:0
         inner block [INNER_BLOCK] @0:0
            do [KW_DO] @260:4
               on [KW_ON] @260:7
                  endkey [KW_ENDKEY] @260:10
                  undo [KW_UNDO] @260:17
                  leave [KW_LEAVE] @260:23
            block [BLOCK] @0:0
               statement [STATEMENT] @0:0
                  def [DEFINE_VARIABLE] @261:4
                     r-type [SYMBOL] @261:12
                     as [KW_AS] @261:19
                        int [KW_INT] @261:22
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @262:11
                     r-type [VAR_INT] @262:4
                     expression [EXPRESSION] @0:0
                        current-room-type [VAR_INT] @262:13
               statement [STATEMENT] @0:0
                  form [KW_FORM] @263:4
                     form item [FORM_ITEM] @0:0
                        expression [EXPRESSION] @0:0
                           r-type [VAR_INT] @263:9
                        format phrase [FORMAT_PHRASE] @0:0
                           label [KW_LABEL] @263:16
                              "Room type" [STRING] @263:22
                           view-as [KW_VIEW_AS] @263:34
                              combo-box [KW_COMBO_BX] @263:42
                                 inner-lines [KW_INNER_L] @263:52
                                    5 [NUM_LITERAL] @263:64
                     with [FRAME_PHRASE] @264:9
                        frame [KW_FRAME] @264:14
                           f-room-type [WID_FRAME] @264:20
                        overlay [KW_OVERLAY] @264:32
                        centered [KW_CENTER] @264:40
                        side-labels [KW_SIDE_L] @264:49
                        title [KW_TITLE] @264:61
                           expression [EXPRESSION] @0:0
                              "Set Room Type" [STRING] @264:67
               statement [STATEMENT] @0:0
                  run [KW_RUN] @266:4
                     set-room-types-combo [FILENAME] @266:8
                     ( [LPARENS] @266:29
                        parameter [PARAMETER] @0:0
                           input [KW_INPUT] @266:30
                           expression [EXPRESSION] @0:0
                              : [COLON] @266:42
                                 r-type [WID_FILL_IN] @266:36
                                 handle [ATTR_HANDLE] @266:43
                                 in [KW_IN] @266:50
                                    frame [KW_FRAME] @266:53
                                       f-room-type [WID_FRAME] @266:59
               statement [STATEMENT] @0:0
                  update [KW_UPDATE] @268:4
                     r-type [VAR_INT] @268:11
                     with [FRAME_PHRASE] @268:18
                        frame [KW_FRAME] @268:23
                           f-room-type [WID_FRAME] @268:29
               statement [STATEMENT] @0:0
                  hide [KW_HIDE] @270:4
                     frame [KW_FRAME] @270:9
                        f-room-type [WID_FRAME] @270:15
                     no-pause [KW_NO_PAUSE] @270:27
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @271:22
                     current-room-type [VAR_INT] @271:4
                     expression [EXPRESSION] @0:0
                        r-type [VAR_INT] @271:24
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @273:21
               current-floor-no [VAR_INT] @273:4
               expression [EXPRESSION] @0:0
                  ? [UNKNOWN_VAL] @273:23
         statement [STATEMENT] @0:0
            run [KW_RUN] @274:4
               refresh [INT_PROC] @274:8
./abl/rates.p 00277 00001
on [KW_ON] @277:1
    [EVENT_LIST] @0:0
      o [EVENT] @277:4
      O [EVENT] @277:9
   anywhere [KW_ANYWHERE] @277:13
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @277:22
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            publish [KW_PUBLISH] @278:4
               expression [EXPRESSION] @0:0
                  "push-program" [STRING] @278:12
               ( [LPARENS] @278:27
                  parameter [PARAMETER] @0:0
                     expression [EXPRESSION] @0:0
                        "rates-report.p" [STRING] @278:28
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @279:13
               pop-prog [VAR_LOGICAL] @279:4
               expression [EXPRESSION] @0:0
                  false [BOOL_FALSE] @279:15
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @280:4
               expression [EXPRESSION] @0:0
                  "r" [STRING] @280:10
               to [KW_TO] @280:14
                  frame [KW_FRAME] @280:17
                     f-rates [WID_FRAME] @280:23
./abl/reservations.p 00256 00001
on [KW_ON] @256:1
    [EVENT_LIST] @0:0
      leave [EVENT] @256:4
   of [KW_OF] @256:12
    [WIDGET_LIST] @0:0
      b-out-room.guest-ids [FIELD_INT] @256:15
         [ [LBRACKET] @256:35
            expression [EXPRESSION] @0:0
               1 [NUM_LITERAL] @256:36
         in [KW_IN] @256:39
            frame [KW_FRAME] @256:42
               f-room-guests [WID_FRAME] @256:48
   of [KW_OF] @257:12
       [EVENT_LIST] @0:0
         leave [EVENT] @257:4
       [WIDGET_LIST] @0:0
         b-out-room.guest-ids [FIELD_INT] @257:15
            [ [LBRACKET] @257:35
               expression [EXPRESSION] @0:0
                  2 [NUM_LITERAL] @257:36
            in [KW_IN] @257:39
               frame [KW_FRAME] @257:42
                  f-room-guests [WID_FRAME] @257:48
   of [KW_OF] @258:12
       [EVENT_LIST] @0:0
         leave [EVENT] @258:4
       [WIDGET_LIST] @0:0
         b-out-room.guest-ids [FIELD_INT] @258:15
            [ [LBRACKET] @258:35
               expression [EXPRESSION] @0:0
                  3 [NUM_LITERAL] @258:36
            in [KW_IN] @258:39
               frame [KW_FRAME] @258:42
                  f-room-guests [WID_FRAME] @258:48
   of [KW_OF] @259:12
       [EVENT_LIST] @0:0
         leave [EVENT] @259:4
       [WIDGET_LIST] @0:0
         b-out-room.guest-ids [FIELD_INT] @259:15
            [ [LBRACKET] @259:35
               expression [EXPRESSION] @0:0
                  4 [NUM_LITERAL] @259:36
            in [KW_IN] @259:39
               frame [KW_FRAME] @259:42
                  f-room-guests [WID_FRAME] @259:48
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @260:1
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @261:4
               g-id [SYMBOL] @261:12
               as [KW_AS] @261:17
                  int [KW_INT] @261:20
         statement [STATEMENT] @0:0
            if [KW_IF] @263:4
               expression [EXPRESSION] @0:0
                  = [EQUALS] @263:26
                     : [COLON] @263:12
                        focus [SYS_HANDLE] @263:7
                        screen-value [ATTR_CHAR] @263:13
                     "?" [STRING] @263:28
               then [KW_THEN] @263:32
                  inner block [INNER_BLOCK] @0:0
                     do [KW_DO] @263:37
                     block [BLOCK] @0:0
                        statement [STATEMENT] @0:0
                           run [KW_RUN] @264:7
                              choose-guest [INT_PROC] @264:11
                              ( [LPARENS] @264:23
                                 parameter [PARAMETER] @0:0
                                    output [KW_OUTPUT] @264:24
                                    expression [EXPRESSION] @0:0
                                       g-id [VAR_INT] @264:31
                        statement [STATEMENT] @0:0
                           if [KW_IF] @266:7
                              expression [EXPRESSION] @0:0
                                 = [EQUALS] @266:15
                                    g-id [VAR_INT] @266:10
                                    ? [UNKNOWN_VAL] @266:17
                              then [KW_THEN] @266:19
                                 block [BLOCK] @0:0
                                    statement [STATEMENT] @0:0
                                       return [KW_RETURN] @266:24
                                          no-apply [KW_NO_APPLY] @266:31
                        assignment [ASSIGNMENT] @0:0
                           = [ASSIGN] @268:26
                              : [COLON] @268:12
                                 focus [SYS_HANDLE] @268:7
                                 screen-value [ATTR_CHAR] @268:13
                              expression [EXPRESSION] @0:0
                                 string [FUNC_CHAR] @268:28
                                    g-id [VAR_INT] @268:35
               else [KW_ELSE] @270:4
                  block [BLOCK] @0:0
                     assignment [ASSIGNMENT] @0:0
                        = [ASSIGN] @270:14
                           g-id [VAR_INT] @270:9
                           expression [EXPRESSION] @0:0
                              int [FUNC_INT] @270:16
                                 : [COLON] @270:25
                                    focus [SYS_HANDLE] @270:20
                                    screen-value [ATTR_CHAR] @270:26
         statement [STATEMENT] @0:0
            if [KW_IF] @272:4
               expression [EXPRESSION] @0:0
                  <> [NOT_EQ] @272:12
                     g-id [VAR_INT] @272:7
                     0 [NUM_LITERAL] @272:15
               then [KW_THEN] @272:17
                  inner block [INNER_BLOCK] @0:0
                     do [KW_DO] @272:22
                     block [BLOCK] @0:0
                        statement [STATEMENT] @0:0
                           find [KW_FIND] @273:7
                              record phrase [RECORD_PHRASE] @0:0
                                 b-guest [BUFFER] @273:12
                                 where [KW_WHERE] @273:20
                                    expression [EXPRESSION] @0:0
                                       = [EQUALS] @273:43
                                          b-guest.guest-id [FIELD_INT] @273:26
                                          g-id [VAR_INT] @273:45
                                 no-lock [KW_NO_LOCK] @273:50
                        assignment [ASSIGNMENT] @0:0
                           = [ASSIGN] @274:39
                              : [COLON] @274:25
                                 : [COLON] @274:12
                                    focus [SYS_HANDLE] @274:7
                                    next-sibling [ATTR_HANDLE] @274:13
                                 screen-value [ATTR_CHAR] @274:26
                              expression [EXPRESSION] @0:0
                                 + [PLUS] @274:66
                                    + [PLUS] @274:60
                                       b-guest.first-name [FIELD_CHAR] @274:41
                                       " " [STRING] @274:62
                                    b-guest.last-name [FIELD_CHAR] @274:68
./abl/reservations.p 00278 00001
on [KW_ON] @278:1
    [EVENT_LIST] @0:0
      return [EVENT] @278:4
   of [KW_OF] @278:13
    [WIDGET_LIST] @0:0
      g-id [WID_FILL_IN] @278:16
         in [KW_IN] @278:21
            frame [KW_FRAME] @278:24
               f-res [WID_FRAME] @278:30
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @278:36
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            if [KW_IF] @279:4
               expression [EXPRESSION] @0:0
                  = [EQUALS] @279:25
                     : [COLON] @279:11
                        g-id [WID_FILL_IN] @279:7
                        screen-value [ATTR_CHAR] @279:12
                     "?" [STRING] @279:27
               then [KW_THEN] @279:31
                  inner block [INNER_BLOCK] @0:0
                     do [KW_DO] @279:36
                     block [BLOCK] @0:0
                        statement [STATEMENT] @0:0
                           run [KW_RUN] @281:7
                              choose-guest [INT_PROC] @281:11
                              ( [LPARENS] @281:23
                                 parameter [PARAMETER] @0:0
                                    output [KW_OUTPUT] @281:24
                                    expression [EXPRESSION] @0:0
                                       g-id [VAR_INT] @281:31
                        statement [STATEMENT] @0:0
                           display [KW_DISP] @283:7
                              expression [EXPRESSION] @0:0
                                 g-id [VAR_INT] @283:15
                              with [FRAME_PHRASE] @283:20
                                 frame [KW_FRAME] @283:25
                                    f-res [WID_FRAME] @283:31
                        assignment [ASSIGNMENT] @0:0
                           = [ASSIGN] @285:13
                              g-f-n [VAR_CHAR] @285:7
                              expression [EXPRESSION] @0:0
                                 "" [STRING] @285:15
                        assignment [ASSIGNMENT] @0:0
                           = [ASSIGN] @286:13
                              g-l-n [VAR_CHAR] @286:7
                              expression [EXPRESSION] @0:0
                                 "" [STRING] @286:15
                        assignment [ASSIGNMENT] @0:0
                           = [ASSIGN] @287:13
                              g-dob [VAR_DATE] @287:7
                              expression [EXPRESSION] @0:0
                                 ? [UNKNOWN_VAL] @287:15
                        statement [STATEMENT] @0:0
                           return [KW_RETURN] @289:7
                              no-apply [KW_NO_APPLY] @289:14
./abl/reservations.p 00371 00010
on [KW_ON] @371:10
    [EVENT_LIST] @0:0
      choose [EVENT] @371:13
   of [KW_OF] @371:22
    [WIDGET_LIST] @0:0
      btn-cancel [WID_BUTTON] @371:25
         in [KW_IN] @371:36
            frame [KW_FRAME] @371:39
               f-res-search [WID_FRAME] @371:45
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @371:58
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @372:13
               expression [EXPRESSION] @0:0
                  "f4" [STRING] @372:19
               to [KW_TO] @372:24
                  frame [KW_FRAME] @372:27
                     f-res-search [WID_FRAME] @372:33
./abl/reservations.p 00374 00010
on [KW_ON] @374:10
    [EVENT_LIST] @0:0
      choose [EVENT] @374:13
   of [KW_OF] @374:22
    [WIDGET_LIST] @0:0
      btn-ok [WID_BUTTON] @374:25
         in [KW_IN] @374:32
            frame [KW_FRAME] @374:35
               f-res-search [WID_FRAME] @374:41
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @374:54
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @375:13
               expression [EXPRESSION] @0:0
                  "go" [STRING] @375:19
               to [KW_TO] @375:24
                  frame [KW_FRAME] @375:27
                     f-res-search [WID_FRAME] @375:33
./abl/rooms-add.p 00045 00001
on [KW_ON] @45:1
    [EVENT_LIST] @0:0
      choose [EVENT] @45:4
   of [KW_OF] @45:13
    [WIDGET_LIST] @0:0
      btn-ok [WID_BUTTON] @45:16
         in [KW_IN] @45:23
            frame [KW_FRAME] @45:26
               f1 [WID_FRAME] @45:32
   trigger block [TRIGGER_BLOCK] @0:0
      do [KW_DO] @45:35
      block [BLOCK] @0:0
         statement [STATEMENT] @0:0
            assign [KW_ASSIGN] @46:4
               start-no [VAR_INT] @46:11
               end-no [VAR_INT] @46:20
               room-type [VAR_INT] @46:27
               current-floor-no [VAR_INT] @46:37
         statement [STATEMENT] @0:0
            if [KW_IF] @47:4
               expression [EXPRESSION] @0:0
                  > [GT] @47:16
                     start-no [VAR_INT] @47:7
                     end-no [VAR_INT] @47:18
               then [KW_THEN] @47:25
                  inner block [INNER_BLOCK] @0:0
                     do [KW_DO] @47:30
                     block [BLOCK] @0:0
                        statement [STATEMENT] @0:0
                           message [KW_MSG] @48:7
                               [CONTENT_ARRAY] @0:0
                                 expression [EXPRESSION] @0:0
                                    "Start number must be less than end room number" [STRING] @48:15
                              view-as [KW_VIEW_AS] @48:64
                                 alert-box [KW_ALERT_BX] @48:72
                        statement [STATEMENT] @0:0
                           return [KW_RETURN] @49:7
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @52:4
               r-no [SYMBOL] @52:12
               as [KW_AS] @52:17
                  int [KW_INT] @52:20
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @53:4
               s-no [SYMBOL] @53:12
               as [KW_AS] @53:17
                  int [KW_INT] @53:20
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @54:4
               e-no [SYMBOL] @54:12
               as [KW_AS] @54:17
                  int [KW_INT] @54:20
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @56:9
               s-no [VAR_INT] @56:4
               expression [EXPRESSION] @0:0
                  + [PLUS] @56:34
                     * [MULTIPLY] @56:28
                        current-floor-no [VAR_INT] @56:11
                        100 [NUM_LITERAL] @56:30
                     start-no [VAR_INT] @56:36
         assignment [ASSIGNMENT] @0:0
            = [ASSIGN] @57:9
               e-no [VAR_INT] @57:4
               expression [EXPRESSION] @0:0
                  + [PLUS] @57:34
                     * [MULTIPLY] @57:28
                        current-floor-no [VAR_INT] @57:11
                        100 [NUM_LITERAL] @57:30
                     end-no [VAR_INT] @57:36
         statement [STATEMENT] @0:0
            def [DEFINE_VARIABLE] @58:4
               a [SYMBOL] @58:12
               as [KW_AS] @58:14
                  int [KW_INT] @58:17
         statement [STATEMENT] @0:0
            message [KW_MSG] @59:4
                [CONTENT_ARRAY] @0:0
                  expression [EXPRESSION] @0:0
                     "Adding rooms from" [STRING] @59:12
                  expression [EXPRESSION] @0:0
                     s-no [VAR_INT] @59:32
                  expression [EXPRESSION] @0:0
                     "to" [STRING] @59:37
                  expression [EXPRESSION] @0:0
                     e-no [VAR_INT] @59:42
         inner block [INNER_BLOCK] @0:0
            do [KW_DO] @61:4
               to [KW_TO] @61:19
                  = [ASSIGN] @61:12
                     r-no [VAR_INT] @61:7
                     expression [EXPRESSION] @0:0
                        s-no [VAR_INT] @61:14
                  expression [EXPRESSION] @0:0
                     e-no [VAR_INT] @61:22
               transaction [KW_TRANS] @61:27
            block [BLOCK] @0:0
               statement [STATEMENT] @0:0
                  find [KW_FIND] @63:7
                     record phrase [RECORD_PHRASE] @0:0
                        room [TABLE] @63:12
                        where [KW_WHERE] @63:17
                           expression [EXPRESSION] @0:0
                              and [KW_AND] @63:53
                                 = [EQUALS] @63:34
                                    room.floor [FIELD_INT] @63:23
                                    current-floor-no [VAR_INT] @63:36
                                 = [EQUALS] @63:74
                                    room.room-number [FIELD_INT] @63:57
                                    r-no [VAR_INT] @63:76
                        no-lock [KW_NO_LOCK] @63:81
                        no-error [KW_NO_ERROR] @63:89
               statement [STATEMENT] @0:0
                  if [KW_IF] @64:7
                     expression [EXPRESSION] @0:0
                        avail [FUNC_LOGICAL] @64:10
                           room [TABLE] @64:16
                     then [KW_THEN] @64:21
                        inner block [INNER_BLOCK] @0:0
                           do [KW_DO] @64:26
                           block [BLOCK] @0:0
                              statement [STATEMENT] @0:0
                                 status [KW_STATUS] @65:10
                                    default [KW_DEFAULT] @65:17
                                    expression [EXPRESSION] @0:0
                                       + [PLUS] @65:42
                                          "Skipping room " [STRING] @65:25
                                          string [FUNC_CHAR] @65:44
                                             r-no [VAR_INT] @65:51
                              statement [STATEMENT] @0:0
                                 readkey [KW_READKEY] @66:10
                                    pause [KW_PAUSE] @66:18
                                       expression [EXPRESSION] @0:0
                                          1 [NUM_LITERAL] @66:24
                              statement [STATEMENT] @0:0
                                 next [KW_NEXT] @67:10
               statement [STATEMENT] @0:0
                  status [KW_STATUS] @70:7
                     default [KW_DEFAULT] @70:14
                     expression [EXPRESSION] @0:0
                        + [PLUS] @70:36
                           "Adding room" [STRING] @70:22
                           string [FUNC_CHAR] @70:38
                              r-no [VAR_INT] @70:45
               statement [STATEMENT] @0:0
                  create [KW_CREATE] @71:7
                     room [TABLE] @71:14
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @72:18
                     room.floor [FIELD_INT] @72:7
                     expression [EXPRESSION] @0:0
                        current-floor-no [VAR_INT] @72:20
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @73:24
                     room.room-number [FIELD_INT] @73:7
                     expression [EXPRESSION] @0:0
                        r-no [VAR_INT] @73:26
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @74:25
                     room.type-of-room [FIELD_INT] @74:7
                     expression [EXPRESSION] @0:0
                        room-type [VAR_INT] @74:27
               assignment [ASSIGNMENT] @0:0
                  = [ASSIGN] @76:9
                     a [VAR_INT] @76:7
                     expression [EXPRESSION] @0:0
                        + [PLUS] @76:13
                           a [VAR_INT] @76:11
                           1 [NUM_LITERAL] @76:15
         statement [STATEMENT] @0:0
            message [KW_MSG] @79:4
                [CONTENT_ARRAY] @0:0
                  expression [EXPRESSION] @0:0
                     + [PLUS] @79:33
                        + [PLUS] @79:21
                           "Added " [STRING] @79:12
                           string [FUNC_CHAR] @79:23
                              a [VAR_INT] @79:30
                        " rooms" [STRING] @79:35
         statement [STATEMENT] @0:0
            pause [KW_PAUSE] @80:4
         statement [STATEMENT] @0:0
            status [KW_STATUS] @82:4
               default [KW_DEFAULT] @82:11
         statement [STATEMENT] @0:0
            apply [KW_APPLY] @83:4
               expression [EXPRESSION] @0:0
                  "go" [STRING] @83:10
               to [KW_TO] @83:15
                  frame [KW_FRAME] @83:18
                     f1 [WID_FRAME] @83:24

Conditions matched: [ evalLib("ui_language_stmts", this) ]


Please see the Source File Index for the list of report inputs. Generated at 03/31/2017 21:16:32 EEST.