|
118 | 118 | "prefix": "dcl-ds-ext",
|
119 | 119 | "description": "Declare external structure",
|
120 | 120 | "body": [
|
121 |
| - "dcl-ds ${1:name} ExtName('${2:object}') Qualified;", |
| 121 | + "dcl-ds ${1:name} ExtName('${2:object}') qualified;", |
122 | 122 | "end-ds;",
|
123 | 123 | "$0"
|
124 | 124 | ]
|
|
187 | 187 | "description": "SQL cursor loop",
|
188 | 188 | "scope": "rpgle",
|
189 | 189 | "body": [
|
190 |
| - "Dcl-Ds $3 ExtName('$3') Alias Qualified;", |
191 |
| - "End-Ds;", |
| 190 | + "dcl-ds $3 extname('$3') alias qualified;", |
| 191 | + "end-ds;", |
192 | 192 | "",
|
193 | 193 | "EXEC SQL",
|
194 | 194 | " DECLARE $1 CURSOR FOR",
|
|
201 | 201 | "EXEC SQL",
|
202 | 202 | " FETCH NEXT FROM $1 INTO $4;",
|
203 | 203 | "",
|
204 |
| - "Dow SQLSTATE = '00000';", |
| 204 | + "dow SQLSTATE = '00000';", |
205 | 205 | " --note 00000 = no errors or warning",
|
206 | 206 | " -- 02000 = no data",
|
207 | 207 | " <do somthing?>",
|
208 | 208 | " EXEC SQL",
|
209 | 209 | " FETCH NEXT FROM $1 INTO $4;",
|
210 |
| - "ENDDO;", |
| 210 | + "enddo;", |
211 | 211 | "",
|
212 | 212 | "EXEC SQL",
|
213 | 213 | " CLOSE $1;",
|
|
225 | 225 | "description": "The basic definitions for a display file with a subfield",
|
226 | 226 | "scope": "rpgle",
|
227 | 227 | "body": [
|
228 |
| - "Dcl-F ${1:displayfile} WORKSTN Sfile(SFLDta:Rrn) IndDS(WkStnInd) InfDS(fileinfo);", |
| 228 | + "dcl-f ${1:displayfile} workstn sfile(SFLDta:Rrn) indds(WkStnInd) infds(fileinfo);", |
229 | 229 | "",
|
230 |
| - "Dcl-S Rrn Zoned(4:0) Inz;", |
| 230 | + "dcl-s Rrn zoned(4:0) inz;", |
231 | 231 | "",
|
232 |
| - "Dcl-DS WkStnInd;", |
233 |
| - " ProcessSCF Ind Pos(21);", |
234 |
| - " ReprintScf Ind Pos(22);", |
235 |
| - " Error Ind Pos(25);", |
236 |
| - " PageDown Ind Pos(30);", |
237 |
| - " PageUp Ind Pos(31);", |
238 |
| - " SflEnd Ind Pos(40);", |
239 |
| - " SflBegin Ind Pos(41);", |
240 |
| - " NoRecord Ind Pos(60);", |
241 |
| - " SflDspCtl Ind Pos(85);", |
242 |
| - " SflClr Ind Pos(75);", |
243 |
| - " SflDsp Ind Pos(95);", |
244 |
| - "End-DS;", |
| 232 | + "dcl-ds WkStnInd;", |
| 233 | + " ProcessSCF ind pos(21);", |
| 234 | + " ReprintScf ind pos(22);", |
| 235 | + " Error ind pos(25);", |
| 236 | + " PageDown ind pos(30);", |
| 237 | + " PageUp ind pos(31);", |
| 238 | + " SflEnd ind pos(40);", |
| 239 | + " SflBegin ind pos(41);", |
| 240 | + " NoRecord ind pos(60);", |
| 241 | + " SflDspCtl ind pos(85);", |
| 242 | + " SflClr ind pos(75);", |
| 243 | + " SflDsp ind pos(95);", |
| 244 | + "end-ds;", |
245 | 245 | "",
|
246 |
| - "Dcl-DS FILEINFO;", |
247 |
| - " FUNKEY Char(1) Pos(369);", |
248 |
| - "End-DS;", |
| 246 | + "dcl-ds FILEINFO;", |
| 247 | + " FUNKEY char(1) pos(369);", |
| 248 | + "end-ds;", |
249 | 249 | ]
|
250 | 250 | },
|
251 | 251 | "workstation-function-keys": {
|
252 | 252 | "prefix": "workstation-function-keys",
|
253 | 253 | "description": "Function key constants for display files",
|
254 | 254 | "scope": "rpgle",
|
255 | 255 | "body": [
|
256 |
| - "Dcl-C F01 X'31';", |
257 |
| - "Dcl-C F02 X'32';", |
258 |
| - "Dcl-C F03 X'33';", |
259 |
| - "Dcl-C F04 X'34';", |
260 |
| - "Dcl-C F05 X'35';", |
261 |
| - "Dcl-C F06 X'36';", |
262 |
| - "Dcl-C F07 X'37';", |
263 |
| - "Dcl-C F08 X'38';", |
264 |
| - "Dcl-C F09 X'39';", |
265 |
| - "Dcl-C F10 X'3A';", |
266 |
| - "Dcl-C F11 X'3B';", |
267 |
| - "Dcl-C F12 X'3C';", |
268 |
| - "Dcl-C F13 X'B1';", |
269 |
| - "Dcl-C F14 X'B2';", |
270 |
| - "Dcl-C F15 X'B3';", |
271 |
| - "Dcl-C F16 X'B4';", |
272 |
| - "Dcl-C F17 X'B5';", |
273 |
| - "Dcl-C F18 X'B6';", |
274 |
| - "Dcl-C F19 X'B7';", |
275 |
| - "Dcl-C F20 X'B8';", |
276 |
| - "Dcl-C F21 X'B9';", |
277 |
| - "Dcl-C F22 X'BA';", |
278 |
| - "Dcl-C F24 X'BC';", |
279 |
| - "Dcl-C ENTER X'F1';", |
280 |
| - "Dcl-C HELP X'F3';", |
281 |
| - "Dcl-C PRINT X'F6';", |
| 256 | + "dcl-c F01 x'31';", |
| 257 | + "dcl-c F02 x'32';", |
| 258 | + "dcl-c F03 x'33';", |
| 259 | + "dcl-c F04 x'34';", |
| 260 | + "dcl-c F05 x'35';", |
| 261 | + "dcl-c F06 x'36';", |
| 262 | + "dcl-c F07 x'37';", |
| 263 | + "dcl-c F08 x'38';", |
| 264 | + "dcl-c F09 x'39';", |
| 265 | + "dcl-c F10 x'3A';", |
| 266 | + "dcl-c F11 x'3B';", |
| 267 | + "dcl-c F12 x'3C';", |
| 268 | + "dcl-c F13 x'B1';", |
| 269 | + "dcl-c F14 x'B2';", |
| 270 | + "dcl-c F15 x'B3';", |
| 271 | + "dcl-c F16 x'B4';", |
| 272 | + "dcl-c F17 x'B5';", |
| 273 | + "dcl-c F18 x'B6';", |
| 274 | + "dcl-c F19 x'B7';", |
| 275 | + "dcl-c F20 x'B8';", |
| 276 | + "dcl-c F21 x'B9';", |
| 277 | + "dcl-c F22 x'BA';", |
| 278 | + "dcl-c F24 x'BC';", |
| 279 | + "dcl-c ENTER x'F1';", |
| 280 | + "dcl-c HELP x'F3';", |
| 281 | + "dcl-c PRINT x'F6';", |
282 | 282 | ]
|
283 | 283 | },
|
284 | 284 | "%abs": {
|
|
0 commit comments