-
Notifications
You must be signed in to change notification settings - Fork 18
/
Copy pathpedit01a
204 lines (175 loc) · 5.23 KB
/
pedit01a
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
)PANEL VERSION=1 FORMAT=1
)COMMENT
EDIT colour settings panel
)ENDCOMMENT
)ABC DESC(Languages) MNEM(1)
PDC DESC(All) ACTION RUN(>LANG ALL)
PDC DESC(Assembler) ACTION RUN(>LANG ASM)
PDC DESC(Panel) ACTION RUN(>LANG PANEL)
PDC DESC(Skeleton) ACTION RUN(>LANG SKEL)
PDC DESC(C++) ACTION RUN(>LANG CPP)
PDC DESC(REXX) ACTION RUN(>LANG REXX)
PDC DESC(COBOL) ACTION RUN(>LANG COBOL)
PDC DESC(JCL) ACTION RUN(>LANG JCL)
PDC DESC(Bash) ACTION RUN(>LANG BASH)
PDC DESC(Rust) ACTION RUN(>LANG RUST)
PDC DESC(TOML) ACTION RUN(>LANG TOML)
PDC DESC(Other) ACTION RUN(>LANG OTHER)
PDC DESC(Default) ACTION RUN(>LANG DEFAULT)
)ABC DESC(Colour) MNEM(1)
PDC DESC(Overtype Colour)
ACTION RUN(>EDCCLR)
PDC DESC(Find Phrase Colour)
ACTION RUN(>EDCCLR)
PDC DESC(Cursor Phrase Colour)
ACTION RUN(>EDCCLR)
)ABCINIT
.ZVARS = PDCCSEL
&ZCCPAN = &Z
)ABCPROC
IF (&PDCCSEL EQ '1') &ZCCPAN = 'PEDIT01B'
ELSE
IF (&PDCCSEL EQ '2') &ZCCPAN = 'PEDIT01E'
ELSE
IF (&PDCCSEL EQ '3') &ZCCPAN = 'PEDIT01F'
)INCLUDE std_pdc
)INCLUDE hlp_pdc
)BODY WINDOW(80,23)
PANELTITLE 'Edit Colour Settings'
ACTIONBAR 'Display' 'Settings' 'Utilities' 'Languages' 'Colour' 'Help'
TEXT 4 2 FP 'Command ===>'
FIELD 4 15 MAX NEF PAD(USER),CAPS(ON) ZCMD1
AREA 5 1 MAX MAX SAREA1
)AREA SAREA1
TEXT 1 2 FP 'Language:'
FIELD 1 12 2 CEF PAD(USER) ZHLLANG
TEXT 1 15 SAC '1. Automatic'
TEXT 2 15 SAC '2. Assembler'
TEXT 3 15 SAC '3. Panel'
TEXT 4 15 SAC '4. Skeleton'
TEXT 5 15 SAC '5. C++'
TEXT 6 15 SAC '6. REXX'
TEXT 7 15 SAC '7. COBOL'
TEXT 8 15 SAC '8. JCL'
TEXT 9 15 SAC '9. Bash'
TEXT 10 15 SAC '10. Rust'
TEXT 11 15 SAC '11. TOML'
TEXT 12 15 SAC '12. Other'
TEXT 13 15 SAC '13. Default'
TEXT 1 36 FP 'Colouring:'
FIELD 1 47 1 CEF PAD(USER) ZCOLOUR
TEXT 1 50 SAC '1. Do not colour program'
TEXT 2 50 SAC '2. Colour program'
TEXT 3 50 SAC '3. Both IF and DO logic'
TEXT 4 50 SAC '4. DO logic'
TEXT 5 50 SAC '5. IF logic'
TEXT 7 36 PIN 'Enter / to select option'
FIELD 8 36 1 CEF PAD(USER) ZPARMTC
TEXT 8 39 SAC 'Parentheses matching'
FIELD 9 36 1 CEF PAD(USER) ZHLFIND
TEXT 9 39 SAC 'Highlight FIND strings'
FIELD 10 36 1 CEF PAD(USER) ZHLCURS
TEXT 10 39 SAC 'Highlight cursor phrase'
TEXT 14 2 CH 'Instructions'
TEXT 15 5 NT 'Press'
TEXT 15 11 ET 'End'
TEXT 15 15 NT 'to save changes'
TEXT 16 5 NT 'Enter'
TEXT 16 11 ET 'Cancel'
TEXT 16 18 NT 'to cancel changes'
)INIT
&ZCMD1 = &Z
&ZWINTTL = &Z
&ZCCPAN = &Z
.CURSOR = ZCMD1
&ZHLLANG = TRANS( &ZPROFLG,
'AUTO',1
'ASM',2
'PANEL',3
'SKEL',4
'CPP',5
'REXX',6
'COBOL',7
'JCL',8
'BASH',9
'RUST',10
'TOML',11
'OTHER',12
'DEFAULT',13
*,1
)
IF (&ZPROFHI EQ 'NO')
&ZCOLOUR = 1
ELSE
IF (&ZPROFIF EQ 'NO')
IF (&ZPROFDO EQ 'YES')
&ZCOLOUR = 4
ELSE
&ZCOLOUR = 2
ELSE
IF (&ZPROFDO EQ 'NO')
&ZCOLOUR = 5
ELSE
&ZCOLOUR = 3
)PROC
IF (&ZCMD1 EQ 'EDCCLR' AND &ZCCPAN NE &Z) EXIT
&AAA = TRUNC(&ZCMD1,' ')
IF (&AAA EQ 'LANG' )
IF (.TRAIL NE ALL,ASM,PANEL,SKEL,CPP,REXX,COBOL,JCL,BASH,OTHER,RUST,TOML,DEFAULT)
.MSG = PSYS018
.CURSOR = ZCMD1
EXIT
IF (&ZCMD1 NE &Z)
.MSG = PSYS018
.CURSOR = ZCMD1
EXIT
VER (&ZHLLANG,NB,RANGE,1,11)
VER (&ZCOLOUR,NB,RANGE,1,5)
&ZPROFLG = TRANS( &ZHLLANG,
1,'AUTO'
2,'ASM'
3,'PANEL'
4,'SKEL'
5,'CPP'
6,'REXX'
7,'COBOL'
8,'JCL'
9,'BASH'
10,'RUST'
11,'TOML'
12,'OTHER'
13,'DEFAULT'
)
IF ( &ZCOLOUR EQ 1 )
&ZPROFHI = 'NO'
ELSE
IF ( &ZCOLOUR EQ 2 )
&ZPROFHI = 'YES'
&ZPROFIF = 'NO'
&ZPROFDO = 'NO'
ELSE
IF ( &ZCOLOUR EQ 3 )
&ZPROFHI = 'YES'
&ZPROFIF = 'YES'
&ZPROFDO = 'YES'
ELSE
IF ( &ZCOLOUR EQ 4 )
&ZPROFHI = 'YES'
&ZPROFIF = 'NO'
&ZPROFDO = 'YES'
ELSE
IF ( &ZCOLOUR EQ 5 )
&ZPROFHI = 'YES'
&ZPROFIF = 'YES'
&ZPROFDO = 'NO'
&ZPARMTC = TRANS( &ZPARMTC &Z,&Z *,/ )
&ZHLFIND = TRANS( &ZHLFIND &Z,&Z *,/ )
&ZHLCURS = TRANS( &ZHLCURS &Z,&Z *,/ )
IF (.RESP = END AND .MSG NE &Z )
&ZVERB = 'CANCEL'
VPUT ZVERB SHARED
)END
/* -------------------------------------------------------- */
/* lspf - ISPF for Linux */
/* Copyright (C) 2021 GPL V3 - Daniel John Erdos */
/* -------------------------------------------------------- */