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
|