Snippets for display file

Signed-off-by: Liam Allan <[email protected]>

Author: worksofliam

schemas/rpgle.code-snippets

@@ -22,14 +22,14 @@
 			"endif;"
 		]
 	},
-  "ifelse": {
+	"ifelse": {
 		"prefix": "ifelse",
 		"description": "If else block",
 		"body": [
 			"if (${1});",
 			"  $0",
-      "else;",
-      " ",
+			"else;",
+			" ",
 			"endif;"
 		]
 	},
@@ -60,7 +60,7 @@
 			"endfor;"
 		]
 	},
-  "foreach": {
+	"foreach": {
 		"prefix": "foreach",
 		"description": "The FOR-EACH operation begins a group of operations to process the items in the array, sub-array, or %LIST one at a time.",
 		"body": [
@@ -109,7 +109,7 @@
 			"$0"
 		]
 	},
-  "prototype": {
+	"prototype": {
 		"prefix": "dcl-pr",
 		"body": [
 			"dcl-pr $1 extpgm('$2');",
@@ -131,7 +131,7 @@
 		],
 		"description": "Create prototype for external program"
 	},
-  "subroutine": {
+	"subroutine": {
 		"prefix": "begsr",
 		"body": [
 			"begsr $1;",
@@ -140,7 +140,7 @@
 		],
 		"description": "Create subroutine."
 	},
-  "monitor": {
+	"monitor": {
 		"prefix": "monitor",
 		"body": [
 			"monitor;",
@@ -150,44 +150,105 @@
 		],
 		"description": "The monitor group performs conditional error handling based on the exception message or status code."
 	},
-  "snd-msg": {
+	"snd-msg": {
 		"prefix": "snd-msg",
 		"body": [
 			"snd-msg ${1|*INFO,*ESCAPE|} ${2:%TARGET(${3|*SELF,*CALLER,program-or-procedure|})) };"
 		],
 		"description": "The SND-MSG operation sends an informational message or an exception message. The message can be sent to any procedure on the call stack, including the current procedure. The message appears in the joblog after it is sent."
 	},
 	"sql-cursor-loop": {
-    "prefix": "sql-cursor-loop",
-    "description": "SQL cursor loop",
-    "scope": "rpgle",
-    "body": [
-      "Dcl-Ds $3 ExtName('$3') Alias Qualified;",
-      "End-Ds;",
-      "",
-      "EXEC SQL",
-      "  DECLARE $1 CURSOR FOR",
-      "    SELECT $2 FROM $3",
-      "    // WHERE  field = :code",
-      "EXEC SQL",
-      "  OPEN $1;",
-      "--really should check SQLSTATE here too!",
-      "",
-      "EXEC SQL",
-      "  FETCH NEXT FROM $1 INTO $4;",
-      "",
-      "Dow SQLSTATE = '00000';",
-      "  --note 00000 = no errors or warning",
-      "  --     02000 = no data",
-      "  <do somthing?>",
-      "  EXEC SQL",
-      "      FETCH NEXT FROM $1 INTO $4;",
-      "ENDDO;",
-      "",
-      "EXEC SQL",
-      "  CLOSE $1;",
-    ]
-  },
+		"prefix": "sql-cursor-loop",
+		"description": "SQL cursor loop",
+		"scope": "rpgle",
+		"body": [
+			"Dcl-Ds $3 ExtName('$3') Alias Qualified;",
+			"End-Ds;",
+			"",
+			"EXEC SQL",
+			"  DECLARE $1 CURSOR FOR",
+			"    SELECT $2 FROM $3",
+			"    // WHERE  field = :code",
+			"EXEC SQL",
+			"  OPEN $1;",
+			"--really should check SQLSTATE here too!",
+			"",
+			"EXEC SQL",
+			"  FETCH NEXT FROM $1 INTO $4;",
+			"",
+			"Dow SQLSTATE = '00000';",
+			"  --note 00000 = no errors or warning",
+			"  --     02000 = no data",
+			"  <do somthing?>",
+			"  EXEC SQL",
+			"      FETCH NEXT FROM $1 INTO $4;",
+			"ENDDO;",
+			"",
+			"EXEC SQL",
+			"  CLOSE $1;",
+		]
+	},
+	"workstation-basics": {
+		"prefix": "workstation-basics",
+		"description": "The basic definitions for a display file with a subfield",
+		"scope": "rpgle",
+		"body": [
+			"Dcl-F ${1:displayfile} WORKSTN Sfile(SFLDta:Rrn) IndDS(WkStnInd) InfDS(fileinfo);",
+			"",
+			"Dcl-S Rrn          Zoned(4:0) Inz;",
+			"",
+			"Dcl-DS WkStnInd;",
+			"  ProcessSCF     Ind        Pos(21);",
+			"  ReprintScf     Ind        Pos(22);",
+			"  Error          Ind        Pos(25);",
+			"  PageDown       Ind        Pos(30);",
+			"  PageUp         Ind        Pos(31);",
+			"  SflEnd         Ind        Pos(40);",
+			"  SflBegin       Ind        Pos(41);",
+			"  NoRecord       Ind        Pos(60);",
+			"  SflDspCtl      Ind        Pos(85);",
+			"  SflClr         Ind        Pos(75);",
+			"  SflDsp         Ind        Pos(95);",
+			"End-DS;",
+			"",
+			"Dcl-DS FILEINFO;",
+			"  FUNKEY         Char(1)    Pos(369);",
+			"End-DS;",
+		]
+	},
+	"workstation-function-keys": {
+		"prefix": "workstation-function-keys",
+		"description": "Function key constants for display files",
+		"scope": "rpgle",
+		"body": [
+			"Dcl-C F01        X'31';",
+			"Dcl-C F02        X'32';",
+			"Dcl-C F03        X'33';",
+			"Dcl-C F04        X'34';",
+			"Dcl-C F05        X'35';",
+			"Dcl-C F06        X'36';",
+			"Dcl-C F07        X'37';",
+			"Dcl-C F08        X'38';",
+			"Dcl-C F09        X'39';",
+			"Dcl-C F10        X'3A';",
+			"Dcl-C F11        X'3B';",
+			"Dcl-C F12        X'3C';",
+			"Dcl-C F13        X'B1';",
+			"Dcl-C F14        X'B2';",
+			"Dcl-C F15        X'B3';",
+			"Dcl-C F16        X'B4';",
+			"Dcl-C F17        X'B5';",
+			"Dcl-C F18        X'B6';",
+			"Dcl-C F19        X'B7';",
+			"Dcl-C F20        X'B8';",
+			"Dcl-C F21        X'B9';",
+			"Dcl-C F22        X'BA';",
+			"Dcl-C F24        X'BC';",
+			"Dcl-C ENTER      X'F1';",
+			"Dcl-C HELP       X'F3';",
+			"Dcl-C PRINT      X'F6';",
+		]
+	},
 	"%abs": {
 		"prefix": "%abs",
 		"body": [
@@ -762,7 +823,6 @@
 		],
 		"description": "%STATUS returns the most recent value set for the program or file status."
 	},
-	
 	"%str": {
 		"prefix": "%str",
 		"body": [
@@ -968,7 +1028,7 @@
 	},
 	"Main": {
 		"prefix": "main",
-		"body":[
+		"body": [
 			"**FREE",
 			"Ctl-Opt Main(${1:${TM_FILENAME_BASE/([^\\.]+).*/${1:/upcase}/}});",
 			"",
@@ -979,6 +1039,6 @@
 			"  $0",
 			"End-Proc;"
 		],
-		"description":"No cycle RPGLE program template"
-  }
+		"description": "No cycle RPGLE program template"
+	}
 }