if [KW_IF] (matches 001 through 100)

Table of Contents Next Page

Filename Line # Column # Match Text
./abl/checkout.p 00100 00004
if [KW_IF] @100:4
   expression [EXPRESSION] @0:0
      not [KW_NOT] @100:7
         avail [FUNC_LOGICAL] @100:11
            checkout-room [TABLE] @100:17
   then [KW_THEN] @100:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @100:36
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00120 00010
if [KW_IF] @120:10
   expression [EXPRESSION] @0:0
      and [KW_AND] @120:44
         <> [NOT_EQ] @120:39
            b-out-room.guest-ids [FIELD_INT] @120:13
               [ [LBRACKET] @120:33
                  tid [VAR_INT] @120:34
            ? [UNKNOWN_VAL] @120:42
         <> [NOT_EQ] @120:74
            b-out-room.guest-ids [FIELD_INT] @120:48
               [ [LBRACKET] @120:68
                  tid [VAR_INT] @120:69
            0 [NUM_LITERAL] @120:77
   then [KW_THEN] @121:13
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00137 00004
if [KW_IF] @137:4
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @137:7
         checkout-room [TABLE] @137:13
   then [KW_THEN] @137:27
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @137:32
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00150 00010
if [KW_IF] @150:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @150:13
         guest [TABLE] @150:19
   then [KW_THEN] @150:25
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @150:30
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00181 00004
if [KW_IF] @181:4
   expression [EXPRESSION] @0:0
      or [KW_OR] @181:18
         = [EQUALS] @181:14
            u-name [VAR_CHAR] @181:7
            ? [UNKNOWN_VAL] @181:16
         = [EQUALS] @181:28
            u-name [VAR_CHAR] @181:21
            "" [STRING] @181:30
   then [KW_THEN] @181:33
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @181:38
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00203 00010
if [KW_IF] @203:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @203:13
         avail [FUNC_LOGICAL] @203:17
            checkout [TABLE] @203:23
   then [KW_THEN] @203:32
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @203:37
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00212 00010
if [KW_IF] @212:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @212:13
         avail [FUNC_LOGICAL] @212:17
            checkout [TABLE] @212:23
   then [KW_THEN] @212:32
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @212:37
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00266 00013
if [KW_IF] @266:13
   expression [EXPRESSION] @0:0
      and [KW_AND] @266:42
         and [KW_AND] @266:27
            = [EQUALS] @266:22
               g-f-n [VAR_CHAR] @266:16
               "" [STRING] @266:24
            = [EQUALS] @266:37
               g-l-n [VAR_CHAR] @266:31
               "" [STRING] @266:39
         ( [LPARENS] @266:46
            or [KW_OR] @266:58
               = [EQUALS] @266:54
                  g-room [VAR_INT] @266:47
                  0 [NUM_LITERAL] @266:56
               = [EQUALS] @266:68
                  g-room [VAR_INT] @266:61
                  ? [UNKNOWN_VAL] @266:70
   then [KW_THEN] @267:13
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @267:18
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00272 00013
if [KW_IF] @272:13
   expression [EXPRESSION] @0:0
      > [GT] @272:23
         g-room [VAR_INT] @272:16
         0 [NUM_LITERAL] @272:25
   then [KW_THEN] @272:27
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @272:32
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00274 00016
if [KW_IF] @274:16
   expression [EXPRESSION] @0:0
      not [KW_NOT] @274:19
         avail [FUNC_LOGICAL] @274:23
            b-out-room [BUFFER] @274:29
   then [KW_THEN] @274:40
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @274:45
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00303 00010
if [KW_IF] @303:10
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @303:18
         r-id [VAR_INT] @303:13
         ? [UNKNOWN_VAL] @303:21
   then [KW_THEN] @303:23
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @303:28
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00317 00010
if [KW_IF] @317:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @317:13
         avail [FUNC_LOGICAL] @317:17
            reservation [TABLE] @317:23
   then [KW_THEN] @317:35
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00349 00010
if [KW_IF] @349:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @349:13
         avail [FUNC_LOGICAL] @349:17
            checkout-room [TABLE] @349:23
   then [KW_THEN] @349:37
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @349:42
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00357 00010
if [KW_IF] @357:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @357:13
         avail [FUNC_LOGICAL] @357:17
            checkout-room [TABLE] @357:23
   then [KW_THEN] @357:37
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @357:42
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00369 00010
if [KW_IF] @369:10
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @369:23
         selection [VAR_CHAR] @369:13
         ? [UNKNOWN_VAL] @369:26
   then [KW_THEN] @369:28
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @369:33
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00378 00004
if [KW_IF] @378:4
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @378:13
         sprog [VAR_CHAR] @378:7
         ? [UNKNOWN_VAL] @378:16
   then [KW_THEN] @378:18
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/checkout.p 00394 00001
if [KW_IF] @394:1
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @394:10
         sprog [VAR_CHAR] @394:4
         ? [UNKNOWN_VAL] @394:13
   then [KW_THEN] @394:15
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @394:20
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/exit.p 00034 00004
if [KW_IF] @34:4
   expression [EXPRESSION] @0:0
      ne [NOT_EQ] @34:15
         lastkey [VAR_INT] @34:7
         -1 [NUM_LITERAL] @34:18
   then [KW_THEN] @34:21
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @34:26
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/exit.p 00035 00008
if [KW_IF] @35:8
   expression [EXPRESSION] @0:0
      = [EQUALS] @35:38
         caps [FUNC_CHAR] @35:11
            keyfunction [FUNC_CHAR] @35:16
               lastkey [VAR_INT] @35:28
         "Y" [STRING] @35:40
   then [KW_THEN] @36:8
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @36:13
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @40:8
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @40:13
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00060 00004
if [KW_IF] @60:4
   expression [EXPRESSION] @0:0
      not [KW_NOT] @60:7
         avail [FUNC_LOGICAL] @60:11
            guest [TABLE] @60:17
   then [KW_THEN] @60:24
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @60:29
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00092 00004
if [KW_IF] @92:4
   expression [EXPRESSION] @0:0
      or [KW_OR] @92:18
         = [EQUALS] @92:14
            u-name [VAR_CHAR] @92:7
            ? [UNKNOWN_VAL] @92:16
         = [EQUALS] @92:28
            u-name [VAR_CHAR] @92:21
            "" [STRING] @92:30
   then [KW_THEN] @92:33
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @92:38
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00113 00010
if [KW_IF] @113:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @113:13
         avail [FUNC_LOGICAL] @113:17
            guest [TABLE] @113:23
   then [KW_THEN] @113:29
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @113:34
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00121 00010
if [KW_IF] @121:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @121:13
         avail [FUNC_LOGICAL] @121:17
            guest [TABLE] @121:23
   then [KW_THEN] @121:29
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @121:34
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00165 00013
if [KW_IF] @165:13
   expression [EXPRESSION] @0:0
      and [KW_AND] @165:42
         and [KW_AND] @165:27
            = [EQUALS] @165:22
               g-f-n [VAR_CHAR] @165:16
               "" [STRING] @165:24
            = [EQUALS] @165:37
               g-l-n [VAR_CHAR] @165:31
               "" [STRING] @165:39
         = [EQUALS] @165:52
            g-dob [VAR_DATE] @165:46
            ? [UNKNOWN_VAL] @165:54
   then [KW_THEN] @166:13
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @166:18
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00176 00013
if [KW_IF] @176:13
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @176:16
         b-guest [BUFFER] @176:22
   then [KW_THEN] @176:30
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @176:35
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @181:13
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @181:18
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00192 00010
if [KW_IF] @192:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @192:13
         guest [TABLE] @192:19
   then [KW_THEN] @192:25
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @192:30
            transaction [KW_TRANS] @192:33
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00279 00010
if [KW_IF] @279:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @279:13
         guest [TABLE] @279:19
   then [KW_THEN] @279:25
      inner block [INNER_BLOCK] @0:0
         U-GUEST [LABEL_DEF] @280:10
         repeat [KW_REPEAT] @281:10
            transaction [KW_TRANS] @281:17
            on [KW_ON] @281:29
               error [KW_ERROR] @281:32
               undo [KW_UNDO] @281:38
               leave [KW_LEAVE] @281:44
            on [KW_ON] @282:29
               endkey [KW_ENDKEY] @282:32
               undo [KW_UNDO] @282:39
               leave [KW_LEAVE] @282:45
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00286 00013
if [KW_IF] @286:13
   expression [EXPRESSION] @0:0
      = [EQUALS] @286:26
         g-id-type [VAR_INT] @286:16
         ? [UNKNOWN_VAL] @286:28
   then [KW_THEN] @286:30
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/guests.p 00328 00010
if [KW_IF] @328:10
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @328:23
         selection [VAR_CHAR] @328:13
         ? [UNKNOWN_VAL] @328:26
   then [KW_THEN] @328:28
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @328:33
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/login.p 00044 00004
if [KW_IF] @44:4
   expression [EXPRESSION] @0:0
      = [EQUALS] @44:13
         uname [VAR_CHAR] @44:7
         "quit" [STRING] @44:15
   then [KW_THEN] @44:22
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/login.p 00046 00004
if [KW_IF] @46:4
   expression [EXPRESSION] @0:0
      setuserid [FUNC_LOGICAL] @46:7
         uname [VAR_CHAR] @46:17
         upass [VAR_CHAR] @46:24
   then [KW_THEN] @46:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @46:36
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @50:4
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @50:9
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/main.p 00102 00004
if [KW_IF] @102:4
   expression [EXPRESSION] @0:0
      v-stop [VAR_LOGICAL] @102:7
   then [KW_THEN] @102:14
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @102:19
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/main.p 00104 00007
if [KW_IF] @104:7
   expression [EXPRESSION] @0:0
      prog-started [VAR_LOGICAL] @104:10
   then [KW_THEN] @104:23
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @104:28
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @112:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @112:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/menu.p 00028 00001
if [KW_IF] @28:1
   expression [EXPRESSION] @0:0
      or [KW_OR] @28:15
         = [EQUALS] @28:11
            u-name [VAR_CHAR] @28:4
            ? [UNKNOWN_VAL] @28:13
         = [EQUALS] @28:25
            u-name [VAR_CHAR] @28:18
            "" [STRING] @28:27
   then [KW_THEN] @28:30
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @28:35
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/menu.p 00110 00004
if [KW_IF] @110:4
   expression [EXPRESSION] @0:0
      = [EQUALS] @110:19
         frame-index [VAR_INT] @110:7
         ? [UNKNOWN_VAL] @110:21
   then [KW_THEN] @110:23
      block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @111:4
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @111:9
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00061 00004
if [KW_IF] @61:4
   expression [EXPRESSION] @0:0
      or [KW_OR] @61:18
         = [EQUALS] @61:14
            u-name [VAR_CHAR] @61:7
            ? [UNKNOWN_VAL] @61:16
         = [EQUALS] @61:28
            u-name [VAR_CHAR] @61:21
            "" [STRING] @61:30
   then [KW_THEN] @61:33
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @61:38
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00090 00004
if [KW_IF] @90:4
   expression [EXPRESSION] @0:0
      output-to [VAR_LOGICAL] @90:7
   then [KW_THEN] @91:4
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @91:9
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @182:4
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @182:9
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00093 00007
if [KW_IF] @93:7
   expression [EXPRESSION] @0:0
      by-floor [VAR_LOGICAL] @93:10
   then [KW_THEN] @93:19
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @93:24
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @137:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @137:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00116 00016
if [KW_IF] @116:16
   expression [EXPRESSION] @0:0
      first-of [FUNC_LOGICAL] @116:19
         t-room-type.type [FIELD_INT] @116:28
   then [KW_THEN] @116:46
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00118 00016
if [KW_IF] @118:16
   expression [EXPRESSION] @0:0
      and [KW_AND] @118:30
         = [EQUALS] @118:26
            c-rate [VAR_DEC] @118:19
            ? [UNKNOWN_VAL] @118:28
         >= [GTE] @118:48
            rate.end-date [FIELD_DATE] @118:34
            today [FUNC_DATE] @118:51
   then [KW_THEN] @118:57
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00128 00016
if [KW_IF] @128:16
   expression [EXPRESSION] @0:0
      last-of [FUNC_LOGICAL] @128:19
         t-room-type.type [FIELD_INT] @128:27
   then [KW_THEN] @128:45
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @128:50
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00159 00016
if [KW_IF] @159:16
   expression [EXPRESSION] @0:0
      first-of [FUNC_LOGICAL] @159:19
         t-floor.floor [FIELD_INT] @159:28
   then [KW_THEN] @159:43
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00161 00016
if [KW_IF] @161:16
   expression [EXPRESSION] @0:0
      and [KW_AND] @161:30
         = [EQUALS] @161:26
            c-rate [VAR_DEC] @161:19
            ? [UNKNOWN_VAL] @161:28
         >= [GTE] @161:48
            rate.end-date [FIELD_DATE] @161:34
            today [FUNC_DATE] @161:51
   then [KW_THEN] @161:57
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00171 00016
if [KW_IF] @171:16
   expression [EXPRESSION] @0:0
      last-of [FUNC_LOGICAL] @171:19
         t-floor.floor [FIELD_INT] @171:27
   then [KW_THEN] @171:42
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @171:47
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00234 00007
if [KW_IF] @234:7
   expression [EXPRESSION] @0:0
      by-floor [VAR_LOGICAL] @234:10
   then [KW_THEN] @234:19
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @234:24
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @237:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @237:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00241 00007
if [KW_IF] @241:7
   expression [EXPRESSION] @0:0
      by-floor [VAR_LOGICAL] @241:10
   then [KW_THEN] @241:19
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @241:24
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @285:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @285:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00264 00016
if [KW_IF] @264:16
   expression [EXPRESSION] @0:0
      first-of [FUNC_LOGICAL] @264:19
         t-room-type.type [FIELD_INT] @264:28
   then [KW_THEN] @264:46
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00266 00016
if [KW_IF] @266:16
   expression [EXPRESSION] @0:0
      and [KW_AND] @266:30
         = [EQUALS] @266:26
            c-rate [VAR_DEC] @266:19
            ? [UNKNOWN_VAL] @266:28
         >= [GTE] @266:48
            rate.end-date [FIELD_DATE] @266:34
            today [FUNC_DATE] @266:51
   then [KW_THEN] @266:57
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00276 00016
if [KW_IF] @276:16
   expression [EXPRESSION] @0:0
      last-of [FUNC_LOGICAL] @276:19
         t-room-type.type [FIELD_INT] @276:27
   then [KW_THEN] @276:45
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @276:50
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00306 00016
if [KW_IF] @306:16
   expression [EXPRESSION] @0:0
      first-of [FUNC_LOGICAL] @306:19
         t-floor.floor [FIELD_INT] @306:28
   then [KW_THEN] @306:43
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00308 00016
if [KW_IF] @308:16
   expression [EXPRESSION] @0:0
      and [KW_AND] @308:30
         = [EQUALS] @308:26
            c-rate [VAR_DEC] @308:19
            ? [UNKNOWN_VAL] @308:28
         >= [GTE] @308:48
            rate.end-date [FIELD_DATE] @308:34
            today [FUNC_DATE] @308:51
   then [KW_THEN] @308:57
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates-report.p 00318 00016
if [KW_IF] @318:16
   expression [EXPRESSION] @0:0
      last-of [FUNC_LOGICAL] @318:19
         t-floor.floor [FIELD_INT] @318:27
   then [KW_THEN] @318:42
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @318:47
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00079 00004
if [KW_IF] @79:4
   expression [EXPRESSION] @0:0
      or [KW_OR] @79:18
         = [EQUALS] @79:14
            u-name [VAR_CHAR] @79:7
            ? [UNKNOWN_VAL] @79:16
         = [EQUALS] @79:28
            u-name [VAR_CHAR] @79:21
            "" [STRING] @79:30
   then [KW_THEN] @79:33
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @79:38
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00135 00007
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00169 00007
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 CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @178:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @178:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00200 00004
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00206 00004
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00223 00007
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00227 00007
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 CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @230:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @230:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rates.p 00291 00001
if [KW_IF] @291:1
   expression [EXPRESSION] @0:0
      pop-prog [VAR_LOGICAL] @291:4
   then [KW_THEN] @291:13
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00101 00004
if [KW_IF] @101:4
   expression [EXPRESSION] @0:0
      not [KW_NOT] @101:7
         avail [FUNC_LOGICAL] @101:11
            reservation [TABLE] @101:17
   then [KW_THEN] @101:30
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @101:35
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00116 00004
if [KW_IF] @116:4
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @116:7
         b-guest [BUFFER] @116:13
   then [KW_THEN] @116:22
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @116:27
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @122:4
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @122:9
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00178 00007
if [KW_IF] @178:7
   expression [EXPRESSION] @0:0
      and [KW_AND] @178:36
         and [KW_AND] @178:21
            = [EQUALS] @178:16
               g-f-n [VAR_CHAR] @178:10
               "" [STRING] @178:18
            = [EQUALS] @178:31
               g-l-n [VAR_CHAR] @178:25
               "" [STRING] @178:33
         = [EQUALS] @178:46
            g-dob [VAR_DATE] @178:40
            ? [UNKNOWN_VAL] @178:48
   then [KW_THEN] @179:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @179:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00195 00010
if [KW_IF] @195:10
   expression [EXPRESSION] @0:0
      = [EQUALS] @195:24
         t-f-guests [VAR_INT] @195:13
         1 [NUM_LITERAL] @195:26
   then [KW_THEN] @196:13
      block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @197:13
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00197 00018
if [KW_IF] @197:18
   expression [EXPRESSION] @0:0
      >= [GTE] @197:32
         t-f-guests [VAR_INT] @197:21
         2 [NUM_LITERAL] @197:35
   then [KW_THEN] @197:37
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00200 00007
if [KW_IF] @200:7
   expression [EXPRESSION] @0:0
      > [GT] @200:21
         t-f-guests [VAR_INT] @200:10
         0 [NUM_LITERAL] @200:23
   then [KW_THEN] @200:25
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @200:30
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @218:7
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @218:12
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00202 00010
if [KW_IF] @202:10
   expression [EXPRESSION] @0:0
      = [EQUALS] @202:24
         t-f-guests [VAR_INT] @202:13
         1 [NUM_LITERAL] @202:26
   then [KW_THEN] @202:28
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @202:33
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00221 00010
if [KW_IF] @221:10
   expression [EXPRESSION] @0:0
      g-add [VAR_LOGICAL] @221:13
   then [KW_THEN] @221:19
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @221:24
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00263 00004
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 CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @270:4
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00266 00007
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00272 00004
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00279 00004
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00294 00001
if [KW_IF] @294:1
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @294:4
         reservation [TABLE] @294:10
   then [KW_THEN] @294:22
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00299 00004
if [KW_IF] @299:4
   expression [EXPRESSION] @0:0
      or [KW_OR] @299:18
         = [EQUALS] @299:14
            u-name [VAR_CHAR] @299:7
            ? [UNKNOWN_VAL] @299:16
         = [EQUALS] @299:28
            u-name [VAR_CHAR] @299:21
            "" [STRING] @299:30
   then [KW_THEN] @299:33
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @299:38
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00321 00010
if [KW_IF] @321:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @321:13
         avail [FUNC_LOGICAL] @321:17
            reservation [TABLE] @321:23
   then [KW_THEN] @321:35
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @321:40
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00325 00010
if [KW_IF] @325:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @325:13
         reservation [TABLE] @325:19
   then [KW_THEN] @325:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @325:36
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00332 00010
if [KW_IF] @332:10
   expression [EXPRESSION] @0:0
      not [KW_NOT] @332:13
         avail [FUNC_LOGICAL] @332:17
            reservation [TABLE] @332:23
   then [KW_THEN] @332:35
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @332:40
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00336 00010
if [KW_IF] @336:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @336:13
         reservation [TABLE] @336:19
   then [KW_THEN] @336:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @336:36
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00344 00010
if [KW_IF] @344:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @344:13
         reservation [TABLE] @344:19
   then [KW_THEN] @344:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @344:36
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00352 00010
if [KW_IF] @352:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @352:13
         reservation [TABLE] @352:19
   then [KW_THEN] @352:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @352:36
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00385 00013
if [KW_IF] @385:13
   expression [EXPRESSION] @0:0
      and [KW_AND] @385:42
         and [KW_AND] @385:27
            = [EQUALS] @385:22
               g-f-n [VAR_CHAR] @385:16
               "" [STRING] @385:24
            = [EQUALS] @385:37
               g-l-n [VAR_CHAR] @385:31
               "" [STRING] @385:39
         = [EQUALS] @385:52
            g-dob [VAR_DATE] @385:46
            ? [UNKNOWN_VAL] @385:54
   then [KW_THEN] @386:13
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @386:18
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00406 00010
if [KW_IF] @406:10
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @406:13
         reservation [TABLE] @406:19
   then [KW_THEN] @406:31
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @406:36
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00483 00019
if [KW_IF] @483:19
   expression [EXPRESSION] @0:0
      avail [FUNC_LOGICAL] @483:22
         b-guest [BUFFER] @483:28
   then [KW_THEN] @483:36
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @483:41
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @495:19
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @495:24
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00529 00019
if [KW_IF] @529:19
   expression [EXPRESSION] @0:0
      <= [LTE] @529:46
         - [MINUS] @529:34
            total-rooms [VAR_INT] @529:22
            res-rooms [VAR_INT] @529:36
         0 [NUM_LITERAL] @529:49
   then [KW_THEN] @529:51
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @529:56
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00543 00019
if [KW_IF] @543:19
   expression [EXPRESSION] @0:0
      not [KW_NOT] @543:22
         l-r-add [VAR_LOGICAL] @543:26
   then [KW_THEN] @543:34
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00550 00013
if [KW_IF] @550:13
   expression [EXPRESSION] @0:0
      r-del [VAR_LOGICAL] @550:16
   then [KW_THEN] @550:22
      block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @551:16
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00568 00010
if [KW_IF] @568:10
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @568:31
         reservation.state [FIELD_CHAR] @568:13
         "P" [STRING] @568:34
   then [KW_THEN] @568:38
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @568:43
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @571:10
      inner block [INNER_BLOCK] @0:0
         R-CHECKIN [LABEL_DEF] @572:10
         do [KW_DO] @573:10
            transaction [KW_TRANS] @573:13
            on [KW_ON] @573:25
               error [KW_ERROR] @573:28
               undo [KW_UNDO] @573:34
               leave [KW_LEAVE] @573:40
            on [KW_ON] @574:25
               endkey [KW_ENDKEY] @574:28
               undo [KW_UNDO] @574:35
               leave [KW_LEAVE] @574:41
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00624 00022
if [KW_IF] @624:22
   expression [EXPRESSION] @0:0
      r-ok [VAR_LOGICAL] @624:25
   then [KW_THEN] @624:30
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @624:35
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @627:22
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @627:27
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00632 00019
if [KW_IF] @632:19
   expression [EXPRESSION] @0:0
      not [KW_NOT] @632:22
         avail [FUNC_LOGICAL] @632:26
            b-room [BUFFER] @632:32
   then [KW_THEN] @632:39
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @632:44
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00645 00022
if [KW_IF] @645:22
   expression [EXPRESSION] @0:0
      not [KW_NOT] @645:25
         avail [FUNC_LOGICAL] @645:29
            b-rate [BUFFER] @645:35
   then [KW_THEN] @645:42
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @645:47
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00652 00022
if [KW_IF] @652:22
   expression [EXPRESSION] @0:0
      not [KW_NOT] @652:25
         avail [FUNC_LOGICAL] @652:29
            b-rate [BUFFER] @652:35
   then [KW_THEN] @652:42
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @652:47
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @656:22
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @656:27
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00679 00010
if [KW_IF] @679:10
   expression [EXPRESSION] @0:0
      = [EQUALS] @679:31
         reservation.state [FIELD_CHAR] @679:13
         "P" [STRING] @679:33
   then [KW_THEN] @680:10
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @680:15
            transaction [KW_TRANS] @680:18
            on [KW_ON] @680:30
               error [KW_ERROR] @680:33
               undo [KW_UNDO] @680:39
               leave [KW_LEAVE] @680:45
            on [KW_ON] @681:28
               endkey [KW_ENDKEY] @681:31
               undo [KW_UNDO] @681:38
               leave [KW_LEAVE] @681:44
         block CONTENTS REMOVED... [BLOCK] @0:0
   else [KW_ELSE] @690:10
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @690:15
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00683 00013
if [KW_IF] @683:13
   expression [EXPRESSION] @0:0
      l-res-cancel [VAR_LOGICAL] @683:16
   then [KW_THEN] @683:29
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @683:34
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00698 00010
if [KW_IF] @698:10
   expression [EXPRESSION] @0:0
      l-res-del [VAR_LOGICAL] @698:13
   then [KW_THEN] @698:23
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @698:28
            transaction [KW_TRANS] @698:31
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00716 00010
if [KW_IF] @716:10
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @716:23
         selection [VAR_CHAR] @716:13
         ? [UNKNOWN_VAL] @716:26
   then [KW_THEN] @716:28
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @716:33
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00725 00004
if [KW_IF] @725:4
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @725:13
         sprog [VAR_CHAR] @725:7
         ? [UNKNOWN_VAL] @725:16
   then [KW_THEN] @725:18
      block CONTENTS REMOVED... [BLOCK] @0:0
./abl/reservations.p 00741 00001
if [KW_IF] @741:1
   expression [EXPRESSION] @0:0
      <> [NOT_EQ] @741:10
         sprog [VAR_CHAR] @741:4
         ? [UNKNOWN_VAL] @741:13
   then [KW_THEN] @741:15
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @741:20
         block CONTENTS REMOVED... [BLOCK] @0:0
./abl/rooms-add.p 00047 00004
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/rooms-add.p 00064 00007
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 CONTENTS REMOVED... [BLOCK] @0:0
./abl/rooms-overview.p 00028 00001
if [KW_IF] @28:1
   expression [EXPRESSION] @0:0
      or [KW_OR] @28:15
         = [EQUALS] @28:11
            u-name [VAR_CHAR] @28:4
            ? [UNKNOWN_VAL] @28:13
         = [EQUALS] @28:25
            u-name [VAR_CHAR] @28:18
            "" [STRING] @28:27
   then [KW_THEN] @28:30
      inner block [INNER_BLOCK] @0:0
         do [KW_DO] @28:35
         block CONTENTS REMOVED... [BLOCK] @0:0

Table of Contents Next Page

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


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