1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
| FUNCTION WS_QUERY.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(ENVIRONMENT) TYPE C OPTIONAL
*" VALUE(FILENAME) TYPE C OPTIONAL
*" VALUE(QUERY) TYPE C
*" VALUE(WINID) TYPE C OPTIONAL
*" EXPORTING
*" VALUE(RETURN)
*" EXCEPTIONS
*" INV_QUERY
*" NO_BATCH
*" FRONTEND_ERROR
*"----------------------------------------------------------------------
* check FILENAME NOT INITIAL : FL GL 11.8.1994
* : FE
* : DE
* check WINID NOT INITIAL : WI ==> INV_QUERY
DATA: GUI_EXIST TYPE C VALUE SPACE.
CALL FUNCTION 'GUI_IS_AVAILABLE'
IMPORTING
RETURN = GUI_EXIST.
IF GUI_EXIST IS INITIAL.
RAISE NO_BATCH.
ENDIF.
* Apple-Macintosh File-Creator
IF QUERY = 'FC' AND FILENAME IS INITIAL.
RETURN = '0'.
EXIT.
ENDIF.
IF QUERY = 'FE' AND FILENAME IS INITIAL.
RETURN = '0'. "// ex. nicht
EXIT.
ENDIF.
IF QUERY = 'FL' AND FILENAME IS INITIAL.
RETURN = '0'. "// länge 0
EXIT.
ENDIF.
IF QUERY = 'DE' AND FILENAME IS INITIAL.
RETURN = '0'. "// ex. nicht
EXIT.
ENDIF.
* ITS-Weiche; UF: 27.11.01 ***********************
data its.
CALL FUNCTION 'GUI_IS_ITS'
IMPORTING
return = its.
IF NOT its IS INITIAL.
CASE QUERY.
WHEN 'DE' OR 'FE' OR 'FL' OR 'CD'.
CALL FUNCTION 'ITS_QUERY'
EXPORTING
environment = environment
filename = filename
query = query
withendseparator = 'X'
IMPORTING
return = return.
WHEN 'WS'.
return = 'ITS'.
WHEN 'XP' OR 'EN'.
return = ''.
WHEN 'OS'.
return = 'NT'. "// TODO extract client OS from ITS context
WHEN 'LF'.
"// TODO extract client OS from ITS context and set LINEFEED based on client OS
return = ''.
ENDCASE.
EXIT.
ENDIF.
* FT is an undocumented Feature only to be used by motif-screenpainter
*
* The File MUST exist
* The Query MUST only run under Unix !!
IF QUERY = 'FT' AND FILENAME IS INITIAL.
RETURN = '----'. "// ex. nicht DRWX
EXIT.
ENDIF.
DATA: TEXT(150), LEN LIKE SY-FDPOS.
FIELD-SYMBOLS: .
DATA: TMP_RETURN(255).
IF SY-BATCH NE SPACE. "// GL 8.2.1994
RAISE NO_BATCH.
ENDIF.
*
* GL 9.9.94: use SET / GET Parameter to store WS, OS, CD, XP
*
* Do NOT use parameter with 'CD' because directory can change !!
* when using Windows-Fileselector
* GL 21.3.1995
GET PARAMETER ID 'GR0' FIELD SAVE_WS.
GET PARAMETER ID 'GR1' FIELD SAVE_OS.
GET PARAMETER ID 'GR2' FIELD SAVE_CD.
GET PARAMETER ID 'GR3' FIELD SAVE_XP.
GET PARAMETER ID 'GR4' FIELD SAVE_CD_FLAG.
GET PARAMETER ID 'GR5' FIELD SAVE_XP_FLAG.
GET PARAMETER ID 'GR7' FIELD SAVE_GM. "// 4 Byte
DATA: QUERY_LF(1).
DATA: LINEFEED(2).
DATA: BEGIN OF LF_WN, "// windows, 0x0d 0x0a
X(2) TYPE X VALUE '0D0A',
END OF LF_WN.
DATA: BEGIN OF LF_MF, "// motif, 0x0a
X(1) TYPE X VALUE '0A',
END OF LF_MF.
DATA: BEGIN OF LF_PM, "// PM, 0x0d 0x0a
X(2) TYPE X VALUE '0D0A',
END OF LF_PM.
DATA: BEGIN OF LF_MC, "// Mac
X(1) TYPE X VALUE '0D',
END OF LF_MC.
CLEAR: QUERY_LF, LINEFEED.
* check 'First Call' to get information about 'NOGRAPH'
IF SAVE_WS IS INITIAL.
CALL 'C_GUI_SUPPORT' ID 'FEATURE' FIELD 'NOGRAPH'
ID 'VALUE' FIELD SY-SUBRC.
* SY-SUBRC = 1. "// Test only
IF SY-SUBRC EQ 1.
SAVE_WS = NOGRAPH.
SET PARAMETER ID 'GR0' FIELD SAVE_WS.
* SAVE_OS = 'NT'.
* SET PARAMETER ID 'GR1' FIELD SAVE_OS.
ENDIF.
ENDIF.
* Handle Query without GMUX
* GL 18.07.1996
IF SAVE_WS = NOGRAPH.
CASE QUERY.
WHEN 'WS'.
RETURN = SAVE_WS.
EXIT.
* WHEN 'CD'. "// any meaningful value ?
* WHEN 'OS'.
* SAVE_OS = 'NT'.
* SET PARAMETER ID 'GR1' FIELD SAVE_OS.
* return = SAVE_OS.
* exit.
* WHEN 'EN'.
* WHEN 'XP'.
WHEN OTHERS.
RAISE FRONTEND_ERROR.
ENDCASE.
ENDIF.
* GL 4.12.1996: Try to get Windows-Version using RFC
* GL 4.12.1997: unfortunately, this does't work for Win95 => WN32_95
* if save_ws is initial.
* data: rfcsi_export like rfcsi.
* call function 'RFC_SYSTEM_INFO' destination 'SAPGUI'
* importing
* rfcsi_export = rfcsi_export
* exceptions
* others = 1.
* if sy-subrc ne 0.
* clear rfcsi_export.
* endif.
* if rfcsi_export-rfcopsys(10) = 'Windows NT'.
* save_ws = 'WN32'.
* set parameter id 'GR0' field save_ws.
* save_os = 'NT'.
* set parameter id 'GR1' field save_os.
* endif.
* endif.
IF QUERY = 'LF'. "// Linefeed-string
QUERY = 'WS'.
QUERY_LF = 'x'.
ENDIF.
IF QUERY = 'WS' AND SAVE_WS NE SPACE.
IF QUERY_LF IS INITIAL.
RETURN = SAVE_WS.
EXIT.
ELSE.
* get LF-String here
field-symbols: type x, type x.
assign linefeed to casting.
CASE SAVE_WS(2).
WHEN 'MF'. "// Motif
assign LF_MF to casting.
WHEN 'PM'. "// Os/2
assign LF_PM to casting.
WHEN 'WN'. "// Windows
assign LF_WN to casting.
WHEN 'MC'. "// Macintosh
assign LF_MC to casting.
ENDCASE.
move to .
RETURN = LINEFEED.
EXIT.
ENDIF.
ENDIF.
IF QUERY = 'OS' AND SAVE_OS NE SPACE.
RETURN = SAVE_OS.
EXIT.
ENDIF.
* IF QUERY = 'CD' AND SAVE_CD_FLAG NE SPACE. "// disabled 21.3.95
* RETURN = SAVE_CD.
* EXIT.
* ENDIF.
IF QUERY = 'XP' AND SAVE_XP_FLAG NE SPACE.
RETURN = SAVE_XP.
EXIT.
ENDIF.
IF QUERY = 'GM' AND SAVE_GM NE SPACE.
RETURN = SAVE_GM.
EXIT.
ENDIF.
DATA nDone TYPE I VALUE 0.
CLEAR TMP_RETURN.
CASE QUERY.
WHEN 'WS'.
PERFORM QueryWrap_WS CHANGING TMP_RETURN nDone.
WHEN 'OS'.
IF SAVE_WS IS INITIAL.
PERFORM QueryWrap_WS CHANGING SAVE_WS nDone.
ENDIF.
PERFORM QueryWrap_OS USING SAVE_WS CHANGING TMP_RETURN nDone.
WHEN 'CD'.
PERFORM QueryWrap_CD CHANGING TMP_RETURN nDone.
WHEN 'EN'.
PERFORM QueryWrap_EN USING ENVIRONMENT CHANGING TMP_RETURN nDone.
WHEN 'FL'.
PERFORM QueryWrap_FL USING FILENAME CHANGING TMP_RETURN nDone.
WHEN 'FE'.
PERFORM QueryWrap_FE USING FILENAME CHANGING TMP_RETURN nDone.
WHEN 'DE'.
PERFORM QueryWrap_DE USING FILENAME CHANGING TMP_RETURN nDone.
WHEN 'XP'.
PERFORM QueryWrap_XP CHANGING TMP_RETURN nDone.
ENDCASE.
IF nDone = -1.
RAISE FRONTEND_ERROR.
ENDIF.
IF nDone = 1.
RETURN = TMP_RETURN.
ENDIF.
IF nDone = 0.
CLEAR TEXT.
CASE QUERY.
WHEN 'WS'. "// Windowsystem
* called only first time, when SAVE_WS was initial
* AND it is NOT a NOGRAPH - Gui
PERFORM GR_SEND USING 'B' 'QURY'."// PM, WN, NT, MF, MC
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'W ' TO TEXT.
WHEN 'CD'. "// Directory
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'P ' TO TEXT.
WHEN 'EN'. "// Environment
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'E ' TO TEXT.
WRITE ENVIRONMENT TO TEXT+2.
WHEN 'FL'. "// Filelength
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'FL' TO TEXT.
WRITE FILENAME TO TEXT+3.
WHEN 'FE'. "// Filename exist
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'F ' TO TEXT.
WRITE FILENAME TO TEXT+2.
WHEN 'FC'. "// Filename Creator (Apple)
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'FC ' TO TEXT.
WRITE FILENAME TO TEXT+3.
WHEN 'FT'. "// Filetype/Status UNIX only !!
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'FT ' TO TEXT.
WRITE FILENAME TO TEXT+3.
WHEN 'DE'. "// Directory exist GL 8.6.1994
* IF FILENAME IS INITIAL.
* RAISE INV_QUERY.
* ENDIF.
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'D ' TO TEXT.
WRITE FILENAME TO TEXT+2.
WHEN 'OS'. "// Operating System
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'O ' TO TEXT.
WHEN 'WI'. "// WindowId
IF WINID IS INITIAL.
RAISE INV_QUERY.
ENDIF.
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'I ' TO TEXT.
WRITE WINID TO TEXT+2.
WHEN 'XP'. "// eXecute-Path
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'X ' TO TEXT.
WHEN 'GM'. "// GMUX-Version
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'G ' TO TEXT.
WHEN 'RC'. "// Last Returncode
PERFORM GR_SEND USING 'B' 'QURY'.
PERFORM GR_SEND USING 'I' 'QURY'.
WRITE 'R ' TO TEXT.
* WHEN 'FN'. "// Get Filename OPEN
* Filename-Query (Fileselektor-Box) NUR über WS_FILENAME_GET
* GL 21.4.1994
WHEN OTHERS.
RAISE INV_QUERY.
ENDCASE.
PERFORM GR_SEND_C USING TEXT.
CLEAR RETURN.
CLEAR TMP_RETURN.
CALL FUNCTION 'GRAPH_RECEIVE'.
CALL FUNCTION 'GRAPH_GET_PARAM'
IMPORTING
RBUFF = TEXT. "// RC=
LEN = STRLEN( TEXT ) - 4. "// Skip 'RC='
IF LEN GT 0.
ASSIGN TEXT+3(LEN) TO .
IF CA HEXNUL. "// only until
ASSIGN (SY-FDPOS) TO .
ENDIF.
TMP_RETURN = . "// long enough !!!
RETURN = TMP_RETURN. "// set returncode, maybe shorter
ELSE.
CLEAR RETURN.
CLEAR TMP_RETURN.
ENDIF.
ENDIF.
* fill parameters, if necessary
* modify returnvalue, if needed (LF)
CASE QUERY.
WHEN 'WS'.
SAVE_WS = TMP_RETURN.
SET PARAMETER ID 'GR0' FIELD SAVE_WS. "// GL 9.9.94
IF NOT QUERY_LF IS INITIAL. "// GL 18.3.95
* get LF-String here
assign linefeed to casting.
CASE SAVE_WS(2).
WHEN 'MF'. "// Motif
assign LF_MF to casting.
WHEN 'PM'. "// Os/2
assign LF_PM to casting.
WHEN 'WN'. "// Windows
assign LF_WN to casting.
WHEN 'MC'. "// Macintosh
assign LF_MC to casting.
ENDCASE.
move to .
RETURN = LINEFEED.
ENDIF.
WHEN 'OS'.
SAVE_OS = TMP_RETURN.
SET PARAMETER ID 'GR1' FIELD SAVE_OS. "// GL 9.9.94
WHEN 'CD'.
SAVE_CD = TMP_RETURN.
SAVE_CD_FLAG = 'x'.
SET PARAMETER ID 'GR2' FIELD SAVE_CD. "// GL 9.9.94
SET PARAMETER ID 'GR4' FIELD SAVE_CD_FLAG. "// GL 9.9.94
WHEN 'XP'.
SAVE_XP = TMP_RETURN.
SAVE_XP_FLAG = 'x'.
SET PARAMETER ID 'GR3' FIELD SAVE_XP. "// GL 9.9.94
SET PARAMETER ID 'GR5' FIELD SAVE_XP_FLAG. "// GL 9.9.94
WHEN 'GM'.
SAVE_GM = TMP_RETURN.
SET PARAMETER ID 'GR7' FIELD SAVE_GM. "// store 4 Bytes
RETURN = SAVE_GM. "// return 4 Bytes
WHEN OTHERS.
ENDCASE.
IF nDone = 0.
PERFORM GR_SEND USING 'K' 'QURY'.
CALL FUNCTION 'GRAPH_RECEIVE' "// just wait.
EXCEPTIONS
FRONTEND_ERROR = 01.
CASE SY-SUBRC.
WHEN 1.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4
RAISING FRONTEND_ERROR.
ENDCASE.
ENDIF.
ENDFUNCTION.
FORM QueryWrap_CD CHANGING RETURN
nDone TYPE I.
DATA ret TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_GET_CURRENT
CHANGING
CURRENT_DIRECTORY = ret
EXCEPTIONS
DIRECTORY_GET_CURRENT_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
others = 5.
CALL METHOD CL_GUI_CFW=>FLUSH.
IF SY-SUBRC <> 0.
nDone = -1.
ELSE.
nDone = 1.
ENDIF.
IF nDone = 1.
IF SAVE_WS IS INITIAL.
PERFORM QueryWrap_WS CHANGING SAVE_WS nDone.
ENDIF.
CASE SAVE_WS.
WHEN 'WN32_95'.
CONCATENATE ret '\' INTO ret in CHARACTER MODE.
WHEN 'WN32_98'.
CONCATENATE ret '\' INTO ret in CHARACTER MODE.
WHEN 'WN32'.
CONCATENATE ret '\' INTO ret in CHARACTER MODE.
WHEN 'MC'.
CONCATENATE ret ':' INTO ret in CHARACTER MODE.
WHEN 'PM'.
CONCATENATE ret '\' INTO ret in CHARACTER MODE.
WHEN 'MF'.
CONCATENATE ret '/' INTO ret in CHARACTER MODE.
ENDCASE.
ENDIF.
RETURN = ret.
ENDFORM. " QueryWrap_CD |
guiXT dump le systeme
Répondre avec citation
Partager