1
|
DEF VAR ed AS CHARACTER VIEW-AS EDITOR
|
2
|
SCROLLBAR-HORIZONTAL
|
3
|
SCROLLBAR-VERTICAL
|
4
|
INNER-CHARS 20
|
5
|
INNER-LINES 4
|
6
|
LABEL "Editor".
|
7
|
DEF BUTTON btnOK LABEL "OK".
|
8
|
DEF BUTTON btnDebug LABEL "Debug".
|
9
|
|
10
|
DEF FRAME fr ed SKIP btnOK btnDebug.
|
11
|
|
12
|
DEF VAR h AS HANDLE.
|
13
|
h = ed:HANDLE IN FRAME fr.
|
14
|
h:READ-ONLY = true.
|
15
|
h:INSERT-STRING("01234567890012345678900123456789001234567890").
|
16
|
ENABLE ALL WITH FRAME fr NO-LABEL THREE-D.
|
17
|
|
18
|
/*
|
19
|
message "ENTRY-TYPES-LIST = " LOG-MANAGER:ENTRY-TYPES-LIST.
|
20
|
message "LOG-ENTRY-TYPES = " LOG-MANAGER:LOG-ENTRY-TYPES.
|
21
|
message "LOG-THRESHOLD = " LOG-MANAGER:LOG-THRESHOLD.
|
22
|
message "LOGFILE-NAME = " LOG-MANAGER:LOGFILE-NAME.
|
23
|
message "NUM-LOG-FILES = " LOG-MANAGER:NUM-LOG-FILES.
|
24
|
message "LOGGING-LEVEL = " LOG-MANAGER:LOGGING-LEVEL.
|
25
|
*/
|
26
|
|
27
|
SESSION:APPL-ALERT-BOXES = TRUE.
|
28
|
SESSION:DEBUG-ALERT = FALSE.
|
29
|
|
30
|
/*
|
31
|
DEF VAR l AS LOGICAL.
|
32
|
MESSAGE "X" VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO-CANCEL SET l /* AUTO-RETURN */.
|
33
|
MESSAGE "result:" l.
|
34
|
MESSAGE "X" /*VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO-CANCEL*/ SET l /* AUTO-RETURN */.
|
35
|
MESSAGE "result:" l.
|
36
|
*/
|
37
|
|
38
|
|
39
|
RUN Q1(1).
|
40
|
RUN P1.
|
41
|
|
42
|
SESSION:DEBUG-ALERT = NOT SESSION:DEBUG-ALERT.
|
43
|
|
44
|
RUN Q1(2).
|
45
|
RUN P1.
|
46
|
|
47
|
SESSION:DEBUG-ALERT = NOT SESSION:DEBUG-ALERT.
|
48
|
|
49
|
RUN Q1(3).
|
50
|
RUN P1.
|
51
|
|
52
|
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.
|
53
|
|
54
|
PROCEDURE P1.
|
55
|
RUN P2.
|
56
|
END.
|
57
|
|
58
|
PROCEDURE P2.
|
59
|
RUN P3.
|
60
|
END.
|
61
|
|
62
|
PROCEDURE P3.
|
63
|
RUN P4.
|
64
|
END.
|
65
|
|
66
|
PROCEDURE P4.
|
67
|
h:SET-SELECTION(0,0).
|
68
|
END.
|
69
|
|
70
|
PROCEDURE Q1.
|
71
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
72
|
RUN Q2(n).
|
73
|
END.
|
74
|
|
75
|
PROCEDURE Q2.
|
76
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
77
|
RUN Q3(n).
|
78
|
END.
|
79
|
|
80
|
PROCEDURE Q3.
|
81
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
82
|
RUN Q4(n).
|
83
|
END.
|
84
|
|
85
|
PROCEDURE Q4.
|
86
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
87
|
RUN Q5(n).
|
88
|
END.
|
89
|
|
90
|
PROCEDURE Q5.
|
91
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
92
|
RUN Q6(n).
|
93
|
END.
|
94
|
|
95
|
PROCEDURE Q6.
|
96
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
97
|
RUN Q7(n).
|
98
|
END.
|
99
|
|
100
|
PROCEDURE Q7.
|
101
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
102
|
RUN Q8(n).
|
103
|
END.
|
104
|
|
105
|
PROCEDURE Q8.
|
106
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
107
|
RUN Q9(n).
|
108
|
END.
|
109
|
|
110
|
PROCEDURE Q9.
|
111
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
112
|
RUN QA(n).
|
113
|
END.
|
114
|
|
115
|
PROCEDURE QA.
|
116
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
117
|
RUN QB(n).
|
118
|
END.
|
119
|
|
120
|
PROCEDURE QB.
|
121
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
122
|
RUN QC(n).
|
123
|
END.
|
124
|
|
125
|
PROCEDURE QC.
|
126
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
127
|
RUN QD(n).
|
128
|
END.
|
129
|
|
130
|
PROCEDURE QD.
|
131
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
132
|
RUN QE(n).
|
133
|
END.
|
134
|
|
135
|
PROCEDURE QE.
|
136
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
137
|
RUN QF(n).
|
138
|
END.
|
139
|
|
140
|
PROCEDURE QF.
|
141
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
142
|
RUN QG(n).
|
143
|
END.
|
144
|
|
145
|
PROCEDURE QG.
|
146
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
147
|
RUN QH(n).
|
148
|
END.
|
149
|
|
150
|
PROCEDURE QH.
|
151
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
152
|
RUN QI(n).
|
153
|
END.
|
154
|
|
155
|
PROCEDURE QI.
|
156
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
157
|
RUN QJ(n).
|
158
|
END.
|
159
|
|
160
|
PROCEDURE QJ.
|
161
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
162
|
RUN QK(n).
|
163
|
END.
|
164
|
|
165
|
PROCEDURE QK.
|
166
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
167
|
RUN QL(n).
|
168
|
END.
|
169
|
|
170
|
PROCEDURE QL.
|
171
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
172
|
RUN QM(n).
|
173
|
END.
|
174
|
|
175
|
PROCEDURE QM.
|
176
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
177
|
RUN QN(n).
|
178
|
END.
|
179
|
|
180
|
PROCEDURE QN.
|
181
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
182
|
RUN QO(n).
|
183
|
END.
|
184
|
|
185
|
PROCEDURE QO.
|
186
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
187
|
RUN QP(n).
|
188
|
END.
|
189
|
|
190
|
PROCEDURE QP.
|
191
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
192
|
RUN QQ(n).
|
193
|
END.
|
194
|
|
195
|
PROCEDURE QQ.
|
196
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
197
|
RUN QR(n).
|
198
|
END.
|
199
|
|
200
|
PROCEDURE QR.
|
201
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
202
|
RUN QZ(n).
|
203
|
END.
|
204
|
|
205
|
PROCEDURE QS.
|
206
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
207
|
RUN QT(n).
|
208
|
END.
|
209
|
|
210
|
PROCEDURE QT.
|
211
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
212
|
RUN QU(n).
|
213
|
END.
|
214
|
|
215
|
PROCEDURE QU.
|
216
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
217
|
RUN QV(n).
|
218
|
END.
|
219
|
|
220
|
PROCEDURE QV.
|
221
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
222
|
RUN QF(n).
|
223
|
END.
|
224
|
|
225
|
PROCEDURE QW.
|
226
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
227
|
RUN QX(n).
|
228
|
END.
|
229
|
|
230
|
PROCEDURE QX.
|
231
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
232
|
RUN QY(n).
|
233
|
END.
|
234
|
|
235
|
PROCEDURE QY.
|
236
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
237
|
RUN QZ(n).
|
238
|
END.
|
239
|
|
240
|
PROCEDURE QZ.
|
241
|
DEFINE INPUT PARAMETER n AS INT NO-UNDO.
|
242
|
MESSAGE n "SESSION:DEBUG-ALERT =" SESSION:DEBUG-ALERT.
|
243
|
END.
|