-
Notifications
You must be signed in to change notification settings - Fork 4
/
simpleMenu.rpgle
executable file
·100 lines (85 loc) · 2.44 KB
/
simpleMenu.rpgle
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
<%@ language="RPGLE" %>
<%
ctl-opt copyright('System & Method (C), 2019');
ctl-opt decEdit('0,') datEdit(*YMD.) main(main);
/* -----------------------------------------------------------------------------
Simple REST - showcase that injection is not possible
Simple menu using static JSON data
Run from the browser:
http://sandbox.icebreak.org:60060/simpleMenu.rpgle
By Date PTF Description
------ ---------- ------- ---------------------------------------------------
MOP 04.04.2019 New program
----------------------------------------------------------------------------- */
dcl-proc main;
dcl-s name varchar(30);
// We will produce JSON in UTF-8 format
setContentType('application/json;charset=UTF-8');
name = 'joblog';
%>
[
{
"id": "MNU0",
"text": "Links on the net",
"leaf": false,
"cls": "folder",
"icon": "/icebreak-admin/system/images/extjstree/server_earth.gif",
"expanded": false,
"children": [
{
"id": "MNU0.1",
"text": "Bing",
"leaf": true,
"icon": "/icebreak-admin/system/images/extjstree/server_earth.gif",
"url": "http://www.bing.com"
}
]
},
{
"id": "MNU1",
"text": "Programmers guide",
"leaf": false,
"cls": "folder",
"icon": "/icebreak-admin/system/images/extjstree/folder_cubes.gif",
"expanded": false,
"children": [
{
"id": "MNU1.1",
"text": "Work with servers",
"leaf": true,
"icon": "/icebreak-admin/system/images/extjstree/server_earth.gif",
"url": "/icebreak-admin/system/wrksvr.rpgle"
},
{
"id": "MNU1.2",
"text": "Display current server",
"leaf": true,
"icon": "/icebreak-admin/system/images/extjstree/server_information.gif",
"url": "/icebreak-admin/system/dspsvrinf.rpgle"
},
{
"id": "MNU1.3",
"text": "Display all servers",
"leaf": true,
"icon": "/icebreak-admin/system/images/extjstree/server_view.gif",
"url": "/icebreak-admin/system/dspallsvr.rpgle"
},
{
"id": "MNU1.4",
"text": "Display header",
"leaf": true,
"icon": "/icebreak-admin/system/images/extjstree/document_preferences.gif",
"url": "/icebreak-admin/system/dsphdrinf.rpgle"
},
{
"id": "MNU1.5",
"text": "<%= name %>",
"leaf": true,
"icon": "/icebreak-admin/system/images/extjstree/document_info.gif",
"url": "/icebreak-admin/system/dspjoblog.rpgle"
}
]
}
]
<%
end-proc;